//---------------------------------------------------------------------------------------------------------------------------
void __fastcall TFrBlockProduceCost::FormShow(TObject *Sender)
{
List1();
List2();
DescMemoChange(Sender);
if (flreg == "N")
{PeriodBox->ItemIndex = -1;}
if (flreg == "E")
{
if (FrBlockProduceAddEd->CostQuerCycleId->Value == -1)
{
PeriodBox->ItemIndex = -1;
Cid = -1;
}
if (FrBlockProduceAddEd->CostQuerCycleId->Value != -1)
{
Cid = FrBlockProduceAddEd->CostQuerCycleId->Value;
String srchs = FrBlockProduceAddEd->CostQuerCycle->Value;
int io = PeriodBox->Perform(CB_FINDSTRING, -1,(LPARAM)srchs.c_str());
if (io != CB_ERR)
{PeriodBox->ItemIndex = io;}
if (BaseCheck->Checked == true) //если это базовая стоимость, тогда запрещаем менять период и выбор таблицы периодов
{ //допускаем пользователя только для дальнейшей работы с каналами продаж и добавления
PeriodBox->Enabled = false; // комментария к стоимости периода
RzBitBtn1->Enabled = false;
}
}
if (FrBlockProduceAddEd->CostQuerDept->Value != -1)
{chcbKanalSale->Value = FrBlockProduceAddEd->CostQuerDept->Value;}
int _tmain(int argc, _TCHAR* argv[])
{
Solution S;
ListNode List1(1),List2(1);
List1.next = &List2;
S.deleteDuplicates(&List1);
return 0;
}
}
//---------------------------------------------------------------------------------------------------------------------------
void __fastcall TFrBlockProduceCost::PeriodBoxKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
if (Key == VK_ESCAPE)
{
PeriodBox->ItemIndex = -1;
Cid = -1;
}
if (Key == VK_F5)
