64 lines
1.9 KiB
Plaintext
64 lines
1.9 KiB
Plaintext
IMPORT util
|
|
|
|
FUNCTION ordenes_cliente(data)
|
|
DEFINE i SMALLINT,
|
|
data STRING
|
|
DEFINE credenciales RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(50),
|
|
orden INT
|
|
END RECORD
|
|
DEFINE p RECORD
|
|
orden_master RECORD
|
|
ventas char(1) ,
|
|
cotizacion_no INT ,
|
|
num_oc INT ,
|
|
tipo_cliente SMALLINT ,
|
|
sec_cliente SMALLINT ,
|
|
cliente VARCHAR(100)
|
|
END RECORD,
|
|
mensajes RECORD
|
|
cod_msg INT,
|
|
descripcion STRING
|
|
END RECORD
|
|
END RECORD
|
|
CALL util.JSON.parse(data,credenciales)
|
|
DISPLAY " OPERACION ORDEN USUARIO ",credenciales.usuario," clave ",credenciales.clave
|
|
CONNECT TO "smarmotech" USER credenciales.usuario USING credenciales.clave
|
|
IF STATUS < 0 THEN
|
|
|
|
LET p.mensajes.cod_msg=400
|
|
LET p.mensajes.descripcion='USUARIO NO ES VALIDO'
|
|
DISPLAY "USUARIO NO VALIDO ",SQLCA.sqlerrm
|
|
DISPLAY "ORDEN: ",credenciales.orden
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(p)
|
|
END IF
|
|
SELECT DISTINCT a.ventas , a.cotizacion_no , a.num_oc ,
|
|
a.tipo_cliente ,a.sec_cliente ,d.nombre
|
|
|
|
INTO p.orden_master.*
|
|
FROM vetb00050 a LEFT OUTER JOIN prtb00012 b ON b.cotizacion_no = a.cotizacion_no AND
|
|
b.status_t IS NULL,
|
|
vetb00004 d
|
|
WHERE
|
|
a.cotizacion_no = credenciales.orden AND
|
|
a.tipo_cliente = d.tipo_cliente AND
|
|
a.sec_cliente = d.sec_cliente AND
|
|
a.status_t IS null
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET p.mensajes.cod_msg = 400
|
|
LET p.mensajes.descripcion = 'COTIZACION NO EXISTE EN LA BASE DE DATOS'
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(p)
|
|
END IF
|
|
|
|
LET p.mensajes.cod_msg = 200
|
|
LET p.mensajes.descripcion = 'OPERACION EXITOSA'
|
|
DISCONNECT CURRENT
|
|
|
|
|
|
RETURN util.JSON.stringify(p)
|
|
END FUNCTION
|