1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Anuncie Aqui
  3. Anuncie Aqui
    Anuncie aqui você Também: fdantas@4each.com.br
Cookies A2 Solutions Anuncie Aqui

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' ?!?!?!?!?!
    bootstrapmaster, Fevereiro 6, 2024
    #1
    Clovis_jrj, 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...)
    lcpaulino, Fevereiro 6, 2024
    #2
  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..."
    af.dums, Fevereiro 7, 2024
    #3

Compartilhe esta Página