Данные добавляется повторно
На страницу Пред. 1, 2
|
| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Матвеев Евгений
Профи
Вступление в Клуб: 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;
|
|
|
 |
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
