cwpak ; ;[ 01/29/97  2:53 PM ]
 ;
 New
 Do INIT^vhTERMINA
 Write @F11,@F1
 Set KLNr=$$SELECT^KLANT6()
 Quit:'KLNr
 Set FP=1701
 Write @F,"Klant   : ",$P(^KKL(^KK1(KLNr),0),D,2)
 Set Next=1
 For  Set Next=$O(^cw(Next)) Quit:'Next  Do
 .Set Rec=^cw(Next)
 .Quit:$P(Rec,$C(9))=""!($P(Rec,$C(9),2)="")
 .Set PRNr=$$PRNR($P(Rec,$C(9)))
 .Quit:'PRNr
 .Set KlantRef=$P(Rec,$C(9),2),PakNr=$$NEXTID()
 .Set Rec=KLNr_D_KlantRef_D_"E\\",^PAKKET("D",PakNr)=Rec,^PAKKET("D",PakNr,PRNr)="1\\"
 .Set ^PAKKET("IK",KLNr,$$UPTRIMAN^vhRtn1(KlantRef))=PakNr
 .Set ^PAKKET("IP",PRNr,KLNr,PakNr)=""
 Quit
 ;
PRNR(KortTxt) 
 New PRNr
 Set FP=1901
 Write @F,@F1,"Produkt : ",KortTxt
 Set PRNr=$$SELECT^PRODUKT6("","",$E(KortTxt,1,11))
 Quit PRNr
 ;
NEXTID() 
 Lock +^PAKKET("N")
 Set PakNr=$G(^PAKKET("N"))+1,^PAKKET("N")=PakNr
 Lock -^PAKKET("N")
 Quit PakNr
 ;