OMZTYP ;TRANSFERT Omzet per Maand en KlantType [ 11/08/2003   8:40 PM ]
 ; Type C & D samengevoegd onder 1 noemer : C
 ; Type 1,2,3 samengevoegd onder 1 noemer : H
 ; Type 0 & Z samengevoegd onder 1 noemer : Z
 ; 
 Kill  Do INIT^vhTERMINA
 Set File=$$ASKFILE^vhDEV("OMZTYP.TXT")
 Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,File,"W")
 Quit:Dev=0
 Use Dev
 s Mnd="",Typ=""
 For  S Mnd=$O(^KKAAMA(Mnd)) Quit:Mnd=""  Do
 .Write !,"01.",$E(Mnd,6,7),".",$E(Mnd,3,4) 
 .For Typ="Z","A","B","C","H" Do
 ..Write $C(9),$TR($P($G(^KKAAMA(Mnd,Typ)),"\",2),".",",")
 ..Write $C(9),$TR($P($G(^KKAAMA(Mnd,Typ)),"\",1),".",",")
 Close Dev
 W @F11,@F1
 Quit