pears.NetDebtorsDaySalesOutstanding

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetDebtorsDaySalesOutstanding" IS 
{CREATE FUNCTION pears."NetDebtorsDaySalesOutstanding"( IN "pAccountCode" CHAR(12),IN "DaysInPeriod" INTEGER,IN "CutoffDate" DATE ) 
RETURNS DECIMAL(10,2)
BEGIN
  DECLARE "Outst" DECIMAL(10,2);
  DECLARE "Sales" DECIMAL(10,2);
  DECLARE "dStart" DATE;
  SET "dStart" = "dateadd"("dd",-1*("daysinperiod"-1),"CutoffDate");
  SET "Outst" = (SELECT "sum"("IQacDocumentOutstandingAmount"("DocumentID","CutOffDate")) FROM "iqacdocument" WHERE "AccountCode" = "pAccountCode" AND "ledgerid" = 'Sales' AND("fullyallocated" IS NULL OR "fullyallocated" > "CutOffDate"));
  SET "Sales" = (SELECT "sum"("amount") FROM "iqacdocument" WHERE "ledgerid" = 'Sales' AND "accountcode" = "pAccountCode" AND "accountingdate" BETWEEN "dstart" AND "cutoffdate" AND "documentclass" = 'Invoice');
  IF "isnull"("Sales",0) = 0 THEN
    RETURN NULL
  ELSE
    RETURN("Outst"/"sales")*"DaysInPeriod"
  END IF
END
}