Ausgabe von memo.add; nach Datumsvergleich

[sifa]

Hallo,

bei der Rechnungserstellung soll im Rechnungsformular in einem Textfeld eine Ausgabe erfolgen:

begin
// AuftragsNr und Ihre Bestellnummer
memo.clear;
a := 'Ihre Bestell Nr.:';
b := 'Unsere Auftrags Nr.:';
c := 'LEISTUNGSVERRECHNUNG FÜR MONAT: ';
d := [trim([q_rep1."RECHDATUM"])];
auNr := [trim([q_Rep4."BAUF_MASKENKEY"])];
kuNr := [trim([q_Rep13."KUAUFNR"])];

if ((d > '31.10.2011') and (d < '30.11.2011')) then
memo.add(a+' '+ kuNr +' / ' + b +' '+ auNr +' '+ c + 'OKTOBER');

if d = '04.11.2011' then
memo.add(a+' '+ kuNr +' / ' + b +' '+ auNr +' '+ c +'OKTOBER');

end


if d = '04.11.2011' funktioniert (tatsächliches Rechnungsdatum)
aber
if ((d > '31.10.2011') and (d < '30.11.2011')) funktioniert nicht.

Auch Versuche mit between haben nicht geklappt.

Muss das Rechnungsdatum mit DatetoStr umgewandelt werden oder reicht Str([q_rep1."RECHDATUM"]))

Vielen Dank für jeden Hinweis.

mit freundlichem Gruß
sifa

[SYN20]

Hallo sifa,

wenn Sie ein Datum in einen String unmwandeln und sortieren, dann erhalten Sie z.B. folgendes:
01.09.2011
02.06.2009
06.10.2008
08.10.2008
08.10.2009
20.10.2008
31.03.2008
31.08.2009

Folgender Vergleich sollte allerdings Funktionieren:

Code: Alles auswählen

 if (([q_rep1."RECHDATUM"] > STRTODATE('30.11.2011')) and
     ([q_rep1."RECHDATUM"] < STRTODATE('30.12.2011'))) then

Für Ihr Beispiel würde ich folgenden Code verwenden:

Code: Alles auswählen

 memo.add(a+' '+ kuNr +' / ' + b +' '+ auNr +' '+ c + ' ' + FormatDateTime('mmmm',[q_rep1."RECHDATUM"]));

Gruß,
Syn20

[sifa]

Hallo SYN20,

recht spät, aber es soll ja nie zu spät sein DANKE zu sagen.

sifa