From 2812b53d1d5ecad7ff166d18e38072eb59077683 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 31 Jan 2024 17:39:12 -0700
Subject: [PATCH] - ,mmejora

---
 Transportes/RepContratos.aspx    | 19 ++++++++++++++++---
 Transportes/RepContratos.aspx.vb | 26 ++++++++++++++------------
 2 files changed, 30 insertions(+), 15 deletions(-)

diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx
index 4e1425160..36e04ceb3 100644
--- a/Transportes/RepContratos.aspx
+++ b/Transportes/RepContratos.aspx
@@ -211,14 +211,14 @@
 
                                         <div class="row">
                                             <label class="col-md-4">
-                                                <asp:Label runat="server" Text="Transporte:"></asp:Label></label><div
+                                                <asp:Label runat="server" Text="Tipo Unidad:"></asp:Label></label><div
                                                     class="col-md-8">
 
-                                                    <asp:DropDownList ID="DdlTransporte" AppendDataBoundItems="true" DataTextField="Descripcion"
+                                                    <asp:DropDownList ID="DdlTipoAF" AppendDataBoundItems="true" DataTextField="TipoActivoFijo"
                                                         DataValueField="CveTipoActivoFijo" Class="table-group-action-input form-control input-inline select2me"
                                                         Width="100%" runat="server">
                                                     </asp:DropDownList>
-                                                    <asp:RequiredFieldValidator ID="RFVTransporte" runat="server" ControlToValidate="DdlTransporte"
+                                                    <asp:RequiredFieldValidator ID="RFVTransporte" runat="server" ControlToValidate="DdlTipoAF"
                                                         Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Transporte''</b> es necesario, por favor ingréselo."
                                                         ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCETransporte" runat="server" HighlightCssClass="vco"
@@ -227,6 +227,19 @@
 
                                                 </div>
                                         </div>
+                                    
+                                        <div class="row" runat="server" visible="false">
+                                            <label class="col-md-4">
+                                                <asp:Label runat="server" Text="Unidad:"></asp:Label></label><div
+                                                    class="col-md-8">
+
+                                                    <asp:DropDownList ID="DdlAF" AppendDataBoundItems="true" DataTextField="Descripcion"
+                                                        DataValueField="CveAF" Class="table-group-action-input form-control input-inline select2me"
+                                                        Width="100%" runat="server">
+                                                    </asp:DropDownList>                                                   
+
+                                                </div>
+                                        </div>
 
                                         <div class="row margin-bottom-5">
                                             <label class="col-md-4">
diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index c1d523215..dabbbff2e 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -22,15 +22,17 @@ Partial Class ListadoContratos
     End Sub
     Private Sub InicializaCombos()
         'Lista Activos Fijos'
-        Dim ObjAF As New ClsAF()
-        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
-            If ObjAF.DtResultados.Rows.Count > 0 Then
-                DdlTransporte.DataSource = ObjAF.DtResultados
-                DdlTransporte.Items.Insert(0, New ListItem("Seleccione", ""))
-            End If
-        End If
-        DdlTransporte.DataBind()
-        ObjAF.Dispose()
+        'Dim ObjAF As New ClsAF()
+        'If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
+        '    If ObjAF.DtResultados.Rows.Count > 0 Then
+        '        DdlAF.DataSource = ObjAF.DtResultados
+        '        DdlAF.Items.Insert(0, New ListItem("Seleccione", ""))
+        '    End If
+        'End If
+        'ObjAF.Dispose()
+        DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
+        DdlTipoAF.DataBind()
+
 
         'Lista Chofer'
         DdlChofer.DataSource = GlobalDTRHPersonal(185)
@@ -57,7 +59,7 @@ Partial Class ListadoContratos
         TxtFechaRegreso.Text = FechaRegreso
         TxtObservaciones.Text = Observaciones
         TxtUbicacion.Text = Ubicacion
-        DdlTransporte.SelectedValue = Transporte
+        DdlAF.SelectedValue = Transporte
         DdlClientes.SelectedText = Cliente
         DdlChofer.SelectedValue = Chofer
         TxtDolares.Text = Dolares
@@ -92,7 +94,7 @@ Partial Class ListadoContratos
             End If
             'Agregar contrato
             If BtnGuardar.Text = "Guardar" Then
-                CveContratoHijo = ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1, CveTipoAF:=DdlTransporte.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero)
+                CveContratoHijo = ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero)
             End If
 
             If CveContratoHijo > 0 Then
@@ -116,7 +118,7 @@ Partial Class ListadoContratos
             TxtObservaciones.Text = ""
             TxtUbicacion.Text = ""
             DdlClientes.SelectedText = ""
-            DdlTransporte.SelectedValue = ""
+            DdlAF.SelectedValue = ""
             TxtDolares.Text = ""
             TxtPesos.Text = ""
             TxtAnticipo.Text = ""