Histórico da Página
...
Nome | Tipo | Descrição |
---|---|---|
Array of Record | Retorna Array reg0200 com produtos utilizados Importante: Quando ponto de entrada é executado Array reg0200 ja já possui todos produtos já processados no SPED FISCAL, deve apenas adicionar novos produtos no array reg0200 Após execução do ponto SPED1390 será impresso Array reg0200 conforme retornado do ponto de entrada. |
...
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], "0304") aAdd(aReg1391, {}) nPos1391 := Len(aReg1391) aAdd(aReg1391[nPos1391], nPos1390) aAdd(aReg1391[nPos1391], "1391") // campoCampo 01 REG aAdd(aReg1391[nPos1391], "30072024") // campoCampo 02 DT_REGISTRO aAdd(aReg1391[nPos1391], 1000.00) // campoCampo 03 QTD_MOID aAdd(aReg1391[nPos1391], 1000.00) // campoCampo 04 ESTQ_INI aAdd(aReg1391[nPos1391], 1000700.00) // campoCampo 05 QTD_PRODUZ aAdd(aReg1391[nPos1391], ) 0.00) // campoCampo 06 ENT_ANID_HID aAdd(aReg1391[nPos1391], 1000100.00) // campoCampo 07 OUTR_ENT aAdd(aReg1391[nPos1391], 10.00) // campoCampo 08 PERDA aAdd(aReg1391[nPos1391], 50.00) // campoCampo 09 CONS aAdd(aReg1391[nPos1391], 0.00) // campoCampo 10 SAI_ANI_HID aAdd(aReg1391[nPos1391], ) 800.00) // campoCampo 11 SAIDAS aAdd(aReg1391[nPos1391], 0800.00) // campoCampo 12 ESTQ_FIN aAdd(aReg1391[nPos1391], 0.00) // campoCampo 13 ESTQ_INI_MEL aAdd(aReg1391[nPos1391], 0.00) // campoCampo 14 PROD_DIA_MEL aAdd(aReg1391[nPos1391], 0.00) // campoCampo 15 UTIL_MEL aAdd(aReg1391[nPos1391], 0.00) // campoCampo 16 PROD_ALC_ME aAdd(aReg1391[nPos1391], "SPED1390") // campoCampo 17 16OBS aAdd(aReg1391[nPos1391], cProd) // campoCampo 18 COD_ITE aAdd(aReg1391[nPos1391], "04") // Campo 19 TP_RESIDUO // campo 19 Opção 04 valido a partir de Janeiro de 2024. aAdd(aReg1391[nPos1391], 04) 18.00) // campoCampo 20 // Geração dos novos campos QTD_RESIDUO aAdd(aReg1391[nPos1391], 016.00) // Campo 21 QTD_RESIDUO_ DDG // campoCampos 21, 22 e 23 validos a partir de Janeiro de 2024. aAdd(aReg1391[nPos1391], 0312.00) // campoCampo 22 QTD_RESIDUO_ WDG aAdd(aReg1391[nPos1391], 0.00) // campoCampo 23 QTD_RESIDUO_ CANA //geracao Geracao do 0200 SPEDSeek("SB1", , xFilial("SB1") + cProd) SFRG0200(cAlias, @aReg0200, @aReg0190, dDataDe, dDataAte, , cProd) GrRegDep(cAlias, aReg1390, aReg1391) Return aReg0200 |
05. DEMAIS INFORMAÇÕES
Não e aplica.FIS0009_Manual_Utilização_SPEDFISCAL
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas