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