-

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