ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Calendrier   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

ven. 09 juin 2023, 19h06
Espi_dev
Algérie Algérie

atoutfox.public.association

Re: Calendrier

SET CENTURY ON
ACTIVATE WINDOW calendar
STORE DATE() TO _DIARYDATE
=MESSAGEBOX( DTOC(_DIARYDATE),64)
RELEASE WINDOW calendar
cMessageTitre = "Saisie automatique de la Date de RECRUTEMENT de l'employé... "+DTOC(_DIARYDATE)
cMessageTexte = " Voulez-vous confirmer la saisie automatique de la date de recrutement ,;
concernant cet Agent :"+THISFORM.MATRIC1.VALUE+" NOM: "+alltr(THISFORM.NOM1.VALUE)+" Prénom : "+alltr(THISFORM.PRENOM1.VALUE)+" ? O/N "
nTypeDialogue = 4+32+256
nRponse = MESSAGEBOX(cMessageTexte, nTypeDialogue, cMessageTitre)
DO CASE
CASE nRponse = 6 .AND. THISFORM.datdebch1.VALUE=CTOD('//')

thisform.datdebch1.VALUE=_DIARYDATE
CASE nRponse = 7
return
ENDCASE

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000020111
20 095 messages dans le forum • Liste complète des messages

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3