Bonjour à tous!

Cet exemple propose l'utilisation de la fonction Locate qui cherche un enregistrement dans une SQLquery(MAJPRDSTK) pour des valeurs
de champs prises de l'enregistrement actuel d'une autre SQLQuery(DAchats). (après avoir ajouté 'Variants' à uses).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var  ref,exp,pua:Variant;
 
begin
 ref:=inttoStr(DAchats.FieldValues['Num_prd_da']);//Type Integer.
 exp:=DateToStr(DAchats.FieldValues['Exp_da']);   //Type Date.
 pua:=FloatToStr(DAchats.FieldValues['puht_da']); //Type Float.
 
if  MAJPRDSTK.Locate('REF_PRDK;EXP_PRDK;PUHT_PRDK',VarArrayOf([ref,exp,pua]),[]) then
 ShowMessage('Trouvé!')
end;
merci à tous.