FUNCTION control_costos(pcodn,pcodgrupo,pcodtipo,pcodsec,pfecha)
   DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec SMALLINT,
          costo_producto DEC(13,5),
          pfecha DATE
          
    LET costo_producto =0
    SELECT AVG(a.material+a.labor+a.gastos) INTO costo_producto
    FROM iptb00004 a
    WHERE a.cod_n =pcodn AND
          a.cod_grupo = pcodgrupo AND
          a.cod_tipo = pcodtipo AND
          a.cod_sec =pcodsec AND
          a.fecha <=pfecha   AND
          a.status_t IS NULL  
    IF costo_producto IS NULL THEN
       LET costo_producto = 0 
    END IF 
    RETURN costo_producto
END FUNCTION