105 lines
3.5 KiB
Plaintext
105 lines
3.5 KiB
Plaintext
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
|