Histórico da Página

...

Linha de Produto:	Microsiga Protheus®
Segmento:	Serviços
Módulo:	Fiscal

02. DESCRIÇÃO

Permite

...

adicionar

...

linhas

...

nos

...

registros

...

F100,

...

0150,

...

0500

...

e

...

0600

...

do

...

SPED

...

PIS/COFINS.

Observação:

Para utilização desta funcionalidade, caso não exista o campo do Alias do Participante (CL2_ALIAS) na tabela de Integrações F100/F120/F130 (CL2),

será necessário executar o compatibilizador de dicionário de dados UPDDISTR disponível no portal do cliente.

03. ESPECIFICAÇÃO

Sintaxe

Descrição	Sintaxe
SPDPIS09 - Adiciona registro F100/0150/0500/0600	( [ cFil ], [ dDataDe ], [ dDataAte ] ) --> aRetF100

Parâmetros do ponto de entrada:

Nome	Tipo	Descrição
cFilcFilial	Caracter	Filial
dDataDedDataIni	Array of Record	Data de:
dDataAtedDataFim	Array of Record	Data Até:

Retorno:

...

Para gerar um campo do registro com 3 decimais basta informar o conteúdo entre chaves e na segunda posição informar a quantidade de casas decimais.

Exemplo:

Image Removed

Como ficará o Array do 1300:

Image Removed

No caso será gerado no campo 4 do registro 1300 o valor de 330,000 com 3 decimais.

Image Removed

Bloco de código

language	java
theme	Midnight
title	SPED1300

#include "rwmake.ch"
#include "Topconn.ch"
#include "protheus.ch"
  
 
User Function SPDPIS09()

Local _cFilial  := (PARAMIXB[1])
Local _dDataIni := (PARAMIXB[2]   )
Local _dDataFim := (PARAMIXB[3]  )
Local aRetF100  := {}
Local dData     := STOD("20221101") 
Local nPos          := 0
 
aAdd(aRetF100, {})
nPos:= Len(aRetF100)
aAdd (aRetF100[nPos], "F100"       )//01 - REG
aAdd (aRetF100[nPos], "1"          )//F100 - 02 - IND_OPER ( 0 - Entrada, > 0 - Saída )
aAdd (aRetF100[nPos], '000001'     )//F100 - 03 - COD_PART (Entrada= SA2->A2_COD, Saida= SA1->A1_COD)
aAdd (aRetF100[nPos], 'CODIGO ITEM')//F100 - 04 - COD_ITEM
aAdd (aRetF100[nPos], '01112015'   )//F100 - 05 - DT_OPER
aAdd (aRetF100[nPos], 100.00       )//F100 - 06 - VL_OPER
aAdd (aRetF100[nPos], '01'         )//F100 - 07 - CST_PIS
aAdd (aRetF100[nPos], 100.00       )//F100 - 08 - VL_BC_PIS
aAdd (aRetF100[nPos], 10.00        )//F100 - 09 - ALIQ_PIS
aAdd (aRetF100[nPos], 10.00        )//F100 - 10 - VL_PIS 
aAdd (aRetF100[nPos], '01          )//F100 - 11 - CST_COFINS



aAdd (aRetF100[nPos], 100.00       )//F100 - 12 - VL_BC_COFINS
aAdd (aRetF100[nPos], 10.00        )//F100 - 13 - ALIQ_COFINS
aAdd (aRetF100[nPos], 10.00        )//F100 - 14 - VL_COFINS
aAdd (aRetF100[nPos], '00'         )//F100 - 15 - NAT_BC_CRED
aAdd (aRetF100[nPos], '1'          )//F100 - 16 - IND_ORIG_CRED
aAdd (aRetF100[nPos], '11111'      )//F100 - 17 - COD_CTA
aAdd (aRetF100[nPos], '11111'      )//F100 - 18 - COD_CCUS
aAdd (aRetF100[nPos], 'DESC. DOC.  )//F100 - 19 - DESC_DOC_OPER
aAdd (aRetF100[nPos], '01'         )//F100 - 20 - LOJA (Entrada = SA2->A2_LOJA, Saída = SA1->A1_LOJA) 
aAdd (aRetF100[nPos], '0'          )//F100 - 21 - INDICE DE CUMULATIVIDADE( 0 - Cumulativo, 1 - Não cumulativo )



aAdd (aRetF100[nPos], ''           )//0150- 02 - COD_PART
aAdd (aRetF100[nPos], ''           )//0150- 03 - NOME
aAdd (aRetF100[nPos], ''           )//0150- 04 - COD_PAIS
aAdd (aRetF100[nPos], ''           )//0150- 05 - CNPJ
aAdd (aRetF100[nPos], ''           )//0150- 06 - CPF
aAdd (aRetF100[nPos], ''           )//0150- 07 - IE
aAdd (aRetF100[nPos], ''           )//0150- 08 - COD_MUN
aAdd (aRetF100[nPos], ''           )//0150- 09 - SUFRAMA
aAdd (aRetF100[nPos], ''           )//0150- 10 - END
aAdd (aRetF100[nPos], ''           )//0150- 11 - NUM
aAdd 
Return (nPos)

Aviso

title	Importante

05. DEMAIS INFORMAÇÕES

Para o exemplo de utilização demonstrado no código acima foi criada a tabela SPED1300C.DBF para alimentar os registros 1300, 1310 e 1320.

...

(aRetF100[nPos], ''               )//0150- 12 - COMPL
aAdd (aRetF100[nPos], ''               )//0150- 13 - BAIRRO
aAdd (aRetF100[nPos], ctod("//")       )//0500 - 02 - DT_ALT
aAdd (aRetF100[nPos], '01'             )//0500 - 03 - COD_NAT_CC
aAdd (aRetF100[nPos], 'A'              )//0500 - 04 - IND_CTA
aAdd (aRetF100[nPos], '1'              )//0500 - 05 - NIVEL
aAdd (aRetF100[nPos], '11111'          )//0500 - 06 - COD_CTA
aAdd (aRetF100[nPos], 'NOME DA CONTA'  )//0500 - 07 - NOME_CTA
aAdd (aRetF100[nPos], '01'             )//0500 - 08 - COD_CTA_REF
aAdd (aRetF100[nPos], '00000000000100' )//0500 - 09 - CNPJ_EST 
aAdd (aRetF100[nPos], ''               )//Codigo da tabela da Natureza da Receita.
aAdd (aRetF100[nPos], ''               )//Codigo da Natureza da Receita
aAdd (aRetF100[nPos], ''               )//Grupo da Natureza da Receita
aAdd (aRetF100[nPos], ctod("//")       )//Dt.Fim Natureza da Receita
aAdd (aRetF100[nPos], '01102012'       )//0600 - 02 - DT_ALT
aAdd (aRetF100[nPos], '11111'          )//0600 - 03 - COD_CCUS
aAdd (aRetF100[nPos], 'CENTRO DE CUSTO')//0600 - 04 - CCUS
aAdd (aRetF100[nPos], 'SA1'            )//SA1 para considerar cadastro de cliente, ou SA2 para considerar cadastro de Fornecedor 


Return (aRetF100)

05. DEMAIS INFORMAÇÕES

Variáveis

Nome	Tipo	Descrição	Pode Alterar
aRet	Array of Record	Global	Não

Aviso

title	Importante

Esse ponto de entrada somente se aplica para a rotina nova de apuração, a rotina antiga não terá mais manutenção conforme link abaixo:

APUPISCOF - Apuração PIS/COFINS - EFD Contribuições

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

03. ESPECIFICAÇÃO

Sintaxe

Parâmetros do ponto de entrada:

Retorno:

05. DEMAIS INFORMAÇÕES

05. DEMAIS INFORMAÇÕES