Звітові форми для Microsoft Word

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

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

Аватар користувача
NickS
Повідомлень: 1393
З нами з: 04 квітня 2008, 12:21

Re: Отчётные формы для Microsoft Word

Повідомлення NickS » 22 серпня 2016, 16:56

vitalok_mzo писав:Подскажите код для "код КВЦПЗ и наименование КВЗПЗ"

В шаблоне "База слияния.fr3" на закладке "Код" найтите строку:

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

 ArrayEx('Участок_УКЦИЗ_код_2', 0);


и ниже её добавте:

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

 ArrayEx('Участок_КВЦПЗ_код', 0);
 ArrayEx('Участок_КВЦПЗ_наименование', 0);


Найдите кусоче кода:

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

      If LocateData( 'DM2.TbTypeUses', 'ID_TypeUses', GetValue('DM2.TbUsesLnk', 'ID_TypeUses')) = True Then
      begin
        A2[ArrayEx('Участок_УКЦИЗ_код_1', 1)]  := <DM2.TbTypeUses."Number">;
        A2[ArrayEx('Участок_Функц_назнач1', 1)] := <DM2.TbTypeUses."Name">;
      end;


И ниже него добавте:

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

      If LocateData( 'DM2.TbTypeUse', 'ID_TypeUse', GetValue('DM2.TbUsesLnk', 'ID_TypeUse')) = True Then
      begin
        A2[ArrayEx('Участок_КВЦПЗ_код', 1)]  := <DM2.TbTypeUse."Number">;
        A2[ArrayEx('Участок_КВЦПЗ_наименование', 1)] := <DM2.TbTypeUse."Name">;
      end;

И также не забудьте подключить таблицу DM2.TbTypeUse

vitalok_mzo
Повідомлень: 9
З нами з: 19 серпня 2016, 10:45

Re: Отчётные формы для Microsoft Word

Повідомлення vitalok_mzo » 23 серпня 2016, 13:45

NickS писав:
vitalok_mzo писав:Подскажите код для "код КВЦПЗ и наименование КВЗПЗ"

В шаблоне "База слияния.fr3" на закладке "Код" найтите строку:

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

 ArrayEx('Участок_УКЦИЗ_код_2', 0);


и ниже её добавте:

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

 ArrayEx('Участок_КВЦПЗ_код', 0);
 ArrayEx('Участок_КВЦПЗ_наименование', 0);


Найдите кусоче кода:

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

      If LocateData( 'DM2.TbTypeUses', 'ID_TypeUses', GetValue('DM2.TbUsesLnk', 'ID_TypeUses')) = True Then
      begin
        A2[ArrayEx('Участок_УКЦИЗ_код_1', 1)]  := <DM2.TbTypeUses."Number">;
        A2[ArrayEx('Участок_Функц_назнач1', 1)] := <DM2.TbTypeUses."Name">;
      end;


И ниже него добавте:

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

      If LocateData( 'DM2.TbTypeUse', 'ID_TypeUse', GetValue('DM2.TbUsesLnk', 'ID_TypeUse')) = True Then
      begin
        A2[ArrayEx('Участок_КВЦПЗ_код', 1)]  := <DM2.TbTypeUse."Number">;
        A2[ArrayEx('Участок_КВЦПЗ_наименование', 1)] := <DM2.TbTypeUse."Name">;
      end;

И также не забудьте подключить таблицу DM2.TbTypeUse


Спасибо!
Но в Microsoft Word не прописывает.
Что нужно прописать в Microsoft Word чтоб выдавало: КВЦПЗ_код и КВЦПЗ_наименование?

Аватар користувача
NickS
Повідомлень: 1393
З нами з: 04 квітня 2008, 12:21

Re: Отчётные формы для Microsoft Word

Повідомлення NickS » 23 серпня 2016, 15:16

vitalok_mzo писав:Но в Microsoft Word не прописывает.
Что нужно прописать в Microsoft Word чтоб выдавало: КВЦПЗ_код и КВЦПЗ_наименование?

Для начала, разберитесь как вообще работать с шаблонами Word и с базой слияния. Вот блоги для шаблонов Word:
http://shels.com.ua/blog.htm?b=70
http://shels.com.ua/blog.htm?b=71

vitalok_mzo
Повідомлень: 9
З нами з: 19 серпня 2016, 10:45

Re: Отчётные формы для Microsoft Word

Повідомлення vitalok_mzo » 23 серпня 2016, 15:46

Подскажите что не так?
Вкладення
.jpg

vitalok_mzo
Повідомлень: 9
З нами з: 19 серпня 2016, 10:45

Re: Отчётные формы для Microsoft Word

Повідомлення vitalok_mzo » 23 серпня 2016, 16:25

NickS писав:
vitalok_mzo писав:Но в Microsoft Word не прописывает.
Что нужно прописать в Microsoft Word чтоб выдавало: КВЦПЗ_код и КВЦПЗ_наименование?

Для начала, разберитесь как вообще работать с шаблонами Word и с базой слияния. Вот блоги для шаблонов Word:
http://shels.com.ua/blog.htm?b=70
http://shels.com.ua/blog.htm?b=71

Спасибо. Разобрался.