Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function EFDCON04()

Local cChvEfd     := PARAMIXB[1]	// Chave EFD
Local cTpAjuste   := PARAMIXB[2]	// Tipo de Ajuste
Local cDescrAju   := PARAMIXB[3]	// Descrição do ajuste
Local cConta	  := PARAMIXB[4]	// Conta contábil
Local cCst		  := PARAMIXB[5]	// CST
Local nAlq		  := PARAMIXB[6]	// Alíquota
Local nVlAjuGrv	  := PARAMIXB[7]	// Valor do ajuste
Local cPerAtu	  := PARAMIXB[8]	// Período Atual
Local dDtRefer    := PARAMIXB[9]    // Data de referencia
Local lAjuBase    := PARAMIXB[10]   // Se ajuste de base (.T.) ou de valor (.F.)
Local cTributo    := PARAMIXB[11]   // Qual tributo está sendo ajustado Pis("1") ou Cofins ("2")
Local cNumDoc	  := PARAMIXB[12]	// Numero do Documento ou processo
Local cInfCompl   := PARAMIXB[13]	// Informação complementar
Local aRet        := {}


If SUBSTR(cChvEfd,18,4) == '1.65' .and. cTributo == '1'
   cDescrAju := "Ajuste teste"
   cInfCompl := "Ajuste teste complementar"
   cConta	:=	"ENTV000001"         
ElseIf SUBSTR(cChvEfd,18,4) == '7.60' .and. cTributo == '2'
   cDescrAju := "Ajuste teste"
   cInfCompl := "Ajuste teste complementar"
   cConta	:=	"ENTV000001"         
EndIf 

aAdd(aRet,cDescrAju)// Descrição do ajuste
aAdd(aRet,cInfCompl)// Informação complementar
aAdd(aRet,"")// Num Doc
aAdd(aRet,cConta) // Código conta contábil

Return aRet