From 5a88a98336db1abf0b0b3415e1ba76d91ab7049e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 22 Dec 2023 08:39:46 -0700
Subject: [PATCH] -- parametro adicional para materiales

---
 App_Code/ClsOS.vb     |  5 +++--
 Ventas/Ventas.aspx.vb | 19 +++++++++++--------
 2 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb
index b983ac43d..a1ac30b08 100644
--- a/App_Code/ClsOS.vb
+++ b/App_Code/ClsOS.vb
@@ -852,14 +852,15 @@ Public Class ClsOS
 
         Return Retorno
     End Function
-    Public Function GetDetalleMateriales(CveOSDetalle As Integer, CveOS As Integer, Optional FiltraTipoAlamacen As Boolean = False) As Boolean
+    Public Function GetDetalleMateriales(CveOSDetalle As Integer, CveOS As Integer, Opcion As Integer, Optional FiltraTipoAlmacen As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_OS_OrdenesServicioDetallesMaterialesGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveOSDetalle", SqlDbType.Int).Value = CveOSDetalle
             .Add("@CveOS", SqlDbType.Int).Value = CveOS
-            .Add("@FiltraTipoAlamacen", SqlDbType.Bit).Value = FiltraTipoAlamacen
+            .Add("@FiltraTipoAlmacen", SqlDbType.Bit).Value = FiltraTipoAlmacen
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
 
         Try
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e1eff45d0..97c901b18 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) Then
+                If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS, -1) 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
@@ -8075,6 +8075,7 @@ Partial Class Ventas
                     e.Row.FCTextBox("TxtPrecio").Enabled = False
                 End If
 
+
                 'PERMISO EDITAR REM
                 If e.Row.DBCampo("TipoDocto") = "Rem" And ModalidadEdicion Then
                     'LO PERMITIDO MODIFICAR
@@ -21640,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) Then
+            If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS, -1) Then
                 Dim Cons As Integer = TmpDT.Rows.Count + 1
 
                 For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows
@@ -36068,21 +36069,23 @@ Partial Class Ventas
         DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue)
         DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
 
-        'si es  A - Vista o ,Fuera De Linea requiere tecnico
-        If RBLTipoVenta.SelectedValue.ToEntero.Contiene(1, 2) Then
+        'si es  pago directo es factura
+        If RBLTipoVenta.SelectedValue.Contiene("2") Then
+            DdlTipoComprobante.SelectedValueExist("Ing")
+            TdRequiereTecnico1.Visible = True
+            TdRequiereTecnico2.Visible = True
+        Else
             TdFechaOS1.Visible = True
             TdFechaOS2.Visible = True
             ChkRequiereTecnico.Checked = True
             ChkRequiereTecnico.Enabled = False
             DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
             DdlTipoComprobante.SelectedValueExist("Ped")
-        Else
-            DdlTipoComprobante.SelectedValueExist("Ing")
+
         End If
         DdlTipoComprobante.Enabled = False
 
-        TdRequiereTecnico1.Visible = True
-        TdRequiereTecnico2.Visible = True
+
 
 
         CargaCliente(CveCliente)