From c179b55ae2ab39e9d3b23110a42f6124170a7c00 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 22 Dec 2023 18:08:08 -0700 Subject: [PATCH] - --- OS/OrdenesServicios.aspx.vb | 27 ++++++++------------------- 1 file changed, 8 insertions(+), 19 deletions(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 9e9ad2737..8c7dc7d1c 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3165,13 +3165,13 @@ Partial Class OS_OrdenesServicios End If - Dim Respuesta = New RespuestaFacturacion() + Dim Respuesta As New RespuestaFacturacion() - If PropcesoOK Then + If ProcesoOK Then Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL()) If Not Respuesta.CveVenta > 0 Then - PropcesoOK = False + ProcesoOK = False End If End If @@ -3251,7 +3251,7 @@ Partial Class OS_OrdenesServicios End If - If PropcesoOK Then + If ProcesoOK Then ObjV.Commit() Alert("El material utilizado se guardó correctamente") RegistraScript("$('#DVModalSolicitarDevolucion').modal('hide');") @@ -3265,7 +3265,7 @@ Partial Class OS_OrdenesServicios Private Function GeneraRemision(CveVentaPedido As Integer, ByRef TransaccionSQL As SqlTransaction) As RespuestaFacturacion - Dim Respuesta = New RespuestaFacturacion() + Dim Respuesta As New RespuestaFacturacion() Dim CveRemiocionGenerada As Integer = -1 @@ -3281,18 +3281,18 @@ Partial Class OS_OrdenesServicios CveSubProyectoPedido = DbRowVenta("CveSubProyecto").ToString().ToEntero() End If - Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Ped") + Dim ObjFactura As Modelos.Factura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Ped") If ObjFactura IsNot Nothing Then If ProcesoOK Then - For Each GvRow As GridViewRow In GvSolicitarDevolucion.Rows + For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal Dim CantidadDev As Decimal = GvRow.FCTextBox("TxtDev").Text.ToDecimal - Dim CantidadRegistro = Cantidad - CantidadDev + Dim CantidadRegistro As Decimal = Cantidad - CantidadDev Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal Dim Descuento As Decimal = GvRow.DataKey("Descuento").ToDecimal Dim Obs As String = GvRow.DataKey("Observaciones") @@ -3332,12 +3332,6 @@ Partial Class OS_OrdenesServicios End Function - - - - - - Friend Class RespuestaFacturacion Public Property CveVenta As Integer = -1 Public Property SerieFolio As String = "-1" @@ -3346,9 +3340,4 @@ Partial Class OS_OrdenesServicios End Sub End Class - - - - - End Class \ No newline at end of file