Автор |
Тема: Переход из формы в форму 01-02 МВ (Прочитано 891 раз) |
|
Seroga
Я люблю этот Форум!
Просмотреть Профиль |
Сообщений: 40
|
Напоминаю, что все формы по отдельности в любой версии программы выполняются. Переход из формы 1 в форму 2 осуществляется по строке в начале первой формы: N:ENTER:R -OF00013 *1*#1*#2* (* вместо точки) Далее идет форма 2: q1=[ia @61]; z1=[n2 *q1] При выполнении формы 2, по переходу, сервер выдает ошибку на этой строке «счет «*q1» не существует». И так далее по всем аналогичным моментам формы 2. Что не так?
|
|
Зарегистрирован |
|
|
|
Svetlana
Moderator
Просмотреть Профиль |
Сообщений: 409
|
|
Re: Переход из формы в форму 01-02 МВ
« Ответить #1 В: 15.11.20 в 21:25:41 » |
Цитировать | Править
|
Ну если бы вы дали исходный текст (начало) второго отчета, то легче было бы увидеть - что там не так. А так - буду пробовать угадать и скорее всего что вы не указали иерархию приема данных. Вот ваша директива: N:ENTER:R -OF00013 *1*#1*#2* (* вместо точки). Я выделила жирным первую позицию: ее и нужно было сначала спросить, а потом уже извлекать вторую позицию, которая со знаком #. Ваш второй отчет должен был выглядеть так: * ?B if B=1 НАИМЕНОВАНИЕ q1=[ia 61]; n2=[n2 *q1] ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^n2 endif То есть, из директивы вы указываете, в каком виде будет отчет ( у вас это под цифрой '1'). В отчете 2 можно рассмотреть разные варианты отчета и перебирать их по elseif (в продолжение того, что я указала выше). И только после указания вида отчета - начинаем принимать данные по обозначению субсчета 61. Если у вас второй отчет будет представлен только в одном виде, можно было тогда в директиве укоротить до такого вида: N:ENTER:R -OF00013 *#1*#2* (* вместо точки) . И тогда второй отчет должен отработать в таком виде, как вы писали: q1=[ia 61]; n2=[n1 *q1]
|
« Изменён в : 15.11.20 в 21:28:11 пользователем: Svetlana » |
Зарегистрирован |
|
|
|
Seroga
Я люблю этот Форум!
Просмотреть Профиль |
Сообщений: 40
|
|
Re: Переход из формы в форму 01-02 МВ
« Ответить #2 В: 20.11.20 в 19:54:59 » |
Цитировать | Править
|
благодарю за ответы, все заработало, немного разобрался, жаль что этого нет в руководстве
|
|
Зарегистрирован |
|
|
|
Svetlana
Moderator
Просмотреть Профиль |
Сообщений: 409
|
|
Re: Переход из формы в форму 01-02 МВ
« Ответить #3 В: 10.01.21 в 13:57:46 » |
Цитировать | Править
|
Продолжаем разбирать вопрос. Вот такое более подробное описание задачи: Где-то (на каком-то компе) есть директории (папки), например: Договоры Турбина ИНН Предприятие 1 2019 2020 200115-01 200223-01 200223-01 00 ******* Договор.pdf 200223-01 01 ******* ТехЗадание.pdf 200223-01 02 ******* Смета.pdf ************ и т.д. 200412-01 ********* 2021 ИНН Предприятие 2 1. Отбор производится по предприятию и по номеру договора. Форма - получаем список договоров определенного предприятия, из нее переходим в карточку определенного договора (это уже работает) и вот в ней, в конце, можно увидеть все документы по данному договору? (в основном это файлы PDF), т.е.: 200223-01 00 ******* Договор 200223-01 01 ******* ТехЗадание 200223-01 02 ******* Смета ************ и т.д. 2. Далее, в форме, курсор на договоре, ентер, и файл с договором открывается определенной программой для просмотра. 3. Далее, в форме, выделить нужные файлы из перечня, скопировать и поместить в нужный директорий.
|
« Изменён в : 10.01.21 в 13:58:32 пользователем: Svetlana » |
Зарегистрирован |
|
|
|
Svetlana
Moderator
Просмотреть Профиль |
Сообщений: 409
|
|
Re: Переход из формы в форму 01-02 МВ
« Ответить #4 В: 10.01.21 в 14:09:33 » |
Цитировать | Править
|
Я поняла так: есть проблема по организации перехода из формы в форму. Создала на диске 'c:\' каталог 'DOGOVORA'. В нем - подкаталог 'TURBINA', ... и так далее, вот так: DOGOVORA ---TURBINA ------ 770302310 ---------2019 ---------2020 ------------200223-01 ----------------1_zajavka.pdf ----------------2_zajavka.pdf ----------------3_zajavka.pdf ---------2021 ------ 770345678 То есть, количество уровней - как в описании задачи. В сообщении ниже будет целиком текст формы, которую можно запускать из меню 'формы на сервере' или присоединить на клавишу. Суть формы - переход из каталога в каталог и просмотр и извлечение имеющихся имен каталогов. Переход задан на клавишу ENTER.
|
|
Зарегистрирован |
|
|
|
Svetlana
Moderator
Просмотреть Профиль |
Сообщений: 409
|
|
Re: Переход из формы в форму 01-02 МВ
« Ответить #5 В: 10.01.21 в 14:10:42 » |
Цитировать | Править
|
* A=[im 'варианты','1','2','3','4','5'] if A=1 loaddir 'c:\DOGOVORA\*.*' a1=[ged 'ld.N'] if a1>0 СПИСОК ПОДКАТАЛОГОВ: N:ENTER:R MENU2 ·2·#1· for i=3 to a1 k=[ged 'ld.'+[intsn i]] ^^^^^^^^^^^^^^k endfor N:ENTER:#CLOSE endif elseif A=2 ?B if [type B]=0 B=[intsn B] else B=[strip B]; endif loaddir 'c:\DOGOVORA\'+B+'\*.*' a2=[ged 'ld.N'] СПИСОК ПРЕДПРИЯТИЙ: printstr 'N:ENTER:R MENU2 ·3·'+B+'·#1·'+[ch 10] if a2>0 for j=3 to a2 k=[ged 'ld.'+[intsn j]] ^^^^^^^^^^^^^^k endfor endif N:ENTER:#CLOSE elseif A=3 ?B ?C if [type B]=0 B=[intsn B] else B=[strip B]; endif if [type C]=0 C=[intsn C] else C=[strip C]; endif loaddir 'c:\DOGOVORA\'+B+'\'+C+'\*.*' a3=[ged 'ld.N'] ВЫБРАТЬ ГОД: printstr 'N:ENTER:R MENU2 ·4·'+B+'·'+C+'·#1·'+[ch 10] if a3>0 for j=3 to a3 k=[ged 'ld.'+[intsn j]] ^^^^^^^^^^^^^^k endfor N:ENTER:#CLOSE endif elseif A=4 ?B ?C ?E if [type B]=0 B=[intsn B] else B=[strip B]; endif if [type C]=0 C=[intsn C] else C=[strip C]; endif if [type E]=0 E=[intsn E] else E=[strip E]; endif loaddir 'c:\DOGOVORA\'+B+'\'+C+'\'+E+'\*.*' a4=[ged 'ld.N'] ВЫБРАТЬ: printstr 'N:ENTER:R MENU2 ·5·'+B+'·'+C+'·'+E+'·#1·'+[ch 10] if a4>0 for j=3 to a4 k=[ged 'ld.'+[intsn j]] ^^^^^^^^^^^^^^k endfor N:ENTER: endif elseif A=5 ?B ?C ?E ?F if [type B]=0 B=[intsn B] else B=[strip B]; endif if [type C]=0 C=[intsn C] else C=[strip C]; endif if [type E]=0 E=[intsn E] else E=[strip E]; endif if [type F]=0 F=[intsn F] else F=[strip F]; endif loaddir 'c:\DOGOVORA\'+B+'\'+C+'\'+E+'\'+F+'\*.*' a5=[ged 'ld.N'] ВЫБРАТЬ ПОСМОТРЕТЬ (ENTER-посмотреть; ESC-откатиться назад): for j=3 to a5 k=[ged 'ld.'+[intsn j]] BB=[ch 32]+'c:\DOGOVORA\'+B+'\'+C+'\'+E+'\'+F+'\'+k+[ch 10] printstr 'N:ENTER:>"C:\Program Files\Google\Chrome\Application\chrome.exe"'+BB ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^k N:ENTER: endfor * endif
|
|
Зарегистрирован |
|
|
|
Svetlana
Moderator
Просмотреть Профиль |
Сообщений: 409
|
|
Re: Переход из формы в форму 01-02 МВ
« Ответить #6 В: 10.01.21 в 14:12:11 » |
Цитировать | Править
|
Забыла написать - у меня нет редактора для редактирование файлов *.pdf и я их смотрю через браузер. Поэтому если есть соответствующий редактор - надо путь к нему исправить.
|
|
Зарегистрирован |
|
|
|
|
|