void __fastcall TFWorkAbon::AFPreviewExecute(TObject *Sender)
{ // Preview
AnsiString WPath = ExtractFilePath(ParamStr( 0 ));
 DMAbn->QAbnReport->DisableControls();
 frRepOb->LoadFromFile(WPath + "RepOborot.frf");

 /*
 frRepOb->Dictionary->Variables->Clear();
 frRepOb->Dictionary->Variables->Variable["cbTypeAbon"] =
 FWorkAbon->ChkBoxTypeAbon->Checked;
 frRepOb->Dictionary->Variables->Variable["STypeAbon"] =
 FWorkAbon->LCBoxTypeAbon->Value;
 frRepOb->Dictionary->Variables->Variable["PERIOD"] =
 "''"+ FormatDateTime("mmmm yyyy", EncodeDate(CYear, CMonth, 1)) + "''";
*/ 

        frRepOb->ShowReport();
 DMAbn->QAbnReport->EnableControls();
}

void __fastcall TFWorkAbon::frRepObGetValue(const AnsiString ParName,
      Variant &ParValue)
{
if(ParName == "cbTypeAbon") ParValue = FWorkAbon->ChkBoxTypeAbon->Checked;
if(ParName == "STypeAbon") ParValue = FWorkAbon->LCBoxTypeAbon->Value;
if(ParName == "PERIOD")
ParValue = "''"+ FormatDateTime("mmmm yyyy", EncodeDate(CYear, CMonth,  1 )) +
"''";
}

void __fastcall TFWorkAbon::frRepObGetValue(const AnsiString ParName,
      Variant &ParValue)
{
if(ParName == "CBTYPEABON") ParValue = FWorkAbon->ChkBoxTypeAbon->Checked;
if(ParName == "STYPEABON") ParValue = FWorkAbon->LCBoxTypeAbon->Value;
if(ParName == "PERIOD")
ParValue = "''"+ FormatDateTime("mmmm yyyy", EncodeDate(CYear, CMonth,  1 )) +
"''";
}