-- se quitó transportista

Acarreos/CatChoferes.aspx.vb

@@ -12,7 +12,7 @@ Partial Class Acarreos_CatChoferes
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaDatos()
-            CargaDdlTransportista()
+            ' CargaDdlTransportista()
 
             CargaDdls()
 
@@ -44,16 +44,16 @@ Partial Class Acarreos_CatChoferes
     End Sub
 
 
-    Private Sub CargaDdlTransportista()
-        Dim ObjAcar As New ClsAcarreos()
-        If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
-            DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlTransportista.DataSource = ObjAcar.DtResultados
-            DdlTransportista.DataBind()
-        End If
-        ObjAcar.Dispose()
-        UpAddChofer.Update()
-    End Sub
+    'Private Sub CargaDdlTransportista()
+    '    Dim ObjAcar As New ClsAcarreos()
+    '    If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
+    '        DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '        DdlTransportista.DataSource = ObjAcar.DtResultados
+    '        DdlTransportista.DataBind()
+    '    End If
+    '    ObjAcar.Dispose()
+    '    UpAddChofer.Update()
+    'End Sub
 
     Private Sub BtnAgregarChofer_Click(sender As Object, e As EventArgs) Handles BtnAgregarChofer.Click
 
@@ -65,32 +65,32 @@ Partial Class Acarreos_CatChoferes
         End If
 
 
-        If DdlTransportista.SelectedValue = "-1" Then
-            Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
-        Else
+        'If DdlTransportista.SelectedValue = "-1" Then
+        '    Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
+        'Else
 
-            Dim ObjAcar As New ClsAcarreos
+        Dim ObjAcar As New ClsAcarreos
             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, 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)
-                    GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing
-                End If
-            ElseIf HdnModalidad.Value = "U" 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, 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("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
-                    GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing
-                End If
+            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)
+                GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing
             End If
+        ElseIf HdnModalidad.Value = "U" Then
+            If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, -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("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing
+            End If
+        End If
 
             RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
             ObjAcar.Dispose()
             UpDatos.Update()
-        End If
+
     End Sub
 
     Public Sub Edit_Click(sender As Object, e As EventArgs)
@@ -121,7 +121,7 @@ Partial Class Acarreos_CatChoferes
         DdlResidenciaFiscalOperador.SelectedValueExist("-1")
         DdlResidenciaFiscalOperador.SelectedValueExist(GvRow.DataKey("ResidenciaFiscalOperador"))
 
-        DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
+        ' DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
 
         divEstatus.Visible = True
         ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
@@ -182,7 +182,7 @@ Partial Class Acarreos_CatChoferes
         TxtLicencia.Text = ""
 
 
-        DdlTransportista.SelectedValueExist(-1)
+        '  DdlTransportista.SelectedValueExist(-1)
         TxtRFC.Text = ""
         TxtNumInt.Text = ""
         TxtNumExt.Text = ""