quarta-feira, 27 de novembro de 2013

Verificar Saldo do Estoque ( Datasul )


DEF VAR d-saldo LIKE saldo-estoq.qtidade-atu.
DEF VAR c-tipo1 AS CHAR FORMAT "x(30)".
DEF VAR c-tipo2 AS CHAR FORMAT "x(30)".

OUTPUT TO c:\itens.txt.

FOR EACH ITEM NO-LOCK:

    FIND item-uni-estab NO-LOCK WHERE
         item-uni-estab.it-codigo = item.it-codigo AND
         item-uni-estab.cod-estabel = "101" NO-ERROR.

    FOR EACH saldo-estoq NO-LOCK WHERE
        saldo-estoq.cod-estabel = item-uni-estab.cod-estabel AND
        saldo-estoq.it-codigo   = item-uni-estab.it-codigo:
        ASSIGN d-saldo = d-saldo + saldo-estoq.qtidade-atu.
    END.

    CASE ITEM.tipo-contr:
         WHEN 1 THEN ASSIGN c-tipo1 = "Fisico".
         WHEN 2 THEN ASSIGN c-tipo1 = "Total".
         WHEN 3 THEN ASSIGN c-tipo1 = "Consignado".
         WHEN 4 THEN ASSIGN c-tipo1 = "Debito Direto".
    END CASE.

    CASE ITEM.cod-obsoleto:
         WHEN 1 THEN ASSIGN c-tipo2 = "Ativo".
         WHEN 2 THEN ASSIGN c-tipo2 = "Obsoleto Ordens Automaticas".
         WHEN 3 THEN ASSIGN c-tipo2 = "Obsoleto todas as Ordens".
         WHEN 4 THEN ASSIGN c-tipo2 = "Totalmente Obsoleto".
    END CASE.
 
    PUT ITEM.it-codigo
        "#"
        ITEM.desc-item
        "#"
        /*ITEM.tipo-contr ITEM.cod-obsoleto.*/
        c-tipo1
        "#"
        c-tipo2
        "#"
        d-saldo
        SKIP.

    ASSIGN d-saldo = 0.

END.

OUTPUT CLOSE.

Nenhum comentário:

Postar um comentário