#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <StatusBarConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <Excel.au3>
#include <ComboConstants.au3>
#include <TabConstants.au3>
HotKeySet('{ESC}', '_Pro_Exit')
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Импорт в ЕА3 раздел предприятия", 465, 179, 239, 198)
$Label1 = GUICtrlCreateLabel("В диалоге открытия укажите файл *.xls с предприятиями", 57, 114, 311, 17)
$Button1 = GUICtrlCreateButton("Старт", 374, 111, 81, 24, 0)
$Progress1 = GUICtrlCreateProgress(2, 141, 455, 9)
$Label222 = GUICtrlCreateLabel("", 0, 156, 324, 20)
$Group1 = GUICtrlCreateGroup("", 0, 0, 457, 105)
$Label3 = GUICtrlCreateLabel("Внимание! Данный скрипт выполняет импорт только из файла Microsoft Excel! Перед стартом убедитесь, что окно ЕА3 открыто в разделе предприятия. ", 12, 16, 428, 50, $SS_CENTER)
$Label4 = GUICtrlCreateLabel("Постарайтесь не трогать компьютер во время работы!", 8, 56, 436, 46, $SS_CENTER)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label5 = GUICtrlCreateLabel("mail: terra100-100@list.ru", 331, 158, 123, 17, $SS_CENTER)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$message = "Выберите файл *.xls с предприятиями"
$var = FileOpenDialog($message, "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Ексель с предприятиями (*.xls)", 1 + 2 )
If @error Then
MsgBox(4096,"","Не выбран файл")
Else
$var = StringReplace($var, "|", @CRLF)
;MsgBox(4096,"","You chose " & $var)
EndIf
;BlockInput (1)
;читаем файл ексель в массив
$oExcel = _ExcelBookOpen($var )
$avArray = _ExcelReadSheetToArray($oExcel) ;Using Default Parameters
;читаем размеры получившегося массива
$inStrok = $avArray [0] [0]
$inStolb = $avArray [0] [1]
$avRow = _ExcelReadArray($oExcel, 1, 1, $inStolb, 0)
_ExcelBookClose($oExcel, 0)
;показываем массив
;~ _ArrayDisplay($avArray, "Array using Default Parameters")
;~ _ArrayDisplay($avRow, "Array using Default Parameters")
$SetCombo = _ArrayToString ($avRow)
;~ MsgBox(0, "Внимание", $SetCombo)
;рисуем форму выбора ячеек
#Region ### START Koda GUI section ### Form=D:\install\Utils\AutoIT\Импорт ЕА\ea3form2.kxf
$Form2 = GUICreate("Импорт предприятий ЕА3", 825, 578, 258, 72)
$Naimen = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 8, 24, 449, 25)
GUICtrlSetData(-1, $SetCombo)
$KrNaimen = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 459, 24, 361, 25)
GUICtrlSetData(-1, $SetCombo)
$OrgPF = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 181, 56, 633, 25)
GUICtrlSetData(-1, $SetCombo)
$UrAdr = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 182, 81, 633, 25)
GUICtrlSetData(-1, $SetCombo)
$FaktAdr = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 182, 108, 633, 25)
GUICtrlSetData(-1, $SetCombo)
$Rayon = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 182, 134, 633, 25)
GUICtrlSetData(-1, $SetCombo)
$Tel = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 182, 159, 273, 25)
GUICtrlSetData(-1, $SetCombo)
$Mail = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 550, 158, 241, 25)
GUICtrlSetData(-1, $SetCombo)
$Time = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 181, 187, 633, 25)
GUICtrlSetData(-1, $SetCombo)
$Web = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 181, 215, 609, 25)
GUICtrlSetData(-1, $SetCombo)
$Price = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 181, 242, 609, 25)
GUICtrlSetData(-1, $SetCombo)
$ButtStart = GUICtrlCreateButton("Поехали", 705, 330, 105, 20)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Tab1 = GUICtrlCreateTab(8, 336, 809, 237)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Контакты")
$FIO1 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 18, 381, 88, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Dolg1 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 341, 381, 225, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Kont1 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 572, 381, 225, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$FIO2 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 18, 405, 88, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Dolg2 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 341, 405, 225, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Kont2 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 572, 405, 225, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$FIO3 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 18, 429, 88, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Dolg3 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 341, 429, 225, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Kont3 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 572, 429, 225, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label10 = GUICtrlCreateLabel("ФИО (Обьединяется из 3х ячеек)", 19, 361, 257, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label11 = GUICtrlCreateLabel("Должность", 341, 360, 62, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label12 = GUICtrlCreateLabel("Контактная информация", 574, 362, 130, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$FIO1_1 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 111, 381, 88, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$FIO2_1 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 111, 405, 88, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$FIO3_1 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 111, 429, 88, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$FIO1_2 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 204, 381, 88, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$FIO2_2 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 204, 405, 88, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$FIO3_2 = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 204, 429, 88, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet2 = GUICtrlCreateTabItem("Доп. инфо")
$Bank = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 161, 361, 615, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$INN = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 161, 384, 615, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$RS = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 161, 407, 615, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$KS = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 161, 430, 615, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$BIK = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 160, 455, 615, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$OKPO = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 161, 477, 615, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$KPP = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 161, 500, 615, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$OKONX = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 161, 523, 615, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$OGRN = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 161, 546, 615, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("Банк", 113, 362, 29, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("ИНН", 113, 385, 28, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Р/С", 113, 409, 23, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("К/С", 113, 432, 23, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel("Бик", 113, 455, 23, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel("ОКПО", 113, 479, 35, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel("КПП", 113, 502, 27, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel("ОКОНХ", 113, 526, 42, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label9 = GUICtrlCreateLabel("ОГРН", 113, 549, 33, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$TabSheet4 = GUICtrlCreateTabItem("Доп сведения")
$DopSved = GUICtrlCreateCombo("Выберите ячейку соответствующую данному полю", 39, 376, 763, 25)
GUICtrlSetData(-1, $SetCombo)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateTabItem("")
$Label13 = GUICtrlCreateLabel("Наименование", 8, 4, 80, 17, $SS_CENTER)
$Label14 = GUICtrlCreateLabel("Краткое наименование", 459, 4, 123, 17, $SS_CENTER)
$Label15 = GUICtrlCreateLabel("Орг. правовая форма", 58, 58, 114, 17, $SS_CENTER)
$Label16 = GUICtrlCreateLabel("Юридический адрес", 68, 82, 105, 17, $SS_CENTER)
$Label17 = GUICtrlCreateLabel("Фактический адрес", 68, 111, 106, 17, $SS_CENTER)
$Label18 = GUICtrlCreateLabel("Распоожение район", 69, 136, 106, 17, $SS_CENTER)
$Label19 = GUICtrlCreateLabel("Телефон, факс", 89, 162, 81, 17, $SS_CENTER)
$Label20 = GUICtrlCreateLabel("Дни и время работы", 64, 188, 109, 17, $SS_CENTER)
$Label21 = GUICtrlCreateLabel("Веб сайт", 123, 217, 49, 17, $SS_CENTER)
$Label22 = GUICtrlCreateLabel("Прайс", 130, 245, 40, 17, $SS_CENTER)
$Label23 = GUICtrlCreateLabel("Сфера деятельности", 62, 306, 110, 17, $SS_CENTER)
$Label24 = GUICtrlCreateLabel("Масштаб предприятия", 50, 276, 118, 17, $SS_CENTER)
$Label25 = GUICtrlCreateLabel("Е-Маил", 494, 161, 47, 17, $SS_CENTER)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtStart
$i = 0
;цикл обработки по количеству предприятий
While $i < $inStrok
$i = $i + 1
;прогресс-бар
$p = ($i * 100) / $inStrok
GUICtrlSetData ( $Progress1, $p )
GUICtrlSetData ( $Label222, "Идёт процесс... занесено "&$i &" предприятий" )
;код вставки инфы в ЕА, ЗДЕСЬ ДЕЛАЕШЬ КОД ДЛЯ СВОЕЙ ФОРМЫ(ВЕБ)
Sleep(500)
WinActivate("Exiland Assistant 3.0","")
WinWaitActive("Exiland Assistant 3.0","")
Send("{INS}")
WinWait("Предприятия","")
Sleep(500)
If Not WinActive("Предприятия","") Then WinActivate("Предприятия","")
WinWaitActive("Предприятия","")
;наименование
$NaimS = GUICtrlRead ($Naimen)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[TEXT:edName]")
Send("^v")
EndIf
;краткое наименование
$NaimS = GUICtrlRead ($KrNaimen)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[TEXT:edShortName]")
Send("^v")
EndIf
;орг прав форма
$NaimS = GUICtrlRead ($OrgPF)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[CLASS:TbsCustomEdit; INSTANCE:2]")
Send("^v")
EndIf
;юр адрес
$NaimS = GUICtrlRead ($UrAdr)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[TEXT:edAddress_yur]")
Send("^v")
EndIf
;Факт.Адрес
$NaimS = GUICtrlRead ($FaktAdr)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[TEXT:edAddress1]")
Send("^v")
EndIf
;Расположение
$NaimS = GUICtrlRead ($Rayon)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[TEXT:edPlace]")
Send("^v")
EndIf
;Тел факс
$NaimS = GUICtrlRead ($Tel)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[TEXT:edPhone1]")
Send("^v}")
EndIf
;Емаил
$NaimS = GUICtrlRead ($Mail)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[TEXT:edEmail]")
Send("^v")
EndIf
;Время работы
$NaimS = GUICtrlRead ($Time)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[TEXT:edClock]")
Send("^v")
EndIf
;Сайт
$NaimS = GUICtrlRead ($Web)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[TEXT:edWWW]")
Send("^v")
EndIf
;Прайс
$NaimS = GUICtrlRead ($Price)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[TEXT:edPrice]")
Send("^v")
EndIf
;ФИО1
$NaimS = GUICtrlRead ($FIO1)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[CLASS:TbsSkinPageControl; INSTANCE:1]")
Send("{HOME}{TAB}^v")
EndIf
;Должность1
$NaimS = GUICtrlRead ($FIO1)
If $NaimS <> "Выберите ячейку соответствующую данному полю" Then
$pos = _ArraySearch ($avRow, $NaimS)
ClipPut($avArray [$i] [$pos])
ControlFocus ( "Предприятия", "", "[CLASS:TbsSkinPageControl; INSTANCE:1]")
Send("{HOME}{TAB}^v")
EndIf
Send("{TAB}{TAB}{TAB}{TAB}{TAB}")
ClipPut($avArray [$i] [8])
Send("^v{SHIFTDOWN}{TAB}{SHIFTUP}{RIGHT}{RIGHT}{RIGHT}{TAB}")
ClipPut($avArray [$i] [9])
Send("^v")
ControlClick("Предприятия", "", "[CLASS:TbsSkinButton; TEXT:Сохранить]")
;КОНЕЦ КОДА ВСТАВКИ ИНФЫ В ФОРМУ
WEnd
GUICtrlSetData ( $Label222, "Операция завершена! "&$inStrok&" предприятий внесено в базу!" )
;BlockInput (0)
MsgBox(0, "Внимание!", "Операция завершена! " & $inStrok&" предприятий успешно внесено в базу!")
EndSwitch
WEnd
EndSwitch
WEnd
Func _Pro_Exit()
Exit
EndFunc |
