Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Anedino dos Santos

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Anedino dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoBackoffice

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

...

E2_NUM: 000000313

F2_NFICMST: ICM000000313

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

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.

...

Aviso
titleImportante!

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
languagejava
themeMidnight
titleTITICMST
linenumberstrue
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



Templatedocumentos