void OnOkInputBlack(BOOK* bk, ITEM* num, int len)
{  
  List_Insert(myBook->bllist, myBook->blackcnt, num);
  myBook->blackcnt++;
  ListMenu_DestroyItems(myBook->black);
  ListMenu_SetItemCount(myBook->black, myBook->blackcnt);
  ListMenu_SetCursorToItem(myBook->black, myBook->blackcnt);
  if(myBook->add)
  {
    GUIObject_Destroy(myBook->add);
    myBook->add = 0;
  }
}

void AddBlack(BOOK *bk, GUI *)
{
  myBook->add = CreateStringInputVA(0,
                    VAR_BOOK((BOOK*)myBook),
                    VAR_STRINP_MODE(3),
                    VAR_STRINP_FIXED_TEXT(STR("Введите номер:")),
                    VAR_STRINP_NEW_LINE(1),
                    VAR_STRINP_MAX_LEN(32),
            VAR_STRINP_MIN_LEN(0),
                    VAR_STRINP_OK_ON_DIEZ(0),
                    VAR_PREV_ACTION_PROC(OnBackInputBlack),
                    VAR_OK_PROC(OnOkInputBlack),
                    0);
}

int onLBMessage( GUI_MESSAGE* msg )
{
  int item;
  switch(GUIonMessage_GetMsg(msg))
  {
    case 1:
      item = GUIonMessage_GetCreatedItemIndex(msg);      
      GUIonMessage_SetMenuItemText(msg, Str2ID((wchar_t*) List_Get(myBook->bllist, item),0,SID_ANY_LEN));
      break;
  }
  
  return 1;
};

void OnOkInputBlack(BOOK* bk, wchar_t* num, int len)
{  
  List_InsertLast(myBook->bllist,(wchar_t*) num);
  ListMenu_DestroyItems(myBook->black);
  ListMenu_SetItemCount(myBook->black, myBook->bllist->FirstFree);
  ListMenu_SetCursorToItem(myBook->black, myBook->bllist->FirstFree);
  ListMenu_SetOnMessage(myBook->black, onLBMessage);
  DISP_DESC_SetOnKey(DispObject_GetDESC(GUIObject_GetDispObject(myBook->gui)), myOnKey1);
  if(myBook->add)
  {
    GUIObject_Destroy(myBook->add);
    myBook->add = 0;
  }
}

void AddBlack(BOOK *bk, GUI *)
{
  myBook->add = CreateStringInputVA(0,
                    VAR_BOOK((BOOK*)myBook),
                    VAR_STRINP_MODE(3),
                    VAR_STRINP_FIXED_TEXT(STR("Введите номер: ")),
                    VAR_STRINP_NEW_LINE(1),
            VAR_STRINP_MAX_LEN(32),
            VAR_STRINP_MIN_LEN(0),
                    VAR_STRINP_OK_ON_DIEZ(0),
                    VAR_PREV_ACTION_PROC(OnBackInputBlack),
                    VAR_OK_PROC(OnOkInputBlack),
                    0);
}

AB_STR_ITEM * st = new AB_STR_ITEM;
AB_GET_STRUCT abs;
int i = 0;
 
AB_ITEM_DESC_2020 * abd = (AB_ITEM_DESC_2020*)get_AB_ITEMS_DESC();
 
//Ищем нужный ITEM_DESC
while(i!=AB_ITEM_FPI)
{
  if (abd->num==AB_ITEM_FIELD_NAME) break;
  abd++;
  i++;
}
 
abs.unk_02 = 2;
abs.rec_num = 1;
int num = GetABRecNum(&abs);
 
AB_READSTRING(st,num,abd->ID);
int name = AB_NAME_ITEM2StrID(st);

int read_mobile_number (int k)
{
  AB_NUM_ITEM * st = new AB_NUM_ITEM;
  AB_GET_STRUCT abs;
  int i = 0;
  
  AB_ITEM_DESC_DB2020 * abd = (AB_ITEM_DESC_DB2020*)get_AB_ITEMS_DESC();
  
  //Ищем нужный ITEM_DESC
  while(i!=AB_ITEM_FPI)
  {
    if (abd->num==AB_ITEM_FIELD_N_MOBILE) break;
    abd++;
    i++;
  }
  abs.unk_02 = 2;
  abs.rec_num = k;
  int num = GetABRecNum(&abs);
  int read = AB_READPHONENBR(st,num,abd->ID);
  if(read==0) 
     return 0;
  else 
     return (AB_NUM_ITEM2StrID(st));
}