diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index d89ca7f8b..a37c2505c 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3962,14 +3962,14 @@ Namespace Modelos
                                     If DT.Rows.Count > 0 Then
                                         'Se agrega movimiento separado por la cuenta de ventas (ER)
                                         For Each Row2 As DataRow In DT.Rows
-                                            importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador)
+                                            importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("PorcentajeIVA").ToString.ToDecimal)).ToString.ToDecimal) * ValorMultiplicador)
 
                                             importeMX = importeMovimiento * tipoCambio * Multiplicador
                                             FechaMovimiento = ObjFactura.FechaPago
                                             Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
 
                                             If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
-                                            'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
+                                            'Nota cuando es Nota de crédito, debe de tomar el devoluciones y rebajas
 
                                             If importeMovimiento <> 0 Then
                                                 If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then
@@ -3996,10 +3996,10 @@ Namespace Modelos
                                     If DT.Rows.Count > 0 Then
                                         'Se agrega movimiento separado por la cuenta de ventas (ER)
                                         For Each Row2 As DataRow In DT.Rows
-                                            importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                            importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador
                                             importeMX = importeMovimiento * tipoCambio * Multiplicador
                                             FechaMovimiento = ObjFactura.FechaPago
-                                            Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
+                                            Concepto = $"{ObjFactura.SerieFolio} {ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero).FiltroPrimeroValor("Clasificacion")} - {ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString.ToEntero}") }"
 
                                             If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                             'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -4013,7 +4013,6 @@ Namespace Modelos
                                             End If
                                         Next
                                     End If
-
                                 End If
                                 importeMovimiento = 0
 
@@ -6641,7 +6640,7 @@ Namespace Modelos
 
                         If Not ObjOS.LiberarVentaOS(ObjFactura.CveVenta, UsuarioActual.CveEmpresa) Then
                             ErrorCancelar = True
-                            MensajeError = "No se pudo actualizar el estatus de almacen del pedido"
+                            MensajeError = "No se pudo liberar la remisión de la Orden de servicio"
                         End If
 
                     End If