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:ATFA126
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46829

02. DESCRIÇÃO

O ponto de entrada AF126TOK realiza a validação dos dados antes da aprovação de Transferências ou Baixas de ativos na rotina ATFA126.

Essa funcionalidade permite que o usuário implemente regras customizadas para verificar a consistência e a conformidade das informações antes de concluir a aprovação do processo.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
If ExistBlock("AF126TOK")
	lRet := ExecBlock("AF126TOK", .F., .F.,{nOpc,cTipoSol,cCodigo})
EndIf
Exemplo de PE
#INCLUDE "Protheus.ch"

User Function AF126TOK()

	Local nOpc := ParamIxb[1] // 3=Aprovação, 4=Rejeição
	Local cTipoSol := ParamIxb[2] // 1=Baixa, 2=Transferencia
	Local cCodigo := ParamIxb[3] // Codigo da Transferencia
	Local cBase := ''
	Local cItem := ''

	Local lRet := .T.

	Local aArea := GetArea()

	dbSelectArea("SNM")
	SNM->( dbSetOrder(1) )
	SNM->( dbSeek( xFilial("SNM") + cCodigo ) )

	cBase := SNM->NM_CBASE
	cItem := SNM->NM_ITEM

	IF cTipoSol == "1" //Baixa
		If MsgYesNo( "Deseja aprovar a baixa do ativo " + cBase + " / " + cItem + " ?", "Atenção" )
			lRet := .T.
		Else
			lRet := .F.
		EndIf
	ElseIf cTipoSol == "2" //Transferencia
		If MsgYesNo( "Deseja aprovar a transferencia do ativo " + cBase + " / " + cItem + " ?", "Atenção" )
			lRet := .T.
		Else
			lRet := .F.
		EndIf
	EndIf

	RestArea(aArea)

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.