1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Quando usar o No-Undo

Discussão em 'Progress 4GL' iniciado por fdantas, Janeiro 22, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Código:
    Def Var c-nao-desfaz As Char No-undo.
    Def Var c-sim-desfaz As Char.
    Def Var i-erro       As Int  No-undo.
    
    Assign c-nao-desfaz = 'Fabio'
           c-sim-desfaz = 'Fabio'.
    
    Do Transaction :
    
        Assign c-nao-desfaz = 'Fabio Dantas'
               c-sim-desfaz = 'Fabio Dantas'.
    
        Undo, Leave.
    
    End.
    
    Message c-nao-desfaz Skip c-sim-desfaz
        View-as Alert-box Info Buttons Ok.

Compartilhe esta Página