diff --git a/PortalCliente/PortalCliente.aspx b/PortalCliente/PortalCliente.aspx index 979c91a51..076c11c0d 100644 --- a/PortalCliente/PortalCliente.aspx +++ b/PortalCliente/PortalCliente.aspx @@ -511,12 +511,8 @@ -
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
- -
+ +
@@ -528,8 +524,16 @@
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" + class="btn btn-circle btn-sm label-info"> +
+
- + @@ -552,14 +556,12 @@

-
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
+ -
+
+ Anticipo del Cliente Historial
@@ -569,8 +571,16 @@
+ +
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
- + @@ -582,8 +592,8 @@ - - + +
@@ -1348,7 +1358,7 @@ - + diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index e045fe0f5..aa2950fd4 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -271,6 +271,7 @@ Partial Class Ventas_PortalCliente #Region "TAB HISTORIAL DE VENTAS" Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1) + Dim ObjClientes As New ClsClientes() If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, SelectTop, CveClienteSucursal:=CveClienteSucursal) Then If ObjClientes.DtResultados.Rows.Count > 0 Then @@ -291,6 +292,9 @@ Partial Class Ventas_PortalCliente End If ObjClientes.Dispose() GVHistorial.DataBind() + + RblTipo_SelectedIndexChanged(Nothing, Nothing) + End Sub Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound @@ -1233,29 +1237,39 @@ Partial Class Ventas_PortalCliente GVAnticiposHistorial.DataBind() End Sub - Protected Sub GVAnticipos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowDataBound, GVAnticiposHistorial.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.RowIndex = 0 Then - e.Row.Cells(0).ColumnSpan = 2 - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right - e.Row.FCLiteral("LtlFactura").Text = "Total" & " " - e.Row.BackColor = Drawing.Color.LightGray - e.Row.Cells(1).Visible = False - End If + Protected Sub GVAnticipos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowDataBound, GVAnticiposHistorial.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + + 'If e.Row.RowIndex = 0 Then + ' e.Row.Cells(0).ColumnSpan = 2 + ' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right + ' e.Row.FCLiteral("LtlFactura").Text = "Total" & " " + ' e.Row.BackColor = Drawing.Color.LightGray + ' e.Row.Cells(1).Visible = False + 'End If If e.Row.RowIndex = 1 Then e.Row.Cells(0).Width = Unit.Pixel(60) e.Row.Cells(1).Width = Unit.Pixel(100) e.Row.Cells(2).Width = Unit.Pixel(80) + End If + + + If e.Row.DBCampo("CveVenta").ToString.ToEntero = 0 Then + e.Row.Cells(0).ColumnSpan = 2 + e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right + e.Row.BackColor = Drawing.Color.LightGray + e.Row.Cells(1).Visible = False End If - e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Right - - 'If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(2).ForeColor = Drawing.Color.Red - 'If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAnticipos"), Literal).Text = "" - - If e.Row.RowIndex > 0 Then - e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("Folio") - End If + e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Right + + 'If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(2).ForeColor = Drawing.Color.Red + 'If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAnticipos"), Literal).Text = "" + + 'If e.Row.RowIndex > 0 Then + e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("Folio") + 'End If If CType(sender, GridView).ID = "GVAnticipos" Then e.Row.Cells(2).Font.Bold = True