Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

App_Code/ClsPaginas.vb

@@ -6990,7 +6990,7 @@ Public Class ClsPaginas
             Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(Vta.DtNCVinculadas IsNot Nothing, Vta.DtNCVinculadas, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte
             lrds.Add(rds5)
 
-            If UsuarioActual.CveEmpresa = 141 AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then
+            If UsuarioActual.CveEmpresa.Contiene(141, 152) AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then
                 params.Add(New ReportParameter("Kilometraje", Vta.Kilometraje.ToString))
             End If
             'Imprime los parametros
@@ -8137,7 +8137,7 @@ Public Class ClsPaginas
             Case 1
                 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
                 If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
-                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro Costo"
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo"
             Case 2
                 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
                 If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False

App_Code/ClsRH.vb

@@ -1956,14 +1956,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function UpdateSalarioImss(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiarioSS As Double) As Boolean
+    Public Function UpdateSalariointegrado(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean
         Dim Retorno As Boolean = False
-        SqlDataAdapter("PA_RH_PersonalUpdateSalarioImss")
+        SqlDataAdapter("PA_RH_PersonalUpdateSalarioIntegrado")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@SDI", SqlDbType.Money).Value = SDI
-            .Add("@SalarioDiarioSS", SqlDbType.Money).Value = SalarioDiarioSS
+            .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
         End With
         Try
             SqlAdapter.Fill(Data)

Bancos/RepCortes.aspx

@@ -52,7 +52,7 @@
     <asp:HyperLink Visible="false" NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    <asp:Label ID="LblTitulo" runat="server" Text="Cortes"></asp:Label>
+    <asp:Label ID="LblTitulo" runat="server" Text="Reporte Cortes"></asp:Label>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
@@ -72,7 +72,8 @@
                     <br />
                     <div class="row">
                         <div class="col-md-1">
-                            SubProyecto
+                            <asp:Label runat="server" ID="LblSubProyecto" Text="SubProyecto"/>
+                            <%--SubProyecto--%>
                         </div>
                         <div class="col-md-2">
                             <asp:DropDownList runat="server" ID="DdlSubProyectos" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm">
@@ -160,7 +161,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                         <HeaderTemplate>
-                            <asp:Label Text="Ventas Credito" runat="server" CausesValidation="false"> </asp:Label>
+                            <asp:Label Text="Ventas Crédito" runat="server" CausesValidation="false"> </asp:Label>
                             <asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                         </HeaderTemplate>
                         <ItemTemplate>
@@ -187,7 +188,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                         <HeaderTemplate>
-                            <asp:Label Text="Tarj. Debito" runat="server" CausesValidation="false"> </asp:Label>
+                            <asp:Label Text="Tarj. Débito" runat="server" CausesValidation="false"> </asp:Label>
                             <asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                         </HeaderTemplate>
                         <ItemTemplate>
@@ -196,7 +197,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                         <HeaderTemplate>
-                            <asp:Label Text="Tarj. Credito" runat="server" CausesValidation="false"> </asp:Label>
+                            <asp:Label Text="Tarj. Crédito" runat="server" CausesValidation="false"> </asp:Label>
                             <asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                         </HeaderTemplate>
                         <ItemTemplate>
@@ -298,7 +299,7 @@
                 <b>Detalles del Corte</b>
                 <asp:GridView ID="GvP" runat="server" AutoGenerateColumns="False" GridLines="None" Caption="Resumen" CssClass="table table-striped table-advance table-hover ScrollAD">
                     <Columns>
-                        <asp:BoundField HeaderText="Metodo Pago" DataField="MetodoPago" />
+                        <asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" />
                         <asp:BoundField HeaderText="Total" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     </Columns>
                 </asp:GridView>
@@ -306,15 +307,15 @@
                     <Columns>
                         <asp:TemplateField ItemStyle-HorizontalAlign="Left">
                             <HeaderTemplate>
-                                SerieFolio                             
+                                Serie - Folio                             
                             </HeaderTemplate>
                             <ItemTemplate>
                                 <asp:HyperLink ID="LBDescripcion" runat="server" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>' ></asp:HyperLink>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:BoundField HeaderText="NombreComercial" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
                         <asp:BoundField HeaderText="Total" DataField="ImportePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                        <asp:BoundField HeaderText="Metodo Pago" DataField="MetodoPago" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" ItemStyle-HorizontalAlign="Left" />
                     </Columns>
                     <HeaderStyle CssClass="Titulos" />
                     <RowStyle CssClass="Texto" />

Bancos/RepCortes.aspx.vb

@@ -61,9 +61,7 @@ Partial Class Bancos_RepCortes
             txtFechaVI.Text = Now.ToShortDateString
             txtFechaVF.Text = Now.ToShortDateString
             Me.Form.DefaultButton = BtnConsultar.UniqueID
-            DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+            CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)
-            DdlSubProyectos.DataBind()
-            DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
     End Sub
 

Compras/PopUpVerFactura.aspx.vb

@@ -518,7 +518,7 @@ Partial Class PopUpVerFactura
         End If
         ObjVenta.Dispose()
         ObjPuntoVenta.Dispose()
-        Dim FechaCorte As String = $"&emsp;<b>Fecha Corte:</b> {Fecha}"
+        Dim FechaCorte As String = $"&emsp;<b>Fecha fin:</b> {Fecha}"
         Dim Usuario As String = $"&emsp;<b>Usuario:</b> {Nombre}"
         If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -572,6 +572,7 @@
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px" ></asp:Label>--%>
                                                     <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -625,6 +626,7 @@
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>--%>
                                                     <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -687,6 +689,7 @@
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -83,6 +83,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             ViewState("listacolores") = value
         End Set
     End Property
+
     Private Property listaCampos As List(Of String())
         Get
             Return DirectCast(ViewState("listaCampos"), List(Of String()))
@@ -91,6 +92,30 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             ViewState("listaCampos") = value
         End Set
     End Property
+    Private Property listaCamposanios As List(Of String())
+        Get
+            Return DirectCast(ViewState("listaCamposanios"), List(Of String()))
+        End Get
+        Set(value As List(Of String()))
+            ViewState("listaCamposanios") = value
+        End Set
+    End Property
+    Private Property listaCamposaniosGastos As List(Of String())
+        Get
+            Return DirectCast(ViewState("listaCamposaniosGastos"), List(Of String()))
+        End Get
+        Set(value As List(Of String()))
+            ViewState("listaCamposaniosGastos") = value
+        End Set
+    End Property
+    Private Property listaCamposaniosTotal As List(Of String())
+        Get
+            Return DirectCast(ViewState("listaCamposaniosTotal"), List(Of String()))
+        End Get
+        Set(value As List(Of String()))
+            ViewState("listaCamposaniosTotal") = value
+        End Set
+    End Property
 
     'Private Property ReporteComplementario As Boolean
     '    Get
@@ -287,6 +312,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         If Not Page.IsPostBack Then
             listacolores = New List(Of String)
             listaCampos = New List(Of String())
+            listaCamposanios = New List(Of String())
+            listaCamposaniosGastos = New List(Of String())
+            listaCamposaniosTotal = New List(Of String())
             listacolores.Add("#FF0F00")
             listacolores.Add("#FF6600")
             listacolores.Add("#F8FF01")
@@ -306,7 +334,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             CargaEjercicios()
 
             CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
-            TabSubProyecto.HeaderText = LblSubProyecto.Text & " H."
+            TabSubProyecto.HeaderText = LblSubProyecto.Text & " "
 
 
 
@@ -1180,7 +1208,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             GvGastosAnualH.Columns(IDX_LIMPIAR).Visible = False
             GvTotalesAnualH.Columns(IDX_LIMPIAR).Visible = False
         Next
-
+        listaCamposanios.Clear()
+        listaCamposaniosGastos.Clear()
+        listaCamposaniosTotal.Clear()
 
         If DtIngresosAnualH.Rows.Count > 0 Then
 
@@ -1197,6 +1227,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                         CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
 
 
+                        listaCamposanios.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
+
+                        listaCamposaniosTotal.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
                         'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
                         'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
                         GvIngresosAnualH.Columns(IndexGv).Visible = True
@@ -1276,6 +1309,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                         CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
                         CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
+                        listaCamposaniosGastos.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
+
                         'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFields = {"CveCuenta", "FechaInicial", "FechaFActual", "CveSubProyecto"}
                         'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFormatString = "/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"
 
@@ -1360,10 +1395,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
 
     Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-
         If e.Row.RowType = DataControlRowType.DataRow Then
-
+            setgraficaCCAnual(e, listaCamposanios)
-
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
                 TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
@@ -1425,6 +1458,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
     Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
+            setgraficaCCAnual(e, listaCamposaniosGastos)
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
                 TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
@@ -1485,12 +1519,24 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         End If
 
         If e.Row.RowType = DataControlRowType.DataRow Then
-
+            setgraficaCCAnual(e, listaCamposaniosTotal)
             e.Row.Attributes.Add("style", "Font-weight: bold")
         End If
 
     End Sub
 
+    Public Sub setgraficaCCAnual(e As GridViewRowEventArgs, listaCampos As List(Of String()))
+        Dim lista As New List(Of Object)
+        Dim colorindex As Integer = 0
+        For Each campo As String() In listaCampos
+            lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)})
+            colorindex = colorindex + 1
+            If colorindex >= listacolores.Count Then
+                colorindex = 0
+            End If
+        Next
+        e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
+    End Sub
 #End Region
 
 

General/PopUpPaqueteriasGuias.aspx.cs

@@ -864,17 +864,18 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
     {
 
         ClsVentas ObjVenta = new ClsVentas();
-        if (ObjVenta.GetVentaDetalle(CveVenta))
+        if (ObjVenta.GetVenta(CveVenta,UsuarioActual.CveEmpresa))
         {
-            DataTable VentasDetalle = ObjVenta.DtResultados;
+            if (ObjVenta.DtResultados.Rows.Count > 0)
-            if (VentasDetalle.Rows.Count > 0)
             {
-                double Total = VentasDetalle.SUM("Total");
+                DataRow VentasDetalle = ObjVenta.DtResultados.Rows[0];
+                double Total = VentasDetalle["Total"].ToString().ToDouble();
                 bool Mostrar = (Total >= 100000.00);
                 tdLblPolizaSeguro.Visible = Mostrar;
                 tdTxtPolizaSeguro.Visible = Mostrar;
             }
         }
+        ObjVenta.Dispose();
     }
 
 }

Inventarios/RepMaximoMinimo.aspx

@@ -152,6 +152,11 @@
                                 <asp:Label ID="LtMarca" CssClass="truncate2" runat="server" Text='<%# Eval("Marca")%>'></asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
+                        <asp:TemplateField ItemStyle-Width="30%" HeaderText="Almacen">
+                            <ItemTemplate>
+                                <asp:Label ID="LtAlmacen" CssClass="truncate2" runat="server" Text='<%# Eval("Almacen")%>'></asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
                         <asp:TemplateField ItemStyle-Width="10%" HeaderText="Existencia" ItemStyle-HorizontalAlign="Right">
                             <ItemTemplate>
                                 <asp:Literal ID="LtExistencia" runat="server" Text='<%# If(Eval("Existencia").ToString() = "0" Or Eval("Existencia").ToString() = "", "-", (Eval("Existencia", "{0:#,##0.##}")))  %>'></asp:Literal>
@@ -397,7 +402,7 @@
                             </div>
                             <div class="portlet-body rowpadding " style="display: none;">
                                  
-                                <asp:TextBox ID="TxtArchivoSua" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                                <asp:TextBox ID="TxtArchivoMaxMin" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
                             </div>
                         </div>
 

Inventarios/RepMaximoMinimo.aspx.vb

@@ -55,7 +55,6 @@ Partial Class Inventarios_RepMaximoMinimo
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
 
-
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
         DdlAlmacen.DataBind()
         DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -358,14 +357,81 @@ Partial Class Inventarios_RepMaximoMinimo
 #End Region
 
     Protected Sub LnkUpFile_Click(sender As Object, e As EventArgs)
-        RegistraScript("$('#DmodalCargarMaximosMinimos').modal('hide');")
+        Dim Filesgral As List(Of Archivo) = TxtArchivoMaxMin.getfiles().Archivos
+        Dim continuar As Boolean = Filesgral.Count > 0
+        Dim stringError As String = ""
+        Dim fileItem As Archivo = If(continuar, Filesgral(0), Nothing)
+
+        If continuar Then
+            Dim FileExtension As String = fileItem.Extencion.ToUpper()
+
+            If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then
+            Else
+                continuar = False
+                stringError = "No se inserto un archivo de tipo Excel"
+            End If
+        End If
+
+        Dim DTEXcel As DataTable = New DataTable()
+        If continuar Then
+            DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True)
+            DTEXcel.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+            DTEXcel.Columns.Add(New DataColumn("CveAlmacen", GetType(Integer)))
+            Dim dtAlmacen As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1)
+            For Each drow As DataRow In DTEXcel.Rows
+                Dim Drps As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa, -1, "-1", -1, -1, drow("Codigo").ToString())
+                Dim dralmacen As DataRow = dtAlmacen.FiltroPrimero(String.Format("Almacen='{0}'", drow("Almacen")))
+                If Drps.Rows.Count > 0 Then
+                    drow("CvePS") = Drps.Rows(0)("CvePS")
+                End If
+                If Not IsNothing(dralmacen) Then
+                    drow("CveAlmacen") = dralmacen("CveAlmacen")
+                End If
+                DTEXcel.AcceptChanges()
+            Next
+            continuar = True
+        End If
+        If continuar Then
+
+            Using ObjMaxMin As New ClsInventarios
+                ObjMaxMin.IniciaTransacSQL()
+                Dim DtResultados As New DataTable
+                If ObjMaxMin.RepMaximoMinimo(-1, -1, -1, UsuarioActual.CveEmpresa) Then
+                    DtResultados = ObjMaxMin.DtResultados
+                End If
+                For Each drow As DataRow In DTEXcel.Select("CvePS>0 AND CveAlmacen >0")
+                    If continuar Then
+                        If IsNothing(DtResultados.FiltroPrimero(String.Format("CveAlmacen={0} AND CvePS={1}", drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero()))) Then
+                            continuar = ObjMaxMin.AddAlmacenMaximoMinimo(drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero(), drow("Maximo").ToString().ToDouble(), drow("Minimo").ToString().ToDouble(), UsuarioActual.CveUsuario)
+                        Else
+                            continuar = ObjMaxMin.UpdateAlmacenMaximoMinimo(drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero(), drow("Maximo").ToString().ToDouble(), drow("Minimo").ToString().ToDouble(), UsuarioActual.CveUsuario)
+                        End If
+                    End If
+                Next
+                If continuar Then
+                    ObjMaxMin.Commit()
+                Else
+                    ObjMaxMin.RollBack()
+                End If
+            End Using
+        End If
+        If continuar Then
+            CargaGrid()
+            Alert("los cambios se han guardado satisfactoriamente")
+            RegistraScript("$('#DmodalCargarMaximosMinimos').modal('hide');")
+        End If
     End Sub
     Protected Sub LnkCargarMaximosMinimos_Click(sender As Object, e As EventArgs)
-
+        TxtArchivoMaxMin.Text = ""
         RegistraScript("$('#DmodalCargarMaximosMinimos').modal();")
         Upcargamasiva.Update()
     End Sub
     Protected Sub LnkDescargarFormato_Click(sender As Object, e As EventArgs)
+        Using ObjMaxMin As New ClsInventarios
+            If ObjMaxMin.RepMaximoMinimo(-1, -1, -1, UsuarioActual.CveEmpresa) Then
+                ObjMaxMin.DtResultados.FiltraParametros("", "", New String() {"Codigo", "Almacen", "Maximo", "Minimo"}).ExportToExcel(String.Format("MaximosyMinimos{0:dd-MM-yyyy}", DateTime.Now))
+            End If
 
+        End Using
     End Sub
 End Class

OC/OC.aspx

@@ -1485,6 +1485,10 @@
                                        
                                         <asp:DropDownList ID="DdlUsuariosAsignado" CssClass="select2me" Width="200px" DataTextField="Nombre" DataValueField="CveUsuario" runat="server"></asp:DropDownList>
                                     </asp:Panel>
+                                    <asp:Panel runat="server" ID="PnlUsuarioYaAsignado" Visible="false" Style="text-align:left;font-size:14px;height:34px;margin-top:10px">
+                                        Asignado a:
+                                        <asp:Label runat="server" ID="LblUsuarioYaAsignado"/><br /><br />
+                                    </asp:Panel>
                                     <asp:Button ID="BtnGuardar" CssClass="btn btn-primary" Style="margin-top: 5px;" runat="server" Text="Guardar" Width="170px" ValidationGroup="GrpGuardar" />
                                     <asp:UpdatePanel runat="server">
                                         <ContentTemplate>

OC/OC.aspx.vb

@@ -817,6 +817,7 @@ Partial Class OC
             End If
 
         End If
+        MostrarUsuarioAsignado()
         Me.Form.DefaultButton = ""
     End Sub
 
@@ -3128,7 +3129,7 @@ Partial Class OC
 
             Else
                 If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
-                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                  PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                  EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
                                                  Promocion:=Promocion) Then
@@ -8038,6 +8039,13 @@ Partial Class OC
         UpSolicitarAnticipo.Update()
     End Sub
 
+    Private Sub MostrarUsuarioAsignado()
+        If CveUsuarioAsignado > 0 Then
+            PnlUsuarioYaAsignado.Visible = True
+            Dim NombreUsuario As String = GlobalDTUsuarios(CveUsuario:=CveUsuarioAsignado).FiltroPrimeroValor("Nombre")
+            LblUsuarioYaAsignado.Text = NombreUsuario
+        End If
+    End Sub
     'Private Sub CargaVentaRelacionada()
     '    Dim GridViewPSAux As GridView = GvD
     '    Dim CveOCDetalle As New StringBuilder()

OC/RepOC.aspx

@@ -97,6 +97,9 @@
             <li>
                 <asp:LinkButton ID="LbPorAtender" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel por Atender</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LbPendientesPDF" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF Pendientes</asp:LinkButton>
+            </li>
             <li>
                 <asp:LinkButton ID="LbPendientes" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel Pendientes</asp:LinkButton>
             </li>
@@ -107,6 +110,7 @@
         <Triggers>
             <asp:PostBackTrigger ControlID="LbPorAtender" />
             <asp:PostBackTrigger ControlID="LbPendientes" />
+            <asp:PostBackTrigger ControlID="LbPendientesPDF" />
             <asp:PostBackTrigger ControlID="LbConsultar" />
         </Triggers>
     </asp:UpdatePanel>

OC/RepOC.aspx.vb

@@ -22,9 +22,17 @@ Partial Class RepOC
         Set(value As DataTable)
             ViewState("DtPorAtender") = value
         End Set
-    End Property
+    End Property
+    Private Property DtPendiente As DataTable
+        Get
+            Return DirectCast(ViewState("DtPendiente"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtPendiente") = value
+        End Set
+    End Property
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             txtFechaI.Text = Now.AddMonths(-3).ToShortDateString
@@ -87,6 +95,7 @@ Partial Class RepOC
         CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LblSubProyecto)
         GvPorAtender.Columns(5).HeaderText = LblSubProyecto.Text
         GvPendientes.Columns(5).HeaderText = LblSubProyecto.Text
+        GvConsultar.Columns(5).HeaderText = LblSubProyecto.Text
         DivProyectos.Visible = DdlProyectos.Visible
     End Sub
 
@@ -182,6 +191,7 @@ Partial Class RepOC
     Protected Sub btnConsultarPendientes_Click(sender As Object, e As EventArgs) Handles btnConsultarPendientes.Click
         LbPorAtender.Visible = True
         LbPendientes.Visible = True
+        LbPendientesPDF.Visible = True
         LbConsultar.Visible = False
 
         Tab.Visible = True
@@ -214,6 +224,7 @@ Partial Class RepOC
                                    DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
                                    CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
             GvPendientes.DataSource = OC.DtResultados
+            DtPendiente = OC.DtResultados
             GvPendientes.DataBind()
             'If (GvPendientes.Rows.Count > 0) Then
             '    GvPendientes.UseAccessibleHeader = True
@@ -312,6 +323,7 @@ Partial Class RepOC
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
         LbPorAtender.Visible = False
         LbPendientes.Visible = False
+        LbPendientesPDF.Visible = False
         LbConsultar.Visible = True
         DivConsultar.Visible = True
         DivPendiete.Visible = False
@@ -330,7 +342,8 @@ Partial Class RepOC
                         CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
 
             GvConsultar.DataSource = OC.DtResultados
-            DtOC = OC.DtResultados
+            DtOC = OC.DtResultados
+            DtPorAtender = OC.DtResultados
             LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero
 
             If UsuarioActual.TienePermisoProceso(227) Then
@@ -459,6 +472,7 @@ Partial Class RepOC
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("AgrupadoPor", $"{Folio}{Tipo}{Proyecto}{SubProyecto}{Estatus}{AF}{Usuario}{FI}{FF}{Clasificacion}{Producto}{Completa}{Proveedor}{Cliente}"))
             params.Add(New ReportParameter("SubProyectoHeader", LblSubProyecto.Text))
+            params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER"))
 
             If Imagen.Exists Then
                 params.Add(New ReportParameter("LogoPath", logouri))
@@ -480,7 +494,27 @@ Partial Class RepOC
 
     End Sub
     Protected Sub LbPendientes_Click(sender As Object, e As System.EventArgs) Handles LbPendientes.Click
-        GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
+        'GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
+        ImprimirPendientes("EXCEL")
+    End Sub
+    Protected Sub LbPendientesPDF_Click(sender As Object, e As System.EventArgs) Handles LbPendientesPDF.Click
+        ImprimirPendientes("PDF")
+    End Sub
+
+    Private Sub ImprimirPendientes(format As String)
+        If UsuarioActual.CveEmpresa.Contiene(72) Then
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text = "", "-1", txtFechaI.Text)))
+            params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text)))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
+            params.Add(New ReportParameter("SubProyecto", LblSubProyecto.Text))
+
+            ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtPendiente, params, Formato:=format)
+        Else
+            GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString)
+        End If
     End Sub
     Protected Sub LbConsultar_Click(sender As Object, e As System.EventArgs) Handles LbConsultar.Click
         If UsuarioActual.CveEmpresa.Contiene(72) Then

RH/Personal.aspx

@@ -4588,21 +4588,21 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" runat="server" style="text-align: left">Calcular Factor de Integración</h4>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Calcular factor de integración</h4>
                     </div>
                     <div class="modal-body">
 
                         <div class="form-group form-md-line-input">
-                            <asp:TextBox ID="TxtFISalariodiarioImss" CssClass="form-control" runat="server"></asp:TextBox>
+                            <asp:TextBox ID="TxtFISalariodiario" CssClass="form-control" runat="server"></asp:TextBox>
-                            <asp:Label runat="server" AssociatedControlID="TxtFISalariodiarioImss">Salario Diario(IMSS):</asp:Label>
+                            <asp:Label runat="server" AssociatedControlID="TxtFISalariodiario">Salario diario:</asp:Label>
                         </div>
                         <div class="form-group form-md-line-input">
                             <asp:TextBox ID="TxtFIDiasVacaciones" Text="6" CssClass="form-control" runat="server"></asp:TextBox>
-                            <asp:Label runat="server" AssociatedControlID="TxtFIDiasVacaciones">Días Vacaciones:</asp:Label>
+                            <asp:Label runat="server" AssociatedControlID="TxtFIDiasVacaciones">Días vacaciones:</asp:Label>
                         </div>
                         <div class="form-group form-md-line-input">
                             <asp:TextBox ID="TxtFIPrimaVacacional" CssClass="form-control" runat="server"></asp:TextBox>
-                            <asp:Label runat="server" AssociatedControlID="TxtFIPrimaVacacional">Prima Vacacional:</asp:Label>
+                            <asp:Label runat="server" AssociatedControlID="TxtFIPrimaVacacional">Prima vacacional:</asp:Label>
                         </div>
                         <div class="form-group form-md-line-input">
                             <asp:TextBox ID="TxtFIAguinaldo" CssClass="form-control" runat="server"></asp:TextBox>
@@ -4614,7 +4614,7 @@
                         </div>
                         <div class="form-group form-md-line-input">
                             <asp:TextBox ID="TxtFISalarioDiarioIntegrado" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
-                            <asp:Label runat="server" AssociatedControlID="TxtFISalarioDiarioIntegrado">Salario Diario Integrado:</asp:Label>
+                            <asp:Label runat="server" AssociatedControlID="TxtFISalarioDiarioIntegrado">Salario Diario Integrado(SDI):</asp:Label>
                         </div>
                     </div>
 
@@ -4645,7 +4645,7 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" runat="server" style="text-align: left">Modificar Salario</h4>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Modificar salario</h4>
                     </div>
                     <div class="modal-body">
                         <div>
@@ -4677,12 +4677,12 @@
 
                         <div class="form-group form-md-line-input">
                             <asp:TextBox ID="TxtSalarioDiarioImSS" Enabled="true" CssClass="form-control" runat="server"></asp:TextBox>
-                            <asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioImSS">Salario diario(Imss):</asp:Label>
+                            <asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioImSS">Salario diario(IMSS):</asp:Label>
                         </div>
 
                         <div class="form-group form-md-line-input">
                             <asp:TextBox ID="TxtSalarioDiarioIntegrado" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
-                            <asp:Label runat="server" Enabled="false" AssociatedControlID="TxtSalarioDiarioIntegrado">Salario diario integrado:</asp:Label>
+                            <asp:Label runat="server" Enabled="false" AssociatedControlID="TxtSalarioDiarioIntegrado">Salario Diario Integrado(SDI):</asp:Label>
                         </div>
                     </div>
 

RH/Personal.aspx.vb

@@ -1477,7 +1477,7 @@ Partial Class RH_Personal
                 TxtSalarioDiario.Text = ObjPersonal.SalarioDiario.ToString()
                 TxtSDI.Text = ObjPersonal.SDI.ToString()
                 TxtSalarioCotizado.Text = ObjPersonal.SalarioDiarioSS.ToString()
-                TxtFISalariodiarioImss.Text = ObjPersonal.SalarioDiarioSS.ToString()
+                TxtFISalariodiario.Text = ObjPersonal.SalarioDiario.ToString()
                 TxtBono.Text = ObjPersonal.Bono.ToString()
                 TxtNumDiasAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
                 TxtFIAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
@@ -6205,39 +6205,34 @@ Partial Class RH_Personal
             TxtFIPrimaVacacional.Text = "25"
         End If
 
-
+        TxtFISalariodiario.Text = TxtSalarioDiario.Text
-
-        TxtFISalariodiarioImss.Text = TxtSalarioCotizado.Text
         TxtFactordeIntegracion.Text = ""
         TxtFISalarioDiarioIntegrado.Text = ""
+        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+            TxtFIDiasVacaciones.Text = "6"
+        Else
+            Using objRH As New ClsRH
+                If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
+                    If objRH.DtResultados.Rows.Count > 0 Then
 
+                        If objRH.DtResultados.Rows.Count > 0 Then
+                            Dim diasvaca As Integer = objRH.DtResultados(0)("Dias").ToString().ToEntero()
+                            TxtFIDiasVacaciones.Text = If(diasvaca > 5, diasvaca, 6).ToString()
+                        Else
+                            TxtFIDiasVacaciones.Text = "6"
+                        End If
+                    Else
 
-
+                    End If
-        Dim objRH As New ClsRH
-
-        If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
-            If objRH.DtResultados.Rows.Count > 0 Then
-
-                If objRH.DtResultados.Rows.Count > 0 Then
-                    TxtFIDiasVacaciones.Text = objRH.DtResultados(0)("Dias").ToString
-                Else
-                    TxtFIDiasVacaciones.Text = "6"
                 End If
-            Else
+            End Using
-
+        End If
-            End If
-        End If
-
-        objRH.Dispose()
-
-
-
 
         RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
         UpFactordeintegracion.Update()
     End Sub
-    Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs)
+    Private Sub calcularSDI()
-        Dim SD As Decimal = TxtFISalariodiarioImss.Text.ToDecimal()
+        Dim SD As Decimal = TxtFISalariodiario.Text.ToDecimal()
         Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal()
         Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal()
         Dim diasaguinaldo As Decimal = TxtFIAguinaldo.Text.ToDecimal()
@@ -6245,18 +6240,26 @@ Partial Class RH_Personal
         Dim SDI As Decimal = (SD * FI)
         TxtFactordeIntegracion.Text = FI.ToString()
         TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI)
-        UpFactordeintegracion.Update()
+        UpFactordeintegracion.Update()
-        Alert(String.Format(" salario diario integreado {0:###0.########}", SDI))
+    End Sub
+    Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs)
+        calcularSDI()
+        Alert(String.Format(" salario diario integreado {0}", TxtFISalarioDiarioIntegrado.Text))
     End Sub
     Protected Sub LnkCalcularFactordeintegracionyguardar_Click(sender As Object, e As EventArgs)
-        LnkCalcularFactordeintegracion_Click(Nothing, Nothing)
+        calcularSDI()
 
         Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.UpdateSalarioImss(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiarioImss.Text.ToDouble) Then
+            If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
-                TxtSalarioCotizado.Text = TxtFISalariodiarioImss.Text
+                TxtSalarioDiario.Text = TxtFISalariodiario.Text
+                TxtSalarioDiarioM.Text = TxtFISalariodiario.Text
+                'TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text
+                'TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
+                TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
                 TxtSDI.Text = TxtFISalarioDiarioIntegrado.Text
                 UpDatos.Update()
-                Alert("Se ha actualizado el salario diario integreado")
+                Alert("Se ha actualizado el salario diario integreado")
+                RegistraScript("$('#DmodalFactordeIntegraccion').modal('hide')")
             End If
         End Using
     End Sub
@@ -6273,8 +6276,10 @@ Partial Class RH_Personal
         Using ObjPersonal As ClsRH = New ClsRH()
             If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtSalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(), TxtSalarioDiarioPago.Text.ToDecimal()) Then
                 TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
+                TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
                 TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
                 TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
+                TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
                 UpDatos.Update()
                 Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
             End If

Ventas/RepAuxiliarFacturas.aspx

@@ -35,7 +35,7 @@
                         <div class="row">
                             <label class="col-md-1 truncate">Productos Servicios:</label>
                             <div class="col-md-2">
-                                <ADS:Dropdownlost runat="server" ID="DdlPS" Style="width: 95%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
+                                <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="100%" Style="width: 95%;" CssClass="DdlPS" CssClassDdl="select2me form-control" DataTextField="PSCodigo" DataValueField="CvePS" />
                             </div>
                             <div class="col-md-1 truncate">
                                 Fecha Inicio:                           
@@ -136,7 +136,7 @@
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
                 <Columns>
-                    <asp:BoundField HeaderText="Cliente" DataField="Cliente" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Folio" DataField="Cliente" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField HeaderText="Grupo" ItemStyle-Width="30%" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Literal ID="LtlGrupo" runat="server" Text='<%# Eval("GPO") %>'></asp:Literal>

Ventas/RepAuxiliarFacturas.aspx.vb

@@ -58,7 +58,8 @@ Partial Class Ventas_RepAuxiliarFacturas
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
+        If Not IsPostBack Then
+            txtFechaI.Text = String.Format("01{0:/MM/yyyy}", DateTime.Now)
             CargaCombos()
         End If
     End Sub
@@ -208,8 +209,7 @@ Partial Class Ventas_RepAuxiliarFacturas
         UPDatos.Update()
     End Sub
 
-    Private Sub CargaDatos()
+    Private Sub CargaDatos()
-
         Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
         Dim FechaI, FechaF As Date
         FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)