GestCompte

Petite question technique, Ygeronimi:

vu la discussion au sujet du format de la date dans un autre fil de discussion, je pourrais proposer une solution plus générale pour les histoires de date.

En effet, pour mon objet StringGrid, j'ai ajouté la possibilité de formatage personnalisé de chaque cellule. Et en particulier le format de la date. Je pourrais aisément extraire cette fonctionnalité pour faire une fonction qui formate la date, quelle qu'elle soit, et format jj/mm/aaaa, même si le format paramétré dans Windows est différent. Il suffirait qu'on lui passe le résultat de date$ pour avoir la bonne représentation. Je pense que le problème de se pose qu'avec date$, car lorsque tu saisis une date manuellement, le format est forcément bon. Je pourrais même faire une fonction

Code:: dim d$ : d$ = string$(10," ")
res% = cll_call1("Date$",adr(d$)

qui retournerait dans d$ la date formatée en jj/mm/aaaa, quelque soit la représentation locale de la date.

Est-ce ça t'intéresse, ou est-ce que je tire sur des moineaux avec un canon ? Car, objectivement, la meilleure solution serait bien sûr le conseil que j'ai donné dans l'autre post: adapter le "format court" de la date au niveau des paramètres système.

Ou alors, saisir la date avec un petit calendrier fabriqué par les Panoramiciens, dont Ygeronimi.

Mais ça n'enlève pas le problème du format dans l'edit par défaut.

Voici le code: (les explications pour s'en servir sont en début de code).

Code:: ' Calendrier pour sélection d'une date par Jean Claude 22/02/2014
' avec la participation de JJN4, JL35, Jicehel et Ygeronimi

' ce calendrier est destiné à être exécuté par un autre exécutable (EXECUTE_WAIT)
' il peut, aussi, être exploité tel quel.
' les année bissextiles sont prises en compte, ainsi que les jours fériés.
' à vous de choisir la manière de sortir au label sortie (ligne 27)
' les boutons [<<] et [>>] servent à changer d'année
' les boutons [<] et [>] servent à changer de mois
' la sélection de la date se fait par un click dans le calendrier sur le jour souhaité
' En retour 4 variables: js$=Jour de la semaine / jj$ = jour sélectionné /
' mm$ = mois sélectionné / aaaa$ = année sélectionnée
' ==============================================================================
hide 0
' Déclarations
dim no%,nbj%,ct%,aaaa%,mm%,lf%,nobj%
dim Lundi_paque%,Jeudi_Ascension%,Lundi_Pentecote%,m1%,m2%,m3%,m4%
dim js$,ms$,jj$,mm$,aaaa$
dim form_calendar%,bouton_mav%,bouton_map%,bouton_aav%,bouton_aap%,alpha_moi%
dim alpha_Lu%,alpha_Ma%,alpha_Me%,alpha_Je%,alpha_Ve%,alpha_Sa%,alpha_Di%
dim jour_selection$,nb_selection%
label close,anavant,moiavant,anapres,moiapres,sortie
' démarrage
' hide 0: ' ligne à mettre en service suivant vos besoins
no%=no%+1:Calendrier(no%)
END
' =============================================== ci-dessous gestion des sorties
sortie:
no%=number_click:jj$=caption$(no%)
if no%>0 : font_color no%,0,0,0 :end_if
if js$<>"Dimanche":font_bold_off no% :end_if
Efface_Selection()
' résultat dans caption form 0
Retourne_Jour_Semaine(jj$,mm$,aaaa$)
jour_selection$ = js$+" "+jj$+"/"+mm$+"/"+aaaa$
nb_selection% = no%
caption 0,jour_selection$
font_color no%,255,0,0 :font_bold no%
no%=number_objects:' remise à jour du compteur d'objet

' ici vous pouvez enregistrer le résultat dans un fichier
message js$+" "+jj$+"/"+mm$+"/"+aaaa$ :' jour_selection$
' terminate :' On ferme tout ou pas selon le besoin
return
' ----
close:

' vide le fichier
terminate
return
' ===================================================== ci-dessous: Le programme
Sub Calendrier(num_obj%)
form_calendar%=num_obj%
form form_calendar%:width form_calendar%,206:height form_calendar%,208
  border_small form_calendar%:on_close form_calendar%,close
  top form_calendar%,((screen_y/2)-height(form_calendar%)/2)
  left form_calendar%,((screen_x/2)-width(form_calendar%)/2)
  caption form_calendar%,"Calendrier"
num_obj%=num_obj%+1:bouton_aav%=num_obj%:button num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%:caption num_obj%,"<<"
  top bouton_aav%,5:left bouton_aav%,5:hint num_obj%," Année Précédente "
num_obj%=num_obj%+1:bouton_mav%=num_obj%:button num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%:caption num_obj%,"<"
  top bouton_mav%,top(bouton_aav%):left bouton_mav%,left(bouton_aav%)+23:hint num_obj%," Mois Précédent "
num_obj%=num_obj%+1:alpha_moi%=num_obj%:alpha num_obj%:parent num_obj%,form_calendar%
  height num_obj%,20:font_bold num_obj%
  top alpha_moi%,top(bouton_aav%)+3
num_obj%=num_obj%+1:bouton_map%=num_obj%:button num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%:caption num_obj%,">":hint num_obj%," Mois Suivant "
  top bouton_map%,top(bouton_aav%):left bouton_map%,width(form_calendar%)-66
num_obj%=num_obj%+1:bouton_aap%=num_obj%:button num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%:caption num_obj%,">>":hint num_obj%," Année Suivante"
  top bouton_aap%,top(bouton_aav%):left bouton_aap%,left(bouton_map%)+23
num_obj%=num_obj%+1:alpha_Lu%=num_obj%:alpha num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%
  top num_obj%,top(bouton_aav%)+25:left num_obj%,left(bouton_aav%)+9:caption num_obj%,"Lu"
num_obj%=num_obj%+1:alpha_Ma%=num_obj%:alpha num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%
  top num_obj%,top(bouton_aav%)+25:left num_obj%,left(num_obj%-1)+25::caption num_obj%,"Ma"
num_obj%=num_obj%+1:alpha_Me%=num_obj%:alpha num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%
  top num_obj%,top(bouton_aav%)+25:left num_obj%,left(num_obj%-1)+25::caption num_obj%,"Me"
num_obj%=num_obj%+1:alpha_Je%=num_obj%:alpha num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%
  top num_obj%,top(bouton_aav%)+25:left num_obj%,left(num_obj%-1)+25::caption num_obj%,"Je"
num_obj%=num_obj%+1:alpha_Ve%=num_obj%:alpha num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%
  top num_obj%,top(bouton_aav%)+25:left num_obj%,left(num_obj%-1)+25::caption num_obj%,"Ve"
num_obj%=num_obj%+1:alpha_Sa%=num_obj%:alpha num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%
  top num_obj%,top(bouton_aav%)+25:left num_obj%,left(num_obj%-1)+25::caption num_obj%,"Sa"
num_obj%=num_obj%+1:alpha_Di%=num_obj%:alpha num_obj%:parent num_obj%,form_calendar%
  width num_obj%,20:height num_obj%,20:font_bold num_obj%
  top num_obj%,top(bouton_aav%)+25:left num_obj%,left(num_obj%-1)+25::caption num_obj%,"Di"
nobj%=number_objects
nb_selection% = 0 :Efface_Selection()
on_click bouton_aav%,anavant:on_click bouton_mav%,moiavant
on_click bouton_aap%,anapres:on_click bouton_map%,moiapres
jj$="01":mm$=mid$(date$,4,2):aaaa$=right$(date$,4):Retourne_Jour_Semaine(jj$,mm$,aaaa$)
Retourne_ms(mm$)
font_name alpha_moi%,"Arial":left alpha_moi%,left(bouton_mav%)+width(bouton_mav%)+ct%:caption alpha_moi%,ms$+" "+aaaa$
Fab_alphas_J("01",mm$,aaaa$,nbj%)
End_Sub
' -------
Sub Efface_Selection():' Jicehel
if nb_selection% > 0
  font_color nb_selection%,0,0,0
  if left$(jour_selection$,3)<>"Dim" then font_bold_off nb_selection%
  nb_selection% = 0
end_if
jour_selection$=""
Caption 0,jour_selection$
End_Sub
' -------
moiapres:
Efface_Selection()
mm%=val(mm$)
if mm%=12
   mm%=1:aaaa%=val(aaaa$):aaaa%=aaaa%+1:aaaa$=str$(aaaa%)
else
   mm%=mm%+1
end_if
if mm%<10
   mm$="0"+str$(mm%)
else
   mm$=str$(mm%)
end_if
Reinit_Calendrier()
return
' -------
moiavant:
Efface_Selection()
mm%=val(mm$)
if mm%=1
   mm%=12:aaaa%=val(aaaa$):aaaa%=aaaa%-1:aaaa$=str$(aaaa%)
else
   mm%=mm%-1
end_if
if mm%<10
   mm$="0"+str$(mm%)
else
   mm$=str$(mm%)
end_if
Reinit_Calendrier()
return
' ------
anapres:
Efface_Selection()
aaaa%=val(aaaa$):aaaa%=aaaa%+1:aaaa$=str$(aaaa%)
Reinit_Calendrier()
return
' ------
anavant:
Efface_Selection()
aaaa%=val(aaaa$):aaaa%=aaaa%-1:aaaa$=str$(aaaa%)
Reinit_Calendrier()
return
' --------------------
Sub Reinit_Calendrier()
Efface_Selection()
Retourne_Jour_Semaine("01",mm$,aaaa$)
Retourne_ms(mm$)
left alpha_moi%,left(bouton_mav%)+width(bouton_mav%)+ct%:caption alpha_moi%,ms$+" "+aaaa$
Fab_alphas_J("01",mm$,aaaa$,nbj%)
End_sub
' ------------
Sub Fab_alphas_J(jour$,moi$,annee$,nb_jour%)
  dim_local Laaaa%,bissextile%,i%,num_obj%,nbo%,tp%
  nbo%=number_objects
  if nbo%>nobj%
   for i%=nobj%+1 to nbo%
   delete i%
   next i%
  end_if
  Laaaa%=val(annee$)
  paques(Laaaa%):' Retourne Lundi_paque%
  IF (FRAC(Laaaa%/4)=0 AND FRAC(Laaaa%/100)>0) OR FRAC(Laaaa%/400)=0 THEN bissextile%=1:' JL35
  if moi$="02" and bissextile%=1 then nb_jour%=nb_jour%+1
  num_obj%=13:tp%=50
  retourne_lf()
  for i%=1 to nb_jour%
   num_obj%=num_obj%+1:alpha num_obj%:parent num_obj%,form_calendar%
   cursor_point num_obj%
   width num_obj%,20:height num_obj%,20:on_click num_obj%,sortie
   top num_obj%,tp%:left num_obj%,lf%:lf%=lf%+25
   if i%<10
   caption num_obj%,"0"+str$(i%)
   else
   caption num_obj%,str$(i%)
   end_if
' Pâques
  if Lundi_paque%=1 and moi$="03" and m1%=4 and i%=31
   color num_obj%,50,255,150:font_bold num_obj%
  else
   if i%=Lundi_paque% and moi$="03" and m1%=3
   color num_obj%,50,255,150:font_bold num_obj%
   if num_obj%>1 and i%<>31 then color num_obj%-1,50,255,150:font_bold num_obj%-1
   end_if
  end_if
   if i%=Lundi_paque% and moi$="04" and m1%=4
   color num_obj%,50,255,150:font_bold num_obj%
   if i%>1 then color num_obj%-1,50,255,150:font_bold num_obj%-1
   End_if
' Ascension
   if i%=Jeudi_Ascension% and moi$="05" and m3%=5
   color num_obj%,50,255,150:font_bold num_obj%
   end_if
   if i%=Jeudi_Ascension% and moi$="06" and m3%=6
   color num_obj%,50,255,150:font_bold num_obj%
   end_if
' Pentecôte
   if i%=Lundi_Pentecote% and moi$="05" and m2%=5
   color num_obj%,50,255,150:font_bold num_obj%
   end_if
   if i%=Lundi_Pentecote% and moi$="06" and m2%=6
   color num_obj%,50,255,150:font_bold num_obj%
   end_if
' autres jours feriés
   if i%=1 and moi$="01" then color num_obj%,50,255,150:font_bold num_obj%
   if i%=14 and moi$="02" then color num_obj%,255,220,220:' font_bold num_obj%
   if i%=1 and moi$="05" and Laaaa%>1889 then color num_obj%,50,255,150:font_bold num_obj%
   if i%=8 and moi$="05" and Laaaa%>1952 and Laaaa%<1959 then color num_obj%,50,255,150:font_bold num_obj%
   if i%=8 and moi$="05" and Laaaa%>1981 then color num_obj%,50,255,150:font_bold num_obj%
   if i%=14 and moi$="07" and Laaaa%>1790 then color num_obj%,50,255,150:font_bold num_obj%
   if i%=15 and moi$="08" then color num_obj%,50,255,150:font_bold num_obj%
   if i%=1 and moi$="11" then color num_obj%,50,255,150:font_bold num_obj%
   if i%=11 and moi$="11" and Laaaa%>1922 then color num_obj%,50,255,150:font_bold num_obj%
   if i%=25 and moi$="12" then color num_obj%,50,255,150:font_bold num_obj%
   if lf%>=165+25 then font_bold num_obj%:tp%=tp%+20:lf%=15
  next i%
End_Sub
' ----------
Sub paques(aaaaP%)
' Calcul du lundi de Pâques - Algorithme de Oudin - code JJN4
dim_local g,w,d,e,h,k,u,q,v,z,f,n,r,j1,j2,j3,x,y
g=aaaaP%-int(aaaaP%/19)*19
w=int(aaaaP%/100)
d=int(w/4)
e=int((8*w+13)/25)
h=19*g+w-d-e+15-int((19*g+w-d-e+15)/30)*30
k=int(h/28)
u=int(29/(h+1))
q=int((21-g)/11)
v=(k*u*q-1)*k+h
z=int(aaaaP%/4)+aaaaP%
n=z+v+2+d-w
f=n-int(n/7)*7
r=28+v-f
if h=29 and r=50 then r=57
if h=28 and g>10 and r=49 then r=56
if r>30
j1=r-30 : m1%=4 : Lundi_paque%=j1
else
j1=r+1 : m1%=3 : Lundi_paque%=j1
end_if
' Calcul du jeudi de l'Ascension
y=r+39
if y>92
j3=y-92 : m3%=6 : Jeudi_Ascension%=j3
else
j3=y-61 : m3%=5 : Jeudi_Ascension%=j3
end_if
' Calcul du lundi de Pentecôte
x=r+50
if x>92
j2=x-92 : m2%=6 : Lundi_Pentecote%=j2
else
j2=x-61 : m2%=5 : Lundi_Pentecote%=j2
end_if
End_sub
' ---------------
Sub retourne_lf()
if js$="Lundi" then lf%=15
if js$="Mardi" then lf%=40
if js$="Mercredi" then lf%=65
if js$="Jeudi" then lf%=90
if js$="Vendredi" then lf%=115
if js$="Samedi" then lf%=140
if js$="Dimanche" then lf%=165
End_sub
' ------------------
Sub Retourne_ms(mm$)
if mm$="01" then ct%=13:nbj%=31:ms$="Janvier"
if mm$="02" then ct%=13:nbj%=28:ms$="Février"
if mm$="03" then ct%=18:nbj%=31:ms$="Mars"
if mm$="04" then ct%=19:nbj%=30:ms$="Avril"
if mm$="05" then ct%=20:nbj%=31:ms$="Mai"
if mm$="06" then ct%=19:nbj%=30:ms$="Juin"
if mm$="07" then ct%=15:nbj%=31:ms$="Juillet"
if mm$="08" then ct%=19:nbj%=31:ms$="Août"
if mm$="09" then ct%=1:nbj%=30:ms$="Septembre"
if mm$="10" then ct%=15:nbj%=31:ms$="Octobre"
if mm$="11" then ct%=2:nbj%=30:ms$="Novembre"
if mm$="12" then ct%=2:nbj%=31:ms$="Décembre"
End_Sub
' ---------------------------------------
Sub Retourne_Jour_Semaine(jour$,moi$,an$)
' d'après l'algorytme de Mike Keith
dim_local Laaaa%,Lmm%,jj%,az,ma,rm,jjs,rp
jj%=val(jour$):Lmm%=val(moi$):Laaaa%=val(an$)
if Lmm%>=3
   az=Laaaa%:ma=2
else
   az=Laaaa%-1:ma=0
end_if
rp=((int(23*Lmm%))/9)+jj%+4+Laaaa%+(int(az/4))-(int(az/100))+(int(az/400))-ma
rm=mod(rp,7):jjs=int(rm)
if jjs=0 then js$="Dimanche"
if jjs=1 then js$="Lundi"
if jjs=2 then js$="Mardi"
if jjs=3 then js$="Mercredi"
if jjs=4 then js$="Jeudi"
if jjs=5 then js$="Vendredi"
if jjs=6 then js$="Samedi"
End_Sub

A+

PS: c'était ici => https://panoramic.1fr1.net/t3502-un-calendrier-de-plus

Le problème de la date vient de la variable système date$
et du format choisit pour windows.

Dans le cas présent, pour cette appli, vu que le défi est d' être en tout Panoramic,
La solution est de remplacer la date$ par (c' est un exemple) day$ qui serait le résultat d' une
fonction travaillant sur le format de date$.

@ Klaus,

Pauvres moineaux, avec un canon en plus...
Laughing

Toutes les fonctions sur les formats de date, heure, mois, jour, année, etc sont bonnes à prendre
pour les applications fonctionnant avec déjà avec KGF.dll.
Celle ci en fera parti dans une autre version, c' est un certitude.
Donc, je suis preneur.

@ tous,

J' ai mis à jour le zip.
Gestion de N-1 modifié
Gestion des archives

J' ai mis en place un message pendant le mois de décembre pour avertir l' utilisateur
de l' archivage automatique.

@ Jean Claude,

Je ne me rappelais même plus de ce code et encore moins y avoir participé.
Laughing

Ceci dit, il est intéressant même si à lui tout seul il est presque plus long que celui de l' appli.
Wink

Souvenirs, souvenirs....

C'est celui que j'utilise dans mon dernier logiciel de compte "maison", en dehors de celui que j'ai acheté.

Ma méthode:
Coder l'enregistrement des variables js$/jj$ /mm$/aaaa$ dans un fichier. Transformer calendar.bas en exe.
Dans ton programme mettre un petit bouton (ou une icone) à coté de l'EDIT de saisie de le date pour appeler calendar.exe par EXECUTE_WAIT (ce qui bloque Gestcompte tant que l'utilisateur n'a pas saisie de date).
Récupérer et transformer les 3 éléments en format jj/mm/aaaa et afficher le résultat dans l'EDIT.
Et le tour est joué.

A+

Mise à jour du zip.

Possibilité de changer la date d' une opération enregistrée (double clic sur la cellule).
Sauf pour une année archivée. Wink

Mise à jour du zip !

Possibilité de changer :
- la date
- l' imputation
- le libellé
- le mode paiement
d' une opération enregistrée ( double clic dans la cellule )

Pour cacher le ou les objets affectés à la modif d' une opération, cliquez sur une cellule de la ligne vide.

Même si les objets pour modifier le débit ou le crédit d' une opération sont en place, ils sont inactifs.
Pour l' instant... Laughing

Correction d' un bug dans la fenêtre d' ajout d' une opération.

Le zip est à jour.

Une petite correction ou deux.

On peut modifier les montants d' une opération enregistrée, à condition qu' elle ne soit pas pointée.
Le zip est à jour.
Laughing

Possibilité de changer :
- la date
- l' imputation
- le libellé
- le mode paiement
C'est OK. (pour la date, ça marche mais l'opération ne change pas d'onglet)

Pour le montant, l'enregistrement ne se fait pas et les soldes ne sont pas à jour scratch

A+

PS:

Citation :: Même si les objets pour modifier le débit ou le crédit d' une opération sont en place, ils sont inactifs.
Pour l' instant...

Je ne vois rien de nouveau à ce sujet Question

Je vais remettre le dernier zip et le nommer GCF2c.zip

Car sur la dernière mouture, tout ou presque fonctionne normalement chez moi.
J' ai un petit oubli qui crée un bug sur les soldes mais je vais réparé cela dès ce soir.

Cette fois c'est bon !

A+

Non Jean Claude, c' était pas bon !
Recharges le zip, je viens de le mettre à jour.

Correction d' un bug d' enregistrement
Correction d' un bug dans le calcul des soldes après une modif de montant.
Embarassed

Pour la date qui change d' onglet, il va me falloir un peu de temps et quelques aspro...
drunken

Il est entrain de me rendre barge ce programme. geek

car il faut

https://www.youtube.com/watch?v=GbjvsqLZaNA
Very Happy

En attendant une solution acceptable,
j' ai bloqué le changement de date d' une opération enregistrée dans son mois d' enregistrement.
J' ai aussi ajouté quelque sécurité de format.

Le zip est à jour.
Wink

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Citation :: Il est entrain de me rendre barge ce programme

Il est en train de te faire perdre ton entrain.

Oh! le vilain JL35,
Si tu décryptes mes interventions en ce moment, tu dois te régaler. Je suis dans une mauvaise période, j'ai environ 7 à 8 crises d'algies vasculaires de la face qui m'obligent parfois à écrire rapidos mes messages, pour que je puisse aller vite fait me piquer.
Alors, je demande un peu d'indulgence..., mais pour Ygeronimi, tu peux y aller, il n'est pas malade. geek

@Ygeronimi,
Je vais tester plus tard: comme tu avances vite, ça me fera moins de téléchargement à faire. Et comme je teste aussi les avancées de la "Klaus2D", il faut que je me préserve.

A+

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Comme tu vois, je ne m'en suis pas privé ! cela dit, ça doit être super chiant ton truc, alors, blague à part, bon courage mon ami.
(je n'avais rien remarqué dans tes écrits, tu ne fais pas plus de fautes que d'habitude... OK, je sors Very Happy

)

JL35 a écrit:: (je n'avais rien remarqué dans tes écrits, tu ne fais pas plus de fautes que d'habitude... OK, je sors )

Autrement dit : d’après toi, il ne s’améliore pas ! tongue

@ Jean_claude
Que la force soit avec toi !

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Mais non papydall, "il ne s'améliore pas", loin de moi cette pensée désobligeante ! Je pensais plutôt "il ne se dégrade pas"... c'est bien plus positif, hein Jean Claude ? bon, je ressors.
Ygeronimi, reprends la main, sinon on ne sait pas où ça va nous mener ! moi je retourne cultiver mon jardin.

Pour clore la parenthèse santé et pour ne pas polluer plus le poste, je ne suis pas inquiet car je sais par expérience que ça ne va pas durer(Dieu merci).
A+

Bon, je suis passé à GCF2d.
Le zip est à jour sur mon webdav.

On peut changer la date d' une opération enregistrée ( çà c' était déjà le cas Wink

)
Maintenant l' opération suit sa nouvelle date et montre son mois de destination.

Une chose qui va surement "bugguer" donc il est inutile de le tester pour l' instant Wink

c' est l' enregistrement d' une piece-jointe.
Le fichier joint est renommé avec le numéro d' enregistrement.
Sauf que, pour l' instant, je n' ai pas revu la création de ce numéro qui est :
Année+Mois+NumLigne
La manip de changer une opération de mois, va provoquer deux enregistrement portant le même
numéro et là si on associe un fichier à chacun des deux...
affraid

Bref, donc, ne pas tester cette fonction tout de suite.

Oups... Tu dis:

Citation :: Sauf que, pour l' instant, je n' ai pas revu la création de ce numéro qui est :
Année+Mois+NumLigne

C'est risqué, ça ! Qu'est-ce que tu fais si tu changes la date, dans me même mois ? Le numéro de ligne changera aussi, non ?

Je te suggère de gérer la notion de "numéro de pièce" sous forme d'un entier qui serait incrémenté à chaque nouvelle pièce et JAMAIS décrémenté. Donc, chaque élément aurait un identifiant unique, et tu pourrais utiliser cette valeur pour construire le nom du fichier. Et le dernier numéro de pièce utilisé (initialement 0) serait mémorisé dans un fichier de configuration et réécrit dans ce fichier après chaque création de pièce. Et si une pièce n'est pas validée mais supprimée, ce ne serait pas grave - aucune importance s'il y a des trous dans le numérotation.

J' ai trouvé une solution pour le numéro, au lieu de (année+mois+numligne) ce sera
(mois+jour+heure+minutes+secondes) si il y en a un qui arrive à enregistrer deux opérations
dans la seconde, il est bon pour le livre des records.
Laughing

Cela devrait donner des enregistrements uniques et une indication sur la date d' enregistrement.

bref, pour éviter de tout recharger, remplacez la ligne 2297 par ceci :

Code:: grid_write Gril%(month%),NbreRow%(Month%),1,mid$(day$,4,2)+mid$(day$,1,2)+mid$(Time$,1,2)+mid$(Time$,4,2)+right$(time$,2)

Le zip est à jour.

J' ai mis sur mon webdav la version GCF2e.

Ajout du début de l' interface pour inclure des échéanciers.
Listes > Echéanciers > bouton +

Laughing

j'ai téléchargé.

La modif d'une date fonctionne bien.

inclure des échéanciers:
Si je peux me permettre, d'ailleurs je me le permet.... Very Happy

Pour moi il existe 3 types d'échéances:
1) les échéances classiques: (genre crédit) avec une date de début, une date de fin et le jour du prélèvement et un montant fixe.
2) les échéances permanentes: Exemple mon contrat avec la banque qui est prélevé tous les mois, sans date de fin prévu, seulement le jour du prélèvement.
3) Les échéances de types mensualisation: (genre Impôts) dans ce cas il y a une date de début et une date de fin(en principe sur 10 mois du 01/01 au 30/10). La différence avec un crédit classique c'est qu'arrivé à la fin, il faut pouvoir prolonger d'un mois ou deux et pouvoir en changer le montant.

Concernant les échéances permanentes, il faut pouvoir en modifier le montant en cours de route, comme pour les mensualisations. Normalement pour un crédit classique le montant est fixe.

Les échéances de types mensualisation doivent pouvoir être renouvelées pour l'année suivante sans être obligé de tout ressaisir.

Je te dit tout ça pour t'éviter des surprises, mais peut-être as-tu un plan complètement différent.

A+