Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
73 lines (54 sloc) 3.63 KB
Public Function GuardarRegistroTransferencia(ByVal eEntidad As RegistroTransferencia) As Integer
myConnection.Open()
Dim myTrans As MySqlTransaction = myConnection.BeginTransaction()
Dim Command As MySqlCommand = myConnection.CreateCommand()
Dim lsCommandstring As String = Resources.rsRegistroTransferencia.GuardarRegistroTransferencia
Dim newId As Integer
Dim dsDatos As New DataSet
Dim drDatos As MySqlDataReader
Dim detalle As String
Dim Comprobante As String
Try
Command.Transaction = myTrans
Command.CommandText = lsCommandstring
command.Parameters.Add("@FechaRegistro", MySql.Data.MySqlClient.MySqlDbType.DateTime).Value = eEntidad.FechaRegistro
command.Parameters.Add("@PesoBruto", MySql.Data.MySqlClient.MySqlDbType.Int32).Value = eEntidad.PesoBruto
command.Parameters.Add("@PesoNeto", MySql.Data.MySqlClient.MySqlDbType.Int32).Value = eEntidad.PesoNeto
command.Parameters.Add("@IdTipoIngreso", MySql.Data.MySqlClient.MySqlDbType.Int32).Value = eEntidad.TipoIngreso
command.Parameters.Add("@IdUsuario", MySql.Data.MySqlClient.MySqlDbType.Int32).Value = eEntidad.IdUsuario
command.Parameters.Add("@IdTransportePorCliente", MySql.Data.MySqlClient.MySqlDbType.Int32).Value = eEntidad.IdTransporte
Command.Parameters.Add("@IdPuntoTransferencia", MySql.Data.MySqlClient.MySqlDbType.Int32).Value = eEntidad.IdPuntoTransferencia
Command.Parameters.Add("@IdCliente", MySql.Data.MySqlClient.MySqlDbType.Int32).Value = eEntidad.IdCliente
command.ExecuteNonQuery()
newId = Command.LastInsertedId
Command.CommandText = Resources.rsRegistroTransferencia.RecuperarDetalleComprobantePorIdResgistroTransferencia
Command.Parameters.Add("@IdTransferencia", MySql.Data.MySqlClient.MySqlDbType.Int32).Value = newId
drDatos = Command.ExecuteReader()
drDatos.Read()
detalle = drDatos(0)
Comprobante = detalle.Replace("numeroComprobante", drDatos("idRegistroTransferencia"))
Comprobante = detalle.Replace("nombrePuntoTransferencia", drDatos("NombrePuntoTransferencia"))
Comprobante = detalle.Replace("nombreCliente", drDatos("Nombre"))
Comprobante = detalle.Replace("apellidoCliente", drDatos("Apellido"))
Comprobante = detalle.Replace("tipoTransferencia", drDatos("NombreTipo"))
Comprobante = detalle.Replace("fechaTransferencia", drDatos("FechaRegistro"))
Comprobante = detalle.Replace("numeroTransporte", drDatos("Transporte_idTransporte"))
Comprobante = detalle.Replace("detalleTransporte", drDatos("DescripTransporte"))
Comprobante = detalle.Replace("pesoTara", drDatos("PesoTara"))
Comprobante = detalle.Replace("pesoBruto", drDatos("PesoBruto"))
Comprobante = detalle.Replace("pesoNeto", drDatos("PesoNeto"))
Comprobante = detalle
Command.CommandText = Resources.rsRegistroTransferencia.GuardarComprobanteTransferenciaGenerada
Command.Parameters.Add("@DetalleComprobante", MySql.Data.MySqlClient.MySqlDbType.Text).Value = Comprobante
Command.Parameters.Add("@RegistroTransferencia", MySql.Data.MySqlClient.MySqlDbType.Int32).Value = newId
drDatos.Close()
Command.ExecuteNonQuery()
myTrans.Commit()
myConnection.Close()
Return newId
Catch ex As Exception
myTrans.Rollback()
myConnection.Close()
Return 0
End Try
End Function
Something went wrong with that request. Please try again.