Duvida Next em transaction

Discussão em 'Progress 4GL' iniciado por erickles, Setembro 16, 2014.

  1. erickles

    erickles Membro Participativo

    Boa tarde pessoal,

    Supomos que eu tenha o seguinte código, e sempre que houver alguma inconsistência no mesmo, eu quero dar um NEXT no loop da tabela es-fat-duplic. Esta correto da maneira que estou fazendo abaixo?

    Código:
    blk_Principal:
        FOR EACH es-fat-duplic WHERE es-fat-duplic.data-geracao >= 08/23/2011
                                 AND es-fat-duplic.u-log-1      = NO:
            FIND FIRST titulo WHERE titulo.ep-codigo   = 1
                                AND titulo.nr-docto    = es-fat-duplic.nr-fatura
                                AND titulo.cod-estabel = es-fat-duplic.cod-estabel
                                AND titulo.serie       = es-fat-duplic.serie
                                AND titulo.parcela     = es-fat-duplic.parcela
                                NO-LOCK NO-ERROR.
    
            IF AVAIL titulo THEN DO:
    
                FOR EACH btitulo WHERE btitulo.ep-codigo    = 1
                                   AND btitulo.nr-docto     = titulo.nr-docto
                                   AND btitulo.cod-estabel  = titulo.cod-estabel
                                   AND btitulo.serie        = titulo.serie
                                   AND btitulo.parcela      = titulo.parcela
                                   AND btitulo.vl-saldo     = titulo.vl-original
                                   NO-LOCK:
    
                    IF btitulo.dt-vencimen < TODAY THEN DO:
                        ASSIGN es-fat-duplic.u-log-1 = YES.
                        NEXT blk_Principal.
                    END.
           
                    RUN pi-acompanhar IN h-acomp (input "Lendo..." + STRING(es-fat-duplic.nr-fatura)).
       
                    RUN pi-AplicaRestricoes.
                    IF RETURN-VALUE = "NOK" THEN NEXT blk_Principal.
       
                    RUN pi-CriaRegistroEnvio.
                    IF RETURN-VALUE = "NOK" THEN NEXT blk_Principal.
                END.
            END.
            ELSE DO:
                ASSIGN es-fat-duplic.u-log-1 = YES.
                NEXT blk_Principal.
            END.
        END.
  2. pizzaia

    pizzaia Membro Participativo

    me parece correto.

Compartilhe esta Página