Le formulaire page des Rendez-vous

Au fait, vous n'avez pas oublié de déclarer la table [RDV] dans OnStartUp?

  `________________________________________________________________________________
  `traitements spécifique
rcd_DataName:=prp_GetDBPrp ("DefaultDataName")
Au cas ou
: (rcd_DataName="!cos")
   cos_LoadCommandList
   dsg_LoadPrefix
: (rcd_DataName="!ctc")  `Contact
   rcd_StructureDefinition (->[Contact])
   rcd_StructureDefinition (->[RDV])

Fin de cas

Créez le formulaire de saisie de la table [RDV]

Ouvrez le formulaire [Data]DataEntry, passez sur la page 0, sélectionnez tout et copiez. Créez un formulaire dans la table [RDV] et nommez le DataEntry. Passez sur la page 0, collez.

Ouvrez les propriétés du formulaire. Dans l'onglet Dimensionnement, passez les marges à 0. Dans l'onglet Evenements, cochez les évenements Sur activation et Sur case de fermeture.

Ouvrez la méthode formulaire et collez dedans la méthode frm_OnEntryFormEvent .

Voici le formulaire EntryData tel que vous pouvez le créer. Des boutons ont été retirés, en particulier le bouton d'ajout.

Ouvrez l'éditeur d'interface utilisateur

Créez une nouvelle définition d'interface utilisateur et nommez-la Def_RendezVous. Sur l'onglet liste, renseignez les champs suivant:
Type de donnée : !ctc
Table de type Data : RDV
Formulaire liste : malp_ListH
Barre de menu : Default

Nous n'allons pas saisir plus d'information sur cette page, car cette définition ne va nous servir que pour afficher le rendez-vous en page à partir du contact courant. Pour la liste des rendez-vous, nous utiliserons une autre définition.

Passez sur l'onglet Saisie pour saisir les champs suivants :
Formulaire Page : EntryData
Barre de menus : Default
Sur chargement : RDV_SaisieSurChargement
Sur fermeture : uid_DataEntryOnCloseBox

Pour le champ Sur chargement il faut créer la méthode RDV_SaisieSurChargement

RDV_SaisieSurChargement

rcd_GetIndex (rcd_GetCurrentDataTable)
rcd_IndexToPrp (OnLoad ;"IndexPrp")

Si (rcd_IsVirgen (rcd_GetCurrentDataTable ))
   rcd_LinkData (->[RDV];->[Contact])
   [RDV]Identite:=[Contact]Civilite+" "+[Contact]Prenom+" "+[Contact]Nom
Fin de si


Cette méthode est simple et s'applique à la consultation du rendez-vous ou à sa création à partir de la fiche du contact. Dans le cas d'un ajout que nous indique la méthode rcd_IsVirgen , un lien entre le rendez-vous et le contact est réalisé avec la méthode rcd_LinkData .


Normalement, vous devez pouvoir créer un contact, l'enregistrer et lui associer des rendez-vous.

Maintenant, il faut pouvoir consulter sa liste des rendez-vous. Pour cela, nous allons créer une nouvelle définition de liste et de champs, modifier le menu Fichier pour afficher la liste des rendez-vous et créer une nouvelle définition d'interface utilisateur avec les méthodes nécessaires. Cela va avoir un petit air de déjà vu... Suite >>

Retour | Haut de page