PTY (Thisform.Text1.Value) =. F.1INDEXESFILE prixod.idxon ndokreg TO prixod.idxSEEK (Thisform.Text1.Value). Text1.Value = 0.Refresh ()
ELSE ('Запис отримує запит (Перевірте регістри символів ...)!', 0, 'Увага!'). Text1.Value = 0
Кнопки: "Перша", "Наступна", "Попередній", "Остання", "Вихід" ідентичні з кнопками форми "Відомості про покупця".
Форма "Рахунок-фактура"
+
Кнопка "Додати":
APPEND BLANK.txtnomf.SetFocus ()
thisform.Refresh ()
Кнопка "Видалення":
MESSAGEBOX ('Ви дійсно хочете видалити запис?', 4 +32 +256, 'Видалити') = 6
SELECT sh_fakDELETED () thisform
. grid1.RecordSource = null
. grid1.RecordSource = 'sh_fak'
. refreshthisform.grid1
. column1.width = 130
. column2.width = 100
. column3.width = 130
. column4.width = 75
. column5.width = 75
. column6.width = 75
. column7.width = 75THISFORM
. grid1.RecordSource = null
. grid1.RecordSource = 'sh_fak'
. refresh
_screen. activeform. REFRESH ()
ENDIF
Форма "Архів"
В
Кнопка "Зберегти все":
SAFETY OFF
delete FILE TO 'резервні копії otgruzka.dbf' FILE TO 'резервні копії POK.dbf' FILE TO 'резервні копії PRIXOD.dbf' FILE TO 'резервні копії SH_FAK.dbf' FILE TO 'резервні копії ostatki.dbf'
IF MESSAGEBOX ('дані зберігаються в папку (резервні копії)', 4, 'УВАГА!') = 6
CLOSE TABLESDATABASESFILE OTGRUZKA.DBF TO 'резервні копії otgruzka.dbf' FILE POK.dbf TO 'резервні копії pok.dbf' FILE PRIXOD.DBF TO 'резервні копії prixod.dbf' FILE SH_FAK . DBF TO 'резервні копії sh_fak.dbf' FILE ostatki.DBF TO 'резервні копії ostatki.dbf'. Refresh ()
Кнопка "Очистити":
DO FORM clear.scx
Кнопка "Відновити все":
SAFETY OFFMESSAGEBOX ('при відновлення дані замінюються', 4, 'УВАГА!') = 6
CLOSE TABLESDATABASESFILE 'резервні копії OTGRUZKA.dbf' TO otgruzka.dbfFILE 'резервні копії POK.dbf' TO pok.dbfFILE 'резервні копії PRIXOD.dbf'...