Linha Microsiga Protheus

Árvore de páginas

Este Ponto de Entrada é válido a partir do Release 12.1.7 - Expedição Outubro/2016 e superiores.

 

Ponto de Entrada GP100ALT - Validação de Alteração em Lançamentos por Verba

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Serviços.

Módulo:

SIGAGPE.

Rotina:

Rotina

Nome Técnico

GPEA100

Manipulacao de Lançamentos por Verba.

Rotina(s) envolvida(s)

Nome Técnico

GPEA590

Lançamentos por Verba.

Chamados Relacionados

TVVHM2.

Tabelas Utilizadas:

RGB - Lançamentos

Ponto de Entrada

Descrição:

Este Ponto de Entrada tem como objetivo permitir alterações no registro que foi gravado / deletado pelo sistema.

Ele está posicionado após a gravação de inclusão /alteração / exclusão de registros dos lançamentos mensais por verba.

Localização:

SIGAGPE - Atualizações - Lançamentos - Por Verba

Eventos:

Lançamentos por Verba

Programa Fonte:

GPEA100.prx

Função:

GPEA100

Retorno:

Nil

 

Exemplo:

GP100ALT
#INCLUDE "PROTHEUS.CH"
#INCLUDE "HEADERGD.CH"

USER FUNCTION GP100ALT() 


Local lRet	:= .T.
Local nX	:= 0
Local nPosREC	:= GdFieldPos("RGB_REC_WT")


For nX := 1 to Len(aColsAnt)
		( cLancAlias )->( dbGoto( aColsAnt[nX,nPosREC] ) )
				If ( cLancAlias )->(Deleted()) .AND. ( cLancAlias )->(RGB_PD) == '013' .AND. ( cLancAlias )->(RGB_TIPO2) == 'F' // nao pode deletar essa verba quando origem for F 
				   RecLock(cLancAlias,.F.,.T.)		
				   ( cLancAlias )->( dbRecall() )  
				   ( cLancAlias )->( MsUnlock() )
				EndIf
Next nX

Return