From 5d6b81888e6e42bd5b2a7d027ac3f9f4ac859ce3 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 2 Jul 2024 07:51:49 -0700
Subject: [PATCH] -

---
 Ventas/Ventas.aspx    |  7 ++++++-
 Ventas/Ventas.aspx.vb | 39 +++++++++++++++++++++++++--------------
 2 files changed, 31 insertions(+), 15 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 981d27d71..ef6c31bd3 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -7942,7 +7942,7 @@
                                 <label>Descripción:</label>
                             </div>
                             <div class="col-md-10">
-                                <asp:TextBox ID="TxtMotivoCancelacion" runat="server" Height="100" Width="100%" TextMode="MultiLine" CausesValidation="true" MaxLength="500"></asp:TextBox>
+                                <asp:TextBox ID="TxtMotivoCancelacion" runat="server" Height="100" Width="100%" TextMode="MultiLine" CausesValidation="true" MaxLength="500" Rows="3"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RFVDescripcionCancelacion" runat="server" CssClass="help-block errorimput" Display="Dynamic" ControlToValidate="TxtMotivoCancelacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalCancelarDocumento"></asp:RequiredFieldValidator>
                             </div>
                         </div>
@@ -7970,6 +7970,11 @@
                                 <asp:CheckBox ID="ChkDevAlm" AutoPostBack="true" runat="server" OnCheckedChanged="ChkDevAlm_CheckedChanged" /><asp:Label ID="LblDevAlm" Text="Devolución Almacen" runat="server"></asp:Label>
                             </h5>
                         </div>
+                            <div id="DivGeneraIxC" runat="server" visible="false">
+                            <h5>
+                                <asp:CheckBox ID="ChkGeneraIxC"  runat="server"  /><asp:Label ID="Label4" Text="Genera IxC" runat="server"></asp:Label>
+                            </h5>
+                        </div>
                     </div>
                     <div class="modal-footer">
                         <asp:UpdatePanel ID="UpFooterCancelarRemision" runat="server" UpdateMode="Conditional">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f67941b10..92b60cd02 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7080,6 +7080,7 @@ Partial Class Ventas
 
                 DdlSucursalCliente.Items.Clear()
                 Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0")
+
                 If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then
                     DdlSucursalCliente.DataSource = dtts
                     DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
@@ -13882,9 +13883,11 @@ Partial Class Ventas
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
 
-            If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
+            Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal()
+            If CveClientesucursatTemp > 0 Then
+
                 Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
                 If drr IsNot Nothing Then
                     If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista
@@ -25160,9 +25163,13 @@ Partial Class Ventas
 
         Else
             DdlPS_SelectedIndexChanged(Nothing, Nothing)
-            Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
+        End If
+    End Sub
+    Protected Sub OrdenarGvPS(ByVal sender As Object, ByVal e As EventArgs)
+
+        For Each row As GridViewRow In GvPS.Rows
             TmpDT.Rows(row.RowIndex)("Orden") = row.FCTextBox("TxtOrden").Text.ToEntero()
-            Next
+        Next
 
         Dim resultados = From OrdenDT In TmpDT
                          Order By OrdenDT("Orden").ToString().ToEntero()
@@ -25354,6 +25361,10 @@ Partial Class Ventas
                 Exit Sub
             End If
 
+            If UsuarioActual.CveRol = 1 Then
+                DivGeneraIxC.Visible = False
+            End If
+
             If SaldoAlmacen <> 0 Then
 
                 If UsuarioActual.TienePermisoProceso(269) Then
@@ -25747,7 +25758,6 @@ Partial Class Ventas
                             End If
                         Next
                     End If
-
                     ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion
 
                     If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Dev") Then
@@ -25785,7 +25795,6 @@ Partial Class Ventas
                             End If
                         End Using
 
-
                         If DtBonificaciones IsNot Nothing AndAlso DtBonificaciones.Rows.Count > 0 Then
                             For Each RowBon As DataRow In DtBonificaciones.Rows
                                 Try
@@ -25802,13 +25811,10 @@ Partial Class Ventas
                                     OnError("Ocurrió un error al cancelar la bonificación", ex)
                                     strMensaje.Append("<br/> Ocurrió un error al cancelar la bonificación")
                                 End Try
-
                             Next
                             DtBonificaciones.Dispose()
                         End If
-
                     End If
-
                 End If
 
                 SWatch.Stop()
@@ -25839,17 +25845,14 @@ Partial Class Ventas
                         End If
                     End If
                 End If
-
-
             Else
                 Alert("Ocurrió un error al generar la cancelación", TipoMensaje.MsgError)
             End If
         Catch ex As Exception
-            OnError("Ocurrío un error al cancelar", ex)
+            OnError("Ocurrió un error al cancelar", ex)
         End Try
         ObjFacturaCancelacion.Dispose()
 
-
         UpEstatus.Update()
 
         If Not String.IsNullOrEmpty(LigaRedirigir) Then
@@ -37656,27 +37659,32 @@ Partial Class Ventas
 
     End Sub
 
+
     Private Sub CargaDdlClientesSucursal()
 
-        DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
+        DdlClienteSucursal.DataSource = GlobalDTClientesTodosSucursales(UsuarioActual.CveEmpresa)
         DdlClienteSucursal.DataBind()
         DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
         Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         If EsWS Then
             DdlClientesModal.setEsWebService(True)
+
         Else
             DdlClientesModal.setEsWebService(False)
             DdlClientesModal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
             DdlClientesModal.DataBind()
             DdlClientesModal.ddl.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
         End If
+
     End Sub
 
     Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs)
 
+
         TdFechaOS1.Visible = ChkRequiereTecnico.Checked
 
+
         UpCliente.Update()
     End Sub
 
@@ -37692,6 +37700,7 @@ Partial Class Ventas
             ChkRequiereTecnicoModal.Checked = True
             ChkRequiereTecnicoModal.Enabled = True
             DvModalRequiereOSFecha.Visible = True
+
             'If CveCliente > 0 Then
             '    CargaSucursalesModal(CveCliente)
             'End If
@@ -38160,7 +38169,9 @@ Partial Class Ventas
 
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
             If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
+
                 Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
+
                 If drr IsNot Nothing Then
                     If RBLTipoVenta.SelectedValue.Contiene("6") Then
                         tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero