diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index 60aba9788..e263f9138 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -1299,36 +1299,23 @@
-
-
+
Serie
-
+
Lote
-
+
Fecha Cad.
-
- <%-- --%>
+
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 141615005..8b13e7e17 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3281,8 +3281,7 @@ Partial Class OS_OrdenesServicios
CveSubProyectoPedido = DbRowVenta("CveSubProyecto").ToString().ToEntero()
End If
- Dim ObjFactura As Modelos.Factura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Ped")
- Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Rem")
+ Dim ObjFactura As Modelos.Factura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Rem")
If ObjFactura IsNot Nothing Then