--%>
@@ -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