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

-- cambio en la cuenta contable enviada

Browse Source
This commit is contained in:
rrene
2020-10-08 18:12:44 -07:00
parent 5264f95b7d
commit 2d317f5baf
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -644,7 +644,7 @@ Partial Class Compras_ReembolsosComprobaciones
ConceptoMovimiento = $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}" ConceptoMovimiento = $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}"
Referencia = gvr.DataKey("SerieFolio").ToString Referencia = gvr.DataKey("SerieFolio").ToString
IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
CveCuentaProveedor = gvr.DataKey("IdCtaContProveedoresSIG").ToEntero
ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
@@ -660,6 +660,11 @@ Partial Class Compras_ReembolsosComprobaciones
Case Else Case Else
End Select End Select
End If End If
If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then
IdCtaProveedor = gvr.DataKey("IdCtaContAcreedor").ToEntero
Else
IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
End If
If SaldoCheque > 0 Then If SaldoCheque > 0 Then
ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar) ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)