diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index e30a73cbe..ef1b08555 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1826,7 +1826,7 @@ Partial Class Compras_Compras
                             DdlTipoCompra.Items.Clear()
                             DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
                             DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
-							DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
+                            DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
                             DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
 
 
@@ -2710,9 +2710,9 @@ Partial Class Compras_Compras
 
                     TmpDT.Columns.Add("CveContrato", GetType(Integer))
                     TmpDT.Columns.Add("DifPSSat", GetType(Integer))
-                   
-				   
-				   
+
+
+
                     If Not TmpDT.Columns.Contains("CveContratoDetalle") Then
                         TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
                     End If
@@ -6773,13 +6773,12 @@ Partial Class Compras_Compras
                                                                                 Dim CveSubProyecto69 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
 
                                                                                 If CveSubProyecto69 <= 0 Then
-                                                                                    Alert("Debe de asignar un sub proyecto o centro de constos", TipoMensaje.MsgAdvertencia)
+                                                                                    Alert("Debe de asignar un sub proyecto o centro de costos", TipoMensaje.MsgAdvertencia)
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
                                                                                 End If
 
                                                                                 IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-                                                                                CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
                                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
@@ -17863,7 +17862,7 @@ Partial Class Compras_Compras
 
         If UsuarioActual.Empresa.Tipo_CentroCosto <> 1 And UsuarioActual.Empresa.Tipo_CentroCosto <> 2 Then
             DdlProyecto.SelectedValueExist(GvRow.DataKey("CveProyecto"))
-		 Else
+        Else
             DdlProyecto.SelectedValueExist("-1")
         End If
 
@@ -18071,7 +18070,7 @@ Partial Class Compras_Compras
                         DdlClasificacion.SelectedValueExist(PS("CveClasificacion").ToString)
                     Else
                         Alert("El Productos/Servicio no tiene asignada una Clasificación.")
-                        End If
+                    End If
 
                     UPPUM.Update()
                     UpPSS.Update()
@@ -20221,7 +20220,7 @@ Partial Class Compras_Compras
                         Dim drInv As DataRow = DtInvOC.FiltroPrimero("")
                         If drInv IsNot Nothing Then 'sino existe  no hay problema, porque puede ser le producto un servicio
                             DrInvOCDiferencias("TipoCambioAjuste") = drInv("TipoCambioAjuste").ToString.ToDecimal
-                            DrInvOCDiferencias("Diferencia") = ((gvr.FCTextBox("TxtPU").Text.ToDecimal * drInv("TipoCambioAjuste").ToString.ToDecimal) - drInv("PU").ToString.ToDecimal) * gvr.FCTextBox("TxtCantidad").Text.ToDecimal 'diferencia * drInv("TipoCambioAjuste").ToString.ToDecimal '
+                            DrInvOCDiferencias("Diferencia") = ((gvr.FCTextBox("TxtPU").Text.ToDecimal * drInv("TipoCambioAjuste").ToString.ToDecimal) - drInv("PUOriginal").ToString.ToDecimal) * gvr.FCTextBox("TxtCantidad").Text.ToDecimal 'diferencia * drInv("TipoCambioAjuste").ToString.ToDecimal '
                             DrInvOCDiferencias("CveAlmacen") = drInv("CveAlmacen").ToString.ToEntero
                             DrInvOCDiferencias("CveMovimiento") = drInv("CveMovimiento").ToString.ToEntero
                             DrInvOCDiferencias("ConceptoSalida") = drInv("ConceptoSalida").ToString.ToEntero
@@ -20329,20 +20328,13 @@ Partial Class Compras_Compras
                     TCInvOC = DrDiferencias("TipoCambioAjuste").ToString.ToDecimal
 
                     IdCtaContableAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero
-                    CveCuentaAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero
 
                     Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero
                     Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-                    '' CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-
 
                     Dim CveSubProyecto As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
 
-
-
-                    If DiferenciaInvOC.RoundAD() <> 0 Then
-
-
+                    If DiferenciaInvOC.RoundSQL() <> 0 Then
 
                         If CveSubProyecto <= 0 Then
                             Alert("Debe de asignar un sub proyecto o centro de constos.", TipoMensaje.MsgAdvertencia)