Histórico da Página
...
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
Exemplo de Código para a rotina FINA460 (FINM010)
...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include 'Protheus.ch'
User Function FINM010()
Local aParam := PARAMIXB
Local xRet := .T.
Local oObj := ''
Local cIdPonto := ''
Local cIdModel := ''
Local oFK1 := Nil
Local oFK5 := 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 " )
oFK5:= oObj:GetModel('FK5DETAIL')
oFK5:SetValue('FK5_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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas