[QuickReport] champ calcule sur un etat de sortie [Résolu]

[kroma23]

delphi7,interbase
jais une table agent(num_agent,date_entrer,nb_jour)
sur un etat de sortie jais volu calculer la date de sortie de chaque agent
sachant que la date de sortie egale a date_entrer + le nb_jour
dans l'evenement beforeprint du detailband
jais mit

Code :

1
2
3
4
5
 
mydate:=qrdbtext2.caption;
nb_jour:=strtoint(qrdbtext3.Caption);
x:=incday(mydate,nb_jour);
qrlabel10.Caption:=datetostr(x);

erreur me dite date_entrer né pas une date correcte portant elle est une date correcte
je ne ces pas ou ce pose le probleme
merci d'avance

[SergioMaster]

Ce morceau de code n'a rien à voir avec Quickreport et l'erreur encore moins .
Il y a de forte chance qu'un enregistrement ai une date=null
Pas besoin de passer par delphi pour faire le calcul de date sortie , je suis presque sur qu'interbase a une fonction interne (c'est le cas pour firebird )
qui doit pouvoir faire le calcul sinon il y a toujours les UDF

Code SQL firebird 2.1 dialect 3 :

1
2
3
4
5
6
 
// pour directement ajouter dans la TABLE 
ALTER TABLE AGENT ADD DATE_SORTIE  COMPUTED BY (DATEADD(DAY,NB_JOUR,DATE_ENTREE))
 
// pour un SQL 
SELECT NUM_AGENT,DATE_ENTREE,NB_JOUR,DATEADD(DAY,NB_JOUR,DATE_ENTREE) AS DATE_SORTIE FROM AGENT

ces deux propositions éviterais un BeforePrint inutile , a noter que l'ajout a une date entrée nulle donne une date sortie nulle

erreur : date_entrer n'est pas une date correcte , pourtant c'est une date correcte

Avant de confirmer ceci il faudrait vérifier les données

Code :

1
2
3
4
5
 
mydate:=qrdbtext2.caption;                   // ==> mydate est un string
nb_jour:=strtoint(qrdbtext3.Caption);
x:=incday(mydate,nb_jour);                    // ceci est incorrect sans la transformation de Mydate string en Date :vomi:
qrlabel10.Caption:=datetostr(x);

Code ceci aurait été préférable :

1
2
3
4
WITH QuickRep1.DataSource do
IF FieldByname('date_entrer').isnull 
then qrlabel10.caption:='********'
else qrLabel10.caption:=FormatDateTime('dd/mm/yyyy',incday(FieldByName('date_entrer').asDate,FieldByname('nb_jour').asInteger));

Ce dernier code est bien sur a transformer en fonction du programme


P.S. Merci d'utiliser un correcteur orthographique

[kroma23]

Re

Code :

1
2
3
4
5
 
WITH QuickRep1.DataSource do
IF FieldByname('date_entrer').isnull 
then qrlabel10.caption:='********'
else qrLabel10.caption:=FormatDateTime('dd/mm/yyyy',incday(FieldByName('date_entrer').asDate,FieldByname('nb_jour').asInteger));

oui normalement ces ca.
merci bien mon amis Sergio et je dit résolut