diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 35d8638ea..85ebc6d5d 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -1735,13 +1735,14 @@ Public Class ClsCompras
         Return OnError
     End Function
 
-    Public Function UpdateEstatus(pFueValidado As Integer, pCveFactura As Integer) As Boolean
+    Public Function UpdateEstatus(pFueValidado As Integer, pCveFactura As Integer, CveEmpresa As Integer) As Boolean
         Dim OnError As Boolean = False
 
-        DataAdapter("UPDATE Comp_Facturas  SET FueValidado = @pFueValidado WHERE CveFactura = @pCveFactura ", CommandType.Text)
+        DataAdapter("UPDATE Comp_Facturas  SET FueValidado = @pFueValidado WHERE CveFactura = @pCveFactura AND CveEmpresa = @CveEmpresa ", CommandType.Text)
         With SqlAdapter.SelectCommand.Parameters
             .Add("@pFueValidado", SqlDbType.SmallInt).Value = pFueValidado
             .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try
@@ -1754,12 +1755,14 @@ Public Class ClsCompras
         Return OnError
     End Function
 
-    Public Function DeleteFactura(pCveFactura As Integer) As Boolean
+    Public Function DeleteFactura(pCveFactura As Integer, CveEmpresa As Integer) As Boolean
         Dim OnError As Boolean = False
 
-        DataAdapter("  DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveCompra IS NULL ", CommandType.Text)
-
-        SqlAdapter.SelectCommand.Parameters.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura
+        DataAdapter("  DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveEmpresa = @CveEmpresa AND CveCompra IS NULL ", CommandType.Text)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
 
         Try
             SqlAdapter.Fill(Data)
diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index 6db0581ce..2ee41c7a7 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -1438,13 +1438,13 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Banc_IE IE ON IE.CveIE = PD.CveIE")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Banc_BancosCuentas BC ON BC.CveCuenta = IE.CveCuenta")
-        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
-        StrSQL.AppendLine("        LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id")
+        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Banc_IE IE WITH(NOLOCK) ON IE.CveIE = PD.CveIE")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Banc_BancosCuentas BC WITH(NOLOCK) ON BC.CveCuenta = IE.CveCuenta")
+        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
+        StrSQL.AppendLine("        LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id")
         StrSQL.AppendLine("        WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable = 30 AND BC.CveTipoCuenta = 1")
         StrSQL.AppendLine("        AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF")
@@ -1468,13 +1468,13 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM MovimientosPoliza MP")
-        StrSQL.AppendLine("        INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        INNER JOIN Cuentas C ON MP.IdCuenta = C.Id")
+        StrSQL.AppendLine("        FROM MovimientosPoliza MP WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id")
         StrSQL.AppendLine("        INNER JOIN #CuentasContablesRecursivas A ON A.Id = C.Id")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl ON Cl.CveProveedor = PD.CveProveedor")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl WITH(NOLOCK) ON Cl.CveProveedor = PD.CveProveedor")
         StrSQL.AppendLine("        WHERE (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
         StrSQL.AppendLine("        ")
@@ -1492,12 +1492,12 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl ON Cl.CveProveedor = PD.CveProveedor")
-        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
-        StrSQL.AppendLine("        LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id")
+        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl WITH(NOLOCK) ON Cl.CveProveedor = PD.CveProveedor")
+        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
+        StrSQL.AppendLine("        LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id")
         StrSQL.AppendLine("        WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable IN (43,37)     ")
         StrSQL.AppendLine("        AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF")
@@ -1521,13 +1521,13 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM MovimientosPoliza MP")
-        StrSQL.AppendLine("        INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        INNER JOIN Cuentas C ON MP.IdCuenta = C.Id")
+        StrSQL.AppendLine("        FROM MovimientosPoliza MP WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id")
         StrSQL.AppendLine("        INNER JOIN #CuentasContablesRecursivas A ON A.Id = C.Id")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl ON Cl.CveProveedor = PD.CveProveedor")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl WITH(NOLOCK) ON Cl.CveProveedor = PD.CveProveedor")
         StrSQL.AppendLine("        WHERE (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
         StrSQL.AppendLine("        ")
@@ -1545,12 +1545,12 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl ON Cl.CveProveedor = PD.CveProveedor")
-        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
-        StrSQL.AppendLine("        LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id")
+        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Comp_Proveedores Cl WITH(NOLOCK) ON Cl.CveProveedor = PD.CveProveedor")
+        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
+        StrSQL.AppendLine("        LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id")
         StrSQL.AppendLine("        WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable IN (41,42)     ")
         StrSQL.AppendLine("        AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF")
@@ -1578,9 +1578,9 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("        INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
         StrSQL.AppendLine("        INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id")
         StrSQL.AppendLine("        INNER JOIN #CuentasContablesRecursivas A ON A.Id = C.Id")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Vw_Clientes Cl ON PD.CveCliente = Cl.CveCliente")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Vw_Clientes Cl WITH(NOLOCK) ON PD.CveCliente = Cl.CveCliente")
         StrSQL.AppendLine("        WHERE (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
         StrSQL.AppendLine("        ")
@@ -1598,12 +1598,12 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Vw_Clientes Cl ON Cl.CveCliente = PD.CveCliente")
-        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
-        StrSQL.AppendLine("        LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id")
+        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Vw_Clientes Cl WITH(NOLOCK) ON Cl.CveCliente = PD.CveCliente")
+        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
+        StrSQL.AppendLine("        LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id")
         StrSQL.AppendLine("        WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable IN (3,11)     ")
         StrSQL.AppendLine("        AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF            ")
@@ -1679,11 +1679,11 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM MovimientosPoliza MP")
-        StrSQL.AppendLine("        INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        INNER JOIN Cuentas C ON MP.IdCuenta = C.Id")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        FROM MovimientosPoliza MP WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
         StrSQL.AppendLine("        WHERE MP.IdCuenta = @CveFuncionalidad AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
         StrSQL.AppendLine("        ")
@@ -1732,8 +1732,8 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("        FROM MovimientosPoliza MP WITH(NOLOCK)")
         StrSQL.AppendLine("        INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
         StrSQL.AppendLine("        INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
         StrSQL.AppendLine("        WHERE MP.IdCuenta = @CveFuncionalidad AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
         StrSQL.AppendLine("        ")
@@ -1879,12 +1879,12 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM MovimientosPoliza MP")
-        StrSQL.AppendLine("        INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        INNER JOIN Cuentas C ON MP.IdCuenta = C.Id")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC ON CC.CveClasificacion = PD.CveClasificacion")
+        StrSQL.AppendLine("        FROM MovimientosPoliza MP WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC WITH(NOLOCK) ON CC.CveClasificacion = PD.CveClasificacion")
         StrSQL.AppendLine("        WHERE MP.IdCuenta = @CveFuncionalidad AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
         StrSQL.AppendLine("        ")
@@ -1902,12 +1902,12 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC ON CC.CveClasificacion = PD.CveClasificacion")
-        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
-        StrSQL.AppendLine("        LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id")
+        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC WITH(NOLOCK) ON CC.CveClasificacion = PD.CveClasificacion")
+        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
+        StrSQL.AppendLine("        LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id")
         StrSQL.AppendLine("        WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable = 4  ")
         StrSQL.AppendLine("        AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF")
@@ -1931,12 +1931,12 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM MovimientosPoliza MP")
-        StrSQL.AppendLine("        INNER JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        INNER JOIN Cuentas C ON MP.IdCuenta = C.Id")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC ON CC.CveClasificacion = PD.CveClasificacion")
+        StrSQL.AppendLine("        FROM MovimientosPoliza MP WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        INNER JOIN Cuentas C WITH(NOLOCK) ON MP.IdCuenta = C.Id")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle AND PD.Contabilizable = 1")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        LEFT JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC WITH(NOLOCK) ON CC.CveClasificacion = PD.CveClasificacion")
         StrSQL.AppendLine("        WHERE MP.IdCuenta = @CveFuncionalidad AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(MP.Fecha AS DATE) >= @FechaI AND CAST(MP.Fecha AS DATE) <= @FechaF")
         StrSQL.AppendLine("        ")
@@ -1954,12 +1954,12 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("          ISNULL(PD.CveIE,0) AS CveIE,")
         StrSQL.AppendLine("          ISNULL(PD.CveVenta,0) AS CveVenta,")
         StrSQL.AppendLine("          ISNULL(PD.CveCompra,0) AS CveCompra")
-        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P ON P.CvePrePoliza = PD.CvePrePoliza")
-        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC ON CC.CveClasificacion = PD.CveClasificacion")
-        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
-        StrSQL.AppendLine("        LEFT JOIN Polizas CP ON MP.IdPoliza = CP.Id")
-        StrSQL.AppendLine("        LEFT JOIN Cuentas C ON PD.IdCtaContable = C.Id")
+        StrSQL.AppendLine("        FROM [SERVIDOR].Ventas.dbo.Conta_PrePolizasDetalle PD WITH(NOLOCK)")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Conta_PrePolizas P WITH(NOLOCK) ON P.CvePrePoliza = PD.CvePrePoliza")
+        StrSQL.AppendLine("        INNER JOIN [SERVIDOR].Ventas.dbo.Clasificaciones CC WITH(NOLOCK) ON CC.CveClasificacion = PD.CveClasificacion")
+        StrSQL.AppendLine("        LEFT JOIN MovimientosPoliza MP WITH(NOLOCK) ON MP.CvePrePolizaDetalle = PD.CvePrePolizaDetalle")
+        StrSQL.AppendLine("        LEFT JOIN Polizas CP WITH(NOLOCK) ON MP.IdPoliza = CP.Id")
+        StrSQL.AppendLine("        LEFT JOIN Cuentas C WITH(NOLOCK) ON PD.IdCtaContable = C.Id")
         StrSQL.AppendLine("        WHERE P.CveEmpresa = @CveEmpresa AND PD.Contabilizable = 1 AND PD.CveConceptoContable = 6 ")
         StrSQL.AppendLine("        AND (ISNULL(MP.IdCuenta,-1) <> ISNULL(PD.IdCtaContable, -1) OR ISNULL(MP.Importe,0) <> ISNULL(PD.ImporteMN,0) OR ISNULL(MP.TipoMovto,0) <> ISNULL(PD.TipoMovto,0))")
         StrSQL.AppendLine("        AND CAST(P.Fecha AS DATE) >= @FechaI AND CAST(P.Fecha AS DATE) <= @FechaF")
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 21be0f560..fd678dad0 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4926,7 +4926,7 @@ Public Class ClsVentas
         Return retorno
     End Function
     Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer,
-                                          CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer, CveCliente As Integer,
+                                          CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer, CveCliente As Integer, EsDistribuidor As Integer,
                                           Optional GrupoSuperior As Integer = 0) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure)
@@ -4940,6 +4940,7 @@ Public Class ClsVentas
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
             .Add("@GrupoSuperior", SqlDbType.Int).Value = GrupoSuperior
         End With
         Try
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 75674b4a0..b86aee900 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4695,7 +4695,7 @@ Partial Class Compras_Compras
                             'End If
 
                             'METODO DE PREPOLIZA DE ALMACEN
-                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
                                 Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                 If ImporteAlmacen > 0 Then
                                     If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -4764,7 +4764,7 @@ Partial Class Compras_Compras
                                 ViewState("CveCompra") = ObjCompras.CveCompra
                                 If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
                                 If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
-                                    Devolucion = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal.Text.ToDecimal, TxtFecha.Text.Trim.ToDate)
+                                    Devolucion = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal2.Text.ToDecimal, TxtFecha.Text.Trim.ToDate)
 
                                     TotalRealDevolucion = Devolucion.Total
 
@@ -6518,7 +6518,7 @@ Partial Class Compras_Compras
                                                         '    End If
                                                         Case 6 'Compra
 
-                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 158, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
                                                             Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
@@ -7809,8 +7809,6 @@ Partial Class Compras_Compras
                                                             idCuentaContabilizacion = 0
                                                         End If
 
-
-
                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
                                                             ErrorPrepoliza = True
                                                             Exit For
@@ -14414,26 +14412,21 @@ Partial Class Compras_Compras
 
     Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Decimal, Fecha As Date) As MMensajeDevolucion
 
-
-        Dim TotalSumaPU As Decimal = 0.0D
-
-
+        Dim TotalSumaPU As Decimal = 0
         Dim ErrorMovInv As Boolean = False
         Dim CveAlmacen As Integer = DdlAlmacenDevolucion.SelectedValue.ToEntero()
-        Dim subtotaldevolucion As Double = 0
+        Dim subtotaldevolucion As Decimal = 0
         Dim realizadevolucion As Boolean = False
         Dim CveMovimientoEntrada As Integer = -1
         'Calculo los subtotales para comparar con la NC
-        Dim cantidad As Double = 0.0
-        Dim TotalAlmacen As Decimal = 0
-
+        Dim Cantidad As Decimal
 
         For Each Dr As GridViewRow In GVDevolucion.Rows
             'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero
-            cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble
+            cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
             If cantidad > 0 Then
                 realizadevolucion = True
-                subtotaldevolucion += Dr.DataKey("PU").ToString.ToDouble * cantidad
+                subtotaldevolucion += Dr.DataKey("PU").ToString.ToDecimal * cantidad
             End If
         Next
         'si no esta vinculado a nc simplemente me lo brinco
@@ -14447,7 +14440,7 @@ Partial Class Compras_Compras
                     ErrorMovInv = True
                 Else
                     Dim Acumulado As Decimal = 0
-                    Dim PU As Decimal = 0
+                    Dim PU As Decimal
                     Dim CantidadRenglones As Integer = 0
                     Dim ii As Integer = 0
                     For Each Dr As GridViewRow In GVDevolucion.Rows
@@ -14466,7 +14459,6 @@ Partial Class Compras_Compras
                                 PU = (((Dr.FCTextBox("TxtCantidad").Text.ToDecimal * Dr.DataKey("PU").ToString.ToDecimal)) + dif) / Dr.FCTextBox("TxtCantidad").Text.ToDecimal
                             End If
 
-
                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr.FCTextBox("TxtCantidad").Text.ToDouble, Dr.DataKey("CveUM").ToString.ToEntero, Dr.DataKey("CvePS").ToString.ToEntero, PU, -1, CveMovimientoDetalleEntrada:=Dr.DataKey("CveMovimientoDetalle").ToString.ToEntero) Then
                                 ErrorMovInv = True
                                 Exit For
@@ -14481,8 +14473,6 @@ Partial Class Compras_Compras
             End If
         End If
 
-
-
         If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1, -1) Then
 
             For Each drow As DataRow In ObjInventario.DtResultados.Rows
@@ -14491,8 +14481,6 @@ Partial Class Compras_Compras
 
         End If
 
-
-
         Return New MMensajeDevolucion() With
         {
             .CveMovimiento = CveMovimientoEntrada,
@@ -14567,7 +14555,7 @@ Partial Class Compras_Compras
             'si no esta vinculado a nc simplemente me lo brinco
             If realizadevolucion Then
                 'si el subtotal es iwal a la nc lo guardo si no marco error
-                If TxtSubTotal.Text.ToDouble > subtotaldevolucion - 1 AndAlso TxtSubTotal.Text.ToDouble < subtotaldevolucion + 1 Then
+                If TxtSubTotal2.Text.ToDouble > subtotaldevolucion - 1 AndAlso TxtSubTotal2.Text.ToDouble < subtotaldevolucion + 1 Then
 
                     VinculaDevolucion()
 
@@ -14588,7 +14576,7 @@ Partial Class Compras_Compras
         'LIMPIAR PARTIDAS DE LA COMPRA PARA AGREGAR NUEVAS
         TmpDT.Clear()
 
-        Dim SubTotalCompra As Decimal = TxtSubTotal.Text.ToDecimal()
+        Dim SubTotalCompra As Decimal = TxtSubTotal2.Text.ToDecimal()
         Dim TotalCompra As Decimal = TxtTotal.Text.ToDecimal()
         Dim IVACompra As Decimal = TxtIVA.Text.ToDecimal()
         Dim IEPSCompra As Decimal = TxtIEPS.Text.ToDecimal()
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index e50b0a6ec..be531b95e 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -1095,7 +1095,7 @@ Partial Class Compras_eFacturas
         Dim ObjDatos As New ClsCompras
         Dim FueValidado As Integer = 0
         If GvD.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1
-        If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
+        If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
             GvD.EditIndex = -1
             BtnConsultar_Click(sender, e)
         End If
@@ -1138,16 +1138,16 @@ Partial Class Compras_eFacturas
                     If ObjValidacion.EsValida = 2 Then
                         Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion)
                     End If
-                    Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero)
+                    Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
                 Else
                     Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia)
                 End If
                 ObjValidacion.Dispose()
             Case "ValidarCFD"
-                Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero)
+                Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
 
             Case "Omitir"
-                Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero)
+                Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
         End Select
 
         ObjDatos.Dispose()
@@ -1261,7 +1261,7 @@ Partial Class Compras_eFacturas
         Dim ObjDatos As New ClsCompras
         Dim FueValidado As Integer = 0
         If GvPagos.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1
-        If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
+        If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
             GvPagos.EditIndex = -1
         End If
         ObjDatos.Dispose()
@@ -1298,16 +1298,16 @@ Partial Class Compras_eFacturas
                     If ObjValidacion.EsValida = 2 Then
                         Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion)
                     End If
-                    Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero)
+                    Correcto = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
                 Else
                     Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia)
                 End If
                 ObjValidacion.Dispose()
             Case "ValidarCFD"
-                Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero)
+                Correcto = ObjDatos.UpdateEstatus(1, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
 
             Case "Omitir"
-                Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero)
+                Correcto = ObjDatos.UpdateEstatus(3, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
         End Select
 
         ObjDatos.Dispose()
@@ -1317,15 +1317,15 @@ Partial Class Compras_eFacturas
     End Sub
 #End Region
     Protected Sub ImgCFDiMasivo_Click(sender As Object, e As EventArgs) Handles LnkCFDiMasivo.Click
-        Dim ObjDatos As New ClsCompras
-        ObjDatos.IniciaTransacSQL()
+
         Dim ErrorTrans As Boolean = False
         If Tab.ActiveTabIndex = 0 Then
             For Each GvRow As GridViewRow In GvD.Rows
                 If GvRow.DataKey("TipoFactura") = "CFDi" AndAlso GvRow.DataKey("FueValidado").Contiene("0", "1") Then
                     Dim ObjValidacion As New ClsValidaCFDi(GvRow.DataKey("UUID"), GvRow.DataKey("RFCDe"), GvRow.DataKey("RFCPara"), GvRow.DataKey("Total").ToDecimal)
                     If ObjValidacion.EsValida > 0 Then
-                        If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) Then
+                        Dim ObjDatos As New ClsCompras
+                        If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then
                             ErrorTrans = True
                         End If
                     End If
@@ -1337,22 +1337,23 @@ Partial Class Compras_eFacturas
                 If GvRow.DataKey("TipoFactura") = "CFDi" AndAlso GvRow.DataKey("FueValidado").Contiene("0", "1") Then
                     Dim ObjValidacion As New ClsValidaCFDi(GvRow.DataKey("UUID"), GvRow.DataKey("RFCDe"), GvRow.DataKey("RFCPara"), 0)
                     If ObjValidacion.EsValida > 0 Then
-                        If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero) Then
+                        Dim ObjDatos As New ClsCompras
+                        If Not ObjDatos.UpdateEstatus(ObjValidacion.EsValida, GvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then
                             ErrorTrans = True
                         End If
+                        ObjDatos.Dispose()
                     End If
                     ObjValidacion.Dispose()
                 End If
             Next
         End If
         If Not ErrorTrans Then
-            ObjDatos.Commit()
+
             Alert("La verificación masiva ha terminado", TipoMensaje.MsgInformacion)
             CargaDatos()
-        Else
-            ObjDatos.RollBack()
+
         End If
-        ObjDatos.Dispose()
+
     End Sub
     Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs, Optional ValidaRowCount As Boolean = False) Handles LnkNoRecibias.Click
         Dim DtNoRecibidas As New DataTable
@@ -2656,7 +2657,7 @@ Partial Class Compras_eFacturas
             ObjGral.Dispose()
             If Borrar = True Then
                 Dim ObjCompras As New ClsCompras
-                If ObjCompras.DeleteFactura(CveFactura) Then
+                If ObjCompras.DeleteFactura(CveFactura, UsuarioActual.CveEmpresa) Then
                     GvD.EditIndex = -1
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "divDescripcion"))
                     Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion)
@@ -2681,7 +2682,7 @@ Partial Class Compras_eFacturas
             ObjGral.Dispose()
             If Borrar = True Then
                 Dim ObjCompras As New ClsCompras
-                If ObjCompras.DeleteFactura(CveFactura) Then
+                If ObjCompras.DeleteFactura(CveFactura, UsuarioActual.CveEmpresa) Then
                     GvPagos.EditIndex = -1
                     RegistraScript("$('#divDescripcionPago').modal('hide');")
                     Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion)
@@ -3966,7 +3967,7 @@ Partial Class Compras_eFacturas
                     ValidadoSAT = False
                 Else
                     Dim ObjDatos As New ClsCompras
-                    ValidadoSAT = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, gvRow.DataKey("CveFactura").ToEntero)
+                    ValidadoSAT = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, gvRow.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa)
                     ObjDatos.Dispose()
                 End If
 
diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index b3bfd9b46..31d653243 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -475,7 +475,7 @@
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
 
                         <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
-                            DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,EsComplementaria" Width="100%" >
+                            DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC" Width="100%" >
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Movimiento</HeaderTemplate>
@@ -796,7 +796,7 @@
                                         <div class="row" runat="server" id="DvModalconceptoVenta" visible="false">
                                             <div class="col-xs-2" style="text-align: left">Venta:</div>
                                             <div class="col-xs-4" style="text-align: left">
-                                                <asp:DropDownList ID="DdlVentasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="405px"></asp:DropDownList>
+                                                <asp:DropDownList ID="DdlVentasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="405px" AutoPostBack="true" OnSelectedIndexChanged="DdlVentasE_SelectedIndexChanged"></asp:DropDownList>
                                                 <asp:RequiredFieldValidator ID="RfvDdlVentasE" InitialValue="-1" runat="server" ControlToValidate="DdlVentasE" Display="None" ErrorMessage="El campo <b>''Venta''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="CeRfvDdlVentasE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlVentasE" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 <i></i>
@@ -837,9 +837,7 @@
                                                 TC:
                                             </div>
                                             <div class="col-xs-3">
-                                                <asp:TextBox ID="TxtTipoCambio" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
-                                                <asp:CompareValidator ID="RfvTxtModalConceptoTipoCambio" runat="server" ControlToValidate="TxtTipoCambio" Display="None" ErrorMessage="El campo <b>''Tipo de Cambio''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
-                                                <ajax:ValidatorCalloutExtender ID="VceRfvTxtModalConceptoTipoCambio" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalConceptoTipoCambio" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                <asp:TextBox ID="TxtTipoCambio" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox>                                                
                                             </div>
                                         </div>
 
@@ -903,9 +901,11 @@
                                             <div class="col-xs-2" style="text-align: left">
                                                 Mon Extrajera:
                                             </div>
-                                            <div class="col-xs-3">
-                                                <asp:TextBox ID="TxtME" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
-                                                
+                                            <div class="col-xs-2">
+                                                <asp:TextBox ID="TxtME" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox> 
+                                            </div>
+                                             <div class="col-xs-8">                                                 
+                                                Importe en dólares, en Cargo/Abono, su proporcional
                                             </div>
                                         </div>
                                         <div class="row">
@@ -925,10 +925,7 @@
                                                 <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>
                                             </div>
-                                        </div>
-
-                                       
-
+                                        </div> 
                                     </div>
                                     <div class="col-md-6" runat="server" id="DvMoldalConceptoSeccion2" visible="false">
 
@@ -990,8 +987,18 @@
                             </div>
 
                             <div class="modal-footer">
-                                <asp:Button ID="BtnAceptar" runat="server" class="btn btn-success" Text="Aceptar" ValidationGroup="GrpMocalConceptoGuardar" />
-                                <button id="BtnCancelar" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                                <div class="row">
+                                      <div class="col-md-8">
+                                          <asp:Button ID="BtnAceptar" runat="server" class="btn btn-success" Text="Aceptar" ValidationGroup="GrpMocalConceptoGuardar" />
+                                            <button id="BtnCancelar" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                                        </div>
+                                    <div class="col-md-4">
+                                          <asp:CheckBox ID="ChkSeguir" runat="server" Checked="true" />
+                                    <label for="<%= ChkSeguir.ClientID.ToString()%>">Seguir Registrando:</label>
+                                        </div>
+                                </div>
+                                
+                              
                             </div>
 
                         </ContentTemplate>
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 7fc9b2cc2..eb0523e61 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -59,15 +59,15 @@ Partial Class ContabilidadC_RegPrePolizaS
         End Get
     End Property
 
-    'PARA CREAR IE
-    Private Property CveConcepto As Integer
+    Public Property DrConceptoContable As DataRow
         Get
-            Return ViewState("CveConcepto").ToString.ToEntero
+            Return CType(ViewState("ArregloMovs"), DataRow)
         End Get
-        Set(value As Integer)
-            ViewState("CveConcepto") = value
+        Set(value As DataRow)
+            ViewState("ArregloMovs") = value
         End Set
     End Property
+
     Private Property CveTipoTransaccion As Integer
         Get
             Return ViewState("CveTipoTransaccion").ToString.ToEntero
@@ -244,7 +244,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             CveMoneda = 1
             ViewState("CvePrePoliza") = 0
             ViewState("CvePeriodo") = "0"
-            CveConcepto = -1
+
             CveTipoTransaccion = -1
             CveCuenta = -1
             Folio = "-1"
@@ -370,7 +370,6 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("ImporteMN", Type.GetType("System.Decimal"))
             .Add("ImporteME", Type.GetType("System.Decimal"))
             .Add("EsComodin", Type.GetType("System.Int32"))
-            .Add("CveConcepto", Type.GetType("System.Int32"))
             .Add("CveSubProyecto", Type.GetType("System.Int32"))
             .Add("Descripcion", Type.GetType("System.String"))
             .Add("CveProveedor", Type.GetType("System.Int32"))
@@ -402,7 +401,6 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("EsComplementaria", Type.GetType("System.Boolean"))
             .Add("TC", Type.GetType("System.Decimal"))
 
-
         End With
 
 
@@ -901,11 +899,11 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             dr("CodigoCuenta") = drt("Codigo").ToString & "<br>" & drt("Nombre").ToString
             dr("Cuenta") = Cuenta  'TxtCuentaContable.Text
-            dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
+            dr("Referencia") = If(drt("CveConceptoContable").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
             dr("Concepto") = TxtConcepto.Text
             dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)
             dr("EsComodin") = EsComodin
-            dr("CveConcepto") = drt("CveConcepto")
+            dr("CveConceptoContable") = drt("CveConceptoContable")
             dr("CveSubProyecto") = drt("CveSubProyectoNegativo")
             dr("Cargo") = TxtCargo.Text.ToDouble
             dr("Abono") = TxtAbono.Text.ToDouble
@@ -978,11 +976,11 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
             'Agregamos la opcion para vincular los movimientos bancarios
-            If e.Row.DataKey("CveConcepto").ToEntero.Contiene(41) Then
+            If e.Row.DataKey("CveConceptoContable").ToEntero.Contiene(41) Then
                 Dim ObjMovimientos As New ClsMovimientos
                 Dim DdlSaldos As DropDownList = e.Row.FCDropDownList("DdlSaldos")
 
-                Select Case e.Row.DataKey("CveConcepto").ToEntero
+                Select Case e.Row.DataKey("CveConceptoContable").ToEntero
 
                     'Acreedores
                     Case 41
@@ -998,7 +996,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 ObjMovimientos.Dispose()
             End If
 
-            If e.Row.DataKey("CveConcepto").ToEntero.Contiene(30) Then
+            If e.Row.DataKey("CveConceptoContable").ToEntero.Contiene(30) Then
                 e.Row.FCLinkButton("ImgBancos").Visible = True
 
                 If e.Row.DataKey("ContadoTipoTransaccion").ToEntero > 0 And e.Row.DataKey("ContadoCuenta").ToEntero > 0 And e.Row.DataKey("ContadoNumeroFolio").ToString.Length > 0 And
@@ -1032,8 +1030,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
 
         'validaciones
-
-
         If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0 Or GvMov.Rows.Count > 0)) AndAlso UsuarioActual.CveRol <> 1 Then
             Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -1049,9 +1045,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         Exit Sub
                     End If
                 End If
-
             Next
-
         End If
 
         'terminan validaciones
@@ -1073,6 +1067,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim TmpCargo As Decimal = 0D
             Dim TmpAbono As Decimal = 0D
             Dim DifCargoAbono As Decimal = 0D
+            Dim TipoGrid As Integer = 0 ' 0 - GvMov, 1 - GvPrePoliza
 
             Try
 
@@ -1090,40 +1085,54 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                     FolioPoliza = ObjMov.FolioPoliza
 
+                    Dim Gv As GridView = GvMov
+                    If DdlPlantilla.SelectedValue = "53" Then
+                        Gv = GvPrePoliza
+                        TipoGrid = 1
+                    End If
+
                     'inserto las compras que voy a pagarDdlSaldos
-                    For Each gvr As GridViewRow In GvMov.Rows
+                    For Each gvr As GridViewRow In Gv.Rows
                         'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
                         '    IdCtaContable = gvr.DataKey("IDCuenta")
                         'End If
 
                         'Registra movimieno bancario
-                        If gvr.DataKey("CveConcepto").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToString.ToDecimal <> 0 Then
+                        If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToDecimal <> 0 Then
 
-                            CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
-                                                       gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
+                            CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio"),
+                                                       gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "",
                                                        False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CveIE < 0 Then
                                 MsgError = "No se pudo registrar movimiento bancario"
                                 Exit For
                             End If
-                            'If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
-                            '    FolioIE = ObjIE.Folio
-                            'End If
+
                         End If
 
                         ImporteME = 0
                         TipoCambio = 1
 
                         If gvr.DataKey("TipoMovto") = "True" Then
-                            Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
-                            TmpAbono = TmpAbono + Importe
-                            TipoMovto = True
+                            If TipoGrid = "0" Then 'gvprep
+                                Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
+                                TmpAbono = TmpAbono + Importe
+                                TipoMovto = True
 
-                            If gvr.DataKey("EsComplementaria") = "True" Then
-                                ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
-                                TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal
+                                If gvr.DataKey("EsComplementaria") = "True" Then
+                                    ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
+                                    TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal
+                                End If
+                            Else
+                                Importe = gvr.DataKey("Abono").ToDecimal
+                                TmpAbono = TmpAbono + Importe
+                                TipoMovto = True
+
+                                If gvr.DataKey("EsComplementaria") = "True" Then
+                                    ImporteME = gvr.DataKey("MonedaExtranjera").ToDecimal
+                                    TipoCambio = gvr.DataKey("TipoCambio").ToDecimal
+                                End If
                             End If
-
                         Else
 
                             Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
@@ -1137,9 +1146,9 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                         End If
 
-                        If Not gvr.DataKey("CveConcepto").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores
+                        If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores
 
-                            If gvr.DataKey("CveConcepto").ToEntero = 41 Then
+                            If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then
                                 CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
                             Else
                                 CveIE = -1
@@ -1158,7 +1167,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                             '    tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
                             'End If
 
-                            If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
+                            If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConceptoContable").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
                                                            TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
                                                            CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
                                                            CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
@@ -1172,7 +1181,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                 Exit For
                             End If
                         End If
-                        If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then
+                        If CveIE > 0 AndAlso gvr.DataKey("CveConceptoContable").ToEntero = 30 Then
                             MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""Texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
                         End If
 
@@ -1428,8 +1437,6 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
 
 
-
-
     Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged
 
         'Aquii hay que  consultar el concepto y determinar que es lo que se vba aplicar
@@ -1440,6 +1447,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         If CveConceptoContableInsertar > 0 Then
 
             DT_Concepto = GlobalDTContaConceptosContables(CveConceptoContableInsertar)
+            DrConceptoContable = GlobalDTContaConceptosContables(CveConceptoContableInsertar).FiltroPrimero("")
 
             Dim AplicaActivoFijo As Boolean = False
             Dim AplicaAlmacen As Boolean = False
@@ -1455,6 +1463,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim AplicaTC As Boolean = False 'ok
             Dim AplicaVenta As Boolean = False
             Dim AplicaComplementaria As Boolean = False 'ok
+            Dim AplicaME As Boolean = False 'ok
 
             AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
             AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString)
@@ -1472,6 +1481,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString)
             AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString)
             AplicaComplementaria = Boolean.Parse(DT_Concepto.Rows(0)("EsComplementaria").ToString)
+            'AplicaME = Boolean.Parse(DT_Concepto.Rows(0)("EsMonedaExtranjera").ToString)
 
 
             If AplicaImpuesto Then
@@ -1549,11 +1559,31 @@ Partial Class ContabilidadC_RegPrePolizaS
             Else
                 DivMonedaExtranjera.Visible = False
             End If
+            CargaCuentaConcepto(CveConceptoContableInsertar)
 
         End If
 
         UpModalConcepto.Update()
     End Sub
+
+    Private Sub CargaCuentaConcepto(CveConcepto As Integer)
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, -1, 1, CveConcepto) Then
+            Dim dr As DataRow = ObjConta.DtResultados.FiltroPrimero("")
+            If dr IsNot Nothing Then
+                DdlCuentaContableE.SelectedValueExist(dr("CveCuenta"))
+            Else
+                If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa, CveConcepto) Then
+                    Dim drY As DataRow = ObjConta.DtResultados.FiltroPrimero("")
+                    If drY IsNot Nothing Then
+                        DdlCuentaContableE.SelectedValueExist(drY("CveCuenta"))
+                    End If
+                End If
+            End If
+        End If
+        ObjConta.Dispose()
+
+    End Sub
     Private Sub CargaProveedoresE()
         DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
         DdlProveedoresE.DataBind()
@@ -1592,7 +1622,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             If CveMoneda = 2 Then
                 DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2")
             Else
-                DdlVentasE.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0")
+                DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 1")
             End If
 
             DdlVentasE.DataBind()
@@ -1619,18 +1649,52 @@ Partial Class ContabilidadC_RegPrePolizaS
         CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero)
     End Sub
     Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange
+        Dim tCveMoneda As Integer = 1
 
-        CargaVentasE(DdlClientesE.SelectedValue.ToEntero, IIf(DdlConceptosContablesE.SelectedValue.Contiene("291", "292"), 2, -1))
+        If DrConceptoContable IsNot Nothing Then
+            Dim AplicaME = Boolean.Parse(DrConceptoContable("EsMonedaExtranjera").ToString)
+            If AplicaME Then
+                tCveMoneda = 2
+            End If
+        End If
+
+        CargaVentasE(DdlClientesE.SelectedValue.ToEntero, tCveMoneda)
     End Sub
 
+    Private Function CargaValidacionesConcepto() As Boolean
+        Dim Retorno As Boolean = true
+
+        If DrConceptoContable IsNot Nothing Then
+            Dim AplicaComplementaria = Boolean.Parse(DrConceptoContable("EsComplementaria").ToString)
+
+            If AplicaComplementaria Then
+                Dim Importe As Decimal = IIf(TxtCargoE.Text.ToDecimal <> 0, TxtCargoE.Text.ToDecimal, TxtAbonoE.Text.ToDecimal)
+                'valida Mon Extranjera por el TC - Mon Extranjera
+                Dim dif As Decimal = ((TxtME.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal) - TxtME.Text.ToDecimal).RoundSQL - Importe
+
+                If dif <> 0 Then
+                    Alert("El importe moneda extranjera no coinciden con el TC ")
+                    Retorno = False
+                Else
+                    Retorno = True
+                End If
+            End If
+
+        End If
+        Return Retorno
+    End Function
 
 
     Protected Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
 
         'asdasdasd
+        If Not CargaValidacionesConcepto() Then
+            Exit Sub
+        End If
+        ChkSeguir.Visible = False
 
         If IndiceGrid = -1 Then
-
+            ChkSeguir.Visible = True
             If DtMovimientos Is Nothing Then CreaDT()
 
             Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
@@ -1675,7 +1739,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
             UpTotalCargo.Update()
             UpTotalAbono.Update()
-            RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
+            If Not ChkSeguir.Checked Then RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
 
         Else
             Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero
@@ -1797,7 +1861,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("Concepto") = TxtConcepto.Text
                 dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
                 dr("EsComodin") = 0
-                dr("CveConcepto") = DdlConceptosContables.SelectedValue
+                dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
                 dr("Cargo") = TxtCargo.Text.ToDouble
                 dr("Abono") = TxtAbono.Text.ToDouble
                 dr("Descripcion") = TxtDescripcion.Text
@@ -1869,7 +1933,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("Concepto") = TxtConcepto.Text
                 dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
                 dr("EsComodin") = 0
-                dr("CveConcepto") = DdlConceptosContables.SelectedValue
                 dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
                 dr("Cargo") = TxtCargo.Text.ToDouble
@@ -2074,7 +2137,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             TxtConcepto.Text = DrM("Concepto")
             '   (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto")
             DrM("EsComodin") = 0
-            DdlConceptosContables.SelectedValueExist(DrM("CveConcepto").ToString)
+            DdlConceptosContables.SelectedValueExist(DrM("CveConceptoContable").ToString)
             TxtCargo.Text = DrM("Cargo").ToString
             TxtAbono.Text = DrM("Abono").ToString
             TxtDescripcion.Text = DrM("Descripcion").ToString
@@ -2203,7 +2266,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                         .SubProyecto = row.Item("SubProyecto"),
                                         .Folio = "",
                                         .TipoTransferencia = "",
-                                        .CveConceptoContable = row.Item("CveConcepto"),
+                                        .CveConceptoContable = row.Item("CveConceptoContable"),
                                         .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
                                         .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1),
                                         .CveCuenta = row.Item("CveCuenta")
@@ -2432,7 +2495,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("Concepto") = Row("Concepto").ToString
                     dr("TipoMovto") = TipoMovto
                     dr("EsComodin") = 0
-                    dr("CveConcepto") = CveConceptoContable
                     dr("CveConceptoContable") = CveConceptoContable
                     dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
                     dr("Cargo") = Row("Cargo").ToString.ToDecimal.RoundSQL
@@ -3060,8 +3122,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         UpPoliza.Update()
         UpGuardar.Update()
 
-
-
     End Sub
 
     Private Sub LnkFolioManual_Click(sender As Object, e As EventArgs) Handles LnkFolioManual.Click
@@ -3071,5 +3131,17 @@ Partial Class ContabilidadC_RegPrePolizaS
         UpPoliza.Update()
 
     End Sub
+
+    Protected Sub DdlVentasE_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim Venta As New ClsVentas
+        If Venta.GetVenta(DdlVentasE.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = Venta.DtResultados.FiltroPrimero("")
+            If dr IsNot Nothing Then
+                TxtTipoCambio.Text = dr("TipoCambioValuacion")
+            End If
+        End If
+
+        Venta.Dispose()
+    End Sub
 End Class
 
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index d3aa6c1f6..66740809c 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -791,8 +791,6 @@ Partial Class Inventarios_EntradasSalidas
             HplImprimirResumen.Visible = True
             HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento)))
 
-
-
             CveCompra = Mov.CveCompra
             CveConcepto = Mov.CveConcepto
 
@@ -978,6 +976,9 @@ Partial Class Inventarios_EntradasSalidas
 
             PermisoVerImportes()
 
+            If IfNull(Request("Conta"), "0").ToString = "1" Then
+                Contabilizar()
+            End If
 
 
         Else
@@ -3683,6 +3684,10 @@ Partial Class Inventarios_EntradasSalidas
 
     Private Sub BtnGeneraPrepoliza_Click(sender As Object, e As EventArgs) Handles BtnGeneraPrepoliza.Click
         ''PREPOLIZA - SE CAMBIO DE LUGAR EL USO DE ESTA PARTE
+        Contabilizar()
+    End Sub
+
+    Private Sub Contabilizar()
         Dim ObjInventario As New ClsInventarios
 
         Dim ErrorMovInv As Boolean = False
@@ -3695,7 +3700,6 @@ Partial Class Inventarios_EntradasSalidas
 
         Dim CvePrePolizaRegistrada As Integer = -1
 
-
         ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
         Dim CveVenta As Integer = ObjInventario.CveVenta
         Dim MovAlmacen As Boolean = False
@@ -3744,51 +3748,58 @@ Partial Class Inventarios_EntradasSalidas
                         End If
                     Next
                 Else
-                    If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then
-                        Contabilizable = False
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 289, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                    If ObjInventario.Modulo.Contiene("RA/G4") Then
+                        Contabilizable = True
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 205, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompra, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
                             ErrorMovInv = True
                         End If
                     Else
-                        If ObjInventario.Modulo = "ASA/G1" Then
+                        If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then
                             Contabilizable = False
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 289, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
                                 ErrorMovInv = True
                             End If
                         Else
-                            If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then
-                                'genero las prepolizas manuales
-                                Dim tCveConcepto As Integer = 95
-                                Dim CveCuenta As Integer
-                                If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519
-                                IdCtaContable = 1
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then
+                            If ObjInventario.Modulo = "ASA/G1" Then
+                                Contabilizable = False
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
                                     ErrorMovInv = True
-
                                 End If
-
                             Else
-
-                                Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
-                                Dim tCveConcepto As Integer = 69
-                                If DdlConcepto.SelectedValue = "30" Then
-                                    tCveConcepto = 181
-                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
-                                End If
-
-                                For Each RowInv As DataRow In tmpCostos.Rows
-                                    ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
-                                    If tCveConcepto = 69 Then
-                                        IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
-                                    End If
-
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto) Then
+                                If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then
+                                    'genero las prepolizas manuales
+                                    Dim tCveConcepto As Integer = 95
+                                    Dim CveCuenta As Integer
+                                    If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519
+                                    IdCtaContable = 1
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then
                                         ErrorMovInv = True
-                                        Exit For
+
                                     End If
 
-                                Next
+                                Else
 
+                                    Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
+                                    Dim tCveConcepto As Integer = 69
+                                    If DdlConcepto.SelectedValue = "30" Then
+                                        tCveConcepto = 181
+                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
+                                    End If
+
+                                    For Each RowInv As DataRow In tmpCostos.Rows
+                                        ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
+                                        If tCveConcepto = 69 Then
+                                            IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
+                                        End If
+
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto) Then
+                                            ErrorMovInv = True
+                                            Exit For
+                                        End If
+
+                                    Next
+
+                                End If
                             End If
                         End If
                     End If
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 13e274982..8893506f5 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -3041,7 +3041,6 @@ Partial Class Inventarios_RecepcionAlmacen
 
                             Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24)
 
-
                             CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 37, 36), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
                             FolioVirtual = ObjInventario.Folio
 
@@ -3063,11 +3062,27 @@ Partial Class Inventarios_RecepcionAlmacen
                                 End If
                             End If
 
+                            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)
+
+                            If tCvePrePoliza > 0 Then
+
+                                If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, True, ImporteIngresoAdicional, tReferencia, 205, tConcepto, TxtFecha.Text.ToDate, 0, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ImporteIngresoAdicional) Then
+
+                                    If Not ObjConta.AddPrePolizasDetalle(tCvePrePoliza, False, ImporteIngresoAdicional, tReferencia, 68, tConcepto, TxtFecha.Text.ToDate, 0, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ImporteIngresoAdicional) Then
+                                        ErrorMovInv = True
+                                    End If
+                                Else
+                                    ErrorMovInv = True
+                                End If
+                            Else
+                                ErrorMovInv = True
+                            End If
                         Else
                             ErrorMovInv = True
                         End If
                     End If
-
                 End If
 
                 'DEVENGAR AC