| 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.
| Descrição | Sintaxe |
|---|---|
| SPDPIS09 - Adiciona registro F100/0150/0500/0600 | ( [ cFil ], [ dDataDe ], [ dDataAte ] ) --> aRetF100 |
| Nome | Tipo | Descrição |
|---|---|---|
| cFilial | Caracter | Filial |
| dDataIni | Array of Record | Data de: |
| dDataFim | Array of Record | Data Até: |
| Nome | Tipo | Descrição |
|---|---|---|
| aRetF100 | array_of_record | Array contendo as informações referentes a geração dos registros F100, 0150, 0500 e 0600. |
#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)
|
Variáveis
| Nome | Tipo | Descrição | Pode Alterar |
|---|---|---|---|
| aRet | Array of Record | Global | Não |
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: |