Приклади робочих скриптів у звітових формах

[NickS]

Здравствуйте! У меня такая проблема: помечаю зеленой меткой несколько участков, нажимаю "печать - по отмеченным" и происходит следующее.
- Окно выбора принтера не выдает (у нас их много).
- Синяя строчка, в окне земельные участки, по очереди переходит с участка на участок (как-будто формирует листы печати).
- Печатает только один (последний) документ (с последней записи).
Что можно сделать?

Сделано специально так, чтобы в результате получился набор всех листов в предварительном просмотре, потому принтер выбирается уже во время печати. Почему у Вас только последний документ - не знаю. Я у себя по пробовал, то все отмеченные видно.

[Vaho]

Извините, я немного не правильно написал!
Печатает не один экземпляр, а все (у меня их 141), но 141 экземпляр последнего примера. То-есть 141 экземпляр одного и того же плана, последнего по списку. И в добавок, масштаб пишет 1:0

[NickS]

Извините, я немного не правильно написал!
Печатает не один экземпляр, а все (у меня их 141), но 141 экземпляр последнего примера. То-есть 141 экземпляр одного и того же плана, последнего по списку. И в добавок, масштаб пишет 1:0

Если надо напечатать отчётные формы с рисунком из камеральных, то обязательно надо эту функцию запускать из окна камеральных функций!

[NoViChoK]

В стандартному шаблоні: "Акт приёмо-передачи межевых знаков 2013.fr3" в таблиці "Кроки межового знака" замість [MejnZN."Visible"] хочу щоб писало так (приклад): Межовий знак має пряму видимість на межові знаки №2015.07-000-00001 (попередній межовий знак) та 2015.07-000-00003 (наступний межовий знак), та знаходиться на відстані 97,50 м. (на попередній межовий знак) та 106,16 м. (на наступний межовий знак) відповідно.

Знаю, що можна вручну вписати це в вікні "Изменение точки для земельного участка", просто хочется трішки автоматизувати. Але не придумаю як це все кодом прописати Не підскажете?

[feNICKs]

Але не придумаю як це все кодом прописати Не підскажете?

Код: Виділити все

procedure DetailData2OnBeforePrint(Sender: TfrxComponent);
Var
   idPoint,  N1, N2 : Integer;
   L1, L2: Double;
   MarkNum1, MarkNum2: String;
begin
    MarkInfo  := '';
    MarkInfo2 := '';
    MarkNum1  := '';
    MarkNum2  := '';

    If RadioButton1.Checked Then
       MarkInfo := <MejnZN."Note">
    Else
       MarkInfo := Trim( Memo62.Lines.Text);

    If LocateData( 'DM1.TbPoint', 'ID_Point', <MejnZN."ID_Point">) Then
    Begin
       idPoint := <DM1.TbPoint."ID_Point">;

       If <DM1.TbPoint."SortNumber"> = 1 Then
          Begin
             DataNext( 'DM1.TbPoint');

             L1 := <DM1.TbPoint."LenLine">;
             N1 := <DM1.TbPoint."Number">;

             If LocateData( 'DM1.QiLandMark', 'ID_LandMark', <DM1.TbPoint."ID_LandMark">) Then
                MarkNum1 := DValue( 'DM1.QiLandMark', 'MarkNumber');

             DataLast( 'DM1.TbPoint');
             L2 := <DM1.TbPoint."LenLine">;

             DataPrior( 'DM1.TbPoint');
             N2 := <DM1.TbPoint."Number">;

             If LocateData( 'DM1.QiLandMark', 'ID_LandMark', <DM1.TbPoint."ID_LandMark">) Then
                MarkNum2 := DValue( 'DM1.QiLandMark', 'MarkNumber');

             MarkInfo2 := 'Розташований на відстані ' + FormatFloat( '0.00', L1) +
                          ' від знаку № '+IIF( MarkNum1<>'', MarkNum1, IntToStr( N1)) +' та ' + FormatFloat( '0.00', L2) +' від знаку № '+ IIF( MarkNum2<>'', MarkNum2, IntToStr( N2));
          End
       Else
          If Not DataEOF( 'DM1.TbPoint') Then
          Begin
             L2 := <DM1.TbPoint."LenLine">;
             DataPrior( 'DM1.TbPoint');
             N2 := <DM1.TbPoint."Number">;

             If LocateData( 'DM1.QiLandMark', 'ID_LandMark', <DM1.TbPoint."ID_LandMark">) Then
                MarkNum2 := DValue( 'DM1.QiLandMark', 'MarkNumber');

             LocateData( 'DM1.TbPoint', 'ID_Point', IntToStr( idPoint));
             DataNext( 'DM1.TbPoint');

             L1 := <DM1.TbPoint."LenLine">;
             N1 := <DM1.TbPoint."Number">;

             If LocateData( 'DM1.QiLandMark', 'ID_LandMark', <DM1.TbPoint."ID_LandMark">) Then
                MarkNum1 := DValue( 'DM1.QiLandMark', 'MarkNumber');

             MarkInfo2 := 'Розташований на відстані ' + FormatFloat( '0.00', L1) +
                          ' від знаку № '+IIF( MarkNum1<>'', MarkNum1, IntToStr( N1)) +' та ' + FormatFloat( '0.00', L2) +' від знаку № '+ IIF( MarkNum2<>'', MarkNum2, IntToStr( N2));
          End;
    End;
end;

[Dorochenko_iv]

If RadioButton1.Checked Then

Подскажите пожалуйста, из примера последнего кода куда вставляется кнопка RadioButton1 если в шаблоне "Акт приёмо-передачи межевых знаков 2013.fr3" у нас нету диалоговой формы ?

[feNICKs]

Подскажите пожалуйста, из примера последнего кода куда вставляется кнопка RadioButton1 если в шаблоне "Акт приёмо-передачи межевых знаков 2013.fr3" у нас нету диалоговой формы ?

Просто создаете диалоговое окно (в верхней панельке кнопка "Добавить форму в отчет"). В диалог.окно добавляете компоненты "RadioButton" и кнопку "Button". В кнопке Button, нужно указать для параметра ModelResult = mrOk + нужно перенести на события кнопки "procedure Button1OnClick(Sender: TfrxComponent);" программный код, в котором будет использоваться условие с RadioButton1.

[NoViChoK]

Как прописать что бы от [Date] отнималось/плюсовалось определенное количество дней. Например: DateNew := [Date] + 5 дней

[007stas]

Как прописать что бы от [Date] отнималось/плюсовалось определенное количество дней. Например: DateNew := [Date] + 5 дней

[Date+5], или [IntToStr(DayOf(Date)+5)+'.'+IntToStr(MonthOf(Date))+'.'+IntToStr(YearOf(Date))]. Можно и по другому.

[milcom]

Тільки начав розбиратися в створенні своїх звітів. В мене виникло таке питання: як на звіт витягнути землевпорядника і голову сільської ради? Вірніше яке ім'я бази данних підключити і які поля з нього взяти?