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

[Vetaley]

Понимаю, что корявенько))) тока луччего пока ничего предложить немогу. (не умею ) Насчет земель обсчего польз. - их у меня пропускают без подписей (достаточно 1й печати и подписи главы ОМС).
Прелагаю попросить спецов пощупать ентат опус (шаблон) и внести в него конструктивные изменения))).
Я думаю многие пользователи будут благодарны за рабочую конструкцию.

[Geolife_Vitaliy]

Прелагаю попросить спецов пощупать ентат опус (шаблон) и внести в него конструктивные изменения))).
Я думаю многие пользователи будут благодарны за рабочую конструкцию.

полностью поддерживаю по всем пунктам и добавляю свой карявый шаблон, может будет чем-то полезен )))
http://rghost.ru/17557831

[shels_chorny]

народ, подскажите, пожалуйста, как можно вытянуть ФИО смежников или их представителей (если смежники - юр. лица), кроме сельского совета... нужно это для новго акта приемки-передачи межевых знаков

Ниже прицеплен пример шаблона в котором показано как работать со смежниками в болие расширенной форме

[Geolife_Vitaliy]

Здравствуйте! подскажите, пожалуйста, как вытянуть ФИО землеустроителя из окна настройки Совета?

http://rghost.ru/19696191/image.png

[shels_chorny]

Здравствуйте! подскажите, пожалуйста, как вытянуть ФИО землеустроителя из окна настройки Совета?

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

var
    LndPeopleTypeWorking, LndPeopleName : string;
begin
 //совет

 // Чтение кад.номера
 SeekIKN(<DM1.QbObject."IKN">);

 If LocateData('DM1.QbFirm', 'ID_Firm', VarToStr(GetValue('DM2.TbAdvice', 'Rda_Firm'))) = true then
 begin
    if (GetValue('DM2.TbAdvice', 'Lnd_People') <> null) then
    begin
        // Lnd_People - землестроитель
        If LocateData('DM1.QbPeople', 'ID_People', VarToStr(GetValue('DM2.TbAdvice', 'Lnd_People'))) then
           LndPeopleName := <DM1.QbPeople."Family">;

        If LocateData('DM1.TbWorking', 'ID_People', GetValue('DM2.TbAdvice', 'Lnd_People')) then
            If LocateData('DM2.TbTypeWorking', 'ID_TypeWorking', <DM1.TbWorking."ID_TypeWorking">) then
                LndPeopleTypeWorking := Lowercase(<DM2.TbTypeWorking."Name2">);
    end;
 end;
end.

[NickS]

Здравствуйте! подскажите, пожалуйста, как вытянуть ФИО землеустроителя из окна настройки Совета?

http://rghost.ru/19696191/image.png

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

 PeopleLnd := '';

 SeekIKN(<DM1.QbObject."IKN">);

 If LocateData('DM1.QbFirm', 'ID_Firm', GetValue('DM2.TbAdvice', 'Rda_Firm')) = true then
    If LocateData('DM1.TbWorking', 'ID_People', GetValue('DM2.TbAdvice', 'Lnd_People')) then
       If LocateData('DM1.QbPeople', 'ID_People', GetValue('DM2.TbAdvice', 'Lnd_People')) then
          PeopleLnd := <DM1.QbPeople."Family">

Чтобы взять какието данные с конкретного совета (например с коатуу участка), нужно выполнить функцию SeekIKN, чтобы стать на этот совет, дальше используем функцию GetValue, так как в списке возможных базы базы совета нету. А дальше операции по определению сотрудника юрлица.

[NickS]

Я не увидел, что уже написано )) Ну ничего, будет две версии

[Vetaley]

Уважаемый Николай! Помогите пожалуйста с планом обмежень!!! Никак не могу подставить площадя, а взять готовую конструкцию неоткудова (((
Шаблон выслал Вам на электронку. Спасибо!

[ermack]

Доброго дня! Підскажіть будь-ласка за таким кодом в мене відображеється номер цільового за новим класифікатором разом з Секцією типу (А.01.03), а мені потрібно без секції, як це зробити?

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

 NaznCelNom  := '';
    NaznCelName := '';

    If LocateData( 'DM2.TbUses', 'ID_Uses', <DM1.TbUser."ID_Uses">) = True Then
    begin
        If RecordCount('DM2.TbUsesLnk') > 0 then
        begin
          DataFirst( 'DM2.TbUsesLnk');

          While DataEOF( 'DM2.TbUsesLnk') = False Do
          begin
            If LocateData( 'DM2.TbTypeUse', 'ID_TypeUse', GetValue('DM2.TbUsesLnk', 'ID_TypeUse')) = True Then
            begin
              NaznCelNom  := NaznCelNom + <DM2.TbTypeUse."Number2"> + ', ';
              NaznCelName := NaznCelName + <DM2.TbTypeUse."Name"> + ', ';
            end;

            DATANEXT( 'DM2.TbUsesLnk');
          end;
        end;

        NaznCelNom  := Copy(NaznCelNom, 1, Length(NaznCelNom)-2);
        NaznCelName := Copy(NaznCelName, 1, Length(NaznCelName)-2);
    end;

[Vetaley]

Доброго дня! Підскажіть будь-ласка за таким кодом в мене відображеється номер цільового за новим класифікатором разом з Секцією типу (А.01.03), а мені потрібно без секції, як це зробити?

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

 NaznCelNom  := '';
    NaznCelName := '';

    If LocateData( 'DM2.TbUses', 'ID_Uses', <DM1.TbUser."ID_Uses">) = True Then
    begin
        If RecordCount('DM2.TbUsesLnk') > 0 then
        begin
          DataFirst( 'DM2.TbUsesLnk');

          While DataEOF( 'DM2.TbUsesLnk') = False Do
          begin
            If LocateData( 'DM2.TbTypeUse', 'ID_TypeUse', GetValue('DM2.TbUsesLnk', 'ID_TypeUse')) = True Then
            begin
              NaznCelNom  := NaznCelNom + <DM2.TbTypeUse."Number2"> + ', ';
              NaznCelName := NaznCelName + <DM2.TbTypeUse."Name"> + ', ';
            end;

            DATANEXT( 'DM2.TbUsesLnk');
          end;
        end;

        NaznCelNom  := Copy(NaznCelNom, 1, Length(NaznCelNom)-2);
        NaznCelName := Copy(NaznCelName, 1, Length(NaznCelName)-2);
    end;

Код работает как надо:
NaznCelNom - вытягивает код целевого
NaznCelName - название целевого без номера
пробовал по-разному, но вытянуть номер секции у меня так и не вышло как вы это делаете?