Gatilho tabelas diferentes, MVC modelo 3, FwFldGet.

Olá pessoal, sou nova em desenvolvimento ADVPL, estou com o seguinte problema. criei um MVC modelo 3, com duas grids. No grid 1: ZA4_CODA(Grid 1),grid 2: ZA5_CODR(Grid 2). Eu queria que o campo ZA5_CODR recebesse a mesma informação digitada na ZA4_CODA.

Usei o FwFldGet("ZA4_CODA"), no ini. Padrão do campo ZA5_CODR. Porem a primeira linha a informação vem em branco depois que começa a ser preenchido.

Os campos são reais, li que precisaria de um gatilho mas o mesmo que criei não deu certo.

Alguém pode me ajudar, ou mandar um modelo de gatilho de duas tabelas diferentes. onde um dispara (ZA4) e Recebe(ZA5). a imagem mostra que ao clicar em INCLUIR o campo ZA5_CODR vem vazio. como inicial já preenchido?

aa.jpg

MODEL

// REGRAS DE NEGÓCIO Static Function ModelDef() // INSTANCIA O MODELO Local oModel := MPFormModel():New("FwDesM",,,,)

// INSTANCIA OS SUBMODELOS Local oStruZA3 := FwFormStruct(1, "ZA3") Local oStruZA4 := FwFormStruct(1, "ZA4") Local oStruZA5 := FwFormStruct(1, "ZA5")

//FWStruTrigger. Local aAux := {} aAux := FWStruTrigger('ZA4_CODA','ZA5_CODR','u_zGat(M->ZA4_CODA)',.F.) oStruZA4:AddTrigger(aAux[1],aAux[2],aAux[3],aAux[4]) // //oStruct:AddTrigger("Campo Origem", "Campo Destino", "Bloco de código na validação da execução do gatilho", "Bloco de código na execução do gatilho")

// DEFINE SE OS SUBMODELOS SERÃO FIELD OU GRID oModel:AddFields("ZA3MASTER", NIL, oStruZA3) oModel:AddGrid("ZA4DETAIL", "ZA3MASTER", oStruZA4) oModel:AddGrid("ZA5DETAIL", "ZA4DETAIL", oStruZA5)

// DEFINE A RELAÇÃO ENTRE OS SUBMODELOS oModel:SetRelation("ZA4DETAIL", {{"ZA4_FILIAL", "FwXFilial('ZA4')"}, {"ZA4_COD", "ZA3_COD"}}, ZA4->(IndexKey(1))) oModel:SetRelation("ZA5DETAIL", {{"ZA5_FILIAL", "FwXFilial('ZA5')"}, {"ZA5_COD", "ZA3_COD"}, {"ZA5_CODR", "ZA4_CODA"}}, ZA5->(IndexKey(1)))

//Setando Primary Key oModel:SetPrimaryKey({'ZA3_FILIAL','ZA3_COD'})

// DESCRIÇÃO DO MODELO oModel:SetDescription("Processos de Automação")

// DESCRIÇÃO DOS SUBMODELOS oModel:GetModel("ZA3MASTER"):SetDescription("Requisições") oModel:GetModel("ZA4DETAIL"):SetDescription("GRID 1") oModel:GetModel("ZA5DETAIL"):SetDescription("GRID 2") Return (oModel)

compartilhar
Anexos
  • aa.jpg
    1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
    2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
    3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
    4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
    5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

    1 resposta

    Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl protheus mvc ou faça a sua própria pergunta.