ficheCoutExterieur n'est pas ouverte au moment de l'appel de la procédure.
Voici le code du bug/erreur :
Erreur à la ligne 4 du traitement Procédure globale CalculCoutsExterieurs.
Le champ ficheCoutExterieur.tableauCoutExterieur est inconnu.
**********************************************
Informations techniques
Projet : Parc'Auto
Dump de l'erreur du module
<9.01Be>.
- Appel WL :
Traitement de , ligne <4>, thread <0>
- Niveau : erreur fatale (EL_FATAL)
- Code erreur : 1017
- Code erreur WD55 : 0
- Pas de code d'erreur système
- Pas de message d'erreur système
- Que s'est-il passé ?
Le champ ficheCoutExterieur.tableauCoutExterieur est inconnu.
- Pas d'info de debug
- Infos attachées :
EIT_DATEHEURE : 18/02/2005 15:56:34
EIT_PILEWL :
Procédure globale CalculCoutsExterieurs (Procedures globales de Parc'Auto.CalculCoutsExterieurs), ligne 4
Sortie d'une ligne de tableauUtiliser (gestionVehicule.tableauUtiliser), ligne 5
Clic sur valider (rechercheVehiculePourGestion.valider), ligne 1
Clic sur gestionVehicules (gestionAdministrateur.gestionVehicules), ligne 1
Clic sur ok (identification.ok), ligne 10
- Identifiant dans le .err : 1017
***********************************************************
Pour ma part, j'appelle cette procédure à la sortie d'une ligne de la table tableauUtiliser (table d'une autre fenêtre appelée gestionVehicule).
Le code de la fonction CalculCoutsExterieurs est le suivant :
PROCEDURE CalculCoutsExterieurs()
montant est un monétaire
ce, i, j sont des entiers
ce = TableOccurrence(ficheCoutExterieur.tableauCoutExterieur)
j = gestionVehicule.NumLigneTableauTrié(0)
dateAvant est une Date = gestionVehicule.tabAMDate[j]
POUR i = 1 A ce
SI (ficheCoutExterieur.tableauCoutExterieur.tabDateFacture[i] < gestionVehicule.tableauUtiliser.tabAMDate) ET (ficheCoutExterieur.tableauCoutExterieur.tabDateFacture[i] >= dateAvant ) ALORS
montant = montant + ficheCoutExterieur.tableauCoutExterieur.tabMontant[i]
FIN
FIN
RENVOYER montant