From a1a19b374bc8624f269b722d1beab060efff029c Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 15 Aug 2019 12:52:11 -0700 Subject: [PATCH] --- Ventas/RepVentasUtilidad.aspx | 16 +++++++------- Ventas/RepVentasUtilidad.aspx.vb | 36 ++++++++++++++++++++++++-------- 2 files changed, 36 insertions(+), 16 deletions(-) diff --git a/Ventas/RepVentasUtilidad.aspx b/Ventas/RepVentasUtilidad.aspx index 5c58d537d..adf3f6615 100644 --- a/Ventas/RepVentasUtilidad.aspx +++ b/Ventas/RepVentasUtilidad.aspx @@ -87,10 +87,10 @@
  • - Generar PDF + PDF
  • - Generar Excel + Excel
    • @@ -164,9 +164,8 @@ Cliente:
    - - - + +
    @@ -232,8 +231,8 @@
    - - + +
    VentaCostoVentaCosto Utilidad/Pérdida
    @@ -250,6 +249,9 @@ + + + diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb index 706a1bd43..9b9a2dabf 100644 --- a/Ventas/RepVentasUtilidad.aspx.vb +++ b/Ventas/RepVentasUtilidad.aspx.vb @@ -38,8 +38,15 @@ Partial Class Ventas_RepVentasUtilidad txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString 'Carga Clientes - DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlClientes.DataBind() + Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) + If EsWS Then + DdlClientes.setEsWebService(True) + Else + DdlClientes.setEsWebService(False) + DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) + DdlClientes.DataBind() + DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + End If 'CargaSubProyectos DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) @@ -84,7 +91,10 @@ Partial Class Ventas_RepVentasUtilidad DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto) DdlVendedor.SelectedValuesIfExistM(CveVendedor) - DdlClientes.SelectedValueExist(CveCliente) + If CveCliente <> "-1" Then + DdlClientes.SelectedValue = CveCliente + DdlClientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}").FiltroPrimeroValor("Nombre") + End If DdlClasificacion.SelectedValueExist(CveClasificacion) DdlPS.SelectedValue = CvePS If CvePS.ToEntero > 0 AndAlso GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then @@ -184,17 +194,25 @@ Partial Class Ventas_RepVentasUtilidad End If + + If e.Row.DBCampo("CveVenta") = "" Then + e.Row.Cells(6).Text = "" + e.Row.Cells(7).Text = "" + e.Row.Cells(8).Text = "" + e.Row.Cells(10).Text = "" + End If + If e.Row.DBCampo("CveMovimiento") = "" Then - e.Row.Cells(3).Text = "" + e.Row.Cells(7).Text = "" + e.Row.Cells(8).Text = "" + e.Row.Cells(10).Text = "" End If If e.Row.DBCampo("CveVenta") = "" Then e.Row.CssClass = "Totales" End If - If e.Row.DBCampo("CveVenta") = "" Then - e.Row.Cells(7).Text = "" - End If + Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}", @@ -249,7 +267,7 @@ Partial Class Ventas_RepVentasUtilidad If txtFechaI.Text = "" Then FechaI = MinFecha If txtFechaF.Text = "" Then FechaF = MaxFecha - Dim Cliente = If(DdlClientes.SelectedValue = "", "", $" Cliente: {DdlClientes.SelectedItem.Text}") + Dim Cliente = If(DdlClientes.SelectedValue = "", "", $" Cliente: {DdlClientes.SelectedText}") Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $" Sucursal: {DdlSubProyecto.GetSelectedText}") Dim Vendedor = If(DdlVendedor.GetSelectedText = "", "", $" Vendedor: {DdlVendedor.GetSelectedText}") Dim PS = If(DdlPS.SelectedValue = "-1", "", $" P.S.: {DdlPS.SelectedText}") @@ -305,7 +323,7 @@ Partial Class Ventas_RepVentasUtilidad Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $" Sucursal: {DdlSubProyecto.GetSelectedText}") Dim FechaIn As String = $" Fecha Inicio: {txtFechaI.Text}" Dim FechaFn As String = $" Fecha Fin: {txtFechaF.Text}" - Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $" Cliente: {DdlClientes.SelectedItem.Text}") + Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $" Cliente: {DdlClientes.SelectedText}") Dim Vendedor = If(DdlVendedor.GetSelectedText = "", "", $" Vendedor: {DdlVendedor.GetSelectedText}") Dim PS = If(DdlPS.SelectedValue = "-1", "", $" P.S.: {DdlPS.SelectedText}") Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $" Clasificacion: {DdlClasificacion.SelectedItem.Text}")