KF5L G 1 ;MODULE UITLEVEREN LEVERANCIERORDERS (TRANSFERT) ;Quit naar KF4 [ 05/21/2003  9:15 AM ]
 ;
S1 S UGW=UGW+($P(@("^"_Q_"PR(PR,1)"),D,13)/1000*UA) L (@("^"_Q_"OD(KC,US)"),@("^"_Q_"UL(KC,US,URR)"))
S1A S R=@("^"_Q_"PR(PR,0)")
S1Z Q
 ;
S2 S @("^"_Q_"OD(KC,US,UR,UZ)")=U2
S2Z Q
 ;
S3 S UUZ=@("^"_Q_"UL(KC,US,URR,0)"),^(0)=UUZ+1,^(UUZ)=U2
 D BUILDKUP^FLOWBON3(KC,URR,UUZ)
S3Z Q
 ;
S4 S UBE=$J(UEP*UA,1,2),U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_UM_D_$P(U2,D,18,22)_D_UAA_D_$P(U2,D,24,99)
S4Z Q
 ;
S5 S FP=1503 W @F,@F1 S FP=2424+$L(UOU)+$L(UR)+$L(URR)+F60 W @F,@F5 S FP=2403+F60 W @F,@F4,UOU," ",UR," NAAR UITLEVERING ",URR," ",@F5
S5Z Q
 ;
S6 S UEP=$P(U2,D,6),UA=0,UN=$J(0,0,2),UM="KF6",UAA=$P(U2,D,3) D S4,S3
S6Z Q
 ;
1 S UPAR=$$MUNT^vhRtn1(UVM,,12),ULV="01"
2 S UPL="V",UR=$N(UTO(UR)) K ^HULP($J) G YZ:UR=-1
20 S UZ=100 I UVL="P" S R="UPL\22\3\UITLEVEREN ORDER "_UR_"\C2\1\\""VL""[K&$L(K)" D R0^KF5AL
3 D S5 S X=@("^"_Q_"OD(KC,US,UR,1)")
4 S U2=$E(BS,1,3)_$P(X,D,8)_D_$E("      ",1,6-$L(UR))_UR_" - "_$P(X,D,2)_" - "_$P(X,D,3)_$E(BS,1,12)_"KF5"_$E(BS,1,9),$P(U2,D,20)=$P(X,D,19) D S3
5 S UZ=$N(@("^"_Q_"OD(KC,US,UR,UZ)")) G 9:UZ'=-1,7:$N(^(100))=-1
6 S UZ=$N(^HULP($J,UZ)) I UZ'=-1 S U2=^(UZ),@("^"_Q_"OD(KC,US,UR,UZ)")=U2 G 6
 I $D(@("^"_Q_"OD(0,US,3)")) S URLC=UR D @^(3)
 G 2
7 K @("^"_Q_"O2(US,KC,UR)"),@("^"_Q_"OB(UR,US)"),@("^"_Q_"OD(KC,US,UR)")
8 S U2=@("^"_Q_"O1(UR,US)"),@("^"_Q_"O1(UR,US)")=$P(U2,D,1)_D_URR_D_$P(U2,D,3,99),^(US,URR)=""
 I $D(@("^"_Q_"OD(0,US,4)")) S URLC=UR D @^(4)
 G 2
9 S U2=^(UZ) K ^(UZ) S PR=$P(U2,D,2),UA=$P(U2,D,3),UH=$P(U2,D,10)*UPAR,TR=$P(U2,D,27),TZ=$P($P(U2,D,28),";") I '$L(PR) D S3 S:$P($P(U2,D,17),"#",1)="KF11" ^HULP($J,UZ)=U2 G 5
10 S U2=$P(U2,D,1,22)_D_D_$P(U2,D,24,99)
12 S X(0)=@("^"_Q_"PR(PR,0)"),PC=$P(X(0),D,1),PN=$P(X(0),D,2),X(2)=^(2),PST=$P(X(0),D,14),PV=$P(^($N(^("J"))),D,25)
120 G 13:UPL="V" S R="K\22\3\AANTAL UITLEVEREN\C3\6\\""NV""[K&($L(K)=1)!(K?.N&(K>0)&(K'>UA))\" D R0^KF5AL D S5 I K="N" D S2,S6 G 5
122 G 13:K=UA!(K="V") S PST=K G 18
13 D S1 S U2=$P(U2,D,1,16)_D_"KF6"_D_$P(U2,D,18,99) D S3 G 5
18 S UAA=UA,UA=UA-PST,UEP=$P(U2,D,16)/UAA,UA=PST,UM="KF0",UH=$P(U2,D,10)/UAA*UA*UPAR D S1
19 S UH=$P(U2,D,9),UA=UAA-PST,UN=$J(UH/UAA*UA,1,2) D S4,S2 S UA=PST,UN=$J(UH/UAA*UA,1,2),UM="KF6" D S4,S3 G 5
 ;
YZ K PC,PN,PR,PST,PV,U2,TU2,UA,UAA,UBE,UEP,UUZ,UM,UH,UN,TR,TZ,UZN,UGW,UPT,UPB,PB,PL,PM,LC,LPT,LVW,ULV,UPAR,PPAR,UVM,UVW,X Q
 ;
 Q
Z X ^cZ Q
ZZ ; 26.02.91 - 13 u 18