diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 116d4501f..887e726ba 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -57,13 +57,6 @@ - <%-- - -
- -
-
-
--%>
@@ -74,7 +67,7 @@ "> - +<%-- --%>
@@ -121,14 +114,6 @@
- <%--
> -
-
Moneda:
-
- -
-
-
--%>
@@ -164,8 +149,6 @@ - - @@ -175,9 +158,6 @@ - - - @@ -392,10 +372,10 @@ return false; } - function PlaySound() { - var sound = document.getElementById("audio"); - sound.play() - } + //function PlaySound() { + // var sound = document.getElementById("audio"); + // sound.play() + //} function FechaGeneral(lnk, FechaDocumento) { debugger; diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 95c0d7ad0..6bd36841f 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -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