76 lines
2.6 KiB
Plaintext
76 lines
2.6 KiB
Plaintext
IMPORT util
|
|
|
|
FUNCTION respuesta_cliente(data)
|
|
DEFINE i SMALLINT,
|
|
data STRING
|
|
DEFINE credenciales RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(50),
|
|
cotizacion INT,
|
|
cliente STRING,
|
|
respuesta SMALLINT,
|
|
comentario STRING,
|
|
dispositivo STRING
|
|
END RECORD,
|
|
mensaje RECORD
|
|
cod_msg INT,
|
|
descripcion STRING
|
|
END RECORD,
|
|
strquery STRING
|
|
|
|
CALL util.JSON.parse(data,credenciales)
|
|
|
|
DISPLAY " ENCUESTA CLIENTE RESPUESTA: ",credenciales.cotizacion," respuesta: ",credenciales.respuesta," CLIENTE: ",credenciales.cliente
|
|
|
|
CONNECT TO "smarmotech" USER credenciales.usuario USING credenciales.clave
|
|
IF STATUS < 0 THEN
|
|
|
|
LET mensaje.cod_msg=400
|
|
LET mensaje.descripcion='USUARIO NO ES VALIDO'
|
|
DISPLAY "USUARIO NO VALIDO ",SQLCA.sqlerrm
|
|
DISPLAY "COTIZACION: ",credenciales.COTIZACION
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(mensaje)
|
|
END IF
|
|
SELECT DISTINCT a.ventas , a.cotizacion_no , a.num_oc ,
|
|
a.tipo_cliente ,a.sec_cliente
|
|
|
|
FROM vetb00050 a
|
|
WHERE
|
|
a.cotizacion_no = credenciales.cotizacion AND
|
|
a.status_t IS null
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET mensaje.cod_msg = 400
|
|
LET mensaje.descripcion = 'COTIZACION NO EXISTE EN LA BASE DE DATOS'
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(mensaje)
|
|
END IF
|
|
|
|
LET strquery ="SELECT * FROM encuestas.dbo.respuesta_clientes where cotizacion_no=?"
|
|
|
|
PREPARE buscadata FROM strquery
|
|
EXECUTE buscadata USING credenciales.cotizacion
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
LET mensaje.cod_msg = 400
|
|
LET mensaje.descripcion = 'COTIZACION YA TIENE ENCUESTA, NO PUEDES ADICIONAR'
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(mensaje)
|
|
|
|
END IF
|
|
# INSERTA RESPUESTA
|
|
LET strquery ="INSERT INTO encuestas.dbo.respuesta_clientes (cotizacion_no,cliente,comentario,dispositivo,respuesta,fech_crea) values
|
|
(?,?,?,?,?,getdate()) "
|
|
PREPARE instcommand FROM strquery
|
|
EXECUTE instcommand USING credenciales.cotizacion,credenciales.cliente,credenciales.comentario, credenciales.dispositivo,
|
|
credenciales.respuesta
|
|
|
|
LET mensaje.cod_msg = 200
|
|
LET mensaje.descripcion = 'OPERACION EXITOSA'
|
|
DISCONNECT CURRENT
|
|
|
|
|
|
RETURN util.JSON.stringify(mensaje)
|
|
END FUNCTION
|