CEURPORT ; Conversie pottabel naar Euro (^KPORT) ;[ 03/15/2001  9:22 AM ]
 Quit
 ;
T1 ;Wenst u de porttabel naar Euro te converteren?
T2 ;Conversie porttalel naar Euro (^KPORT)
 ;
RUN(TxtPop) 
 New (TxtPop)
 Do
 .New TxtPop
 .Do INIT^vhTERMINA
 Set TxtPop=$G(TxtPop,1),Run=1
 Do:TxtPop
 .Write @F11,@F1
 .Set Txt(1)=$P($T(T1),";",2),Run=$$TXTPOP^CEUR(.Txt)
 Do:Run
 .Write !,$ZN,?10,$P($T(T2),";",2)
 .Kill ^CEURERR($ZN)
 .Set Land=0
 .For  Set Land=$O(^KPORT(0,Land))  Quit:Land=""  Do ONELAND(Land)
 Quit
 ;
ONELAND(Land) 
 New I,R,FromMunt,ToMunt,Gewicht,Zone,Rec
 Set FromMunt="BEF",ToMunt="EUR"
 Set Gewicht=0
 For  Set Gewicht=$O(^KPORT(0,Land,Gewicht)) Quit:Gewicht=""  Do
 .Set Rec=^KPORT(0,Land,Gewicht)
 .For I=1:1 Quit:$P(Rec,D,I)=""  Set $P(Rec,D,I)=$$BEDRAG^CEUR($P(Rec,D,I),FromMunt,ToMunt,2)
 .Set ^KPORT(0,Land,Gewicht)=Rec
 Quit
 ;
DOC 
 ;Conversie ^KPORT (Porttabel)
 ;
 ;
 ;Routine: RUN^CEURPORT()
 ;
 ;
 ;Geconverteerde nodes:
 ;
 ;^KPORT(0,Land,Gewicht)
 ;  Velden 1 t.e.m. ... in BEF omrekenen naar EUR
 ;***
 New L,R
 Write !,$ZN,!
 For L=1:1 Set R=$T(DOC+L) Quit:R=""!($P(R,";",2)="***")  Do
 .If $E(R)=" " Write !?5,$P(R,";",2,99)
 .Else  Xecute $P(R,";")_$P(R,";",2,99)
 Quit
 ;