PVPRBSP ; Product Bouwstenen Print/Transfer [ 11/29/2003   8:10 AM ]
#include Prod.Product
#include vhLib.Macro
TRANSFER ;Transfer naar Excel van Moeder en bouwstenen
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"TBX Bouwsteen 1239.TXT","W","T")
 Use Dev
 Write $TR("SortKey;MPRNr;Moeder;Type;Groep;KPRNr;Kind;KindAantal;KindPrijs;Oms;Suppl;Faktor;TijdPlan;TijdKost;Kostplaats;KPKost;KVerlet;GVerlet",";",$C(9))
 Write $TR(";Pakket;PakRefs;JrAantal;Som;PPL;CifPerc;DBPerc;AankPr;VerkPr;Korting;DC;DS;LC;LD;RH;BM;BS;KV;DK;KB;IB;FS;BGRP;SR;ASM;Verpak",";",$C(9))
 Write !
 Set %J=$$%J^vhRtn1()
 Set KLNr=1239
 Set PakNm=""
 For  Set PakNm=$O(^PAKKET("IK",KLNr,PakNm)) Quit:PakNm=""  Do
 .Set PAKNr=^(PakNm)
 .Set PRNr=""
 .For  Set PRNr=$O(^PAKKET("D",PAKNr,PRNr)) Quit:'PRNr  Do
 . . Set Verpak=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK"))
 . . Quit:Verpak'="A"
 . . Quit:$$$PRGet($$$NONAktief)
 . . Do TONE(PRNr,PakNm)
 Close:Dev'=0 Dev
 Quit
 
KENMERK(PRNr) 
	Do
	. Set DK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK"))
	. Set SR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"SR"))
	. Set FS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"FS"))
	. Set SR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"SR"))
	. Set BGRP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BGRP"))
	. Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))
	. Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB"))
	. Set KB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KB"))
	. Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC"))
	. Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS"))
	. Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD"))
	. Set RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH"))
	. Set BM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BM"))
	. Set BS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BS"))
	. Set KV=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KV"))
	. Set ASM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))
	. Set Verpak=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK"))
	. Write *9,DC,*9,DS,*9,LC,*9,LD,*9,RH,*9,BM,*9,BS,KV,*9,*9,DK,*9,KB,*9,IB,*9,FS,*9,BGRP,*9,SR,*9,ASM,*9,Verpak
 Quit
 
TONE(PRNr,PakNm) 
 New Kt,First,BSCode,Sort,Key
 Do CALC^PRBS(PRNr,.Som,1)
 Set Qty=$$PROD^STAT(PRNr,1239,"2010.10 ","2011.09 ",1)
 Set PrijsRec=$$KLANTPR^KPRIJS(1239,PRNr)
 Set BSCode=""
 For  Set BSCode=$O(^PRBS("BS",PRNr,BSCode)) Quit:BSCode=""  Do
 . Set Sort($$SORTKEY^PRBS(BSCode,^PRBS("BS",PRNr,BSCode)))=BSCode
 Set First=1
 Set Key=""
 For  Set Key=$O(Sort(Key)) Quit:Key=""  Do
 . Do TDTL(PRNr,Sort(Key),.First)
 . Write *9,PakNm,*9,$$DISP^PAKKET(1239,PRNr),*9,$$$ExcelNum(Qty),*9,$$$ExcelNum($P(Som,"\",1)),*9,$$$ExcelNum($$$PRGet($$$PPLMTL))
 . Write *9,$$$ExcelNum($$$PRGet($$$CifPerc)),*9,$$$ExcelNum($$$PRGet($$$DBPerc)),*9,$$$ExcelNum($P(PrijsRec,D,13)),*9,$$$ExcelNum($P(PrijsRec,D,14)),*9,$$$ExcelNum($$OneKorting^KPRIJS($P(PrijsRec,D,5),$P(PrijsRec,D,6)))
 . Do KENMERK(PRNr)
 . Write !
 Quit
 
TDTL(MPRNr,BSCode,First) 
 New KPRNr,Aantal,Type,KSuppl,KFaktor,TijdPlan,TijdKost,KostPl,Groep,VErpOL,Oms,BSRec,Key,PPL,Totaal,NoSa
 Set NoSa="N"
 Set BSRec=^PRBS("BS",MPRNr,BSCode)
 Set KPRNr=$P(BSRec,D,1)
 Set Aantal=$P(BSRec,D,2)
 Set Type=$P(BSRec,D,3)
 Set KSuppl=$P(BSRec,D,4)
 Set KFaktor=$P(BSRec,D,5)
 Set TijdPlan=$P(BSRec,D,7)
 Set TijdKost=$P(BSRec,D,8)
 Set KostPl=$P(BSRec,D,9)
 Set Groep=$P(BSRec,D,11)
 Set VerpOL=$P(BSRec,D,12)
 Set Oms=$P(BSRec,D,13)
 Set Key=$O(^KPR(MPRNr,"J"))
 Set PPL=$P(^KPR(MPRNr,Key),D,19)
 Set Totaal=$J($P(Som,D),0,2)
 Set (Kost,KVerlet,GVerlet)=""
 If $L(KostPl) Do
 . Set oKostPlaats=##class(Prod.GAMeta.BT.KostPlaats).%OpenId(KostPl)
 . Quit:'$isObject(oKostPlaats)
 . Set Kost=oKostPlaats.GetBasisKost(.NoSa)
 . Set KVerlet=oKostPlaats.GetToeslagKleinVerlet(.NoSa)
 . Set GVerlet=oKostPlaats.GetToeslagGrootVerlet(.NoSa)
 ;
 Write MPRNr,$C(9),$$SORTKEY^PRODUKT(MPRNr)
 Write $C(9) Write $P(^KPR(MPRNr,0),D)
 Write $C(9),Type
 Write $C(9),Groep
 Write $C(9),KPRNr,$C(9),$S(KPRNr'?4.7N:"",1:$P($G(^KPR(KPRNr,0),"***onbekend***"),D))
 Write $C(9),$TR(Aantal,".",",")
 Write $C(9),$TR($P($G(^HULP(%J,"V",BSCode)),D,1),".",",")
 Write $C(9),Oms
 Write $C(9),$TR(KSuppl,".",",")
 Write $C(9),$TR(KFaktor,".",",")
 Write $C(9),$TR(TijdPlan,".",",")
 Write $C(9),$TR(TijdKost,".",",")
 Write $C(9),KostPl
 Write $C(9),$TR(Kost,".",",")
 Write $C(9),$TR(KVerlet,".",",")
 Write $C(9),$TR(GVerlet,".",",")
 
 Set First=0
 Quit