Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Portuguese

Pagetitle

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

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

Bloco de código

language	c#
title	Exemplo de utilização:
linenumbers	true

#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_PERIODOPERIOD+Z02_NUMPAG+Z02_PD" )

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

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

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

EndIf

Return

Aviso

title	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.

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave