KFO16L G 1 ;MODULE VERWIJDEREN VOLLEDIG LEVERANCIERORDER ;Quit naar %F10 [ 02/19/93  8:02 AM ]
 ;
M1 S MSG="PRODUKT IN GEBRUIK" G MY
M3 S MSG=UOU_" "_UR_" IS VERWIJDERD" G MY
MY S SW12=1,FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K
MZ K MSG Q
 ;
S1 Q
 ;
1 S SW12=1
5 S FP=2103+F60 W @F,@F1,"VERWIJDEREN ",UOU," : ",UR,"   ",$P(@("^"_Q_UGL_"(KC,US,UR,1)"),D,2),"   ",$P(^(1),D,3)
7 S FP=2303+F60 W @F,@F1,"V[] = VERWIJDEREN   -[] = HERNEMEN : ",@F0 R K G 23:K="-"!(K=","),7:K'="V"
9 S FP=2403+F60 W @F,"V[] = VERWIJDEREN DEFINITIEF   -[] = HERNEMEN : ",@F0 R K G 23:K="-"!(K=","),9:K'="V"
11 S UZ=100
13 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 19:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G 13:'PR
15 L (@("^"_Q_UGL_"(KC,US,UR)"),@("^"_Q_"PR(PR)")):2 E  D M1 G 15
17 D S1 G 13
19 K @("^"_Q_UG1_"(UR,US)"),@("^"_Q_UGB_"(UR,US)"),@("^"_Q_UG2_"(US,KC,UR)"),@("^"_Q_UGL_"(KC,US,UR)")
21 S LVHCYB="V",SW13=0,FP=$P(UD,D,2)+1*100+1 W @F,@F1 D M3 S K=",",UTOT=0 D SHOWTOT^KFTOT(UTOT) G YZ
23 S K="-"
 ;
YZ K LC,TR,TUZ,PR,UA,UO,UOD,UOR,UN,UPAR,UMC,U2,Q15,Q16,TRLC,UTYP L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;
 Q
Z X ^cZ Q
ZZ ; 19.04.91 - 14 u 43