cI39I ;Indicatie euro op factuur ;%I39I ; [ 02/21/00  5:50 PM ]
 ;
T1 ;Dit programma stelt de euro-indicatie in op de facturen;
T2 ;+ muntcode in afsluiting op factuur čn de bons;
T3 ;+ programma 7.27.23 op de menu.;
 ;
 ; firmaselectie V7
1 S I3=0
11 S I3=$O(^DAMBA("MENU",0,I3)) I I3="" G 2
13 S M=^(I3),QQ=$P(M,D,9) I QQ?1.3U D S1(QQ)
15 G 11
 ;
 ; firmaselectie V5/V6
2 S I3=0
21 S I3=$O(@("^"_Q_"BA")@("MENU",0,I3)) I I3="" G YZ
23 S M=^(I3),QQ=$P(M,D,9) I QQ?1.3U D S1(QQ)
25 G 21
 ;
YZ W !,$C(7),"Einde ",$P($T(+1),U,2) Q
 ;
S1(Q) ; instelling per Q-waarde
S1A S N=$G(@("^"_Q_"BA")@("MENU",101,23)),^(23)="Wijzigen muntcode leverancier\6\43\^cAFE4\D\"_$P(N,D,4)_"\\\\\Modifier code mon. fournisseur\"
S1B W " ",Q F UGL="OD","UL","TO","TOL" D S2(UGL)
S1Z Q
 ;
S2(G) ; per UGL
S2A S US=0
S2B S US=$O(@("^"_Q_G_"(0,US)")) I US="" G S2Z
S2C S $P(^(US,"LNT"),D,81)=1,$P(^("ULNT"),D,81)=1
S2D I G="UL" F I=1800,1900 I $G(^(I)) S ^(I)=4
S2E G S2B
S2Z W "." Q
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3