Discussion :

[tarmo57]

Rebonjour tous encore un petit probleme
voila il me faut un N° de bon de commande
avec IDclient(dans un Edit) Et Date_de _depart(D'un champs DateTimePicker)
j'aimerai si possible avoir dans un seul edit ou label le resultat des deux
ex :
IDclient =123
Date_de_depart =10-03-2008
le resultat dennera
N°_de_facture =12310302008 ou12310-03-2008

merci davance

[dd_garion]

salut,

Tu n'as qu'a faire :

Code :

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

1
2
 
TEditResultat.caption := TEditID.Caption + TEditDate.caption;

Cela te donne la deuxième solution : 12310-03-2008

[Aka Guymelef]

A l'exception que ce n'est pas la prorpriété Caption mais la propriété Text pour récupérer la valeur saisie dans un TEdit. Caption c'est le texte à afficher dans un TLabel par exemple.

[tarmo57]

merci les gars en regardent le code je me trouve con de ne pas avoir trouver aussi simple lol

merci encore à vous deux

[tarmo57]

salut,

Tu n'as qu'a faire :

Code :

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

1
2
 
TEditResultat.caption := TEditID.Caption + TEditDate.caption;

Cela te donne la deuxième solution : 12310-03-2008

désolé mais en test TEditDate.caption cause probleme car DateTimePicker1
et de type Time

[ero-sennin]

Salut,

Pourquoi ne pas utiliser directement le DateTimePicker ?
Ca farait un truc de ce genre :

Code :

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

1
2
3
4
5
6
procedure TForm1.Button2Click(Sender: TObject);
begin
  // Défini le séparateur de Date
  DateSeparator:='-';
  ShowMessage(Edit1.Text+DateToStr(DateTimePicker1.Date));
end;

Si ça peut t'aider ...
A+

[Aka Guymelef]

Tu dois utiliser une fonction de conversion DateTimeToStr en passant en paramètre la date renseignée au niveau du TDateTimePicker. Ensuite tu concatène la chaîne retournée avec le reste et c'est bon.

[Cl@udius]

Salut

Et comme ça ?

Code :

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

1
2
3
 
  DateTimeToString(EditResultat.Text, 'DD-MM-YYYY', DateTimePicker1.Date);
  EditResultat.Text := EditID.Text + EditResultat.Text;

@+ Claudius.

[tarmo57]

toujour le DateTimePicker qui pose probléme
mais je me suis peut étre mal exprimer désolé
j'ai donc un :
DateTimePicker (qui me laisse choisir une date)
Un Edit idclient (qui me donne un N° client unique)
un Edit NumFacture ou j'aimerais avoir le resultat
idclient et a la suite date
ex;00127-02-2008
merci d'avance

[Cl@udius]

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button1Click(Sender: TObject);
var
  NumFact: string;
begin
  DateTimeToString(NumFact, 'DD-MM-YYYY', DateTimePicker1.Date);
  NumFact := IDClient.Text + NumFact;
  NumFacture.Text := NumFact;
end;

C'est mon précédent code légèrement modifié. Et cela fonctionne parfaitement !

@+

[MedGIR]

Bonjour, le code suivant devrait fonctionner

Code :

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

1
2
3
4
function tform1.GetInvoiceNumber:string;
begin
 Result := IDClient.Text + FormatDateTime('DD-MM-YY',DateTimePicker1.Date);
end;

[Cl@udius]

@MedGIR
Euh oui, c'est encore plus simple.

[MedGIR]

C'est clair, je ne suis pas fan des variables "temporaires"...

[tarmo57]

Super les gars merci maintenant j'ai tester c ok

merci à vous tous