IMPORT util

FUNCTION valida_avance(xvalida)
  DEFINE xmsg RECORD
    nombre_cliente  STRING,
    direccion       STRING,
    mensaje_out     STRING,
    cod_msg         SMALLINT
  END RECORD,
   selec STRING,
   xvalida STRING,
   data RECORD
     usuario    VARCHAR(50),
     clave      VARCHAR(50),
     cotizacion_no INT
   END RECORD
   CALL util.JSON.parse(xvalida,data)
      
WHENEVER ERROR CONTINUE
   
   CONNECT TO "smarmotech" USER data.usuario USING data.clave
        IF STATUS < 0 THEN
         LET xmsg.mensaje_out=  'ERROR EN USUARIO CONECTANDOSE A LA BASE DE DATOS'
         LET xmsg.cod_msg=STATUS
         RETURN util.JSON.stringify(xmsg)
        ELSE
         LET xmsg.mensaje_out=  "USUARIO VALIDO"
         LET xmsg.cod_msg=0
        
      END IF
 
   LET selec=
      "SELECT DISTINCT a.documento_Ref FROM cctb00001 a ",
      "WHERE a.documento_ref =",data.cotizacion_no," AND a.tipo_Doc = 'AV' AND a.status_t IS NULL"

  
   PREPARE comando FROM selec
   EXECUTE comando  USING data.cotizacion_no
   IF STATUS <> NOTFOUND THEN
      LET xmsg.mensaje_out = "COTIZACION TIENE RECIBO AVANCE, NO PUEDE ANULAR"
      LET xmsg.cod_msg=-3
      RETURN util.JSON.stringify(xmsg)
   ELSE
      LET xmsg.mensaje_out = "PROCEDE"
      LET xmsg.cod_msg=0
   
   END IF   
 DISCONNECT CURRENT

 RETURN util.JSON.stringify(xmsg)
END FUNCTION