{*******************************************************}
{ }
{ Responsive Software http://www.responsive.co.nz }
{ }
{ Copyright (c) 2003-2006 Responsive Software Limited }
{ }
{*******************************************************}
unit HTTPUtilities;
interface
uses
IBDatabase;
function HTMLPageHeader : string;
function HTMLPageFooter : string;
function DayOptions : string;
function MonthOptions : string;
function YearOptions : string;
function SalespersonOptions : string;
function CompanyOptions : string;
implementation
uses
SysUtils, GeneralUtilities, Globals,
DatabaseObjects, DatabaseManager, Utilities;
function HTMLPageHeader : string;
begin
Result := ''
+ '
' + GlobalConfiguration.CompanyName
+ '
';
end;
function HTMLPageFooter : string;
begin
Result := '
' + ReportFooterString + '
'
+ ''
+ '';
end;
function DayOptions : string;
var
i : integer;
begin
Result := '';
for i := 1 to 31 do
begin
if i = CurrentDay then
Result := Result + '