User Function SPEDCP210() Local dDataDe := PARAMIXB[1] Local dDataAte := PARAMIXB[2] Local aSm0 := PARAMIXB[3] Local cPCodServ := PARAMIXB[4] Local cPCodDem := PARAMIXB[5] Local aRet := {} Local nPos := 0 Aadd(aRet,{}) nPos := Len(aRet) Aadd(aRet[nPos], "0") //Indicador de ajuste - 0 redução / 1- acréscimo Aadd(aRet[nPos], 11.32) //Valor do ajuste Aadd(aRet[nPos],"06") //Código do ajuste conforme tabela 4.3.8 da RFB Aadd(aRet[nPos],"0001") //Número do Documento Aadd(aRet[nPos],"Descrição do ajuste de redução P210") // Descrição do ajuste Aadd(aRet[nPos],"01062013") //Data da referência no formato ddmmaaaa Aadd(aRet[nPos],cPCodDem) //Código da receita Aadd(aRet,{}) nPos := Len(aRet) Aadd(aRet[nPos], "0") //Indicador de ajuste - 0 redução / 1- acréscimo Aadd(aRet[nPos], 1) //Valor do ajuste Aadd(aRet[nPos],"06") //Código do ajuste conforme tabela 4.3.8 da RFB Aadd(aRet[nPos],"0002") //Número do Documento Aadd(aRet[nPos],"Descrição do ajuste de redução P210 2 ") // Descrição do ajuste Aadd(aRet[nPos],"01062013") //Data da referência no formato ddmmaaaa Aadd(aRet[nPos],cPCodDem) //Código da receita Aadd(aRet,{}) nPos := Len(aRet) Aadd(aRet[nPos], "1") //Indicador de ajuste - 0 redução / 1- acréscimo Aadd(aRet[nPos], 5) //Valor do ajuste Aadd(aRet[nPos],"06") //Código do ajuste conforme tabela 4.3.8 da RFB Aadd(aRet[nPos],"0003") //Número do Documento Aadd(aRet[nPos],"Descrição do ajuste de redução P210 3 ") // Descrição do ajuste Aadd(aRet[nPos],"01062013") //Data da referência no formato ddmmaaaa Aadd(aRet[nPos],cPCodDem) //Código da receita Return aRet
|