01. DADOS GERAIS

Linha de Produto:

Segmento:

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.

O registro da tabela SE2 está posicionado nesse momento.

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

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

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.

NomeTipoDescrição
PARAMIXB[1]CarácterNome da rotina que está sendo executada
PARAMIXB[2]CarácterTipo do imposto contido na guia de recolhimento.
PARAMIXB[3]LógicoVerifica 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.

Nome

Tipo

Descrição

aDados[1]CarácterNúmero da guia
aDados[2]DataData de vencimento



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

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