CftClub.ru
Клуб специалистов ЦФТ-Банк

Данные добавляется повторно
На страницу Пред.  1, 2
 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Уроки ЦФТ-Банк для начинающих
Предыдущая тема :: Следующая тема  
Автор Сообщение
Матвеев Евгений
Профи
Неподтвержденный


Вступление в Клуб: 31.01.2012
СообщениеСр Сен 02, 2015 17:12    Ответить с цитатой
Полезность: 1
брат666 пишет:
Спасибо большое, заработал.


На будущее, переходи на такую технологию (она для списочных, но для твоего примера в самый раз подойдет)

[Клиент скрипт]

Код:


      '----------------------------------------------------------------------------------------------
      GetData("NEXT_DOG")   
      do
         '----------------------------------------------------------------------------------------------      
         if Variant1.Value = 1 then      
            if not OpenWordDoc(WrdApp, WrdDoc, GetData("REPORTFILE1")) then
               MsgBox "Can not open file!"
               'Main = False
               Exit Sub
            end if
         end if
         
         if Variant2.Value = 1 then      
            if not OpenWordDoc(WrdApp, WrdDoc, GetData("REPORTFILE2")) then
               MsgBox "Can not open file!"
               'Main = False
               Exit Sub
            end if
         end if      
         
         dim FieldsColl
         set FieldsColl = WrdApp.ActiveDocument.FormFields
         if FieldsColl.Count >= 1 then
            for Each aField in FieldsColl            
               Text4Setting = GetData(aField.Name)
               if Text4Setting = "" then
                  Text4Setting = " "
               end if
               if Len(Text4Setting) > 255 _
               or instr(1, Text4Setting, vbLF, vbBinaryCompare) > 0 _
               then
                  WrdDoc.FormFields(aField.Name).Select
                  Call WrdApp.Selection.TypeText(Text4Setting)
               else
                  aField.Result = Text4Setting
               end if
            next
         end If
         'call SetWordVisible(WrdApp, WrdDoc)' показать документ         
         WrdDoc.SaveAs V_TARGET_PATH & V_PREFIX_TARGET_PATH & V_PREFIX_TARGET_PATH2 & GetData("FULL_FILE_NAME") & ".docx"
         WrdDoc.Close      
   
      Loop While GetData("NEXT_DOG") <> "" 'V_NUM_DOG.Text <> ""
      WrdApp.Quit




[Проверка]

Код:

      elsif   p_info = 'NEXT_DOG' then         
         -- Переходим к следующему договору
         if CurIdx is null then
            CurIdx := this.first;
         elsif CurIdx = this.last then
            CurIdx := null;
         else
            CurIdx := this.next(CurIdx);
         end if;         
         if not CurIdx is null then
            cred := this(CurIdx);         
            P_DATA := cred%id;
         else
            P_DATA := '';
            cred := null;
         end if;

Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Уроки ЦФТ-Банк для начинающих Часовой пояс: GMT + 3
На страницу Пред.  1, 2
Страница 2 из 2

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru