quarta-feira, 27 de novembro de 2013

Habilita permissão de Saldo Negativo ( Datasul )


FOR EACH familia
    WHERE fm-codigo BEGINS "50" OR fm-codigo BEGINS "60":  
   
    ASSIGN familia.perm-saldo-neg = 3.   /* PERMITE SALDO NEGATIVO */

END.                                           

                                               

FOR EACH item

    WHERE fm-codigo BEGINS "50" OR fm-codigo BEGINS "60":  

    ASSIGN item.perm-saldo-neg = 3.   /* PERMITE SALDO NEGATIVO */


END.


                                               

FOR EACH param-estoq:

    ASSIGN param-estoq.perm-saldo-neg = 3.   /* PERMITE SALDO NEGATIVO */


END.


                                               

FOR EACH item-mat-estab
    WHERE fm-codigo BEGINS "50" OR fm-codigo BEGINS "60":  

    ASSIGN item-mat-estab.perm-saldo-neg = 3.   /* PERMITE SALDO NEGATIVO */         


END.


                                               

FOR EACH fam-mat-estab
    WHERE fm-codigo BEGINS "50" OR fm-codigo BEGINS "60":  

    ASSIGN fam-mat-estab.perm-saldo-neg = 3.   /* PERMITE SALDO NEGATIVO */


END.


                                               

FOR EACH item-uni-estab
    WHERE it-codigo BEGINS "50" OR it-codigo BEGINS "60":  

    ASSIGN item-uni-estab.perm-saldo-neg = 3.   /* PERMITE SALDO NEGATIVO */     


END.


                                               

FOR EACH fam-uni-estab
    WHERE fm-codigo BEGINS "50" OR fm-codigo BEGINS "60":  

    ASSIGN fam-uni-estab.perm-saldo-neg = 3.   /* PERMITE SALDO NEGATIVO */


END.


                                               

FOR EACH mnt-familia
    WHERE fm-codigo BEGINS "50" OR fm-codigo BEGINS "60":  

    ASSIGN mnt-familia.perm-saldo-neg = 3.   /* PERMITE SALDO NEGATIVO */

    
END.

                                               

FOR EACH mnt-item
    WHERE fm-codigo BEGINS "50" OR fm-codigo BEGINS "60":  

    ASSIGN mnt-item.perm-saldo-neg = 3.   /* PERMITE SALDO NEGATIVO */


END.


Nenhum comentário:

Postar um comentário