Histórico da Página
...
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.
...
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.) |
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
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 |
---|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas