285 lines
10 KiB
Plaintext
285 lines
10 KiB
Plaintext
IMPORT util
|
|
IMPORT os
|
|
|
|
FUNCTION productos(pdata)
|
|
DEFINE xfecha_conteo DATE
|
|
DEFINE pdata STRING
|
|
|
|
DEFINE producto RECORD
|
|
codid INT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descripcion VARCHAR(100),
|
|
unidad_med VARCHAR(4),
|
|
factor_conv FLOAT,
|
|
despiece STRING,
|
|
existencia DEC(12,5),
|
|
consumo DEC(12,5),
|
|
costo DEC(12,5),
|
|
precio DEC(12,2),
|
|
ordenes DEC(12,5),
|
|
despachado DEC(12,5),
|
|
desglose VARCHAR(1),
|
|
|
|
reservada DEC(12,5),
|
|
disponible DEC(12,5),
|
|
transito DEC(12,5),
|
|
dias SMALLINT,
|
|
fecha CHAR(10),
|
|
fecha_conteo CHAR(10)
|
|
END RECORD
|
|
DEFINE existencia RECORD
|
|
codid INT,
|
|
bodega SMALLINT,
|
|
descripcion_bodega VARCHAR(100),
|
|
cantidad FLOAT,
|
|
cod_seccion INT,cod_tramo INT,cod_fila INT,cod_pos,
|
|
fecha DATE
|
|
END RECORD
|
|
DEFINE p RECORD
|
|
credenciales RECORD
|
|
usuario,clave,tipo_inventario VARCHAR(50),
|
|
codn INT
|
|
END RECORD,
|
|
|
|
productos DYNAMIC ARRAY OF RECORD
|
|
codid INT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descripcion VARCHAR(100),
|
|
unidad_med VARCHAR(4),
|
|
factor_conv FLOAT,
|
|
despiece STRING,
|
|
existencia DEC(12,5),
|
|
consumo DEC(12,5),
|
|
costo DEC(12,5),
|
|
precio DEC(12,2),
|
|
ordenes DEC(12,5),
|
|
despachado DEC(12,5),
|
|
desglose VARCHAR(1),
|
|
reservada DEC(12,5),
|
|
disponible DEC(12,5),
|
|
transito DEC(12,5),
|
|
dias SMALLINT,
|
|
fecha CHAR(10),
|
|
fecha_conteo CHAR(10)
|
|
|
|
END RECORD ,
|
|
existencia DYNAMIC ARRAY OF RECORD
|
|
codid INT,
|
|
bodega SMALLINT,
|
|
descripcion_bodega VARCHAR(100),
|
|
cantidad FLOAT,
|
|
cod_seccion INT,cod_tramo INT,cod_fila INT,cod_pos,
|
|
fecha DATE
|
|
END RECORD,
|
|
mensajes RECORD
|
|
cod_msg INT,
|
|
descripcion STRING
|
|
END RECORD
|
|
END RECORD,
|
|
i int,
|
|
selec,s1 STRING,
|
|
fecha,fecha_ini DATE
|
|
CALL util.JSON.parse(pdata,p)
|
|
IF STATUS < 0 THEN
|
|
LET p.mensajes.cod_msg=STATUS
|
|
LET p.mensajes.descripcion = 'ERROR EN CONEXION ',SQLCA.sqlerrm
|
|
RETURN util.JSON.stringify(p)
|
|
|
|
END IF
|
|
# DISPLAY "productos ",p.credenciales.usuario," ",p.credenciales.clave," ",p.credenciales.tipo_inventario
|
|
CONNECT TO "smarmotech" USER p.credenciales.usuario USING p.credenciales.clave
|
|
IF STATUS < 0 THEN
|
|
LET p.mensajes.cod_msg=STATUS
|
|
LET p.mensajes.descripcion = 'ERROR EN CONEXION ',SQLCA.sqlerrm
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(p)
|
|
|
|
END IF
|
|
LET fecha = TODAY
|
|
LET fecha_ini = fecha - 90
|
|
|
|
IF p.credenciales.tipo_inventario = "productos" THEN
|
|
SELECT a.fecha_conteo INTO xfecha_conteo FROM intb00044 a
|
|
WHERE a.tipo_inventario = tipo_inventario AND a.disponible = "SI"
|
|
DISPLAY "ESTOY PRODUCTOS",p.credenciales.codn
|
|
|
|
IF p.credenciales.codn >0 THEN
|
|
LET selec =
|
|
"SELECT a.codid,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec,a.descrip_esp,a.unidad_med,ISNULL(d.factor_conv,1),b.cod_n,
|
|
'0','0', '0','0','0','0',a.desglose ",
|
|
" FROM iptb00002 a,iptb00001 d LEFT OUTER JOIN iptb00027 b ON d.cod_n = b.cod_n and
|
|
d.cod_grupo = b.cod_grupo and d.cod_tipo = b.cod_tipo and d.cod_sec = b.cod_sec
|
|
where ",
|
|
" (a.cod_n = d.cod_n and a.cod_grupo = d.cod_grupo and a.cod_tipo = d.cod_tipo and ",
|
|
" a.cod_sec = d.cod_sec AND a.cod_n= ",p.credenciales.codn,") and a.status_t IS NULL AND ",
|
|
|
|
"a.control_existencia='SI' ORDER BY a.codid "
|
|
|
|
LET s1 =
|
|
"SELECT a.codid,b.bodega,c.descripcion,ISNULL(SUM(b.cantidad_2),0),d.cod_seccion,d.cod_tramo,d.cod_fila,d.cod_pos
|
|
FROM iptb00006 b,iptb00002 a,intb00009 c,iptb00062 d
|
|
WHERE (a.cod_n = b.cod_n and a.cod_n =",p.credenciales.codn,
|
|
|
|
" and a.cod_grupo = b.cod_grupo and a.cod_tipo = b.cod_tipo and a.cod_sec = b.cod_sec) and b.status_t is null ",
|
|
" and (d.cod_n = a.cod_n and d.cod_grupo = a.cod_grupo and d.cod_tipo = a.cod_tipo and d.cod_Sec = a.cod_sec) ",
|
|
" and ",
|
|
"a.control_existencia='SI' AND a.dispositivo_movil='SI' and b.bodega = c.cod_bodega ",
|
|
|
|
" group by a.codid,b.bodega,c.descripcion,d.cod_seccion,d.cod_tramo,d.cod_fila,d.cod_pos ",
|
|
" having SUM(b.cantidad_2) > 0 "
|
|
|
|
ELSE
|
|
LET selec =
|
|
"SELECT a.codid,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec,a.descrip_esp,a.unidad_med,ISNULL(d.factor_conv,1),b.cod_n,
|
|
'0','0', '0','0','0','0',a.desglose ",
|
|
" FROM iptb00002 a,iptb00001 d LEFT OUTER JOIN iptb00027 b ON d.cod_n = b.cod_n and
|
|
d.cod_grupo = b.cod_grupo and d.cod_tipo = b.cod_tipo and d.cod_sec = b.cod_sec
|
|
where ",
|
|
" (a.cod_n = d.cod_n and a.cod_grupo = d.cod_grupo and a.cod_tipo = d.cod_tipo and ",
|
|
" a.cod_sec = d.cod_sec) AND a.status_t IS NULL AND ",
|
|
"a.control_existencia='SI' ORDER BY a.codid "
|
|
|
|
LET s1 =
|
|
"SELECT a.codid,b.bodega,c.descripcion,ISNULL(SUM(b.cantidad_2),0),d.cod_seccion,d.cod_tramo,d.cod_fila,d.cod_pos
|
|
FROM iptb00006 b,iptb00002 a,intb00009 c,iptb00062 d
|
|
WHERE (a.cod_n = b.cod_n ",
|
|
" and a.cod_grupo = b.cod_grupo and a.cod_tipo = b.cod_tipo and a.cod_sec = b.cod_sec) and b.status_t is null ",
|
|
" and (d.cod_n = a.cod_n and d.cod_grupo = a.cod_grupo and d.cod_tipo = a.cod_tipo and d.cod_Sec = a.cod_sec) ",
|
|
" and a.control_existencia='SI' AND a.dispositivo_movil='SI' and b.bodega = c.cod_bodega ",
|
|
" group by a.codid,b.bodega,c.descripcion,d.cod_seccion,d.cod_tramo,d.cod_fila,d.cod_pos ",
|
|
" having SUM(b.cantidad_2) > 0 "
|
|
|
|
END IF
|
|
END IF
|
|
IF p.credenciales.tipo_inventario = "materia_prima" THEN
|
|
SELECT a.fecha_conteo INTO xfecha_conteo FROM intb00044 a
|
|
WHERE a.tipo_inventario = tipo_inventario AND a.disponible = "SI"
|
|
LET selec =
|
|
"SELECT a.codid,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec,a.descrip_esp,a.unidad_med,'1','NO','0','0',",
|
|
" '0','0',' ' ",
|
|
" FROM intb00001 a where a.status_t is null "
|
|
LET s1 =
|
|
"SELECT a.codid,b.bodega,SUM(b.cantidad_2),0,0,0,0 FROM intb00006 b,intb00001 a WHERE a.cod_n = b.cod_n and ",
|
|
" a.cod_grupo = b.cod_grupo and a.cod_tipo = b.cod_tipo and a.cod_sec = b.cod_sec and b.status_t is null",
|
|
" group by a.codid,b.bodega ",
|
|
" having SUM(b.cantidad_2) > 0 "
|
|
DISPLAY "TIPO INVENTARIO ",p.credenciales.tipo_inventario
|
|
|
|
END IF
|
|
IF p.credenciales.tipo_inventario = "repuestos" THEN
|
|
SELECT a.fecha_conteo INTO xfecha_conteo FROM intb00044 a
|
|
WHERE a.tipo_inventario = tipo_inventario AND a.disponible = "SI"
|
|
LET selec =
|
|
"SELECT a.codid,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec,a.descrip_esp,a.unidad_med,'1','NO','0','0',",
|
|
" '0','0',' ' ",
|
|
" FROM irtb00002 a where a.status_t is null "
|
|
LET s1 =
|
|
"SELECT a.codid,b.bodega,SUM(b.cantidad_2),0,0,0,0 FROM irtb00006 b,irtb00002 a WHERE a.cod_n = b.cod_n and ",
|
|
" a.cod_grupo = b.cod_grupo and a.cod_tipo = b.cod_tipo and a.cod_sec = b.cod_sec and b.status_t is null",
|
|
" group by a.codid,b.bodega ",
|
|
" having SUM(b.cantidad_2) > 0 "
|
|
|
|
|
|
END IF
|
|
|
|
|
|
PREPARE comando FROM selec
|
|
DECLARE c2 CURSOR FOR comando
|
|
|
|
LET i = 1
|
|
FOREACH c2 INTO producto.*
|
|
|
|
IF producto.cod_n IS NOT null THEN
|
|
IF p.credenciales.tipo_inventario = 'productos' THEN
|
|
LET producto.costo=0
|
|
# CALL disponibles(producto.cod_n,producto.cod_grupo,producto.cod_tipo,producto.cod_sec,TODAY)
|
|
# RETURNING producto.ordenes,producto.despachado,producto.transito,producto.existencia,
|
|
# producto.reservada
|
|
LET producto.disponible = producto.existencia - (producto.ordenes+producto.despachado+producto.reservada)
|
|
IF producto.disponible IS NULL THEN
|
|
LET producto.disponible=0
|
|
END IF
|
|
# DESPIECE
|
|
IF producto.despiece IS NULL THEN
|
|
LET producto.despiece = 'NO'
|
|
ELSE
|
|
LET producto.despiece = 'SI'
|
|
END IF
|
|
|
|
END IF
|
|
IF producto.consumo < 0 THEN
|
|
LET producto.consumo = producto.consumo * -1
|
|
END IF
|
|
IF producto.consumo > 0 THEN
|
|
LET producto.dias =(producto.disponible/ producto.consumo) * 90
|
|
ELSE
|
|
LET producto.dias=0
|
|
END IF
|
|
IF producto.descripcion IS NULL THEN
|
|
LET producto.descripcion = "NO TIENE"
|
|
END IF
|
|
IF producto.unidad_med IS NULL THEN
|
|
LET producto.unidad_med='UD'
|
|
END IF
|
|
LET producto.fecha=TODAY USING "dd/mm/yyyy"
|
|
|
|
LET producto.fecha_conteo = xfecha_conteo
|
|
LET p.productos[i].* = producto.*
|
|
LET i = i + 1
|
|
|
|
|
|
END IF
|
|
|
|
|
|
END FOREACH
|
|
DISPLAY "NUMERO DE PRODUCTOS ",i
|
|
LET i = 1
|
|
|
|
PREPARE comando2 FROM s1
|
|
DECLARE c3 CURSOR FOR comando2
|
|
|
|
FOREACH c3 INTO existencia.*
|
|
IF existencia.cantidad IS NOT NULL THEN
|
|
IF existencia.codid > 0 THEN
|
|
LET existencia.fecha = today
|
|
LET p.existencia[i].* = existencia.*
|
|
IF p.existencia[i].cantidad IS NULL THEN
|
|
LET p.existencia[i].cantidad=0
|
|
END IF
|
|
LET i = i+1
|
|
END IF
|
|
END IF
|
|
END FOREACH
|
|
DISPLAY "NUMERO DE PRODUCTOS EXISTENCIA ",i
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(p)
|
|
|
|
END FUNCTION
|
|
FUNCTION fotos(fullpath)
|
|
DEFINE filename, s STRING,
|
|
fullpath VARCHAR(100)
|
|
DEFINE r_photo RECORD
|
|
i BYTE
|
|
END RECORD
|
|
|
|
# primero asignar la variable fullpath con el nombre mas el path-default o como sea en tu caso
|
|
#CALL os.path.join(images_cat_path CLIPPED,pname) RETURNING fullpath
|
|
# despu�s dependiendo de si el archivo existe o no armar el string para enviar al cliente
|
|
IF os.path.exists(fullpath) THEN
|
|
LOCATE r_photo.i IN MEMORY
|
|
CALL r_photo.i.readFile(fullpath)
|
|
LET s=util.JSON.stringify(r_photo)
|
|
FREE r_photo.i
|
|
ELSE
|
|
LET s="FILE_NOT_FOUND"
|
|
END IF
|
|
RETURN s
|
|
|
|
END FUNCTION
|