Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 2 minutos

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS Backoffice (Linha Protheus) - Ativo Fixo (SIGAATF)

Função:ATFA012
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46829

02. DESCRIÇÃO

O ponto de entrada AF12VLR0 é utilizado na validação de linha para determinar se o valor de um bem pode ser zerado. Esse ponto de entrada permite que regras adicionais sejam aplicadas no momento da verificação, garantindo que a operação de zerar o valor de um bem seja realizada somente quando atender a critérios específicos.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
If ExistBlock("AF12VLR0")
	If !ExecBlock("AF12VLR0",.F.,.F.,{nValOri,nVorigAtf}) // Controlar Bens Valor Zerado - Inventario
		If ExistBlock("A30EMBRA")
			//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
			//³ A30EMBRA- Espec¡fico para EMBRAER ³
			//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
			If Abs((nValOri + nValCorAcu) / ExecBlock("A30EMBRA",.F.,.F.) - nVorigAtf ) > 1
				Help(" ",1,"AF010VORIG")
				lRet := .F.
			Endif
		EndIf
	EndIf
EndIf
Exemplo de PE
#include 'protheus.ch'
#include 'parmtype.ch'

User Function AF12VLR0()

	Local nValOri := ParamIxb[1]
	Local nVorigAtf := ParamIxb[2]
	Local lRet := .F.

	MsgInfo("PE AF12VLR0")

Return lRet


Importante !!

  • Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
  • Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

04. ASSUNTOS RELACIONADOS

  • Não se aplica.