Histórico da Página

01.

...

DATOS GENERALES

Linha ProdutoServiços

Línea de	producto:	Microsiga Protheus®
Segmento:	Servicios
Módulo:	Fiscal

02. DESCRIÇÃODESCRIPCIÓN

Ponto Punto de Entrada entrada para gerar os generar los registros 1390 (Controle Control de Produção producción de Usinaplanta) e y 1391 (Produção Diária da UsinaProducción diaria de la planta) para o el SPED Fiscal.

03.

...

ESPECIFICACIÓN

Parámetros del punto de entrada:

Nome

Nombre

Tipo

Descrição

Descripción

PARAMIXB

Array of Record

Array com dados de processamento com con datos del procesamiento con 5 elementos

[1] = Alias da tabela; de la tabla.

[2] = Data de;De Fecha.

[3] = Data Até;A Fecha.

[4] = Array do del registro 0200;.

[5] = Array do del registro 0190;.

...

Devolución:

Nome

Nombre

Tipo

Descrição

Descripción

Array of Record

Retorna Devuelve Array reg0200 com produtos con productos utilizados

Importante:

Quando ponto

Si el punto de entrada

é executado

se ejecuta, el Array reg0200

já possui todos produtos já processados no SPED FISCAL, deve apenas adicionar novos produtos no array reg0200Após execução do ponto SPED1390 será impresso Array reg0200 conforme retornado do ponto

tiene todos los productos procesados en el SPED FISCAL, solamente debe agregar nuevos productos en el array reg0200

Después de la ejecución del punto SPED1390 se imprimirá el Array reg0200 de acuerdo con la devolución del punto de entrada.

04.

...

EJEMPLO DE

...

UTILIZACIÓN

Bloco de código

language	java
theme	Midnight
title	SPED1390

#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çãoOpción 04 validoválido a partir de JaneiroEnero de 2024.
aAdd(aReg1391[nPos1391], 18.00)         // Campo 20 QTD_RESIDUO
aAdd(aReg1391[nPos1391], 6.00)          // Campo 21 QTD_RESIDUO_ DDG // Campos 21, 22 ey 23 validosválidos a partir de JaneiroEnero de 2024.
aAdd(aReg1391[nPos1391], 12.00)         // Campo 22 QTD_RESIDUO_ WDG
aAdd(aReg1391[nPos1391], 0.00)          // Campo 23 QTD_RESIDUO_ CANA

// GeracaoGeneración dode 0200
SPEDSeek("SB1", , xFilial("SB1") + cProd)
SFRG0200(cAlias, @aReg0200, @aReg0190, dDataDe, dDataAte, , cProd)
  
GrRegDep(cAlias, aReg1390, aReg1391)
 
Return aReg0200

05.

...

OTRAS INFORMACIONES

FIS0009_Manual_UtilizaçãoUtilización_SPEDFISCAL

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave

01.