Cat Unidades Campos de agropecuaria

2022-01-31 19:41:49 -07:00
parent 436258d749
commit dbd7a9daa8
3 changed files with 57 additions and 19 deletions
--- 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")
--- 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>
--- 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