Histórico da Página

01. DADOS GERAIS

Linha de Produto:

Linhas_totvs

Linha	Linha Protheus

Segmento:

Segmentos_totvs

Segmento	Backoffice

Módulo:

Livros Fiscais - SIGAFIS

02. DESCRIÇÃO

Este Ponto de Entrada está localizado após a gravação das informações padrões do tributo para título a ser gerado no financeiro. Isso vale para todos os impostos processados na função GravaTit().

Deve ser utilizado para complementar ou alterar os valores padrões já gravados no título, gerado pelos programas MATA461 (Nota Fiscal de Saída) ou MATA103 (Nota Fiscal de Entrada) através da configuração via F12, para gerar títulos de ICMS-ST e DIFAL.

...

São passados como parâmetros para o ponto de entrada, :

o nome da rotina que está sendo executada no momento, para facilitar o desenvolvimento de situações especificas dentro do ponto de entrada

...

;
o tipo do imposto contido na guia de recolhimento da tabela SF6;
e o último parâmetro identifica se o título a ser gravado no momento se trata de DIFAL.

Também é utilizado por outras rotinas, como MATA954 (Apuração de ISS), MATA953 (Apuração de ICMS), etc....

Informações

title	Obs.:

Quando não é utilizado o ponto de entrada o sistema efetua o relacionamento entre nota e titulo através dos campos F2_NFICMST, E2_NUM e F6_NUMERO.

Nesse caso ao efetuar o lançamento da nota o sistema irá gravar os campos com a mesma numeração conforme o exemplo a seguir:

F6_NUMERO: ICM000000313

E2_NUM: 000000313

F2_NFICMST: ICM000000313

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

O PARAMIXB será um array com 3 posições conforme abaixo.

Nome	Tipo	Descrição
PARAMIXB[1]	Carácter	Nome da rotina que está sendo executada
PARAMIXB[2]	Carácter	Tipo do imposto contido na guia de recolhimento.
PARAMIXB[3]	Lógico	Verifica se o titulo a ser gravado no momento, trata-se de DIFAL (.T.) ou não (.F.)

Retorno:

O Sistema espera um array com duas posições.

...

Aviso

title	Importante!

Este ponto de entrada deve ser utilizado somente para alteração do número, data de vencimento e natureza do título.

Não recomendamos a alteração de nenhum outro campo da tabela SE2, pois a rastreabilidade dos títulos pode ser prejudicada ocasionando problemas em exclusões de títulos, GNRE's ou em arquivos magnéticos.

04. EXEMPLO DE UTILIZAÇÃO

Bloco de código

language	java
theme	Midnight
title	TITICMST
linenumbers	true

User Function TITICMST
	Local cOrigem := PARAMIXB[1]
	Local cTipoImp := PARAMIXB[2]
	Local lDifal := PARAMIXB[3]
 
	//EXEMPLO 1 (cOrigem)
	If AllTrim(cOrigem)='MATA954' //Apuracao de ISS
   	 	SE2->E2_NUM := SE2->(Soma1(E2_NUM,Len(E2_NUM)))
    	SE2->E2_VENCTO := DataValida(dDataBase+30,.T.)
    	SE2->E2_VENCREA := DataValida(dDataBase+30,.T.)
   	 	SE2->E2_NATUREZ := 'EXEMPLO1'
	EndIf
 
	//EXEMPLO 2 (cTipoImp)
	If AllTrim(cTipoImp)='1' // ICMS ST
    	SE2->E2_NUM := SE2->(Soma1(E2_NUM,Len(E2_NUM)))
    	SE2->E2_VENCTO := DataValida(dDataBase+30,.T.)
    	SE2->E2_VENCREA := DataValida(dDataBase+30,.T.)
    	SE2->E2_NATUREZ := 'EXEMPLO2'
	EndIf
 
	//EXEMPLO 3 (lDifal)
	If lDifal // DIFAL
    	SE2->E2_NUM := SE2->(Soma1(E2_NUM,Len(E2_NUM)))
    	SE2->E2_VENCTO := DataValida(dDataBase+30,.T.)
    	SE2->E2_VENCREA := DataValida(dDataBase+30,.T.)
    	SE2->E2_NATUREZ := 'EXEMPLO3'
	EndIf
 
Return {SE2->E2_NUM,SE2->E2_VENCTO}

05. INFORMAÇÕES ADICIONAIS

PE - DADOSTIT - Alteração de valores da guia de recolhimento

Templatedocumentos

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave