AGENDA - RAPPEL

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 

}