https://wiki.sftserv.ru/index.php?action=history&feed=atom&title=TPS_170329 2026-05-13T10:13:13Z История изменений этой страницы в вики MediaWiki 1.26.3 https://wiki.sftserv.ru/index.php?title=TPS_170329&diff=27668&oldid=prev 2017-11-17T06:04:03Z

<p>Новая страница: «<a href="/index.php/TPS_170329" title="TPS 170329">TPS_170329</a> - это &quot;Процент брака от выработки&quot; = Условие отбора = local ip, my, end_data, fld, _, sql, _2 fld := &#039; _…»</p> <p><b>Новая страница</b></p><div>[[TPS_170329]] - это &quot;Процент брака от выработки&quot;<br /> = Условие отбора =<br /> local ip, my, end_data, fld, _, sql, _2<br /> <br /> fld := ' _1,N,5; _2,C,60; _3,N,14,4; _4,N,14,4; _5,N,14,4; _6,N,14,4; _7,N,14,4;'<br /> _ := CreateTmpFile( fld, '_', ~IsFreeDel := true, ~Own := Self )<br /> _2 := CreateTmpFile( fld, '_2', ~IsFreeDel := true, ~Own := Self )<br /> <br /> ip := InputPeriod2()<br /> if Empty( ip )<br /> return<br /> endif<br /> <br /> M-&gt;QwrTitle := ' ( ' + DKShift_str( ip[1] ) + ' - ' + DKShift_str( ip[2] ) + ' )' <br /> <br /> my := StoD( ip[1] )<br /> end_data := StoD( ip[2] ) + 1<br /> while my &lt;&gt; end_data<br /> // PAC4<br /> sql := [ Select DANAL2, AMNT From DOCP] + Ret_f_ext( my ) + [ Where KINDDOC = 'PAC' and LVLNUM = '4' and ;<br /> DATDOC = '] + SqlDate( my ) + [' and DSHIFT between '] + ip[1] + [' and '] + ip[2] + [' ]<br /> SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _1, _3 ) ] + sql, OpdataPath )<br /> <br /> // 28<br /> sql := [ Select DANAL2, AMNT From PRVS] + Ret_f_ext( my ) + [ Where DEBT = '28 ' and DREFL1 = 'R10 ' and DANAL1 = 2 and ;<br /> DATDOC = '] + SqlDate( my ) + [' and DSHIFT between '] + ip[1] + [' and '] + ip[2] + [' ]<br /> SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _1, _5 ) ] + sql, OpdataPath )<br /> <br /> my := my + 1<br /> end<br /> <br /> // _2 -&gt; _<br /> sql := [ Select _1, Sum( _3 ), Sum( _5 ) From ] + TmpFilePath( _2 ) + [ Group by _1 ]<br /> SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _3, _5 ) ] + sql, OpdataPath )<br /> <br /> sql := [ Update _ Set _4 = Round( _3 * WEIGHT, 2 ), _6 = Round( _5 * WEIGHT, 2 ) From ] + TmpFilePath( _ ) + [ _ left outer join R11 ON _1 = KOD ]<br /> SimpleSql( sql, ReflisPath )<br /> <br /> sql := [ Update ] + TmpFilePath( _ ) + [ Set _7 = Round( _5 * 100 / _3, 1 ) Where _3 &gt; 0 and _5 &gt; 0 ]<br /> SimpleSql( sql, TempPath )<br /> <br /> ( _ )-&gt;( DbGoTop() )<br /> result := _<br /> <br /> // _1 код<br /> // _2 наименование<br /> // _3 штук<br /> // _4 кг<br /> // _5 брак штук<br /> // _6 брак кг<br /> // _7 процент брака<br /> // _8<br /> // _9</div>

Hisava