So habe es wieder abgeändert, bringt aber nichts. Fehler kommt mal, mal nicht.
Delphi-Quellcode:
while not qryBildAlt.eof do
begin
Query_Quelle.close;
Query_Quelle.ParamByName('PATIENTNR').AsInteger:= qryBildAlt.FieldByName('PATIENTNR').AsInteger;
Query_Quelle.Open;
Query_Ziel.ParamByName('PATIENTNR').Value := qryBildAlt.FieldByName('PATIENTNR').AsInteger;
Query_Ziel.ParamByName('PATIENTENNUMMER').AsInteger := Query_Quelle.FieldByName('PATIENTENNUMMER').AsInteger;
Query_Ziel.ParamByName('SUCHWORT').AsString := Query_Quelle.FieldByName('SUCHWORT').AsString;
Query_Ziel.ParamByName('ANREDE').AsString := Query_Quelle.FieldByName('ANREDE').AsString;
Query_Ziel.ParamByName('TITEL').AsString := Query_Quelle.FieldByName('TITEL').AsString;
Query_Ziel.ParamByName('VORNAME').AsString := Query_Quelle.FieldByName('VORNAME').AsString;
Query_Ziel.ParamByName('NAME').AsString := Query_Quelle.FieldByName('NAME').AsString;
Query_Ziel.ParamByName('STRASSE').AsString := Query_Quelle.FieldByName('STRASSE').AsString;
Query_Ziel.ParamByName('LKZ').AsString := Query_Quelle.FieldByName('LKZ').AsString;
Query_Ziel.ParamByName('PLZ').AsString := Query_Quelle.FieldByName('PLZ').AsString;
Query_Ziel.ParamByName('ORT').AsString := Query_Quelle.FieldByName('ORT').AsString;
Query_Ziel.ParamByName('BRIEFANREDE').AsString := Query_Quelle.FieldByName('BRIEFANREDE').AsString;
Query_Ziel.ParamByName('TELEFON').AsString := Query_Quelle.FieldByName('TELEFON').AsString;
Query_Ziel.ParamByName('GESCHAEFTSTELEFON').AsString := Query_Quelle.FieldByName('GESCHAEFTSTELEFON').AsString;
Query_Ziel.ParamByName('TELEFAX').AsString := Query_Quelle.FieldByName('TELEFAX').AsString;
Query_Ziel.ParamByName('TELEFAX2').AsString := Query_Quelle.FieldByName('TELEFAX2').AsString;
Query_Ziel.ParamByName('MOBILFUNK').AsString := Query_Quelle.FieldByName('MOBILFUNK').AsString;
Query_Ziel.ParamByName('EMAIL').AsString := Query_Quelle.FieldByName('EMAIL').AsString;
Query_Ziel.ParamByName('GEBURTSDATUM').AsDateTime := Query_Quelle.FieldByName('GEBURTSDATUM').AsDateTime;
Query_Ziel.ParamByName('GEBURTSTAG').AsInteger := Query_Quelle.FieldByName('GEBURTSTAG').AsInteger;
Query_Ziel.ParamByName('GEBURTSMONAT').AsString := Query_Quelle.FieldByName('GEBURTSMONAT').AsString;
Query_Ziel.ParamByName('GEBURTSMONAT_ZAHL').AsInteger := Query_Quelle.FieldByName('GEBURTSMONAT_ZAHL').AsInteger;
Query_Ziel.ParamByName('GEBURTSJAHR').AsInteger := Query_Quelle.FieldByName('GEBURTSJAHR').AsInteger;
Query_Ziel.ParamByName('GESCHLECHT').AsString := Query_Quelle.FieldByName('GESCHLECHT').AsString;
Query_Ziel.ParamByName('FAMILIENSTAND').AsString := Query_Quelle.FieldByName('FAMILIENSTAND').AsString;
Query_Ziel.ParamByName('KINDER').AsInteger := Query_Quelle.FieldByName('KINDER').AsInteger;
Query_Ziel.ParamByName('BERUF').AsString := Query_Quelle.FieldByName('BERUF').AsString;
Query_Ziel.ParamByName('HAUSARZT').AsString := Query_Quelle.FieldByName('HAUSARZT').AsString;
Query_Ziel.ParamByName('GEBUEHSATZ').AsString := Query_Quelle.FieldByName('GEBUEHSATZ').AsString;
Query_Ziel.ParamByName('KASSENNAME').AsString := Query_Quelle.FieldByName('KASSENNAME').AsString;
Query_Ziel.ParamByName('KASSENNUMMER').AsString := Query_Quelle.FieldByName('KASSENNUMMER').AsString;
Query_Ziel.ParamByName('VERSICHERTENNUMMER').AsString := Query_Quelle.FieldByName('VERSICHERTENNUMMER').AsString;
Query_Ziel.ParamByName('VERISCHERTENSTATUS').AsString := Query_Quelle.FieldByName('VERISCHERTENSTATUS').AsString;
Query_Ziel.ParamByName('GUELTIGBIS').AsDateTime := Query_Quelle.FieldByName('GUELTIGBIS').AsDateTime;
Query_Ziel.ParamByName('BLUTGRUPPE').AsString := Query_Quelle.FieldByName('BLUTGRUPPE').AsString;
Query_Ziel.ParamByName('AUFNAHMEDATUM').AsDateTime := Query_Quelle.FieldByName('AUFNAHMEDATUM').AsDateTime;
Query_Ziel.ParamByName('LETZTESBEHANDLUNGSDATUM').AsDateTime := Query_Quelle.FieldByName('LETZTESBEHANDLUNGSDATUM').AsDateTime;
Query_Ziel.ParamByName('NAECHSTERTERMIN').AsDateTime := Query_Quelle.FieldByName('NAECHSTERTERMIN').AsDateTime;
Query_Ziel.ParamByName('UHRZEIT').AsDateTime := Query_Quelle.FieldByName('UHRZEIT').AsDateTime;
Query_Ziel.ParamByName('TERMINGRUND').AsString := Query_Quelle.FieldByName('TERMINGRUND').AsString;
Query_Ziel.ParamByName('KOMPRIMIERTERDRUCK').AsString := Query_Quelle.FieldByName('KOMPRIMIERTERDRUCK').AsString;
Query_Ziel.ParamByName('LABORAUFTRAGSNUMMER').AsString := Query_Quelle.FieldByName('LABORAUFTRAGSNUMMER').AsString;
Query_Ziel.ParamByName('BUCHEN').AsString := Query_Quelle.FieldByName('BUCHEN').AsString;
Query_Ziel.ParamByName('KONTONUMMER').AsInteger := Query_Quelle.FieldByName('KONTONUMMER').AsInteger;
Query_Ziel.ParamByName('ANAMNESE').AsString := Query_Quelle.FieldByName('ANAMNESE').AsString;
Query_Ziel.ParamByName('BEMERKUNG').AsString := Query_Quelle.FieldByName('BEMERKUNG').AsString;
Query_Ziel.ParamByName('BILD').AsString := Query_Quelle.FieldByName('BILD').AsString;
Query_Ziel.ParamByName('DRUCKANZAHL').AsInteger := Query_Quelle.FieldByName('DRUCKANZAHL').AsInteger;
Query_Ziel.ParamByName('KRITERIUM1').AsString := Query_Quelle.FieldByName('KRITERIUM1').AsString;
Query_Ziel.ParamByName('KRITERIUM2').AsString := Query_Quelle.FieldByName('KRITERIUM2').AsString;
Query_Ziel.ParamByName('KRITERIUM3').AsString := Query_Quelle.FieldByName('KRITERIUM3').AsString;
Query_Ziel.ParamByName('BANKNAME').AsString := Query_Quelle.FieldByName('BANKNAME').AsString;
Query_Ziel.ParamByName('BLZ').AsString := Query_Quelle.FieldByName('BLZ').AsString;
Query_Ziel.ParamByName('BANKKONTONUMMER').AsString := Query_Quelle.FieldByName('BANKKONTONUMMER').AsString;
Query_Ziel.ParamByName('BANKABBUCHUNG').AsString := Query_Quelle.FieldByName('BANKABBUCHUNG').AsString;
Query_Ziel.ParamByName('ANLAGE').AsDateTime := Query_Quelle.FieldByName('ANLAGE').AsDateTime;
Query_Ziel.ParamByName('ANLAGEBENUTZER').AsString := Query_Quelle.FieldByName('ANLAGEBENUTZER').AsString;
Query_Ziel.ParamByName('AENDERUNG').AsDateTime := Query_Quelle.FieldByName('AENDERUNG').AsDateTime;
Query_Ziel.ParamByName('AENDERUNGBENUTZER').AsString := Query_Quelle.FieldByName('AENDERUNGBENUTZER').AsString;
Query_Ziel.ParamByName('BEHANDLUNGSZEITVON').AsDateTime := Query_Quelle.FieldByName('BEHANDLUNGSZEITVON').AsDateTime;
Query_Ziel.ParamByName('BEHANDLUNGSZEITBIS').AsDateTime := Query_Quelle.FieldByName('BEHANDLUNGSZEITBIS').AsDateTime;
Query_Ziel.ParamByName('BEHANDLUNGSTAG').AsDateTime := Query_Quelle.FieldByName('BEHANDLUNGSTAG').AsDateTime;
Query_Ziel.ParamByName('BEHANDLUNGSZEITNEU').AsDateTime := Query_Quelle.FieldByName('BEHANDLUNGSZEITNEU').AsDateTime;
Query_Ziel.ParamByName('BEFUND').AsString := Query_Quelle.FieldByName('BEFUND').AsString;
Query_Ziel.ParamByName('FACHARZT').AsString := Query_Quelle.FieldByName('FACHARZT').AsString;
Query_Ziel.ParamByName('UNTERSUCHUNG').AsString := Query_Quelle.FieldByName('UNTERSUCHUNG').AsString;
Query_Ziel.ParamByName('ERLOESKONTO').AsInteger := Query_Quelle.FieldByName('ERLOESKONTO').AsInteger;
Query_Ziel.ParamByName('RECHNUNGSFORMULAR').AsString := Query_Quelle.FieldByName('RECHNUNGSFORMULAR').AsString;
Query_Ziel.ParamByName('FAMILIENANAMNESE').AsString := Query_Quelle.FieldByName('FAMILIENANAMNESE').AsString;
Query_Ziel.ParamByName('KRANKHEITEN').AsString := Query_Quelle.FieldByName('KRANKHEITEN').AsString;
Query_Ziel.ParamByName('THERAPIEPLAN').AsString := Query_Quelle.FieldByName('THERAPIEPLAN').AsString;
Query_Ziel.ParamByName('SPONTANBERICHT').AsString := Query_Quelle.FieldByName('SPONTANBERICHT').AsString;
Query_Ziel.ParamByName('GELENKTERBERICHT').AsString := Query_Quelle.FieldByName('GELENKTERBERICHT').AsString;
Query_Ziel.ParamByName('DAUERDIAGNOSE').AsString := Query_Quelle.FieldByName('DAUERDIAGNOSE').AsString;
Query_Ziel.ParamByName('RISIKO').AsString := Query_Quelle.FieldByName('RISIKO').AsString;
Query_Ziel.ParamByName('RISIKO_BEMERKUNG').Value := Query_Quelle.FieldByName('RISIKO_BEMERKUNG').AsString;
Query_Ziel.ParamByName('GEWICHT').AsFloat := Query_Quelle.FieldByName('GEWICHT').AsFloat;
Query_Ziel.ParamByName('GROESSE').AsInteger := Query_Quelle.FieldByName('GROESSE').AsInteger;
Query_Ziel.ParamByName('BILDEXT').AsString := Query_Quelle.FieldByName('BILDEXT').AsString;
Query_Ziel.ParamByName('ZAHLUNGSZIEL').AsInteger := Query_Quelle.FieldByName('ZAHLUNGSZIEL').AsInteger;
Query_Ziel.ParamByName('ID').AsInteger := Query_Quelle.FieldByName('ID').AsInteger;
Query_Ziel.ParamByName('MEDIKATION').AsString := Query_Quelle.FieldByName('MEDIKATION').AsString;
Query_Ziel.ParamByName('VERWANDT').AsString := Query_Quelle.FieldByName('VERWANDT').AsString;
Query_Ziel.ParamByName('VERSICHERUNGSART').AsString := Query_Quelle.FieldByName('VERSICHERUNGSART').AsString;
Query_Ziel.ParamByName('GEBURTSTAGSBRIEF').AsString := Query_Quelle.FieldByName('GEBURTSTAGSBRIEF').AsString;
Query_Ziel.ParamByName('NEUJAHRSBRIEF').AsString := Query_Quelle.FieldByName('NEUJAHRSBRIEF').AsString;
Query_Ziel.ParamByName('WEIHNACHTSBRIEF').AsString := Query_Quelle.FieldByName('WEIHNACHTSBRIEF').AsString;
Query_Ziel.ParamByName('PATDIAGNOSE').AsString := Query_Quelle.FieldByName('PATDIAGNOSE').AsString;
Query_Ziel.ParamByName('PATLEISTUNGEN').AsString := Query_Quelle.FieldByName('PATLEISTUNGEN').AsString;
Query_Ziel.ParamByName('KOPFTEXT').AsString := Query_Quelle.FieldByName('KOPFTEXT').AsString;
Query_Ziel.ParamByName('FUSSTEXT').AsString := Query_Quelle.FieldByName('FUSSTEXT').AsString;
Query_Ziel.ParamByName('PATABSCHLUSS').AsString := Query_Quelle.FieldByName('PATABSCHLUSS').AsString;
Query_Ziel.ParamByName('PRIVATVERSICHERERNR').AsInteger := Query_Quelle.FieldByName('PRIVATVERSICHERERNR').AsInteger;
Query_Ziel.ParamByName('NAMENSZUSATZ').AsString := Query_Quelle.FieldByName('NAMENSZUSATZ').AsString;
Query_Ziel.ParamByName('ZAHLUNGSBEDINGUNGBAR').AsInteger := Query_Quelle.FieldByName('ZAHLUNGSBEDINGUNGBAR').AsInteger;
Query_Ziel.ParamByName('ZAHLUNGSBEDINGUNGUNBAR').AsInteger := Query_Quelle.FieldByName('ZAHLUNGSBEDINGUNGUNBAR').AsInteger;
Query_Ziel.ParamByName('TEXTVORRECHNUNGSPOSITION').AsInteger := Query_Quelle.FieldByName('TEXTVORRECHNUNGSPOSITION').AsInteger;
Query_Ziel.ParamByName('MAHNUNG1KOPF').AsInteger := Query_Quelle.FieldByName('MAHNUNG1KOPF').AsInteger;
Query_Ziel.ParamByName('MAHNUNG1FUSS').AsInteger := Query_Quelle.FieldByName('MAHNUNG1FUSS').AsInteger;
Query_Ziel.ParamByName('MAHNUNG2KOPF').AsInteger := Query_Quelle.FieldByName('MAHNUNG2KOPF').AsInteger;
Query_Ziel.ParamByName('MAHNUNG2FUSS').AsInteger := Query_Quelle.FieldByName('MAHNUNG2FUSS').AsInteger;
Query_Ziel.ParamByName('MAHNUNG3KOPF').AsInteger := Query_Quelle.FieldByName('MAHNUNG3KOPF').AsInteger;
Query_Ziel.ParamByName('MAHNUNG3FUSS').AsInteger := Query_Quelle.FieldByName('MAHNUNG3FUSS').AsInteger;
Query_Ziel.ParamByName('RECHNUNGPERMAIL').AsString := Query_Quelle.FieldByName('RECHNUNGPERMAIL').AsString;
Query_Ziel.ParamByName('REZEPTFORMULAR').AsString := Query_Quelle.FieldByName('REZEPTFORMULAR').AsString;
Query_Ziel.ParamByName('MAILBODY').AsInteger := Query_Quelle.FieldByName('MAILBODY').AsInteger;
Query_Ziel.ParamByName('GEBURTSZEIT').AsDate := Query_Quelle.FieldByName('GEBURTSZEIT').AsDateTime;
Query_Ziel.ParamByName('VERSICHERERAUSNP7').AsString := Query_Quelle.FieldByName('VERSICHERERAUSNP7').AsString;
Query_Ziel.ParamByName('MAILRECHNUNGSFORMULAR').AsString := Query_Quelle.FieldByName('MAILRECHNUNGSFORMULAR').AsString;
Query_Ziel.ParamByName('RECHNUNGENOHNEDRUCK').Value := Query_Quelle.FieldByName('RECHNUNGENOHNEDRUCK').AsString;
Query_Ziel.ParamByName('RECHNUNGALSPDF').AsString := Query_Quelle.FieldByName('RECHNUNGALSPDF').AsString;
Query_Ziel.ParamByName('VERSTORBEN').AsString := Query_Quelle.FieldByName('VERSTORBEN').AsString;
Query_Ziel.ParamByName('STERBEDATUM').AsDateTime := Query_Quelle.FieldByName('STERBEDATUM').AsDateTime;
Query_Ziel.ParamByName('SERIENBRIEFTEILNAHME').Value := Query_Quelle.FieldByName('SERIENBRIEFTEILNAHME').AsString;
Query_Ziel.ParamByName('BIC').AsString := Query_Quelle.FieldByName('BIC').AsString;
Query_Ziel.ParamByName('BIRTHDAYOFTHEYEAR').AsInteger := Query_Quelle.FieldByName('BIRTHDAYOFTHEYEAR').AsInteger;
Query_Ziel.ParamByName('ZAHLUNGSART').AsString := Query_Quelle.FieldByName('ZAHLUNGSART').AsString;
Query_Ziel.ParamByName('MANDANTENBANK').AsString := Query_Quelle.FieldByName('MANDANTENBANK').AsString;
Query_Ziel.ParamByName('IBAN').AsString := Query_Quelle.FieldByName('IBAN').AsString;
Query_Ziel.ParamByName('RECHNUNGALSPDFUNDDRUCK').AsString := Query_Quelle.FieldByName('RECHNUNGALSPDFUNDDRUCK').AsString;
Query_Ziel.ParamByName('BEHANDLER').AsString := Query_Quelle.FieldByName('BEHANDLER').AsString;
Query_Ziel.ParamByName('BUDGET').AsFloat := Query_Quelle.FieldByName('BUDGET').AsFloat;
Query_Ziel.ExecSQL;
qryBildAlt.next;
end;
end;
Kann doch nicht sein das Delphi mal so reagiert und mal anders, wobei am Code nichts verändert wird.