jpegueroandClaude Sonnet 5
b6085d4140
Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
19 lines
632 B
Plaintext
19 lines
632 B
Plaintext
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 |