64 lines
1.9 KiB
Plaintext
64 lines
1.9 KiB
Plaintext
IMPORT util
|
|
IMPORT os
|
|
IMPORT security
|
|
DEFINE j INT,
|
|
url_folder STRING,
|
|
tmpfile STRING
|
|
FUNCTION respuestas(pdata)
|
|
|
|
DEFINE pdata STRING,
|
|
foto_empleado BYTE
|
|
|
|
DEFINE p RECORD
|
|
credenciales RECORD
|
|
usuario,clave VARCHAR(50)
|
|
END RECORD,
|
|
repuesta RECORD
|
|
num_emp INT,
|
|
cedula,
|
|
nombre,
|
|
id_pregunta,pregunta,repuesta,departamento string
|
|
END RECORD,
|
|
mensajes RECORD
|
|
cod_msg INT,
|
|
descripcion STRING
|
|
END RECORD
|
|
END RECORD,
|
|
selec STRING,
|
|
url_files STRING
|
|
|
|
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 "<RESPUESTA:>USUARIO: ",p.credenciales.usuario," pass ",p.credenciales.clave
|
|
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 selec =
|
|
"INSERT INTO encuestas.dbo.respuestas( cedula,created_at,nombre,num_emp,departamento,respuesta,pregunta,
|
|
id_pregunta )
|
|
VALUES ( ?,GETDATE(),?,?,?,?,?,? ) "
|
|
|
|
PREPARE comando FROM selec
|
|
EXECUTE comando USING p.repuesta.cedula,p.repuesta.nombre,p.repuesta.num_emp,p.repuesta.departamento,
|
|
p.repuesta.repuesta,p.repuesta.pregunta,p.repuesta.id_pregunta
|
|
|
|
|
|
DISCONNECT CURRENT
|
|
LET p.mensajes.cod_msg=200
|
|
LET p.mensajes.descripcion = 'ADICION EXITOSA'
|
|
|
|
RETURN util.JSON.stringify(p)
|
|
|
|
END FUNCTION
|