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

Totalizadores en reporte de cortes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-03-10 19:49:26 -07:00
parent d35d87836d
commit 16dc8cc966
2 changed files with 47 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
Bancos/RepCortes.aspx.vb
View File

@@ -79,9 +79,9 @@ Partial Class Bancos_RepCortes
UPDatos.Update()
End If
ObjPuntoVenta.Dispose()
End Sub
End Sub
#End Region
#Region "G V - D A T O S "
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -89,30 +89,48 @@ Partial Class Bancos_RepCortes
e.Row.CssClass = "SubTotales2"
End If
End If
End Sub
'Protected Sub GvD_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvD.RowCommand
' If e.CommandArgument.ToString.ToEntero > 0 Then
' End If
' Dim Vent As New ClsPuntoVenta
' If Vent.GetCortesDetalleVentas(16200, 61) Then
' Alert(Vent.DtResultados.Rows.Count.ToString)
' GvD.DataSource = Vent.DtResultados
' GvD.DataBind()
' 'RegistraScript("$get")
' divDetalle.Visible = True
' End If
' Vent.Dispose()
'End Sub
End Sub
Protected Sub GvP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvP.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("MetodoPago").ToString = "Total" Then
e.Row.CssClass = "SubTotales"
End If
End If
End Sub
Protected Sub GvD_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvD.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CveVenta").ToString = "" Then
e.Row.CssClass = "Totales"
End If
End If
End Sub
'Protected Sub GvD_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvD.RowCommand
' If e.CommandArgument.ToString.ToEntero > 0 Then
' End If
' Dim Vent As New ClsPuntoVenta
' If Vent.GetCortesDetalleVentas(16200, 61) Then
' Alert(Vent.DtResultados.Rows.Count.ToString)
' GvD.DataSource = Vent.DtResultados
' GvD.DataBind()
' 'RegistraScript("$get")
' divDetalle.Visible = True
' End If
' Vent.Dispose()
'End Sub
#End Region
#Region "BOTONES"
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos()
End Sub