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 := ""

      // CUSTOMER VALIDATION

Return cRet

• It is noteworthy that the customer is responsible for EP utilization and its impacts on the system.
• The examples used in this documentation are for demonstration purposes only. Each customer must check what behavior they want to perform according to the scope of the entry point.