Consulta de produtos com estoque e sem custo

Consulta de produtos com estoque positivo e sem custos:


SELECT EST.CODEMP, EST.CODLOCAL, EST.CODPROD, PRO.DESCRPROD, EST.ESTOQUE, EST.RESERVADO
,Obtemcusto(EST.CODPROD, 'S', EST.CODEMP, 'N', 0, 'N', '', SYSDATE,0) AS CUSREP
,Obtemcusto(EST.CODPROD, 'S', EST.CODEMP, 'N', 0, 'N', '', SYSDATE,3) AS CUSSEMICM
,Obtemcusto(EST.CODPROD, 'S', EST.CODEMP, 'N', 0, 'N', '', SYSDATE,4) AS CUSMEDICM
,Obtemcusto(EST.CODPROD, 'S', EST.CODEMP, 'N', 0, 'N', '', SYSDATE,5) AS ENTRADASEMICMS
,Obtemcusto(EST.CODPROD, 'S', EST.CODEMP, 'N', 0, 'N', '', SYSDATE,6) AS ENTRADACOMICMS
FROM TGFEST EST, TGFPRO PRO
WHERE EST.CODPROD=PRO.CODPROD AND NVL(EST.ESTOQUE,0)>0 AND PRO.CODVOL<>'SV'


Update copiando o custo de reposição para os demais custos zerados:

UPDATE TGFCUS SET CUSMEDICM=CUSREP, CUSSEMICM=CUSREP, ENTRADACOMICMS=CUSREP, ENTRADASEMICMS=CUSREP WHERE NVL(CUSMEDICM,0)=0