diff --git a/Acarreos/CatChoferes.aspx b/Acarreos/CatChoferes.aspx index 9680d08b3..3cd1b9183 100644 --- a/Acarreos/CatChoferes.aspx +++ b/Acarreos/CatChoferes.aspx @@ -1,131 +1,173 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatChoferes.aspx.vb" Inherits="Acarreos_CatChoferes" %> - - - - - - - Catálogo de Choferes - - - - - - -
  • - -
    • -     -     -     - - - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - - - - > - - - - - - - - - - - - -     -     - <%--POPUP AGREGAR--%> - -     - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatChoferes.aspx.vb" Inherits="Acarreos_CatChoferes" %> + + + + + + + Catálogo de Choferes + + + + + + +
  • + +
    • +     +     +     + + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + > + + + + + + + + + + + + +     +     + <%--POPUP AGREGAR--%> + +     + + + diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb index 251fd78bb..2807faa3d 100644 --- a/Acarreos/CatChoferes.aspx.vb +++ b/Acarreos/CatChoferes.aspx.vb @@ -47,12 +47,12 @@ Partial Class Acarreos_CatChoferes Dim Estatus = 0 If ChkEstatus.Checked Then Estatus = 1 If HdnModalidad.Value = "A" Then - If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtDomicilio.Text.Trim, TxtTelefono.Text.Trim, TxtCiudad.Text.Trim, TxtLicencia.Text.Trim) Then + If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumInt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then CargaDatos() Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) End If ElseIf HdnModalidad.Value = "U" Then - If ObjAcar.UpdateChofer(HdnID.Value, TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtDomicilio.Text.Trim, TxtTelefono.Text.Trim, TxtCiudad.Text.Trim, TxtLicencia.Text.Trim) Then + If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then CargaDatos() Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -70,13 +70,25 @@ Partial Class Acarreos_CatChoferes UpDatos.Update() BtnAgregarChofer.Text = "Actualizar" myModalLabel.InnerText = "Actualizar Chofer" + TxtChofer.Text = GvRow.DataKey("Chofer") - TxtIdentificacion.Text = GvRow.DataKey("Identificacion") - TxtDomicilio.Text = GvRow.DataKey("Domicilio") + TxtIdentificacion.Text = GvRow.DataKey("Identificacion") TxtTelefono.Text = GvRow.DataKey("Telefono") + + TxtDomicilio.Text = GvRow.DataKey("Domicilio") + TxtNumInt.Text = GvRow.DataKey("NumeroInterior") + TxtNumExt.Text = GvRow.DataKey("NumeroExterior") + TxtColonia.Text = GvRow.DataKey("Colonia") TxtCiudad.Text = GvRow.DataKey("Ciudad") - TxtLicencia.Text = GvRow.DataKey("Licencia") - DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista")) + TxtEstado.Text = GvRow.DataKey("Estado") + TxtCP.Text = GvRow.DataKey("CP") + TxtLicencia.Text = GvRow.DataKey("Licencia") + + TxtNumRegidTribOperador.Text = GvRow.DataKey("NumRegidTribOperador") + TxtResidenciaFiscalOperador.Text = GvRow.DataKey("ResidenciaFiscalOperador") + + DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista")) + divEstatus.Visible = True ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) UpAddChofer.Update() diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb index 6c42c9419..14875112c 100644 --- a/App_Code/ClsAcarreos.vb +++ b/App_Code/ClsAcarreos.vb @@ -105,12 +105,13 @@ Public Class ClsAcarreos End Sub Public Sub Commit() SqlTransacc.Commit() - End Sub - - + End Sub + + #Region "Choferes" Public Function AddChofer(Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, CveTransportista As Integer, Identificacion As String, Telefono As String, Licencia As String, RFC As String, Domicilio As String, - Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "") As Boolean + Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "", + Optional NumRegidTribOperador As String = "", Optional ResidenciaFiscalOperador As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Acar_ChoferesAdd") With SqlAdapter.SelectCommand.Parameters @@ -129,6 +130,8 @@ Public Class ClsAcarreos .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad .Add("@Estado", SqlDbType.VarChar).Value = Estado .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@NumRegidTribOperador", SqlDbType.VarChar).Value = NumRegidTribOperador + .Add("@ResidenciaFiscalOperador", SqlDbType.VarChar).Value = ResidenciaFiscalOperador End With Try SqlAdapter.Fill(Data) @@ -141,7 +144,8 @@ Public Class ClsAcarreos End Function Public Function UpdateChofer(CveChofer As Integer, Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, Estatus As Integer, CveTransportista As Integer, Identificacion As String, Telefono As String, Licencia As String, RFC As String, Domicilio As String, - Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "") As Boolean + Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "", + Optional NumRegidTribOperador As String = "", Optional ResidenciaFiscalOperador As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Acar_ChoferesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -162,6 +166,8 @@ Public Class ClsAcarreos .Add("@Estado", SqlDbType.VarChar).Value = Estado .Add("@CP", SqlDbType.VarChar).Value = CP .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@NumRegidTribOperador", SqlDbType.VarChar).Value = NumRegidTribOperador + .Add("@ResidenciaFiscalOperador", SqlDbType.VarChar).Value = ResidenciaFiscalOperador End With Try SqlAdapter.Fill(Data) @@ -1340,24 +1346,25 @@ Public Class ClsAcarreos End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "IDisposable Support" - ' IDisposable - Protected Overridable Sub Dispose(disposing As Boolean) - If Not Me.disposedValue Then - If disposing Then - If Not Data Is Nothing Then Data.Dispose() - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() - If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() - End If - End If - Me.disposedValue = True + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + If Not Data Is Nothing Then Data.Dispose() : Data = Nothing + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing + If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing + If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing + End If + End If + Me.disposedValue = True End Sub Public Sub Dispose() Implements IDisposable.Dispose ConexionClose() diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 320609c34..de0b9518b 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -816,15 +816,42 @@
    - +
    - +
    +
    + + + + +
    +
    + + +
    +
    + + +
    +
    + + +
    +
    + + +
    +
    + + +
    +
    diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index f585987ab..c120b52a0 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -3214,18 +3214,36 @@ Partial Class Inventarios_TraspasoAlmacen ObjInventarios.Dispose() DdlUnidadCamion.Items.Insert(0, New ListItem("Otro", "-1")) DdlUnidadCamion.DataBind() + + Using ObjGral As New ClsGenerales + If ObjGral.GetCartaPorteConfigAutoTransportes() Then + DdlConfigAuto.DataSource = ObjGral.DtResultados + End If + End Using + + DdlConfigAuto.DataBind() + End Sub Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click Dim ObjInventarios As New ClsInventarios - If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa) Then + If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa) Then RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');") CargarCamiones() - TxtPlacaNuevo.Text = "" - TxtEspecificacionNuevo.Text = "" + LimpiarAgregarCamion() End If ObjInventarios.Dispose() End Sub + Private Sub LimpiarAgregarCamion() + TxtPlacaNuevo.Text = "" + TxtEspecificacionNuevo.Text = "" + TxtAnio.Text = "" + TxtTipoPermisoSCT.Text = "" + TxtNumermisoSCT.Text = "" + TxtNombreAseguradora.Text = "" + TxtNumPolizaSeguro.Text = "" + End Sub + Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged If DdlUnidadCamion.SelectedValue = "-1" Then 'divPlacaEspecificacion.Visible = True