Nak 181120

Материал из Фабиус wiki
Версия от 08:46, 26 ноября 2018; Hisava (обсуждение | вклад) (Новая страница: « <OPENPIPELINE> local bands, dict, month, year, okpo, name, adres, sub, sub_bands, aa, bb adres := seekref( 'r01', factorykod, 'ADRES', 1 ) name := realname( '…»)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск
<OPENPIPELINE>
local bands, dict, month, year, okpo, name, adres, sub, sub_bands, aa, bb
adres := seekref( 'r01', factorykod, 'ADRES', 1 )
name := realname( 'r01', factorykod )
okpo := seekref( 'r01', factorykod, 'OKPO_CODE', 1 )
year := year( curdate ) - 2000
month := name_month( month( curdate ) )
bands := { { 'Title', 'a1:EZ36' } }
sub_bands := { { 'Title', 'a1:ES80' } }
dbgotop()
_011 := NATTR3
_012 := NATTR4
dict := { { 'month', month }, { 'year', year }, { 'okpo', okpo }, { 'name', name }, { 'adres', adres } } //  { '_011', _011 }, { '_012', _012 } }
while !eof()
  aa := '_' + atr( CATTR1 ) + '1'
  bb := '_' + atr( CATTR1 ) + '2'
  public &aa, &bb
  aa := '_' + atr( CATTR1 ) + '1 := NATTR3'
  &aa
  bb := '_' + atr( CATTR1 ) + '2 := NATTR4'
  &bb
  aa := [addarray( dict, { { '_] + atr( CATTR1 ) + [1', _] + atr( CATTR1 ) + [1 } } )]
  &aa
  bb := [addarray( dict, { { '_] + atr( CATTR1 ) + [2', _] + atr( CATTR1 ) + [2 } } )]
  &bb
  dbskip()
end
sub := { 'стр.2_4',,, dict, sub_bands }
excelreport( 'nak_181120.xltx',,,, dict, bands, sub )