Библиотека печати отчетов в RTF
Добавлено: 13 Апрель 2012, 8:35
В глобальном модуле вставка:
include('qrpt6x.inc')
Пример:
if not status(Journal)
Share(Journal)
end
Set(Journal,0)
bind('DatesV',DatesV)
bind('DatesR',DatesR)
bind('RecCount',GLO:RecCount)
bind('RecKolNar',GLO:RecKolNar)
bind('RecKolNar',GLO:RecKolNar)
bind('RecRezRasm',GLO:RecRezRasm)
bind('RecRezRasm1',GLO:RecRezRasm1)
bind('RecUchProk',GLO:RecUchProk)
bind('RecNarSrok',GLO:RecNarSrok)
bind('RecRSrok',GLO:RecRSrok)
bind('RepDopstr',RepDopstr)
bind('Numpp',Numpp)
bind('Prok',Prok)
ch# = OpenRpt('.\TEMPLATE\Ïðåäñòàâëåíèÿ.rtf','.\reports\Ïðåäñòàâëåíèÿ')
WriteBlock('MAIN')
set(JRN6:NumberKey,1)
Numpp=0
Loop until eof(Journal)
Next(Journal)
if clip(evaluate(clip(BRW1::View:Browse{prop:filter})))<>'0'
RepDopstr=JRN:CodeDopSTR
DatesV=Format(JRN:Dates,@d6)
DatesR=Format(JRN:DatesR,@d6)
Numpp+=1
If JRN:RunProcuror
prok=1
else
prok=''
end
WriteBlock('BODY')
end
END
WriteBlock('ITOG')
CloseRpt()
include('qrpt6x.inc')
Пример:
if not status(Journal)
Share(Journal)
end
Set(Journal,0)
bind('DatesV',DatesV)
bind('DatesR',DatesR)
bind('RecCount',GLO:RecCount)
bind('RecKolNar',GLO:RecKolNar)
bind('RecKolNar',GLO:RecKolNar)
bind('RecRezRasm',GLO:RecRezRasm)
bind('RecRezRasm1',GLO:RecRezRasm1)
bind('RecUchProk',GLO:RecUchProk)
bind('RecNarSrok',GLO:RecNarSrok)
bind('RecRSrok',GLO:RecRSrok)
bind('RepDopstr',RepDopstr)
bind('Numpp',Numpp)
bind('Prok',Prok)
ch# = OpenRpt('.\TEMPLATE\Ïðåäñòàâëåíèÿ.rtf','.\reports\Ïðåäñòàâëåíèÿ')
WriteBlock('MAIN')
set(JRN6:NumberKey,1)
Numpp=0
Loop until eof(Journal)
Next(Journal)
if clip(evaluate(clip(BRW1::View:Browse{prop:filter})))<>'0'
RepDopstr=JRN:CodeDopSTR
DatesV=Format(JRN:Dates,@d6)
DatesR=Format(JRN:DatesR,@d6)
Numpp+=1
If JRN:RunProcuror
prok=1
else
prok=''
end
WriteBlock('BODY')
end
END
WriteBlock('ITOG')
CloseRpt()