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

Геодезична інформаційна система 6 та Геодезична інформаційна система 6 Агро

Модератори: NickS, feNICKs

Аватар користувача
Vetaley
Повідомлень: 119
З нами з: 15 лютого 2010, 13:16
Звідки: ХарькОфф
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення Vetaley » 10 серпня 2011, 12:57

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

Geolife_Vitaliy
Повідомлень: 12
З нами з: 29 липня 2011, 15:05
Звідки: Днепропетровская область

Re: Вопросы по базам данных в отчётных формах.

Повідомлення Geolife_Vitaliy » 11 серпня 2011, 09:02

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


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

shels_chorny
Повідомлень: 41
З нами з: 31 березня 2011, 15:17
Звідки: Кировоград
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення shels_chorny » 16 серпня 2011, 12:43

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


Ниже прицеплен пример шаблона в котором показано как работать со смежниками в болие расширенной форме
Вкладення
.zip
Смежники
(1.82 Кіб) Завантажено 36 разів

Geolife_Vitaliy
Повідомлень: 12
З нами з: 29 липня 2011, 15:05
Звідки: Днепропетровская область

Re: Вопросы по базам данных в отчётных формах.

Повідомлення Geolife_Vitaliy » 29 серпня 2011, 11:34

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

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

shels_chorny
Повідомлень: 41
З нами з: 31 березня 2011, 15:17
Звідки: Кировоград
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення shels_chorny » 29 серпня 2011, 15:19

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

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

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
Повідомлень: 1393
З нами з: 04 квітня 2008, 12:21

Re: Вопросы по базам данных в отчётных формах.

Повідомлення NickS » 29 серпня 2011, 17:30

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

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
Повідомлень: 1393
З нами з: 04 квітня 2008, 12:21

Re: Вопросы по базам данных в отчётных формах.

Повідомлення NickS » 29 серпня 2011, 17:39

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

Аватар користувача
Vetaley
Повідомлень: 119
З нами з: 15 лютого 2010, 13:16
Звідки: ХарькОфф
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення Vetaley » 04 жовтня 2011, 13:58

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

ermack
Повідомлень: 5
З нами з: 15 березня 2011, 17:43

Re: Вопросы по базам данных в отчётных формах.

Повідомлення ermack » 05 жовтня 2011, 17:24

Доброго дня! Підскажіть будь-ласка за таким кодом в мене відображеється номер цільового за новим класифікатором разом з Секцією типу (А.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
Повідомлень: 119
З нами з: 15 лютого 2010, 13:16
Звідки: ХарькОфф
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення Vetaley » 05 жовтня 2011, 19:06

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;

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