01. DADOS GERAIS

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


02. DESCRIÇÃO

Inclusão do ponto de entrada SPDPIS07, para possibilitar a geração do registro 0500 e para registros que estão ligados ao Documento Fiscal (Registro C170/C180) quando o código da conta contábil é diferente do informado na nota fiscal.


Esse PE não deve ser usado para manipular o código da conta contábil nos registros M115 e M515. Para essa finalidade existe o PE EFDCON04, onde poderá ser alterado algumas informações desses registros: PE - EFDCON04 - Ajuste de crédito pis/cofins Apuração EFD Contribuições

Em casos onde é necessário manipular a conta contábil do registro F100 e eventuais registros do bloco M de receitas não tributadas (M400/M410 e M800/M810), deve ser utilizado o PE EFDCON03: PE - EFDCON03 - Conta Contábil do Registro F100 EFD Contribuições

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

NomeTipoDescrição
PARAMIXBArray of Record

Array com dados de processamento com 9 elementos

[1] = Filial;

[2] = Tipo Movimento - Que pode ser E de Entrada ou S de Saída;

[3] = Serie;

[4] = Nota fiscal;

[5] = Cliente ou fornecedor;

[6] = Loja;

[7] = Item;

[8] = Produto;

[9] = Conta contábil contido na nota;


Todos os elementos são disponibilizados a partir da nota fiscal, detalhes dos itens (tabela SFT)

[1] = FT_FILIAL

[2] = FT_TIPOMOV

[3] = FT_SERIE

[4] = FT_NFISCAL

[5] = FT_CLIEFOR

[6] = FT_LOJA

[7] = FT_ITEM

[8] = FT_PRODUTO

[9] = FT_CONTA

O elemento [9] = Conta contábil contido na nota, foi adicionado a partir da data de fontes FISA001 e FISA008 de 17/12/2021.

Retorno:

NomeTipoDescrição

Caractere

Retorna a conta contábil a ser utilizada

04. EXEMPLO DE UTILIZAÇÃO


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

Local	cFilial	    :=	PARAMIXB[1]	//FT_FILIAL
Local	cTpMov		:=	PARAMIXB[2]	//FT_TIPOMOV
Local	cSerie		:=	PARAMIXB[3]	//FT_SERIE
Local	cDoc		:=	PARAMIXB[4]	//FT_NFISCAL
Local	cClieFor	:=	PARAMIXB[5]	//FT_CLIEFOR
Local	cLoja		:=	PARAMIXB[6]	//FT_LOJA
Local	cItem		:=	PARAMIXB[7]	//FT_ITEM
Local	cProd		:=	PARAMIXB[8]	//FT_PRODUTO	 	
Local	cConta	    :=	PARAMIXB[9]	//FT_CONTA

IF Empty(cConta)     
    cConta := '1310306'    
Endif

Return cConta

05. DEMAIS INFORMAÇÕES