KOFT2B G 1 ; MODULE PRODUKTLIJNEN; Quit naar %F10 - Do naar KF31 [ 11/18/2003  10:18 AM ]
 ;
1 N Staffel,KS,KsCust
 S Staffel=$$STAFFEL^KS(PR),KsCust=$$ISKLANT^KS(KC)
 S R=$$PROD^KPRIJS(PR,"E","",KV,KKN,$S(KsCust:"P",1:KYW),"S")
 S UEPS=$P(R,D,1),PLPS=$P(R,D,4),PK1S=$P(R,D,5),PK2S=$P(R,D,6),KKDS=$P(R,D,7)
 S PK1S=$J(PK1S,0,2),PK2S=$J(PK2S,0,2)
 S:PK1S<0 PK1S="E"
 S R=$$PROD^KPRIJS(PR,"E","",KV,KKN,$S(KsCust:"P",1:KYW))
 S UEP=$P(R,D,1),UMC=$P(R,D,2),(AFA,USP)=$P(R,D,3),PLP=$P(R,D,4),PK1=$P(R,D,5),PK2=$P(R,D,6),KKD=$P(R,D,7),PKP=$P(R,D,8),UPAR=$P(R,D,9)
 S PK1=$J(PK1,0,2),PK2=$J(PK2,0,2)
 S:PK1<0 PK1="E"
28 S PLPS=$J(PLPS,1,2),UEPS=$J(UEPS,1,2),PLP=$J(PLP,1,2),UEP=$J(UEP,1,2)
 S R=PSN_D_(PST-$P(PRE,"#",2))_D_$P(PY,"#",2)_D_PLQ_D_ULT_D_Staffel_D_UMC_D_AFA_D_PLP_D_PK1_D_PK2_D_PKP_D_UEP_D_KKD_D_PLL_D_PST_D
 I NoSa=1 S $P(R,D,11)=PLPS,$P(R,D,12)=PK1S,$P(R,D,13)=PK2S,$P(R,D,15)=UEPS,$P(R,D,16)=KKDS
 S:KKN UEP=PLP,UEPS=PLPS
 S UC=PR,B(102)=PR,B(103)=1,B(104)=UE,B(106)=UEP_"#"_UEPS
 S B(107)=PK1_"#"_PK2_"#"_PK1S_"#"_PK2S,B(121)=AFA,B(122)=UMC,B(125)=ULT
 S UEP=UEP_"#"_UEPS,UK="" S:PK1 UK=$J(PK1,4,1) S:PK2 UK=UK_" "_$J(PK2,4,1)
 I NoSa=1 S UK="" S:PK1S UK=$J(PK1S,4,1) S:PK2S UK=UK_" "_$J(PK2S,4,1)
 F KS="K",0 D
 .N R,AFA,AFE,AFR,KPC,GR,OGR,BGR,KKD,UPAR,MSG,PKP,PLL,PST,PB,PC,PK1,PK2
 .N PLP,PPL,PID,PRE,PSN,PVK,PGV,PNV,PKV,PY,Q15,S,UN,UAF,UOD,UOR,UVM,ULTT,X
 .S R=$$PROD^KPRIJS(PR,KS,"",KV,KKN,$S(KsCust:"P",1:KYW),"S")
 .S UEPS=$P(R,D,1),PLPS=$P(R,D,4),PK1S=$P(R,D,5),PK2S=$P(R,D,6),KKDS=$P(R,D,7)
 .S PK1S=$J(PK1S,0,2),PK2S=$J(PK2S,0,2)
 .S:PK1S<0 PK1S=$S(KS="K":KS,1:PK1S)
 .S R=$$PROD^KPRIJS(PR,KS,"",KV,KKN,$S(KsCust:"P",1:KYW))
 .S UEP=$P(R,D,1),UMC=$P(R,D,2),(AFA,USP)=$P(R,D,3),PLP=$P(R,D,4),PK1=$P(R,D,5),PK2=$P(R,D,6),KKD=$P(R,D,7),PKP=$P(R,D,8),UPAR=$P(R,D,9)
 .S PK1=$J(PK1,0,2),PK2=$J(PK2,0,2)
 .S:PK1<0 PK1=$S(KS="K":KS,1:PK1)
 .S PLPS=$J(PLPS,1,2),UEPS=$J(UEPS,1,2),PLP=$J(PLP,1,2),UEP=$J(UEP,1,2)
 .S:KKN UEP=PLP,UEPS=PLPS
 .S B(KS=0+2*100+2)=PR,B(KS=0+2*100+3)=$P(Staffel,D,KS="K"+1),B(KS=0+2*100+4)=UE,B(KS=0+2*100+6)=UEP_"#"_UEPS
 .S B(KS=0+2*100+7)=PK1_"#"_PK2_"#"_PK1S_"#"_PK2S,B(KS=0+2*100+21)=AFA,B(KS=0+2*100+22)=UMC,B(KS=0+2*100+25)=ULT
 S FP=UL*100+1 W @F,@F1 S FP=1903+F60 W @F,$C(13),?2,"IDENTNR : ",PID,?27,"PRODUKT  : ",PC
 S FP=2011 W @F,@F5 S FP=2002 W @F W:'$P(R,D,1) @F4,"NIET-ST",@F5 W:$P(R,D,1) " PRA-ST  " S FP=2011 W @F,": ",$P(R,D,2)
 S FP=2028 W @F,"KS EENH  : ",$P(R,D,8)
 S FP=2051,K=$P(B(107),"#",$S(NoSa=1:3,1:1)) W @F,$S(K?.N:$S(K>0:$J(K,5,1),1:""),1:$J(K,5))
 S FP=2064 W @F,$P(B(106),"#",$S(NoSa=1:2,1:1))," ",$P(R,D,9),"/",$P(R,D,10)
 W ! W:$P(R,D,18)'=$P(R,D,2) ?2,"FYS-ST  : ",$P(R,D,18) W ?27,"KS KLEIN : ",$P(R,D,7)
 S K=$P(B(207),"#",$S(NoSa=1:3,1:1)) W ?50,$S(K?.N:$S(K>0:$J(K,5,1),1:""),1:$J(K,5))
 W ?63,$P(B(206),"#",$S(NoSa=1:2,1:1))," ",$P(R,D,9),"/",$P(R,D,10)
 W !?2,"TOEL-ST : ",$P(R,D,3),?27,"KS GROOT : ",$P(R,D,6)
 S K=$P(B(307),"#",$S(NoSa=1:3,1:1)) W ?50,$S(K?.N:$S(K>0:$J(K,5,1),1:""),1:$J(K,5))
 W ?63,$P(B(306),"#",$S(NoSa=1:2,1:1))," ",$P(R,D,9),"/",$P(R,D,10)
 W !?2,"LEVERT  : ",$P(R,D,5)," ",$S(ULT=1:"WEEK",1:"WEKEN")
 W !?2,"M BST H : ",$P(R,D,4)," (",$P(R,D,17)," W)"
 S R="K\24\54\[] = ok\\1\\""-,""[K" D R0^KFTR0 G YZ:K?1"#"2N I $L(K) S K="-" G YZ
 ;
YZ K AFA,AFE,AFR,KPC,GR,OGR,BGR,KKD,UPAR,MSG,PKP,PLL,PST,PB,PC,PR,PK1,PK2
 K PLP,PPL,PID,PRE,PSN,PVK,PGV,PNV,PKV,PY,Q15,S,UE,UN,UAF,UOD,UOR,UVM,ULTT,X
 L @("^"_Q_UGL_"(KC,US,UR)")
 Q
 ;