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