Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: GP120CMP - Ponto de Entrada para Gravação de Dados de Usuário após Gravação de Acumulados


Versões:Microsiga Protheus 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Issue:DRHPAG-28157
Ticket:6392395
Fonte:GPEM120.PRX
Pacote:



Descrição:
Permite a gravação de informações de campos do usuário após a gravação de Acumulados (SRD).

Programa Fonte: GPEM120.PRX

Exemplo de utilização:
#include 'protheus.ch'

User Function GP120CMP()

Local cFil          := SRD->RD_FILIAL
Local cMat          := SRD->RD_MAT
Local cRoteiro      := SRD->RD_ROTEIR
Local cPeriodo      := SRD->RD_PERIODO
Local cNumPg        := SRD->RD_SEMANA
Local cPD           := SRD->RD_PD
Local cVerbas       := "106"
Local nOrder        := RetOrdem( "Z02" , "Z02_FILIAL+Z02_MAT+Z02_ROTEIR+Z02_PERIOD+Z02_NUMPAG+Z02_PD" )

DbSelectArea( "Z02" )
Z02->(DbSetOrder( nOrder ))
If Z02->(!DbSeek(cFil+cMat+cRoteiro+cPeriodo+cNumPg+cPD))

    If cPD $ cVerbas
        RecLock("Z02",.T.)

        Z02->Z02_FILIAL     := cFil
        Z02->Z02_MAT        := cMat 
        Z02->Z02_ROTEIR     := cRoteiro 
        Z02->Z02_PERIOD     := cPeriodo
        Z02->Z02_NUMPAG     := cNumPg
        Z02->Z02_PD         := cPD
        Z02->Z02_ACT        := "LANCAR"
        Z02->( MsUnLock() )
    EndIf

EndIf

Return

Importante

  • Na ocasião do uso do Ponto de Entrada como o exemplo acima deve ser efetuado o travamento e o destravamento do registro utilizado.