Discussion :

[Daniel MOREAU]

Bonjour à tous,

Tout d'abord je ne suis pas certain d'être sur le bon forum. Si c'est le cas d'avance toutes mes excuses.

J'ai un formulaire dans le lequel (bordereau), j'ai ce bout de script.

Mon souhait est d'affecté au champ nommé "AEBINTITULE" le texte suivant : "Journée du 02/06/2015"
c'est à dire le texte 'Journée du ' + la date du jour.

Et ceci à chaque nouvelle création de bordereau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure _OnClose(Sender, var Action);
begin
  qCaisses.close;
end;
 
procedure dsElement_OnDataChange(Sender, Field);
begin
  if DBLookupComboBox4.KeyValue <> null then
    ExecuteSQL('UPDATE MP_ENTBORD SET AEBCAISSE=''' + DBLookupComboBox4.KeyValue + ''''+
      ' WHERE AEBPIECENO = ''' +
      dsElement.Dataset.FieldByName('AEBPIECENO').AsString+ '''');
 
end;

Quel code faut-il ajouter ?

Merci d'avance pour votre aide.

Daniel.

[Roland Chastain]

Bonjour !

Tout d'abord je ne suis pas certain d'être sur le bon forum.

Pourriez-vous nous donner plus d'informations (compilateur, environnement de développement, système d'exploitation, etc.) ?

[Daniel MOREAU]

Bonjour,

Le système d'exploitation est WINDOWS 7, l'environnement de développement est sous sqlserver 2008 (Borland shared)

En revanche je ne sais pas quelle programmation est utilisée en ce qui concerne les écrans utilisés dans le logiciel.

Comme je ne connais pas ce genre de programmation, j'ai pensé que c'était du Pascal, c'est la raison pour laquelle j'ai émis un doute sur le forum.

Le script indiqué se lance à l'ouverture de l'écran.

J'espère apporter des réponses suffisantes.

Merci pour votre aide

[Roland Chastain]

Comme je ne connais pas ce genre de programmation, j'ai pensé que c'était du Pascal, c'est la raison pour laquelle j'ai émis un doute sur le forum.

Bonjour ! Oui, vous avez bon, c'est du Pascal mais personnellement je ne saurais pas dire quel est l'interpréteur (ou le compilateur ?) utilisé. Je sollicite l'expertise des autres membres du forum.

[GaelleRig]

Bonjour à tous,

Tout d'abord je ne suis pas certain d'être sur le bon forum. Si c'est le cas d'avance toutes mes excuses.

J'ai un formulaire dans le lequel (bordereau), j'ai ce bout de script.

Mon souhait est d'affecté au champ nommé "AEBINTITULE" le texte suivant : "Journée du 02/06/2015"
c'est à dire le texte 'Journée du ' + la date du jour.

Et ceci à chaque nouvelle création de bordereau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure _OnClose(Sender, var Action);
begin
  qCaisses.close;
end;
 
procedure dsElement_OnDataChange(Sender, Field);
begin
  if DBLookupComboBox4.KeyValue <> null then
    ExecuteSQL('UPDATE MP_ENTBORD SET AEBCAISSE=''' + DBLookupComboBox4.KeyValue + ''''+
      ' WHERE AEBPIECENO = ''' +
      dsElement.Dataset.FieldByName('AEBPIECENO').AsString+ '''');
 
end;

Quel code faut-il ajouter ?

Merci d'avance pour votre aide.

Daniel.

Bonjour,
Une requête sql est intégrée dans votre code pascal. En général, il faut pré-compiler et compiler le code pour que cela fonctionne.
On pourrait modifier la procédure de façon à récupérer la date du jour dans une variable locale de la procédure, par exemple date, et modifier la requête sql pour modifier le champ 'AEBINTITULE' :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure dsElement_OnDataChange(Sender, Field);
var chaine:string;
begin
  if DBLookupComboBox4.KeyValue <> null then
  begin
    chaine:='Journée du ';
    chaine:=chaine+'...'; {récupère la date du jour}
    ExecuteSQL('UPDATE MP_ENTBORD SET AEBCAISSE=''' + DBLookupComboBox4.KeyValue + ''''+ ',AEBINTITULE='''+ chaine + '''' +
      ' WHERE AEBPIECENO = ''' +
      dsElement.Dataset.FieldByName('AEBPIECENO').AsString+ '''');
 
end;

Pour la requête sql, la syntaxe est à vérifier. Il reste à récupérer la date du jour en pascal dans la chaîne de caractères date.
Bonne journée