procedure TAusgang_SL_F.Zeige_Daten;
var OleVariante : OleVariant;
begin
Q_Ausgang.closesql;
Q_Ausgang.setsqltext('
select T.*, '+
'
M.Name as Name1, M.Vorname as Vorname1 , ' +
'
M2.Name as Name2, M2.Vorname as Vorname2,' +
'
M3.Name as Name3, M3.Vorname as Vorname3,' +
'
M4.Name as Name4, M4.Vorname as Vorname4,' +
'
K.Name as Kunde, L.Name as Liefer,'+
'
I.Name as Interess from XTermin T' + #13#10 +
'
left outer join MitarBW M on (M.NR = T._Ma_Nr1) ' +
'
left outer join MitarBW M2 on (M2.NR = T._Ma_Nr2) ' +
'
left outer join MitarBW M3 on (M3.NR = T._Ma_Nr3) ' +
'
left outer join MitarBW M4 on (M4.NR = T._Ma_Nr4) ' +
'
left outer join Kunden K on (K.Nummer = T._Adressen_NR) ' +
'
left outer join Liefer L on (L.Nummer = T._Adressen_NR)'+
'
left outer join Interess I on (I.Nummer = T._Adressen_NR)'+
'
where T._Tag_Von <= ''
' + datetimetostr(now) + '
''
' +
'
and T._Tag_Bis >= ''
' + datetimetostr(now)+ '
''
' +
'
or ((_KZ2 = ''
''
) or (_KZ2 is null)) ') ;
Q_Ausgang.opensql;
SG_Ausgang.RowCount := 2;
Zeile_Leeren(1);
while not Q_Ausgang.eof
do
begin
if SG_Ausgang.Cells[1,SG_Ausgang.RowCount - 1] <> '
'
then SG_Ausgang.RowCount := SG_Ausgang.RowCount + 1;
Zeile_Leeren(SG_Ausgang.RowCount -1);
SG_Ausgang.Cells[0, SG_Ausgang.RowCount -1] := q_ausgang.getfield('
XTermin_ID');
SG_Ausgang.Cells[1, SG_Ausgang.RowCount -1] := Q_Ausgang.getfield('
Name1') +
'
, ' + Q_Ausgang.getfield('
Vorname1');
SG_Ausgang.Cells[2, SG_Ausgang.RowCount -1] := Q_Ausgang.getfield('
Name2')+
'
, ' + Q_Ausgang.getfield('
Vorname2');
SG_Ausgang.Cells[3, SG_Ausgang.RowCount -1] := Q_Ausgang.getfield('
Name3')+
'
, ' + Q_Ausgang.getfield('
Vorname3');
SG_Ausgang.Cells[4, SG_Ausgang.RowCount -1] := Q_Ausgang.getfield('
Name4')+
'
, ' + Q_ausgang.getfield('
Vorname4');
if uppercase(q_ausgang.getfield('
_Tab_KZ')) = '
KU'
then SG_ausgang.Cells[7, SG_Ausgang.RowCount -1] := Q_Ausgang.getfield('
Kunde');
if uppercase(q_ausgang.getfield('
_Tab_KZ')) = '
LI'
then SG_Ausgang.Cells[7, SG_Ausgang.RowCount -1] := Q_Ausgang.getfield('
Liefer');
if uppercase(q_ausgang.getfield('
_Tab_KZ')) = '
IN'
then SG_Ausgang.Cells[7, SG_Ausgang.RowCount -1] := Q_Ausgang.getfield('
Interess');
try
OleVariante := Q_Ausgang.getfield('
_Tag_Von');
if OleVariante <> null
then begin
//ShowMessage(datetimetostr(Q_Ausgang.getfield('_Tag_Von')));
SG_Ausgang.Cells[5,SG_ausgang.rowcount -1] := datetimetostr(Q_Ausgang.getfield('
_Tag_Von'));
SG_Ausgang.Cells[6,SG_Ausgang.rowcount -1] := datetimetostr(Q_Ausgang.getfield('
_Tag_Bis'));
end;
except
ShowMessage('
Fehler' + #13#10 +
Exception(ExceptObject).
Message);
end;
Q_Ausgang.next;
end;
end;