i++;

     DM->SkladViewZ->First();

     if (DM->SkladViewZ->IsEmpty() == false)

     {

       while(!DM->SkladViewZ->Eof)

       {

    toExcel(App, "ID", i, DM->SkladViewZ->FieldByName("ID")->AsInteger, false);

    toExcel(App, "ITEM", i, DM->SkladViewZ->FieldByName("ITEM")->AsString, false);

    toExcel(App, "EDIZ", i, DM->SkladViewZ->FieldByName("EDIZ")->AsString, false);

    toExcel(App, "KOL", i, DM->SkladViewZ->FieldByName("KOL")->AsInteger, false);

    toExcel(App,"PRICE",i,DM->SkladViewZ->FieldByName("PRICE")->AsCurrency, false);

    toExcel(App, "SUMA",i,DM->SkladViewZ->FieldByName("SUMA")->AsCurrency, false);        

         DM->SkladViewZ->Next();

         i++;

       } //while

     } else { i++; }

     DM->Category->Next();

   }

   DM->SkladViewZ->WaitEndMasterScroll = true;

  App.OlePropertySet("Visible",true);

  App.Clear();

  Sh.Clear();

}

void __fastcall TMainForm::ExitClick(TObject *Sender)

{

  Close();       

}

void __fastcall TMainForm::SkladClick(TObject *Sender)

{

  SkladForm->ShowModal();       

}

void __fastcall TMainForm::N4Click(TObject *Sender)

{

  ClientsForm->ShowModal();       

}

void __fastcall TMainForm::PrihodClick(TObject *Sender)

{

  InputForm->ShowModal();

}

void __fastcall TMainForm::VuhidClick(TObject *Sender)

{

  OutputForm->ShowModal();       

}

void __fastcall TMainForm::N15Click(TObject *Sender)

{

  PostavForm->ShowModal();       

}

void __fastcall TMainForm::N6Click(TObject *Sender){

  CategoryForm->ShowModal();       

}