PE - SPDPIS09 - EFD Contribuições- Adiciona linhas nos Registros F100, 0150, 0500 e 0600

01. DADOS GERAIS

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
cFilial	Caracter	Filial
dDataIni	Array of Record	Data de:
dDataFim	Array of Record	Data Até:

Retorno:

Nome	Tipo	Descrição
aRetF100	array_of_record	Array contendo as informações referentes a geração dos registros F100, 0150, 0500 e 0600.

04. EXEMPLO DE UTILIZAÇÃO

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 (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

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