Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://asu.tyumbit.ru/
Не обязательно. Можно сформировать поток на этом же прототипе, но по каждой накладной с именованием выходного файла.Den писал(а):Резюмируя предыдущих высказавшихся...фактически, нужно написать свою печать накладных как вам нужно.
SetFileName -это метод формы для интерфейсов. Т.е. парню надо лезть в vip-программу и переписать(ну или серьезно переработать существующий алгоритм формирования потока из VIP) печать каждой накладной в отдельный файл. Ибо сейчас просто в один сформированный файл вывалиться вся куча помеченных накладных (как ты там ее не переобзови .SetFileName)m0p3e писал(а):Не обязательно. Можно сформировать поток на этом же прототипе, но по каждой накладной с именованием выходного файла.Den писал(а):Резюмируя предыдущих высказавшихся...фактически, нужно написать свою печать накладных как вам нужно.
Я имею ввиду, что можно попробовать написать интерфейс-прослойку в который прямо передавать данные из текущего потока. SetFileName уже будет использовать этот вспомогательный интерфейс для формирования отдельного файла по каждому документу.Den писал(а):SetFileName -это метод формы для интерфейсов. Т.е. парню надо лезть в vip-программу и переписать(ну или серьезно переработать существующий алгоритм формирования потока из VIP) печать каждой накладной в отдельный файл. Ибо сейчас просто в один сформированный файл вывалиться вся куча помеченных накладных (как ты там ее не переобзови .SetFileName)m0p3e писал(а):Не обязательно. Можно сформировать поток на этом же прототипе, но по каждой накладной с именованием выходного файла.Den писал(а):Резюмируя предыдущих высказавшихся...фактически, нужно написать свою печать накладных как вам нужно.
Код: Выделить всё
#include FRRecordDefinition.vih
const
cmFRExport = 12345678;
end;
interface SampleInterface;
create view
var
FReport: LongInt;
ReportName: String;
as select
* from x$users;
// ------------------------------
datastream SampleStream
(
table x$users
(
[LGN] xu$loginname;
);
)
end;
screen sButtons;
buttons
cmFRExport;
<<
<.Excel.>
>>
end;
// ------------------------------
handleEvent
cmInit:
{
FReport := FRCreate(SampleStream);
}
cmFRExport:
{
var
ReportNames: array [0..0] of String;
if FReport <> 0 then
{
FRGetReportNames(FReport, ReportNames);
if Count(ReportNames) > 0 then
{
ReportName := ReportNames[0];
if FROpenReport(FReport, ReportName) then
{
var
ExportParam: frxBiffExportParam;
ClearAdvRecord(ExportParam);
FRGetDefaultParameters(frExportBiff, ExportParam);
ExportParam.ShowDialog := False;
ExportParam.OpenAfterExport := True;
if FRSetParameters(FReport, frExportBIFF, ExportParam) then
FRExportReport(FReport, frExportBIFF, 'C:\1.xls');
}
}
}
}
cmDone:
{
FRDestroy(FReport);
}
end;
// ------------------------------
end.