App_Code/ClsPaginas.vb

@@ -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 costos"
             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)

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
 
 

Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc

@@ -15,7 +15,7 @@
                       <Paragraph>
                         <TextRuns>
                           <TextRun>
-                            <Value>Cliente</Value>
+                            <Value>Folio</Value>
                             <Style />
                           </TextRun>
                         </TextRuns>

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

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:Label runat="server" AssociatedControlID="TxtFISalariodiarioImss">Salario Diario(IMSS):</asp:Label>
+                            <asp:TextBox ID="TxtFISalariodiario" CssClass="form-control" runat="server"></asp:TextBox>
+                            <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
 
-
-
-        TxtFISalariodiarioImss.Text = TxtSalarioCotizado.Text
+        TxtFISalariodiario.Text = TxtSalarioDiario.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
 
-
-        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
                 End If
-            Else
-
-            End If
-        End If
-
-        objRH.Dispose()
-
-
-
+            End Using
+        End If
 
         RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
         UpFactordeintegracion.Update()
     End Sub
-    Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs)
-        Dim SD As Decimal = TxtFISalariodiarioImss.Text.ToDecimal()
+    Private Sub calcularSDI()
+        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()
-        Alert(String.Format(" salario diario integreado {0:###0.########}", SDI))
+        UpFactordeintegracion.Update()
+    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
-                TxtSalarioCotizado.Text = TxtFISalariodiarioImss.Text
+            If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
+                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)