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 = "-"