Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"
 
User Function SPED1390()
Local cAlias    := (ParamIxb[1])
Local dDataDe   := (ParamIxb[2])
Local dDataAte  := (ParamIxb[3])
Local aReg0200  := (ParamIxb[4])
Local aReg0190  := (ParamIxb[5])
Local aReg1390  := {}
Local aReg1391  := {}
Local nPos1390  := 0
Local nPos1391  := 0
Local cProd     := "AT0000000000000000000000000002RV0000000000000000000000000001"
 
aAdd(aReg1390, {})
nPos1390 := Len(aReg1390)
aAdd(aReg1390[nPos1390], "1390")
aAdd(aReg1390[nPos1390], "03")
 
aAdd(aReg1391, {})
nPos1391 := Len(aReg1391)               
aAdd(aReg1391[nPos1391], nPos1390)
aAdd(aReg1391[nPos1391], "1391")        // campo 01
aAdd(aReg1391[nPos1391], "3007201230072024")    // campo 02
aAdd(aReg1391[nPos1391], 1000.00)       // campo 03
aAdd(aReg1391[nPos1391], 1000.00)       // campo 04
aAdd(aReg1391[nPos1391], 1000.00)       // campo 05
aAdd(aReg1391[nPos1391], )              // campo 06
aAdd(aReg1391[nPos1391], 1000.00)       // campo 07
aAdd(aReg1391[nPos1391], 10.00)         // campo 08
aAdd(aReg1391[nPos1391], 50.00)         // campo 09
aAdd(aReg1391[nPos1391], )              // campo 10
aAdd(aReg1391[nPos1391], )              // campo 11
aAdd(aReg1391[nPos1391], 0)             // campo 12
aAdd(aReg1391[nPos1391], 0)             // campo 13
aAdd(aReg1391[nPos1391], 0)             // campo 14
aAdd(aReg1391[nPos1391], 0)             // campo 15
aAdd(aReg1391[nPos1391], 0)             // campo 16
aAdd(aReg1391[nPos1391], "SPED1390")    // campo 16
aAdd(aReg1391[nPos1391], cProd)         // campo 18
aAdd(aReg1391[nPos1391], 04)            // campo 19
aAdd(aReg1391[nPos1391], 04)            // campo 20
// Geração dos novos campos
aAdd(aReg1391[nPos1391], 01)            // campo 21
aAdd(aReg1391[nPos1391], 02)03)            // campo 22
aAdd(aReg1391[nPos1391], 1234)

00)            // campo 23

 
//geracao do 0200
SPEDSeek("SB1", , xFilial("SB1") + cProd)
SFRG0200(cAlias, @aReg0200, @aReg0190, dDataDe, dDataAte, , cProd)
 
GrRegDep(cAlias, aReg1390, aReg1391)

Return aReg0200