Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- MEMBER PROCEDURE retirar_estoque IS
- i INTEGER;
- item ITEMCOMPRA_TP;
- BEGIN
- FOR i IN 1..SELF.ITENS.COUNT
- LOOP
- UPDATE ITEMESTOQUE
- SET QUANTIDADE = QUANTIDADE -1
- WHERE CODIGO = SELF.ITENS(i).ITEMESTOQUE.CODIGO;
- END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement