From 59f49e8261f37c7e344cd0e6532bbae898c9e355 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 23 Dec 2023 08:41:59 -0700 Subject: [PATCH] - cambios de OS - SMS --- Ventas/Ventas.aspx | 24 +++++------------------- Ventas/Ventas.aspx.vb | 4 ++-- 2 files changed, 7 insertions(+), 21 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index d4b0fd8d3..f524b2e9e 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -593,9 +593,6 @@ - - - @@ -8474,33 +8471,22 @@ - - + - - - - + + - - - - - - - - - - + + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e418969b4..4acfb7bfd 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -4483,7 +4483,7 @@ Partial Class Ventas End If For Each Row As DataRow In DtDetalle.Rows - If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS, -1) Then + If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS) Then If OS.DtResultados.FiltraParametros("SeFacturara = 1").Rows.Count > 0 Then Alert("Hay materiales en la Orden de Servicio, ¿Desea facturar los materiales?", TipoMensaje.MsgConfirmacion, "BtnMateriales()") End If @@ -21641,7 +21641,7 @@ Partial Class Ventas DtDetalle = TmpDT.Copy For Each Row As DataRow In DtDetalle.Rows - If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS, -1) Then + If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS) Then Dim Cons As Integer = TmpDT.Rows.Count + 1 For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows