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

cambios en método de pago

Browse Source
This commit is contained in:
rrene
2025-01-13 08:29:24 -07:00
parent 23ed69f010
commit b9b5216a20
14 changed files with 115 additions and 119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
General/SaldosIniciales.aspx.vb
View File

@@ -4865,9 +4865,9 @@ Partial Class General_SaldosIniciales
myarraystr = MetodoPago.Split(":"c)
If (myarraystr.Length > 1) Then
CveMetodoPago = myarraystr(0).ToEntero()
CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString().ToEntero()
CveMetodoPago = GlobalDTVtaMetodoPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString().ToEntero()
Else
CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveSAT = '{MetodoPago}'").ToString().ToEntero()
CveMetodoPago = GlobalDTVtaMetodoPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveMetodoPagoSAT = '{MetodoPago}'").ToString().ToEntero()
End If
If CveMetodoPago = 0 Then
CveMetodoPago = -1
@@ -5282,7 +5282,7 @@ Partial Class General_SaldosIniciales
crow = 1
ccol = ccol + 1
Catalogos.Cell(crow, ccol).Value = "Metodo pago"
For Each row As DataRow In GlobalDTMetodosPago.Rows
For Each row As DataRow In GlobalDTVtaMetodoPago.Rows
crow = crow + 1
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveMetodoPago"), row("MetodoPago"))
Next