INIT de FEN_PM
//HLitRecherche(Patienten,Uniek_FM_ID,PatID)
FichierVersEcran(FEN_PM,Patienten)
fDétecteStockageAmovible(detectUSB)
INIT de l'onglet
HLitRecherche(PMdata,Uniek_FM_ID,PatID)
FichierVersEcran(ONG_PMdata,PMdata)
PMsn = SAI_PM_SN..ValeurAffichée
A CHAQUE MODIF de l'onglet
NumVoletActif est une chaîne
NumVoletActif = ONG_PMdata..Valeur
SI NumVoletActif = 1 ALORS
HLitRecherche(PMdata,Uniek_FM_ID,PatID)
FichierVersEcran(ONG_PMdata,PMdata)
PMsn = SAI_PM_SN..ValeurAffichée
SINON SI NumVoletActif = 2 ALORS
HLitRecherche(PMverv,Uniek_FM_ID,PatID)
FichierVersEcran(ONG_PMdata,PMverv)
SINON SI NumVoletActif = 3 ALORS
HLitRecherche(PMimp,Uniek_FM_ID,PatID)
FichierVersEcran(ONG_PMdata,PMimp)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5480&post_id=22524