Автоматизация оборота документов в отделе документационного обеспечения в государственном учреждении "Городская больница № 40"

Exit_Кнопка26_Click:

Exit Sub

Err_Кнопка26_Click:

MsgBox Err.Description

Resume Exit_Кнопка26_Click

End Sub

Private Sub Кнопка27_Click()

On Error GoTo Err_Кнопка27_Click

DoCmd.GoToRecord , , acPrevious

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

Private Sub Кнопка28_Click()

On Error GoTo Err_Кнопка28_Click

DoCmd.GoToRecord , , acNext

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err.Description

Resume Exit_Кнопка28_Click

End Sub

Private Sub Кнопка29_Click()

On Error GoTo Err_Кнопка29_Click

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка29_Click:

Exit Sub

Err_Кнопка29_Click:

MsgBox Err.Description

Resume Exit_Кнопка29_Click

End Sub

Private Sub Кнопка30_Click()

On Error GoTo Err_Кнопка30_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка30_Click:

Exit Sub

Err_Кнопка30_Click:

MsgBox Err.Description

Resume Exit_Кнопка30_Click

End Sub

Private Sub Кнопка31_Click()

On Error GoTo Err_Кнопка31_Click

DoCmd.Close

Exit_Кнопка31_Click:

Exit Sub

Err_Кнопка31_Click:

MsgBox Err.Description

Resume Exit_Кнопка31_Click

End Sub

Private Sub Кнопка32_Click()

On Error GoTo Err_Кнопка32_Click

DoCmd.Close

Exit_Кнопка32_Click:

Exit Sub

Err_Кнопка32_Click:

MsgBox Err.Description

Resume Exit_Кнопка32_Click

End Sub

Форма «Кнопочная форма»

Option Compare Database

Private Sub Form_Open(Cancel As Integer)

' Minimize the database window and initialize the form.

' Move to the switchboard page that is marked as the default.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'По умолчанию' "

Me.FilterOn = True

End Sub

Private Sub Form_Current()

' Update the caption and fill in the list of options.

Me.Caption = Nz(Me![ItemText], "")

FillOptions

End Sub

Private Sub FillOptions()

' Fill in the options for this switchboard page.

' The number of buttons on the form.

Const conNumButtons = 8

Dim con As Object

Dim rs As Object

Dim stSql As String

Dim intOption As Integer

' Set the focus to the first button on the form,

' and then hide all of the buttons on the form

' but the first. You can't hide the field with the focus.

Me![Option1].SetFocus

For intOption = 2 To conNumButtons

Me("Option" & intOption).Visible = False

Me("OptionLabel" & intOption).Visible = False

Next intOption

' Open the table of Switchboard Items, and find

' the first item for this Switchboard Page.

Set con = Application.CurrentProject.Connection

stSql = "SELECT * FROM [Switchboard Items]"

stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

stSql = stSql & " ORDER BY [ItemNumber];"

Set rs = CreateObject("ADODB.Recordset")

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If there are no options for this Switchboard Page,

' display a message. Otherwise, fill the page with the items.

If (rs.EOF) Then

Me![OptionLabel1].Caption = "На странице кнопочной формы нет элементов"

Else

While (Not (rs.EOF))

Me("Option" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]

rs.MoveNext

Wend

End If

' Close the recordset and the database.

rs.Close

Set rs = Nothing

Set con = Nothing

End Sub

Private Function HandleButtonClick(intBtn As Integer)

' This function is called when a button is clicked.

' intBtn indicates which button was clicked.

' Constants for the commands that can be executed.

Const conCmdGotoSwitchboard = 1

Const conCmdOpenFormAdd = 2

Const conCmdOpenFormBrowse = 3

Const conCmdOpenReport = 4

Const conCmdCustomizeSwitchboard = 5

Const conCmdExitApplication = 6

Const conCmdRunMacro = 7

Const conCmdRunCode = 8

Const conCmdOpenPage = 9

' An error that is special cased.

Const conErrDoCmdCancelled = 2501

Dim con As Object

Dim rs As Object

Dim stSql As String

On Error GoTo HandleButtonClick_Err

' Find the item in the Switchboard Items table

' that corresponds to the button that was clicked.

Set con = Application.CurrentProject.Connection

Set rs = CreateObject("ADODB.Recordset")

stSql = "SELECT * FROM [Switchboard Items] "

stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If no item matches, report the error and exit the function.

If (rs.EOF) Then

MsgBox "Ошибка при чтении таблицы Switchboard Items."

rs.Close

Set rs = Nothing

Set con = Nothing

Exit Function

End If

Select Case rs![Command]

' Go to another switchboard.

Case conCmdGotoSwitchboard

Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]

' Open a form in Add mode.

Case conCmdOpenFormAdd

DoCmd.OpenForm rs![Argument], , , , acAdd

' Open a form.

Case conCmdOpenFormBrowse

DoCmd.OpenForm rs![Argument]

' Open a report.

Case conCmdOpenReport

DoCmd.OpenReport rs![Argument], acPreview

' Customize the Switchboard.

Case conCmdCustomizeSwitchboard

' Handle the case where the Switchboard Manager

' is not installed (e.g. Minimal Install).

On Error Resume Next

Application.Run "ACWZMAIN.sbm_Entry"

If (Err <> 0) Then MsgBox "Команда недоступна."

On Error GoTo 0

' Update the form.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'По умолчанию' "

Me.Caption = Nz(Me![ItemText], "")

FillOptions

' Exit the application.

Case conCmdExitApplication

CloseCurrentDatabase

' Run a macro.

Case conCmdRunMacro

DoCmd.RunMacro rs![Argument]

' Run code.

Case conCmdRunCode

Application.Run rs![Argument]

' Open a Data Access Page

Case conCmdOpenPage

DoCmd.OpenDataAccessPage rs![Argument]

' Any other command is unrecognized.

Case Else

MsgBox "Неизвестная команда."

End Select

' Close the recordset and the database.

rs.Close

HandleButtonClick_Exit:

On Error Resume Next

Set rs = Nothing

Set con = Nothing

Exit Function

HandleButtonClick_Err:

' If the action was cancelled by the user for

' some reason, don't display an error message.

' Instead, resume on the next line.

If (Err = conErrDoCmdCancelled) Then

Resume Next

Else

MsgBox "Ошибка при выполнении команды.", vbCritical

Resume HandleButtonClick_Exit

End If

End Function

Форма «Новые документы»

Option Compare Database

Private Sub Кнопка24_Click()

On Error GoTo Err_Кнопка24_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

End Sub

Private Sub Кнопка28_Click()

End Sub

Private Sub Кнопка31_Click()

On Error GoTo Err_Кнопка31_Click

DoCmd.Close

Exit_Кнопка31_Click:

Exit Sub

Err_Кнопка31_Click:

MsgBox Err.Description

Resume Exit_Кнопка31_Click

End Sub

Private Sub Кнопка32_Click()

On Error GoTo Err_Кнопка32_Click

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Кнопка32_Click:

Exit Sub

Err_Кнопка32_Click:

MsgBox Err.Description

Resume Exit_Кнопка32_Click

End Sub

Private Sub Кнопка33_Click()

On Error GoTo Err_Кнопка33_Click

DoCmd.GoToRecord , , acFirst

Exit_Кнопка33_Click:

Exit Sub

Err_Кнопка33_Click:

MsgBox Err.Description

Resume Exit_Кнопка33_Click

End Sub

Private Sub Кнопка34_Click()

On Error GoTo Err_Кнопка34_Click

DoCmd.GoToRecord , , acLast

Exit_Кнопка34_Click:

Exit Sub

Err_Кнопка34_Click:

MsgBox Err.Description

Resume Exit_Кнопка34_Click

End Sub

Private Sub Кнопка35_Click()

On Error GoTo Err_Кнопка35_Click

DoCmd.GoToRecord , , acPrevious

Exit_Кнопка35_Click:

Exit Sub

Err_Кнопка35_Click:

MsgBox Err.Description

Resume Exit_Кнопка35_Click

End Sub

Private Sub Кнопка36_Click()

On Error GoTo Err_Кнопка36_Click

DoCmd.GoToRecord , , acNext

Exit_Кнопка36_Click:

Exit Sub

Err_Кнопка36_Click:

MsgBox Err.Description

Resume Exit_Кнопка36_Click

End Sub

Private Sub Кнопка37_Click()

On Error GoTo Err_Кнопка37_Click

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка37_Click:

Exit Sub

Err_Кнопка37_Click:

MsgBox Err.Description

Resume Exit_Кнопка37_Click

End Sub

Private Sub Кнопка38_Click()

On Error GoTo Err_Кнопка38_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка38_Click:

Exit Sub

Err_Кнопка38_Click:

MsgBox Err.Description

Resume Exit_Кнопка38_Click

End Sub

Форма «Подчинённая»

Option Compare Database

Private Sub Кнопка30_Click()

On Error GoTo Err_Кнопка30_Click

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Кнопка30_Click:

Exit Sub

Err_Кнопка30_Click:

MsgBox Err.Description

Resume Exit_Кнопка30_Click

End Sub

Private Sub Кнопка31_Click()

On Error GoTo Err_Кнопка31_Click

DoCmd.GoToRecord , , acFirst

Exit_Кнопка31_Click:

Exit Sub

Err_Кнопка31_Click:

MsgBox Err.Description

Resume Exit_Кнопка31_Click

End Sub

Private Sub Кнопка32_Click()

On Error GoTo Err_Кнопка32_Click

DoCmd.GoToRecord , , acLast

Exit_Кнопка32_Click:

Exit Sub

Err_Кнопка32_Click:

MsgBox Err.Description

Resume Exit_Кнопка32_Click

End Sub

Private Sub Кнопка33_Click()

On Error GoTo Err_Кнопка33_Click

DoCmd.GoToRecord , , acPrevious

Exit_Кнопка33_Click:

Exit Sub

Err_Кнопка33_Click:

MsgBox Err.Description

Resume Exit_Кнопка33_Click

End Sub

Private Sub Кнопка34_Click()

On Error GoTo Err_Кнопка34_Click

DoCmd.GoToRecord , , acNext

Exit_Кнопка34_Click:

Exit Sub

Err_Кнопка34_Click:

MsgBox Err.Description

Resume Exit_Кнопка34_Click

End Sub

Private Sub Кнопка35_Click()

On Error GoTo Err_Кнопка35_Click

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка35_Click:

Exit Sub

Err_Кнопка35_Click:

MsgBox Err.Description

Resume Exit_Кнопка35_Click

End Sub

Private Sub Кнопка36_Click()

On Error GoTo Err_Кнопка36_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка36_Click:

Exit Sub

Err_Кнопка36_Click:

MsgBox Err.Description

Resume Exit_Кнопка36_Click

End Sub

Форма «Поиск»

Private Sub Form_Open(Cancel As Integer)

Me.Caption = Me.OpenArgs

End Sub

Private Sub Просмотр_Click()

If IsNull([входящий документ]) Then

MsgBox "Необходимо ввести номер входящего документа."

DoCmd.GoToControl "входящий документ"

Else

Me.Visible = False

End If

End Sub

Private Sub подчиненная_форма_строевой_Enter()

Me![входящий документ] = [строевой]![входящий документ]

End Sub

Private Sub Кнопка101_Click()

On Error GoTo Err_Кнопка101_Click

DoCmd.Close

Exit_Кнопка101_Click:

Exit Sub

Err_Кнопка101_Click:

MsgBox Err.Description

Resume Exit_Кнопка101_Click

End Sub

Форма «Редактирование входящих»

Private Sub Form_Open(Cancel As Integer)

Me.Caption = Me.OpenArgs

End Sub

Private Sub Просмотр_Click()

If IsNull([входящий документ]) Then

MsgBox "Необходимо ввести номер входящего документа."

DoCmd.GoToControl "входящий документ"

Else

Me.Visible = False

End If

End Sub

Private Sub подчиненная_форма_строевой_Enter()

Me![входящий документ] = [строевой]![входящий документ]

End Sub

Private Sub Кнопка100_Click()

On Error GoTo Err_Кнопка100_Click

DoCmd.Close

Exit_Кнопка100_Click:

Exit Sub

Err_Кнопка100_Click:

MsgBox Err.Description

Resume Exit_Кнопка100_Click

End Sub

Форма «Редактирование исходящих»

Private Sub Form_Open(Cancel As Integer)

Me.Caption = Me.OpenArgs

End Sub

Private Sub Просмотр_Click()

If IsNull([входящий документ]) Then

MsgBox "Необходимо ввести номер входящего документа."

DoCmd.GoToControl "входящий документ"

Else

Me.Visible = False

End If

End Sub

Private Sub подчиненная_форма_строевой_Enter()

Me![входящий документ] = [строевой]![входящий документ]

End Sub

Форма «Тип документа»

Option Compare Database

Private Sub Кнопка4_Click()

On Error GoTo Err_Кнопка4_Click

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Кнопка4_Click:

Exit Sub

Err_Кнопка4_Click:

MsgBox Err.Description

Resume Exit_Кнопка4_Click

End Sub

Private Sub Кнопка5_Click()

On Error GoTo Err_Кнопка5_Click

DoCmd.GoToRecord , , acFirst

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub

Private Sub Кнопка6_Click()

On Error GoTo Err_Кнопка6_Click

DoCmd.GoToRecord , , acLast

Exit_Кнопка6_Click:

Exit Sub

Err_Кнопка6_Click:

MsgBox Err.Description

Resume Exit_Кнопка6_Click

End Sub

Private Sub Кнопка7_Click()

On Error GoTo Err_Кнопка7_Click

DoCmd.GoToRecord , , acPrevious

Exit_Кнопка7_Click:

Exit Sub

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

End Sub

Private Sub Кнопка8_Click()

On Error GoTo Err_Кнопка8_Click

DoCmd.GoToRecord , , acNext

Exit_Кнопка8_Click:

Exit Sub

Err_Кнопка8_Click:

MsgBox Err.Description

Resume Exit_Кнопка8_Click

End Sub

Private Sub Кнопка9_Click()

On Error GoTo Err_Кнопка9_Click

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

End Sub

Private Sub Кнопка10_Click()

On Error GoTo Err_Кнопка10_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

End Sub

Private Sub Кнопка11_Click()

On Error GoTo Err_Кнопка11_Click

DoCmd.Close

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

Форма «Экстренный документ»

Option Compare Database

Private Sub Кнопка18_Click()

On Error GoTo Err_Кнопка18_Click

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Кнопка18_Click:

Exit Sub

Err_Кнопка18_Click:

MsgBox Err.Description

Resume Exit_Кнопка18_Click

End Sub

Private Sub Кнопка19_Click()

On Error GoTo Err_Кнопка19_Click

DoCmd.GoToRecord , , acFirst

Exit_Кнопка19_Click:

Exit Sub

Err_Кнопка19_Click:

MsgBox Err.Description

Resume Exit_Кнопка19_Click

End Sub

Private Sub Кнопка20_Click()

On Error GoTo Err_Кнопка20_Click

DoCmd.GoToRecord , , acLast

Exit_Кнопка20_Click:

Exit Sub

Err_Кнопка20_Click:

MsgBox Err.Description

Resume Exit_Кнопка20_Click

End Sub

Private Sub Кнопка21_Click()

On Error GoTo Err_Кнопка21_Click

DoCmd.GoToRecord , , acPrevious

Exit_Кнопка21_Click:

Exit Sub

Err_Кнопка21_Click:

MsgBox Err.Description

Resume Exit_Кнопка21_Click

End Sub

Private Sub Кнопка22_Click()

On Error GoTo Err_Кнопка22_Click

DoCmd.GoToRecord , , acNext

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

End Sub

Private Sub Кнопка23_Click()

On Error GoTo Err_Кнопка23_Click

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка23_Click:

Exit Sub

Err_Кнопка23_Click:

MsgBox Err.Description

Resume Exit_Кнопка23_Click

End Sub

Private Sub Кнопка24_Click()

On Error GoTo Err_Кнопка24_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

End Sub

Private Sub Кнопка25_Click()

On Error GoTo Err_Кнопка25_Click

DoCmd.Close

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

End Sub

Текст запроса «Исходящие за день»

SELECT исходящие.[исх номер], исходящие.[Дата отправления], исходящие.[Куда(адрес,факс)], исходящие.Содержание, исходящие.Исполнитель, исходящие.[Наличие копии], исходящие.[Вид отправления], исходящие.[№ входящий], исходящие.[дата документа]

FROM исходящие

WHERE (((исходящие.[Дата отправления])=[Дата]));

Текст запроса «Исходящие за период»

SELECT исходящие.[исх номер], исходящие.[Дата отправления], исходящие.[Куда(адрес,факс)], исходящие.Содержание, исходящие.Исполнитель, исходящие.[Наличие копии], исходящие.[Вид отправления], исходящие.[№ входящий], исходящие.[дата документа]

FROM исходящие

WHERE (((исходящие.[Дата отправления]) Between [Начало] And [Конец]));

Текст запроса «Контроль на дату»

SELECT входящие.[уровень документа], входящие.[входящий документ], входящие.[Дата поступления], входящие.[тип документа], входящие.[номер документа], входящие.[Дата принятия документа], входящие.[название документа], входящие.[установленная дата исполнения], входящие.[Фамилия Имя Отчество], входящие.[дата исполнения]

FROM входящие

WHERE (((входящие.[установленная дата исполнения])=[Дата]));

Текст запроса «Невыполненные на дату»

SELECT входящие.[входящий документ], входящие.[уровень документа], входящие.[тип документа], входящие.[номер документа], входящие.[Дата принятия документа], входящие.[название документа], входящие.[установленная дата исполнения], входящие.[Фамилия Имя Отчество], входящие.[дата исполнения]

FROM входящие

WHERE (((входящие.[установленная дата исполнения])<=[дата]) AND ((входящие.[дата исполнения]) Is Null));

Текст запроса «Номер входящего документа»

SELECT входящие.[входящий документ], входящие.[уровень документа], входящие.[тип документа], входящие.[номер документа], входящие.[Дата принятия документа], входящие.[название документа], входящие.[установленная дата исполнения], входящие.[Фамилия Имя Отчество]

FROM входящие

WHERE (((входящие.[входящий документ])=[Введите номер документа]));

Текст запроса «По датам»

SELECT входящие.[установленная дата исполнения], входящие.[дата исполнения], входящие.[Дата поступления], *

FROM входящие

WHERE (((входящие.[Дата поступления]) Between [Начало] And [Конец]));

Текст запроса «Поиск по типу документа»

SELECT входящие.[входящий документ], входящие.[уровень документа], входящие.[Дата поступления], входящие.[номер документа], входящие.[Дата принятия документа], входящие.[название документа], входящие.[Фамилия Имя Отчество], входящие.[установленная дата исполнения], входящие.[дата исполнения], входящие.[тип документа], Count(входящие.[входящий документ]) AS [Count-входящий документ]

FROM входящие

GROUP BY входящие.[входящий документ], входящие.[уровень документа], входящие.[Дата поступления], входящие.[номер документа], входящие.[Дата принятия документа], входящие.[название документа], входящие.[Фамилия Имя Отчество], входящие.[установленная дата исполнения], входящие.[дата исполнения], входящие.[тип документа]

HAVING (((входящие.[Дата принятия документа])=[Введите дату]) AND ((входящие.[тип документа])=[документ]));

Текст запроса «Работа за день»

SELECT входящие.[уровень документа], входящие.[входящий документ], входящие.[Дата поступления], входящие.[тип документа], входящие.[номер документа], входящие.[Дата принятия документа], входящие.[название документа], входящие.[установленная дата исполнения], входящие.[Фамилия Имя Отчество], входящие.[дата исполнения]

FROM входящие

WHERE (((входящие.[Дата поступления])=[Дата]));

Текст запроса «Работа за период»

SELECT входящие.[уровень документа], входящие.[входящий документ], входящие.[Дата поступления], входящие.[тип документа], входящие.[номер документа], входящие.[Дата принятия документа], входящие.[название документа], входящие.[установленная дата исполнения], входящие.[Фамилия Имя Отчество], входящие.[дата исполнения]

FROM входящие

WHERE (((входящие.[Дата поступления]) Between [Forms]![Период отчета]![Начало] And [Forms]![Период отчета]![Конец]));

Приложение Д

Формы для ввода базы данных

Редактирование входящих

Рисунок Д.1 - Форма «Редактирование входящих»

Редактирование исходящих

Рисунок Д.2 - Форма «Редактирование исходящих»

Исполняются

Рисунок Д.3 - Форма «Исполняются»

Исходящие

Рисунок Д.4 - Форма «Исходящие»

Меню

Рисунок Д.5 - Форма «Меню»

Новые документы

Рисунок Д.6 - Форма «Новые документы»

Тип документа

Рисунок Д.7 - Форма «Тип документа»

Формы отчётов

Рисунок Д.8 - Отчёт «Журнал учёта входящих документов за период»



Рисунок Д.9 - Отчёт «Исходящие за день»

Рисунок Д.10 - Отчёт «Исходящие за период»



Рисунок Д.11 - Отчёт «Контроль на дату»



Рисунок Д.12 - Отчёт «Не исполненные на дату»

Рисунок Д.13 - Отчёт «Работа за день»

Рисунок Д.14 - Отчёт «Экстренный документ»

Размещено на Allbest.ru