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

--cambios en cortes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-04-06 20:20:56 -07:00
parent be4d596a9e
commit 0e88f29c55
5 changed files with 576 additions and 452 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1602,7 +1602,14 @@ Partial Class PopUpVerFactura
If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
Dim lrds As New List(Of ReportDataSource)
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen}
Dim DtMetodosPago = DtCortesVentasResumen.Copy()
'MOVER EL VENTAS CREDITO DE LA DERECHA A LA IZQUIERDA EN EL PDF
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
DtMetodosPago = DtCortesVentasResumen.FiltraParametros("MetodoPago <> 'Crédito'")
End If
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
lrds.Add(rds)
Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
lrds.Add(rds2)
@@ -1689,6 +1696,14 @@ Partial Class PopUpVerFactura
End If
Next
Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'")
Dim rowCredito = DtDatosResumen.NewRow()
rowCredito("Columna") = "Crédito"
rowCredito("Importe") = TotalCredito
rowCredito("Orden") = 4
DtDatosResumen.Rows.Add(rowCredito)
Dim rds3 As New ReportDataSource With {.Name = "DataSet3", .Value = DtDatosResumen.FiltraParametros("Orden > 0", "Orden")}
lrds.Add(rds3)