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

Forum AtoutFox : Re: Calendrier

Sujet
Précédent 1 2 3 4 5 6 7 8 9 10 ...128 Suivant
Signe inf ou egale shjl - 06/03/2023 18h27
renommer un répertoire Adel - 22/02/2023 22h21
problème index emeraude - 10/02/2023 17h42
Hors sujet: ma chaine Youtube avec du VFP Franck - 10/02/2023 12h30
Comment récupérer Foxpro 2.6 ? JMN - 17/01/2023 21h39
Imprimante sauvegardée dans un état ignorée suite MAJ windows 11 22H2 frg - 13/01/2023 09h30
plus de fenetre de commande christian.duroux - 10/01/2023 17h09
Python sous VS Code (presque un hors-sujet). Marc Thivolle - 06/01/2023 09h57
Chatgpt et foxpro Olivier Hamou - 02/01/2023 23h48
Calendrier Aimé - 28/12/2022 10h00
Changer la couleur d'un trait fait avec .Line Franck - 25/12/2022 12h15
Objet wzimport exigé pendant la reconstruction ou la compilation d'un projet VFP Damonzon - 13/12/2022 12h36
propriétés desktop reste visible après modif d'une Form JM ANDRÉ - 16/10/2022 14h54
Codification des articles BENMAHAMMED - 15/10/2022 21h03
Connection à une BD sqlite alahem1 - 09/10/2022 16h15
importer um fichier XML Luis - 28/09/2022 11h36
les boutons disparaissent avec le survol de la souris Alain Blanchard - 14/09/2022 12h06
Dysfonctionnement ? donovan - 10/09/2022 14h09
REPORT avec plusieurs pages shjl - 02/09/2022 08h15
Attention avec la fonction MAX(eExpression1, eExpression2 [, eExpression3 ...]) avec des strings... Francis Faure - 30/08/2022 20h24
Précédent 1 2 3 4 5 6 7 8 9 10 ...128 Suivant

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
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 058 messages dans le forum • Liste complète des messages

Les pubs en cours :