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

- impresion pdf edo cta, visualziacion saldo

Browse Source
This commit is contained in:
rrene
2020-09-04 19:17:12 -07:00
parent 4845755a5f
commit 2b22afac7a
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/Clientes.aspx.vb
View File

@@ -3948,6 +3948,10 @@ Partial Class Clientes
If DtCxCFact2 IsNot Nothing AndAlso DtCxCFact2.Rows.Count > 0 Then
Dim dr As DataRow = DtCxCFact2.Rows(0)
Dim lista = New List(Of CrystalParametro)
Dim SaldoDisponible As String = "0.00"
If TxtLimiteCredito.Text.ToDouble > 0 Then
SaldoDisponible = (TxtLimiteCredito.Text.ToDouble - DtCxCFact2.SUM("Saldo", "Tipo = 'Act'").ToString.ToDouble).FormatoNumero
End If
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text))
lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text))
@@ -3961,7 +3965,7 @@ Partial Class Clientes
lista.Add(New CrystalParametro("ClienteTelefono", TxtTelefono.Text))
lista.Add(New CrystalParametro("DiasCredito", TxtPlazoCobranza.Text))
lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text))
lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - DtCxCFact2(0)("Saldo").ToString.ToDouble).FormatoNumero))
lista.Add(New CrystalParametro("SaldoDisponible", SaldoDisponible))
lista.Add(New CrystalParametro("SaldoIngDolares", SaldoIngDolares.FormatoNumero))
lista.Add(New CrystalParametro("SaldoIngPesos", SaldoIngPesos.FormatoNumero))
@@ -3971,9 +3975,7 @@ Partial Class Clientes
lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero))
lista.Add(New CrystalParametro("ContaIng", ContaIng))
lista.Add(New CrystalParametro("ContaAnt", ContaAnt))
If Imagen.Exists Then
lista.Add(New CrystalParametro("LogoPath", logouri))
Else