Галактика в вопросах и ответах

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

.LinkForm 'NAKL_NSK_091209' Prototype is PRBDOC
.Group 'Продажа'
.NameInList 'Накладная с спецификацией из накладных '
!----------------------------------------
.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

));
.Create view SchNakl 
as select * From 
StepDoc
,KatSopr
,SpsOpr
,KatMC
,KatParty
,KatOtpEd
,attrval 
,attrnam 
Where 
(( 
BaseDocNrec == StepDoc.cBaseDoc 
and StepDoc.NRec == KatSopr.cStepDoc
and ( 106 <>Katsopr.vidsopr ) 
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
));

.Create view SchKatSopr  
var KatSoprcStepDoc: comp
as select * From KatSopr 
Where 
(( 
KatSoprcStepDoc == KatSopr.cStepDoc 
));
!-------------------------------------------------------------------
.var 
 SrcCountry,          // Новые графы СФ "Страна происхождения"
 GTDNumber : string;  //                "Номер ГТД"
 AddrDost : string; //  «Адрес доставки»
 skladfio :string; // кладовщик
skladfio1 :string; // ещё фио
skladfio2 :string; // ещё ФИО
doverka:string;//доверенность
doverkadate:string;
gruzdol:string;
skladfio3:string;
dfirma:string;
prikazz:string;//по приказу
.endvar
.var
  ft_NameOrg1, PostName1, PostName2, nAttr1, nAttr2 : string;
  cPost : comp;
  exAtT : iExtAttr;
.endvar

!-------------------------------------------------------------------
.var
 BdnRec:comp
 pos:integer;
 kolitog:double;
 Akciz : double
 CenaAk : double
 SumAk  : double
 totSumAk : double
mnn:string
.endvar
!-------------------------------------------------------------------
.fields
 post+’  ИНН ’+ innpost+’ Адрес: ’+ adpost+’ Банк: ’+ bpost 
‘ р/c ’+ rspost + ‘ к/c ’+ rspost2 +‘ БИК ’ + mpost
 SchKpp.OrgFrom.okpo
 Skl
 SchKpp.OrgFrom.okonh
 grpol+’  ИНН ’+ inngrpol+’ Адрес: ’+ AddrDost+’ Банк:’+grpolbank
‘ р/c ’+ grpolschet1 + ‘к/c ’+grpolschet2+‘ БИК ’+grpolmfo1
 SchKpp.OrgTo.okpo
 post+’  ИНН ’+ innpost+’ Адрес: ’+ adpost+’ Банк: ’+ bpost
‘ р/c ’+ rspost + ‘ к/c ’+ rspost2 + ‘ БИК ’ + mpost
 SchKpp.OrgFrom.okpo
 pol+’  ИНН ’+ innpol+’ Адрес: ’+ adpol+’ Банк: ’+ bpol
‘ р/c ’+ rspol + ‘ к/c ’+ rspol2 +‘ БИК ’ + mpol
 SchKpp.OrgTo.okpo
 if (SchKpp.Dogovor.nodoc<>'','Договор N '+ SchKpp.Dogovor.nodoc+' от '+ SchKpp.Dogovor.ddoc+'г.',’’) 
 if (SchKpp.AppDogovor.nodoc<>'', ' , cпецификация N '+ SchKpp.AppDogovor.nodoc+' от '+ SchKpp.AppDogovor.ddoc+'г.',’’)
 nomer
 ddoc
 nomer
 ddoc
.endfields
.{
.{table 'SchKpp.BaseDoc'
.}	
#include ..\..\SFBla2vp.frn
.begin
!--------------------------------------
BdnRec:= BaseDocNrec
RunInterface(‘_gt_addr_dost’, grpol , 1, BdnRec, 2,  AddrDost);
!-------------------------------------- 
end.
.{CheckEnter IsBaseFin
.}
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}
.{
.}

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^.......
.begin
pos:=0;
kolitog:=0;
TotSumAk := 0
end.
.fields
pos
if (SchNakl.SpsOpr.PrMc=1, SchNakl.KatMC.Name, SchNakl.KatUsl.Name)
mnn
SchNakl.KatParty.name
SchNakl.KatParty.dgodn
locase(SchNakl.KatOtpEd.Name)
locase(SchNakl.KatOtpEd.Name)
doubletostr(round( SchNakl.SpsOpr.KolFact,2),'666`666`666.88')
doubletostr(round( SchNakl.SpsOpr.Price,2),'666`666`666.88')
If (SchNakl.KatSopr.vHodNal=1,( doubletostr(round(SchNakl.SpSopr.Price* SchNakl.SpSopr.KolFact- SchNakl.SpSopr.SumNDS,2),'666`666`666.88')), doubletostr(round(SchNakl.SpSopr.Price* SchNakl.SpSopr.KolFact,2),'666`666`666.88'))
doubletostr (round( SchNakl.spsopr.sumnds*100/ If (SchNakl.KatSopr.vHodNal=1, SchNakl.SpSopr.Price* SchNakl.SpSopr.KolFact- SchNakl.SpSopr.SumNDS, SchNakl.SpSopr.Price* SchNakl.SpSopr.KolFact),2), '666`666`666')
doubletostr(round(SchNakl.spsopr.sumnds,2),'666`666`666.88')
If (SchNakl.KatSopr.vHodNal=1, doubletostr(round(SchNakl.SpSopr.Price* SchNakl.SpSopr.KolFact,2),'666`666`666.88'), doubletostr(round(SchNakl.SpSopr.Price* SchNakl.SpSopr.KolFact+ SchNakl.SpSopr.SumNDS,2),'666`666`666.88') )
.endfields
.{table ‘SchNakl.StepDoc’;
.{table ‘SchNakl.KatSopr’;
.{table ‘SchNakl.SpsOpr’;
.begin
var ExAttrFun  : iExtAttr; 
 var ExClassFun : iExtClass;
 var cAttr      : comp;
 var wTypAttr, wClassCode : word;
 var sRet: string;
sRet :=’’;
sRet := ExAttrFun.sGetAttr(coKatmc, SchNakl.KatMc.nRec, 'МНН');
mnn := sRet;
pos:=pos+1;
kolitog:=kolitog+SchNakl.SpsOpr.KolFact;
Akciz := Ak/kol
CenaAk := cenabez + AkCiz
SumAk  := sbez + Ak
TotSumAk := TotSumAk + SumAk
end.
^	^	^	^	^	^		^			-	^	^	^	^	^	^
.}
.}
.}
.fields
 doubletostr(round( kolitog,2),'666`666`666.88')
 doubletostr(round( k1-n2 ,2),'666`666`666.88')
 doubletostr(round(  n2 ,2),'666`666`666.88')
 doubletostr(round(  k1 ,2),'666`666`666.88')
 Pos
doverka
doverkadate
k3
dfirma
 skladfio
skladfio1
gruzdol 
skladfio3
prikazz
skladfio2
.endfields

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
.if DELIMITER
.else
.end
.fields
nomer
ddoc
.endfields
ТН № ^от^ 
.}
.endform