OBJECT Report 50000 Annual Sales Analysis Chart { OBJECT-PROPERTIES { Date=06/14/21; Time=[ 4:59:59 AM]; Modified=Yes; Version List=Vidura/www.navuser.com; } PROPERTIES { } DATASET { { 1 ; ;DataItem;MonthLoop ; DataItemTable=Table2000000026; DataItemTableView=WHERE(Number=FILTER(1..12)); OnAfterGetRecord=VAR StartDate@1000 : Date; EndDate@1001 : Date; BEGIN StartDate:=DMY2DATE(1,Number,Year); EndDate:=CALCDATE('',StartDate); SalesAmount:=GetNetSale(StartDate,EndDate); MonthText:=FORMAT(StartDate,3,''); END; } { 2 ;1 ;Column ;Year ; SourceExpr=Year } { 3 ;1 ;Column ;SalesAmount ; SourceExpr=SalesAmount } { 4 ;1 ;Column ;MonthText ; SourceExpr=MonthText } { 5 ;1 ;Column ;Number_MonthLoop ; SourceExpr=MonthLoop.Number } } REQUESTPAGE { PROPERTIES { OnOpenPage=BEGIN Year:=DATE2DMY(WORKDATE,3); END; } CONTROLS { { 1 ; ;Container ; Name=Content; ContainerType=ContentArea } { 2 ;1 ;Field ; CaptionML=ENU=Year; SourceExpr=Year } } } LABELS { } CODE { VAR Year@1000 : Integer; SalesAmount@1001 : Decimal; MonthText@1002 : Text; LOCAL PROCEDURE GetNetSale@11(StartDate@1000 : Date;EndDate@1001 : Date) NetSale : Decimal; VAR CustLedgerEntry@1002 : Record 21; BEGIN CustLedgerEntry.SETCURRENTKEY("Document Type","Posting Date"); CustLedgerEntry.SETFILTER("Document Type",'%1|%2',CustLedgerEntry."Document Type"::Invoice,CustLedgerEntry."Document Type"::"Credit Memo"); CustLedgerEntry.SETRANGE("Posting Date",StartDate,EndDate); IF CustLedgerEntry.FINDFIRST THEN REPEAT CustLedgerEntry.CALCFIELDS("Amount (LCY)"); NetSale+=CustLedgerEntry."Amount (LCY)"; UNTIL CustLedgerEntry.NEXT=0; END; BEGIN END. } RDLDATA { 0 SQL None 4f953808-0d65-47a6-bf98-077f9683fac3 DataSource Year SalesAmount SalesAmountFormat MonthText Number_MonthLoop DataSet Report.xsd Result =Fields!MonthText.Value =Fields!Number_MonthLoop.Value =Fields!MonthText.Value Sales Amount =Sum(Fields!SalesAmount.Value) 8pt #5c5c5c true False 0.5 NaN NaN NaN 8pt #5c5c5c False 0.5 NaN Opposite NaN NaN 8pt #5c5c5c 0.5 NaN NaN NaN 8pt #5c5c5c 0.5 NaN Opposite NaN NaN TopLeft Black Black Bar Chart TopLeft Pacific No Data Available DataSet_Result 0.01389in 3.39111in 9.38542in White None =Fields!MonthText.Value =Fields!Number_MonthLoop.Value =Fields!MonthText.Value Sales Amount =Sum(Fields!SalesAmount.Value) 8pt #5c5c5c False 0.5 NaN NaN NaN 8pt #5c5c5c False 0.5 NaN Opposite NaN NaN 8pt #5c5c5c 0.5 NaN NaN NaN 8pt #5c5c5c 0.5 NaN Opposite NaN NaN Black Black Pie Chart TopLeft No Data Available DataSet_Result 3.405in 2.97917in 6.81125in 1 White None 6.38417in =First(Fields!Year.Value, "DataSet_Result") 2pt 2pt 2pt 2pt