Désolé je suis pas très bon, évidement c'était un exemple !
Mon application gère des clients qui réservent un séjour dans une des chambres d’hôtes. Le fichier client sert à les enregistrer et éventuellement à lancer une réservation (fichier ou j'ajoute les dates arrivées et départ. Je calcule les nuitées que je multiplie au tarif de la chambre.
j'édite un planning des réservations.
Ensuite possibilités d'imprimer la facture qui est sauvegardée par un duplicata.
J'ai un fichier FACTURES alimenté par un fichier RESERVATIONS
J'ai une FEN_FACTURES avec une table (générée par le RAD)
j'ai simplement crée un ETAT_FACTURES sur la table FEN_FACTURES.TABLE_FACTURES
j'en profite pour faire une sauvegarde dans un répertoire du disque C:\
J'imprime avec le code:
// Si le répertoire MesRépertoires n'existe pas,
// la fonction crée le répertoire MesRépertoires (C:/Faturas)
MesFactures est une chaîne = "C:\Faturas"
SI fRepExiste(MesFactures) = Faux ALORS
MesFactures = fRepCrée("C:\Faturas")
FIN
// Paramétrage du duplicata de la facture
iParamètreDuplicata(iDplImpression, "C:\Faturas", SAI_Nom + "_%d" ,"JJJJ JJ MMMM AAAA")
//Impression
HFiltre(FACTURE,IDFACTURE,FACTURE.IDFACTURE,FACTURE.IDFACTURE)
iAperçu()
iImprimeEtat(ETAT_FACTURE)
HDésactiveFiltre(FACTURE)
J'ai testé et ça à l'air de bien fonctionner
Chargement...