Реферат Нарахування індивідуальній відрядній заробітної плати на СЦ &Технокомп&

Тема: Статьи

ность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;

vsego=0=0=0WHILE! EOF ()=tn=0WHILE (tn1=tn)=a.raz * a.kol=(Vsego - 400- (b.kold * 600)) * 0.13=vsego-NDFL=coutstring + lt; tr gt; lt; td align=center gt; + STR (a.tn, 4) + lt;/td gt; lt; td align=center gt; + B.dol + lt;/td gt; lt; td gt; + a.rab + lt;/td gt; lt; td gt; + STR (a.raz) + lt;/td gt ; lt; td gt; + STR (a.kol, 8) +laquo;lt;/tdgt;lt;tdgt;raquo;+STR(vsego,10,2)+laquo;lt;/tdgt;lt;tdgt;raquo;+STR(sumw,10,2)+laquo;lt;/tdgt;lt;tdgt;raquo;+DTOC(a.dt)+laquo;lt;/tdgt;lt;tdgt;raquo;+STR(ndfl,8,2) + lt;/td gt; lt; td gt; lt;/td gt; lt;/tr gt; =v + sumwc=0=0WHILE! EOF ()=tn=0WHILE (tn1=tn)=c.raz * c.kol=(Vsego - 400- (b.kold * 600)) * 0.13=vsego-NDFL=coutstring + lt; tr gt; lt; td align=center gt; + STR (c.tn, 4) + lt;/td gt; lt; td align=center gt; + B.dol + lt;/td gt; lt; td gt; + c.rab + lt;/td gt; lt; td gt; + STR (c.raz) + lt;/td gt ; lt; td gt; + STR (c.kol, 8) +laquo;lt;/tdgt;lt;tdgt;raquo;+STR(vsego,10,2)+laquo;lt;/tdgt;lt;tdgt;raquo;+STR(sumw,10,2)+laquo;lt;/tdgt;lt;tdgt;raquo;+DTOC(c.dt)+laquo;lt;/tdgt;lt;tdgt;raquo;+STR(ndfl,8,2) +laquo;lt;/tdgt;lt;tdgt;lt;/tdgt;lt;/trgt;raquo;=v+sumwTABLES=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;raquo; + Str (v, 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..Navigate(laquo;amp;ctxtfileraquo;)

Рис. 2.19 - Розрахункова відомість

2.2.5 Реалізація сервісних функцій

Збереження баз:

Sochranenie.scx

Формa INIT:

CLOSE DATABASESTABLESthisform

. text1.readonly=.t..Refresh

Формa KeyPress: nKeyCode, nShiftAltCtrlnKeyCode=27

IF MESSAGEBOX ( Ви хочете вийти? , 4, Увага )=6

thisform.Release.Refresh

Кнопка «Зберегти» (click): strcop, OUT, IN1EMPTY (thisform.text1.Value) =. t.

MESSAGEBOX ( Шлях не вказано копіювання це не можливо, натисніть кнопку ... !!! , 0, Внимание !!! )

thisform.Refresh=laquo;raquo;=laquo;raquo;=laquo;raquo;=ALLTRIM(thisform.text1.value)=SYS(5) + ALLTRIM (sys (2003)) + = COPY FILE + Out + table1.DBF TO + In1 + table1.dbf

amp; strcop= COPY FILE + Out + table2.DBF TO + In1 + table2.dbf

amp; strcop= COPY FILE + Out + table3.DBF TO + In1 + table3.dbf

amp; strcop= COPY FILE + Out + табліца1.DBF TO + In1 + табліца1.dbf

amp; strcop ( Операція пройшла успішно !!! , 0, Внимание !!! )

Кнопка «Вихід» (click): MESSAGEBOX ( Ви хочете вийти? , 4, Увага )=6

thisform.Release.Refresh

Кнопка «вибору» (click):=0=0=PUTFILE ( Файл: , copy , log )

pozic=RAT ("", b)=SUBSTR (b, 1, pozic) thisform

. text1.Value=ALLTRIM (a)

. refresh

Рис. 2.20 - Збереження баз

. scx