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