Ситуация не изменилась((
вот компилируемая форма
[/code]
.LinkForm 'SCHET_LIP_PITER011009' Prototype is PRBDOC
.Group 'Продажа'
.NameInList 'Счет RTF (Липрина) Санкт-Петербург Медика 151009 '
.create view vSpStep
from
SpStep (ReadOnly),
KatParty (ReadOnly)
where
((
PosNRec == SpStep.nRec
and SpStep.cParty == KatParty.nRec
));
.Create view SchKpp
from
BaseDoc (ReadOnly),
KatOrg OrgFrom (ReadOnly),
KatOrg OrgTo (ReadOnly) ,
KatOrg OrgPol (ReadOnly) ,
Dogovor AppDogovor (ReadOnly)
where
((
BaseDocNrec == BaseDoc.nRec
and BaseDoc.corg==OrgTo.nrec
and BaseDoc.cGrOtpr==OrgFrom.nrec
and BaseDoc.cGrPol==OrgPol.nrec
and BaseDoc.cDogovor==Dogovor.nrec
and BaseDoc.cAppDogovor==AppDogovor.nrec
));
!-------------------------------------------------------------------
.var
SrcCountry, // "Страна происхождения"
GTDNumber : string; // "Номер ГТД"
Итого_прописью: string;
AddrDost : string; // «Адрес доставки»
.endvar
!-------------------------------------------------------------------
.var
zam_dir, zam_buh : string;
Akciz : double
CenaAk : double
SumAk : double
totSumAk : double
.endvar
.fields
mnd
nomer
ddoc
post
adpost
telpost
rspost
bpost
rspost2
mpost
innpost
if(SchKpp.OrgFrom.kodplatnds<>'',SchKpp.OrgFrom.kodplatnds,'')
// GrName
if (SchKpp.Dogovor.nodoc<>'','Договор N '+ SchKpp.Dogovor.nodoc+' от '+ SchKpp.Dogovor.ddoc+'г.',’’)
if (SchKpp.AppDogovor.nodoc<>'', ' , cпецификация N '+ SchKpp.AppDogovor.nodoc+' от '+ SchKpp.AppDogovor.ddoc+'г.',’’)
pol
adpol
telpol
rspol
bpol
rspol2
mpol
innpol
if(SchKpp.OrgTo.kodplatnds <>'',SchKpp.OrgTo.kodplatnds,'')
pname
.endfields
.{
.{table 'SchKpp.BaseDoc'
.}
СЧЕТ N ^/^ от ^
Продавец ^
Адрес ^ Телефон ^
Расчетный счет N ^ в ^
Кор.сч. N ^ БИК ^
Идентификационный номер поставщика (ИНН) ^
Код причины постановки на учет (КПП) ^
Основание ^^
Покупатель ^
Адрес ^ Телефон ^
Расчетный счет N ^ в ^
Кор.сч. N ^ БИК ^
Идентификационный номер покупателя (ИНН) ^
Код причины постановки на учет (КПП) ^
^
.{ CheckEnter IsBaseFin
.}
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}
Наименование товара Единица измерения Кол-во Цена Сумма Ставка НДС Сумма НДС Всего с НДС
.begin
TotSumAk := 0
end.
.{
.{ table 'vSpStep.SpStep'
#include ..\SFBla2vp.frn
.begin
!--------------------------------------
!#include SFBla2vp.frn
!--------------------------------------
// Akciz := Ak/kol
!CenaAk := cenabez + AkCiz
! SumAk := sbez + Ak
CenaAk := cenabez - cenabez * SchKpp.BaseDoc.Skidka / 100;
SumAk := sbez;
TotSumAk := TotSumAk + SumAk
end.
.fields
mc
// SrcCountry // страна происхождения
// GTDNumber // номер ГТД
// barkod2 // код по ОКДП
ed
doubletostr(round( kol ,2),'666`666`666.88')
doubletostr(round( cenaAk ,2),'666`666`666.88')
// akciz // в т.ч. акциз
doubletostr(round( sumAk ,2),'666`666`666.88')
//Ak
doubletostr(round( procnds ,2),'666.88')
doubletostr(round( Nds,2),'666`666`666.88')
doubletostr(round( Newsumma,2),'666`666`666.88')
.endfields
^ ^ ^ ^ ^ ^ ^ ^
.}
.}
.fields
doubletostr(round( TotSumAk ,2),'666`666`666.88')
// c2
doubletostr(round( n2 ,2),'666`666`666.88')
//doubletostr(round( k1 ,2),'666`666`666.88')
//string(round( k1 ,2))+` `+doubletostr(round( k1 ,2),'666`666`666.88')
k1
// Итого_прописью
k3
// Director
// Main_Buh
// page_symb
.endfields
Всего к оплате ^ ^ &'&&&'&&&'&&&'&&&'&&&'&&&.&&
.begin
// Итого_прописью:=upcase(Substr(DoubleToStr(k1,'4'),1,1))+substr(DoubleToStr(k1,'4'),2,length(DoubleToStr(k1,'4'))-1)+'руб. '+DoubleToStr(round(k1,2),'88')+' коп.'
end.
Сумма прописью: ^
.begin
if (instr('Гутова', Director)>0)
zam_dir := ' по приказу N 101 от 01.10.2009г. Сиков В.М.';
else
zam_dir := ' по приказу N 13/1 от 01.08.2006г. Сиков В.М.';
if(instr('Вострикова', Main_Buh)>0)
zam_buh := ' по приказу N 101 от 01.10.2009г. Сиков В.М.';
else
zam_buh := ' по приказу N 13/1 от 01.08.2006г. Сиков В.М.';
end.
.fields
Director
zam_dir
Main_Buh
zam_buh
page_symb
.endfields
Руководитель предприятия: _________________________ ^
(^)
Главный бухгалтер: __________________________ ^
(^)
.if DELIMITER
-----------------------------------------------------------------------------------------------------------------------------
.end
^
.}
.endform
