alue=
. txtrab.value=
. txtvrem.value=0
. txtrac.value=0
. txtdt.value={}
. txtn.value=0
. txttn.readonly=.t.
. txtn_par.readonly=.t.
. txtrabo.readonly=.t.
. txtraz.readonly=.t.
. txtkol.readonly=.t.
. txtdetal.readonly=.t.
. txtrab.readonly=.t.
. txtvrem.readonly=.t.
. txtrac.readonly=.t.
. txtdt.readonly=.t.
. txtn.readonly=.t.
. refresh
ENDIF
Кнопка «Вихід» (click): MESSAGEBOX ( Ви хочете вийти? , 4, Увага )=6
thisform.Release.Refresh
Кнопка «Пошук» (click): SAFETY OFFEMPTY (thisform.text1.Value) =. t.
MESSAGEBOX ( Введіть дані для пошуку ... , 0, Увага! )
ELSEINDEXEStable3on n TO table3.idx
* stroka=upper (thisform.text1.Value)=thisform.text1.Valueseek (stroka) ( Запис знайдена! , 0, Увага! ). text1.Value =0.Refresh ( Запис ненайдена! , 0, Увага! ). text1.Value=0.Refresh
Кнопка «Export в HTML» (click):=тисячі двісті п'ятьдесят-одна=PUTFILE ( Файл: raquo ;, report raquo ;, html )=FCREATE(ctxtfile)table3=laquo;lt;htmlgt;lt;headgt;lt;titlegt;Отчётlt;/titlegt;lt;/headgt;lt;body bgcolor=# bcdbcd gt; lt; table border=1 gt; +;
lt; tr gt; lt; td gt; Маршрутний лист №lt;/tdgt;lt;tdgt;Таб.ном.lt;/tdgt;lt;tdgt;Ном.партииlt;/tdgt;lt;tdgt;Процессlt;/tdgt;lt;tdgt;Разрядlt;/tdgt;lt;tdgt;Количествоlt;/tdgt;lt;tdgt;Детальlt;/tdgt;lt;tdgt;Рабочийlt;/tdgt;lt;tdgt;Времяlt;/tdgt;lt;tdgt;Расценкаlt;/tdgt;lt;tdgt;Датаlt;/tdgt;lt;/trgt;raquo;=coutstring+ lt; tr gt; lt; td gt; + STR (n) + lt;/td gt; lt; td gt; + STR (tn) + lt;/td gt; lt; td gt; + STR (n_par) + lt;/td gt; lt; td gt; + rabo + lt;/td gt; lt; td gt; + STR (raz) + lt;/td gt; lt; td gt; + STR (kol) + lt;/td gt; lt; td gt; + detal + lt;/td gt; lt; td gt; + rab + lt;/td gt; lt ; td gt; + STR (vrem) + lt;/td gt; lt; td gt; + STR (rac) + lt;/td gt; lt; td gt; + dtoc (dt) + laquo ; lt;/td gt; lt;/tr gt; =coutstring + lt;/table gt; lt;/body gt; lt;/html gt; =FPUTS(htxtfile,coutstring)(htxtfile)=CREATEOBJECT(laquo;InternetExplorer.Applicationraquo;).visible=.t..Navigate(laquo;amp;ctxtfileraquo;)
Кнопка «Звіт в Excel» (click): w=SYS (5) + ALLTRIM (SYS (2003)) PATH TO amp;wtable3=CREATEOBJECT(laquo;Excel.Applicationraquo;).visible=.t..workbooks.add=xls1.Sheets[1]table3.cells(1,1).value=laquo;Маршрутный лист № .cells (1,2) .value= Таб.ном. .cells (1,3) .value= Номер партииraquo;.cells(1,4).value=laquo;Процессraquo;.cells(1,5).value=laquo;Разрядraquo;.cells(1,6).value=laquo;Количествоraquo;.cells(1,7).value=laquo;Детальraquo;.cells(1,8).value=laquo;Рабочийraquo;.cells(1,9).value=laquo;Времяraquo;.cells(1,10).value=laquo;Расценкаraquo;.cells(1,11).value=laquo;Датаraquo;=1=nRov+1.cells(nRov,1).value=table3.n.cells(nRov,2).value=table3.tn.cells(nRov,3).value=table3.n_par.cells(nRov,4).value=table3.rabo.cells(nRov,5).value=table3.raz.cells(nRov,6).value=table3.kol.cells(nRov,7).value=table3.detal.cells(nRov,8).value=table3.rab.cells(nRov,9).value=table3.vrem.cells(nRov,10).value=table3.rac.cells(nRov,11).value=table3.dt
Поле Got Focus: thisform.txttn.ReadOnly=.f.табліца1on tn to tn.idxFOR tn=thisform.txttn.Value=fio=stz.txtRab.Value=a.txtRaz.Value=b
Рис. 2.16 - Форма: otchet.scx
Поле Text2:
m2= =0=MONTH (thisform.Text1.Value) m1 lt;=12
*****m1=1=laquo;ЯНВАРЬraquo;m1=2=laquo;ФЕВРАЛЬraquo;m1=3=laquo;МАРТraquo;m1=4=laquo;АПРЕЛЬraquo;m1=5=laquo;МАЙraquo;m1=6=laquo;ИЮНЬraquo;m1=7=laquo;ИЮЛЬraquo;m1=8=laquo;АВГУСТraquo;m1=9=laquo;СЕНТЯБРЬraquo;m1=10=laquo;ОКТЯБРЬraquo;m1=11=laquo;НОЯБРЬraquo;m1=12=laquo;ДЕКАБРЬraquo;.Refresh()
**** ( Такого Місяця НЕТ !!! , 0, УВАГА !!! )= .Refresh ()
2.2.4 Програми формування вихідних документів
Рапорт про виработкеBELL OFFTALK OFFSAFETY OFFDATE GERMANtable3.dbfON n TO n1.idx=1 251=PUTFILE ( Файл: raquo ;, Рапорт про вироблення raquo ;, html )=FCREATE ( ctxtfile)= lt; html gt; lt; head gt; lt; title gt; Рапорт про вироблення lt;/title gt; lt;/head gt; lt; body bgcolor=# bcdbcd gt; lt; table border=1 gt; +;
lt; CAPTION gt; Рапорт про вироблення lt;/CAPTION gt; +;
