Quand j’indique “Default: print "Code introuvable : " + Code” dans ma fonction calcul j’ai le message d’erreur suivant lors de l’import des données variables, alors que l’import fonctionne bien …
Voici la fonction calcul (j’ai mis // devant la formule pour ne pas avoir ces messages pour le moment mais j’aimerai être informée si un import se fait mal !)
Une idée du beug ?
Begin
If parametrage then
par.nblignestitre = 0
par.sepdec = "."
par.sepchamp = ":"
Else
Matricule = valeurstring(1)
If StrLen(Matricule) > 0 then
If IdentifieSalarieEmploi(Matricule) = true then
If BulletinExiste() = false then
Code = ValeurString(2)
cAbs = ""
VAr = ""
// HEURES ET ELEMENTS VARIABLES
VAr = ValeurString(2)
Valeur = ValeurDouble(3)
Select Case VAr
Case "HS25":
VAr = "HS25"
Call GenereHeures(VAr, Valeur)
Case "HS50 ":
VAr = "HS50"
Call GenereHeures(VAr, Valeur)
Case "HN":
VAr = "HN"
Call GenereHeures(VAr, Valeur)
Case "HS200NUIT":
VAr = "HS200NUIT"
Call GenereHeures(VAr, Valeur)
Case "NbJoursTrav":
VAr = "NbJoursTrav"
Call GenereElementVariable(VAr, Valeur)
Case "Assiduite":
VAr = "Assiduite"
Call GenereElementVariable(VAr, Valeur)
Case "Chantier":
VAr = "Chantier"
Call GenereElementVariable(VAr, Valeur)
Case "ChargEngin":
VAr = "ChargEngin"
Call GenereElementVariable(VAr, Valeur)
Case "Deplacmt.Ind":
VAr = "Deplacmt.Ind"
Call GenereElementVariable(VAr, Valeur)
Case "Deplacmt.Pr":
VAr = "Deplacmt.Pr"
Call GenereElementVariable(VAr, Valeur)
Case "HNuit100":
VAr = "HNuit100"
Call GenereElementVariable(VAr, Valeur)
Case "HNuit75":
VAr = "HNuit75"
Call GenereElementVariable(VAr, Valeur)
Case "Mixo":
VAr = "Mixo"
Call GenereElementVariable(VAr, Valeur)
Case "Planning":
VAr = "Planning"
Call GenereElementVariable(VAr, Valeur)
Case "Pompe":
VAr = "Pompe"
Call GenereElementVariable(VAr, Valeur)
Case "Salissure":
VAr = "Salissure"
Call GenereElementVariable(VAr, Valeur)
Case "Speciale.Ponct":
VAr = "Speciale.Ponct"
Call GenereElementVariable(VAr, Valeur)
Case "Repas":
VAr = "Repas"
Call GenereElementVariable(VAr, Valeur)
Case "Repas_C":
VAr = "Repas_C"
Call GenereElementVariable(VAr, Valeur)
Default: print "Code introuvable : " + VAr
Endselect
// ABSENCES
Select Case Code
Case "300" :
cABS = "300"
Case "310" :
cABS = "310"
Case "630" :
cABS = "630"
Case "632" :
cABS = "632"
Case "230" :
cABS = "230"
Case "260" :
cABS = "260"
Case "410" :
cABS = "410"
Case "530" :
cABS = "530"
Case "620" :
cABS = "620"
Case "631" :
cABS = "631"
Case "640" :
cABS = "640"
Case "641" :
cABS = "641"
Case "651" :
cABS = "651"
Default: print "Code introuvable : " + Code
Endselect
// On s'assure d'avoir un code d'absence silae
if cAbs <> "" then
//datedeb = str2date(ValeurString(4),"ddMMyy")
datedeb = Valeurdate(4)
//datefin = str2date(ValeurString(5),"ddMMyy")
datefin = Valeurdate(5)
call genereAbsence (cABS,Datedeb,Datefin,-Valeur)
endif
Else
Print "Salarié <" + Matricule + ">, bulletin existant."
Endif
Else
Print "Salarié et/ou emploi pour le matricule <"+Matricule +"> non identifié."
Endif
Endif
Endif
End
