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