2020-09-02 19:20:37 -07:00
parent 79ca9593ea
commit 5d1513ddee
11 changed files with 185 additions and 60 deletions
--- a/RH/Personal.aspx
+++ b/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>

--- a/RH/Personal.aspx.vb
+++ b/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