1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| adoquery9.SQL.Clear;
adoquery9.SQL.Add('INSERT INTO druck1_' + kdprojekt.ADOQuery1.FieldByName('projektnr').AsString + ' (projektnr, rg_name1, rg_name2, rg_konto, rg_telefon, rg_telefax,');
adoquery9.SQL.Add('rg_ort, rg_strasse, rg_kdnr, rg_lk, rg_staat, rg_land, rg_plz, rg_ustid, vw_name1, vw_name2, vw_konto, vw_telefon, vw_telefax, vw_ort, vw_strasse, vw_lk, vw_staat,');
adoquery9.SQL.Add('vw_land, vw_plz, telefon, telefax, email, sbname, sbtelefon, sbtelefax, vname, vtelefon, vtelefax, leistung, ihrauftrag, name, layout, bhkonto, mwstsatz)');
adoquery9.SQL.Add('select kdprojekt.projektnr, kdprojekt.rg_name1, kdprojekt.rg_name2, kdprojekt.rg_konto, kdprojekt.rg_telefon, kdprojekt.rg_telefax, kdprojekt.rg_ort,');
adoquery9.SQL.Add('kdprojekt.rg_strasse, kdprojekt.rg_kdnr, kdprojekt.rg_lk, kdprojekt.rg_staat, kdprojekt.rg_land, kdprojekt.rg_plz, kdprojekt.rg_ustid, kdprojekt.vw_name1,');
adoquery9.SQL.Add('kdprojekt.vw_name2, kdprojekt.vw_konto, kdprojekt.vw_telefon, kdprojekt.vw_telefax, kdprojekt.vw_ort, kdprojekt.vw_strasse, kdprojekt.vw_lk, kdprojekt.vw_staat,');
adoquery9.SQL.Add('kdprojekt.vw_land, kdprojekt.vw_plz, kdprojekt.telefon, kdprojekt.telefax, kdprojekt.email, sbpersonal.name, sbpersonal.telefon,');
adoquery9.SQL.Add('sbpersonal.telefax,');
adoquery9.SQL.Add('vnpersonal.name, vnpersonal.telefon, vnpersonal.telefax, kdprojekt.leistung, kdprojekt.ihrauftrag, kdprojekt.name, kdprojekt.layout, kdprojekt.bhkonto, konten.steuer');
adoquery9.SQL.Add('FROM Kdprojekt');
adoquery9.SQL.Add('INNER JOIN Personal SBPersonal');
adoquery9.SQL.Add('ON (Kdprojekt.SBNr = SBPersonal.persnr)');
adoquery9.SQL.Add('INNER JOIN Personal VNPersonal');
adoquery9.SQL.Add('ON (Kdprojekt.Vnr = VNPersonal.persnr)');
adoquery9.SQL.Add('INNER JOIN Konten');
adoquery9.SQL.Add('ON (Kdprojekt.Bhkonto = Konten.Konto)');
adoquery9.SQL.Add('where kdprojekt.projektnr = ' + quotedstr(kdprojekt.ADOQuery1.FieldByName('projektnr').AsString));
adocommand1.CommandText := adoquery9.SQL.Text;
adocommand1.Execute; |
Martok