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().
...
E2_NUM: 000000313
F2_NFICMST: ICM000000313
03. ESPECIFICAÇÃO
Parâmetros do ponto de entrada:
| 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 |
|---|
|
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} |
