Программа вывода из оборота маркированной молочной продукции : КИС Lack & УС Land

	//	Проверка на текущую английскую раскладку и при необходимости, если не она, то перевожу на английскую
	IF !lIs_eng_kbd(@cRs)
		IF Fyn("Для сканера нужна английская раскладка! Перевести?",cHelpc) THEN ENG()
	ENDI

/*	Работа с анализом и изменением  раскладки клавиатуры - принудительный переход на латынь при вводе со сканера
Список раскладок: https://learn.microsoft.com/en-us/windows-hardware/manufacture/desktop/windows-language-pack-default-values?view=windows-11
Базовый код для четырех раскладок (русская, английская, украина, армения), но их может быть больше
lIs_eng	:= lIs_eng_kbd(@rsl)
ШРИФТ ДЛЯ ФУНКЦИЙ С ВАЖЕН
*/

//	Набор функций проверки текущей раскладки
FUNC lIs_eng_kbd(rsl)
	rsl	:= RASKLADKA()
	RETU (rsl== "00000409")
FUNC lIs_rus_kbd(rsl)
	rsl	:= RASKLADKA()
	RETU (rsl== "00000419")
FUNC lIs_ukr_kbd(rsl)
	rsl	:= RASKLADKA()
	RETU (rsl== "00000422")
FUNC lIs_arm_kbd(rsl)
	rsl	:= RASKLADKA()
	RETU (rsl== "0000042b")

//	Набор функций для принудительного переключения раскладок ENG(), RUS(), UKR(), ARM() и проверки Raskladka на С++
#pragma BEGINDUMP
#include "Windows.h"
#include "hbapi.h"
HB_FUNC(RUS) { LoadKeyboardLayout("00000419", KLF_ACTIVATE) ; }
HB_FUNC(ENG) { LoadKeyboardLayout("00000409", KLF_ACTIVATE) ; }
HB_FUNC(UKR) { LoadKeyboardLayout("00000422", KLF_ACTIVATE) ; }
HB_FUNC(ARM) { LoadKeyboardLayout("0000042b", KLF_ACTIVATE) ; }

HB_FUNC(RASKLADKA)
{
TCHAR m_PreviousLayout[KL_NAMELENGTH] ;
GetKeyboardLayoutName(m_PreviousLayout);
hb_retc(m_PreviousLayout);
}
#pragma ENDDUMP

	//	Очищение от пробелов и проверка на вхождение русских букв
	nLen 	:= Len( cSh:=Alltrim(cSh) )
	cStr 	:= Upper(cSh)
	FOR nI := 1 TO nLen
		IF Subs(_ZRUS,nI,1) $ cStr
			ErrMess("Код марки не должен содержать русские буквы! При чтении со сканера переключите на английскую раскладку!",cError)
			RETU FALSE
		ENDI
	NEXT nI