KVWFAKT G 1 ;VERWIJDEREN FAKTUURINFORMATIE [ 05/11/99  9:17 AM ]
 ;
1 S Q="K" D ^cA604 S US="F",FNR=""
3 R "Fakturen verwijderen tot en met faktuurdatum ? ",VDT
 G YZ:VDT'?2N1"."2N1"."2N
 S vdt=$$INTDATE^vhDTyp(VDT)
5 S FNR=$N(^KFA(US,FNR)) G YZ:FNR=-1
 S FDT=$P(^(FNR,0,0),D,6),fdt=$$INTDATE^vhDTyp(FDT)
 G 5:fdt>vdt
 W !,FNR,?10,FDT
 I FNR>854136 W "    " W @F0,"*" H 1 W @F0,"*" H 1 W @F0,"*" H 1 W @F0,"*" H 1 W @F0,"*" G 5
 K ^KFA(US,FNR) G 5
YZ Q
 ;
Z X ^cZ Q
ZZ ; 01.07.86 -  9 u 56