- dialog rappel {
- title "Gestion des Rappel"
- size -1 -1 180 110
- option dbu
- box "( Gestion des Rappel )" 1, 5 4 170 100
- list 2,15 16 150 10
- list 3,15 24 150 10
- list 4,15 32 150 10
- list 5,15 40 150 10
- list 6,15 48 150 10
- list 7,15 56 150 10
- list 8,15 64 150 10
- list 9,15 72 150 10
- list 10,15 80 150 10
- button "Modifier" 11,68 92 50 10
- }
-
- on *:dialog:rappel:init:*:{
-
- did -a rappel 2 %rappel1
- did -a rappel 3 %rappel2
- did -a rappel 4 %rappel3
- did -a rappel 5 %rappel4
- did -a rappel 6 %rappel5
- did -a rappel 7 %rappel6
- did -a rappel 8 %rappel7
- did -a rappel 9 %rappel8
- did -a rappel 10 %rappel9
-
- }
-
- on *:dialog:rappel:sclick:11:{
-
- dialog -m modifrappel modifrappel
-
- }
-
-
- dialog modifrappel {
- title "Modification des rappel"
- size -1 -1 245 46
- option dbu
- text "Rappel N°" 1, 5 5 40 10
- combo 2, 35 3 18 10,drop
- combo 3, 60 3 50 10,drop
- text "Le :" 4, 115 5 40 10
- edit "1" 5,130 3 10 10
- combo 6,145 3 40 10,drop
- edit "" 7,192 3 40 10
- text "Info :" 8, 5 23 20 10
- edit "" 9,25 23 120 10
- button "Ok" 10,150 23 50 10
- }
-
- on *:dialog:modifrappel:init:*:{
-
- did -a modifrappel 2 1
- did -a modifrappel 2 2
- did -a modifrappel 2 3
- did -a modifrappel 2 4
- did -a modifrappel 2 5
- did -a modifrappel 2 6
- did -a modifrappel 2 7
- did -a modifrappel 2 8
- did -a modifrappel 2 9
-
- did -a modifrappel 3 Anniversaire
- did -a modifrappel 3 Reunion
- did -a modifrappel 3 Rendez-vous
- did -a modifrappel 3 Autres
-
- did -a modifrappel 6 1
- did -a modifrappel 6 2
- did -a modifrappel 6 3
- did -a modifrappel 6 4
- did -a modifrappel 6 5
- did -a modifrappel 6 6
- did -a modifrappel 6 7
- did -a modifrappel 6 8
- did -a modifrappel 6 9
- did -a modifrappel 6 10
- did -a modifrappel 6 11
- did -a modifrappel 6 12
-
- did -a modifrappel 7 2007
- }
-
- on *:dialog:modifrappel:sclick:10:{
-
- set %rappel $+ $did(2) $did(2) $+ . $did(3) le $did(5) $+ / $+ $did(6) $+ / $+ $did(7) $did(9)
- set %date $+ $did(2) $did(5) $+ : $+ $did(6) $+ : $+ $did(7)
- dialog -x modifrappel modifrappel
-
- }
-
-
- on *:start:{
-
- if ($asctime(d:m:yyyy) == %date1) dialog -m alertrappel alertrappel
- if ($asctime(d:m:yyyy) == %date1) dialog -m alertrappel alertrappel
- if ($asctime(d:m:yyyy) == %date2) dialog -m alertrappel alertrappel
- if ($asctime(d:m:yyyy) == %date3) dialog -m alertrappel alertrappel
- if ($asctime(d:m:yyyy) == %date4) dialog -m alertrappel alertrappel
- if ($asctime(d:m:yyyy) == %date5) dialog -m alertrappel alertrappel
- if ($asctime(d:m:yyyy) == %date6) dialog -m alertrappel alertrappel
- if ($asctime(d:m:yyyy) == %date7) dialog -m alertrappel alertrappel
- if ($asctime(d:m:yyyy) == %date8) dialog -m alertrappel alertrappel
- if ($asctime(d:m:yyyy) == %date9) dialog -m alertrappel alertrappel
-
-
- }
-
-
- dialog alertrappel {
- title "Alert - Rappel"
- size -1 -1 170 20
- option dbu
- text "" 2,18 5 150 10
- }
-
- on *:dialog:alertrappel:init:*:{
- beep 1
- if ($asctime(d:m:yyyy) == %date1) did -a alertrappel 2 Rappel : %rappel1
- if ($asctime(d:m:yyyy) == %date2) did -a alertrappel 2 Rappel : %rappel2
- if ($asctime(d:m:yyyy) == %date3) did -a alertrappel 2 Rappel : %rappel3
- if ($asctime(d:m:yyyy) == %date4) did -a alertrappel 2 Rappel : %rappel4
- if ($asctime(d:m:yyyy) == %date5) did -a alertrappel 2 Rappel : %rappel5
- if ($asctime(d:m:yyyy) == %date6) did -a alertrappel 2 Rappel : %rappel6
- if ($asctime(d:m:yyyy) == %date7) did -a alertrappel 2 Rappel : %rappel7
- if ($asctime(d:m:yyyy) == %date8) did -a alertrappel 2 Rappel : %rappel8
- if ($asctime(d:m:yyyy) == %date9) did -a alertrappel 2 Rappel : %rappel9
-
- }
dialog rappel {
title "Gestion des Rappel"
size -1 -1 180 110
option dbu
box "( Gestion des Rappel )" 1, 5 4 170 100
list 2,15 16 150 10
list 3,15 24 150 10
list 4,15 32 150 10
list 5,15 40 150 10
list 6,15 48 150 10
list 7,15 56 150 10
list 8,15 64 150 10
list 9,15 72 150 10
list 10,15 80 150 10
button "Modifier" 11,68 92 50 10
}
on *:dialog:rappel:init:*:{
did -a rappel 2 %rappel1
did -a rappel 3 %rappel2
did -a rappel 4 %rappel3
did -a rappel 5 %rappel4
did -a rappel 6 %rappel5
did -a rappel 7 %rappel6
did -a rappel 8 %rappel7
did -a rappel 9 %rappel8
did -a rappel 10 %rappel9
}
on *:dialog:rappel:sclick:11:{
dialog -m modifrappel modifrappel
}
dialog modifrappel {
title "Modification des rappel"
size -1 -1 245 46
option dbu
text "Rappel N°" 1, 5 5 40 10
combo 2, 35 3 18 10,drop
combo 3, 60 3 50 10,drop
text "Le :" 4, 115 5 40 10
edit "1" 5,130 3 10 10
combo 6,145 3 40 10,drop
edit "" 7,192 3 40 10
text "Info :" 8, 5 23 20 10
edit "" 9,25 23 120 10
button "Ok" 10,150 23 50 10
}
on *:dialog:modifrappel:init:*:{
did -a modifrappel 2 1
did -a modifrappel 2 2
did -a modifrappel 2 3
did -a modifrappel 2 4
did -a modifrappel 2 5
did -a modifrappel 2 6
did -a modifrappel 2 7
did -a modifrappel 2 8
did -a modifrappel 2 9
did -a modifrappel 3 Anniversaire
did -a modifrappel 3 Reunion
did -a modifrappel 3 Rendez-vous
did -a modifrappel 3 Autres
did -a modifrappel 6 1
did -a modifrappel 6 2
did -a modifrappel 6 3
did -a modifrappel 6 4
did -a modifrappel 6 5
did -a modifrappel 6 6
did -a modifrappel 6 7
did -a modifrappel 6 8
did -a modifrappel 6 9
did -a modifrappel 6 10
did -a modifrappel 6 11
did -a modifrappel 6 12
did -a modifrappel 7 2007
}
on *:dialog:modifrappel:sclick:10:{
set %rappel $+ $did(2) $did(2) $+ . $did(3) le $did(5) $+ / $+ $did(6) $+ / $+ $did(7) $did(9)
set %date $+ $did(2) $did(5) $+ : $+ $did(6) $+ : $+ $did(7)
dialog -x modifrappel modifrappel
}
on *:start:{
if ($asctime(d:m:yyyy) == %date1) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date1) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date2) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date3) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date4) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date5) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date6) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date7) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date8) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date9) dialog -m alertrappel alertrappel
}
dialog alertrappel {
title "Alert - Rappel"
size -1 -1 170 20
option dbu
text "" 2,18 5 150 10
}
on *:dialog:alertrappel:init:*:{
beep 1
if ($asctime(d:m:yyyy) == %date1) did -a alertrappel 2 Rappel : %rappel1
if ($asctime(d:m:yyyy) == %date2) did -a alertrappel 2 Rappel : %rappel2
if ($asctime(d:m:yyyy) == %date3) did -a alertrappel 2 Rappel : %rappel3
if ($asctime(d:m:yyyy) == %date4) did -a alertrappel 2 Rappel : %rappel4
if ($asctime(d:m:yyyy) == %date5) did -a alertrappel 2 Rappel : %rappel5
if ($asctime(d:m:yyyy) == %date6) did -a alertrappel 2 Rappel : %rappel6
if ($asctime(d:m:yyyy) == %date7) did -a alertrappel 2 Rappel : %rappel7
if ($asctime(d:m:yyyy) == %date8) did -a alertrappel 2 Rappel : %rappel8
if ($asctime(d:m:yyyy) == %date9) did -a alertrappel 2 Rappel : %rappel9
}