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 redução / 1- Acréscimoacré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],"299101"cPCodDem) //Código da Receitareceita Aadd(aRet,{}) nPos := Len(aRet) Aadd(aRet[nPos], "0") //Indicador de ajuste - 0 Redução redução / 1- Acréscimoacréscimo Aadd(aRet[nPos], 11.321) //Valor do ajuste Aadd(aRet[nPos],"06") //Código do ajuste conforme tabela 4.3.8 da RFB Aadd(aRet[nPos],"00010002") //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],"299101"cPCodDem) //Código da Receitareceita Aadd(aRet,{}) nPos := Len(aRet) Aadd(aRet[nPos], "01") //Indicador de ajuste - 0 Redução redução / 1- Acréscimoacréscimo Aadd(aRet[nPos], 11.325) //Valor do ajuste Aadd(aRet[nPos],"06") //Código do ajuste conforme tabela 4.3.8 da RFB Aadd(aRet[nPos],"00010003") //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],"299101"cPCodDem) //Código da Receitareceita Return aRet
|