46 lines
1.6 KiB
Plaintext
46 lines
1.6 KiB
Plaintext
IMPORT util
|
|
|
|
FUNCTION conteo_display()
|
|
DEFINE i INT
|
|
|
|
DEFINE id1 STRING
|
|
define producto RECORD
|
|
codigo string,
|
|
cod_n smallint,
|
|
cod_grupo smallint ,
|
|
cod_tipo smallint ,
|
|
cod_sec smallint ,
|
|
descripcion varchar(80) ,
|
|
cantidad base.StringTokenizer
|
|
END RECORD
|
|
|
|
|
|
BEGIN WORK
|
|
|
|
IF producto.codigo IS NOT NULL THEN
|
|
LET id1 = base.StringTokenizer.create(producto.codigo,"+¡")
|
|
LET producto.codigo = id1.nextToken()
|
|
LET producto.cantidad = id1.nextToken()
|
|
DISPLAY BY NAME producto.codigo,producto.cantidad
|
|
|
|
SELECT a.descrip_esp,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
|
|
a.factor_conv,a.cantidad_orden
|
|
INTO producto.descripcion,producto.cod_n,producto.cod_grupo,
|
|
producto.cod_tipo,producto.cod_Sec
|
|
FROM intb00002 a
|
|
WHERE a.idtrx= producto.codigo
|
|
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
ERROR "REGISTRO NO EXISTE"
|
|
NEXT FIELD codid
|
|
END IF
|
|
LET producto.codigo = producto.cod_n USING "&&&&","-",
|
|
producto.cod_grupo USING "&&&&","-",
|
|
producto.cod_tipo USING "&&&&","-",
|
|
producto.cod_sec USING "&&&&"
|
|
COMMIT WORK
|
|
|
|
RETURN util.JSON.stringify(o)
|
|
END FUNCTION
|