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

aAdd(aReg1390, {})
nPos1390 := Len(aReg1390)
aAdd(aReg1390[nPos1390], "1390")
aAdd(aReg1390[nPos1390], "04")

aAdd(aReg1391, {})
nPos1391 := Len(aReg1391)              
aAdd(aReg1391[nPos1391], nPos1390)
aAdd(aReg1391[nPos1391], "1391")        // Campo 01 REG
aAdd(aReg1391[nPos1391], "30072024")    // Campo 02 DT_REGISTRO
aAdd(aReg1391[nPos1391], 1000.00)       // Campo 03 QTD_MOID
aAdd(aReg1391[nPos1391], 1000.00)       // Campo 04 ESTQ_INI
aAdd(aReg1391[nPos1391], 700.00)        // Campo 05 QTD_PRODUZ
aAdd(aReg1391[nPos1391], 0.00)          // Campo 06 ENT_ANID_HID
aAdd(aReg1391[nPos1391], 100.00)        // Campo 07 OUTR_ENT
aAdd(aReg1391[nPos1391], 10.00)         // Campo 08 PERDA
aAdd(aReg1391[nPos1391], 50.00)         // Campo 09 CONS
aAdd(aReg1391[nPos1391], 0.00)          // Campo 10 SAI_ANI_HID
aAdd(aReg1391[nPos1391], 800.00)        // Campo 11 SAIDAS
aAdd(aReg1391[nPos1391], 800.00)        // Campo 12 ESTQ_FIN
aAdd(aReg1391[nPos1391], 0.00)          // Campo 13 ESTQ_INI_MEL
aAdd(aReg1391[nPos1391], 0.00)          // Campo 14 PROD_DIA_MEL
aAdd(aReg1391[nPos1391], 0.00)          // Campo 15 UTIL_MEL
aAdd(aReg1391[nPos1391], 0.00)          // Campo 16 PROD_ALC_ME
aAdd(aReg1391[nPos1391], "SPED1390")    // Campo 17 OBS
aAdd(aReg1391[nPos1391], cProd)         // Campo 18 COD_ITE
aAdd(aReg1391[nPos1391], "04")          // Campo 19 TP_RESIDUO
aAdd(aReg1391[nPos1391], 18.00)         // Campo 20 QTD_RESIDUO
aAdd(aReg1391[nPos1391], 6.00)          // Campo 21 QTD_RESIDUO_ DDG
aAdd(aReg1391[nPos1391], 12.00)         // Campo 22 QTD_RESIDUO_ WDG
aAdd(aReg1391[nPos1391], 0.00)          // Campo 23 QTD_RESIDUO_ CANA

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