103 lines
3.1 KiB
Plaintext
103 lines
3.1 KiB
Plaintext
IMPORT util
|
|
IMPORT security
|
|
|
|
FUNCTION produccion(pdata)
|
|
DEFINE i SMALLINT,
|
|
pdata STRING
|
|
|
|
DEFINE data RECORD
|
|
generales RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(50)
|
|
END RECORD,
|
|
detalle DYNAMIC ARRAY OF RECORD
|
|
inventario STRING,
|
|
codigo INT,
|
|
producto STRING,
|
|
cantidad FLOAT,
|
|
lado_1 FLOAT,
|
|
lado_2 FLOAT,
|
|
lado_3 FLOAT,
|
|
medida FLOAT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
departamento VARCHAR(70),
|
|
num_oc INT,
|
|
cliente VARCHAR(100),
|
|
num_doc INT,
|
|
fecha DATE,
|
|
fecha_crea DATETIME YEAR TO MINUTE,
|
|
fecha_mod DATETIME YEAR TO MINUTE,
|
|
estado VARCHAR(20)
|
|
END RECORD
|
|
END RECORD
|
|
DEFINE r_out RECORD
|
|
orden INT,
|
|
mensaje_out STRING,
|
|
cod_msg INT
|
|
END RECORD
|
|
|
|
# LOCATE data.archivos.imagen IN MEMORY
|
|
CALL util.JSON.parse(pdata,data)
|
|
# WHENEVER ERROR CONTINUE
|
|
|
|
CONNECT TO "smarmotech" USER data.generales.usuario USING data.generales.clave
|
|
IF STATUS < 0 THEN
|
|
LET r_out.cod_msg = STATUS
|
|
LET r_out.orden=0
|
|
LET r_out.mensaje_out = 'ERROR EN USUARIO CONECTANDOSE A LA BASE DE DATOS'
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(r_out)
|
|
END IF
|
|
IF data.detalle.getLength() > 0 THEN
|
|
|
|
|
|
FOR i = 1 TO data.detalle.getLength()
|
|
IF data.detalle[i].num_doc IS NOT NULL THEN
|
|
IF data.detalle[i].num_oc IS NULL THEN
|
|
LET data.detalle[i].num_oc = 0
|
|
END IF
|
|
INSERT INTO etiquetas
|
|
(idnumero,
|
|
fecha,
|
|
departamento ,
|
|
num_oc ,
|
|
codid ,
|
|
cod_n ,
|
|
cod_grupo ,
|
|
cod_tipo ,
|
|
cod_sec ,
|
|
descripcion ,
|
|
lado_1 ,
|
|
lado_2 ,
|
|
lado_3 ,
|
|
cantidad ,
|
|
medida ,
|
|
estado ,
|
|
us_mod ,
|
|
fech_mod,
|
|
tipoInventario )
|
|
VALUES
|
|
(data.detalle[i].num_doc,data.detalle[i].fecha,data.detalle[i].departamento,
|
|
data.detalle[i].num_oc,
|
|
data.detalle[i].codigo,data.detalle[i].cod_n,data.detalle[i].cod_grupo,
|
|
data.detalle[i].cod_tipo,
|
|
data.detalle[i].cod_sec,data.detalle[i].producto,data.detalle[i].lado_1,
|
|
data.detalle[i].lado_2,
|
|
data.detalle[i].lado_3,data.detalle[i].cantidad,data.detalle[i].medida,
|
|
data.detalle[i].estado,
|
|
data.generales.usuario,data.detalle[i].fecha_mod,
|
|
data.detalle[i].inventario)
|
|
|
|
END IF
|
|
END FOR
|
|
END IF
|
|
|
|
LET r_out.cod_msg=13
|
|
LET r_out.mensaje_out='ADICION EXITOSA'
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(r_out)
|
|
END FUNCTION
|