Linha Microsiga Protheus

Árvore de páginas

Extinção do ponto de entrada SE5FI460

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Função:

FINA460 - Liquidação

Situação:

Após a conversão da rotina em MVC a chamada do ponto de entrada SE5FI460 ficou incorreta, gerando erro de fim de arquivo na tabela SE5.

Solução/Implementação:

Na versão 12.1.6 o ponto de entrada SE5FI460 será desativado e para o mesmo fim deverá ser utilizado a estrutura de ponto de entrada MVC.

Ticket relacionado:

#271740

Link de como utilizar os pontos de entrada MVC 

Pontos de Entrada MVC


De acordo com a regra as tabelas disponíveis e ocorrência durante a execução do ponto de entrada da rotina FINM010 serão:


Para gravação nas tabelas utilizar o ponto MODELPOS

FK1Baixas a Receber
FK3Impostos Calculados
FK4Impostos Retidos
FK5Movimentos Bancários
FK6Valores Acessórios
FK7Tabela Auxiliar
FK8Dados contábeis
FK9Auxiliar de integração
FKARastreio de Movimentos

 

Para gravação na tabela abaixo utilizar o ponto MODELCOMMITTTS

SE5Movimentacao Bancaria

Exemplo de Código para a rotina FINA460 (FINM010) 

Exemplo de Código para a rotina FINA460 (FINM010) 
#Include 'Protheus.ch'
User Function FINM010()
Local aParam     := PARAMIXB
Local xRet       := .T.
Local oObj       := ''
Local cIdPonto   := ''
Local cIdModel   := ''
Local oFK1 := Nil

If aParam <> NIL
	oObj       := aParam[1]
	cIdPonto   := aParam[2]
	cIdModel   := aParam[3]

           
	If cIdPonto == 'MODELPOS'
		oFK1:= oObj:GetModel('FK1DETAIL')
		oFK1:SetValue('FK1_HISTOR',  " TESTE DO PONTO DE ENTRADA MVC FINM010 " )

       ElseIf cIdPonto == 'MODELCOMMITTTS'
			SE5->E5_HISTOR := " TESTE DO PONTO DE ENTRADA MVC FINM010 "  
       EndIf      
      
EndIf
 
Return xRet