Histórico da Página

#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') //Garante que o ponto só será utilizado no estorno da medição
            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


//Função para tratamento da variavel xRet para que não ocorra erro caso o ponto de entrada não seja executado
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 )