Olá pessoal,
Alguém sabe dizer o porque o código abaixo não copia os dados do grid? Se eu comento a linha do SetFldNoCopy do cabeçalho, os dados do grid são copiados.
Static Function ModelDef()
Local oModel := MPFormModel():New("ZZZFINA11", , , , )
Local oStrCabec := FWFormStruct(1, "ZF1")
Local oStrDetal := FWFormStruct(1, "ZF2")
Local aCpoNoCopy := {}
oModel:AddFields("ZF1CABEC" , ,oStrCabec)
oModel:AddGrid("ZF2GRID" ,"ZF1CABEC" ,oStrDetal, , , , ,)
oModel:SetRelation("ZF2GRID", {{"ZF2_FILIAL","FwxFilial('ZF2')"},{"ZF2_SEQ", "ZF1_SEQ"}}, ZF2->(IndexKey(1)))
oModel:SetPrimaryKey({"ZF2_FILIAL","ZF2_ITEM"})
oModel:SetDescription("Informações da empresa")
oModel:GetModel("ZF1CABEC"):SetDescription("Cabeçalho")
oModel:GetModel("ZF2GRID"):SetDescription("Detalhes")
// Campos para não copiar
AAdd(aCpoNoCopy, "ZF1_FILIAL")
AAdd(aCpoNoCopy, "ZF1_SEQ")
AAdd(aCpoNoCopy, "ZF1_DATINF")
AAdd(aCpoNoCopy, "ZF1_DATDIG")
AAdd(aCpoNoCopy, "ZF1_HRDIG")
AAdd(aCpoNoCopy, "ZF1_USRDIG")
AAdd(aCpoNoCopy, "ZF1_DATENV")
AAdd(aCpoNoCopy, "ZF1_HRENV")
AAdd(aCpoNoCopy, "ZF1_USRENV")
AAdd(aCpoNoCopy, "ZF1_QTDENV")
oModel:GetModel("ZF1CABEC"):SetFldNoCopy(aCpoNoCopy)
// oModel:GetModel("ZF2GRID"):SetFldNoCopy({"ZF2_FILIAL"})