3. Dezember 2015 12:02
3. Dezember 2015 13:29
…kann man die Request Page auch über den RTC aufrufen, um den XMLPort von dort zu starten?
8. Dezember 2015 14:57
TempTBExp.DELETEALL;
EntryNo := 0;
IF GLAccount.FINDSET THEN BEGIN
  REPEAT
    DimensionValue1.SETFILTER("Dimension Code", 'KOSTENSTELLE');
    IF DimensionValue1.FINDSET THEN BEGIN
      REPEAT
          IF NOT CalculateValues(GLAccount, DimensionValue1.Code) THEN BEGIN
            EntryNo += 1;
            TempTBExp.INIT;
            TempTBExp."Entry No." := EntryNo;
            TempTBExp."G/L Account No." := GLAccount."No.";
            TempTBExp."G/L Account Name" := GLAccount.Name;
            TempTBExp."Global Dimension 1 Code" := DimensionValue1.Code;
            TempTBExp."Net Change" := NetChangeValue;
            TempTBExp.Balance := BalanceValue;
            TempTBExp.INSERT;
          END;
      UNTIL DimensionValue1.NEXT = 0;
    END;
  UNTIL GLAccount.NEXT = 0;
END;GLEntry.SETRANGE("Posting Date",PeriodStartingDate,PeriodEndingDate);
GLEntry.SETFILTER("Global Dimension 1 Code", DimensionValue1.Code);
GLEntry.SETFILTER("G/L Account No.",GLAcc."No.");
SkipEntry := TRUE;
IF GLEntry.FINDSET THEN BEGIN
  REPEAT
    SkipEntry := FALSE;
    NetChangeValue += GLEntry.Amount;
    BalanceValue += GLEntry.Amount;
  UNTIL GLEntry.NEXT = 0;
END;