Discussion :

[paulfr]

Bonjour.

Dans un programme j'ai une procédure qui sélectionne les enregistrements sur le champ DBQ=' '.
Ce champ date DBQ, en fait le mois, n'a que les valeurs suivantes : ' ' (2 espaces), '01'..'12' ou '**'.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TFInitA.CreatWdeps;
begin   // creation du fichier archive de AN sans les enreg. non réglés  DBQ = '  ';
  FichSt.Tbst.ReadOnly := False;
  FichSt.Tbst.Close;
  FichSt.Tbst.TableName := Depw+'bak.dbf'; // à partir de fich. de AN sauvegardé
  FichSt.Tbst.Filter := '(DBQ <> ''  '')  OR (DBQ <> '''' )';       // 05/01/2009
  FichSt.Tbst.Filtered := true;
  FichSt.CopieFichDB(FichSt.TbSt, DepMod.TbAff, NWdepAN+'.dbf');
  DepMod.TbAff.AddIndex('IxNrep','NREP',[]);
  DepMod.TbAff.AddIndex('IxCode','CODE',[]);
  MemFA.Lines.Add('  Création du f. '+ NWdepAN +'.dbf');             // archivé
 
  FichSt.Tbst.Close;  // création du fich AN1 avec report des enreg. non réglés  WDEP13
  FichSt.Tbst.TableName := Depw+'bak.dbf';
  FichSt.TbSt.Filtered := false;
  FichSt.Tbst.Filter := '(DBQ = ''  '') OR (DBQ = '''' )' ;         // 05/01/2009
  FichSt.Tbst.Filtered := true;       // filtrage du nouveau fichier de l'année
  FichSt.AjoutFichDB(FichSt.TbSt, DepMod.TbAff, DepW+'.dbf');
  MemFA.Lines.Add('  Création du f. '+Depw+'.dbf de la nouvelle année'); //EC WDEP
 
  FichSt.Tbst.Close;
  FichSt.Tbst.Filtered := false;
  FichSt.Tbst.Filter := '';
end;
 
procedure TFInitA.CopieFich(TablSource, TablDestination : Ttable; NomFDest : string);
begin                                                     //nom du f.destination
  TablDestination.TableName := NomFDest;            
  TBM.Destination := TablDestination;                 
  TBM.Source := TablSource;                           
  TBM.Mode := batCopy;
  TBM.Execute;                                      
end;

J'ai utilisé cette procédure pendant des années, une fois DBQ avait une longueur nulle, d'où l'ajout au filtre.
Mais cette fois la sélection ne fonctionne pas, même après avoir modifié à ' ' des champs DBQ.

Pourquoi ce défaut de sélection ?

Bonne Année à tous.

[paulfr]

Bonjour,

J'ai trouvé une solution en inversant le filtre :

Code :

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

1
2
3
4
...
FichSt.Tbst.Filter := '((DBQ>=''00'') AND (DBQ<=''12'')) OR (DBQ=''**'')';            
...
FichSt.Tbst.Filter := 'NOT((DBQ>=''00'') AND (DBQ<=''12'')) AND (DBQ<>''**'')';

Mais cette solution de dépannage ne me satisfait pas intellectuellement.

Y a t'il une solution pour le filtre initial ?

[SergioMaster]

Bonjour,

Mais cette solution de dépannage ne me satisfait pas intellectuellement.
Y a t'il une solution pour le filtre initial ?

le SQL ? (j'ai horreur des filtres j'y préfère toujours des querys même pour de tables DBF ou paradox)
seul hic , je ne me rappelle plus si un batchmove peut se faire via une Query (et pourtant , j'en ai fait une tripotée il y a une 10aines d'années)

cela donnerait quelque chose du genre (il y a certainement plus propre):

Code :

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

SELECT * FROM TABLE WHERE (DBQ IS NULL) OR (DBQ IN ('**','  ','01','02','03',etc...))

[paulfr]

Bonjour,

Merci @Sergio pour sa suggestion.
Mais je ne suis pas un adepte de SQL. Sous D3 je l'ai abordé sans résultat, avec internet bas débit il y a un bail.
De plus c'est une application locale et personnelle.
Je ferme la discussion
PL

[paulfr]

Bonjour,

J'ai repris la procedure pour trouver un solution plus satisfaisante.
Elle s'exécute à partir de l'archive de l'année :

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
20
21
22
23
24
25
26
27
28
29
procedure TFInitA.CreatWdeps;  // à partir de WDepAN copie de DB Q='  ' ds WDep
var ChDBQ : string;               // et suppression en même temps
begin
   DepMod.TbAff.Open;
   DepMod.TbEnr.Open;
 
  DepMod.TbAff.Open;               // a partir de NWdepAN copie des enreg. '  '
  DepMod.TbAff.First;              // dans DepMod.TbEnr : Wdep.dbf
  DepMod.TbEnr.Open;               // et suppression dans TbAff
  DepMod.TbEnr.Edit;
  DepMod.TbEnr.Last;
  While not DepMod.TbAff.Eof do
  begin
    ChDbQ := DepMod.TbAff.FieldByName('DBQ').AsString;
     if (ChDbq = '  ') or (ChDbq='') then
       begin
         DepMod.TbEnr.AppendRecord([
           DepMod.TbAff.FieldByName('DATE').AsString,
           DepMod.TbAff.FieldByName('NREP').AsString,
           DepMod.TbAff.FieldByName('DESIGN').AsString,
           DepMod.TbAff.FieldByName('DEBIT').AsString,
           DepMod.TbAff.FieldByName('CREDIT').AsString,
           DepMod.TbAff.FieldByName('CODE').AsString,
           '  ']);                // champ DBQ
           DepMod.TbAff.Delete;
       end
       else DepMod.TbAff.Next;          
  end;
...

Incité par SergioMaster j'ai cherché une solution SQL (BDE !) :

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
20
21
22
23
24
25
26
27
procedure TFInitA.CreatWdeps;  // à partir de NWDepAN
var ChDBQ : string;              
begin
   DepMod.TbAff.Open;
   DepMod.TbEnr.Open;
 
  with DepMod do            // Version  SQL   22/01/2014
  begin
    QuertbCd.Close;     //insertion dans wdep des enregistrements DBQ='  '
    QuertbCd.SQL.Clear;
    QuertbCd.SQL.Add('INSERT INTO "wdep.dbf" ');
    QuertbCd.SQL.Add('SELECT * FROM "wdep13.dbf" D ');
    QuertbCd.SQL.Add('WHERE (D.DBQ=''  '') OR (D.DBQ IS NULL)');    // OK
    QuertbCd.Prepare;
    QuertbCd.ExecSQL;
  end;
  DepMod.QuerTbCd.UnPrepare;
 
  with DepMod do   // suppression dans l'archive WDep13.dbf des enreg. DBQ='  '
  begin
    QuertbCd.Close;                                     
    QuertbCd.SQL.Clear;
    QuertbCd.SQL.Add('DELETE FROM "wdep13.dbf" D ');
    QuertbCd.SQL.Add('WHERE (D.DBQ=''  '') OR (D.DBQ IS NULL)');
    QuertbCd.Prepare;
    QuertbCd.ExecSQL;
  end;...

Mais elle ne peut satisfaire les différents DepW (='Wdep',...).

[SergioMaster]

Bonsoir,

Mais elle ne peut satisfaire les différents DepW (='Wdep',...).

Oh , je suis sur que si . Cela aurait été plus facile avec une période numérique c'est certain et il est sur que DBF n'aide pas

en fait , je ne comprend pas vraiment l'objectif : DepW (='Wdep',...) cela correspond a quoi ?
pourrais tu fournir la structure de la table , un jeu d'essai et résultat souhaité ?