OK hier nochmals der ganze Trigger:
Delphi-Quellcode:
as
declare variable Monat Integer;
declare variable Tag Integer;
declare variable Jahr Integer;
begin
if (new.ZAHLUNGSPFLICHTIG = '
J')
then
if (((new.ZAHLUNGSART
is null)
or (new.ZAHLUNGSART = '
'))
or ((new.ZAHLUNGSZEITPUNKT)
is null
or (new.ZAHLUNGSZEITPUNKT = '
')))
then
exception EXCP_INVALID;
if (new.geburtsdatum > '
')
then
begin
Tag = extract(day from new.geburtsdatum);
Monat = extract(Month from new.geburtsdatum);
Jahr = extract(year from new.geburtsdatum);
if (Monat = 1)
then
New.geburtsmonat = '
Januar';
if (Monat = 2)
then
new.geburtsmonat = '
Februar';
if (Monat = 3)
then
new.geburtsmonat = '
März';
if (Monat = 4)
then
new.geburtsmonat = '
April';
if (Monat = 5)
then
new.geburtsmonat = '
Mai';
if (Monat = 6)
then
new.geburtsmonat = '
Juni';
if (Monat = 7)
then
new.geburtsmonat = '
Juli';
if (Monat = 8)
then
new.geburtsmonat = '
August';
if (Monat = 9)
then
new.geburtsmonat = '
September';
if (Monat =10)
then
new.geburtsmonat = '
Oktober';
if (Monat = 11)
then
new.geburtsmonat = '
November';
if (Monat = 12)
then
new.geburtsmonat = '
Dezember';
new.geburtstag = Tag;
new.geburtsmonat_zahl = Monat;
new.geburtsjahr = Jahr;
end
end
Ich befürchte das es mit dem Geburtsdatum zu tun hat. Die ist in der Datenbank ein Datumsfeld (Date).