Benef. Ss Microempresa 2013
-
Upload
jhoel-julca-ramos -
Category
Documents
-
view
218 -
download
0
description
Transcript of Benef. Ss Microempresa 2013
BENEFICIOS SOCIALESLIQUIDACION DE BENEFICIOS SOCIALES1NOMBRE DEL EMPLEADO:ALEJANDRO HUISA FIGUEROADEHASTADIASBASE PARAAFPA.OBLIGATORIOPRIMACOMISION VARIABLETOTALDATOS DEL TRABAJADORN DEL DNIOCUPACIONULTIMO CONTRATOOCUPACION:ASISTENTE DE CONTABILIDAD01/01/201301/03/201359Clculo de Vacaciones TruncasHORIZONTE10.001.111.9513.06ALEJANDRO HUISA FIGUEROA42589623ASISTENTE DE CONTABILIDAD1/3/12FECHA DE INGRESO:01/01/201301/03/201301/03/20130Clculo de Gratificacin TruncaINTEGRA10.001.031.8012.83FECHA DE CESE:01/03/201301/01/201301/03/201359Clculo de CTSPRIMA10.001.061.7512.81TIEMPO DE SERVICIO:59diasPRO-FUTURO10.001.052.3013.35REMUNERACION COMPUTABLE:750SNP13.00LIQUIDACION1.-VACACIONES TRUNCAS61.46DEL01/01/2013AL01/03/20132.-GRATIFICACION TRUNCA0.00DEL01/03/2013AL01/03/20133.-DESCUENTOS(7.89)INTEGRA12.83%SUB TOTAL53.574.-LIQUIDACIN CTS61.46DEL01/01/2013AL01/03/2013TOTAL A PAGAR DE LA PRESENTE LIQUIDACIONS/.115.03He recibido la suma de S/.115.03Importe con el cual han sido cubiertos todos mis derechos y beneficios sociales correspondienteliquidados de acuerdo a la legislacion laboral vigente a la ley MYPES renunciando a todo reclamoque pudiera tener por tal objeto de tal fin_________________________________ALEJANDRO HUISA FIGUEROA42589623
CALCULAR
Attribute VB_Name = "MdDuplicar"Sub hojas()Sheets(1).Copy After:=Sheets(1)Sheets(2).Name = Val(Range("D2") + 1)Hoja5.Range("D2") = Val(Range("D2") + 1)End Sub
Attribute VB_Name = "Mdulo5"Sub CALCULO()Attribute CALCULO.VB_ProcData.VB_Invoke_Func = " \n14"
' CALCULO MacroMsgBox " ojo clickar la impresora despues de revisar los datos detenidamente"
End Sub
Attribute VB_Name = "Mdulo4"Sub impresiones()Attribute impresiones.VB_ProcData.VB_Invoke_Func = " \n14"'' impresiones Macro Range("A1:G49").Select ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,1,,,TRUE,,FALSE)" Range("I46").Select hojasEnd Sub
Attribute VB_Name = "ThisWorkbook"Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = TrueAttribute VB_TemplateDerived = FalseAttribute VB_Customizable = True
Attribute VB_Name = "Mdulo6"Sub fechas()Attribute fechas.VB_ProcData.VB_Invoke_Func = " \n14"
' fechas Macro UserForm2.ShowEnd Sub
Attribute VB_Name = "Hoja5"Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = TrueAttribute VB_TemplateDerived = FalseAttribute VB_Customizable = True
Attribute VB_Name = "UserForm2"Attribute VB_Base = "0{67D1A5FB-A74B-4510-8B0E-8B773D9D6519}{0A15F74E-A3F3-477D-9B48-EE73AF9A851B}"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseAttribute VB_TemplateDerived = FalseAttribute VB_Customizable = FalsePrivate Sub Label10_Click()On Error Resume Next
Dim Nuevo_Nombre As String
Nuevo_Nombre = ActiveSheet.Range("D2").Value + 1ActiveSheet.Copy After:=Sheets(Worksheets.Count)ActiveSheet.Name = Nuevo_NombreActiveSheet.Range("D2").Value = Nuevo_Nombre
MsgBox ("YA ESTA CALCULANDO... ") End Sub
Private Sub TextBox1_Change()Range("H4").SelectActiveCell.FormulaR1C1 = TextBox1End Sub
Private Sub TextBox2_Change()Range("I4").SelectActiveCell.FormulaR1C1 = TextBox2End Sub
Private Sub TextBox3_Change()Range("H5").SelectActiveCell.FormulaR1C1 = TextBox3End Sub
Private Sub TextBox4_Change()Range("I5").SelectActiveCell.FormulaR1C1 = TextBox4End Sub
Private Sub TextBox5_Change()Range("H6").SelectActiveCell.FormulaR1C1 = TextBox5End Sub
Private Sub TextBox6_Change()Range("I6").SelectActiveCell.FormulaR1C1 = TextBox6End Sub
Private Sub TextBox7_Change()Range("D8").SelectActiveCell.FormulaR1C1 = TextBox7End Sub
Private Sub UserForm_Click()
End Sub