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 ...130 Suivant
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
vb to vfp zakrola - 11/08/2022 09h51
problème combobox jcriv - 15/07/2022 17h24
Ou trouver les fichiers d'installation de VisualFoxPro9? sebouille94 - 09/07/2022 15h21
... .dbf n'est pas une table Aimé - 04/07/2022 18h36
Summary band is too large to fit on page medmed - 27/05/2022 19h45
Répertoire temporaire frg - 25/05/2022 11h15
Rencontres AtoutFox 2022 jcriv - 28/04/2022 21h03
VFP2C32 version 2.0.0.19 janflorijn - 08/04/2022 16h57
VFP Midi in translation from VB code janflorijn - 20/03/2022 11h54
Précédent 1 2 3 4 5 6 7 8 9 10 ...130 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 185 messages dans le forum • Liste complète des messages

Les pubs en cours :