Discussion :

[codial]

Bonjour,

je m'excuse de revenir sur le sujet mais voilà deux jours que je me prends la tête sur un problème.

Pour mettre à jour 4 MaskEdit j'appelle, sur l'évènement FormShow de ma form, la function IntTimeToStr aimablement mis à jour par Claudius.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
//=================================================
procedure TfrmFeu.FormShow(Sender: TObject);
begin
  H1.text:= IntTimeToStr(DM.ibdFeu.FieldByName('FEUDEPARTDEPOT').AsInteger);
  H2.text:= IntTimeToStr(DM.ibdFeu.FieldByName('FEUARRIVEECHANTIER').AsInteger);
  H3.text:= IntTimeToStr(DM.ibdFeu.FieldByName('FEUDEPARTCHANTIER').AsInteger);
  H4.text:= IntTimeToStr(DM.ibdFeu.FieldByName('FEUARRIVEEDEPOT').AsInteger);
end;

La function:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
//==================================================
function IntTimeToStr(Value: Integer): string;
var
  J, H, M: Integer;
begin
  J := Value div MinsPerDay;
  H := (Value mod MinsPerDay) div MinsPerHour;
  M := Value mod MinsPerHour;
  if J > 0 then
    Result := Format('%dj %.2d:%.2d', [J, H, M])
  else
    Result := Format('%.2d:%.2d', [H, M])
end;
//===============================================

Le problème est que les trois premiers (H1, H2 et H3) se mettent bien à jour mais sur H4 la fonction me renvoie systématiquement 0 alors que j'ai mis dans la table 990 et devrais donc afficher 16:30.

Le MaskEdit à exactement les mêmes propriétés que les trois autres et les quatre champs dans la table sont également identiques à savoir Numeric 12,4.

Dans l'IBDataset j'ai bien 'FEUARRIVEEDEPOT' en Modification et insertion.

Il y a quelque chose que je ne vois pas? Ou une piste?

Cordialement

[Cl@udius]

Salut

Quel est la propriété EditMask de tes TMaskEdit ?

@+

[codial]

Salut

Propriété EditMask : !90:00;1;_

[Cl@udius]

La fonction renvoie bien '16:30' pour une valeur de 990.
Donc le problème viens d'ailleurs.

Un debug en pas à pas pour vérifier la valeur du champ FEUARRIVEEDEPOT donne quoi ?

Fais tout de même attention à la fonction que je t'ai donnée, celle-ci va te renvoyer une chaîne de la forme '0j 00:00' si la valeur d'un champ est supérieur à 1440 ce qui ne sera plus en accord avec EditMask.

@+

[codial]

Bonjour,

En affichant les étapes j'ai bien mon nombre de minutes mais au deuxième shomessage j'ai 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
DM.ibdFeu.FieldByName('FEUDEPARTDEPOT').AsInteger := NbreMinute(H1.text);
  DM.ibdFeu.FieldByName('FEUARRIVEECHANTIER').AsInteger := NbreMinute(H2.text);
  DM.ibdFeu.FieldByName('FEUDEPARTCHANTIER').AsInteger := NbreMinute(H3.text);
  showmessage(IntToStr(NbreMinute(H4.text)));
  DM.ibdFeu.FieldByName('FEUARRIVEEDEPOT').AsInteger := NbreMinute(H4.text);
  showmessage(IntToStr(DM.ibdFeu.FieldByName('FEUARRIVEEDEPOT').AsInteger));

c'est à dire que cette fonction NbreMinute renvoie 0 mais que sur ce champ.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
function NbreMinute(Extr:String):Integer;
var t1,t2:Integer;
begin
  t1:=StrToInt(copy(Extr,1,2));
  t2:=StrToInt(copy(Extr,4,2));
  Result:=(t1*60) + t2;
end;

Et en plus après enregistrement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TfrmFeu.btnEnregClick(Sender: TObject);
begin
  try
  DM.ibdFeu.FieldByName('FEUDEPARTDEPOT').AsInteger := NbreMinute(H1.text);
  DM.ibdFeu.FieldByName('FEUARRIVEECHANTIER').AsInteger := NbreMinute(H2.text);
  DM.ibdFeu.FieldByName('FEUDEPARTCHANTIER').AsInteger := NbreMinute(H3.text);
  showmessage(IntToStr(NbreMinute(H4.text)));
  DM.ibdFeu.FieldByName('FEUARRIVEEDEPOT').AsInteger := NbreMinute(H4.text);
  showmessage(IntToStr(DM.ibdFeu.FieldByName('FEUARRIVEEDEPOT').AsInteger));
  DM.ibdFeu.Post;
  if DM.ibdFeu.transaction.InTransaction then begin
      DM.ibdFeu.Transaction.Commit;//Retaining;
      DM.ibdFeu.Open;
      end;
  except
    Showmessage('Erreur dans la saisie.');
  end;
end;

dans la table j'ai toujours 990 alors que les autres champs se mettent normalement à jour.

Je ne comprends plus rien!!

Pour répondre à ta remarque, sur ce EditMask il n'y aura pas plus de 24 h, le total du chantier s'effectuera sur un autre TEDIT

Cordialement

[Cl@udius]

Je ne vois absolument aucune raison que ton champ ne soit pas alimenté avec la bonne valeur. Ta fonction NbreMinute est correcte.

Un problème avec ton instruction InsertSQL ou ModifySQL ?

@+

[codial]

Bonjour,

Oui moi aussi c'est ce que je me dis depuis hier !
J'utilise un TIBdataset avec:
ModifySQL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
update FEU
set
  FEUCOD = :FEUCOD,
  PRJCOD = :PRJCOD,
  EMPCOD = :EMPCOD,
  FEUDAT = :FEUDAT,
  ACTCOD = :ACTCOD,
  FEUDEPARTDEPOT = :FEUDEPARTDEPOT,
  FEUARRIVEECHANTIER = :FEUARRIVEECHANTIER,
  FEUDEPARTCHANTIER = :FEUDEPARTCHANTIER,
  FEUARRIVEEDEPOT = :FEUARRIVEEDEPOT,
  FEUDUREETRAJET = :FEUDUREETRAJET,
  FEUDUREECHANTIER = :FEUDUREECHANTIER,
  FEUTOTALTRAJET = :FEUTOTALTRAJET,
  FEUTOTALCHANTIER = :FEUTOTALCHANTIER,
  FEUNOT = :FEUNOT
where
  FEUCOD = :OLD_FEUCOD

InsertSQL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
insert into FEU
  (FEUCOD, PRJCOD, EMPCOD, FEUDAT, ACTCOD, FEUDEPARTDEPOT, FEUARRIVEECHANTIER, 
   FEUDEPARTCHANTIER, FEUARRIVEEDEPOT, FEUDUREETRAJET, FEUDUREECHANTIER, 
   FEUTOTALTRAJET, FEUTOTALCHANTIER, FEUNOT)
values
  (:FEUCOD, :PRJCOD, :EMPCOD, :FEUDAT, :ACTCOD, :FEUDEPARTDEPOT, :FEUARRIVEECHANTIER, 
   :FEUDEPARTCHANTIER, :FEUARRIVEEDEPOT, :FEUDUREETRAJET, :FEUDUREECHANTIER, 
   :FEUTOTALTRAJET, :FEUTOTALCHANTIER, :FEUNOT)

Je ne comprends absolument pas!!

Cordialement

[Cl@udius]

Bon tes instructions me semble correctes.

Je cherche, je cherche.... Un problème de trigger ? As-tu un évèment BeforePost ? ou un autre ?

[codial]

Bonjour,

non, je n'ai pas de triggers ni d'évènement BeforePost.

C'est dingue quand même!!!

Cordialement

[codial]

Bonjour,

pour raison qui m'échappe maintenant ça à l'air de fonctionner normalement, je surveille de près.

Je ne vois vraiment pas ce que j'ai changé!!!

Une autre question:

Quelle serait la technique pour afficher mes numériques au format 00:00:dans un DBGrid?

D'avance merci

Codial