Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:Financeiro
Idiomas:Português
Função: FINA710 - Novo Gestor Financeiro

02. DESCRIÇÃO

O ponto de entrada F717GRV permite realizar gravações complementares durante a execução do job de transmissão dos pagamentos (API), na chamada do PE as tabelas envolvidas no processo estarão posicionadas (SE2, SEA, SA6, SEE, SA2). Caso haja a necessidade de mexer no posicionamento das tabelas, lembre-se de utilizar o FwGetArea e FwRestArea, garantindo assim a integridade do job.

05. EXEMPLO DE UTILIZAÇÃO

NFG713GRV
#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function F717GRV     
	Realizar gravações complementares durante a execução do job de transmissão dos pagamentos (API), na chamada do PE as tabelas envolvidas no
	processo estarão posicionadas (SE2, SEA, SA6, SEE, SA2). Caso haja a necessidade de mexer no posicionamento das tabelas, lembre-se de utilizar
	o FwGetArea e FwRestArea, garantindo assim a integridade do job.     
	@type  Function
    @author Totvs
    @since 28/02/2024
    @version 1.0
    @see https://tdn.totvs.com/pages/viewpage.action?pageId=780009506
/*/
User Function  F717GRV()
    Local aArea := FwGetArea()

    If SEA->EA_TRANSF == 'F' //Pagamento não transmitido
        /*
            Realizar gravações complementares
        */
        RecLock("SE2", .F.)
            SE2->E2_XPTO = "Pagamento não foi transmitido"
        SE2->(MsUnLock())
    Else
        /*
            Realizar gravações complementares
        */
        RecLock("SE2", .F.)
            SE2->E2_XPTO = "Pagamento transmitido"
        SE2->(MsUnLock())
    Endif

    FwRestArea(aArea)
Return