J Marcos

Uso o IBEXPERT E ESTOU TENTANDO CRIAR UM PROCEDURE COM A SEGUINTE CONDIÇÃO SE O CAMPO X DA TABELA RECEBER 0 VAI FAZER A SEGUITE CONTA SE 1 VAI FAZER A SEGUINTE CONTA A PARTE DO CODIGO E ESSE if (estoque.promocao=1) then update ESTOQUE SET ESTOQUE.prc_venda=ESTOQUE.prc_custo + ( (ESTOQUE.prc_custo * (ESTOQUE.icms_aliq / 100)) ) + /* icms % */ ( (ESTOQUE.prc_custo * (ESTOQUE.aliq_ipi / 100)) ) + /* ipi % */ ( (ESTOQUE.prc_custo * (ESTOQUE.perc_frete / 100)) ) + /* frete % */ ( (ESTOQUE.prc_custo * (ESTOQUE.markup / 100)) ) + /* markup % */ ( (ESTOQUE.prc_custo * (ESTOQUE.mg_lucro / 100)) ) /* lucro % */ where ESTOQUE.codigo =( SELECT COMPRAS_ITENS.cod_produto FROM COMPRAS_ITENS WHERE FILIAL=:filial AND CODIGO=:CODIGO_COMPRA AND COD_PRODUTO=ESTOQUE.CODIGO ) and estoque.filial=:filial and ESTOQUE.codigo=(SELECT COD_PRODUTO FROM COMPRAS_ITENS WHERE FILIAL=:filial AND CODIGO=:CODIGO_COMPRA AND COD_PRODUTO=ESTOQUE.CODIGO); /* ------------------------------------------------------------- */ /********* ENTRADA NO ESTOQUE - AO EFETIVAR A COMPRA ************/ update estoque SET QTD_TOTAL=QTD_TOTAL + ( SELECT QUANTIDADE FROM COMPRAS_ITENS WHERE FILIAL=:filial AND CODIGO=:CODIGO_COMPRA AND COD_PRODUTO=ESTOQUE.CODIGO ) where ESTOQUE.FILIAL=:FILIAL and estoque.codigo=(SELECT COD_PRODUTO FROM COMPRAS_ITENS WHERE FILIAL=:filial AND CODIGO=:CODIGO_COMPRA AND COD_PRODUTO=ESTOQUE.CODIGO); /*********************** FECHAR COMPRA ******************************/ update COMPRAS SET ATUALIZADO='S' WHERE FILIAL=:filial AND CODIGO=:CODIGO_COMPRA; end