cI39E43	;Conversie aankoopprijs ;%I39E ; [ 11/09/01  1:52 PM ]
	;
TEST	S FOUTCODE=2   ; Testen uitvoeren
	;
	; UGL's + FA
1	L +@("^"_Q_"OD"):2 E  D FOUT("OD orderbestand is in gebruik")
11	L +@("^"_Q_"UL"):2 E  D FOUT("UL leveringenbestand is in gebruik")
12	L +@("^"_Q_"FA"):2 E  D FOUT("FA factuurbestand is in gebruik")
	;
	G YZ
	;
	; ====================================================================
	;
CONV	S FOUTCODE=2   ; Conversie uitvoeren
	;
2	S MI=$P(ba39,D,9)   ; BEF
	S MO=$P(ba39,D)     ; EUR
	;
3	D UGL("OD","F")     ; orders
	D UGL("OD","P")     ; zendnota's (carro)
31	D UGL("UL","F")     ; orders
	;
	; facturen
4	S US="",FNR="" W " FA"
41	S US=$O(@("^"_Q_"FA")@(US)) I US="" G 5
43	S FNR=$O(@("^"_Q_"FA")@(US,FNR)) I FNR="" G 41
	W ".",$C(8) S UR="U"
45	S UR=$O(@("^"_Q_"FA")@(US,FNR,UR)) I UR="" G 43
	S UZ=100
47	S UZ=$O(@("^"_Q_"FA")@(US,FNR,UR,UZ)) I UZ="" W " ",$C(8) G 45
	S U2=^(UZ),K=$P(U2,D,32)
	I K S $P(@("^"_Q_"FA")@(US,FNR,UR,UZ),D,32)=$$EPR^cAFE5(K,MO,"A","PR",MI)
	G 47
	;
	; Lock
5	L -@("^"_Q_"FA")
51	L -@("^"_Q_"UL")
52	L -@("^"_Q_"OD")
	;
YZ	Q
	;
	; conversie bonnen
UGL(UGL,US)	
	W " ",UGL,".",US S KC=0,UR=""
UGLA	S KC=$O(@("^"_Q_UGL)@(KC)) I KC="" G UGLZ
	W ".",$C(8)
UGLB	S UR=$O(@("^"_Q_UGL)@(KC,US,UR)) I UR="" G UGLA
	S UZ=100
UGLC	S UZ=$O(@("^"_Q_UGL)@(KC,US,UR,UZ)) I UZ="" W " ",$C(8) G UGLB
	S U2=^(UZ),K=$P(U2,D,32)
	I K S $P(@("^"_Q_UGL)@(KC,US,UR,UZ),D,32)=$$EPR^cAFE5(K,MO,"A","PR",MI)
	G UGLC
UGLZ	Q
	;
	; foutboodschap
FOUT(x)	S FOUTCODE=1 D FOUT^cI39E4(x) Q
	;
ZZ	; 12.11.01 - 11 u 08 * V7.89