OBJECT Report 4 Detail Trial Balance { OBJECT-PROPERTIES { Date=08.12.15; Time=20:50:11; Modified=Yes; Version List=NAVW18.00.00.39368; } PROPERTIES { CaptionML=[DEU=Sachkonto - Kontoblatt; ENU=Detail Trial Balance]; OnPreReport=BEGIN GLFilter := "G/L Account".GETFILTERS; GLDateFilter := "G/L Account".GETFILTER("Date Filter"); END; PreviewMode=PrintLayout; } DATASET { { 6710; ;DataItem; ; DataItemTable=Table15; DataItemTableView=WHERE(Account Type=CONST(Posting)); PrintOnlyIfDetail=Yes; OnPreDataItem=BEGIN PageGroupNo := 1; CurrReport.NEWPAGEPERRECORD := PrintOnlyOnePerPage; END; OnAfterGetRecord=BEGIN StartBalance := 0; IF GLDateFilter <> '' THEN IF GETRANGEMIN("Date Filter") <> 0D THEN BEGIN SETRANGE("Date Filter",0D,CLOSINGDATE(GETRANGEMIN("Date Filter") - 1)); CALCFIELDS("Net Change"); StartBalance := "Net Change"; SETFILTER("Date Filter",GLDateFilter); END; IF PrintOnlyOnePerPage THEN BEGIN GLEntryPage.RESET; GLEntryPage.SETRANGE("G/L Account No.","No."); IF CurrReport.PRINTONLYIFDETAIL AND GLEntryPage.FINDFIRST THEN PageGroupNo := PageGroupNo + 1; END; // dataset rows with identical glAccGroupNo belong to the same G/L Account glAccGroupNo += 1; END; ReqFilterFields=No.,Search Name,Income/Balance,Debit/Credit,Date Filter } { 3 ;1 ;Column ;PeriodGLDtFilter ; SourceExpr=STRSUBSTNO(Text000,GLDateFilter) } { 6 ;1 ;Column ;CompanyName ; SourceExpr=COMPANYNAME } { 49 ;1 ;Column ;ExcludeBalanceOnly ; SourceExpr=ExcludeBalanceOnly } { 54 ;1 ;Column ;PrintReversedEntries; SourceExpr=PrintReversedEntries } { 50 ;1 ;Column ;PageGroupNo ; SourceExpr=PageGroupNo } { 51 ;1 ;Column ;PrintClosingEntries ; SourceExpr=PrintClosingEntries } { 52 ;1 ;Column ;PrintOnlyCorrections; SourceExpr=PrintOnlyCorrections } { 10 ;1 ;Column ;GLAccTableCaption ; SourceExpr=TABLECAPTION + ': ' + GLFilter } { 48 ;1 ;Column ;GLFilter ; SourceExpr=GLFilter } { 12 ;1 ;Column ;EmptyString ; SourceExpr='' } { 61 ;1 ;Column ;No_GLAcc ; SourceExpr="No." } { 1 ;1 ;Column ;DetailTrialBalCaption; SourceExpr=DetailTrialBalCaptionLbl } { 4 ;1 ;Column ;PageCaption ; SourceExpr=PageCaptionLbl } { 8 ;1 ;Column ;BalanceCaption ; SourceExpr=BalanceCaptionLbl } { 9 ;1 ;Column ;PeriodCaption ; SourceExpr=PeriodCaptionLbl } { 47 ;1 ;Column ;OnlyCorrectionsCaption; SourceExpr=OnlyCorrectionsCaptionLbl } { 11 ;1 ;Column ;NetChangeCaption ; SourceExpr=NetChangeCaptionLbl } { 17 ;1 ;Column ;GLEntryDebitAmtCaption; SourceExpr=GLEntryDebitAmtCaptionLbl } { 18 ;1 ;Column ;GLEntryCreditAmtCaption; SourceExpr=GLEntryCreditAmtCaptionLbl } { 19 ;1 ;Column ;GLBalCaption ; SourceExpr=GLBalCaptionLbl } { 119451000;1;Column;GroupNoGLAcc ; SourceExpr=glAccGroupNo } { 8098;1 ;DataItem;PageCounter ; DataItemTable=Table2000000026; DataItemTableView=SORTING(Number) WHERE(Number=CONST(1)); OnAfterGetRecord=BEGIN CurrReport.PRINTONLYIFDETAIL := ExcludeBalanceOnly OR (StartBalance = 0); END; } { 22 ;2 ;Column ;Name_GLAcc ; SourceExpr="G/L Account".Name } { 23 ;2 ;Column ;StartBalance ; SourceExpr=StartBalance; AutoFormatType=1 } { 7069;2 ;DataItem; ; DataItemTable=Table17; DataItemTableView=SORTING(G/L Account No.,Posting Date); OnPreDataItem=BEGIN GLBalance := StartBalance; CurrReport.CREATETOTALS(Amount,"Debit Amount","Credit Amount","VAT Amount"); END; OnAfterGetRecord=BEGIN IF PrintOnlyCorrections THEN IF NOT (("Debit Amount" < 0) OR ("Credit Amount" < 0)) THEN CurrReport.SKIP; IF NOT PrintReversedEntries AND Reversed THEN CurrReport.SKIP; GLBalance := GLBalance + Amount; IF ("Posting Date" = CLOSINGDATE("Posting Date")) AND NOT PrintClosingEntries THEN BEGIN "Debit Amount" := 0; "Credit Amount" := 0; END; IF "Posting Date" = CLOSINGDATE("Posting Date") THEN ClosingEntry := TRUE ELSE ClosingEntry := FALSE; END; DataItemLinkReference=G/L Account; DataItemLink=G/L Account No.=FIELD(No.), Posting Date=FIELD(Date Filter), Global Dimension 1 Code=FIELD(Global Dimension 1 Filter), Global Dimension 2 Code=FIELD(Global Dimension 2 Filter), Business Unit Code=FIELD(Business Unit Filter) } { 25 ;3 ;Column ;VATAmount_GLEntry ; IncludeCaption=Yes; SourceExpr="VAT Amount" } { 26 ;3 ;Column ;DebitAmount_GLEntry ; SourceExpr="Debit Amount" } { 27 ;3 ;Column ;CreditAmount_GLEntry; SourceExpr="Credit Amount" } { 29 ;3 ;Column ;PostingDate_GLEntry ; SourceExpr=FORMAT("Posting Date") } { 30 ;3 ;Column ;DocumentNo_GLEntry ; SourceExpr="Document No." } { 31 ;3 ;Column ;Description_GLEntry ; SourceExpr=Description } { 35 ;3 ;Column ;GLBalance ; SourceExpr=GLBalance; AutoFormatType=1 } { 36 ;3 ;Column ;EntryNo_GLEntry ; SourceExpr="Entry No." } { 55 ;3 ;Column ;ClosingEntry ; SourceExpr=ClosingEntry } { 56 ;3 ;Column ;Reversed_GLEntry ; SourceExpr=Reversed } } REQUESTPAGE { PROPERTIES { SaveValues=Yes; } CONTROLS { { 1900000001;0;Container; ContainerType=ContentArea } { 1900000002;1;Group ; CaptionML=[DEU=Optionen; ENU=Options] } { 1 ;2 ;Field ; Name=NewPageperGLAcc; CaptionML=[DEU=Neue Seite pro Konto; ENU=New Page per G/L Acc.]; SourceExpr=PrintOnlyOnePerPage } { 2 ;2 ;Field ; Name=ExcludeGLAccsHaveBalanceOnly; CaptionML=[DEU=Ohne Konten mit Saldo; ENU=Exclude G/L Accs. That Have a Balance Only]; SourceExpr=ExcludeBalanceOnly; MultiLine=Yes } { 3 ;2 ;Field ; Name=InclClosingEntriesWithinPeriod; CaptionML=[DEU=Ultimobuchungen innerhalb der Periode einbeziehen.; ENU=Include Closing Entries Within the Period]; SourceExpr=PrintClosingEntries; MultiLine=Yes } { 6 ;2 ;Field ; Name=IncludeReversedEntries; CaptionML=[DEU=Stornierte Posten einbez.; ENU=Include Reversed Entries]; SourceExpr=PrintReversedEntries } { 4 ;2 ;Field ; Name=PrintCorrectionsOnly; CaptionML=[DEU=Nur Korrekturen drucken; ENU=Print Corrections Only]; SourceExpr=PrintOnlyCorrections } } } LABELS { { 2 ;PostingDateCaption ;CaptionML=[DEU=Buchungsdatum; ENU=Posting Date] } { 5 ;DocNoCaption ;CaptionML=[DEU=Belegnr.; ENU=Document No.] } { 7 ;DescCaption ;CaptionML=[DEU=Beschreibung; ENU=Description] } { 13 ;VATAmtCaption ;CaptionML=[DEU=MwSt.-Betrag; ENU=VAT Amount] } { 14 ;EntryNoCaption ;CaptionML=[DEU=Lfd. Nr.; ENU=Entry No.] } } CODE { VAR Text000@1000 : TextConst 'DEU=Periode: %1;ENU=Period: %1'; GLDateFilter@1001 : Text[30]; GLFilter@1002 : Text; GLBalance@1003 : Decimal; StartBalance@1004 : Decimal; PrintOnlyOnePerPage@1005 : Boolean; ExcludeBalanceOnly@1006 : Boolean; PrintClosingEntries@1007 : Boolean; PrintOnlyCorrections@1008 : Boolean; PrintReversedEntries@1009 : Boolean; PageGroupNo@1010 : Integer; GLEntryPage@1011 : Record 17; ClosingEntry@1012 : Boolean; DetailTrialBalCaptionLbl@5948 : TextConst 'DEU=Sachkonto - Kontoblatt;ENU=Detail Trial Balance'; PageCaptionLbl@6215 : TextConst 'DEU=Seite;ENU=Page'; BalanceCaptionLbl@6364 : TextConst 'DEU=Umfasst auch Sachkonten, die nur ein Saldo aufweisen.;ENU=This also includes general ledger accounts that only have a balance.'; PeriodCaptionLbl@7978 : TextConst 'DEU=Dieser Bericht enth„lt auch Ultimobuchungen innerhalb der Periode.;ENU=This report also includes closing entries within the period.'; OnlyCorrectionsCaptionLbl@1160 : TextConst 'DEU=Es werden nur Korrekturen einbezogen.;ENU=Only corrections are included.'; NetChangeCaptionLbl@2192 : TextConst 'DEU=Bewegung;ENU=Net Change'; GLEntryDebitAmtCaptionLbl@3560 : TextConst 'DEU=Soll;ENU=Debit'; GLEntryCreditAmtCaptionLbl@4092 : TextConst 'DEU=Haben;ENU=Credit'; GLBalCaptionLbl@2356 : TextConst 'DEU=Saldo;ENU=Balance'; glAccGroupNo@119451000 : Integer; PROCEDURE InitializeRequest@1(NewPrintOnlyOnePerPage@1000 : Boolean;NewExcludeBalanceOnly@1001 : Boolean;NewPrintClosingEntries@1002 : Boolean;NewPrintReversedEntries@1003 : Boolean;NewPrintOnlyCorrections@1004 : Boolean); BEGIN PrintOnlyOnePerPage := NewPrintOnlyOnePerPage; ExcludeBalanceOnly := NewExcludeBalanceOnly; PrintClosingEntries := NewPrintClosingEntries; PrintReversedEntries := NewPrintReversedEntries; PrintOnlyCorrections := NewPrintOnlyCorrections; END; BEGIN END. } RDLDATA { 0 SQL c396a512-e01c-4416-83e6-146281d0d75b DataSource PeriodGLDtFilter CompanyName ExcludeBalanceOnly PrintReversedEntries PageGroupNo PrintClosingEntries PrintOnlyCorrections GLAccTableCaption GLFilter EmptyString No_GLAcc DetailTrialBalCaption PageCaption BalanceCaption PeriodCaption OnlyCorrectionsCaption NetChangeCaption GLEntryDebitAmtCaption GLEntryCreditAmtCaption GLBalCaption GroupNoGLAcc Name_GLAcc StartBalance StartBalanceFormat VATAmount_GLEntry VATAmount_GLEntryFormat DebitAmount_GLEntry DebitAmount_GLEntryFormat CreditAmount_GLEntry CreditAmount_GLEntryFormat PostingDate_GLEntry DocumentNo_GLEntry Description_GLEntry GLBalance GLBalanceFormat EntryNo_GLEntry ClosingEntry Reversed_GLEntry DataSet Report.xsd Result 1.58793cm 1.98712cm 3.43984cm 2.37414cm 2.37414cm 2.37414cm 2.36657cm 1.49611cm 0.15cm 0.35278cm true true true true true true =First(Fields!NetChangeCaption.Value) 69 2 true true true true 0.35278cm true true true true true =IIF(First(Fields!EmptyString.Value)="","...............................................................",First(Fields!EmptyString.Value)) 59 2 true true true true 0.35278cm true true =Parameters!PostingDateCaption.Value 53 true true =Parameters!DocNoCaption.Value true true =Parameters!DescCaption.Value true true =Parameters!VATAmtCaption.Value 50 true true =First(Fields!GLEntryDebitAmtCaption.Value) 49 true true =First(Fields!GLEntryCreditAmtCaption.Value) 48 true true =First(Fields!GLBalCaption.Value) 47 true true =Parameters!EntryNoCaption.Value 46 true true Textbox44 0.17638cm true true 8 true true 0.17638cm true true Bottom 5pt 8 true true Bottom 5pt 0.35278cm true =Fields!No_GLAcc.Value 39 true true =Fields!Name_GLAcc.Value 2 true true true true true =Fields!StartBalance.Value true true true 0.35278cm true true =IIF(Fields!ClosingEntry.Value,"C"+Fields!PostingDate_GLEntry.Value,Fields!PostingDate_GLEntry.Value) 13 true true =Fields!DocumentNo_GLEntry.Value true true =Fields!Description_GLEntry.Value true true =Fields!VATAmount_GLEntry.Value true true =Code.BlankZero(Fields!DebitAmount_GLEntry.Value) true true =Code.BlankZero(Fields!CreditAmount_GLEntry.Value) true true =Fields!GLBalance.Value #efefef Top 5pt 5pt true true =Fields!EntryNo_GLEntry.Value 6 true true =Fields!GroupNoGLAcc.Value Yellow Top 5pt 0.35278cm true Top 5pt true =Fields!Name_GLAcc.Value Top 5pt 5pt 2 true true =IIF((CountDistinct(Fields!VATAmount_GLEntry.Value)=0)and(First(Fields!VATAmount_GLEntry.Value)=0),0,Sum(Fields!VATAmount_GLEntry.Value)) Top 5pt 5pt true true =Code.BlankZero(Sum(Fields!DebitAmount_GLEntry.Value)) Top 5pt 5pt true true =Code.BlankZero(Sum(Fields!CreditAmount_GLEntry.Value)) Top 5pt 5pt true true =IIF(Parameters!VATAmount_GLEntryCaption.Value<>"", Last(Fields!GLBalance.Value),Fields!StartBalance.Value) Top 5pt 5pt true Top 5pt true true =Fields!GroupNoGLAcc.Value Yellow Top 5pt 0.35278cm true true Top 5pt true true Top 5pt 5pt true true Top 5pt 5pt true true Top 5pt 5pt true true Top 5pt 5pt true true Top 5pt 5pt true true Top 5pt 5pt true true Top 5pt true true Top 5pt true After true true =IIF(CountRows()=0,TRUE,FALSE) After true true After true true After true After true =Fields!PageGroupNo.Value Between =Fields!No_GLAcc.Value After true Detail =IIF(((First(Fields!PrintClosingEntries.Value, "Table1_Group2")=FALSE) and Fields!ClosingEntry.Value) or Fields!EntryNo_GLEntry.Value<=0 or ((not Fields!PrintReversedEntries.Value)and(Fields!Reversed_GLEntry.Value)) or (Fields!PrintOnlyCorrections.Value and(not ((Fields!DebitAmount_GLEntry.Value<0)or(Fields!CreditAmount_GLEntry.Value<0)))),TRUE,FALSE) Detail_Collection Output true =IIF((CountDistinct(Fields!ClosingEntry.Value)=1) and (First(Fields!ClosingEntry.Value)) and (not Fields!PrintClosingEntries.Value),TRUE,FALSE) Before true =IIF((CountDistinct(Fields!ClosingEntry.Value)=1) and (First(Fields!ClosingEntry.Value)) and (not Fields!PrintClosingEntries.Value),TRUE,FALSE) Before =IIF((First(Fields!StartBalance.Value)=0) and (First(Fields!EntryNo_GLEntry.Value) = 0),TRUE,FALSE) true true DataSet_Result End 1.44825cm 2.82222cm 18.14999cm 18.15cm 0.35278cm true true =First(Fields!BalanceCaption.Value) 0.35278cm true true =First(Fields!PeriodCaption.Value) 0.35278cm true =Fields!OnlyCorrectionsCaption.Value =IIF(Fields!ExcludeBalanceOnly.Value,TRUE,FALSE) After true =IIF(Fields!PrintClosingEntries.Value,FALSE,TRUE) After true =IIF(Fields!PrintOnlyCorrections.Value,FALSE,TRUE) After true 1.05834cm 18.15cm 2 =IIF(CountRows()=0,TRUE,FALSE) NoOutput true =First(Fields!CompanyName.Value,"DataSet_Result") true =First(Fields!PeriodGLDtFilter.Value,"DataSet_Result") true =Globals!ExecutionTime 13.87063cm 11pt 4.27936cm 3 true =User!UserID 20pt 13.87063cm 11pt 4.27937cm 4 true =First(Fields!PageCaption.Value,"DataSet_Result") & " " & Globals!PageNumber 10pt 13.87063cm 11pt 4.27937cm 5 true true =Code.carryOver #efefef 5pt 5pt true true Continued... Textbox40 0.16051cm 0.79759cm 0.35278cm 2.36657cm 1 5pt 5pt true 1.55222cm 10.94677cm 0.57679cm 6.56104cm 6 =Code.hideCarryOver #efefef 5pt 5pt true true Continued... Textbox40 0.05996cm 0.70023cm 0.35278cm 2.36657cm 1 5pt 5pt true 0.01411cm 11.04202cm 0.56854cm 6.56104cm =Code.SetHideCarryOver(ReportItems) 29.7cm 21cm 11in 8.5in 1.76388cm 1.05834cm 1.05834cm 1.48166cm 1.27cm