68 lines
1.6 KiB
Plaintext
68 lines
1.6 KiB
Plaintext
IMPORT util
|
|
|
|
FUNCTION clientes_update(d)
|
|
|
|
DEFINE d STRING
|
|
DEFINE clientes RECORD
|
|
tipo_cliente smallint,
|
|
sec_cliente int,
|
|
nombre varchar(100) ,
|
|
cod_zona smallint ,
|
|
cod_provincia smallint,
|
|
telefono char(25),
|
|
fax char(25),
|
|
telex char(25),
|
|
patente varchar(80),
|
|
limite_credito dec(10, 2),
|
|
zona_postal char(10),
|
|
num_rnc char(25) ,
|
|
nombre_patente char(30),
|
|
status_t char(1) ,
|
|
us_crea char(50) ,
|
|
fech_crea DATETIME YEAR TO MINUTE,
|
|
us_mod char(50),
|
|
fech_mod DATETIME YEAR TO MINUTE,
|
|
Puesto_laboral varchar(50),
|
|
telefono_casa varchar(25),
|
|
tipo_negocio SMALLINT,
|
|
cond_pago SMALLINT,
|
|
id_ciudad SMALLINT ,
|
|
url varchar(200)
|
|
|
|
|
|
END RECORD
|
|
DEFINE r RECORD
|
|
ERRORES STRING
|
|
END RECORD
|
|
|
|
TRY
|
|
CALL util.JSON.parse(d, clientes)
|
|
CATCH
|
|
LET r.errores = "FGL ERROR: ", err_get(status)
|
|
RETURN util.JSON.stringify(r)
|
|
END TRY
|
|
UPDATE vetb00004 SET
|
|
nombre =clientes.nombre ,
|
|
cod_zona =clientes.cod_zona ,
|
|
cod_provincia =clientes.cod_provincia,
|
|
telefono =clientes.telefono,
|
|
fax =clientes.fax,
|
|
telex =clientes.telex,
|
|
patente=clientes.patente,
|
|
|
|
zona_postal =clientes.zona_postal,
|
|
num_rnc= clientes.num_rnc ,
|
|
nombre_patente =clientes.nombre_patente,
|
|
us_mod =clientes.us_mod,
|
|
fech_mod= getdate(),
|
|
Puesto_laboral=clientes.puesto_laboral,
|
|
telefono_casa =clientes.telefono_casa,
|
|
tipo_negocio=clientes.tipo_negocio,
|
|
|
|
id_ciudad=clientes.id_ciudad ,
|
|
url=clientes.url
|
|
WHERE tipo_cliente = clientes.tipo_cliente AND
|
|
sec_cliente = clientes.sec_cliente
|
|
RETURN util.JSON.stringify(clientes)
|
|
END FUNCTION
|