Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Esther De Viveiro

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Esther De Viveiro

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Aviso
titleEste 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.

Ponto de Entrada:

DT_PE_GP100OK_Lançamentos_por_Verba_Verificacao_Adicional

GP090OK

GPROXFUN

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:

Bloco de código
themeEclipse
titleGP100ALT
#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