[gelöst]Fehler beim Anlegen von mehrenen Kont. per Nav. Code

Hallo Leute,

Bin ziemlich neu in der Navisionentwicklung bzw. Bastlerei

Hab jetzt folgendes Problem
Hab in einer tabelle einige 1000 Kontaktdatenbank und möchten
alle die im Feld Leading NAV-KTNR mit exc beginnen in Navision als
Kontakt anlegen.

Folgender Code sollte das tun. Problem ist das der Kontakt angelegt wird, und dann
bei Insert die Meldung kommt. Die Kontakt existiert bereits. Identifiziert Felder und Werte Nr. = "KT020533"

Als Kontaktname hab ich hier die laufende Nummer des Kontaktes verwendet.

Vielleich hat jemand ne Idee! Unser Navisionconsulant ist scheinbar nicht daran interessiert.

Code:

ContLink.RESET;
ContLink.SETFILTER("leading NAV-KTNR", 'exc*');
IF ContLink.FINDSET THEN BEGIN
  Window.OPEN(Text000);
  Counter := 0;
  TotalCounter := ContLink.COUNT;

   REPEAT
   IF (ContLink.Processed = FALSE) THEN BEGIN
      IF LOWERCASE(ContLink."No.") = LOWERCASE(ContLink."leading NAV-KTNR") THEN BEGIN

        ContNew.INIT;
        ContNew.Name:=format(Counter);
        ContNew.INSERT(TRUE);
        COMMIT;

        ContLink.Processed := TRUE;
        ContLink.MODIFY;
        COMMIT;
      END;
  Counter += 1;
  Window.UPDATE(1,ROUND(Counter / TotalCounter * 10000,1));
  END;
  UNTIL ContLink.NEXT= 0;
  Window.CLOSE;
END;

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Zuletzt geändert von fic5020 am 1. Februar 2013 16:52, insgesamt 1-mal geändert.

Das dürfte daran liegen, dass ein "init" den Datensatz nicht komplett leert; die Primärschlüsselfelder bleiben gefüllt. Du müsstest also die Kontaktnummer noch auf leer setzen oder statt des Init ein Clear verwenden.

Hallo McClane,

hat super funktioniert. Hab nach dem Insert eine Zeile
"ContNew."No.":='';
eingefügt.
Jetzt lief das Script durch.

Vielen, Vielen Dank!

Klappt in diesem Fall, aber sinnvoller wäre es vor dem Insert gewesen. Denn falls du den Datensatz nach dem Insert noch bearbeiten möchtest, kommst du sonst in Probleme.