PRIJSLTR ;Prijslijst transfert [ 08/16/2002  4:04 PM ]
 Kill
 Do INIT^vhTERMINA
 Do VANNAAR^vhTERMINA("P")
 Set KLNr=$$SELECT^KLANT6(1)
 Quit:'KLNr
 Quit:'$D(^KKAAP(KLNr))
 READ "TRANSFERT",K
 Set (HG,GR,SG,KT)=0
 Set KLId=^KK1(KLNr)
 Set Taal=$P(^KKL(KLId,0),D,9)
 Set:Taal'="F" Taal="N"
 Write "Prijslijst : ",$P(^KKL(KLId,0),D,2),", "_$P(^KKL(KLId,0),D,7),", ",$$EXTDATE^vhDTyp($H,"DK"),!
 Write "Identnr",$C(9),"Korttekst",$C(9),"Langtekst1",$C(9),"Langtekst2",$C(9),"Kleur",$C(9),"Prijs",$C(9),"GrootteOrde",$C(9),"Munt",$C(9),"LeverTermijn (wk)",$C(9),"Min. aantal",!
 For  Set HG=$O(^KKAAP(KLNr,HG)) Quit:HG=""  Do
 .For  Set GR=$O(^KKAAP(KLNr,HG,GR)) Quit:GR=""  Do
 ..For  Set SG=$O(^KKAAP(KLNr,HG,GR,SG)) Quit:SG=""  Do
 ...For  Set KT=$O(^KKAAP(KLNr,HG,GR,SG,KT)) Quit:KT=""  Do
 ....Set Rec=^(KT)
 ....Set PRNr=$P(Rec,D,15)
 ....Do FETCHPR^UTILI(PRNr,"PRec")
 ....Write $P(PRec(2),D,25),$C(9)
 ....Write $P(PRec(0),D,1),$C(9)
 ....Write:Taal="N" $TR($P(PRec(0),D,2),FVAN,FNAAR),$C(9),$TR($P(PRec(0),D,11),FVAN,FNAAR),$C(9)
 ....Write:Taal'="N" $TR($P(PRec(1),D,22),FVAN,FNAAR),$C(9),$TR($P(PRec(3),D,21),FVAN,FNAAR),$C(9)
 ....Set KLCode=$E($P(PRec(0),D),22,25)
 ....Set Kleur=""
 ....Set:$L(KLCode) Kleur=$G(^KCOL(KLCode_" ",Taal))
 ....Write $TR(Kleur,FVAN,FNAAR),$C(9)
 ....Set Prijs=$$KLANTPR^KPRIJS(KLNr,PRNr)
 ....Write $TR($P(Prijs,D,1),".",","),$C(9)
 ....Write $P(Prijs,D,3),$C(9)
 ....Write $P(Prijs,D,2),$C(9)
 ....Write $S($P(PRec(1),D,20):"Stock",1:$P(PRec("J"),D,7)+1),$C(9)
 ....Write $S('$P(PRec(1),D,20):$P(PRec("J"),D,6),$P(PRec("J"),D,13):1,$P(PRec("J"),D,14):$P(PRec("J"),D,14),$P(PRec("J"),D,15):$P(PRec("J"),D,15),1:$P(PRec("J"),D,16))
 ....Write !
 Write "~~~"