формація про те кому цей документ відсилається на затвердження.
Код виконується при натисканні на кнопку "Створити":
: = ExtractFilePath (paramstr (0));: = CreateOleObject ('Word. Application');. visible: = true;. Documents. add;. ActiveDocument. SaveAs (s + '' + edit1. Text + '. Doc');. ADOQuery3. Insert;. ADOQuery3 ['Name_Doc']: = edit1. Text;. ADOQuery3 ['Type_Doc']: = ComboBox1. Text;. ADOQuery3 ['Primechanie']: = Memo1. Text;. ADOQuery3 ['Date_Create']: = strtoDateTime (Edit2. Text);. ADOQuery3 ['Srok']: = strtoDate (MaskEdit1. Text);. ADOQuery3 ['Path']: = s + '' + edit1. Text + '. doc ';. ADOQuery3 ['Stat']: = 'Неутвержден';. ADOQuery3 ['ID_Sek']: = AuthForm. KeyUser;. ADOQuery3. Post; i: = 0 to (CheckListBox1. Items. Count - 1) do (CheckListBox1. Checked [i]) then. Insert; ADOTable3. Locate ('Login', CheckListBox1. Items. Strings [i], []) then ['id_user']: = ADOTable3 ['id_user'];. Close;. SQL. Clear;. SQL. Append ('SELECT Top 1 Key' +
'FROM Documents' +
'Order by Key Desc');. Open;. Open; ['id_document']: = inttostr (ADOQuery1 ['Key']); ['Status']: = '1 ';. Post;;;. ADOQuery3. Active: = false;. ADOQuery3. Active: = true;. ADOQuery3. Fields [0]. Visible: = false;. ADOQuery3. Fields [6]. Visible: = false;. ADOQuery3. Fields [7]. Visible: = false;. ADOQuery3. Fields [1]. DisplayWidth: = 20;. ADOQuery3. Fields [2]. DisplayWidth: = 20;. ADOQuery3. Fields [3]. visible: = false;. ADOQuery3. Fields [4]. DisplayWidth: = 20;. ADOQuery3. Fields [5]. DisplayWidth: = 20;. ADOQuery3. Fields [8]. DisplayWidth: = 20;
Далі заходимо під одним з керівників, яким був відісланий документ на затвердження:
В
Рис.7. Головне вікно керівника 1
Робимо подвійне клацання на "Прийняті :
В
Рис. 8. Головне вікно керівника 2
Робимо подвійне клацання по полю з інформацією про прийнятому документі, у вікні надається можливості:
В§ Відкрити документ для перегляду
В§ Затвердити
В§ Відхилити із зазначенням коментарем до доопрацювання
В
Рис. 9. Інформація про документ
Код, що виконується по натисканні на кнопку Затвердити. Close;. SQL. Clear;. Parameters. Add;. Parameters [0]. Name: = 'p';. Parameters [0]. Value: = MainFormRuk. ADOQuery3 ['Key'];. Parameters. Add;. Parameters [1]. Nam...
