1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
Charge_params_facture()
PROCEDURE Charge_params_facture()
ValNumfacture est un entier
ValInfacture est une chaîne
HBloqueFichier(Paramètres,hBlocageLectureEcriture)
//Recherche du "paramétre.idparametre" sur clé composé que l'on connnait la valeur de l'Organisation
SI HLitRecherchePremier(Paramètres,IDOrganisationPARAM_Cles,[gnChoixorganisation,"DATEFAC"],hIdentique) ALORS
SI Paramètres.PARAM_Num=0 ALORS
//Recherche du "paramétre.idparametre" sur clé composé que l'on connnait la valeur de l'Organisation à la connexion
SI HLitRecherchePremier(Paramètres,IDOrganisationPARAM_Cles,[gnChoixorganisation,"INDFA"],hIdentique) ALORS
ValNumfacture = Paramètres.PARAM_Num
ValInfacture= Paramètres.PARAM_Alphanumerique
RENVOYER ValInfacture+ValNumfacture +"-"+DateDuJour()
FIN
SINON
//Recherche du "paramétre.idparametre" sur clé composé que l'on connnait la valeur de l'Organisation à la connexion
SI HLitRecherchePremier(Paramètres,IDOrganisationPARAM_Cles,[gnChoixorganisation,"INDFA"],hIdentique) ALORS
ValNumfacture = Paramètres.PARAM_Num
ValInfacture= Paramètres.PARAM_Alphanumerique
RENVOYER ValInfacture+ValNumfacture
FIN
FIN
SINON
//Recherche du "paramétre.idparametre" sur clé composé que l'on connnait la valeur de l'Organisation à la connexion
SI HLitRecherchePremier(Paramètres,IDOrganisationPARAM_Cles,[gnChoixorganisation,"INDFA"],hIdentique) ALORS
ValNumfacture = Paramètres.PARAM_Num
ValInfacture= Paramètres.PARAM_Alphanumerique
RENVOYER ValInfacture+ValNumfacture +"-"+DateDuJour()
SINON
Erreur("Paramètre facturaction non trouvé !")
RENVOYER Faux
FIN
FIN
HDébloqueFichier(Paramètres)
et ensuite je modifie le N°
//Incrémenter le paramètre
Paramètres.PARAM_Num++
SI HModifie(Paramètres)=Vrai ALORS
HDébloqueFichier(Paramètres)
SINON
Erreur("Indice INDFA ,non trouvé sur le serveur !")
FIN |
Partager