cwalcom ; ;[ 12/02/2003  8:39 AM ]
 ;
 New
 Set Q="K"
 Do ^cA604
 Set %J=$$%J^vhRtn1(),KLNr=1900,(PRNr,Count)=0
 Kill ^HULP(%J)
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Set R=^KPR(PRNr,0),KortTxt=$P(R,D),LangTxt1=$P(R,D,2),LangTxt2=$P(R,D,11)
 .Quit:$L($P(R,D,3))  ; Generisch produkt
 .Quit:KortTxt["*DO*"  Quit:KortTxt?.E1"*"4N1"*".E
 .Set R=^KPR(PRNr,2),PalAant=$P(R,D,16),IdentNr=$P(R,D,25)
 .Quit:$E(IdentNr)=6  ; Kindproduct niet zelfstandig verkocht
 .Set Count=Count+1
 .Set R=^KPR(PRNr,1),Gewicht=$P(R,D,13),IsStock=$P(R,D,20)
 .Set J=$O(^KPR(PRNr,"J")),(LevTerm,KleinVp)=""
 .Do:$E(J)="J"
 ..Set R=^KPR(PRNr,J),LevTerm=$P(R,D,7)+1 Set:IsStock LevTerm="Stock"
 ..Set GrootVp=$P(R,D,16),NormVp=$P(R,D,15),KleinVp=$P(R,D,14)
 ..Set:'KleinVp KleinVp=NormVp Set:'KleinVp KleinVp=GrootVp
 .Set SortKey=$$SORTKEY^PRODUKT(PRNr),Klassif=$$DISPLP^KLASS(PRNr)
 .Set R=$$KLANTPR^KPRIJS(KLNr,PRNr),Prijs=$P(R,D),Munt=$P(R,D,2),GrOrde=$P(R,D,3)
 .Set R=IdentNr_D_KortTxt_D_LangTxt1_D_LangTxt2_D_KleinVp_D_PalAant_D_$TR(Prijs,".",",")_D_Munt_D_GrOrde_D_$TR(Gewicht,".",",")_D_LevTerm_D_Klassif
 .Set ^HULP(%J,SortKey)=R
 Set Dev=$$OPEN^vhDEV(,"ALCOM.TXT","W")
 Do:Dev
 .Use Dev
 .Write "Identnummer",*9,"Korttekst",*9,"Langtekst1",*9,"Langtekst2",*9,"Kleinverp",*9,"Aantal/pallet",*9
 .Write "Prijs",*9,"Munt",*9,"Grooteorde",*9,"Gewicht/1000 stuks",*9,"Leverweken",*9,"Klassificatie",*13
 .Set SortKey=""
 .For  Set SortKey=$O(^HULP(%J,SortKey)) Quit:SortKey=""  Do
 ..Set R=^HULP(%J,SortKey)
 ..For I=1:1:$L(R,D)-1 Write $P(R,D,I),*9
 ..Write $P(R,D,$L(R,D)),*13
 .Close Dev
 Write !,Count
 Quit
 ;