Histórico da Página
...
Feito ajuste para que seja possível utilizar o ponto de entrada CN120VEST, na rotina Nova Medição (CNTA121).
Está solução paliativa foi necessária devido a função de estorno da rotina CNTA121 não estar preparada para executar ponto de entrada em MVC.
04. DEMAIS INFORMAÇÕES
...
MVC, ao executar a função de estorno da medição.
04. DEMAIS INFORMAÇÕES
Segue exemplo de como o ponto de entrada deve ser desenvolvido.
Obs.: Para garantir a eficiência do ponto de entrada, faça o tratamento conforme a função GetTypeRet do retorno da função xRet para que não ocorra erros caso o ponto de entrada não seja executado.
| Bloco de código | ||
|---|---|---|
| ||
#include 'protheus.ch'
#include 'parmtype.ch'
User Function CNTA121()
Local oMdl := Nil
Local cStage := ""
Local xRet := Nil
If ValType( PARAMIXB ) <> "U"
oMdl := PARAMIXB[1]
cStage := PARAMIXB[2]
xRet := GetTypeRet( cStage , xRet )
If FwIsInCallStack('CN121Estorn')
If cStage == "MODELVLDACTIVE"
Alert("Estornado com sucesso")
xRet := .T.
Else
xRet := .F.
Alert("Não foi é possível realizar o estorno")
xRet := .T.
EndIf
EndIf
EndIf
Return xRet
Static Function GetTypeRet( cStage , xRet )
Default xRet := Nil
Default cStage := ""
If cStage + "|" $ "MODELPRE|MODELPOS|FORMPRE|FORMPOS|FORMLINEPRE|FORMLINEPOS|FORMCANCEL|MODELVLDACTIVE|MODELCANCEL|"
xRet := .T.
ElseIf cStage == "BUTTONBAR"
xRet := {}
EndIf
Return ( xRet ) |
05. ASSUNTOS RELACIONADOS
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas