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

Inventarios/Apartados.aspx.vb

@@ -722,7 +722,7 @@ Partial Class Inventarios_Apartados
                     Dim CveSec As Integer = 0
 
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        CveSec = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero
+                        CveSec = -3 'GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSec, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then
                             ErrorMovInv = True

Inventarios/CatAlmacenes.aspx

@@ -175,7 +175,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="15%" HeaderText="Cuenta Contable">
                         <ItemTemplate>
-                            &nbsp;<asp:Literal ID="LtlCuentaContable" runat="server" Text='<%# Eval("IdCtaContable") %>'></asp:Literal>
+                            &nbsp;<asp:Literal ID="LtlCuentaContable" runat="server" Text='<%# Eval("Cuenta") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="15%" HeaderText="Modalidad">
@@ -265,7 +265,7 @@
                                         </div>
                                     </div>
                                     <div class="col-md-6">
-                                        <asp:Panel CssClass="" ID="divddlcc" Visible="false" runat="server">
+                                        <asp:Panel CssClass="" ID="divddlcc"  runat="server">
                                             <asp:Panel CssClass="form-group form-md-line-input input-iconright" ID="divCuentasCompac" Visible="false" runat="server">
                                                 <asp:DropDownList ID="DdlCuentasContables" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="100%" ValidationGroup="GrpObligatorio" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                                 <asp:Label AssociatedControlID="DdlCuentasContables" runat="server" Text="Cuenta Contable:"></asp:Label>

Inventarios/CatAlmacenes.aspx.vb

@@ -99,31 +99,34 @@ Partial Class Inventarios_CatAlmacenes
     End Sub
 
     Private Sub CargaCuentasContables()
-        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-            divCuentasCompac.Visible = False
+        If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+            divCuentasCompac.Visible = False
             pnlCuentassig.Visible = True
             Using ObjContabilidad As New ClsContabilidad
                 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
-                If ObjContabilidad.CuentasContablesSigGet(UsuarioActual.CveEmpresa) Then
+                If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
                     DdlCuentasSig.DataSource = ObjContabilidad.DtResultados
                     DdlCuentasSig.DataBind()
                     DdlCuentasSig.Items.Insert(0, New ListItem("Selecione", "-1"))
                 End If
             End Using
         Else
-            divCuentasCompac.Visible = True
-            pnlCuentassig.Visible = False
-            Using ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
-                'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
-                If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then
-                    DtCuentasContables = ObjContabilidad.DtResultados
-                Else
-                    DtCuentasContables = Nothing
-                End If
-            End Using
-
-            DdlCuentasContables.DataSource = DtCuentasContables
-            DdlCuentasContables.DataBind()
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                divCuentasCompac.Visible = True
+                pnlCuentassig.Visible = False
+                Using ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
+                    'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
+                    If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then
+                        DtCuentasContables = ObjContabilidad.DtResultados
+                    Else
+                        DtCuentasContables = Nothing
+                    End If
+                End Using
+
+                DdlCuentasContables.DataSource = DtCuentasContables
+                DdlCuentasContables.DataBind()
+            End If
+
         End If
 
         UpAddAlmacen.Update()
@@ -156,9 +159,9 @@ Partial Class Inventarios_CatAlmacenes
                 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
 
                 If e.Row.DBCampo("IdCtaContable").ToEntero > 0 Then
-                    e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCtaContable")}")
-                Else
-                    e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta"
+                    e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCtaContable")}")
+                    'Else
+                    '    e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta"
                 End If
             End If
 
@@ -181,15 +184,14 @@ Partial Class Inventarios_CatAlmacenes
 
                 e.Row.FCDropDownList("DdlTipoAlmacen").DataSource = GlobalDTTipoAlmacen(-1)
                 e.Row.FCDropDownList("DdlTipoAlmacen").DataBind()
-                e.Row.FCDropDownList("DdlTipoAlmacen").SelectedValue = e.Row.DBCampo("CveTipoAlmacen")
-
-                e.Row.FCDropDownList("DdlCuentasContables").DataSource = DtCuentasContables
-                e.Row.FCDropDownList("DdlCuentasContables").DataBind()
-                e.Row.FCDropDownList("DdlCuentasContables").Items.Add(New ListItem("Seleccione", "-1"))
-                e.Row.FCDropDownList("DdlCuentasContables").SelectedValue = e.Row.DBCampo("IdCtaContable")
-
-                'e.Row.FCDropDownList("DdlModalidad").DataSource = 
-                'e.Row.FCDropDownList("DdlModalidad").DataBind()
+                e.Row.FCDropDownList("DdlTipoAlmacen").SelectedValue = e.Row.DBCampo("CveTipoAlmacen")
+
+
+
+
+
+                'e.Row.FCDropDownList("DdlModalidad").DataSource = 
+                'e.Row.FCDropDownList("DdlModalidad").DataBind()
                 e.Row.FCDropDownList("DdlModalidad").Items.Add(New ListItem("Solo Existencia", "0"))
                 e.Row.FCDropDownList("DdlModalidad").Items.Add(New ListItem("Contable", "1"))
                 e.Row.FCDropDownList("DdlModalidad").SelectedValue = If(e.Row.DBCampo("Modalidad").ToString = "Contable", "1", "0")
@@ -197,26 +199,27 @@ Partial Class Inventarios_CatAlmacenes
             End If
 
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "O R D E N A M I E N T O"
-    'Private Sub OrdenaDatos()
-    '    If (GvDatos.Rows.Count > 0) Then
-    '        GvDatos.UseAccessibleHeader = True
-    '        GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
-    '        RegistraScript("OrdenarGV();")
-    '    End If
-    'End Sub
+    'Private Sub OrdenaDatos()
+    '    If (GvDatos.Rows.Count > 0) Then
+    '        GvDatos.UseAccessibleHeader = True
+    '        GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
+    '        RegistraScript("OrdenarGV();")
+    '    End If
+    'End Sub
 #End Region
-
+
     Private Sub RecargaGlobalAlmacenes()
-        Dim ObjAlmacen As New ClsInventarios
-        If ObjAlmacen.GetAlmacenes(-1, -1, -1, -1) Then
-            GlobalDTAlmacen(-1) = ObjAlmacen.DtResultados
-        End If
-        ObjAlmacen.Dispose()
+        GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjAlmacen As New ClsInventarios
+        'If ObjAlmacen.GetAlmacenes(-1, -1, -1, -1) Then
+        '    GlobalDTAlmacen(-1) = ObjAlmacen.DtResultados
+        'End If
+        'ObjAlmacen.Dispose()
     End Sub
 
     Private Sub RecargaGlobalAlmacenesUsuarios()
@@ -238,14 +241,15 @@ Partial Class Inventarios_CatAlmacenes
         Dim CuentaContable As Integer = 0
         Dim CveCuenta As Integer = 0
 
-        If divddlcc.Visible Then
-            If pnlCuentassig.Visible Then
-                CveCuenta = DdlCuentasSig.SelectedValue.ToEntero()
-            Else
-                CuentaContable = DdlCuentasContables.SelectedValue.ToEntero()
-            End If
-        End If
-
+
+        If pnlCuentassig.Visible Then
+            CveCuenta = DdlCuentasSig.SelectedValue.ToEntero()
+        End If
+        If divCuentasCompac.Visible Then
+            CuentaContable = DdlCuentasContables.SelectedValue.ToEntero()
+        End If
+
+
         If HdnModalidad.Value = "A" Then
             If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero) Then
                 Alert("El nuevo Almacen se guardó correctamente.", TipoMensaje.MsgInformacion)

Inventarios/Consignaciones.aspx.vb

@@ -1153,8 +1153,8 @@ Partial Class Inventarios_Consignaciones
                                 End If
                             Next
                             IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacenCI}").ToEntero
-                            CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={CveAlmacenCI}").ToEntero
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DtCostos.SUM("Total").ToDecimal * TipoMovto, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoCI, ImporteMX:=DtCostos.SUM("Total").ToDecimal * TipoMovto, CveCuenta:=CveCuenta) Then
+                            'CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={CveAlmacenCI}").ToEntero
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DtCostos.SUM("Total").ToDecimal * TipoMovto, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoCI, ImporteMX:=DtCostos.SUM("Total").ToDecimal * TipoMovto) Then
                                 ErrorMovInv = True
                             End If
                         Else

Inventarios/EntregaAlmacen.aspx.vb

@@ -2048,12 +2048,13 @@ Partial Class Inventarios_EntregaAlmacen
 
 
                                             CantidadPendiente = 1
-                                            If CBool(Dr("AplicaSeccion")) Then
-                                                CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr2("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                                                Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr2("CveAlmacen"), Dr("CvePS"), CveSeccionAlmacen)
-                                            Else
-                                                CveSeccionAlmacen = -1
-                                            End If
+                                            'If CBool(Dr("AplicaSeccion")) Then
+                                            '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr2("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                            '    Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr2("CveAlmacen"), Dr("CvePS"), CveSeccionAlmacen)
+                                            'Else
+                                            '    CveSeccionAlmacen = -1
+                                            'End If
+                                            CveSeccionAlmacen = -3
 
                                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                                 ErrorMovInv = True
@@ -2509,12 +2510,14 @@ Partial Class Inventarios_EntregaAlmacen
                                 TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados")
                                 Exit For
                             End If
-                            If CBool(Dr("AplicaSeccion")) Then
-                                CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenOrigen, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                                Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", CveAlmacenOrigen, Dr("CvePS"), CveSeccionAlmacen)
-                            Else
-                                CveSeccionAlmacen = -1
-                            End If
+                            'If CBool(Dr("AplicaSeccion")) Then
+                            '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenOrigen, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                            '    Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", CveAlmacenOrigen, Dr("CvePS"), CveSeccionAlmacen)
+                            'Else
+                            '    CveSeccionAlmacen = -1
+                            'End If
+                            CveSeccionAlmacen = -3
+
                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                 ErrorMovInv = True
                                 TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados")
@@ -2543,12 +2546,13 @@ Partial Class Inventarios_EntregaAlmacen
 
                                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                        If CBool(Dr("AplicaSeccion")) Then
-                                            CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                                            Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS"), CveSeccionAlmacen)
-                                        Else
-                                            CveSeccionAlmacen = -1
-                                        End If
+                                        'If CBool(Dr("AplicaSeccion")) Then
+                                        '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                        '    Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS"), CveSeccionAlmacen)
+                                        'Else
+                                        '    CveSeccionAlmacen = -1
+                                        'End If
+                                        CveSeccionAlmacen = -3
 
                                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                             ErrorMovInv = True
@@ -2812,7 +2816,7 @@ Partial Class Inventarios_EntregaAlmacen
 
             Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
             Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
-            Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+            'Dim CveCuentaAlmacen As Integer = 0 'GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
             Dim IdCtaContable As Integer = 0
             Dim CveCuenta As Integer = 0
             If tmpCostos.Rows.Count > 0 Then
@@ -2864,7 +2868,7 @@ Partial Class Inventarios_EntregaAlmacen
                             cont += 1
                         Next
 
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorMultiplicador * TotalCosto, Serie, 68, Serie, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=ValorMultiplicador * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorMultiplicador * TotalCosto, Serie, 68, Serie, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=ValorMultiplicador * TotalCosto) Then
                             ErrorMovInv = True
                         End If
 
@@ -3132,11 +3136,12 @@ Partial Class Inventarios_EntregaAlmacen
                     If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                         Dim CveSeccionAlmacen As Integer = -1
                         For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                            If CBool(Dr("AplicaSeccion")) Then
-                                CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Almacen2, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                            Else
-                                CveSeccionAlmacen = -1
-                            End If
+                            'If CBool(Dr("AplicaSeccion")) Then
+                            '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Almacen2, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                            'Else
+                            '    CveSeccionAlmacen = -1
+                            'End If
+                            CveSeccionAlmacen = -3
 
                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
                                 ErrorMovInv = True

Inventarios/PopUpExistenciasAlmacen.aspx

@@ -46,7 +46,7 @@
                     </td>
                     <td rowspan="2">
                         <div id="DivEquivalentes" style="overflow-y: auto; overflow-x:hidden; width: 150px; height:100px" runat="server" visible="False">
-                            <asp:GridView ID="GvEquival" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMedidaEquivalencia,CveMedida,CveRin,CveMedidaEquivalente,CveRinEquivalente,Medida,RinTamaño,MedidaEquivalente,RinTamañoEquivalente" EmptyDataText="No se encontraron Equivalencias de Medidas" ToolTip="Listado de Equivalencias de Medidas" CssClass="table table-striped table-advance table-hover" Style="margin-top: 10px; width: 100%" GridLines="None">
+                            <asp:GridView ID="GvEquival" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMedidaEquivalencia,CveMedida,CveRin,CveMedidaEquivalente,CveRinEquivalente,Medida,RinTamaño,MedidaEquivalente,RinTamañoEquivalente" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover" Style="margin-top: 10px; width: 100%" GridLines="None">
                                 <Columns>
                                     <asp:TemplateField ItemStyle-Width="300px" HeaderText="Equivalentes">
                                         <ItemTemplate>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -544,11 +544,9 @@ Partial Class Inventarios_RecepcionAlmacen
 
         If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Then
             DdlTipo.Items.Insert(1, New ListItem("OC", "2"))
-            If UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
-                DdlTipo.Items.RemoveAt(0)
-                DdlTipo.SelectedValue = "2"
-                ModalidadRecepcion()
-            End If
+
+
+
         End If
 
         If UsuarioActual.Empresa.Funcionalidad(155).ToEntero > 0 Then
@@ -2657,12 +2655,8 @@ Partial Class Inventarios_RecepcionAlmacen
                                 ErrorMovInv = True
                                 Exit For
                             End If
-                            If CBool(Dr("AplicaSeccion")) Then
-                                CveSeccionDestino = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenDestino, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                            Else
-                                CveSeccionDestino = -1
-                            End If
 
+                            CveSeccionDestino = -3 'se madna este dato, para que el trigger, obtenga la seccion automaticamente
 
                             If Not ObjInventario.AddMovimientoDetalle(CveMovtoEntradaActual, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionDestino, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                 ErrorMovInv = True
@@ -2879,7 +2873,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
             'ACTUALIZA ESTATUS ALMACEN
             If TipoMovimiento = 2 Then
-                If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 0) Then
+                If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 0, UsuarioActual.CveUsuario) Then
                     ErrorMovInv = True
                 End If
             End If
@@ -2901,7 +2895,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     'VARIABLES
                     Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
-                    Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+                    ' Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
                     Dim IdCtaContableRecepcion = -1
                     Dim IdCtaContableRecepcionME = -1
                     Dim IdCtaContableRecepcionComplementaria = -1
@@ -2975,7 +2969,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero
                             CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen", 74, TotalCosto, TotalCosto, 1, Fecha, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CvePrePoliza > 0 Then
-                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveSubProyecto:=CveSubProyecto, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen, Contabilizable:=If(CveTipoCompra = 10, False, EsContabilizable)) Then
+                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveSubProyecto:=CveSubProyecto, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, Contabilizable:=If(CveTipoCompra = 10, False, EsContabilizable)) Then
 
                                     'AGREGA POR CONCEPTO POR CVEOCDETALLE
                                     If CveOCSurtir > 0 Then
@@ -3115,7 +3109,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     'VARIABLES
                     Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
-                    Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+                    'Dim CveCuentaAlmacen As Integer = 0 'GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
                     Dim Fecha As Date = TxtFecha.Text.ToDate
                     Dim CveProveedor As Integer = -1
                     Dim ProveedorNombre As String = ""
@@ -3148,7 +3142,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen-NC", 74, TotalCosto, TotalCosto, 1, Fecha, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CvePrePoliza > 0 Then
                                 If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalNC, SerieFolio, CveConceptoContableNC, SerieFolio, Fecha, IdCtaContableNC, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalNC, Contabilizable:=EsContabilizable) Then
-                                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto * -1, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto * -1, CveCuenta:=CveCuentaAlmacen, Contabilizable:=If(CveTipoCompra = 10, False, EsContabilizable)) Then
+                                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto * -1, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto * -1, Contabilizable:=If(CveTipoCompra = 10, False, EsContabilizable)) Then
                                         If DifCostoNC <> 0 Then
                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifCostoNC * -1, SerieFolio, 69, SerieFolio, Fecha, IdCtaContableClasificacion, -1, CveClasificacion:=CveClasificacionDifCostoNC, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DifCostoNC * -1, CveCuenta:=CveCuentaClasificacion, Contabilizable:=EsContabilizable, CveSubProyecto:=CveSubProyecto) Then
                                                 ErrorMovInv = True
@@ -3558,7 +3552,7 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
             If CvePrePoliza > 0 Then
                 Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
-                Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+
                 ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa)
                 Dim TotalCosto As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL()
                 Dim IdCtaContableCostoInd As Integer = 0
@@ -3566,7 +3560,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 Dim PorcentajeRecepcionCompras As Decimal = TotalCosto / DtTempCompras.SUMD("SubTotalTC")
                 Dim ConceptoPartida As String = String.Format("{0}- Inv#{1}", HLFolio.Text, InvFolio)
 
-                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, InvFolio, 68, InvFolio, FechaMovto, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen, Contabilizable:=If(CveTipoCompra = 10, False, True)) Then
+                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, InvFolio, 68, InvFolio, FechaMovto, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, Contabilizable:=If(CveTipoCompra = 10, False, True)) Then
                     'se recorren las facturas a descontar el recepción
                     If DtTempCompras IsNot Nothing AndAlso DtTempCompras.Rows.Count > 0 Then
 
@@ -3766,7 +3760,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim ObjOC As New ClsOC
         If ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, -1, FolioOC, -1, -1, UsuarioActual.CveEmpresa, -1) Then
             'If ObjOC.DtResultados.FiltraParametros("TipoTermino = 3").Rows.Count = 1 Then
-            If ObjOC.DtResultados.Rows(0)("TieneCompra").ToString.ToEntero > 0 And UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then 'Or UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 
+            If ObjOC.DtResultados.Rows(0)("TieneCompra").ToString.ToEntero > 0 Then 'Or UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 
                 MensajeCompra = String.Format("<a href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={0}"">{1}</a>", ObjOC.DtResultados.Rows(0)("CveCompraVinculada").ToString, ObjOC.DtResultados.Rows(0)("SerieFolioCompraVinculada").ToString)
             Else
                 CveOC = ObjOC.DtResultados.FiltroPrimeroValor("CveOrdenCompra").ToString.ToEntero

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -300,7 +300,7 @@ Partial Class RepNotasSinAlmacen
 
             Dim ObjCompras As New ClsCompras
             Dim ObjEventos As New ClsOIEventos
-            If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1) Then
+            If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1, Usuarioactual.CveUsuario) Then
                 If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibido", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
                     Alert("El producto se marcó como 'no recibido' correctamente.")
                 End If

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1125,8 +1125,8 @@ Partial Class Inventarios_TraspasoAlmacen
                 Next
 
                 IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacenCI}").ToEntero
-                CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={CveAlmacenCI}").ToEntero
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DtCostos.SUM("Total").ToDecimal * TipoMovto, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUM("Total").ToDecimal * TipoMovto, CveCuenta:=CveCuenta) Then
+
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DtCostos.SUM("Total").ToDecimal * TipoMovto, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUM("Total").ToDecimal * TipoMovto) Then
                     ErrorMovInv = True
                 End If