diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index b91e3892e..f8b63983a 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6243,7 +6243,7 @@ Partial Class Compras_Compras
                                                                                 tTipoMovto = False
                                                                                 SumatoriaOCINV = -SumatoriaOCINV
                                                                             End If
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, SumatoriaOCINV, SumatoriaOCINV, 69, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then
+                                                                            If Not ErrorPrepoliza AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, SumatoriaOCINV, SumatoriaOCINV, 69, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then
                                                                                 ErrorPrepoliza = True
                                                                                 Exit For
                                                                             End If
@@ -18637,6 +18637,7 @@ Partial Class Compras_Compras
         DtInvOCDiferencias.Columns.Add("FolioAlmacen", GetType(String))
         DtInvOCDiferencias.Columns.Add("TipoCambioAjuste", GetType(Double))
         DtInvOCDiferencias.Columns.Add("ConceptoSalida", GetType(Integer))
+        DtInvOCDiferencias.Columns.Add("CveClasificacion", GetType(Integer))
         DtInvOCDiferencias.Columns.Add("PS", GetType(String))
 
 
@@ -18655,6 +18656,7 @@ Partial Class Compras_Compras
                     DrInvOCDiferencias("Diferencia") = diferencia.RoundSQL()
                     DrInvOCDiferencias("PUCompra") = Math.Round(gvr.FCTextBox("TxtPU").Text.ToDecimal, 6)
                     DrInvOCDiferencias("CveMoneda") = dr2("CveMoneda").ToString.ToEntero
+                    DrInvOCDiferencias("CveClasificacion") = dr2("CveClasificacion").ToString.ToEntero
                     DrInvOCDiferencias("FolioOC") = dr2("FolioOC").ToString
                     DrInvOCDiferencias("CveProveedor") = dr2("CveProveedorOC").ToString.ToEntero
                     DrInvOCDiferencias("PS") = dr2("PS").ToString
@@ -18724,7 +18726,8 @@ Partial Class Compras_Compras
                 Dim PUCompra As Decimal = 0.0D
                 Dim CveMoneda As Integer = 1
                 Dim PS As String = ""
-
+                Dim TipoMovtoCosto As Boolean = False
+                If UsuarioActual.CveEmpresa = 119 Then TipoMovtoCosto = True
 
                 'AJUSTES EN PREPOLIZA - SALIDA CONTABLE (CON SALIDA DE VENTA O SIN SALIDA)
                 For Each DrDiferencias As DataRow In DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,1)").Rows
@@ -18772,7 +18775,7 @@ Partial Class Compras_Compras
 
                                 If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, ImporteME, 228, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
                                     If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, ImporteMEComp, 229, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
-                                        If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifImporte, DifImporte, 69, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=DifImporte, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle, CveClasificacion:=CveClasificacionCostoOC, CveSubProyecto:=CveSubProyecto) Then
+                                        If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DifImporte, DifImporte, 69, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=DifImporte, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle, CveClasificacion:=CveClasificacionCostoOC, CveSubProyecto:=CveSubProyecto) Then
                                             Retorno = False
                                             Exit For
                                         End If
@@ -18786,8 +18789,8 @@ Partial Class Compras_Compras
                                 End If
                             Else
                                 '2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL
-                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, -DiferenciaInvOC, If(ConceptoSalida = 0, 177, 177), SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, DiferenciaInvOC, 176, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle) Then
+                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, -DiferenciaInvOC, If(ConceptoSalida = 0, 177, 177), SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionCostoOC) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DiferenciaInvOC, DiferenciaInvOC, 176, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle) Then
                                         Retorno = False
                                         Exit For
                                     End If