Versão atual:

Problema SetFldNoCopy MVC

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"})

Versão (1):

Ver a versão formatada

Problema SetFldNoCopy MVC

Comentário

new question