STREGOM2 ;Omzet per regio  [ 11/08/2003   8:40 PM ]
 U 0:(::::4096)
 READ "TRANSFERT",K
 Set Dat=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M",-61),"DM4")_" "
 Set EDat=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M",-1),"DM4")_" "
 Write "Datum"
 S Regio=""
 ;For Regio=0,2,3,4,1 Do
 For  Set Regio=$O(^RES("KLANT","PI","REGIO","D",Regio)) Quit:Regio=""  Do
 .Write $C(9),"OL.",Regio,$C(9),"OV.",Regio
 For  Set Dat=$O(^KKAAM(Dat)) Quit:Dat=""  Quit:Dat]EDat  Do
 .Write $C(13),Dat
 .S Regio=""
 .For  Set Regio=$O(^RES("KLANT","PI","REGIO","D",Regio)) Quit:Regio=""  Do
 ..;For Regio=0,2,3,4,1 Do
 ..Set Rec=$G(^KKAAM(Dat,Regio))
 ..Write $C(9),$TR($P(Rec,D,2),".",","),$C(9),$TR($P(Rec,D,1),".",",")
 Write "~~~"
 Quit