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