Joined: 27 Jun 2003 Posts: 27 Location: Наталья Позднякова
Interests: Минск, Беларусь
Posted: 23 Aug 2004 12:57 Post subject: Fileeval при расчете прайс-листа
При расчете основного прайс-листа одну из цен (четвертую) надо считать с помощью Fileeval: программки запрашивает какую-либо информацию и далее считает цену с использованием этой информации. Проблема в том, что функция DIALOG запрашивает значения 2 раза, результатом ее является именно второе введенное значение, информацию приходится вводить повторно, что очень утомительно. Аналогично, если использовать Sayandwait, то сообщение тоже выдается 2 раза...
Подскажите, пожалуйста, как с этим бороться???
Пример самой простенькой программки:
PRIVATE A,B,D,E,N,Z,G
aGlobVars[11]:={'Введите % наценки:','Введите сумму с наценкой:'}
aGlobVars[12]:={"99","9999999999"}
aGlobVars[13]:={25,0}
aGlobVars[25]:=DIALOG(aGlobVars[11],aGlobVars[12],aGlobVars[13])
if aGlobVars[25,2]=0
C:=C0*(aGlobVars[25,1]+100)/100*18/118
else
C:=aGlobVars[25,2]*18/118
endif
Joined: 13 Oct 2003 Posts: 97 Location: КИА Occupation: СТ Interests: Москва
Posted: 24 Aug 2004 13:43 Post subject:
Работать вроде должно.
aGlobVars[25] ДОЛЖНО быть равно NIL в начале работы с модулем.
При вовторных запусках будет срабатывать условие и диалог будет пропускаться.
PRIVATE A,B,D,E,N,Z,G
aGlobVars[11]:={'Введите % наценки:','Введите сумму с наценкой:'}
aGlobVars[12]:={"99","9999999999"}
aGlobVars[13]:={25,0}
IF aGlobVars[25] == NIL
aGlobVars[25] := DIALOG(aGlobVars[11],aGlobVars[12],aGlobVars[13])
ENDIF
if aGlobVars[25,2]=0
C:=C0*(aGlobVars[25,1]+100)/100*18/118
else
C:=aGlobVars[25,2]*18/118
endif
Joined: 27 Jun 2003 Posts: 27 Location: Наталья Позднякова
Interests: Минск, Беларусь
Posted: 30 Aug 2004 12:00 Post subject:
Дело в том, что запрос должен выводиться для КАЖДОЙ номенклатуры, точнее даже партии (способ ведения прайс-листа - партионный), а с проверкой aGlobVars[] работает только в случае ввода одного-единственного значения для всех позиций. Если заменить aGlobVars на просто aVars[], то проверка условия ничего не дает...
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
