ФИНАНСЫ БЕЗ ПРОБЛЕМ(tm):
ПЕРЕГОВОРНЫЙ ПУНКТ II

Добро пожаловать, Гость. Пожалуйста, выберите:
Вход || Регистрация.
25.01.21 в 23:09:32


Наш сайт | Cтаpый форум (до 08.2003 года) | Интернет-магазин & Центр загрузок |
Главная | Помощь | Поиск | Участники | Вход | Регистрация
Модифицированный Клиент CLW32:
Из документации ...
На форуме...

Использование Клиента FCM:
1. Отчетный период и журнал операций.
2. Печать.
3. Экспорт.
4. Многострочная операция.
5. Редактирование многострочных операций.
http://www.fwp-client.com

Работа с ФБП через браузер:
Настройка для лечебных учреждений, оказывающих медицинские услуги:
На форуме...
http://vasoft.ru

Технический аудит настройки.
[Читать]

ФИНАНСЫ БЕЗ ПРОБЛЕМ (сетевая) и Opencart:
предлагаем:
1. Выгрузка новых покупателей из интернет-магазина в план счетов и сохранение информации в extrd.dat.
2. Выгрузка данных о заказанном товаре и сохранение в ФБП в журнале операций, номер заказа регистрируем в плане счетов как с.счет.
3. Українська локалізація.






   Финансы без пpоблем: Пеpеговоpный Пункт II
   ФБП для начинающих

   Переход из формы в форму 01-02 МВ
« Нет темы | Следующая Тема »
Страниц: 1  Ответить | Уведомлять | Послать Тему | Печатать
   Автор  Тема: Переход из формы в форму 01-02 МВ  (Прочитано 270 раз)
Seroga

*



Я люблю этот Форум!

   
Просмотреть Профиль |

Сообщений: 12
Переход из формы в форму 01-02 МВ
« В: 15.11.20 в 10:25:01 »
Цитировать | Править

Напоминаю, что все формы по отдельности в любой версии программы выполняются.
Переход из формы 1 в форму 2 осуществляется по строке в начале первой формы:
 
N:ENTER:R -OF00013 *1*#1*#2*   (* вместо точки)
 
Далее идет форма 2:
 
q1=[ia @61]; z1=[n2 *q1]
 
При выполнении формы 2, по переходу, сервер выдает ошибку на этой строке «счет «*q1» не существует». И так далее по всем аналогичным моментам формы 2.
Что не так?
Зарегистрирован
Svetlana
Moderator

*****





472860567 472860567    
Просмотреть Профиль |

Сообщений: 382
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

*



Я люблю этот Форум!

   
Просмотреть Профиль |

Сообщений: 12
Re: Переход из формы в форму 01-02 МВ
« Ответить #2 В: 20.11.20 в 19:54:59 »
Цитировать | Править

благодарю за ответы, все заработало, немного разобрался, жаль что этого нет в руководстве
Зарегистрирован
Svetlana
Moderator

*****





472860567 472860567    
Просмотреть Профиль |

Сообщений: 382
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

*****





472860567 472860567    
Просмотреть Профиль |

Сообщений: 382
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

*****





472860567 472860567    
Просмотреть Профиль |

Сообщений: 382
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

*****





472860567 472860567    
Просмотреть Профиль |

Сообщений: 382
Re: Переход из формы в форму 01-02 МВ
« Ответить #6 В: 10.01.21 в 14:12:11 »
Цитировать | Править

Забыла написать - у меня нет редактора для редактирование файлов *.pdf и я их смотрю через браузер.
Поэтому если есть соответствующий редактор - надо путь к нему исправить.
Зарегистрирован
Страниц: 1  Ответить | Уведомлять | Послать Тему | Печатать

« Нет темы | Следующая Тема »

Powered by YaBB 1 Gold - SP 1.3.2!
Forum software copyright й 2000-2004 Yet another Bulletin Board