AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Etiketen Druck mit Rave

Ein Thema von Myst · begonnen am 26. Jun 2006 · letzter Beitrag vom 28. Aug 2006
 
WoGe

Registriert seit: 16. Jun 2005
Ort: Kelkheim
178 Beiträge
 
Delphi 10.3 Rio
 
#5

Re: Etiketen Druck mit Rave

  Alt 12. Aug 2006, 19:49
Hi,

warum nicht das dataset entsprechend füllen?

SQL-Code:
CREATE PROCEDURE LABEL_TEST (
    AVON INTEGER,
    ABIS INTEGER,
    WAS VARCHAR(50))
RETURNS (
    ZEILE1 VARCHAR(50),
    ZEILE2 VARCHAR(50))
AS
DECLARE VARIABLE WIEVIELE INTEGER;
DECLARE VARIABLE VAR_I INTEGER;
begin
  wieviele = :abis - :avon;
  if (:avon > 1 ) then
  begin
    var_i = 1;
    while ( var_i < :avon ) do
    begin
      Zeile1 = '';
      Zeile2 = '';
      var_i = var_i + 1;
      suspend;
    end
  end

  var_i = 0;
  for
      select plz.oname, plz.oname24 from postleit plz
      where plz.oname containing :was
      into :zeile1, :zeile2
  do
  begin
    if (var_i <= wieviele) then
    begin
      var_i = var_i + 1;
      suspend;
    end
    else exit;
  end
end
kann dann z.B. so aufgerufen werden:


SQL-Code:
SELECT ZEILE1, ZEILE2
FROM LABEL_TEST(3, 6, 'frank')
mfg
wo
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:13 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz