Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 // Opção 04 valido apenas a partir de Janeiro de 2024. aAdd(aReg1391[nPos1391], 18.00) // Campo 20 QTD_RESIDUO aAdd(aReg1391[nPos1391], 6.00) // Campo 21 QTD_RESIDUO_ DDG // Campos 21, 22 e 23 validos a apartirpartir de Janeiro de 2024. 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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas