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