Ponto-de-Entrada: TITICMST - GravaTit() do programa FISXAPUR
Abrangências: | Microsiga Protheus 10 |
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Descrição:Ponto de Entrada 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.O registro da tabela SE2 está posicionado. É passado como parâmetro para o ponto de entrada o nome da rotina que esta sendo executada no momento para facilitar o desenvolvimento de situações especificas dentro do ponto de entrada, o outro parâmetro identifica o tipo do imposto contido na guia de recolhimento, tabela SF6.Também é utilizado por outras rotinas, como MATA954 (Apuração de ISS), MATA953 (Apuração de ICMS), etc...
SintaxeTITICMST - GravaTit() do programa FISXAPUR ( [ @ARRAY ] ) --> ARRAY
Parâmetros:
| Nome | | | Tipo | | | Descrição | | | Default | | | Obrigatório | | | Referência | |
| ARRAY | | | Vetor | | | [1] = Nome da Rotina que executou a geração do Titulo.[2] = Tipo do imposto da guia de recolhimento | | | | | | | | | X | |
RetornoARRAY(vetor)- [1] = Retornar o numero do titulo.[2] = Retornar o vencimento do titulo.
ObservaçõesA USER FUNCTION pode retornar Nil e manter o tratamento padrão, ou pode retornar um array contendo no primeiro indice o número do título que foi alterado e no segundo indice o vencimento do título que foi alterado, caso sejam alterados diretamente na tabela conforme modelo demonstrado neste help.
No caso de títulos de Apuração de imposto, esses novos valores serão replicados nos arquivos *.IS0,*.IC0, etc...
ExemplosUser Function TITICMSTLocal cOrigem := PARAMIXB[1]Local cTipoImp := PARAMIXB[2]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.)EndIf //EXEMPLO 2 (cTipoImp)If AllTrim(cTipoImp)='3' // 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.)EndIfReturn {SE2->E2_NUM,SE2->E2_VENCTO}
Variáveis
| Nome | | | Tipo | | | Escopo | | | Pode Alterar | | | descrição | |
| | | | Array of Record | | | Global | | | Não | | | | |