IMPORT util

FUNCTION clientes(data)
  DEFINE i INT,
         data STRING
  DEFINE p RECORD
         credenciales RECORD
           usuario,clave VARCHAR(50)
     END RECORD,  
     clientes DYNAMIC ARRAY OF RECORD
        tipo_cliente SMALLINT ,
        sec_cliente INT ,
        nombre CHAR(100) ,
        cod_zona SMALLINT ,
        cod_provincia SMALLINT ,
        id_ciudad SMALLINT ,
        direccion VARCHAR(80),
        celular CHAR(20),
        telefono_oficina CHAR(20),
        email CHAR(100),
        cond_pago SMALLINT,
        tipo_negocio SMALLINT,
        num_rnc CHAR(11),
        sec_vend INTEGER,
        email_vendedor STRING 
    END RECORD,
    mensajes RECORD
      cod_msg INT,
      descripcion STRING
    END RECORD
   END RECORD
    DEFINE cliente RECORD
        tipo_cliente SMALLINT ,
        sec_cliente INT ,
        nombre CHAR(100) ,
        cod_zona SMALLINT ,
        cod_provincia SMALLINT ,
        id_ciudad SMALLINT ,
        direccion VARCHAR(80),
        celular CHAR(20),
        telefono_oficina CHAR(20),
        email CHAR(100),
        cond_pago SMALLINT,
        tipo_negocio SMALLINT,
        num_rnc CHAR(11),
        sec_vend INTEGER,
        email_vendedor STRING 
    END RECORD
    CALL util.JSON.parse(data,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  
   IF P.credenciales.usuario IS null THEN
      LET p.mensajes.cod_msg=-1
      LET p.mensajes.descripcion = 'USUARIO ESTA NULO '
      RETURN util.JSON.stringify(p)

   END IF  
   
 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 
       DECLARE u27 CURSOR FOR SELECT   DISTINCT 
                                       a.tipo_cliente,
                                       a.sec_cliente ,
                                       a.nombre ,
                                       a.cod_zona,
                                       a.cod_provincia ,
                                       a.id_ciudad,
                                       ISNULL(d.calle," ")||", "||ISNULL(d.casa_num," ")||" "||
                                       ISNULL(d.barrio," ")||" "||ISNULL(d.urbanizacion," "),
                                       a.telex ,
                                       a.telefono,
                                       a.patente ,
                                       a.cond_pago ,
                                       a.tipo_negocio ,
                                       a.num_rnc,
                                       c.sec_vend
                                       
      INTO cliente.* FROM vetb00004 a ,vetb00060 b,vetb00028 c ,vetb00005 d
      WHERE a.tipo_cliente = b.tipo_cliente
        AND a.tipo_cliente = c.tipo_cliente AND
            a.sec_cliente = c.sec_cliente AND
            a.tipo_cliente = d.tipo_cliente AND
            a.sec_cliente = d.sec_cliente AND
            a.tipo_cliente > 14 and
            a.status_t IS NULL
      LET i=0 FOREACH u27 LET i=i+1 LET p.clientes[i].*=cliente.*
    
    END FOREACH; FREE u27
      LET p.mensajes.cod_msg=0
      LET p.mensajes.descripcion = 'ENVIO INFORMACION CLIENTES EXITOSA'
      DISCONNECT CURRENT 
      RETURN util.JSON.stringify(p)
 
END FUNCTION