Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Как вывести на печать текст по условию ? (+)

 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> БЭСТ-4
View previous topic :: View next topic  
Author Message
SantechNik



Joined: 31 Dec 2001
Posts: 1696
Location: Гусев Михаил

Interests: Москва

PostPosted: 22 Jan 2004 12:29    Post subject: Как вывести на печать текст по условию ? (+) Reply with quote

Имеется вот такая задача:
- у некоторых ТМЦ имеется особенность из-за того, что они "не для продажи на экспорт"
- я могу присвоить некий признак таким ТМЦ и этот текст (признак) я могу записать в какое либо поле mlabel.

Теперь вопрос:
как мне сделать так, что бы в документе(Счете) "ниже таблицы" впечатывался текст, что ТМЦ с №№ таким-то "не для продажи на экспорт", если таковая ТМЦ действительно попала в счет ?
Как это сделать через fileeval я представляю, но... Этот метод подходит только к тем счетам(заказам), кот. уже записали. Т.е. перед печатью необходима запись. Это совершенно не реальное условие! Печатать будут как после записи так и до нее.

Как можно это реализовать?
_________________
http://santech.chat.ru/bro.zip - удобный броузер/редактор БД
Back to top
View user's profile Send private message Send e-mail
Privet



Joined: 08 Sep 2003
Posts: 18
Location: Privet


PostPosted: 22 Jan 2004 12:54    Post subject: Reply with quote

Вам нужно под основной таблицей сделать еще одну. В ней для тех строк, наменклатура которых Вами помечена, дать нужный текст, а для остальных - "{[0]}". Думаю так.
Back to top
View user's profile Send private message
SantechNik



Joined: 31 Dec 2001
Posts: 1696
Location: Гусев Михаил

Interests: Москва

PostPosted: 22 Jan 2004 13:10    Post subject: Reply with quote

Это, конечно, "здорово" - две таблицы.
Но мне надо одну строчку под таблицей.
Ведь бывают заказы и по 20-30 позиций и что - печатаь их на Н-цати листах? Я уж лучше тогда в первую таблицу справа какое-нибудь поле комментариев вставлю.

Как сделать одной строкой? Не раздувая печатный докумен
_________________
http://santech.chat.ru/bro.zip - удобный броузер/редактор БД
Back to top
View user's profile Send private message Send e-mail
itman



Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель

PostPosted: 22 Jan 2004 14:14    Post subject: Reply with quote

Привет
как в досе даже не представляю.
Либо процедурку писать
либо через Генератор пустить если уж очень критичн
Back to top
View user's profile Send private message Send e-mail
SantechNik



Joined: 31 Dec 2001
Posts: 1696
Location: Гусев Михаил

Interests: Москва

PostPosted: 22 Jan 2004 14:33    Post subject: Reply with quote

Процедурку - это понятно.
Fileeval , действительно, поможет. Но он работает по записанному заказу. А мне надо прямо в процессе формирования заказа.
_________________
http://santech.chat.ru/bro.zip - удобный броузер/редактор БД
Back to top
View user's profile Send private message Send e-mail
Privet



Joined: 08 Sep 2003
Posts: 18
Location: Privet


PostPosted: 22 Jan 2004 14:38    Post subject: Reply with quote

Мне показалось, Вы в теме написали, что комментарии выводятся для каждой найденной позиции с нужным признаком. Если просто надо сделать примечание, что имело место быть, могу предложить такой вариант.
До таблицы - Вычислить по формуле aVars := {.F.}
В таблице где-нибудь - Вычислить по формуле aVars[1] := <Ваше условие>
После таблицы - Вычислить по формуле if(aVars[1], '...', '')
Приблизительно
Back to top
View user's profile Send private message
Privet



Joined: 08 Sep 2003
Posts: 18
Location: Privet


PostPosted: 22 Jan 2004 14:43    Post subject: Reply with quote

Поправка к пункту "В таблице":
aVars[1] := aVars[1] .or. <Ваше условие>
Back to top
View user's profile Send private message
SantechNik



Joined: 31 Dec 2001
Posts: 1696
Location: Гусев Михаил

Interests: Москва

PostPosted: 22 Jan 2004 15:59    Post subject: Reply with quote

Данный способ не прошел.
Т.к. данный алгоритм приводит к тому, что сначала рассчитывается "голова", затем "подвал", а затем "тело таблицы". В результате подвал не выводится на печать.
_________________
http://santech.chat.ru/bro.zip - удобный броузер/редактор БД
Back to top
View user's profile Send private message Send e-mail
Krosh



Joined: 13 Oct 2003
Posts: 97
Location: КИА
Occupation: СТ
Interests: Москва

PostPosted: 22 Jan 2004 17:42    Post subject: Reply with quote

Вопрос к ИС: а почему так не логично- шапка, подвал и потом строки?
Можно ли изменить последовательность на правильную? Как это сделать?
Back to top
View user's profile Send private message
Privet



Joined: 08 Sep 2003
Posts: 18
Location: Privet


PostPosted: 23 Jan 2004 11:49    Post subject: Reply with quote

SantechNik wrote:
Данный способ не прошел.
Т.к. данный алгоритм приводит к тому, что сначала рассчитывается "голова", затем "подвал", а затем "тело таблицы". В результате подвал не выводится на печать.


Что-то Вы не так сделали. Порядок расчета: голова, таблица, подвал
Back to top
View user's profile Send private message
SantechNik



Joined: 31 Dec 2001
Posts: 1696
Location: Гусев Михаил

Interests: Москва

PostPosted: 23 Jan 2004 14:50    Post subject: Reply with quote

Может быть и не так, но по предложеному выше алгоритму формируется именно шапка, подвал, тело т. и в результате в подвал ничего не выводится.
_________________
http://santech.chat.ru/bro.zip - удобный броузер/редактор БД
Back to top
View user's profile Send private message Send e-mail
Privet



Joined: 08 Sep 2003
Posts: 18
Location: Privet


PostPosted: 23 Jan 2004 15:50    Post subject: Reply with quote

В таблице нужно сформировать флажок (истина или ложь), который говорит о том, встречен ли товар с отметкой (это Ваше условие).
А после таблицы Вы в зависимости от состояния флага выводите или нет текст сообщения.
Back to top
View user's profile Send private message
Krosh



Joined: 13 Oct 2003
Posts: 97
Location: КИА
Occupation: СТ
Interests: Москва

PostPosted: 27 Jan 2004 13:19    Post subject: Reply with quote

Privet, попробуй сделай простейший тест.

Введи в шапку поле"Вычислить по формуле":
FileEval("test.prg",{"шапка"})
Введи в подвал поле"Вычислить по формуле":
FileEval("test.prg",{"подвал"})
Введи в таблицу поле"Вычислить по формуле":
FileEval("test.prg",{"таблица"})

Текст test.prg - одна строка:

SayAndWait(aPars[1])

Напиши результат, очень интересно.
Back to top
View user's profile Send private message
SantechNik



Joined: 31 Dec 2001
Posts: 1696
Location: Гусев Михаил

Interests: Москва

PostPosted: 28 Jan 2004 16:47    Post subject: Reply with quote

уточнение:
постинг Krosh'a адресован не SantechNIK'у , а Privet'
_________________
http://santech.chat.ru/bro.zip - удобный броузер/редактор БД
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> БЭСТ-4 All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
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


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru