1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| dMadate est une Date=DateSys()
dMadate..Mois=dMadate..Mois
M est un entier
M=1
HLitDernier(vente,num_vente)
SI HTrouve(vente)=Faux ALORS
SAI_Entier1=M
SAI_Entier1=+M
SAI_RefA="F"+dMadate..Année+dMadate..Mois+"/"+SAI_Entier1 // SAI_ENTIER1 determine le numero du prochain facture si pas encore facture
SINON // si d'autres factures sont déjà dans la base de données
k est un réel
k=HNumEnr(vente)
n est un entier
n=1
k=k+n
SAI_Entier2=k
SAI_RefV="A"+dMadate..Année+dMadate..Mois+"/"+SAI_Entier2 // SAI_ENTIER2 correspond au dernier enregistrement et permet de créer le prochain facture
FIN |
Partager