Программирование на Атлантисе (VIP, FCOM, ARD), FastReport
Модераторы: m0p3e, edward_K, Модераторы
-
korvanakorvana
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53
Сообщение
korvanakorvana »
Код: Выделить всё
.LinkForm 'PRBDOC_TRANS_ETIKET’ Prototype is PRBDOC
.Group 'Продажа'
.NameInList 'Транспортная этикетка (Медика)'
.create view vSpStep
from
SpStep (ReadOnly),
KatParty (ReadOnly)
where
((
PosNRec == SpStep.nRec
and SpStep.cParty == KatParty.nRec
));
.Create view SchNakl
as select * From
StepDoc
,KatSopr
,SpsOpr
,KatMC
,KatParty
,KatOtpEd
,Attrnam _attrnam
,attrval _attrval
Where
((
BaseDocNrec == StepDoc.cBaseDoc
and StepDoc.NRec == KatSopr.cStepDoc
and KatSopr.Nrec == SpsOpr.cSopr
and SpsOpr.cMCUsl == KatMC.nRec
and SpsOpr.cMCUsl == KatUsl.nRec
and SpsOpr.cParty == KatParty.nRec
and SpsOpr.cOtpEd == KatOtpEd.nRec
and word(1411)==attrnam.wtable
and ‘Максимальная температура’==attrnam.name
and word(1411)==attrval.wtable
and katmc.nrec==attrval.crec
and attrnam.nrec==attrval.cattrnam
and word(1411)==_attrnam.wtable
and ‘Минимальная температура’==_attrnam.name
and word(1411)==_attrval.wtable
and katmc.nrec==_attrval.crec
and _attrnam.nrec==_attrval.cattrnam
));
.Create view SchKatSopr
var KatSoprcStepDoc: comp
as select * From KatSopr
Where
((
KatSoprcStepDoc == KatSopr.cStepDoc
));
.fields
if (SchNakl.SpsOpr.PrMc=1, SchNakl.KatMC.Name, SchNakl.KatUsl.Name)
SchNakl.KatParty.name
SchNakl.KATPARTY.DANALIZ
SchNakl.KATPARTY.DGODN
Round(SchNakl._attrval.vdouble)
Round(SchNakl.attrval.vdouble)
.endfields
.{
.{CheckEnter IsBaseFin
.}
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}
.{table SchNakl
//////////////////////////////////////////////////////////////////////////////////
///////////////////ЭТИКЕТКА///////////////////////////////////////////////////
ЗАО «ВЕКТОР-МЕДИКА»
630559, Россия, Новосибирская обл.,р.п.Кольцово а/я, 100, тел./факс: (383) 363-32-96
^
Серия:^
Дата изготовления:^
Годен до:^ Количество упаковок:
Упаковщик:
^ ^°C
/////////////ЭТИКЕТКА///////////////////////////////
///////////////////////////////////////////////////
.}
.{
.}
.if DELIMITER
.else
.end
.}
.endform
хочу сделать так чтобы ЭТикетка печаталась по условию
while( x<=spsopr.kolfact)
{
печать этикетки
}
-
RAJAH
- Местный житель
- Сообщения: 933
- Зарегистрирован: 18 фев 2008, 12:49
Сообщение
RAJAH »
Пробуйте так:
Код: Выделить всё
.{?internal; x<=spsopr.kolfact;
<наклейка>
.}
-
m0p3e
- Местный житель
- Сообщения: 1386
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Москва
Сообщение
m0p3e »
.var iPos : integer .endvar
.begin iPos := 0; end.
.{ while (iPos <= SpSopr.KolFact)
.begin iPos++; end;
<наклейка>
.}
Не совсем понятно в чем вопрос.
-
korvanakorvana
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53
Сообщение
korvanakorvana »
m0p3e писал(а):.var iPos : integer .endvar
.begin iPos := 0; end.
.{ while (iPos <= SpSopr.KolFact)
.begin iPos++; end;
<наклейка>
.}
Не совсем понятно в чем вопрос.
Вопрос в том , чтобы заполненная этикетка копировалась в worde столько раз сколько указано в spsopr.kolfact
-
m0p3e
- Местный житель
- Сообщения: 1386
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Москва
Сообщение
m0p3e »
Ну тогда я правильно понял

Но только не забываем, что KolFact - double.
-
korvanakorvana
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53
Сообщение
korvanakorvana »
Код: Выделить всё
.LinkForm 'PRBDOC_TRANS_ETIKET’ Prototype is PRBDOC
.Group 'Продажа'
.NameInList 'Транспортная этикетка (Медика)'
.create view vSpStep
from
SpStep (ReadOnly),
KatParty (ReadOnly)
where
((
PosNRec == SpStep.nRec
and SpStep.cParty == KatParty.nRec
));
.Create view SchNakl
as select * From
StepDoc
,KatSopr
,SpsOpr
,KatMC
,KatParty
,KatOtpEd
,Attrnam _attrnam
,attrval _attrval
Where
((
BaseDocNrec == StepDoc.cBaseDoc
and StepDoc.NRec == KatSopr.cStepDoc
and KatSopr.Nrec == SpsOpr.cSopr
and SpsOpr.cMCUsl == KatMC.nRec
and SpsOpr.cMCUsl == KatUsl.nRec
and SpsOpr.cParty == KatParty.nRec
and SpsOpr.cOtpEd == KatOtpEd.nRec
and word(1411)==attrnam.wtable
and ‘Максимальная температура’==attrnam.name
and word(1411)==attrval.wtable
and katmc.nrec==attrval.crec
and attrnam.nrec==attrval.cattrnam
and word(1411)==_attrnam.wtable
and ‘Минимальная температура’==_attrnam.name
and word(1411)==_attrval.wtable
and katmc.nrec==_attrval.crec
and _attrnam.nrec==_attrval.cattrnam
));
.Create view SchKatSopr
var KatSoprcStepDoc: comp
as select * From KatSopr
Where
((
KatSoprcStepDoc == KatSopr.cStepDoc
));
.var iPos : integer .endvar
.fields
if (SchNakl.SpsOpr.PrMc=1, SchNakl.KatMC.Name, SchNakl.KatUsl.Name)
SchNakl.KatParty.name
SchNakl.KATPARTY.DANALIZ
SchNakl.KATPARTY.DGODN
Round(SchNakl._attrval.vdouble)
Round(SchNakl.attrval.vdouble)
.endfields
.{
.{CheckEnter IsBaseFin
.}
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}
.{table SchNakl
.begin iPos:= 0; end.
.{ while (iPos <= SchNakl .SpSopr.KolFact)
ЗАО «ВЕКТОР-МЕДИКА»
630559, Россия, Новосибирская обл.,р.п.Кольцово а/я, 100, тел./факс: (383) 363-32-96
^
Серия:^
Дата изготовления:^
Годен до:^ Количество упаковок:
Упаковщик:
^ ^°C
.begin iPos++; end.
.}
.}
.{
.}
.if DELIMITER
.else
.end
.}
.endform
ТЕПЕРЬ ВСЕ ОК вот ) Спасибо всем. может такой же начинающей как я поможет как пример