option explicit

2023-09-07 14:00:46 -07:00
parent a8871b9c30
commit 84c7e894d6
1 changed files with 85 additions and 108 deletions
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -740,7 +740,7 @@ Partial Class Inventarios_RecepcionAlmacen
        Dim ObjInventarios As New ClsInventarios
        If ddlProveedor.SelectedValue.ToEntero > 0 Then
            If ObjInventarios.ComprasPendientesAlmacenGet(ddlProveedor.SelectedValue.ToEntero, MinFecha.ToShortDateString.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-                Dim FiltroTemporal = " AND TipoDocto IN ('Fac','NC','DEV')"
+                Dim FiltroTemporal As String = " AND TipoDocto IN ('Fac','NC','DEV')"
                DdlFolio.DataSource = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}")
            Else
                Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError)
@@ -1033,8 +1033,8 @@ Partial Class Inventarios_RecepcionAlmacen
                If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                    Dim DtRecepcion As DataTable = ObjInventario.DtResultados.Copy()
                    DtInv = DtRecepcion
-                    Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero()
-                    Dim NumProductos = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero()
+                    Dim NumUsados As Integer = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero()
+                    Dim NumProductos As Integer = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero()
                    Dim CveSubProyecto As Integer

                    ArchivoBitacora = String.Format("{0}Temp\RecepcionDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, pCveCompra)
@@ -1405,9 +1405,8 @@ Partial Class Inventarios_RecepcionAlmacen
        GvInv.Columns(3).Visible = False
        GvInv.Columns(9).Visible = TmDT.SUM("CostoIndirecto") > 0

-        Dim VariableCampo = If(TipoMovimiento.Contiene(1, 3), "CantidadF", "CantidadS")
-
-        Dim Index = 1
+        Dim VariableCampo As String = If(TipoMovimiento.Contiene(1, 3), "CantidadF", "CantidadS")
+        Dim Index As Integer = 1
        For Each Dr As DataRow In TmDT.Rows
            Dr("PUExtranjero") = Dr("PU")
            Dr("CostoIndirectoExtranjero") = Dr("CostoIndirecto")
@@ -2063,8 +2062,8 @@ Partial Class Inventarios_RecepcionAlmacen
            Exit Sub
        End If

-        Dim Row = DtDatosLoteDetalle.NewRow
-        Dim CantidadLote = TxtCantidadLote.Text.ToDecimal
+        Dim Row As DataRow = DtDatosLoteDetalle.NewRow
+        Dim CantidadLote As Decimal = TxtCantidadLote.Text.ToDecimal

        Dim MensajeSinExistencias As New StringBuilder
        Dim ObjInventarios As New ClsInventarios
@@ -2180,14 +2179,14 @@ Partial Class Inventarios_RecepcionAlmacen

        'VALIDA SI HUBO CAMBIOS EN LOS DETALLES COMPRA
        If CveCompraSurtir > 0 Then
-            Dim VariableCampo = If(TipoMovimiento.Contiene(1, 3), "CantidadF", "CantidadS")
+            Dim VariableCampo As String = If(TipoMovimiento.Contiene(1, 3), "CantidadF", "CantidadS")
            Dim ObjComprasDif As New ClsInventarios
            Dim DtDatosCompra As New DataTable
            If ObjComprasDif.RecepcionAlmacenGet(CveCompraSurtir, BuscaEntregaDirecta, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                DtDatosCompra = ObjComprasDif.DtResultados
            End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
-            Dim CantConsulta = DtDatosCompra.SUM(VariableCampo)
+            Dim CantidadGV As Decimal = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
+            Dim CantConsulta As Decimal = DtDatosCompra.SUMD(VariableCampo)
            If Math.Abs(CantidadGV - CantConsulta) > 0.01 Then
                CargaCompra(CveCompraSurtir, -1)
                CargaPendientes()
@@ -2200,14 +2199,14 @@ Partial Class Inventarios_RecepcionAlmacen

        'VALIDA SI HUBO CAMBIOS EN LOS DETALLES OC
        If CveOCSurtir > 0 Then
-            Dim VariableCampo = If(TipoMovimiento = 1, "CantidadF", "CantidadS")
+            Dim VariableCampo As String = If(TipoMovimiento = 1, "CantidadF", "CantidadS")
            Dim ObjComprasDif As New ClsInventarios
            Dim DtDatosOC As New DataTable
            If ObjComprasDif.RecepcionAlmacenOCGet(CveOCSurtir, UsuarioActual.CveEmpresa) Then
                DtDatosOC = ObjComprasDif.DtResultados.FiltraParametros("CantidadCompra = 0")
            End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
-            Dim CantConsulta = DtDatosOC.SUM(VariableCampo)
+            Dim CantidadGV As Decimal = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
+            Dim CantConsulta As Decimal = DtDatosOC.SUMD(VariableCampo)
            If Math.Abs(CantidadGV - CantConsulta) > 0.1 Then
                CargaOCPorSurtir(CveOCSurtir)
                Alert("Ha sido cambiada la información de existencias de la orden de compra actual, se han recargado la información.", TipoMensaje.MsgAdvertencia)
@@ -2219,14 +2218,14 @@ Partial Class Inventarios_RecepcionAlmacen

        'VALIDA SI HUBO CAMBIOS EN LOS DETALLES IMPORTACION
        If CveImportacionSurtir > 0 Then
-            Dim VariableCampo = If(TipoMovimiento = 1, "CantidadF", "CantidadS")
+            Dim VariableCampo As String = If(TipoMovimiento = 1, "CantidadF", "CantidadS")
            Dim ObjComprasDif As New ClsInventarios
            Dim DtDatosImportacion As New DataTable
            If ObjComprasDif.RecepcionAlmacenImportacionGet(CveImportacionSurtir, CveImportacionCompra, CveImportacionProveedor, UsuarioActual.CveEmpresa) Then
                DtDatosImportacion = ObjComprasDif.DtResultados
            End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
-            Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo)
+            Dim CantidadGV As Decimal = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
+            Dim CantConsulta As Decimal = DtDatosImportacion.SUMD(VariableCampo)
            If CantidadGV <> CantConsulta Then
                CargaImportacionSurtir(CveImportacionSurtir)
                Alert("Ha sido cambiada la información de existencias de la importación actual, se han recargado la información.", TipoMensaje.MsgAdvertencia)
@@ -2238,14 +2237,14 @@ Partial Class Inventarios_RecepcionAlmacen

        'VALIDA SI HUBO CAMBIOS EN LOS DETALLES FLETES
        If CveFleteSurtir > 0 Then
-            Dim VariableCampo = If(TipoMovimiento = 1, "CantidadF", "CantidadS")
+            Dim VariableCampo As String = If(TipoMovimiento = 1, "CantidadF", "CantidadS")
            Dim ObjComprasDif As New ClsInventarios
            Dim DtDatosImportacion As New DataTable
            If ObjComprasDif.RecepcionAlmacenFleteGet(CveFleteSurtir, CveFleteOrdenCompra, CveFleteCompra, UsuarioActual.CveEmpresa) Then
                DtDatosImportacion = ObjComprasDif.DtResultados
            End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
-            Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo)
+            Dim CantidadGV As Decimal = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
+            Dim CantConsulta As Decimal = DtDatosImportacion.SUMD(VariableCampo)
            If CantidadGV <> CantConsulta Then
                CargaFleteSurtir(CveFleteSurtir)
                Alert(String.Format("Ha sido cambiada la informacion de existencias costo indirecto actual, se han recargado la información.[{0}-{1}]", CantidadGV, CantConsulta), TipoMensaje.MsgAdvertencia)
@@ -2258,7 +2257,7 @@ Partial Class Inventarios_RecepcionAlmacen

        Dim ValidaSeccion As Boolean = False : Dim ValidaCaducidad As Boolean = False : Dim ValidaLote As Boolean = False
        'PASA DATOS DEL GV A DATATABLE PARA MANEJOR CON FOR EACH
-        Dim Index = 0
+        Dim Index As Integer = 0
        For Each gvr As GridViewRow In GvInv.Rows
            If gvr.FCCheckBox("cbInv").Checked AndAlso gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
                DtInv.Rows(Index)("CantidadSurtidaPantalla") = gvr.FCTextBox("TbCantidadF").Text.ToDecimal
@@ -2307,7 +2306,7 @@ Partial Class Inventarios_RecepcionAlmacen
                Dim MensajeExistencias As New StringBuilder
                Dim ObjInventarios As New ClsInventarios
                For Each gvr As GridViewRow In GvInv.Rows
-                    Dim ExistenciaActual = DtInv.SUM("CantidadSurtidaPantalla", $"CvePS = {gvr.DataKey("CvePS").ToEntero} AND CveUM = {gvr.DataKey("CveUM").ToEntero} ")
+                    Dim ExistenciaActual As Decimal = DtInv.SUMD("CantidadSurtidaPantalla", $"CvePS = {gvr.DataKey("CvePS").ToEntero} AND CveUM = {gvr.DataKey("CveUM").ToEntero} ")

                    If TipoMovimiento = 2 Then
                        'If gvr.DataKey("CantidadC").ToString.ToDecimal <> ExistenciaActual Then
@@ -2321,7 +2320,7 @@ Partial Class Inventarios_RecepcionAlmacen
                        End If
                    End If

-                    Dim Existencia = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=(TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm"))
+                    Dim Existencia As Decimal = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=(TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm"))
                    If Existencia < ExistenciaActual Then
                        MensajeExistencias.Append($"Producto: <b>{GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToString.ToEntero).FiltroPrimeroValor("PSCodigo")}</b>.</br>")
                        Continue For
@@ -2358,7 +2357,7 @@ Partial Class Inventarios_RecepcionAlmacen

    End Sub

-    Private Function GeneraPrePolizaSalidaEntregaDirecta(CveMovimiento As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjContaContPAQ As ClsContPAQi, EsContabilizable As Boolean) As Boolean
+    Private Function GeneraPrePolizaSalidaEntregaDirecta(CveMovimiento As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, EsContabilizable As Boolean) As Boolean
        Dim Retorno As Boolean = True
        Try
            Dim DtCostos As DataTable = Nothing
@@ -2382,8 +2381,8 @@ Partial Class Inventarios_RecepcionAlmacen

                If tmpCostos.Rows.Count > 0 Then
                    Dim Concepto As String = ConceptoPoliza
-                    Dim CvePrePoliza = ObjConta.AddPrePolizas("RecepAlm", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("RecepAlm", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    Dim tCveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
                    Dim tCveConcepto As Integer = 69
                    For Each RowInv As DataRow In tmpCostos.Rows
                        ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL
@@ -2397,7 +2396,7 @@ Partial Class Inventarios_RecepcionAlmacen
                        Retorno = False
                    End If

-                    If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
+                    If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then
                        If ObjConta.ValorPolizaDescuadre > 0 Then
                            GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                            Retorno = False
@@ -2413,12 +2412,7 @@ Partial Class Inventarios_RecepcionAlmacen
                        End If

                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                            If ObjContaContPAQ Is Nothing Then
-                                ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                                ObjContaContPAQ.IniciaTransacSQL()
-                            End If
-
-                            If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
+                            If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                Retorno = False
                            End If
                        End If
@@ -2439,7 +2433,7 @@ Partial Class Inventarios_RecepcionAlmacen
    End Function


-    Private Function GeneraPrePolizaMovimientoAlmacen(CveMovimientoEntrada As Integer, CveMovimientoSalida As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjContaContPAQ As ClsContPAQi, EsContabilizable As Boolean) As Boolean
+    Private Function GeneraPrePolizaMovimientoAlmacen(CveMovimientoEntrada As Integer, CveMovimientoSalida As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, EsContabilizable As Boolean) As Boolean
        Dim Retorno As Boolean = True
        Try
            Dim DtCostos As DataTable = Nothing
@@ -2462,8 +2456,8 @@ Partial Class Inventarios_RecepcionAlmacen
                Dim ConceptoPoliza As String = String.Format("{0}-{1}", "Salida de Almacen", SerieFolio)
                If tmpCostos.Rows.Count > 0 Then
                    Dim Concepto As String = ConceptoPoliza
-                    Dim CvePrePoliza = ObjConta.AddPrePolizas("RA-01", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("RA-01", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    Dim tCveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero

                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, ValorInventario, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoEntrada, CveSubProyecto:=tCveSubProyecto, Contabilizable:=EsContabilizable) Then
                        Retorno = False
@@ -2473,7 +2467,7 @@ Partial Class Inventarios_RecepcionAlmacen
                        Retorno = False
                    End If

-                    If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
+                    If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then
                        If ObjConta.ValorPolizaDescuadre > 0 Then
                            GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                            Retorno = False
@@ -2489,12 +2483,7 @@ Partial Class Inventarios_RecepcionAlmacen
                        End If

                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                            If ObjContaContPAQ Is Nothing Then
-                                ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                                ObjContaContPAQ.IniciaTransacSQL()
-                            End If
-
-                            If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
+                            If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                Retorno = False
                            End If
                        End If
@@ -2518,14 +2507,11 @@ Partial Class Inventarios_RecepcionAlmacen

        Dim CveMovimiento As Integer
        Dim CveMovimientoOriginal As Integer
-
-        'Dim CveMovimientoS
-
        Dim InvFolio As String = ""
        Dim FechaMovto As Date = TxtFecha.Text.ToDate

        Dim ErrorMovInv As Boolean
-        Dim MensajeError = ""
+        Dim MensajeError As String = ""

        Dim ObjInventario As New ClsInventarios

@@ -2536,7 +2522,6 @@ Partial Class Inventarios_RecepcionAlmacen
        Dim ObjAcum As New ClsAcumuladores(ObjInventario.IniciaTransacSQL())
        Dim ObjVentas As New ClsVentas(ObjInventario.IniciaTransacSQL())
        Dim ObjContaAC As ClsContPAQi = Nothing
-        Dim ObjContaContPAQ As ClsContPAQi = Nothing
        Dim MensajeOC As New StringBuilder

        'ENTREGA DIRECTA
@@ -2562,8 +2547,8 @@ Partial Class Inventarios_RecepcionAlmacen
        Dim FolioSalidaTraspaso As String = ""

        'CONTABILIDAD
-        Dim CvePrePoliza = -1
-        Dim MensajeContabilidad = ""
+        Dim CvePrePoliza As Integer = -1
+        Dim MensajeContabilidad As String = ""


        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -2615,12 +2600,12 @@ Partial Class Inventarios_RecepcionAlmacen
                Dim SumaTotal As Decimal = 0.0D
                Dim Cont As Integer = 0

-                Dim CveMovtoSalidaActual = -1
-                Dim CveMovtoEntradaActual = -1
-                Dim CveVendedorActual = -1
-                Dim CveClienteActual = -1
+                Dim CveMovtoSalidaActual As Integer = -1
+                Dim CveMovtoEntradaActual As Integer = -1
+                Dim CveVendedorActual As Integer = -1
+                Dim CveClienteActual As Integer = -1

-                Dim CveAlmacenDestino = CveAlmacenDevolucionProveedor
+                Dim CveAlmacenDestino As Integer = CveAlmacenDevolucionProveedor
                Dim CveSeccionDestino As Integer = -1

                'For Each RowAlmacen As DataRow In DtAlmacenesDevolucion.FiltraParametros("", DistinctColumns:={"CveAlmacenOrignal"}).Rows
@@ -2888,7 +2873,7 @@ Partial Class Inventarios_RecepcionAlmacen
                            Dim DtDetalleMovimiento As DataTable = Dt.FiltraParametros($"CveVenta={ObjFactura.CveVenta}")

                            If ObjFactura.TipoDocto = "Ing" Then
-                                Dim MovSalida = GenerarMovimientoAlmacenVenta(DdlAlmacen.SelectedValue.ToEntero(), 3, ObjFactura.CveVenta, CveMovimiento, DtDetalleMovimiento, ObjInventario, ObjConta, ObjContaContPAQ, EsContabilizable, "RA/G2")
+                                Dim MovSalida As MMovimientoAlmacen = GenerarMovimientoAlmacenVenta(DdlAlmacen.SelectedValue.ToEntero(), 3, ObjFactura.CveVenta, CveMovimiento, DtDetalleMovimiento, ObjInventario, ObjConta, EsContabilizable, "RA/G2")

                                ErrorMovInv = MovSalida.CveMovimiento <= 0

@@ -2898,7 +2883,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                End If

                            ElseIf ObjFactura.TipoDocto = "Rem" Then
-                                Dim MovSalidaExA = GenerarMovimientoAlmacenVenta(DdlAlmacen.SelectedValue.ToEntero(), 8, ObjFactura.CveVenta, -1, DtDetalleMovimiento, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R1")
+                                Dim MovSalidaExA As MMovimientoAlmacen = GenerarMovimientoAlmacenVenta(DdlAlmacen.SelectedValue.ToEntero(), 8, ObjFactura.CveVenta, -1, DtDetalleMovimiento, ObjInventario, ObjConta, False, "RA/G2R1")

                                ErrorMovInv = MovSalidaExA.CveMovimiento <= 0

@@ -2912,7 +2897,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                        drr("CveSeccionAlmacen") = -3
                                    Next

-                                    Dim MovEntradaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, dttexa, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R2")
+                                    Dim MovEntradaExA As MMovimientoAlmacen = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, dttexa, ObjInventario, ObjConta, False, "RA/G2R2")

                                    ErrorMovInv = MovEntradaExA.CveMovimiento <= 0

@@ -2934,7 +2919,7 @@ Partial Class Inventarios_RecepcionAlmacen

                                                For Each DrFactura As DataRow In Dt.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows
                                                    Dim dtSalidaFactura As DataTable = dttsalida.FiltraParametros($"CveVenta={DrFactura("CveVenta")}")
-                                                    Dim MovSalidaDirectaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 40, DrFactura("CveVenta").ToString().ToEntero(), MovEntradaExA.CveMovimiento, dtSalidaFactura, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R3")
+                                                    Dim MovSalidaDirectaExA As MMovimientoAlmacen = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 40, DrFactura("CveVenta").ToString().ToEntero(), MovEntradaExA.CveMovimiento, dtSalidaFactura, ObjInventario, ObjConta, False, "RA/G2R3")

                                                    ErrorMovInv = MovSalidaDirectaExA.CveMovimiento <= 0

@@ -2970,12 +2955,12 @@ Partial Class Inventarios_RecepcionAlmacen
                If Apartado Then
                    If ObjInventario.GetMovimientosDetalleVendedor(CveMovimiento) Then

-                        Dim CveMovtoSalidaActual = -1
-                        Dim CveMovtoEntradaActual = -1
-                        Dim CveVendedorActual = -1
-                        Dim CveClienteActual = -1
+                        Dim CveMovtoSalidaActual As Integer = -1
+                        Dim CveMovtoEntradaActual As Integer = -1
+                        Dim CveVendedorActual As Integer = -1
+                        Dim CveClienteActual As Integer = -1

-                        Dim CveAlmacenDestino = CveAlmacenApartado
+                        Dim CveAlmacenDestino As Integer = CveAlmacenApartado
                        Dim CveSeccionDestino As Integer = -1

                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -3016,7 +3001,7 @@ Partial Class Inventarios_RecepcionAlmacen

                        If Not ErrorMovInv Then
                            'registra la prepóliza en el traspaso
-                            If Not GeneraPrePolizaMovimientoAlmacen(CveMovtoEntradaActual, CveMovtoSalidaActual, ObjInventario, ObjConta, ObjContaContPAQ, False) Then
+                            If Not GeneraPrePolizaMovimientoAlmacen(CveMovtoEntradaActual, CveMovtoSalidaActual, ObjInventario, ObjConta, False) Then
                                ErrorMovInv = True
                            End If
                        End If
@@ -3052,7 +3037,7 @@ Partial Class Inventarios_RecepcionAlmacen
                            FolioVirtual = ObjInventario.Folio

                            For Each RowUsado As DataRow In DtPSVirtual.Rows
-                                Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                                Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero()
                                Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
                                Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
                                Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
@@ -3071,7 +3056,7 @@ Partial Class Inventarios_RecepcionAlmacen

                            Dim tConcepto As String = String.Format("Entrada Virtual {0}", HLFolio.Text)
                            Dim tReferencia As String = HLFolio.Text
-                            Dim tCvePrePoliza = ObjConta.AddPrePolizas("Inv_RAlmVirtual", 74, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            Dim tCvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv_RAlmVirtual", 74, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)

                            If tCvePrePoliza > 0 Then

@@ -3096,7 +3081,7 @@ Partial Class Inventarios_RecepcionAlmacen
                If Not ErrorMovInv AndAlso UsuarioActual.Empresa.UsaAC AndAlso EsContabilizable Then
                    Dim IDPoliza As Integer
                    Dim TotalDetalle As Decimal = 0
-                    Dim TotalPorDevengar = 0.0
+                    Dim TotalPorDevengar As Decimal = 0
                    TotalPorDevengar += GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Math.Round(Gvr.DataKey("PU").ToString.ToDecimal, 4) * Math.Round(Gvr.DataKey("CantidadF").ToString.ToDecimal, 4))
                    TotalPorDevengar = Math.Round(TotalPorDevengar, 4)
                    If ObjContaAC Is Nothing Then
@@ -3191,8 +3176,8 @@ Partial Class Inventarios_RecepcionAlmacen

                            For Each Tam As DataRow In DtTamanios.Rows
                                If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then
-                                    Dim CvePSCargo = Tam("CvePSCargo").ToString().ToEntero()
-                                    Dim RowCompraDetalle = DtComprasDetalle.FiltroPrimero($"CvePS = {CvePSCargo}")
+                                    Dim CvePSCargo As Integer = Tam("CvePSCargo").ToString().ToEntero()
+                                    Dim RowCompraDetalle As DataRow = DtComprasDetalle.FiltroPrimero($"CvePS = {CvePSCargo}")

                                    If RowCompraDetalle IsNot Nothing Then
                                        Dim Row As DataRow = DtPSVirtual.NewRow()
@@ -3216,7 +3201,7 @@ Partial Class Inventarios_RecepcionAlmacen
                        FolioVirtual = ObjInventario.Folio

                        For Each RowUsado As DataRow In DtPSVirtual.Rows
-                            Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                            Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero()
                            Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
                            Dim PU As Decimal = RowUsado("PU").ToString().ToDecimal()
                            Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
@@ -3268,7 +3253,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                FolioVirtual = ObjInventario.Folio

                                For Each RowUsado As DataRow In DtPSVirtual.Rows
-                                    Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                                    Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero()
                                    Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
                                    Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
                                    Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
@@ -3357,9 +3342,9 @@ Partial Class Inventarios_RecepcionAlmacen
                    Dim CveProveedor As Integer = -1
                    Dim ProveedorNombre As String = ""
                    Dim SerieFolio As String = ""
-                    Dim CveConceptoContableCosto = -1
-                    Dim CveConceptoContableCostoME = -1
-                    Dim CveConceptoContableCostoComplementaria = -1
+                    Dim CveConceptoContableCosto As Integer = -1
+                    Dim CveConceptoContableCostoME As Integer = -1
+                    Dim CveConceptoContableCostoComplementaria As Integer = -1
                    Dim UsaComplementariaFleteImportaciones As Boolean = False
                    If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaFleteImportaciones = False

@@ -3466,7 +3451,7 @@ Partial Class Inventarios_RecepcionAlmacen
                            End If
                        End If

-                        If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                        If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
                            If ObjConta.ValorPolizaDescuadre > 0 Then
                                GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                                MensajeError = "El Movimiento presenta una diferencia en el registro."
@@ -3494,11 +3479,7 @@ Partial Class Inventarios_RecepcionAlmacen
                            End If

                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                                If ObjContaContPAQ Is Nothing Then
-                                    ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                                    ObjContaContPAQ.IniciaTransacSQL()
-                                End If
-                                If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
+                                If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                    MensajeContabilidad = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
                                Else
                                    ErrorMovInv = True
@@ -3524,7 +3505,7 @@ Partial Class Inventarios_RecepcionAlmacen
                    Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL

                    Dim TotalNC As Decimal = 0
-                    Dim CveClasificacionDifCostoNC = -1
+                    Dim CveClasificacionDifCostoNC As Integer = -1
                    Dim tTipoCambio As Decimal = 1
                    If CveMoneda <> 1 Then tTipoCambio = TipoCambio

@@ -3541,7 +3522,7 @@ Partial Class Inventarios_RecepcionAlmacen
                    Dim CveProveedor As Integer = -1
                    Dim ProveedorNombre As String = ""
                    Dim SerieFolio As String = ""
-                    Dim CveConceptoContableNC = -1
+                    Dim CveConceptoContableNC As Integer = -1

                    If DtCostos.Rows.Count > 0 Then
                        If CveCompraSurtir > 0 Then
@@ -3578,7 +3559,7 @@ Partial Class Inventarios_RecepcionAlmacen
                            End If
                        End If

-                        If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                        If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
                            If ObjConta.ValorPolizaDescuadre > 0 Then
                                GuardaLogAD($"Inventarios/RecepcionAlmacen-PPNC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                                ErrorMovInv = True
@@ -3606,9 +3587,8 @@ Partial Class Inventarios_RecepcionAlmacen
                            End If

                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                                ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                                ObjContaContPAQ.IniciaTransacSQL()
-                                If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
+
+                                If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                    MensajeContabilidad = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
                                Else
                                    ErrorMovInv = True
@@ -3709,7 +3689,6 @@ Partial Class Inventarios_RecepcionAlmacen
        If Not ErrorMovInv Then
            ObjInventario.Commit() ' aplica los movimientos insertados
            If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
-            If ObjContaContPAQ IsNot Nothing Then ObjContaContPAQ.Commit()
            RegistraScript("playsonidito('beep-07.wav')")

            ' 'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
@@ -3750,14 +3729,14 @@ Partial Class Inventarios_RecepcionAlmacen
                Msg.AppendFormat("<br/><br/> Movimientos de control:<br/>")

                If MovtosEntradaExA.Count > 0 Then
-                    For index = 0 To MovtosEntradaExA.Count - 1
-                        link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosEntradaExA(index), FoliosEntradaExA(index))
+                    For ind As Integer = 0 To MovtosEntradaExA.Count - 1
+                        link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosEntradaExA(ind), FoliosEntradaExA(ind))
                        Msg.AppendFormat("<br/>Movimiento de Entrada Folio: <b>{0}</b>", link)
                    Next
                End If

-                For index = 0 To MovtosSalidaDirecta.Count - 1
-                    link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosSalidaDirecta(index), FoliosSalidaDirecta(index))
+                For ind As Integer = 0 To MovtosSalidaDirecta.Count - 1
+                    link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosSalidaDirecta(ind), FoliosSalidaDirecta(ind))
                    Msg.AppendFormat("<br/>Movimiento de Salida Folio: <b>{0}</b>", link)
                Next

@@ -3767,10 +3746,10 @@ Partial Class Inventarios_RecepcionAlmacen
            'APARTADO
            If MovtosSalida.Count > 0 Then
                Msg.AppendFormat("<br/><br/> Movimientos de control:<br/>")
-                For index = 0 To MovtosSalida.Count - 1
-                    link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosSalida(index), FoliosSalida(index))
+                For ind As Integer = 0 To MovtosSalida.Count - 1
+                    link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosSalida(ind), FoliosSalida(ind))
                    Msg.AppendFormat("<br/>Movimiento de Salida por Traspaso: Folio: <b>{0}</b>", link)
-                    link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosEntrada(index), FoliosEntrada(index))
+                    link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosEntrada(ind), FoliosEntrada(ind))
                    Msg.AppendFormat("<br/>Movimiento de Entrada por Traspaso: Folio: <b>{0}</b><br/>", link)
                Next
            End If
@@ -3797,7 +3776,6 @@ Partial Class Inventarios_RecepcionAlmacen
        Else
            ObjInventario.RollBack()
            If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-            If ObjContaContPAQ IsNot Nothing Then ObjContaContPAQ.RollBack()
            RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")

            If Not String.IsNullOrEmpty(MensajeError) Then
@@ -3807,10 +3785,9 @@ Partial Class Inventarios_RecepcionAlmacen

        ObjInventario.Dispose()
        If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
-        If ObjContaContPAQ IsNot Nothing Then ObjContaContPAQ.Dispose()
    End Sub

-    Private Function GenerarMovimientoAlmacenVenta(CveAlmacen As Integer, CveConceptoAlmacen As Integer, CveVenta As Integer, CveMovimientoRelacionado As Integer, DtDetalle As DataTable, ObjInventario As ClsInventarios, ObjConta As ClsContabilidad, ObjContaContPAQ As ClsContPAQi, EsContabilizable As Boolean, Modulo As String) As MMovimientoAlmacen
+    Private Function GenerarMovimientoAlmacenVenta(CveAlmacen As Integer, CveConceptoAlmacen As Integer, CveVenta As Integer, CveMovimientoRelacionado As Integer, DtDetalle As DataTable, ObjInventario As ClsInventarios, ObjConta As ClsContabilidad, EsContabilizable As Boolean, Modulo As String) As MMovimientoAlmacen
        Dim ErrorMovInv As Boolean = False
        Dim Retorno As New MMovimientoAlmacen

@@ -3836,7 +3813,7 @@ Partial Class Inventarios_RecepcionAlmacen
        End If

        If Not ErrorMovInv AndAlso CveConceptoAlmacen = 3 Then
-            If Not GeneraPrePolizaSalidaEntregaDirecta(CveMovtoSalidaDirecta, ObjInventario, ObjConta, ObjContaContPAQ, EsContabilizable) Then
+            If Not GeneraPrePolizaSalidaEntregaDirecta(CveMovtoSalidaDirecta, ObjInventario, ObjConta, EsContabilizable) Then
                ErrorMovInv = True
            End If
        End If
@@ -3853,7 +3830,7 @@ Partial Class Inventarios_RecepcionAlmacen
        Dim InvFolio As String = ""
        Dim FechaMovto As Date = TxtFecha.Text.ToDate
        Dim ErrorMovInv As Boolean
-        Dim MensajeError = ""
+        Dim MensajeError As String = ""

        Dim ObjInventario As New ClsInventarios
        Dim ObjBitacora As New ClsOIEventos(ObjInventario.IniciaTransacSQL())
@@ -4027,7 +4004,7 @@ Partial Class Inventarios_RecepcionAlmacen
            End If
        End If

-        If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
+        If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then
            If ObjConta.ValorPolizaDescuadre > 0 Then
                GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                ErrorMovInv = True
@@ -4204,9 +4181,9 @@ Partial Class Inventarios_RecepcionAlmacen
    Private Sub CargaOC()

        'OBTENE CveOC
-        Dim CveOC = -1
-        Dim MensajeCompra = ""
-        Dim FolioOC = TxtOC.Text.Trim.ToEntero
+        Dim CveOC As Integer = -1
+        Dim MensajeCompra As String = ""
+        Dim FolioOC As Integer = TxtOC.Text.Trim.ToEntero
        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
@@ -4458,7 +4435,7 @@ Partial Class Inventarios_RecepcionAlmacen


        'AGREGA
-        Dim Dr = DtBitacora.NewRow
+        Dim Dr As DataRow = DtBitacora.NewRow
        Dr("FechaIng") = Now
        Dr("FechaInicio") = ""
        Dr("Usuario") = UsuarioActual.Usuario
@@ -4488,7 +4465,7 @@ Partial Class Inventarios_RecepcionAlmacen
        UPEventoBitacora.Update()
    End Sub
    Private Function GuardaBitacoraTemporal(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
        Dim Archivo As System.IO.FileInfo = Nothing

        For Each Dr As DataRow In DtBitacora.Rows
@@ -5057,12 +5034,12 @@ Partial Class Inventarios_RecepcionAlmacen
 #End Region

    Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
-        Dim Retorno = True
+        Dim Retorno As Boolean = True
        Dim Archivo As System.IO.FileInfo = Nothing

        Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos

-        Dim archivoOriginal = Filesgral.FirstOrDefault()
+        Dim archivoOriginal As Archivo = Filesgral.FirstOrDefault()
        Dim Bitacora As String = ""

        If Not String.IsNullOrEmpty(TxtObservaciones.Text) Then