"> 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;/td gt; lt;/tr gt;
GO TOP=0WHILE! EOF ()=0=nWHILE (n1=n)=0=raz * kol=coutstring + lt; tr gt; lt; td align=center gt; + STR (n, 3) + lt;/td gt; lt; td align=center gt; + STR (tn, 4) + lt;/td gt; lt; td align=center gt; + rab + lt;/td gt; lt; td align=center gt; + STR (raz, 4) + lt;/td gt; lt; td align=center gt; + STR (n_par, 4) + lt;/td gt; lt; td align=center gt; + detal + lt;/td gt ; lt; td align=center gt; + rabo + lt;/td gt; lt; td align=center gt; + STR (kol, 4) + lt;/td gt; lt; td align=center gt ; + DTOC (dt) + lt;/td gt; lt; td align=center gt; + STR (vrem, 4) + lt;/td gt; lt; td align=center gt; + STR (a, 11,2) + lt;/td gt; lt;/tr align=center gt; =suma + a=coutstring + lt; tr gt; lt; td 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;td align=center gt; + Str (suma, 14,2) + lt;/td gt; =sumv + sumaTABLES=coutstring + lt; tr gt; lt; td 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;td align=center gt; + Str (sumv, 14,2) + lt;/td gt; =coutstring + lt;/table gt; lt;/body gt; lt;/html gt; =FPUTS(htxtfile,coutstring)(htxtfile)=CREATEOBJECT(laquo;InternetExplorer.Applicationraquo;).visible=.t.
browser.Navigate ( amp; ctxtfile )
Рис. 2.17 - Відомість нарахування зарплати працівникам за нарядами
CLEARBELL OFFTALK OFFSAFETY OFFDATE GERMANtable2.dbfON n TO n1.idx
codepage=тисяча двісті п'ятьдесят один=PUTFILE ( Файл: raquo ;, Відомість нарахування з.п працівникам за нарядами raquo ;, html )
htxtfile=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; +;
lt; tr gt; lt; td gt; Наряд № lt;/td 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;/td gt; lt;/tr gt;
GO TOP=0WHILE! EOF ()=0=nWHILE (n1=n)=0=raz * kol=coutstring + lt; tr gt; lt; td align=center gt; + STR (n, 3) + lt;/td gt; lt; td align=center gt; + STR (tn, 4) + lt;/td gt; lt; td align=CENTER gt; + rab + lt;/td gt; lt; td align=center gt; + pr + lt;/td gt; lt; td align=center gt; + STR (cex, 1) + lt;/td gt; lt; td align=center gt; + rabo + lt;/td gt; lt; td align =center gt; + STR (raz, 5) + lt;/td gt; lt; td align=center gt; + ed + lt;/td gt; lt; td align=center gt; + STR (kol, 6) + lt;/td gt; lt; td align=center gt; + DTOC (dt) + lt;/td gt; lt; td align=center gt; + STR (a, 11 , 2) + lt;/td gt; lt;/tr align=centergt;raquo;=suma+a=sumv+sumaTABLES=coutstring+laquo;lt;trgt;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;td align=center gt; + Str (sumv, 14,2) + lt;/td gt; =coutstring + lt;/table gt; lt;/body gt; lt;/html gt; =FPUTS(htxtfile,coutstring)(htxtfile)=CREATEOBJECT(laquo;InternetExplorer.Applicationraquo;).visible=.t.
browser.Navigate ( amp; ctxtfile )
Рис. 2.18 - Розрахунково-платіжна відомість
BELL OFF
SET TALK OFFSAFETY OFFDATE GERMANatable3.dbfON tn TO table3.idxbтабліца1.dbfON tn TO табліца1.idxctable2.dbfON tn TO table2.idxaRELATION TO tn INTO bcRELATION TO tn INTO b=1251=PUTFILE ( Ім'я файлу: raquo ;, розрахунково-платіжні відомості raquo ;, html )=FCREATE (ctxtfile) a= 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; +;
laquo;lt;trgt;lt;tdgt;таб.ном.lt;/tdgt;lt;tdgt;Долж...
