From e892fb8840e9e04e5759ad47ca78fac4c9c891d5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 29 Sep 2023 18:32:09 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20de=20cveproveedor,=20al?=
 =?UTF-8?q?=20pago=20con=20deudor=20diverso,=20que=20afectaba=20en=20la=20?=
 =?UTF-8?q?cuenta=20asignada.=20por=20estar=20el=20cveproveedor=20incorrec?=
 =?UTF-8?q?to?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ebbec4375..082e7289e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5323,7 +5323,6 @@ Partial Class Compras_Compras
                                                                                 ErrorMovInv = True
                                                                                 Exit For
                                                                             End If
-
                                                                         Next
                                                                     End If
                                                                 Else
@@ -5432,7 +5431,7 @@ Partial Class Compras_Compras
                                                     End If
                                                 Case "4" ' Deudores
                                                     CveProveedorLocal = CveProveedor
-                                                    CveProveedorConcepto = DdlDeudor.SelectedValue.ToEntero
+                                                    CveProveedorConcepto = CveProveedor
                                                     For Each row As GridViewRow In GvDeudores.Rows
                                                         If row.FCCheckBox("Chk").Checked Then
                                                             CveIE = row.DataKey("CveIE").ToString.ToEntero
@@ -5444,7 +5443,7 @@ Partial Class Compras_Compras
                                                     CveConceptoAfectacion = 37
                                                 Case "5" ' Acreedores
                                                     CveProveedorLocal = CveProveedor
-                                                    CveProveedorConcepto = DdlAcreedor.SelectedValue.ToEntero
+                                                    CveProveedorConcepto = CveProveedor ' DdlAcreedor.SelectedValue.ToEntero
                                                     CveConceptoAfectacion = 41
 
                                                     CveIE = If(DdlAcreedorDetalle.SelectedValue.ToEntero = -2, -1, DdlAcreedorDetalle.SelectedValue.ToEntero)
@@ -17957,8 +17956,8 @@ Partial Class Compras_Compras
 
             'CTA PROVEEDOR
             Select Case RBLContado.SelectedValue
-                Case "4" ' Deudores
-                    CveProveedorConcepto = DdlDeudor.SelectedValue.ToEntero
+                'Case "4" ' Deudores
+                '    CveProveedorConcepto = DdlDeudor.SelectedValue.ToEntero
                 Case "5" ' Acreedores
                     CveProveedorConcepto = DdlAcreedor.SelectedValue.ToEntero
                 Case Else ' Proveedores - F y E - Doctos
@@ -18593,7 +18592,7 @@ Partial Class Compras_Compras
         Dim CveProveedorSucursal As Integer = -1
         Dim CveProveedorContacto As Integer = -1
         Dim Retorno As Boolean = True
-        Dim CveProveedor As Integer = -1
+        Dim tCveProveedor As Integer = -1
         Dim GeneraReq As Boolean = False
         Dim IDPoliza As Integer = 0
 
@@ -18714,8 +18713,8 @@ Partial Class Compras_Compras
 
                     Fecha = TxtFecha.Text.ToDate
                     SerieFolio = $"OC: {DrDiferencias("FolioOC").ToString}"
-                    CveProveedor = DrDiferencias("CveProveedor").ToString.ToEntero
-                    ProveedorNombre = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {CveProveedor}").ToString
+                    tCveProveedor = DrDiferencias("CveProveedor").ToString.ToEntero
+                    ProveedorNombre = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {tCveProveedor}").ToString
                     Dim ConceptoPartida As String = String.Format("{0} OC: {1} Inv: {2}", ProveedorNombre, DrDiferencias("FolioOC"), DrDiferencias("FolioAlmacen"))
 
                     ConceptoSalida = DrDiferencias("ConceptoSalida").ToString.ToEntero