-- mejoras OS - SMS

OS/OrdenesServicios.aspx.vb

@@ -703,7 +703,7 @@ Partial Class OS_OrdenesServicios
                 CargaHistorial()
 
 
-                If CveVenta > 0 And TipoEstatus.Contiene(1, 2, 3) Then
+                If TipoEstatus.Contiene(1, 2, 3) Then
                     LnkAccionesMaterialUtilizado.Visible = True
                 End If
             Else
@@ -865,8 +865,8 @@ Partial Class OS_OrdenesServicios
     End Sub
     Private Sub CargaMateriales()
         Dim objOS As New ClsOS
-        Dim Opcion As Integer = If(DdlTipoVenta.SelectedValue.Contiene("2", "3"), 2, 1)
-        If objOS.GetDetalleMateriales(-1, CveOS, Opcion, True) Then
+
+        If objOS.GetDetalleMateriales(-1, CveOS, 1, True) Then
             GvMateriales.DataSource = objOS.DtResultados
         End If
         objOS.Dispose()
@@ -3036,8 +3036,6 @@ Partial Class OS_OrdenesServicios
             Alert("Orden Finalizada Correctamente", TipoMensaje.MsgInformacion, "location.reload(true);")
             RegistraScript("$('#DVModalFinalizarOrden').modal('hide');")
         End If
-
-
     End Sub
 
     Protected Sub LnkAccionesMaterialUtilizado_Click(sender As Object, e As EventArgs)
@@ -3045,8 +3043,9 @@ Partial Class OS_OrdenesServicios
         LnkModalMaterialUtilizado.Visible = True
         GvMaterialUtilizado.DataSource = Nothing
         DTSolicitudDev = New DataTable
+        Dim Opcion As Integer = If(DdlTipoVenta.SelectedValue.Contiene("2", "3"), 2, 1)
         Dim ObjOS As New ClsOS
-        If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, UsuarioActual.CveEmpresa) Then
+        If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, Opcion, UsuarioActual.CveEmpresa) Then
             DTSolicitudDev = ObjOS.DtResultados
             GvMaterialUtilizado.DataSource = DTSolicitudDev
             GvMaterialUtilizado.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> ""
@@ -3147,7 +3146,7 @@ Partial Class OS_OrdenesServicios
             For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows
 
                 Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
-                Dim CantidadDev As Decimal = GvRow.FCTextBox("TxtDev").Text.ToDecimal
+                Dim CantidadDev As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtDev").Text.ToDecimal
 
                 If CantidadDev > 0 Then
                     If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then