diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 654ec873e..e8b616db1 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2756,6 +2756,8 @@ Namespace Modelos
                                                 End If
                                                 ImporteAcumulado91 += (ImporteMN91).RoundSQL
 
+                                                Dim tCveConcepto As Integer = 251
+                                                If Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then tCveConcepto = 301
                                                 If UsaComplementariaClientes = True AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
                                                     Dim ImporteComplementarioNC As Decimal = ((Importe251 * Dr("TCCambioValuacion").ToString.ToDecimal) - Importe251).RoundSQL
                                                     If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, 207, Concepto, FechaMovimiento, IdCtaContableClienteComplementaria, -1, CveVenta:=Dr("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, ImporteMX:=ImporteComplementarioNC, ImporteME:=If(Dr("TCCambioValuacion").ToString.ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString.ToDecimal) Then
@@ -2763,7 +2765,7 @@ Namespace Modelos
                                                         Exit For
                                                     End If
                                                 End If
-                                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, 251, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=Dr("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, ImporteMX:=Importe251, ImporteME:=If(Dr("TCCambioValuacion").ToString.ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString.ToDecimal, TipoCambioPago:=tipoCambio) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, tCveConcepto, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=Dr("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, ImporteMX:=Importe251, ImporteME:=If(Dr("TCCambioValuacion").ToString.ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString.ToDecimal, TipoCambioPago:=tipoCambio) Then
                                                     ErrorPrepoliza = True
                                                     Exit For
                                                 End If
@@ -8916,13 +8918,6 @@ Namespace Modelos
         Public Property CuentaInventario As String
         Public Property IdCuentaIngresos As Integer?
         Public Property CuentaIngresos As String
-        Public Property IdCuentaContableSIG As Integer?
-        Public Property IdCuentaCostosSIG As Integer?
-        Public Property IdCuentaGastoSIG As Integer?
-        Public Property IdCuentaIngresosSIG As Integer?
-        Public Property IdCuentaInventarioSIG As Integer?
-        Public Property IdCuentaRetIVASIG As Integer?
-        Public Property IdCuentaRetISRSIG As Integer?
         Public Property Estado As Boolean
         Public Property Estatus As String
         Public Property RequiereSerieLote As Boolean?