QueryBroker (rtl)

Function QueryBroker(const iDatabaseURL:String; const iTraceIdentifier:String; const iClassName:String):TQuery;

Attention : Il est déconseillé d'utiliser des QueryBroker. La majorité des opérations réalisables par un QueryBroker peuvent être réalisées en mode objet en utilisant les sélecteurs et les vues locales.

Attention : L'utilisation de QueryBroker peut entrainer des problèmes dans le cadre des bases de données gérées en OID numérique.

Attention : N'utilisez pas des QueryBroker pour faire des mises à jour dans des classes protégées.

Cette fonction alloue un curseur SQL.

Result	Un curseur SQL sur la base de données spécifiée ou sur la base de données par défaut.
iDatabaseURL	URL de la base de données dans laquelle allouer le curseur.
iTraceIdentifier	Identifiant du curseur dans la trace.
iClassName	Nom de classe sur laquelle mapper le résultat.

Le paramètre iClassName permet d'utiliser une vue objet de l'ensemble résultat ; si iClassName est défini le curseur allouera un objet de cette classe pour chaque ligne de l'ensemble résultat. La propriété "Instance" est alors utilisable pour accéder de manière objet aux données retournées par le curseur.

Vous devez utiliser le translateur de code SQL pour construire le code SQL de la requête.

Tip : Ces curseurs ne sont pas objets et ne doivent être utilisés que dans des cas exceptionnels; ils peuvent poser des problèmes de portabilités d'une base de données à une autre si vous ne respectez pas les règles de construction du code SQL.

Exemple

Procedure _CalculerSoldeInitial;
var
  SoldeCompte       : Currency;
  CumulDebit        : Currency;
  CumulCredit       : Currency;
  CumulDebitAutre   : Currency;
  CumulCreditAutre  : Currency;
  Ecriture          : Tecriture;
  i                 : Integer;
  ListeEcriture     : TObjectList;
  PC                : TParametreComptable;
  Query             : String;
  vEcritureEstAutre : Boolean;
  vCursor           : TSQLQuery;
  vNomTable         : String;
  vlWhereJoin       : String;
begin
  vlWhereJoin := '';
 
  _RazCumuls;
 
  if (oidCompteGeneral='') And (oidGroupePointage='') then Exit;
 
  if oidCompteGeneral <> '' then
    SoldeCompte := compteGeneral.totalDebitTenue.value - compteGeneral.totalCreditTenue.value;
  if oidGroupePointage<>'' then
    SoldeCompte := groupePointage.compteGeneral.totalDebitTenue.value - groupePointage.compteGeneral.totalCreditTenue.value ;
  soldeComptable.Value := SoldeCompte;
 
  CumulDebit  := 0.0;
  CumulCredit := 0.0;
  CumulDebitAutre  := 0.0;
  CumulCreditAutre := 0.0;
  PC:=ClassManager.FindSingleton('TParametreComptable');
  if not Assigned(PC) then
    raise ERule.Create('Les paramètres comptables ne sont pas initialisés');
 
  vCursor := QueryBroker('','Ecriture resultat','');
  vCursor.SQL.Add('SELECT SUM(TECRITURE.credit_TCValue), SUM(TECRITURE.debit_TCValue) ');
  vCursor.SQL.Add(' FROM  ');
  vNomTable := ClassManager.FindClassTableName('TECRITURE');
  vCursor.SQL.Add(vCursor.Translator.dbOutTableName(vNomTable,'TECRITURE',dbtoNO));
  vCursor.SQL.Add(vCursor.Translator.dbOutJoin('TPIECE','Piece',dbtoNoLock,'oid','TECRITURE','oidpiece',vlWhereJoin));
  vCursor.SQL.Add(vCursor.Translator.dbOutJoin('TLOT','Lot',dbtoNoLock,'oid','Piece','oidLot',vlWhereJoin));
  vCursor.SQL.Add(vCursor.Translator.dbOutLeftOuterJoin('TGROUPEPOINTAGE','GroupePointage',dbtoNoLock,'oid','TECRITURE','oidGroupePointage',vlWhereJoin));
  vCursor.SQL.Add(' WHERE ');
  vCursor.SQL.Add(' (TECRITURE.eDate <= ' + vCursor.Translator.dbOutVariant(PC.ExerciceEnCours.Datefin) + ') ');
  vCursor.SQL.Add('  AND (Lot.origineLot <> 0) ');
  if oidGroupePointage<>''
     then vCursor.SQL.Add('  AND (TECRITURE.oidcompteGeneral = ''' + GroupePointage.OidCompteGeneral + ''') ')
     else vCursor.SQL.Add('  AND (TECRITURE.oidcompteGeneral = ''' + oidCompteGeneral + ''') ');
  vCursor.SQL.Add(' AND (TECRITURE.typeEcriture <> 0) ');
  vCursor.SQL.Add(' AND ( ');
  vCursor.SQL.Add(' (GroupePointage.datePointage >= ' + vCursor.Translator.dbOutVariant(datePointage)+ ')');
  vCursor.SQL.Add('  OR (GroupePointage.datePointage IS NULL)');
  vCursor.SQL.Add(' ) ');
  vCursor.Open;
  vCursor.First;
  while not(vCursor.EOF) do
  begin
    CumulCredit := vCursor.Fields[0].AsVariant;
    CumulDebit  := vCursor.Fields[1].AsVariant;
    vCursor.next;
  end;
  vCursor.Close;
 
  if Assigned(GroupePointage) then
  begin
    if uniquementEcrituresGroupe then
      begin
        CumulCreditAutre := CumulCredit;
        CumulDebitAutre  := CumulDebit;
      end;
  end
  else
  begin
    // cursor pour autres écritures
    vCursor := QueryBroker('','Ecriture resultat','');
    vCursor.SQL.Add('SELECT SUM(TECRITURE.credit_TCValue), SUM(TECRITURE.debit_TCValue) ');
    vCursor.SQL.Add(' FROM  ');
    vNomTable := ClassManager.FindClassTableName('TECRITURE');
    vCursor.SQL.Add(vCursor.Translator.dbOutTableName(vNomTable,'TECRITURE',dbtoNO));
    vCursor.SQL.Add(vCursor.Translator.dbOutJoin('TPIECE','Piece',dbtoNoLock,'oid','TECRITURE','oidpiece',vlWhereJoin));
    vCursor.SQL.Add(vCursor.Translator.dbOutJoin('TLOT','Lot',dbtoNoLock,'oid','Piece','oidLot',vlWhereJoin));
    vCursor.SQL.Add(vCursor.Translator.dbOutLeftOuterJoin('TGROUPEPOINTAGE','GroupePointage',dbtoNoLock,'oid','TECRITURE','oidGroupePointage',vlWhereJoin));
    vCursor.SQL.Add(' WHERE ');
    vCursor.SQL.Add(' (TECRITURE.eDate <= ' + vCursor.Translator.dbOutVariant(PC.ExerciceEnCours.Datefin) + ') ');
    vCursor.SQL.Add(' AND (TECRITURE.eDate < ' + vCursor.Translator.dbOutVariant(DateDebut) + ') ');
    vCursor.SQL.Add(' AND (TECRITURE.eDate <= ' + vCursor.Translator.dbOutVariant(Datefin) + ') ');
    vCursor.SQL.Add('  AND (Lot.origineLot <> 0) ');
    if oidGroupePointage<>'' then
      vCursor.SQL.Add('  AND (TECRITURE.oidcompteGeneral = ''' + GroupePointage.OidCompteGeneral + ''') ')
    else
      vCursor.SQL.Add('  AND (TECRITURE.oidcompteGeneral = ''' + oidCompteGeneral + ''') ');
    vCursor.SQL.Add(' AND (TECRITURE.typeEcriture <> 0) ');
    vCursor.SQL.Add(' AND ( ');
    vCursor.SQL.Add(' (GroupePointage.datePointage > ' + vCursor.Translator.dbOutVariant(datePointage)+ ')');
    vCursor.SQL.Add(' ) ');
    vCursor.Open;
    vCursor.First;
    while not(vCursor.EOF) do
    begin
      CumulCreditAutre := vCursor.Fields[0].AsVariant;
      CumulDebitAutre  := vCursor.Fields[1].AsVariant;
      vCursor.next;
    end;
    vCursor.Close;
  end;
 
  debitPointeAutre.Value := CumulDebitAutre;
  creditPointeAutre.Value := CumulCreditAutre;
  debitNonPointe.Value := CumulDebit;
  creditNonPointe.Value := CumulCredit;
  soldeTheorique.Value := SoldeCompte - CumulDebit + CumulCredit;
  soldeInitial.value :=  SoldeCompte - CumulDebit + CumulCredit;
end;

Voir aussi:

• Les sélecteurs permettent de remplacer les QuryBroker dans la majorité des cas

— Développement DSM — Développement DSM —