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

Interessante Da pra acreditar ?????

Discussão em 'Progress 4GL' iniciado por bootstrapmaster, Fevereiro 6, 2024.

  1. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Então, eu vendo como que um programa da totvs faz o que faz, pra ajustar um especifico e dou de cara com esse codigo ....
    Código:
    if  v_nom_prog_dpc <> '' then
    do:
        assign v_rec_table_epc = recid(cliente).   
        run value(v_nom_prog_dpc) (input 'INITIALIZE',
                                    input 'viewer',
                                    input this-procedure,
                                    input v_wgh_frame_epc,
                                    input v_nom_table_epc,
                                    input v_rec_table_epc).
        if  'no' = 'yes'
        and return-value = 'NOK' then
            undo, retry.
    end.
    Veja o detalhe, if 'no' = 'yes' ?!?!?!?!?!
    Marcos Frasson e rafael.andrade curtiram isso.
  2. lcpaulino

    lcpaulino Membro Participativo

    kkkk... tá cheio disso nos programas do ACR e do APB... (acho que alguém fez isso uma vez... e outros foram copiando...)
  3. af.dums

    af.dums Membro Ativo

    Poderia estar acompanhando de um comentário do tipo "não sei o que é, mas não vou alterar porque está funcionando..."

Compartilhe esta Página