Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagecpp
themeEclipse
firstline1
linenumberstrue
User Function EICLO100()
Local lRet := .T.
Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,"")) 

    Do Case
        Case cParam == "ANTES_GRAVA_FECHAMENTO"
            MsgInfo("Entrou no Ponto de entrada")

        Case cParam == "ANTES_GRAVA_ESTORNO"
            MsgInfo("Entrou no Ponto de entrada")

        Case cParam == "FECHAMENTO"
            MsgInfo("Entrou no Ponto de entrada")

        Case cParam == "ESTORNA"
           MsgInfo("Entrou no Ponto de entrada")
            
    ENDCASE

Return lRet

...