From cebcd5597dc15eb6634c4e85d5002a0d05a24193 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 4 Apr 2022 11:33:51 -0700
Subject: [PATCH] =?UTF-8?q?--=20se=20quit=C3=B3=20transportista?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Acarreos/CatChoferes.aspx    |  7 ++---
 Acarreos/CatChoferes.aspx.vb | 58 ++++++++++++++++++------------------
 2 files changed, 32 insertions(+), 33 deletions(-)

diff --git a/Acarreos/CatChoferes.aspx b/Acarreos/CatChoferes.aspx
index df81b5c84..8636c7b8b 100644
--- a/Acarreos/CatChoferes.aspx
+++ b/Acarreos/CatChoferes.aspx
@@ -32,8 +32,7 @@
                 DataKeyNames="CveChofer,Chofer,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,CveTransportista,Identificacion,Domicilio,Telefono,Ciudad,RFC,Licencia,NumeroInterior,NumeroExterior,Colonia,Estado,NumRegidTribOperador,ResidenciaFiscalOperador,CP,CveEstado,CveMunicipio,CveLocalidad,CveColonia,ClaveSATColoniaCP" 
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Choferes">
                 <Columns>
-                    <asp:BoundField DataField="Chofer" HeaderText="Chofer" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Chofer" HeaderText="Chofer" ItemStyle-HorizontalAlign="Left" />                    
                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="FechaIng" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
@@ -83,10 +82,10 @@
                                     <asp:TextBox ID="TxtRFC" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
                                     <label for="<%= TxtRFC.ClientID.ToString()%>">RFC:</label>
                                 </div>
-                                <div class="form-group form-md-line-input input-iconright">
+                               <%-- <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" DataTextField="Transportista" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
                                     <label for="<%= DdlTransportista.ClientID.ToString()%>">Transportista:</label>
-                                </div>
+                                </div>--%>
 
 
                                 <div class="row ">
diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb
index 12be6ccc0..5c2b88185 100644
--- a/Acarreos/CatChoferes.aspx.vb
+++ b/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 = ""