Печать спецификаций в договорах

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Олег_
Сообщения: 18
Зарегистрирован: 29 апр 2005, 08:32

Печать спецификаций в договорах

Сообщение Олег_ »

Добрый день всем! Подскажите пожалуйста как в форму "спецификации договоров" вставить вид организации. В общем вот что мне нужно: Раньше наименование организации и ее вид был введен в поле "наименование организации", напр. "ООО ВОСТОК", сейчас мы разделили наименования организаций от их вида. Стало вот так: "ООО" в поле вид организации, "ВОСТОК" в поле "наименование организации". Теперь при печати спецификации договоров (путь Модуль "Учет договоров-Документы-договоры-заходим в любой договор и правой кнопкой - печать спецификации - отчет в стандартном редакторе) у меня в наименовании организации выводится только ее название, напр. "ВОСТОК", а мне надо "ООО ВОСТОК". Что сделать, посоветуйте? Ниже привожу текст своей формы (она уже немного изменена и отличается от стандартной, я добавлял печать номера договора.)
**************************************************

.LinkForm 'PRIMERDOG' Prototype is 'DogSpecf'
.NameInList 'Олег.Спецификация договора'
.p 80
.var
p_nrec:Comp
p_nodog:String
p_dtdog:Date
.endvar
.Create view v_dog as select * from dogovor,dogovor aliasdog;
.fields
P_nodog
p_dtdog
KATORG.TIPORG
Контрагент
ВалНаим
ВалСимвол
Номер// Спецификация
Номер_позиции
Наименование
ЕдИзмерения
Количество
ЦенаНДЕ
СуммаНДЕ
DOGOVOR.SUMNDS
DOGOVOR.SUMMA
P_nodog
.endfields
.begin
p_nrec:=comp(NRec);
p_nodog:='';
p_dtdog:=date(0,0,0);

if (v_dog.getfirst where ((p_nrec==dogovor.nrec and dogovor.cdogovor==aliasdog.nrec))
=tsok)
{
p_nodog:=v_dog.aliasdog.NODOC;
p_dtdog:=v_dog.aliasdog.DDOC;
}


end.


К договору N ^ от ^ с ^ ^
Валюта документа: ^ (^)

С П Е Ц И Ф И К А Ц И Я № ^

┌─────┬─────────────────┬──────┬─────────--┬────────────────┬────────────────┐
│N п/п│ Наименование │Ед.изм│ Кол-во │ Цена │ Стоимость │
├─────┼─────────────────┼───── ┼─────────--┼────────────────┼────────────────┤
│ 1 │ 2 │ 3 │ 4 │ 5 │ 6 │
├─────┼─────────────────┼──────┼─────────--┼────────────────┼────────────────┤
.{
│@@@@@│@@@@@@@@@@@@@@@@@│@@@@@@│&'&&&&&.&&&│&'&&&&&&&&&&&.&&│&'&&&&&&&&&&&.&&│
.}
└─────┴─────────────────┴─────-┴────────-─-┴────────────────┴────────────────┘
Сумма НДС(18%) : &'&&&&&&&&&&.&&
Итого: &'&&&&&&&&&&.&&

1. Способ доставки: самовывоз со склада Поставщика
2. Срок поставки продукции согласно заявке Покупателя.
3. Порядок оплаты продукции:
в течение 10 календарных дней с даты отгрузки продукции.
4. Настоящая Спецификация является неотъемлемой частью Договора
поставки № ^


Поставщик Покупатель


______________ Булгак Н. И._________________


.endform
Sheinina
Местный житель
Сообщения: 366
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Сообщение Sheinina »

Добавьте

Код: Выделить всё

.create view n_org as select katorg.tiporg where 
((
    p_nrec == dogovor.nrec 
and dogovor.corg == katorg.nrec
));

добавьте переменную
tip_org:string

в блоке .begin ... end. добавьте

Код: Выделить всё

if n_org.getfirst = tsOK then tip_org:=n_org.katorg.tiporg

в списке полей вместо katorg.tiporg напишите tip_org
Ответить