Merge branch 'master' of http://192.168.10.111:8383/SIG

AF/AF.aspx.vb

@@ -742,8 +742,16 @@ Partial Class AF_AF
     '    DdlProyecto.DataBind()
     'End Sub
     Private Sub CargaEstatusActivoFijo()
-        DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
+
+        If UsuarioActual.CveEmpresa = 13 Then
+            DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo.FiltraParametros(" CveEstadoActivoFijo <> 3 ")
+        Else
+            DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
+        End If
+
+
         DdlEstadoActivoFijo.DataBind()
+
     End Sub
     'Private Sub CargaCliente()
     '    DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
@@ -1035,7 +1043,16 @@ Partial Class AF_AF
                 CargarHistorial()
                 CargaCaracteristicas()
 
+                If UsuarioActual.CveEmpresa = 13 AndAlso ObjActivoFijo.DtResultados.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero = 3 Then
+                    Dim existeItem As Boolean = DdlEstadoActivoFijo.Items.FindByValue("3") IsNot Nothing
+                    If Not existeItem Then
+                        Dim nuevoItem As New ListItem("Asignado / En proyecto", "3")
+                        DdlEstadoActivoFijo.Items.Add(nuevoItem)
+                    End If
+                End If
+
                 DdlEstadoActivoFijo.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveEstadoActivoFijo").ToString
+
                 DdlResponsable.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CvePersonaResponsable").ToString
                 DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString
                 CargaSubProyecto()

App_Code/ClsOC.vb

@@ -1726,57 +1726,6 @@ Public Class ClsOC
         Return Retorno
     End Function
 
-    Public Function GetOrdenesCompraCompradosRecibidosRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, FechaInicio As Date,
-                                        FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer,
-                                        CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1",
-                                        Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1,
-                                        Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1,
-                                        Optional MetodoPago As Integer = -1, Optional Serie As String = "-1", Optional TieneAnticipo As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_OC_OrdenesCompraCompradosRecibidosRep")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Tipo", SqlDbType.VarChar).Value = Tipo
-            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
-            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
-            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-            .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
-            .Add("@CveUsuarioRegistro", SqlDbType.Int).Value = CveUsuarioRegistro
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@Folio", SqlDbType.Int).Value = Folio
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@PendientePorSurtir", SqlDbType.Bit).Value = PendientePorSurtir
-            .Add("@Guia", SqlDbType.VarChar).Value = Guia
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso
-            .Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo
-            .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado
-            .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta
-            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
-            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago
-            .Add("@Serie", SqlDbType.VarChar).Value = Serie
-            .Add("@TieneAnticipo", SqlDbType.Int).Value = TieneAnticipo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener Ordenes de Compras Comprados Recividos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
     Public Function GetOrdenesCompraRepReqXOC(Folio As Integer, FechaInicio As String, FechaFin As String, CveProveedor As Integer, CveVendedor As Integer, CveCliente As Integer, CveEmpresa As Integer, Grupo As Integer) As Boolean
         Dim Retorno As Boolean = False
 

Inventarios/EntradasSalidas.aspx

@@ -1277,9 +1277,9 @@
 
                                         <div class="row">
                                             <div class="col-md-12">
-                                                <asp:UpdatePanel runat="server" ID="UpEntradasGv" UpdateMode="Conditional">
+                                                <asp:UpdatePanel runat="server" ID="UpEntradasGv" UpdateMode="Conditional" style="max-height:400px; overflow-y:auto;">
                                                     <ContentTemplate>
-                                                        <asp:GridView ID="GvEntradas" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False">
+                                                        <asp:GridView ID="GvEntradas" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False" data-heightfijo="400" data-heighterror="400" data-height="400" data-sort="true" >
                                                             <Columns>
                                                                 <asp:BoundField HeaderText="Cant" ReadOnly="true" DataField="Cantidad" ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Left" />
                                                                 <asp:BoundField HeaderText="Producto" ReadOnly="true" DataField="CodigoPS" ItemStyle-Width="300px" ItemStyle-HorizontalAlign="Left" />
@@ -1377,9 +1377,9 @@
 
                                         <div class="row">
                                             <div class="col-md-12">
-                                                <asp:UpdatePanel runat="server" ID="UpSalidaGv" UpdateMode="Conditional">
+                                                <asp:UpdatePanel runat="server" ID="UpSalidaGv" UpdateMode="Conditional" style="max-height:400px; overflow-y:auto;">
                                                     <ContentTemplate>
-                                                        <asp:GridView ID="GvSalidas" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False">
+                                                        <asp:GridView ID="GvSalidas" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" data-heightfijo="400" data-heighterror="400" data-height="400" data-sort="true" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False">
                                                             <Columns>
                                                                 <asp:BoundField HeaderText="Cant" ReadOnly="true" DataField="Cantidad" ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Left" />
                                                                 <asp:BoundField HeaderText="Producto" ReadOnly="true" DataField="CodigoPS" ItemStyle-Width="300px" ItemStyle-HorizontalAlign="Left" />

OC/RepOC.aspx.vb

@@ -407,6 +407,16 @@ Partial Class RepOC
                 MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares")
                 UPPIndicador.Update()
 
+
+                DivIndicadoresCompradoRecibido.Visible = True
+                DivIndicadoresCompradoRecibido.InnerHtml = String.Empty
+
+                Dim Recibidos As Decimal = DtOC.SUM("Comprado")
+                Dim Comprados As Decimal = DtOC.SUM("Recibido")
+
+                MuestraIndicadorCompradoRecibido(DivIndicadoresCompradoRecibido, "blue", "fa fa-truck", "Almacén", Recibidos.ToString("###,###,###.00"), "Comprados", "", "Recibidos", Comprados.ToString("###,###,###.00"), "")
+                UPPIndicadorCompradoRecibido.Update()
+
             End If
 
             If DtOC IsNot Nothing AndAlso DtOC.Rows.Count > 0 Then
@@ -435,35 +445,7 @@ Partial Class RepOC
             End If
 
 
-            If UsuarioActual.TienePermisoProceso(227) And UsuarioActual.CveRol = 1 Then
 
-                DivIndicadoresCompradoRecibido.Visible = True
-                DivIndicadoresCompradoRecibido.InnerHtml = String.Empty
-
-
-                If OC.GetOrdenesCompraCompradosRecibidosRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
-                       DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
-                       UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), False,
-                       ddlclientes.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
-                       CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(),
-                       CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero, TieneAnticipo:=DdlTieneAnticipo.SelectedValue.ToEntero) Then
-
-                    Dim Recibidos As Decimal = 0D
-                    Dim Comprados As Decimal = 0D
-
-                    If OC.DtResultados.Rows.Count > 0 Then
-                        Recibidos = OC.DtResultados.Rows(0)("Comprado").ToString.ToDecimal
-                        Comprados = OC.DtResultados.Rows(0)("Recibido").ToString.ToDecimal
-                    End If
-
-                    MuestraIndicadorCompradoRecibido(DivIndicadoresCompradoRecibido, "blue", "fa fa-truck", "Almacén", Recibidos.ToString("###,###,###.00"), "Comprados", "", "Recibidos", Comprados.ToString("###,###,###.00"), "")
-
-                End If
-
-                UPPIndicadorCompradoRecibido.Update()
-
-
-            End If
 
         End If
         OC.Dispose()

Ventas/Ventas.aspx.vb

@@ -36536,6 +36536,7 @@ Partial Class Ventas
 
 #Region "D E S C U E N T O S  X  R E M I S I O N  D E  N O T A  D E C R E D I T O"
     Protected Sub BtnAplicarRemisionNC_Click(sender As Object, e As EventArgs)
+        'LIMPIAR DATOS
         Me.AplicaRNCXDetalle = False
         Me.AplicaRNCBonificacionXDetalle = False
 
@@ -36551,6 +36552,16 @@ Partial Class Ventas
             ListaNCBonificacion.Clear()
         End If
 
+        TxtImportesRemisionesNC.Text = "0.00"
+        TxtNCImporte.Text = "0.00"
+
+        For Each gvr As GridViewRow In GvCxC.Rows
+            If gvr.RowType = DataControlRowType.DataRow Then
+                gvr.FCCheckBox("ChkCxC").Checked = False
+                gvr.FCTextBox("TxtImporte").Text = ""
+            End If
+        Next
+
         Dim TotalRemNCAplicado As Decimal = 0
 
         Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())