FOR i := 1 TO 5 DO BEGIN SETRANGE("Date Filter",PeriodStartingDate[i],PeriodStartingDate[i + 1] - 1); CALCFIELDS("Sales ($)","Profit ($)","Inv. Discounts ($)","Pmt. Discounts ($)", "Fin. Charge Memo Amounts ($)","Payments ($)"); "Sales$"[i] := "Sales ($)"; "Profits$"[i] := "Profit ($)"; "CostOfSales$"[i] := "Sales$"[i] - "Profits$"[i]; IF "Sales$"[i] > 0 THEN "Profit%"[i] := ROUND("Profits$"[i] / "Sales$"[i] * 100,0.1) ELSE "Profit%"[i] := 0; "InvoiceDiscounts$"[i] := "Inv. Discounts ($)"; "PaymentDiscounts$"[i] := "Pmt. Discounts ($)"; "Payments$"[i] := "Payments ($)"; "FinanceCharges$"[i] := "Fin. Charge Memo Amounts ($)"; END;
Comments
http://www.BiloBeauty.com
http://www.autismspeaks.org
viewtopic.php?f=5&t=10082
you can alter it to customer sales or vendor purchases - & even item sales
it;s in FOB form since you probably don't have text import capabilities.
I've named it Report 50077 - so if you have used that # already - I suggest you move it to a new # so this report doesn't replace it when uploaded.
www.biloltd.net/Mibuso/Report50077-Item ... -Month.fob
http://www.BiloBeauty.com
http://www.autismspeaks.org