KFU16L G 1 ;MODULE VERWIJDEREN VOLLEDIGE UITLEVERING LEVERANCIERORDER;Quit naar %F10 [ 01/05/2001  4:04 PM ]
 ;
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
 ;
1 S SW12=1,U2=^(1)
 S UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(U2,D,2)),"DS"),D,"")
 S UVM=$P(U2,D,18) S:UVM="" UVM=$$FADEF^vhRtn1()
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"
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 PR,UA,UO,UOD,UOR,UPAR,UMC,U2 L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;
 Q
Z X ^cZ Q
ZZ ; 30.04.91 - 10 u 04