38 lines
1.2 KiB
Plaintext
38 lines
1.2 KiB
Plaintext
SCHEMA mbs
|
|
MAIN
|
|
CONNECT TO "smarmotech" USER 'jsoto' USING 'lmmjvsd2014'
|
|
CALL actproducto()
|
|
END MAIN
|
|
|
|
FUNCTION actproducto()
|
|
DEFINE producto RECORD LIKE iptb00002.*,
|
|
pfactor,cantidad_orden,pcantidadConduce,transito,existencia,reservado,pexistencia DEC(12,5),
|
|
pprecio,ppreciord,ptasa DEC(12,2),
|
|
pfecha DATE
|
|
|
|
DECLARE buscar CURSOR FOR
|
|
SELECT a.codid,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec FROM iptb00016 a
|
|
WHERE a.status_t IS NULL
|
|
|
|
LET pfecha=TODAY
|
|
FOREACH buscar INTO producto.codid,producto.cod_n,producto.cod_grupo,producto.cod_tipo,producto.cod_sec
|
|
|
|
CALL disponibles(producto.cod_n,producto.cod_grupo,producto.cod_tipo,producto.cod_sec,pfecha)
|
|
RETURNING cantidad_orden,pcantidadConduce,transito,existencia,reservado
|
|
LET pexistencia = 0
|
|
LET pexistencia = existencia - (cantidad_orden-pcantidadConduce)-reservado
|
|
IF pexistencia < 0 THEN
|
|
CONTINUE FOREACH
|
|
END IF
|
|
|
|
UPDATE iptb00016 set
|
|
disponible = pexistencia
|
|
WHERE codid = producto.codid
|
|
|
|
DISPLAY "ACTUALICE: ",producto.descrip_esp," CODID ",producto.codid," EXISTENCIA ",pexistencia
|
|
|
|
|
|
|
|
END FOREACH
|
|
|
|
END FUNCTION |