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
Cookies Anuncie aqui Patrocinador Anuncios

Ajuda técnica For each em Campos

Discussão em 'Progress 4GL' iniciado por edevil, Março 21, 2018.

Página 2 de 2
  1. edevil

    edevil Membro Participativo

    Opa, achei aquele programa de VerregistroInteiro que você criou. vou usar ele como base,
    kkkk
    vlw!
    edevil, Março 21, 2018
    #7
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    DEF VAR meuBuffer AS HANDLE.
    DEF VAR campo AS HANDLE.

    FIND FIRST Mestre NO-LOCK NO-ERROR.

    CREATE BUFFER meuBuffer FOR TABLE Mestre.tabela.

    CREATE QUERY minhaQuery.
    minhaQuery:SET-BUFFERS(meuBuffer).
    minhaQuery:QUERY-PREPARE("FOR EACH " + meuBuffer:TABLE-HANDLE:NAME + " NO-LOCK").
    minhaQuery:QUERY-OPEN.

    minhaQuery:GET-FIRST(NO-LOCK).
    DO WHILE meuBuffer:AVAIL.
    campo = meuBuffer:BUFFER-FIELD("NomeCampo").
    IF campo:EXTENT > 0 THEN DO:
    MESSAGE campo:BUFFER-VALUE(1)
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    END.
    ELSE DO:
    MESSAGE campo:BUFFER-VALUE
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    END.
    minhaQuery:GET-NEXT(NO-LOCK).
    END.
    minhaQuery:QUERY-CLOSE.
    rafael.andrade, Março 21, 2018
    #8
    rohis curtiu isso.
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Código:
    DEF VAR meuBuffer AS HANDLE.
DEF VAR campo AS HANDLE.

FIND FIRST Mestre NO-LOCK NO-ERROR.

CREATE BUFFER meuBuffer FOR TABLE Mestre.tabela.

CREATE QUERY minhaQuery.
minhaQuery:SET-BUFFERS(meuBuffer).
minhaQuery:QUERY-PREPARE("FOR EACH " + meuBuffer:TABLE-HANDLE:NAME + " NO-LOCK").
minhaQuery:QUERY-OPEN.

minhaQuery:GET-FIRST(NO-LOCK).
DO WHILE meuBuffer:AVAIL.
   campo = meuBuffer:BUFFER-FIELD("NomeCampo").
   IF campo:EXTENT > 0 THEN DO:
      MESSAGE campo:BUFFER-VALUE(1)
              VIEW-AS ALERT-BOX INFO BUTTONS OK.
   END.
   ELSE DO:
      MESSAGE campo:BUFFER-VALUE
              VIEW-AS ALERT-BOX INFO BUTTONS OK.
   END.
   minhaQuery:GET-NEXT(NO-LOCK).
END.
minhaQuery:QUERY-CLOSE.
    rafael.andrade, Março 21, 2018
    #9
    rohis curtiu isso.
Página 2 de 2

Compartilhe esta Página