|
|
| (не показаны 42 промежуточные версии этого же участника) |
| Строка 1: |
Строка 1: |
| − | Пришлось написать отдельную функцию, потому что иногда встречается локальная <span style="color:#0000FF">nil</span> переменная reflispath
| + | 192.168.234.54 |
| − | '''MY_REFLISPATH'''
| + | |
| − | | + | |
| − | | + | |
| − | elseif x = 8 // test
| + | |
| − | local _, sql, _2, fld, aa
| + | |
| − | fld := ' _0,C,4; _1,N,5; _2,N,14,4; _3,C,60; '
| + | |
| − | try
| + | |
| − | _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
| + | |
| − | _2 := CreateTmpFile( fld, '_2', ~IsFreeDel := true )
| + | |
| − | while !eof
| + | |
| − | sql := [ Select KREFL2, KANAL2, "SUM" From DOCS] + RET_F_EXT() + [ Where KINDDOC = 'RTH' and LVLNUM = '3' and ;
| + | |
| − | CATTR10 <> 'Д' and AMNT <> 0 and KREFL2 = 'R11 ' and ] + SQLFIELD( 'NDS_PRC ') + [ = 10 and EXTPARENT = '] + RGNUM + [' ]
| + | |
| − | SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _0, _1, _2 ) ] + sql, OpdataPath ) // RTH3
| + | |
| − | sql := [ Select KREFL2, KANAL2, ] + SQLFIELD( 'NACSUM' ) + [ From DOCS] + RET_F_EXT() + [ Where KINDDOC = 'YTM' and ;
| + | |
| − | LVLNUM = '2' and EXTPARENT = '] + RGNUM + [' and ] + SQLFIELD( 'NDSPRC ') + [ = 10 ] // YTM2
| + | |
| − | SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _0, _1, _2 ) ] + sql, OpdataPath )
| + | |
| − | sql := [ Select KREFL2, KANAL2, "SUM" From DOCS] + RET_F_EXT() + [ Where KINDDOC = 'ACP' and LVLNUM = '3' and ;
| + | |
| − | ] + SQLFIELD( 'NDSPRC ') + [ = 10 and PARENT = '] + RGNUM + [' ] // ACP3
| + | |
| − | SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _0, _1, _2 ) ] + sql, OpdataPath )
| + | |
| − | DBSKIP()
| + | |
| − | end
| + | |
| − | sql := [ Select _0, _1, SUM( _2 ) From ] + TmpFilePath( _2 ) + [ Group by _0, _1 ] // _2 -> _
| + | |
| − | SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _0, _1, _2 ) ] + sql, OpdataPath )
| + | |
| − | | + | |
| − | sql := [ Update _ Set _3 = Left( PNAME, 60 ) From ] + TmpFilePath( _ ) + [ _ ;
| + | |
| − | left outer join R08 ON _1 = KOD Where _0 = 'R08 ' ]
| + | |
| − | | + | |
| − | sql := [ Update tt Set _3 = Left( PNAME, 60 ) From ] + TmpFilePath( _ ) + [ tt left outer join R08 ON _1 = KOD Where _0 = 'R08 ' ]
| + | |
| − | @
| + | |
| − | SIMPLESQL( sql, reflispath )
| + | |
| − | @
| + | |
| − | // SimpleSql( sql, reflispath )
| + | |
| − | // SimpleSql( sql, reflispath ) // r08
| + | |
| − | | + | |
| − | finally
| + | |
| − | CLOSETABLE( _2 )
| + | |
| − | CLOSETABLE( _ )
| + | |
| − | end
| + | |
| − | | + | |
| − | | + | |
| − | | + | |
| − | [mailto:support@sftserv.ru support@sftserv.ru]
| + | |
| − | | + | |
| − | Skype
| + | |
| − | alexey_veretennikov
| + | |
| − | | + | |
| − | Рабочий телефон
| + | |
| − | | + | |
| − | 8 (495) 989-57-08 ( добавочный 05 )
| + | |
| − | | + | |
| − | [mailto:veretennikovalexey@gmail.com veretennikovalexey@gmail.com]
| + | |
| − | | + | |
| − | = Все права защищены =
| + | |
| − | https://msk.yitservice.ru/
| + | |
| − | | + | |
| − | [[R217]]\\4.7.47.51:5050\data\fabius\opdata\dict.add
| + | |
| − | | + | |
| − | MAKER=Softs
| + | |
| − | servicepath=\\server\vol1\service\db
| + | |
| − | | + | |
| − | 192.168.234.32 | + | |
| − | | + | |
| − | raidex@yandex.ru
| + | |
| − | | + | |
| − | AdsSys - логин для словаря DICT.ADD
| + | |
| − | | + | |
| − | https://notepad-plus-plus.org/
| + | |
| − | | + | |
| | = Смотрите также = | | = Смотрите также = |
| − | [https://ru.wikipedia.org/wiki/Участник:Alexey_veretennikov Участник википедии]
| |
| − |
| |
| − | [[Служебная:Список_участников|Список участников]]
| |
| − |
| |
| | [[Контакты]] | | [[Контакты]] |
