Алексей — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показаны 43 промежуточные версии этого же участника)
Строка 1: Строка 1:
Пришлось написать отдельную функцию, потому что иногда встречается локальная nil переменная 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 Участник википедии]
 
 
[[Служебная:Список_участников|Список участников]]
 
 
 
[[Контакты]]
 
[[Контакты]]

Текущая версия на 15:03, 25 января 2022

192.168.234.54

Смотрите также

Контакты