Codeproblem

[mgerhartz]

Hi,

ich habe folgendes Problem. Ich habe einen paar Zeilen Code in einen Bericht eingefügt.

Code: Alles auswählen

//-----------------------UO1.39.001----Start-------------------------------
AnzZeilen := 0;
AktuellesJahr := DATE2DMY(TODAY, 3);
IF AktuellesJahr = buja THEN                                                  // wenn das Buchungsjahr dem aktuellen entspricht,
  ReBePflicht := Structure."Accounts Statement Liability"                     // dann in der Gliederung schauen
ELSE
BEGIN
  StructureHistory.SETCURRENTKEY(StructureHistory."Structure No.");
  StructureHistory.SETRANGE(StructureHistory."Structure No.","Structure No.");
  StructureHistory.SETRANGE(StructureHistory.Year,buja);

//---------Prüfen, ob innerhalb des Filtes mehr als eine Zeile existiert---------

  IF StructureHistory.FIND('-') THEN                                         // gibt es einen Eintrag, dann Zeilen zählen
  BEGIN
    REPEAT
    AnzZeilen := AnzZeilen + 1;
    UNTIL StructureHistory.NEXT = 0;
  END
    ELSE                                                                     // gibt es keinen Eintrag, dann Range lösen und solange
  BEGIN                                                                      // zurückgehen, bis Eintrag gefunden wurde
    REPEAT
    StructureHistory.SETRANGE(StructureHistory.Year);
    StructureHistory.SETRANGE(StructureHistory.Year,(buja-1));
    UNTIL StructureHistory.FIND('-');
    BEGIN
      REPEAT                                                                 // gibt es einen Eintrag, dann Zeilen zählen
      AnzZeilen := AnzZeilen + 1;
      UNTIL StructureHistory.NEXT = 0;
    END
  END;

// ------------------------------

  IF AnzZeilen = 1 THEN                                               // existiert nur eine Zeile, dann wird diese genommen
    ReBePflicht := StructureHistory."Accounts Statement Liability"
  ELSE                                                                // gibt es mehr Zeilen, dann eine Zeile zurück und diesen Wert
    StructureHistory.FIND('+');                                       // nehmen und das Ergebnis umkehren
    ZeilenNr := StructureHistory."Line No.";
    IF StructureHistory.GET("Structure No.",(ZeilenNr)) THEN
      ReBePflicht :=  StructureHistory."Accounts Statement Liability";
    IF StructureHistory.GET("Structure No.",(ZeilenNr - 1)) THEN
      ReBePflicht1 := StructureHistory."Accounts Statement Liability";
    IF ReBePflicht <> ReBePflicht1 THEN
    BEGIN
      IF ReBePflicht = TRUE THEN
        ReBePflicht := FALSE
      ELSE
        ReBePflicht := TRUE;
    END
      ELSE
      ReBePflicht :=  StructureHistory."Accounts Statement Liability";
END;

Führe ich den Report mit dem Filter Gliederungsnummer = 13* aus funktioniert das reibungslos. Nehme ich einen größen Bereich bspw. 07000000..13000000, dann hängt sich Navision auf.

Nehme an, dass die Repeat Until Schleife nicht sauber programmiert ist.

[feri]

hi,
die Schleifen zum Zaehlen kannst du mit dem Befehl Anzahl := Tabelle.Count() vereinfachen.

Das schaut mir spontan nach einer Endlosschleife aus. buja selbst wird nicht veraendert, und wenn er im ersten Durchgang nichts findet bleibt er da drinnen ;). Ist StructureHistory.Year ein Date Feld? Ich frage mich gerade, ob nicht ein SETFILTER kombiniert mit CALCDATE() notwendig ist.

Zum Testen wegen der Endlosschleife kannst du ja den Debugger aktivieren.

Bei der 2. Schleife kannst du wieder den COUNT Befehl verwenden.

REPEAT
StructureHistory.SETRANGE(StructureHistory.Year);
StructureHistory.SETRANGE(StructureHistory.Year,(buja-1));
UNTIL StructureHistory.FIND('-');
BEGIN
REPEAT
AnzZeilen := AnzZeilen + 1;
UNTIL StructureHistory.NEXT = 0;
END

[mgerhartz]

Hi Feri,

danke für die Antwort. Habe die Zähl-Schleife durch COUNT ersetzt. Das Feld StructureHistory.Year ist vom Typ Integer. So muss jetzt meinen Zug bekommen. Werde aber zu Hause weiter daran arbeiten.

[mgerhartz]

Ich benötige noch ein richtiges Ausstiegskriterium. Die Zeile

"UNTIL ((StructureHistory.Year = 2000) OR (StructureHistory.FIND('-')));"

sollte auch einen Ausstieg bewirken, wenn ein Eintrag gefunden wurde und der Filter das Jahr 2000...

StructureHistory.SETRANGE(Year,2000);

...erreicht hat. Habe ich den Code so richtig geschrieben?

Übrigens habe ich, glaube ich zumindest, den Grund fürs Aufhängen gefunden. Einige Datensätze wurden erst in diesem Jahr angelegt. Wenn man den Filter BuJa = 2005 wählt, dann findet er keinen entsprechenden Eintrag. Jedenfalls lasse ich vorher prüfen, ob das Jahr im Filter kleiner ist als das Jahr der Erstellung des Datensatzes. Ist das der Fall, dann CurrReport.SKIP;

Code: Alles auswählen

//---------Prüfen, ob innerhalb des Filtes mehr als eine Zeile existiert-----------------------------------------------------------

  StructureHistory.SETRANGE(StructureHistory."Structure No.","Structure No.");
  StructureHistory.SETRANGE(StructureHistory.Year,buja);
  IF StructureHistory.FIND('-') THEN                                          // BuJa = SH.Year (Treffer)
  BEGIN
    AnzZeilen := StructureHistory.Count;                                      // Zeilen zählen
  END
    ELSE
  BEGIN
    REPEAT
    StructureHistory.SETRANGE(StructureHistory.Year);                         // Alte RANGE lösen
    StructureHistory.SETRANGE(StructureHistory.Year,(buja-1));                // BuJa = SH.Year (Kein Treffer), dann (BuJa-1)
    UNTIL ((StructureHistory.Year = 2000) OR (StructureHistory.FIND('-')));   // bis Year = 2000 ODER Treffer
    IF StructureHistory.FIND('-') THEN
    BEGIN
      AnzZeilen := StructureHistory.Count;                                    // Zeilen zählen
    END
  END;

So, nun genug für heute gekrübelt. Schließlich ist heute Feiertag. Morgen wieder frisch ans Werk.

P.S.: Kann auch keine genaue Aussagen darüber treffen, ob der Fehler behoben ist, da ich zu Hause eine älter Version der Datenbank habe.

[rotsch]

"UNTIL ((StructureHistory.Year = 2000) OR (StructureHistory.FIND('-')));"

Ich würde stattdessen folgendes verwenden:

Code: Alles auswählen

UNTIL (StructureHistory.Year = 2000) OR (StructureHistory.NEXT = 0);

Dann hört die Schleife auf, wenn keine Datensätze mehr vorhanden sind. Mit FIND('-') springst du ja jeweils wieder an den Anfang der Tabelle.

[mgerhartz]

Hi Rotsch,

danke für den Hinweis. Habe ich sofort geändert.

Gruß

Markus