Public Shared Sub GuardarCliente(ByVal cliente As ClienteEntity)
Try
Using cn As OracleConnection = Conexion.Conectar("default")
cn.Open()
Using cmd As OracleCommand = cn.CreateCommand()
cmd.CommandText = "Prueba2.pakclientes.usp_addcliente"
cmd.CommandType = CommandType.StoredProcedure
With cmd.Parameters
.Add("int_idcliente", OracleDbType.Int32, ParameterDirection.Input).Value = cliente.IdCliente
.Add("str_ruc", OracleDbType.Varchar2, 11, ParameterDirection.Input).Value = cliente.Ruc
.Add("str_nombre", OracleDbType.Varchar2, 80, ParameterDirection.Input).Value = cliente.Nombre