Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:Ativo Fixo(SIGAATF)
Função:Cálculo Mensal (ATFA050)
Ticket:9577322
Requisito/Story/Issue:DSERCTR1-28364


02. SITUAÇÃO/REQUISITO

O ponto de entrada AF050VTP permite verificar se existem certos tipos de ativos que não foram tratados ao executar a rotina de Cálculo Mensal(ATFA050), retornando dentro da regra os tipos desejados para serem verificados.

03. SOLUÇÃO

Realizado documentação do PE.


Importante !


O exemplo demonstrado é meramente ilustrativo. A regra, o funcionamento e os impactos gerados pelo ponto de entrada no sistema são de responsabilidade do cliente que o utiliza.


04. DEMAIS INFORMAÇÕES


Parâmetros:

Parâmetro

Tipo

Descrição

Obrigatório

PARAMIXB[1]None

Não se aplica 

Não


Retorno:

Retorno

Tipo

Descrição

Obrigatório

ArrayArrayTipo dos bens a serem avaliados que não foram tratadosSim



Exemplo de utilização do Ponto de Entrada 
#include "protheus.ch"
 
User Function AF050VTP()
    Local aBensTipos        :=  {'55','56','57'}
    //Outras regras dependendo do que deseja ser avaliado e validado
 
Return aBensTipos



Exemplo da manipulação do PE pelo sistema - Exemplo 1 
		If ExistBlock("AF050VTP")
			If lResult .and. !AFA050VlTp(cFilDe, cFilAte)
				If IsBlind()
					LogRecord( 'ID:AF050VLTP' )
				Else
					HELP(" ",1,"AF050VLTP",,STR0033,1,0)    //"Existem ativo(s) com tipo nao tratado"
				EndIf
				lResult := .F.
			EndIf
		EndIf
Exemplo da manipulação do PE pelo sistema - Exemplo 2 
	If ExistBlock("AF050VTP")
		aAux := ExecBlock( "AF050VTP", .F., .F. )
		If ValType(aAux)=="A"
			For nX := 1 to Len(aAux)
				If ValType(aAux[nX])=="C"
					AADD(aTipos, aAux[nX])
				EndIf
			Next
		EndIf
	Endif


05. ASSUNTOS RELACIONADOS

  • Não se aplica.