KOFTOFD G 1 ; AFDRUKKEN OFFERTES ; KOFTOF; Quit naar KOFTOF [ 11/07/2001  9:53 AM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
S1 I $D(@("^"_Q_"PSG1(SGX)")) S SGO=$P(^(SGX),D,TL)
S1A I '$L(SGO) S SGO=$E(SGX,1,$L(SGX)-1)
S1Z Q
 ;
1 S SGO="",HG=" ",MK="  "
11 S HG=$N(@("^"_Q_"OFKL(KC,US,UR,HG)")) G YZ:HG=-1,5:HG="ZZZZUD" I HG="ZZZZPS" D ^KOFTOFC G 5
12 S HGX=HG_" " G 2:'$D(^(HG,0,0,0)) S UOO=^(0) G 11:'$D(@("^"_Q_"PH(HGX)")) S GRX=-1
13 S GRX=$N(@("^"_Q_"PH(HGX,GRX)")) G 11:GRX=-1 S SGX=-1
15 S SGX=$N(@("^"_Q_"PH(HGX,GRX,SGX)")) G 13:SGX=-1 S PCC=-1 D S1
17 S PCC=$N(@("^"_Q_"PH(HGX,GRX,SGX,MK,PCC)")) G 15:PCC=-1 S PR=+^(PCC) D ^KOFTOFE G 17
 ;
2 S GR=0
21 S GR=$N(@("^"_Q_"OFKL(KC,US,UR,HG,GR)")) G 11:GR=-1 S GRX=GR_" " G 3:'$D(^(GR,0,0)) S UOO=^(0) G 21:'$D(@("^"_Q_"PH(HGX,GRX)")) S SGX=-1
23 S SGX=$N(@("^"_Q_"PH(HGX,GRX,SGX)")) G 21:SGX=-1 S PCC=-1 D S1
25 S PCC=$N(@("^"_Q_"PH(HGX,GRX,SGX,MK,PCC)")) G 23:PCC=-1 S PR=+^(PCC) D ^KOFTOFE G 25
 ;
3 S SG=0
31 S SG=$N(@("^"_Q_"OFKL(KC,US,UR,HG,GR,SG)")) G 21:SG=-1 S SGX=SG_" "
33 G 4:'$D(^(SG,0)) S UOO=^(0) G 31:'$D(@("^"_Q_"PH(HGX,GRX,SGX)")) S PCC=-1 D S1
35 S PCC=$N(@("^"_Q_"PH(HGX,GRX,SGX,MK,PCC)")) G 31:PCC=-1 S PR=+^(PCC) D ^KOFTOFE G 35
 ;
4 S PR=0 K ^HULP($J) D S1
41 S PR=$N(@("^"_Q_"OFKL(KC,US,UR,HG,GR,SG,PR)")) I PR'=-1 S UO=^(PR) G 41:'$D(@("^"_Q_"PR(PR,0)")) S PC=$P(^(0),D,1) D SC S ^HULP($J,PCC)=PR_D_UO G 41
43 S PCC=-1
45 S PCC=$N(^HULP($J,PCC)) I PCC'=-1 S PR=^(PCC),UOO=$P(PR,D,2),PR=+PR D ^KOFTOFE G 45
47 K ^HULP($J) G 31
 ;
5 S UZ=100
50 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,""ZZZZUD"",UZ)")) G YZ:UZ=-1 S I1=^(UZ)
51 G 50:'$D(@("^"_Q_"LIS1(I1)")) S K=@("^"_Q_"LIS(^(I1),0)") G 50:$P(K,D,3)'="PR",50:'$P(K,D,11)
52 S I2=-1,SGX="",CKL=$P(K,D,4)
53 S I2=$N(@("^"_Q_"LIH(I1,I2)")) G 50:I2=-1 S PR=^(I2) G 57:CKL'=3 S K=$N(@("^"_Q_"PR(PR,""I"")")) G 57:$E(K,1)'="I" S K=^(K)
55 I ($P(K,D,3)_" ")'=SGX S SGX=$P(K,D,3)_" " D S1
57 D ^KOFTOFE G 53
 ;
YZ K HG,GR,SG,MK,HGX,GRX,SGX,SGO,PCC,I1,I2,CKL Q
 ;
Z X ^cZ Q
ZZ ; 31.05.91 - 14 u 38