From dbd7a9daa8a2f428aad924c8fd71dc0d22dd1f25 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 31 Jan 2022 19:41:49 -0700
Subject: [PATCH] Cat Unidades Campos de agropecuaria

---
 Contabilidad/RegPrePolizaS.aspx.vb |  4 ++-
 Inventarios/CatUnidades.aspx       | 14 ++++++--
 Inventarios/CatUnidades.aspx.vb    | 58 ++++++++++++++++++++++--------
 3 files changed, 57 insertions(+), 19 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index eeb2747e9..2e37ed2e3 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1382,10 +1382,12 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
             AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString)
+
             AplicaBancos = Boolean.Parse(DT_Concepto.Rows(0)("AplicaBancos").ToString)
             AplicaClasificacion = Boolean.Parse(DT_Concepto.Rows(0)("AplicaClasificacion").ToString)
             AplicaCliente = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCliente").ToString)
             AplicaCompra = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCompra").ToString)
+
             AplicaImpuesto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaImpuesto").ToString)
             AplicaNomina = Boolean.Parse(DT_Concepto.Rows(0)("AplicaNomina").ToString)
             AplicaPersonal = Boolean.Parse(DT_Concepto.Rows(0)("AplicaPersonal").ToString)
@@ -2715,7 +2717,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TipoPoliza = DdlTipoPoliza.SelectedItem.Text
                 Folio = dr("FolioPoliza").ToString
 
-                TxtFolio.Text = dr("FolioPoliza").ToString
+                TxtFolio.Text = ""
                 TxtUsuarioElaboro.Text = dr("Usuario").ToString
                 TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
                 ' TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx
index 6df94e0e3..04ecf1df0 100644
--- a/Inventarios/CatUnidades.aspx
+++ b/Inventarios/CatUnidades.aspx
@@ -71,6 +71,14 @@
                     <div class="modal-body">
                         <div class="row">
 
+
+                            <div class="form-group form-md-line-input input-iconright">
+                                <asp:RadioButtonList runat="server" ID="RdTipoUnidad" AutoPostBack="true" OnSelectedIndexChanged="RdTipoUnidad_SelectedIndexChanged" RepeatDirection="Horizontal">
+                                    <asp:ListItem Value="1" Selected="True">Unidad</asp:ListItem>
+                                    <asp:ListItem Value="2">Remolque</asp:ListItem>
+                                </asp:RadioButtonList>
+                            </div>
+
                             <div class="form-group form-md-line-input input-iconright col-md-12">
                                 <asp:TextBox ID="TxtEspecificacionNuevo" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
                                 <label for="<%= TxtEspecificacionNuevo.ClientID.ToString()%>">Unidad:</label>
@@ -89,9 +97,9 @@
                                 </div>
 
                             </div>
-                                <div class="form-group form-md-line-input input-iconright col-md-12">
+                                <div class="form-group form-md-line-input input-iconright col-md-12" runat="server" visible="false" id="DvNumeroTrailler">
                                     <asp:TextBox ID="TxtNumeroTrailer" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
-                                    <asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="NÚMERO DE TRAILER"></asp:Label>
+                                    <asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="Número De Unidad"></asp:Label>
                                     <i></i>
                                 </div>
 
@@ -241,7 +249,7 @@
                         </div>
 
 
-                        <asp:CheckBox ID="ChkesRemolque" Checked="true" TextAlign="Left" Text="¿Es remolque?:" runat="server" AutoPostBack="true" OnCheckedChanged="ChkesRemolque_CheckedChanged" />
+                        <%--<asp:CheckBox ID="ChkesRemolque" Checked="true" TextAlign="Left" Text="¿Es remolque?:" runat="server" AutoPostBack="true" OnCheckedChanged="ChkesRemolque_CheckedChanged" />--%>
 
 
                     </div>
diff --git a/Inventarios/CatUnidades.aspx.vb b/Inventarios/CatUnidades.aspx.vb
index 505aca8b7..25af2d857 100644
--- a/Inventarios/CatUnidades.aspx.vb
+++ b/Inventarios/CatUnidades.aspx.vb
@@ -23,6 +23,11 @@ Partial Class Inventarios_CatUnidades
         End If
     End Sub
 
+
+
+
+
+
     Public Sub CargaDatos()
 
 
@@ -98,11 +103,12 @@ Partial Class Inventarios_CatUnidades
         TxtNumeroTrailer.Text = ""
         TxtSCAC.Text = ""
         TxtCAAT.Text = ""
-        ChkesRemolque.Checked = False
+
+        RdTipoUnidad.SelectedValue = "1"
         LtlTituloModal.Text = "Agregar Unidad"
         DdlTiposRemolque.SelectedValueExist(-1)
 
-        ChkesRemolque_CheckedChanged(Nothing, Nothing)
+        RdTipoUnidad_SelectedIndexChanged(Nothing, Nothing)
 
         UpModalUnidades.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarUnidad"))
@@ -140,11 +146,13 @@ Partial Class Inventarios_CatUnidades
         TxtSCAC.Text = GvRow.DataKey("SCAC")
         TxtCAAT.Text = GvRow.DataKey("CAAT")
 
-        ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
+        'ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
+
+        RdTipoUnidad.SelectedValue = GvRow.DataKey("CveTipoCamion")
 
         LtlTituloModal.Text = "Actualizar Unidad"
 
-        ChkesRemolque_CheckedChanged(Nothing, Nothing)
+        RdTipoUnidad_SelectedIndexChanged(Nothing, Nothing)
 
 
         UpModalUnidades.Update()
@@ -185,7 +193,7 @@ Partial Class Inventarios_CatUnidades
 
         Dim ErrorPrceso As Boolean = False
 
-        Dim CveTipoCamion As Integer = If(ChkesRemolque.Checked, 2, 1)
+        Dim CveTipoCamion As Integer = RdTipoUnidad.SelectedValue.ToEntero
         Using ObjInventarios As New ClsInventarios
 
             If CveCamion <= 0 Then
@@ -218,9 +226,9 @@ Partial Class Inventarios_CatUnidades
     End Sub
 
 
-    Protected Sub ChkesRemolque_CheckedChanged(sender As Object, e As EventArgs)
+    Protected Sub RdTipoUnidad_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-        If Not ChkesRemolque.Checked Then
+        If RdTipoUnidad.SelectedValue.ToEntero = 1 Then
 
             DVAnio.Visible = True
             DVConfigAuto.Visible = True
@@ -230,11 +238,14 @@ Partial Class Inventarios_CatUnidades
             DVNombreAseguradoraMedioAmbiente.Visible = True
             DVNumPolizaSeguroMedioAmbient.Visible = True
 
-            DVLineaTransportacion.Visible = True
-            DVSCACCAAT.Visible = True
+            'DVLineaTransportacion.Visible = True
+            'DVSCACCAAT.Visible = True
+
+            DVTiposRemolque.Visible = False
+            'DVLongitudCaja.Visible = False
+
 
             DVTiposRemolque.Visible = False
-            DVLongitudCaja.Visible = False
         Else
             DVAnio.Visible = False
             DVConfigAuto.Visible = False
@@ -244,16 +255,33 @@ Partial Class Inventarios_CatUnidades
             DVNombreAseguradoraMedioAmbiente.Visible = False
             DVNumPolizaSeguroMedioAmbient.Visible = False
 
-            DVLineaTransportacion.Visible = False
-            DVSCACCAAT.Visible = False
+            'DVLineaTransportacion.Visible = False
+            'DVSCACCAAT.Visible = False
 
             DVTiposRemolque.Visible = True
-            DVLongitudCaja.Visible = True
+            'DVLongitudCaja.Visible = True
+
+
+            DVTiposRemolque.Visible = True
+
         End If
 
 
-        DVTiposRemolque.Visible = ChkesRemolque.Checked
-        UpModalUnidades.Update
+        If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
+            DvNumeroTrailler.Visible = True
+            DVLongitudCaja.Visible = True
+            DVLineaTransportacion.Visible = True
+            DVSCACCAAT.Visible = True
+        Else
+            DvNumeroTrailler.Visible = False
+            DVLongitudCaja.Visible = False
+            DVLineaTransportacion.Visible = False
+            DVSCACCAAT.Visible = False
+        End If
+
+
+
+        UpModalUnidades.Update()
 
     End Sub
 End Class