diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index e788c7d4d..310f046ea 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3351,7 +3351,7 @@ Partial Class OS_OrdenesServicios
             CveSubProyectoPedido = DbRowVenta("CveSubProyecto").ToString().ToEntero()
         End If
 
-        Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Ped")
+        Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Rem")
 
         If ObjFactura IsNot Nothing Then