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

Filtro de Vendedor/Cliente

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-01-18 17:37:14 -07:00
parent 0399f2311c
commit 85a0218df2
2 changed files with 21 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -375,6 +375,7 @@ Partial Class RepVentaDetalle
'Vendedor 'Vendedor
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind() DdlVendedor.DataBind()
DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2"))
'CargaUsuarios 'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)

18
Ventas/RepVentas.aspx.vb
View File

@@ -138,6 +138,7 @@ Partial Class Ventas_RepVentas
DdlGrupo.Items.Insert(12, New ListItem("Año/Mes Ejec.", "13")) DdlGrupo.Items.Insert(12, New ListItem("Año/Mes Ejec.", "13"))
DdlGrupo.Items.Insert(13, New ListItem("Fecha Ejec.", "14")) DdlGrupo.Items.Insert(13, New ListItem("Fecha Ejec.", "14"))
DdlGrupo.Items.Insert(13, New ListItem("Tipo Cliente", "20")) DdlGrupo.Items.Insert(13, New ListItem("Tipo Cliente", "20"))
DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("3") DdlGrupo.SelectedValueExist("3")
End Sub End Sub
@@ -395,6 +396,7 @@ Partial Class Ventas_RepVentas
e.Row.Cells(2).BackColor = Drawing.Color.Transparent e.Row.Cells(2).BackColor = Drawing.Color.Transparent
e.Row.Cells(6).BackColor = Drawing.Color.Transparent e.Row.Cells(6).BackColor = Drawing.Color.Transparent
End If End If
If e.Row.DBCampo("GPO") = "Total Dólares" Then If e.Row.DBCampo("GPO") = "Total Dólares" Then
e.Row.CssClass = "Totales" e.Row.CssClass = "Totales"
End If End If
@@ -492,6 +494,22 @@ Partial Class Ventas_RepVentas
e.Row.Attributes.Add("style", "background:#CCCCCC !important") e.Row.Attributes.Add("style", "background:#CCCCCC !important")
End If End If
If DdlGrupo.SelectedValue.ToEntero = 21 Then
If e.Row.DBCampo("GPO").Contains("Total") Then
e.Row.CssClass = "Totales"
e.Row.Cells(2).BackColor = Drawing.Color.Transparent
e.Row.Cells(6).BackColor = Drawing.Color.Transparent
Else
If e.Row.DBCampo("CveCliente") = "" Then
e.Row.CssClass = "SubTotales"
e.Row.Cells(2).BackColor = Drawing.Color.Transparent
e.Row.Cells(6).BackColor = Drawing.Color.Transparent
End If
End If
End If
End If End If
End Sub End Sub
#End Region #End Region