KPIBT6 G 1 ;PRODUKTEN IN BESTELLING ;KPIBT1;Go van KPIBT1 - naar KPIBT7, KPIBT8, KPIBT9, KPIBT10 [ 04/02/2001  2:20 PM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
 ;
S1 S LKC=0
S1A S LKC=$N(@("^"_Q_UGL_"(LKC)")) G S1Z:LKC=-1
S1B S I9=0,I7=@("^"_Q_"K1(LKC)"),LKN=$P(@("^"_Q_"KL(I7,0)"),D,2),FP=2303+F60 W @F,@F2,LKC," ",LKN
S1C S I9=$N(@("^"_Q_UGL_"(LKC,US,I9)")) G S1A:I9=-1 S I10=100
S1D S I10=$N(@("^"_Q_UGL_"(LKC,US,I9,I10)")) G S1C:I10=-1 S U2=^(I10) D S3 G S1D
S1Z Q
 ;
S3 S PR=$P(U2,D,2) G S3Z:'PR S UA=$P(U2,D,3),ULT=$P(U2,D,25),STKOM=$S($P($P(U2,D,28),";"):0,1:1)
S3F D ^KPCHKPR G S3Z:'OK
S3G S PC=$P(A(0),D,1),PST=$P(A(0),D,14),PY=$P(A(0),D,17),PRE=$P(A(2),D,9),PID=$P(A(2),D,25)
S3H S (H,G,S,L)=" " I $D(A("I")) S H=$P(A("I"),D,1)_" ",G=$P(A("I"),D,2)_" ",S=$P(A("I"),D,3)_" "
S3I I $D(A("J")) S L=$P(A("J"),D,1)_" "
S3J D SC G S3L:"PB"'[LST I '$D(@("^"_Q_"HULP($J,PCC)")) S @("^"_Q_"HULP($J,PCC,0,0,0,0,0)")=PC_D_PID_D_PST_D_PY_D_PRE_D
S3K S @("^"_Q_"HULP($J,PCC,I6,I7,I8,I9,I10)")=UA_D_ULT_D_STKOM_D_LKC_D_LKN_D G S3Z
S3L G S3N:LST'="K" I '$D(@("^"_Q_"HULP($J,H,G,S,PCC)")) S @("^"_Q_"HULP($J,H,G,S,PCC,0,0,0,0,0)")=PC_D_PID_D_PST_D_PY_D_PRE_D
S3M S @("^"_Q_"HULP($J,H,G,S,PCC,I6,I7,I8,I9,I10)")=UA_D_ULT_D_STKOM_D_LKC_D_LKN_D G S3Z
S3N G S3Z:LST'="L" I '$D(@("^"_Q_"HULP($J,L,PCC)")) S @("^"_Q_"HULP($J,L,PCC,0,0,0,0,0)")=PC_D_PID_D_PST_D_PY_D_PRE_D
S3O S @("^"_Q_"HULP($J,L,PCC,I6,I7,I8,I9,I10)")=UA_D_ULT_D_STKOM_D_LKC_D_LKN_D G S3Z
S3Z Q
 ;
1 K @("^"_Q_"HULP($J)") S US="F",Q0="^"_Q_"PR(PR,0)"
3 S FP=2201+F60 W @F,@F1 S FP=2403+F60 W @F,@F4,@("^"_Q_"TO(0,""TOU"")")," BESTAND ",@F5
5 S I6="1LE",I8="T",UGL="TO"
7 S LKC=0
9 S LKC=$N(@("^"_Q_UGL_"(LKC)")) G 17:LKC=-1
11 S I9=0,I7=@("^"_Q_"L1(LKC)"),LKN=$P(@("^"_Q_"LE(I7,0)"),D,2),FP=2303+F60 W @F,@F2,LKC," ",LKN
13 S I9=$N(@("^"_Q_UGL_"(LKC,I9)")) G 9:I9=-1 S I10=100
15 S I10=$N(@("^"_Q_UGL_"(LKC,I9,I10)")) G 13:I10=-1 S U2=^(I10) D S3 G 15
17 S FP=2201+F60 W @F,@F1 S FP=2403+F60 W @F,@F4,@("^"_Q_"OD(0,US,""UOU"")")," BESTAND ",@F5
19 S I6="2KL",I8="O",UGL="OD" D S1
21 S FP=2201+F60 W @F,@F1 S FP=2403+F60 W @F,@F4,@("^"_Q_"UL(0,US,""UOU"")")," BESTAND ",@F5
23 S I8="U",UGL="UL" D S1
25 G @("^KPIBT"_($F("PKLB",LST)+5))
 ;
YZ Q
 ;