quarta-feira, 27 de novembro de 2013

Altera vencimento de Duplicatas (Datasul)



DEF VAR dia-ven-1       LIKE fazenda.dia-ven-1 INIT 6.
DEF VAR dia-ven-2       LIKE fazenda.dia-ven-1 INIT 21.
DEF VAR per-val-par01   LIKE fazenda.per-val-par01 INIT 100.

DEF VAR l-forn AS LOG FORMAT "Sim/Nao" INIT NO.
DEF VAR l-ac   AS LOG FORMAT "Sim/Nao" INIT NO.

UPDATE  l-forn          LABEL "Altera Fornecedor.." SKIP
        l-ac            LABEL "Altera Acessorio..." SKIP
        dia-ven-1       LABEL "Vencto 1. Dupl....." SKIP
        dia-ven-2       LABEL "Vencto 2. Dupl....." SKIP
        per-val-par01   LABEL "Percentual 1. Dupl."
        WITH FRAME A VIEW-AS DIALOG-BOX SIDE-LABELS TITLE "Duplicatas".

IF l-forn = YES THEN DO:
    FOR EACH fazenda:
      ASSIGN fazenda.dia-ven-1 = dia-ven-1
             fazenda.dia-ven-2 = dia-ven-2
             fazenda.per-val-par01 = per-val-par01.
    END.
END.

IF l-ac = YES  THEN DO:
    FOR EACH acess-faz:
      ASSIGN acess-faz.dia-ven-1 = dia-ven-1
             acess-faz.dia-ven-2 = dia-ven-2
             acess-faz.per-val-par01 = per-val-par01.
    END.
END.

Nenhum comentário:

Postar um comentário