ControleAfroepOrders ;AFROEP-ORDERLIJNEN (Ophalen van de lijnen); [ 08/05/2002  10:44 AM ]
  
T1 ;VOLGNUMMER OF ;   [] = vervolg;
T2 ;WENST U DIT PRODUKT VAN EEN AFROEPORDER AF TE NEMEN
T3 ;[] = ja   .[] = neen

Zoek()
 N W,URC,UZC,PCC
 S PC=$P(^KPR(PR,0),D),PID=$P(^(2),D,25)
ZoekProductInAfroepOrders
 S PCC=$$COMPR^PRODUKT(PR)
 I $E(PCC,$L(PCC))=" " S PCC=$E(PCC,1,$L(PCC)-1)
 K ^HULP($J) S W="W"
 F  S W=$O(^KPR(PR,W)) Q:$E(W,9)'="R"  D
 .S URC=$TR($E(W,18,23)," ",""),UZC=100+$TR($E(W,24,26)," ","")
 .I $P($G(^KO1(URC,US)),D)'=KC Q
 .S R=^KOD(KC,US,URC,1) Q:$P(R,D,25)'="A"!'$P(R,D,22)!($P(R,D,27)'=KKN)
 .I UVM'="MTL",UVM'=$P(R,D,18) Q
 .S R=^KOD(KC,US,URC,UZC) Q:$P(R,D,27)
 .S ^HULP($J,URC_UZC_" ")=PR_D_PC_D_URC_D_UZC_D_$P(R,D,3)
 I '$D(^HULP($J)) Q ""
 S FP=UL*100+1 W @F,@F1 Do ##class(CHUI.ToolKit).ProductHoofding(19,PR)
 S R="K\22\3\"_$P($T(T2),U,2)_"\"""_$P($T(T3),U,2)_"""\1\\""-.""[K" D Input
 I $L(K) K ^HULP($J) S:K="." K="" Q K
 S R=$O(^HULP($J,"")) I $O(^(R))="" S R=$P(^(R),D,3,4) K ^HULP($J) Q R
 S R="K\2100\ORDERNUMMER\PR\HULP("_$J_"," D SelecteerAfroepOrder S R=K
 I R'="-" S R=$P(^HULP($J,R),D,3,4)
 K ^HULP($J)
 Q R
 
 
Input S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7)),U,2,99)_")"
 S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6),R8="",$P(R8,".",R6)="."
 S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !?2,@F2,@R5 D:R5'["""" @R5
InputC S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D)=K
 E  G InputC
 S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
 K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V8 05.07.88
 
 
SelecteerAfroepOrder
 S R4=$P(R,D,2)+1+F60,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_$P(R,D,5),FP=R4 W @F,@F1 S K="" G SelecteerAfroepOrderBB
SelecteerAfroepOrderA S FP=2403+F60 W @F,@F1 W:$D(RT) $P($T(T1),U,2) W RA W:R0 $P($T(T1),U,3) W " : ",@F0
 R K
SelecteerAfroepOrderBB G SelecteerAfroepOrderA:K?.E1C.E S:$L(K) R0=0 S FP=R4,R10=0 W @F,@F1 G SelecteerAfroepOrderZ:K="-",SelecteerAfroepOrderD:K=""&('R0) I K="" K RT S R1=R4 G SelecteerAfroepOrderH
 G SelecteerAfroepOrderD:'$D(RT(K)) S R3=RT(K) G SelecteerAfroepOrderM
SelecteerAfroepOrderD K RT S R6=$$UPTRIMAN^vhRtn1(K)
 S R5=$E(R6,1,28) S:R6="" R5=" " S R1=R4,(R2,R3)=R5 G SelecteerAfroepOrderM:$D(@(R9_"R2_"" "")")) S:R5?.N R5=R5_" " S (R2,R3)=$N(@(R9_"R5)")) G SelecteerAfroepOrderK:R2=-1 S R2=$N(^(R2))
 I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S SelecteerAfroepOrder=$D(@(R8_"(R3)")) G SelecteerAfroepOrderM
 S R2=R5
SelecteerAfroepOrderH S R2=$N(@(R9_"R2)")) G SelecteerAfroepOrderK:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G SelecteerAfroepOrderL:R2=-1 I $E(R2,1,$L(R6))'=R6 S R0=0 G SelecteerAfroepOrderA
 S FP=R1,R10=R10+1,RT(R10)=R2 W @F,$C(13),?2,R10,". ",?6,$P(^(R2),D,3)," ",$P(^(R2),D,4)-100,?16,$J($P(^(R2),D,5),6)
 S R1=R1+100 G SelecteerAfroepOrderH:R1<(2300+F60) S R0=1 G SelecteerAfroepOrderA
SelecteerAfroepOrderK X ^cTXT(0,"N",8) R K
SelecteerAfroepOrderL S (R2,R0)=0 G SelecteerAfroepOrderA
SelecteerAfroepOrderM S:$E(R3,$L(R3))'=" " R3=R3_" " S (@$P(R,D,1),K)=R3
SelecteerAfroepOrderZ K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,RA,RT Q