ordform.cpp

suite component ace report

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "ordform.h"
//---------------------------------------------------------------------------
#pragma link "SctRep"
#pragma link "SctVar"
#pragma link "SctCtrl"
#pragma link "SctBtn"
#pragma resource "*.dfm"
TFormOrders *FormOrders;
//---------------------------------------------------------------------------
__fastcall TFormOrders::TFormOrders(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormOrders::FormClose(TObject *Sender,
	TCloseAction &Action)
{
  Action = caFree;
}
//---------------------------------------------------------------------
void __fastcall TFormOrders::ExprItemsAmountGetData(TSctVar *oVar)
{
  oVar->AsFloat = (ItemsTable->FieldByName("QTY")->AsFloat *
       PartsTable->FieldByName("COST")->AsFloat);

}
//---------------------------------------------------------------------
void __fastcall TFormOrders::SctTextLabel14LabelPrintWhen(TSctLabel *lb,
	bool &Result)
{
  Result = ! SubDataDetailBand->DataIsFinished;
}
//---------------------------------------------------------------------
void __fastcall TFormOrders::ReportPageAfterDataSkip(TSctGrouppage *Page)
{
  svarPage->AsInteger = 0;
}

void AddStream(TStream *Stream, String S)
{
  if (S.Length() > 0)
  {
    Stream->Write(S.c_str(), S.Length());
    Stream->Write("\n", 1);
  }
}

//---------------------------------------------------------------------
void __fastcall TFormOrders::ExprAddressGetData(TSctVar *oVar)
{
  TMemoryStream *Stream = new TMemoryStream;
  String CityStateZip;

  AddStream(Stream, CustomerTable->FieldByName("Company")->AsString);
  AddStream(Stream, CustomerTable->FieldByName("Addr1")->AsString);
  AddStream(Stream, CustomerTable->FieldByName("Addr2")->AsString);
  CityStateZip = SctRightTrim(CustomerTable->FieldByName("City")->AsString)
            + ", " + SctRightTrim(CustomerTable->FieldByName("State")->AsString)
            + "  " + SctRightTrim(CustomerTable->FieldByName("Zip")->AsString);
  AddStream(Stream, CityStateZip);
  AddStream(Stream, CustomerTable->FieldByName("Country")->AsString);

  oVar->AsStream = Stream;

  Stream->Free();

}

//---------------------------------------------------------------------
void __fastcall TFormOrders::SctTotalvarLabel1LabelPrintWhen(
	TSctLabel *lb, bool &Result)
{
  Result = SubDataDetailBand->DataIsFinished;
}
//---------------------------------------------------------------------