Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2022-02-01 17:57:15 -07:00
parent 5a2a1f4d55 c87a3065fd
commit 1ed12662ae
28 changed files with 8262 additions and 681 deletions
--- 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
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -109,7 +109,12 @@ Partial Class Inventarios_Kardex

        If ddlProducto2.UsaWebService Then
            ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1")
-            ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then '' se cambio la página para que puedan filtrar "servicios" como los usados.
+                ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Kardex")
+            Else
+                ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
+            End If
+
            ddlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)

            'DdlClasificacion.AutoPostBack = False
--- a/Inventarios/RepExistenciasCostos.aspx
+++ b/Inventarios/RepExistenciasCostos.aspx
@@ -131,18 +131,16 @@
                    ShowHeaderWhenEmpty="false" CssClass="table table-advance table-GvM Widthall" GridLines="None">
                    <Columns>
                        <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="75px" DataTextField="FechaMovto" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
-                        <asp:BoundField HeaderText="Almacen" ItemStyle-Width="150px" DataField="Almacen" />
-                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="50px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
+                        <asp:BoundField HeaderText="Almacen"  DataField="Almacen" />
+                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
                        <asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
                        <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                        <asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="75px" DataField="CostoE" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Importe" ItemStyle-Width="75px" DataField="ImporteE" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Salidas" ItemStyle-Width="75px" DataField="Salidas" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="75px" DataField="CostoS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Importe" ItemStyle-Width="75px" DataField="ImporteS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Existencia" ItemStyle-Width="75px" DataField="ExistenciaAcum" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Valor" ItemStyle-Width="75px" DataField="ValorAcum" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
+                        <asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
+                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="100px" DataField="CostoE" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
+                        <asp:BoundField HeaderText="Salidas" ItemStyle-Width="75px" DataField="Salidas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
+                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="100px" DataField="CostoS" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
+                        <asp:BoundField HeaderText="Existencia" ItemStyle-Width="75px" DataField="ExistenciaAcum" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
+                        <asp:BoundField HeaderText="Valor" ItemStyle-Width="100px" DataField="ValorAcum" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
                    </Columns>
                </asp:GridView>
            </div>
--- a/Inventarios/RepExistenciasCostos.aspx.vb
+++ b/Inventarios/RepExistenciasCostos.aspx.vb
@@ -85,13 +85,9 @@ Partial Class Inventarios_RepExistenciasCostos
    Private Sub CargaPermisos()
        Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
        GvM.Columns(6).Visible = TienePermisoImportes
-
-        GvM.Columns(7).Visible = TienePermisoImportes
-
-        GvM.Columns(9).Visible = TienePermisoImportes
+        GvM.Columns(8).Visible = TienePermisoImportes
        GvM.Columns(10).Visible = TienePermisoImportes

-        GvM.Columns(12).Visible = TienePermisoImportes
    End Sub
    Public Sub CargaCombos()

@@ -130,7 +126,6 @@ Partial Class Inventarios_RepExistenciasCostos

        DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))

-
        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
        DdlAlmacen.DataBind()
        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -202,11 +197,8 @@ Partial Class Inventarios_RepExistenciasCostos

            Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
            e.Row.Cells(6).Visible = TienePermisoImportes
-            e.Row.Cells(7).Visible = TienePermisoImportes
-            e.Row.Cells(9).Visible = TienePermisoImportes
+            e.Row.Cells(8).Visible = TienePermisoImportes
            e.Row.Cells(10).Visible = TienePermisoImportes
-            e.Row.Cells(12).Visible = TienePermisoImportes
-

            Select Case e.Row.DBCampo("Orden").ToEntero
                Case 10
@@ -224,8 +216,6 @@ Partial Class Inventarios_RepExistenciasCostos
                    e.Row.Cells(8).Text = ""
                    e.Row.Cells(9).Text = ""
                    e.Row.Cells(10).Text = ""
-                    e.Row.Cells(11).Text = ""
-                    e.Row.Cells(12).Text = ""
                Case 15
                    If e.Row.DBCampo("CveMovimiento").ToString.ToEntero <= 0 Then
                        e.Row.Cells(0).Text = e.Row.DBCampo("FechaMovto")
@@ -240,8 +230,8 @@ Partial Class Inventarios_RepExistenciasCostos
                    e.Row.Cells(1).Visible = False
                    e.Row.Cells(2).Visible = False

-                    e.Row.Cells(11).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
-                    e.Row.Cells(12).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
+                    e.Row.Cells(9).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
+                    e.Row.Cells(10).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
            End Select