codigo fuente programa de nomina

Option Compare Database
Private Sub Comando37_Click()
del = fe_inicio
al = fe_fin
mi_al = DateAdd("d", 6, fe_inicio)
mi_diff = DateDiff("d", fe_fin, mi_al)
If mi_diff 0 Then GoTo salida
If del "" And al "" Then
dia_semana = nombre_dia(Weekday(fe_fin))
Me.hoja_tiempo.Form!in_trab_dia1_Etiqueta.Caption = dia_semana
dia_semana = nombre_dia(Weekday(DateAdd("d", 1, fe_fin)))Me.hoja_tiempo.Form!in_trab_dia2_Etiqueta.Caption = dia_semana
dia_semana = nombre_dia(Weekday(DateAdd("d", 2, fe_fin)))
Me.hoja_tiempo.Form!in_trab_dia3_Etiqueta.Caption = dia_semana
dia_semana = nombre_dia(Weekday(DateAdd("d", 3, fe_fin)))
Me.hoja_tiempo.Form!in_trab_dia4_Etiqueta.Caption = dia_semana
dia_semana = nombre_dia(Weekday(DateAdd("d", 4, fe_fin)))Me.hoja_tiempo.Form!in_trab_dia5_Etiqueta.Caption = dia_semana
dia_semana = nombre_dia(Weekday(DateAdd("d", 5, fe_fin)))
Me.hoja_tiempo.Form!in_trab_dia6_Etiqueta.Caption = dia_semana
dia_semana = nombre_dia(Weekday(DateAdd("d", 6, fe_fin)))
Me.hoja_tiempo.Form!in_trab_dia7_Etiqueta.Caption = dia_semana
End If
Exit Sub
MsgBox "Fecha Fin no Valida, deben ser periodos de 7 días"salida:
End Sub
Function nombre_dia(dia As Integer)
Select Case dia
Case 1
v_temp = "Domingo"
Case 2
v_temp = "Lunes"
Case 3
v_temp = "Martes"
Case 4
v_temp = "Miercoles"
Case 5
v_temp = "Jueves"
Case 6
v_temp = "Viernes"
Case 7
v_temp ="Sabado"
End Select
nombre_dia = v_temp
End Function
Private Sub Comando38_Click()
Dim mi_co_asig_dedu As String
Dim mi_ca_asig_dedu As Double
Dim mi_mt_asig_dedu As Double
Dim mi_mt_unitario As Double
Dim dbs As Database, qdf As QueryDef, rst As Recordset
Dim va As Integer
Set dbs = CurrentDb
Set qdf = dbs.CreateQueryDef("")
inicio =fe_inicio
final = fe_fin
' Vivienda
qdf.SQL = "SELECT ca_valor FROM definiciones " _
& "WHERE co_definicion = 'mt_vivienda';"
Set rst = qdf.OpenRecordset(dbOpenSnapshot)
va = rst.RecordCount
If va > 0 Then
mt_vivienda = rst!ca_valor
End If
rst.Close
' comida extension de jornada
qdf.SQL = "SELECT ca_valor FROM definiciones " _& "WHERE co_definicion = 'mt_cej';"
Set rst = qdf.OpenRecordset(dbOpenSnapshot)
va = rst.RecordCount
If va > 0 Then
mt_cej = rst!ca_valor
End If
rst.Close
' cantidad de vivienda
qdf.SQL = "SELECT ca_valor FROM definiciones " _
& "WHERE co_definicion = 'ca_vivienda';"
Set rst = qdf.OpenRecordset(dbOpenSnapshot)
va =rst.RecordCount
If va > 0 Then
ca_vivienda = rst!ca_valor
End If
rst.Close
' cantidad factor prima de movilizacion normal
qdf.SQL = "SELECT ca_valor FROM definiciones " _
& "WHERE co_definicion = 'ca_factor_pm';"
Set rst = qdf.OpenRecordset(dbOpenSnapshot)
va = rst.RecordCount
If va > 0 Then
ca_factor_pm = rst!ca_valor
End Ifrst.Close
' cantidad factor prima de movilizacion exceso
qdf.SQL = "SELECT ca_valor FROM definiciones " _
& "WHERE co_definicion = 'ca_factor_pme';"
Set rst = qdf.OpenRecordset(dbOpenSnapshot)
va = rst.RecordCount
If va > 0 Then
ca_factor_pme = rst!ca_valor
End If
rst.Close
' cantidad factor prima de movilizacion nocturna ocasionalqdf.SQL = "SELECT ca_valor FROM definiciones " _
& "WHERE co_definicion = 'ca_factor_pmn';"
Set rst = qdf.OpenRecordset(dbOpenSnapshot)
va = rst.RecordCount
If va > 0 Then
ca_factor_pmn = rst!ca_valor
End If
rst.Close
' cantidad factor bono nocturno
qdf.SQL = "SELECT ca_valor FROM definiciones " _
& "WHERE co_definicion =...