Fehlersuche bei Kopierroutine

[khh]

hast ja recht

hier etwas mehr code

Code:

    aufpos2Zquery.SQL.add('select ');
    aufpos2Zquery.SQL.add('*');
    aufpos2Zquery.SQL.add('from vkaufpos where ');
    aufpos2Zquery.SQL.add('VKAUFKOPF_ID = :VKAUFKOPF_ID  ');
    aufpos2Zquery.ParamByName('VKAUFKOPF_ID').AsInteger := alteaufkopf_id;
    aufpos2Zquery.open;
    aufpos2Zquery.First;
    while not  aufpos2Zquery.EOF do
    begin
     // auftragspositionen anlegen
     Fvkaufpos.VKAUFPOS_ID:= 0; // trigger 
     Fvkaufpos.VKAUFKOPF_ID:= Fvkaufkopf.VKAUFKOPF_ID;
     Fvkaufpos.ART_ID     := aufpos2Zquery.FieldByName('ART_ID').AsInteger;
     Fvkaufpos.BESTMENGE     := aufpos2Zquery.FieldByName('BESTMENGE').AsCurrency;
    
     Fvkaufpos.EINZELPREISNETTO     := aufpos2Zquery.FieldByName('EINZELPREISNETTO').AsCurrency;
     Fvkaufpos.GESAMTPREISNETTO     := aufpos2Zquery.FieldByName('GESAMTPREISNETTO').AsCurrency;
     Fvkaufpos.MWST     := aufpos2Zquery.FieldByName('MWST').AsCurrency;
     Fvkaufpos.MWSTSATZ     := aufpos2Zquery.FieldByName('MWSTSATZ').AsCurrency;
     usw
    usw
     Fvkaufpos.DSneu; 
     // Bezeichnung anzeigen im Infosplash
     FInfoSplashForm.info1 := Fvkaufpos.BEZEICHNUNG;
     FInfosplashForm.ShowOnTop;
     FInfoSplashForm.Update(self);
     Application.ProcessMessages;
     aufpos2Zquery.Next;   


die proc DSneu 

 FQuery1.SQL.clear;
     FQuery1.SQL.add('select ');
     FQuery1.SQL.add('*');
     FQuery1.SQL.add('from vkaufpos where ');
     FQuery1.SQL.add('VKAUFPOS_ID = :VKAUFPOS_ID');
     FQuery1.ParamByName('VKAUFPOS_ID').AsInteger := FVKAUFPOS_ID;
     FQuery1.open; 
     FQuery1.append; // neuen Datensatz anhängen
  
    
     FQuery1['EINZELPREISNETTO']:= FEINZELPREISNETTO ;
     FQuery1['GESAMTPREISNETTO']:= FGESAMTPREISNETTO ;
     FQuery1['MWST']:= FMWST ;
     FQuery1['MWSTSATZ']:= FMWSTSATZ ;
     usw
    usw
    
     FQuery1.post;