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;