TOTVS DevForum - Moderar question

Versão atual:

Copia de Dados para Grids MVC

Olá Pessoal, estou com um problema em replicar dados de uma Grid para outra...Tenho uma

rotina X com Grid, e ao apertar um botão abre uma rotina Y também com Grid, ambas em MVC.

ao alterar os dados de ambas as Grids quero que elas recebam os mesmo dados alterados. O problema é que a primeira linha de ambas as Grids ficam vazias. só na segunda linha que é preenchida com os dados alterados.

Como são dois Fontes, vou separa-los aqui

Tela Principal:

//Define os dados para o Objeto da Classe NF
User Function AbreDT()
    Local cProduto  := ""
    Local nLinha    := 1    
    Local oModel      := FwModelActive()
    Local oView     := FwViewActive() //Objeto da View, adicionado para dar refresh após adicioar uma nova linha
    Local oGrid    := Nil
    Local nTotLin

    oModel:GetModel("CABEC")
    //Pegando os dados da Grid
    oGrid := oModel:GetModel("CABEC_ITENS")

    nTotLin := oGrid:Length(.F.)

    For nLinha := 1 To nTotLin
        //Posicionando na linha atual
        oGrid:GoLine(nLinha)
        //Se a linha tiver deletada
        If oGrid:IsDeleted()
            /* ... */

            //Senão, se não for inserção
        ElseIf ! oGrid:IsInserted()

            //POSIONAR NO CAMPO ALTERADO
            cProduto := oGrid:GetValue("PRODUTO_PROTHEUS") //Pegando conteudo da Grid campo PRODUTO

            If (!Empty("PRODUTO_PROTHEUS"))
                oItemNF:SetProdProtheus(cProduto)
                //...set dos campos que são alterados
                //..set dos campos que são alterados
            EndIf
        EndIf
    Next

    oGrid:SetLine(1)

    // Atualiza toda a tela*
    oView:getModel("CABEC_ITENS")

    //oGrid:goLine(nLinha)

    U_NFLNFE02(oView) //Função Tela de Detalhes

    oView:deActivate()
    oView:activate()
Return()

Fonte da Segunda Grid, Tela de Detalhes

User Function NFLNFE02(oView)
    Local aArea            := GetArea()
    Local aEnableButtons := {}
    Local nRet             := 1

    aEnableButtons    :=    {    { .F., Nil }, { .F., Nil }, ;
        { .F., Nil }, { .F., Nil }, ;
        { .F., Nil }, { .F., Nil }, ;
        { .T., Nil }, { .T., Nil }, ;
        { .F., Nil }, { .F., Nil }, ;
        { .F., Nil }, { .F., Nil }, ;
        { .F., Nil }, { .F., Nil }    } //"Confirmar"###"Fechar"

    oModelDT := FWLoadModel("NFLNFE02")
    oModelDT:SetOperation(4)

    oModelDT:Activate()

    oMdlGrid:= oModelDT:getModel("GRID_ITENS")

    oMdlGrid:SetLine(1)

    nRet := FWExecView("e" , "NFLNFE02", 4, /*oDlg*/, ,/* bOk*/ ,0/*nPercReducao*/, aEnableButtons, /*bCancel*/ , /*cOperatId*/, /*cToolBar*/, oModelDT)

    if nRet == 0 /*Confirmação da tela*/

        FWMsgRun(,{|| CursorWait(), oView:deActivate(), oView:activate(), CursorArrow() }, "NFLNFE02", "Atualizando...")

    endIf

    RestArea(aArea)
Return

Obs: Na imagem está o campo que ter que ser atualizado/alterado em ambas as Grid, é o o campo (Produto) na primeira linha vem em brando, na linha de baixo ele carrega o dado alterado. o resto dos campos tem um carregamento diferente já que utilizo um objeto, então já estão pré carregados.

Obriga desde já!

mvc
advpl

Versões (2):

Ver a versão formatada

Replicar dados de um Rotina para outra

Olá Pessoal, estou com um problema em replicar dados de uma rotina para outra...Tenho uma

rotina X, e ao apertar um botão abre uma rotina Y, ambas em MVC.

Ao alterar os dados da rotina X, quero que os mesmo sejam refletidos na rotina Y.

E também o que os mesmos alterados na rotina Y sejam alterados na rotina X...

abaixo está os fontes de ambas as rotinas...

Rotina X principal:

Botão

oBtnDet := TButton():Create(oPanel, 015, 70, "Detalhes da Nota",{|| AbreDT()}, 65,12,,oFontBtn,,.T.,,"Detalhes Itens da NF-e",,,,)

//Abre a Tela Detalhes Itens da NF-e
Static Function AbreDT()
    Local nLinha    :=  1    As Numeric
    Local cProduto  := ""
    //Local oView     := FWViewActive() //Objeto da View, adicionado para dar refresh após adicioar uma nova linha

    oModel := FWLoadModel("MIGRANFE")//Rotina Principal
    oModel:SetOperation(4) 
    oModel:Activate()

    oGrid := oModel:getModel("CABEC_ITENS")

  //Percorrendo a grid com os itens
            For nLinha := 1 To oGrid:Length()
                //Posicionando na linha atual
                oGrid:GoLine(nLinha)

                //Se a linha tiver deletada
                If oGrid:IsDeleted()
                    /* ... */

                //Senão, se não for inserção
                ElseIf ! oGrid:IsInserted()

                    //POSIONAR NO CAMPO ALTERADO
                     cProduto    := oGrid:GetValue("PRODUTO_PROTHEUS") //Pegando conteudo da Grid campo PRODUTO

                    If (!Empty("PRODUTO_PROTHEUS"))

                        oItemNF:SetProdProthues(cProduto)
                        //...set dos campos que são alterados
                        //..set dos campos que são alterados
                    EndIf
                EndIf
            Next
        oModel:DeActivate()

        oModelMNfe := FWLoadModel("MIGRANFDT")//Detalhes Itens da NF-e
        oModelMNfe:SetOperation(4) 
        oModelMNfe:Activate()

        oModelGrid:= oModelMNfe:getModel("GRID_ITENS")    

        oModelGrid:SetLine(0)
        // RECUPERA A VIEW ATIVA E ATUALIZA (NECESSÁRIO PARA EXIBIÇÃO DO CONTEÚDO)
            //oView := FwViewActive()
            //oView:Refresh()

        nRet     := FWExecView("" , "MIGRANFDT", 4, /oDlg/, {|| .T. } ,/bOk/ , /nPercReducao/,;
        /aEnableButtons/, /bCancel/ , /cOperatId/, /cToolBar/, oModelMNfe )

Return(nRet)

Rotina Y: Detalhes Itens da NF-e

Static Function ConfirmNFe(oGridModel)
    Local nRet             := 1
    //Local nX            := 1
    Local nLinha         := 1
    Local oModelGRID    := oGridModel:GetModel("GRID_ITENS")
    Local cProduto        := ""
    Private aCampAlt    := {}


  //Percorrendo a grid com os itens
            For nLinha := 1 To oModelGRID:Length()
                //Posicionando na linha atual
                oModelGRID:GoLine(nLinha)

                //Se a linha tiver deletada
                If oModelGRID:IsDeleted()
                    /* ... */

                //Senão, se não for inserção
                ElseIf ! oModelGRID:IsInserted()

                    //POSIONAR NO CAMPO ALTERADO
                     cProduto    := oModelGRID:GetValue("PRODUTO_PROTHEUS") //Pegando conteudo da Grid campo PRODUTO

                    If (!Empty("PRODUTO_PROTHEUS"))

                        oItemNF:SetProdProtheus(cProduto)
                        //...set dos campos que são alterados
                        //..set dos campos que são alterados
                    EndIf
                EndIf
            Next
        oModelMNfe := FWLoadModel("MIGRANFE")
        oModelMNfe:SetOperation(4) 
        oModelMNfe:Activate()

        oModelGrid:= oModelMNfe:getModel("CABEC_ITENS")    

        oModelGrid:SetLine(0)
        // RECUPERA A VIEW ATIVA E ATUALIZA (NECESSÁRIO PARA EXIBIÇÃO DO CONTEÚDO)
            //oView := FwViewActive()
            //oView:Refresh()

        nRet     := FWExecView("" , "MIGRANFE", 4, /*oDlg*/, {|| .T. } ,/*bOk*/ , /*nPercReducao*/,;
        /*aEnableButtons*/, /*bCancel*/ , /*cOperatId*/, /*cToolBar*/, oModelMNfe )

Return(nRet)

mvc
advpl

mvc
advpl

criado 23 de Nov de 2022

Eduarda Menezes
147 pontos

Comentário

new question