From a9a7bed6e4ea2167197c4f1fbb494e17d741b6d7 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 19 Jun 2024 22:13:27 -0700
Subject: [PATCH] -- mejora  SMS

---
 Ventas/Ventas.aspx.vb | 31 +++++--------------------------
 1 file changed, 5 insertions(+), 26 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 8c2799db2..bbc4f3803 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2563,7 +2563,6 @@ Partial Class Ventas
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveUsuario = 100 Then DivPenalizacion.Visible = True
-        End If
 
             If UsuarioActual.Empresa.Funcionalidad(595) = "2" Then
                 LnkSolicitarCredito.Visible = True
@@ -37769,7 +37768,7 @@ Partial Class Ventas
 
     Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs)
 
-        If RBLTipoVenta.SelectedValue.ToEntero = 2 Then
+        If RBLTipoVenta.SelectedValue = "2" Then 'pago directo
 
             If DdlClientesModal.SelectedValue.ToEntero > 0 Then
                 ViewState("CveCliente") = DdlClientesModal.SelectedValue.ToEntero
@@ -37802,11 +37801,9 @@ Partial Class Ventas
         End If
 
         CveClienteSucursalOS = DdlClienteSucursalSucursal()
-
-
         If ChkRequiereTecnicoModal.Checked Then
             If Not IsDate(TxtFechaModal.Text.Replace(",", "")) Then
-                Alert("El campo fecha no es valido.", TipoMensaje.MsgAdvertencia)
+                Alert("El campo fecha no es válido.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
         End If
@@ -37819,7 +37816,6 @@ Partial Class Ventas
             Dim Clasificacion As String = GvRow.DataKey("Clasificacion").ToString
             Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
             Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
-
             Dim PU As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal
 
             If Cantidad > 0 Then
@@ -37828,33 +37824,21 @@ Partial Class Ventas
                     Exit Sub
                 End If
             End If
-
         Next
 
         ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked
         TxtFechaOS.Text = TxtFechaModal.Text
-
-        If ChkRequiereTecnicoModal.Checked Then
-            TdFechaOS1.Visible = True
-            TdFechaOS2.Visible = True
-        Else
-            TdFechaOS1.Visible = False
-            TdFechaOS2.Visible = False
-        End If
-
+        TdFechaOS1.Visible = ChkRequiereTecnicoModal.Checked
+        TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
         DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue)
         DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
 
         Dim tCveAlmacenExistencia As Integer = -1
 
-        If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es  pago directo es factura
-            'DdlTipoComprobante.SelectedValueExist("Ing")
+        If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es  pago directo es remisión sino tine técnico
 
             TrVentasMedicas1.Visible = True
             TrVentasMedicas2.Visible = True
-
-            TdFechaOS1.Visible = True
-            TdFechaOS2.Visible = True
             ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked
             ChkRequiereTecnico.Enabled = True
 
@@ -37864,7 +37848,6 @@ Partial Class Ventas
                 DdlTipoComprobante.SelectedValueExist("Rem")
             End If
 
-
         ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista
             DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
             DdlTipoComprobante.SelectedValueExist("Ped")
@@ -37879,10 +37862,8 @@ Partial Class Ventas
         Else
             DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
             DdlTipoComprobante.SelectedValueExist("Ped")
-
             TrVentasMedicas1.Visible = True
             TrVentasMedicas2.Visible = True
-
             TdFechaOS1.Visible = True
             TdFechaOS2.Visible = True
 
@@ -37894,7 +37875,6 @@ Partial Class Ventas
         End If
 
         DdlTipoComprobante.Enabled = False
-
         CargaCliente(CveCliente)
 
         ' Si es pago directo no asigna la sucurasl al dll
@@ -37909,7 +37889,6 @@ Partial Class Ventas
             End If
         End If
 
-
         DdlTipoComprobante_SelectedIndexChanged(sender, Nothing)
 
         Dim CountPsAgregados As Integer = 0