Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
Comment: Migration of unmigrated content due to installation of a new plugin
Portuguese

Pagetitle
TITICMST - GravaTit do programa FISXAPUR
TITICMST - GravaTit do programa FISXAPUR

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...
Programa Fonte
MATXFIS
Sintaxe

TITICMST - 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 

 

Retorno
ARRAY
    (vetor)
  • [1] = Retornar o numero do titulo.[2] = Retornar o vencimento do titulo.
Observações

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

Exemplos
User 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