From ef8288854cc7f8ca918af669012281dc84fe3ec2 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 1 Feb 2023 19:32:44 -0700
Subject: [PATCH 1/7] EMD. Quitar leyenda de cfdi version en la parte inferior

---
 Empresas/13/Formatos/Factura.rdlc | 44 +------------------------------
 1 file changed, 1 insertion(+), 43 deletions(-)

diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc
index c5b2ba6c6..a096913df 100644
--- a/Empresas/13/Formatos/Factura.rdlc
+++ b/Empresas/13/Formatos/Factura.rdlc
@@ -3479,50 +3479,8 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Textbox Name="Textbox6">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>VERSION </Value>
-                <Style>
-                  <FontSize>9.16pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=Parameters!CFDIVersion.Value</Value>
-                <Style>
-                  <FontSize>9.16pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>14.03578cm</Top>
-        <Left>16.60468cm</Left>
-        <Height>0.65292cm</Height>
-        <Width>3.68516cm</Width>
-        <ZIndex>50</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
     </ReportItems>
-    <Height>14.6887cm</Height>
+    <Height>14.00096cm</Height>
     <Style />
   </Body>
   <Width>20.42213cm</Width>

From b2bd841faa964739fdd35f205f93e16d2e09af36 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 1 Feb 2023 19:34:54 -0700
Subject: [PATCH 2/7] EMD. Cambios visuales en descripcion de venta

---
 Ventas/Ventas.aspx | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 4de903d41..758c175b2 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -555,9 +555,9 @@
                                 </td>
                             </tr>
                             <tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
-                            <td><b>Descripción de factura:</b></td>
-                            <td>
-                                <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
+                                <td><b>Descripción de factura:</b></td>
+                                <td colspan="3">
+                                    <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
                             </tr>
                         </table>
                     </div>

From b1024883dcb9cff9304bb323016e54e990169ebb Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 10 Feb 2023 18:18:59 -0700
Subject: [PATCH 3/7] ECONO. lista de precios de prioritaria

---
 Ventas/Ventas.aspx.vb | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c554e418e..4b27113f2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -17643,6 +17643,11 @@ Partial Class Ventas
 
                 End If
 
+                'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE
+                If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then
+                    CvePrecioListaPS = Me.CvePrecioListaCliente
+                End If
+
             End If
 
             If CvePrecioListaPS > 0 Then
@@ -36150,6 +36155,11 @@ Partial Class Ventas
                         If CvePrecioListaPS <= 0 Then
                             CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                         End If
+
+                        'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE
+                        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then
+                            CvePrecioListaPS = Me.CvePrecioListaCliente
+                        End If
                     End If
 
                     If CvePrecioListaPS > 0 Then

From 3e2535aa1a563c3ae00eafefd962e1c722770531 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 10 Feb 2023 18:19:56 -0700
Subject: [PATCH 4/7] Correcion de saldos de usados, funcionalidad para lista
 de precios, aplicacion de concepto 150 con porcentaje IVA por partida

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

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 758c175b2..3fb93897b 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -8454,7 +8454,7 @@
                         TxtImporte.value = FormatoNumero(Saldo, 2);
                     }
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         TxtImporte.value = "";
                         Chk.checked = false;
                     } else {
@@ -8498,7 +8498,7 @@
                 if (Importe > 0) {
 
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         Importe = 0;
                         Chk.checked = false;
                     } else {
@@ -8565,7 +8565,7 @@
                 if (Importe > 0) {
 
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         Importe = 0;
                         Chk.checked = false;
                     } else {
@@ -8632,7 +8632,7 @@
                 if (Importe > 0) {
 
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         Importe = 0;
                         Chk.checked = false;
                     } else {
@@ -8862,7 +8862,7 @@
                         TxtImporte.value = FormatoNumero(Saldo, 2);
                     }
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         TxtImporte.value = "";
                         Chk.checked = false;
                     } else {
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4b27113f2..85c6acfb6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14758,8 +14758,8 @@ Partial Class Ventas
                                         'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
                                         If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then
 
-                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
-                                                TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString()
+                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
+                                                TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString()
                                             End If
 
                                         End If
@@ -17640,12 +17640,14 @@ Partial Class Ventas
                 CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                 If CvePrecioListaPS <= 0 Then
                     CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
-
                 End If
 
-                'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE
-                If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then
-                    CvePrecioListaPS = Me.CvePrecioListaCliente
+                If Me.CvePrecioListaCliente > 0 Then
+                    Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray())
+                    'VERIFICA SI EL CLIENTE ACTUAL DEBE TENER PRIORIDAD SU LISTA DE PRECIOS
+                    If ArrayClientes.Length > 0 AndAlso ArrayClientes.Count(Function(cliente) cliente.Trim() = Me.CveCliente.ToString()) > 0 Then
+                        CvePrecioListaPS = Me.CvePrecioListaCliente
+                    End If
                 End If
 
             End If
@@ -36156,9 +36158,12 @@ Partial Class Ventas
                             CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                         End If
 
-                        'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE
-                        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then
-                            CvePrecioListaPS = Me.CvePrecioListaCliente
+                        If Me.CvePrecioListaCliente > 0 Then
+                            Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray())
+                            'VERIFICA SI EL CLIENTE ACTUAL DEBE TENER PRIORIDAD SU LISTA DE PRECIOS
+                            If ArrayClientes.Length > 0 AndAlso ArrayClientes.Count(Function(cliente) cliente.Trim() = Me.CveCliente.ToString()) > 0 Then
+                                CvePrecioListaPS = Me.CvePrecioListaCliente
+                            End If
                         End If
                     End If
 

From 788f3aa4665f73a9aca637a938ced60226aad9e9 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 10 Feb 2023 18:20:54 -0700
Subject: [PATCH 5/7] Visualizar beneficiario

---
 Bancos/IE.aspx.vb | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index dad351faf..893d1bfd0 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1020,6 +1020,12 @@ Partial Class Bancos_IE
                     DdlPersonal.Enabled = False
                 End If
 
+                'SI TIENE EL DATO DEBE MOSTRALO
+                If UsuarioActual.CveEmpresa = 119 AndAlso LblPagueseA.Text = "Beneficiario" AndAlso Not String.IsNullOrEmpty(ObjIE.PagueseA) Then
+                    LblPagarA.Visible = True
+                    LblPagarA.Text = ObjIE.PagueseA
+                End If
+
                 IDPoliza = ObjIE.IDPoliza
                 IDCtaContable = ObjIE.IdCtaContable
 

From 7ff86b07b2016066d347fe7c26d588679df6977f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 10 Feb 2023 18:26:15 -0700
Subject: [PATCH 6/7] Cancelacion del traspaso por cantidad especificada

---
 Inventarios/TraspasoAlmacen.aspx.vb | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index e651739bc..2394c7a2c 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1647,9 +1647,9 @@ Partial Class Inventarios_TraspasoAlmacen
                         'DEBE CONSIDERAR SOLO LAS FILAS QUE TENGA PRODUCTOS, NO EL TOTALIZADOR
                         If CvePS > 0 Then
                             CveMovimientoDetalleSalida = GvRow.DataKey("CveMovimientoDetalle").ToEntero
-                            Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
+                            Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidad").Text.ToString.ToDecimal
 
-                            If ChkRealizarDevolucion.Checked Then Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
+                            'If ChkRealizarDevolucion.Checked Then Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
 
                             Dim PrecioUnitario As Decimal = GvRow.DataKey("PU").ToDecimal
                             If CveMovimientoDetalleSalida <= 0 Then
@@ -1657,7 +1657,16 @@ Partial Class Inventarios_TraspasoAlmacen
                                 TextoError = "Ocurrió un error al guardar los movimientos de salida"
                                 Exit For
                             End If
-                            If Cantidad <> 0 Then
+
+                            Dim cantidadDisponibleValidacion As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtCantidad").Text.ToString.ToDecimal
+
+                            If cantidadDisponibleValidacion < 0 Then
+                                ErrorMovInv = True
+                                TextoError = $"La cantidad a cancelar del producto '{GvRow.DataKey("Codigo")}-{GvRow.DataKey("PS")}' excede la del traspaso"
+                                Exit For
+                            End If
+
+                            If Cantidad > 0 Then
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, -1, -1, Serie:=GvRow.DataKey("Serie"), Lote:=GvRow.DataKey("Lote"), FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
                                     ErrorMovInv = True
                                     TextoError = "Ocurrió un error al guardar los movimientos de entrada"

From e1c62fff5d8a54e964b236671e705c22f9adcac7 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 10 Feb 2023 18:27:20 -0700
Subject: [PATCH 7/7] Correcion en cancelaciones

---
 App_Code/ClsPaginas.vb | 2 +-
 App_Code/Modelos.vb    | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 71f9a5e21..20bf6e0f8 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -2124,7 +2124,7 @@ Public Class ClsPaginas
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjClientes As New ClsClientes
-                If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados
+                If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados.Copy()
                 ObjClientes.Dispose()
             End If
 
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index ca48d9f8c..e1c7f11b5 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3381,8 +3381,8 @@ Namespace Modelos
                                             'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
                                             If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then
 
-                                                If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
-                                                    TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString
+                                                If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
+                                                    TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString
                                                 End If
 
                                             End If