-cleanup

Acarreos/CatChoferes.aspx.vb

@@ -1,5 +1,4 @@
 Imports Extensiones
-Imports System.Data
 
 Partial Class Acarreos_CatChoferes
 
@@ -70,10 +69,10 @@ Partial Class Acarreos_CatChoferes
         'Else
 
         Dim ObjAcar As New ClsAcarreos
-            Dim Estatus = 0
-            If ChkEstatus.Checked Then Estatus = 1
+        Dim Estatus = 0
+        If ChkEstatus.Checked Then Estatus = 1
 
-            If HdnModalidad.Value = "A" Then
+        If HdnModalidad.Value = "A" Then
             If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then
                 CargaDatos()
                 Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
@@ -87,9 +86,9 @@ Partial Class Acarreos_CatChoferes
             End If
         End If
 
-            RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
-            ObjAcar.Dispose()
-            UpDatos.Update()
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
+        ObjAcar.Dispose()
+        UpDatos.Update()
 
     End Sub