quarta-feira, 27 de novembro de 2013

Corrige Informação de Credito do Emitente pelo Grupo ( Datasul )

FOR EACH gr-cli:

    IF  gr-cli.ind-aval[1] = 1 AND
        gr-cli.ind-aval[2] = 1 THEN NEXT.

    DISPLAY gr-cli.cod-gr-cli
            gr-cli.descricao
            gr-cli.ind-apr-cred
            gr-cli.ind-aval[1]
            gr-cli.ind-aval[2]
            gr-cli.lim-credito
            WITH FRAME a WIDTH 300 STREAM-IO.

    FOR EACH emitente OF gr-cli:

        IF gr-cli.ind-aval[1] <> 1 OR
           gr-cli.ind-aval[2] <> 1  THEN DO: /* AVALIA CREDITO */

            IF emitente.ind-cre-cli <> 4 THEN

                ASSIGN emitente.ind-cre-cli = 1.

            emitente.ind-aval
            emitente.ind-aval-embarque
            emitente.lim-credito

        END.

        DISPLAY emitente.cod-emit   AT 08
                emitente.nome-abrev
                emitente.nome-emit
                emitente.cgc
                emitente.ind-cre-cli
                emitente.ind-aval
                emitente.ind-aval-embarque
                emitente.lim-credito
                WITH WIDTH 300 STREAM-IO FRAME b 10000 DOWN.

    END.

    PAUSE 0.

END.

Nenhum comentário:

Postar um comentário