Procedure gemOrdre_tildb(v_tabel: string; v_array_gentagelser: array of string; v_array_deltur: TMatrix_deltur; v_array_ordre : TMatrix_ordre);
var
tempslq: string;
tempslq:='INSERT INTO '+v_tabel+'_deltur (pickup_navn, pickup_adr, pickup_adrnr, pickup_postnr, pickup_postby, pickup_tlf, pickup_tlf2, pickup_fax, pickup_cvrnr, pickup_www, pickup_kontakt, pickup_kontakt_email, pickup_kontakt_tlf, pickup_kontakt_mobil, pickup_dato, pickup_tid';
tempslq:=tempslq + ', dropoff_navn, dropoff_adr, dropoff_adrnr, dropoff_postnr, dropoff_postby, dropoff_tlf, dropoff_tlf2, dropoff_fax, dropoff_cvrnr, dropoff_www, dropoff_kontakt, dropoff_kontakt_email, dropoff_kontakt_tlf, dropoff_kontakt_mobil, dropoff_dato, dropoff_tid';
tempslq:=tempslq + ', v_indeks, v_kmpris, v_Nkm, v_tillaeg, v_ventetid_min, v_ventetid_kr, v_notepris, note, pod, fragt_indeks, fragt, Nfragt)';
tempslq:=tempslq + ' VALUES ("' + v_array_deltur[i,2] + '", "' + v_array_deltur[i,3] + '", "' + v_array_deltur[i,4] + '", "' + v_array_deltur[i,5] + '", "' + v_array_deltur[i,6] + '", "' + v_array_deltur[i,7] + '", "' + v_array_deltur[i,8] + '", "' + v_array_deltur[i,9] + '", "' + v_array_deltur[i,10] + '", "", "' + v_array_deltur[i,11] + '", "' + v_array_deltur[i,12] + '", "' + v_array_deltur[i,13] + '", "' + v_array_deltur[i,14] + '", "' + datetostr(strtodate(v_array_deltur[i,16])+gentagelse_frekvens[i,0]) + '", "' + v_array_deltur[i,15] +'"';
tempslq:=tempslq + ', "' + v_array_deltur[i,17] + '", "' + v_array_deltur[i,18] + '", "' + v_array_deltur[i,19] + '", "' + v_array_deltur[i,20] + '", "' + v_array_deltur[i,21] + '", "' + v_array_deltur[i,22] + '", "' + v_array_deltur[i,23] + '","' + v_array_deltur[i,24] + '","' + v_array_deltur[i,25] + '", "", "' + v_array_deltur[i,26] + '","' + v_array_deltur[i,27] + '","' + v_array_deltur[i,28] + '","' + v_array_deltur[i,29] + '","' + datetostr(strtodate(v_array_deltur[i,31])+gentagelse_frekvens[i,1]) + '","' + v_array_deltur[i,30] + '"';
tempslq:=tempslq + ', "' + tempvogn + '", "' + v_array_deltur[i,33] + '", "' + v_array_deltur[i,34] + '", "' + v_array_deltur[i,35] + '", "' + v_array_deltur[i,36] + '", "' + v_array_deltur[i,37] + '", "' + v_array_deltur[i,38] + '", "' + v_array_deltur[i,39] + '", "' + v_array_deltur[i,40] + '", "", "' + v_array_deltur[i,41] + '", ""';
....det er iøvrig en del af koden fra den procedure vi diskuterede i spørgsmål:
http://exp.dk/spm/443795 :)