From d9df4b606190a7de17a7b6ba6012dd72e4262432 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 23 Dec 2023 08:28:25 -0700 Subject: [PATCH] - --- OS/OrdenesServicios.aspx | 21 ++++----------------- OS/OrdenesServicios.aspx.vb | 3 +-- 2 files changed, 5 insertions(+), 19 deletions(-) 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