; TO prixod.dbfFILE 'резервні копії sh_FAK.dbf 'To sh_fak.dbfFILE' резервні копії ostatki.dbf 'TO sopdok.dbf.Refresh ()
Кнопка "Вихід":
ELSE.Refresh
.3.3 Алгоритми та тексти програм формування вихідних документів
Програма формування Рахунок-фактури "sh_fak.prg"
SET CONSOLE OFFSAFETY ONash_fak.dbfbpok.dbf = RECNO () = '|' = 0 = 0 = 0 ='' ='' ='' ='' ='' aon nomf TO sh_fak. idx
m = VAL (INPUTBOX ('Вкажіть номер рахунку-фактури'))
LOCATE FOR a.nomf = ma.nomf = m THEN = a.inn = a.innALTERNATE TO sh_fak1.txtALTERNATE ON
? 'Рахунки-фактури № ___', PADR (m, 3), '____ від', padr (a.dataa, 8), '' bon inn TO inn1.idxSEEK (k) = b.nainp = b.inn = b . gorod = b.yliza = b.nomerdom
ENDIF
? 'Назва організації покупця', padr (a, 15),''
? 'ІПН', padr (a1, 10),''
? 'Місто', padr (a2, 17),''
? 'Вулиця', padr (a3, 17),''
? 'Номер будинку', padr (a4, 3),''
? '| Сума без ПДВ, руб | Податкова ставка (%) | Сума ПДВ, руб | Сума з ПДВ, руб |'
? r, PADr (a.sttov, 22), r, PADR (a.stavka, 25), r, PADR (a.sumnds, 17), r, PADr (a.stsnds, 15), r
?''
?''
? ' Керівник організації __________________________________ '
? ' (Підпис) '
?''
?''
? ' Головний бухгалтер __________________________________ '
? ' (Підпис) '
?''
?''
? ' М.П. '
? ' Видав ___________________________________ '
? ' (Підпис) 'ALTERNATE TOINDEXES sh_fak1.txtCOMMAND sh_fak1.txtDATABASES ALLTABLES ALL
ELSE
= MESSAGEBOX ("Рахунок-фактури з таким номером не існує.", 0, "УВАГА!")
В В В В
Програма формування Книги продажів "kniga.prg"
CLEARDATE GERMANCONSOLE OFFSAFETY OFFcprixod.dbfon dat TO prixod1.idxdpok.dbfon inn TO inn1.idx = RECNO () = '| '0 .0 TO itog, itog2, itog3 = {} = {} = {} = {} c = c.datBOTTOM = c.dat
GO TOP = ctod (INPUTBOX ('Вкажіть початкову дату (сама раньняя дата вказана вище)', PADR (x, 8),'')) = ctod (INP...
