AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- corrección de cveproveedor, al pago con deudor diverso, que afectaba en la cuenta asignada. por estar el cveproveedor incorrecto

Browse Source
This commit is contained in:
rrene
2023-09-29 18:32:09 -07:00
parent ca99b46abf
commit e892fb8840
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Compras/Compras.aspx.vb
View File

@@ -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