diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 75ad9593e..0e5502aeb 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -3334,7 +3334,7 @@ Partial Class Contratos_ContratoObra Dim StrReturn As String = String.Empty Dim CvePS As Integer = 0 - CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", Opt & " = '" & Valor & "'").ToString.ToEntero + CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", String.Format("{0}= '{1}'", Opt, Valor.Replace("'", ""))).ToString.ToEntero If CvePS > 0 Then StrReturn = "True|" & CvePS.ToString diff --git a/Ventas/RepVentasUtilidad.aspx b/Ventas/RepVentasUtilidad.aspx index 755ce2a34..ce157c38a 100644 --- a/Ventas/RepVentasUtilidad.aspx +++ b/Ventas/RepVentasUtilidad.aspx @@ -231,9 +231,9 @@
- - - + + +
VentaCostoUtilidad/PérdidaVentaCostoUtilidad/Pérdida
@@ -262,6 +262,16 @@ + + + + + + + + + + @@ -269,7 +279,7 @@ - + @@ -281,7 +291,7 @@ - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index bc3910a5a..f1a2176db 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2452,9 +2452,12 @@ Partial Class Ventas ObjInv.Dispose() End If - + 'regenrea el tipo de cambio CargaNuevaFactura(Nothing) + CambiaMoneda() + + 'NOTA DE CREDITO If NuevaFactura = 2 Then