diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index 303c51bf1..670edb5c3 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -330,7 +330,7 @@ - + @@ -344,7 +344,7 @@ - + @@ -354,12 +354,12 @@ - + - + @@ -369,37 +369,37 @@ - + - + - + - + - + - + - + @@ -444,7 +444,7 @@ - + @@ -505,8 +505,6 @@ - - @@ -557,8 +555,6 @@ - - diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 04073217c..d0b713f61 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -289,21 +289,14 @@ Partial Class RepVentaDetalle Private Sub CargaCombos() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) - CargaClientes() - 'DdlClientes.setEsWebService(False) - - 'Dim ObjClientes As New ClsClientes - 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - ' DdlClientes.DataSource = ObjClientes.DtResultados - 'Else - ' DdlClientes.DataSource = Nothing - 'End If - 'ObjClientes.Dispose() - 'DdlClientes.DataBind() - - 'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) - - 'Vendedor + CargaClientes() + + + 'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString + txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString + + 'Vendedor DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataBind() DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2")) @@ -493,23 +486,23 @@ Partial Class RepVentaDetalle e.Row.FCLiteral("LtlFacturaCotizacion").Text = "" & e.Row.DBCampo("FolioVenta") & "" End If - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left - e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(11).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(12).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(13).HorizontalAlign = HorizontalAlign.Left - e.Row.Cells(14).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(15).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(20).HorizontalAlign = HorizontalAlign.Left + 'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left + 'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(11).HorizontalAlign = HorizontalAlign.Right + 'e.Row.Cells(12).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(13).HorizontalAlign = HorizontalAlign.Left + 'e.Row.Cells(14).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(15).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(20).HorizontalAlign = HorizontalAlign.Left If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "-"