diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c71fc445f..0b0f5c41f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13939,7 +13939,10 @@ Partial Class Ventas
                                 Dim ImporteConcepto12 As Decimal = 0
                                 Dim ImporteAcumulado91 As Decimal = 0
                                 Dim CveUltimaVenta As Integer = 0
-                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+                                If tipoCambio > 1 Then
+                                    Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+                                    ConceptoContable = 293
+                                End If
                                 If tipoCambio = 1 Then
                                     IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
                                 ElseIf UsaComplementariaClientes Then
@@ -25906,7 +25909,7 @@ Partial Class Ventas
         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero() Else CveMarca = DdlMarca.SelectedValue.ToEntero()
 
         Dim ObjProductosServicios As New ClsProductosServicios()
-        If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero()) > 0 Then
+        If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero(), CveObjetoImpuesto:=2) > 0 Then
             DdlClasificacion.SelectedValueExist(DdlClasificacionPS.SelectedValue.ToEntero())
             DdlClasificacion_SelectedIndexChanged(DdlClasificacionPS, e)