Linha Microsiga Protheus

Árvore de páginas

GFEA0708 - Realizar processamento no botão "Atualizar Financeiro ERP"

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada:GFEA0708

Descrição:

Realizar processamento na finalização da tela "Atualizar Financeiro ERP". Esse ponto tem por objetivo algum processamento específico, após encerramento da tela "Atualizar Financeiro ERP", acionada via menu da rotina de Documento de Carga.

Localização:

No botão Atualizar Financeiro ERP do programa Fatura de Frete (GFEA070).

Programa Fonte:

GFEA070 - Fatura de Frete

Parâmetros:

Não se aplica.

Retorno:

Não se aplica.

Exemplo: GFEA0708
#INCLUDE "PROTHEUS.CH"
User Function GFEA0708()

Local oColEnt
Local aLayout    := {}
Local aStruct    := {}
Local cSequen    := ""
Local nCntFor1   := 0
Local aAreaDT5   := {}

dbSelectArea("DND")
oColEnt  := TMSBCACOLENT():New("DND")
If oColEnt:DbGetToken() 
    DND->(DbGoTo(oColEnt:config_recno))

    aAreaDT5  := GWN->(GetArea())

    conout(DND->DND_CODFON)

    //-- Inicializa a estrutura
    aStruct   := TMSMntStru(DND->DND_CODFON,.F.)
    TMSSetVar("aStruct",aStruct)

    //-- Define o processo

    TMSSetVar("cProcesso", GWN->GWN_FILIAL + GWN->GWN_NRROM ) 
    //-- Inicializa o localizador
    TMSSetVar("aLocaliza",{})

    For nCntFor1 := 1 To Len(aStruct)
            If (Ascan(aStruct,{|x| x[11] + x[12] ==  aStruct[nCntFor1,1] +  aStruct[nCntFor1,2]}) == 0) /*.And. aStruct[nCntFor1,10] == "2" .And. aStruct[nCntFor1,3] == "GWN"*/	//-- Não 	é adicional de ninguém e ainda não foi processado
                aLayout := BscLayout(aStruct[nCntFor1,1],aStruct[nCntFor1,2])

                If !Empty(aLayout)
                    If Empty(aStruct[nCntFor1,6])
                        //-- Inicia a gravação dos registros
                        MontaReg(Aclone(aLayout),nCntFor1,,cSequen,.T.)
                        
                        TMSCtrLoop(Aclone(aLayout),nCntFor1)
                    EndIf
                EndIf
            EndIf
        aStruct := TMSGetVar("aStruct")
    Next nCntFor1
    RestArea(aAreaDT5)
    FwFreeArray(aAreaDT5)
EndIf

TMSAI86()

Return .t.