Наклейка!

[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]

Пробуйте так:

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

.{?internal; x<=spsopr.kolfact;
<наклейка>
.}

[m0p3e]

.var iPos : integer .endvar
.begin iPos := 0; end.
.{ while (iPos <= SpSopr.KolFact)
.begin iPos++; end;
<наклейка>
.}

Не совсем понятно в чем вопрос.

[korvanakorvana]

.var iPos : integer .endvar
.begin iPos := 0; end.
.{ while (iPos <= SpSopr.KolFact)
.begin iPos++; end;
<наклейка>
.}

Не совсем понятно в чем вопрос.

Вопрос в том , чтобы заполненная этикетка копировалась в worde столько раз сколько указано в spsopr.kolfact

[m0p3e]

Ну тогда я правильно понял
Но только не забываем, что KolFact - double.

[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

ТЕПЕРЬ ВСЕ ОК вот ) Спасибо всем. может такой же начинающей как я поможет как пример