TAXIPOST ;AFDRUKKEN AFZENDER TAXIPOST TRANSPORT DOC [ 08/07/2002   3:45 PM ]
 ;
 ;
PRINT(Aantal) 
 New Offset,Bolding
 Set Offset=4
 Set Bolding=2
 Set:Aantal="" Aantal=1
 Do INIT^vhPRINTER()
 Quit:'$D(Print)
 Set FP=36 w @F32
 For Aantal=1:1:Aantal  Do 
 . Write !!!!!!!!
 . For Bolding=1:1:Bolding  Write ?Offset,^KBA(99,1),$C(13)
 . Write !
 . For Bolding=1:1:Bolding  Write ?Offset,^KBA(99,2),$C(13)
 . Write !!
 . For Bolding=1:1:Bolding  Write ?Offset,$E(^KBA(99,3),3,255),$C(13)
 . Write !!
 . For Bolding=1:1:Bolding  Write ?Offset*3,"03/ 760.19.06",$C(13)
 . Write !!
 . For Bolding=1:1:Bolding  Write ?Offset*3,"Luc Van Belleghem",$C(13)
 . Write !!
 . For Bolding=1:1:Bolding  Write ?Offset*3,"SNI 779",$C(13)
 . Write #
 Do CLOSE^vhPRINTER
 Quit
 ;
HELP 
Help 
help Write !!!!! 
 Write "EMS TAXIPOST",!
 Write "------------",!!
 Write "Voorbedrukken van gegevens op EMS TAXIPOST documenten.",!
 Write "Bovenkant van het papier moet gelijk met de bovenkant",!
 Write "van de PRINTKOP geplaatst worden!!!",! 
 Write "Gebruik:",!!
 Write "DO PRINT^TAXIPOST(AANTAL_DOCUMENTEN)",!!!!!
 Quit