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

--Cambios en reporte de cortes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-04-10 17:12:30 -07:00
parent 5dba84d449
commit 4b735c52c3
3 changed files with 83 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1653,23 +1653,28 @@ Partial Class PopUpVerFactura
TipoTabla = 2
Case "VentasCorte"
rowData("Columna") = "Total Ventas"
Orden = 2
Orden = 1
TipoTabla = 1
Case "NotasCredito"
rowData("Columna") = "N.C."
Orden = 3
Orden = 2
TipoTabla = 1
Case "VentasCredito"
rowData("Columna") = "Ventas Crédito"
Orden = 3
TipoTabla = 1
Case "VentasContado"
rowData("Columna") = "Ventas Contado"
Orden = 4
TipoTabla = 1
Case "VentaTotalIngreso"
rowData("Columna") = "Ventas Ingreso"
Orden = 4
Orden = 5
TipoTabla = 1
Case "VentaTotalRemision"
rowData("Columna") = "Ventas Remisiones"
Orden = 4
Orden = 6
TipoTabla = 1
'Case "TotalEfectivo"
' rowData("Columna") = "Total Efectivo"
@@ -1726,13 +1731,13 @@ Partial Class PopUpVerFactura
End If
Next
Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'")
'Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'")
Dim rowCredito = DtDatosVentas.NewRow()
rowCredito("Columna") = "Crédito"
rowCredito("Importe") = TotalCredito
rowCredito("Orden") = 4
DtDatosVentas.Rows.Add(rowCredito)
'Dim rowCredito = DtDatosVentas.NewRow()
'rowCredito("Columna") = "Crédito"
'rowCredito("Importe") = TotalCredito
'rowCredito("Orden") = 4
'DtDatosVentas.Rows.Add(rowCredito)
Dim rds3 As New ReportDataSource With {.Name = "DataSet3", .Value = DtDatosVentas.FiltraParametros("Orden > 0", "Orden")}
lrds.Add(rds3)