If ExistBlock("ATFTIPO")
	cTipoAux := Execblock("ATFTIPO",.f.,.f.,{cConta,dData,cTipo,aValor[1],aValor[2],aValor[3],aValor[4],aValor[5],cSinal,nTaxa,cSubConta,cFil,cClvl,cCusto,cTipoCnt,FunName(),aValor})
EndIf

#INCLUDE "PROTHEUS.CH"

User Function ATFTIPO

	Local cConta := PARAMIXB[1]
	Local dData:= PARAMIXB[2]
	Local cTipo:= PARAMIXB[3]
	Local aValor1:= PARAMIXB[4]
	Local aValor2:= PARAMIXB[5]
	Local aValor3:= PARAMIXB[6]
	Local aValor4:= PARAMIXB[7]
	Local aValor5:= PARAMIXB[8]
	Local cSinal:= PARAMIXB[9]
	Local nTaxa:= PARAMIXB[10]
	Local cSubConta:= PARAMIXB[11]
	Local cFil:= PARAMIXB[12]
	Local cClvl:= PARAMIXB[13]
	Local cCusto:= PARAMIXB[14]
	Local cTipoCnt:= PARAMIXB[15]
	Local cFunName:= PARAMIXB[16]
	Local aValor := PARAMIXB[17]
	Local cRet := ""
	
	// VALIDACAO DO CLIENTE

Return cRet

• 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.