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.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas