cI39E4A6 ; Conversie aankoop naar euro P3 --> P4 ; [ 10/02/01 11:30 AM ] ; TEST ; uitvoeren testen vóór conversie ; 1 S $ZT="TRAP^cAN000" ; 2 S FOUTCODE=2 21 I $L($O(@("^e"_Q_"PR(0)"))) D FOUT("ePR de producten werden reeds geconverteerd") 22 L +@("^"_Q_"PR"):2 E D FOUT("PR productenbestand in gebruik") 29 G YZ ; CONV(DEC) ; conversie producten; DEC=aantal decimalen ; 3 S $ZT="TRAP^cAN000",FOUTCODE=2 I '$D(@("^"_Q_"PR(0,19)"))!$P($G(^DMS(Q,"PR",0)),D,30) G YZ 30 S (OPR19,@("^e"_Q_"PR(0,19)"))=@("^"_Q_"PR(0,19)") ; aantal dec. ber. prijzen EURO S $P(@("^"_Q_"PR(0,19)"),D,2)=$P(OPR19,D,56),$P(^(19),D,22)=$P(OPR19,D,57) S:'$L($P(^(19),D,2)) $P(^(19),D,2)=DEC S:'$L($P(^(19),D,22)) $P(^(19),D,22)=DEC ; oude dec. ber. prijzen in BEF S $P(^(19),D,56)=$P(OPR19,D,2),$P(^(19),D,57)=$P(OPR19,D,22) 300 F I=39,40 I $P(^(19),D,I)<2 S $P(^(19),D,I)=DEC 31 S PR=0 W " PR" S MUNT=$P(@("^"_Q_"BA(39)"),D,9) 32 S UQA=$P(^DMS(Q,"PR",0),D,3),USA=$P(^(0),D,4) S:UQA="" UQA=0 S:USA="" USA="PR" ; ; conversie basis-, aankoop- en - verkoopprijzen 33 S PR=$O(@("^"_Q_"PR(PR)")) G 7:PR="" S ORNUL=^(PR,0),OREEN=^(1) W "." 35 S @("^e"_Q_"PR(PR,0)")=ORNUL,@("^e"_Q_"PR(PR,1)")=OREEN 37 S HFDAK=$P(@("^"_Q_"PR(PR,3)"),D,6) 370 S OVP=$P(ORNUL,D,7),NVP=$$OMREK^cAFE1(Q,OVP,MUNT,"EUR","V",DEC) 371 S OPROP=$P(OREEN,D,8),NPROP=$$OMREK^cAFE1(Q,OPROP,MUNT,"EUR","V",DEC) 372 D W^cAN220(USA,UQA,PR,107,NVP) I K="-" D FOUT("PR "_PR_", verkoopprijs werd niet geconverteerd naar euro") 373 D W^cAN220(USA,UQA,PR,208,NPROP) I K="-" D FOUT("PR "_PR_", promotieprijs werd niet geconverteerd naar euro") S OLAKP=$P(OREEN,D,31) 38 G 3905:'HFDAK,3905:'$D(^DATA(Q,"PR_LE",HFDAK,0)) 380 S OHAKP=$P(^(0),D,4),OHBP=$P(^(0),D,10),OMNT=$P(^(0),D,17),OLAKP=$P(OREEN,D,31) 39 S PRLETOPR=1 ; nodig ivm extern wijzigen 3901 S NHBP=$$OMREK^cAFE1(Q,OHBP,OMNT,"EUR","A",DEC) 3902 D W^cAN220(USA,UQA,PR,203,NHBP) I K="-" D FOUT("PR "_PR_", basisprijs werd niet geconverteerd naar euro") 3903 S NHAKP=$$OMREK^cAFE1(Q,OHAKP,OMNT,"EUR","A",DEC) 3904 D W^cAN220(USA,UQA,PR,119,NHAKP) I K="-" D FOUT("PR "_PR_", aankoopprijs werd niet geconverteerd naar euro") 3905 S NLAKP=$$OMREK^cAFE1(Q,OLAKP,MUNT,"EUR","A",DEC) 3906 D W^cAN220(USA,UQA,PR,231,NLAKP) I K="-" D FOUT("PR "_PR_", laatste aankoopprijs werd niet geconverteerd naar euro") ; ; conversie historieken : DEC = vast 2 want het gaat over bedragen 4 S I2="H" W $C(8)," ",$C(8) 40 S I2=$O(@("^"_Q_"PR(PR,I2)")) G 5:$E(I2)'="H" S (NINH,OINH)=^(I2) 41 S @("^e"_Q_"PR(PR,I2)")=OINH 43 F I=1:1 S (NSTUK,OSTUK)=$P(OINH,D,I) Q:OSTUK="" D 45 . S OZ=$P(OSTUK,"#",2),NZ=$$OMREK^cAFE1(Q,OZ,MUNT,"EUR","A",2) 47 . S $P(NSTUK,"#",2)=NZ S $P(NINH,D,I)=NSTUK 48 S @("^"_Q_"PR(PR,I2)")=NINH 49 G 40 ; ; conversie L - lijnen 5 S I2="L" 51 S I2=$O(@("^"_Q_"PR(PR,I2)")) G 6:$E(I2)'="L" S OAKP=$P(^(I2),D,4) 52 S @("^e"_Q_"PR(PR,I2)")=@("^"_Q_"PR(PR,I2)") 53 S NAKP=$$OMREK^cAFE1(Q,OAKP,MUNT,"EUR","A",DEC) 55 S $P(@("^"_Q_"PR(PR,I2)"),D,4)=NAKP G 51 ; ; conversie S - lijnen : DEC = 2 vast want het gaat over bedragen 6 S I2="S" 61 S I2=$O(@("^"_Q_"PR(PR,I2)")) G 33:$E(I2)'="S" S (NINH,OINH)=^(I2) 62 S @("^e"_Q_"PR(PR,I2)")=OINH 63 F I=2,3,6 S OWAARDE=$P(OINH,D,I),NWAARDE=$$OMREK^cAFE1(Q,OWAARDE,MUNT,"EUR","A",DEC) I OWAARDE S $P(NINH,D,I)=NWAARDE 65 S @("^"_Q_"PR(PR,I2)")=NINH G 61 ; ; conversie STKL 7 S KC=0 W " STKL" 700 S KC=$O(@("^"_Q_"STKL(KC)")) G 71:KC="" S I3="" 701 S I3=$O(@("^"_Q_"STKL(KC,0,I3)")) G 700:I3="" S (OINH,NINH)=^(I3) 702 S ONET=$P(OINH,D,2),NNET=$$OMREK^cAFE1(Q,ONET,MUNT,"EUR","V",2),$P(NINH,D,2)=NNET 703 S OBRUM=$P(OINH,D,3),NBRUM=$$OMREK^cAFE1(Q,OBRUM,MUNT,"EUR","V",2),$P(NINH,D,3)=NBRUM 704 S @("^"_Q_"STKL(KC,0,I3)")=NINH G 701 ; 71 S KC=0 710 S KC=$O(@("^"_Q_"STKL(KC)")) G 8:KC="" S I2=0 W ".",$C(8) ; volgend product 73 S I2=$O(@("^"_Q_"STKL(KC,I2)")) G 710:'I2 S (ONUL,NNUL)=^(I2,0) 730 S OLVP=$P(ONUL,D),NLVP=$$OMREK^cAFE1(Q,OLVP,MUNT,"EUR","V",2),$P(NNUL,D)=NLVP 731 S ONET=$P(ONUL,D,9),NNET=$$OMREK^cAFE1(Q,ONET,MUNT,"EUR","V",2),$P(NNUL,D,9)=NNET 732 S OBRUM=$P(ONUL,D,10),NBRUM=$$OMREK^cAFE1(Q,OBRUM,MUNT,"EUR","V",2),$P(NNUL,D,10)=NBRUM 733 S OMUNT=$P(ONUL,D,5),OPAR=$P(ONUL,D,6) 735 S NPAR=$$OMREK^cAFE1(Q,1,OMUNT,"EUR","V",6) 736 S $P(NNUL,D,6)=NPAR 737 S @("^"_Q_"STKL(KC,I2,0)")=NNUL,I3=0 ; volgende maand 77 S I3=$O(@("^"_Q_"STKL(KC,I2,I3)")) G 73:I3="" S (OINH,NINH)=^(I3) W $E(I3,6),$C(8) 771 S ONET=$P(OINH,D,2),NNET=$$OMREK^cAFE1(Q,ONET,MUNT,"EUR","V",2),$P(NINH,D,2)=NNET 772 S OBRUM=$P(OINH,D,3),NBRUM=$$OMREK^cAFE1(Q,OBRUM,MUNT,"EUR","V",2),$P(NINH,D,3)=NBRUM 773 S @("^"_Q_"STKL(KC,I2,I3)")=NINH,I4="" ; volgende dag 79 S I4=$O(@("^"_Q_"STKL(KC,I2,I3,I4)")) G 77:I4="" S (NINH,OINH)=^(I4) 790 S OLVP=$P(OINH,D),NLVP=$$OMREK^cAFE1(Q,OLVP,MUNT,"EUR","V",2),$P(NINH,D)=NLVP 791 S ONET=$P(OINH,D,9),NNET=$$OMREK^cAFE1(Q,ONET,MUNT,"EUR","V",2),$P(NINH,D,9)=NNET 792 S OBRUM=$P(OINH,D,10),NBRUM=$$OMREK^cAFE1(Q,OBRUM,MUNT,"EUR","V",2),$P(NINH,D,10)=NBRUM 793 S OPAR=$P(OINH,D,6),OMUNT=$P(OINH,D,5) 795 S NPAR=$$OMREK^cAFE1(Q,1,OMUNT,"EUR","V",6) 796 S $P(NINH,D,6)=NPAR 797 S @("^"_Q_"STKL(KC,I2,I3,I4)")=NINH G 79 ; ; conversie STLE 8 S KC=0 W " STLE" 800 S KC=$O(@("^"_Q_"STLE(KC)")) G 81:KC="" S I3="" 801 S I3=$O(@("^"_Q_"STLE(KC,0,I3)")) G 800:I3="" S (OINH,NINH)=^(I3) 803 S ONET=$P(OINH,D,2),NNET=$$OMREK^cAFE1(Q,ONET,MUNT,"EUR","A",2),$P(NINH,D,2)=NNET 804 S @("^"_Q_"STLE(KC,0,I3)")=NINH G 801 ; 81 S KC=0 810 S KC=$O(@("^"_Q_"STLE(KC)")) G Y:KC="" S I2=0 W ".",$C(8) ; volgend product 83 S I2=$O(@("^"_Q_"STLE(KC,I2)")) G 810:'I2 S (ONUL,NNUL)=^(I2,0) 85 S OLVP=$P(ONUL,D),ONET=$P(ONUL,D,9),OPAR=$P(ONUL,D,6),OMUNT=$P(ONUL,D,5) 851 S NLVP=$$OMREK^cAFE1(Q,OLVP,MUNT,"EUR","A",2),NNET=$$OMREK^cAFE1(Q,ONET,MUNT,"EUR","A",2) 852 S NPAR=$$OMREK^cAFE1(Q,1,OMUNT,"EUR","A",6) 853 S $P(NNUL,D)=NLVP,$P(NNUL,D,9)=NNET,$P(NNUL,D,6)=NPAR 855 S @("^"_Q_"STLE(KC,I2,0)")=NNUL,I3=0 ; volgende maand 87 S I3=$O(@("^"_Q_"STLE(KC,I2,I3)")) G 83:I3="" S (OINH,NINH)=^(I3) W $E(I3,6),$C(8) 871 S ONET=$P(OINH,D,2),NNET=$$OMREK^cAFE1(Q,ONET,MUNT,"EUR","A",2),$P(NINH,D,2)=NNET 873 S @("^"_Q_"STLE(KC,I2,I3)")=NINH,I4="" ; volgende maand 89 S I4=$O(@("^"_Q_"STLE(KC,I2,I3,I4)")) G 87:I4="" S (NINH,OINH)=^(I4) 890 S OLVP=$P(OINH,D),NLVP=$$OMREK^cAFE1(Q,OLVP,MUNT,"EUR","A",2),$P(NINH,D)=NLVP 891 S ONET=$P(OINH,D,9),NNET=$$OMREK^cAFE1(Q,ONET,MUNT,"EUR","A",2),$P(NINH,D,9)=NNET 892 S OMUNT=$P(OINH,D,5),OPAR=$P(OINH,D,6) 893 S NPAR=$$OMREK^cAFE1(Q,1,OMUNT,"EUR","A",6) 894 S $P(NINH,D,6)=NPAR 895 S @("^"_Q_"STLE(KC,I2,I3,I4)")=NINH G 89 ; ; einde Y L -@("^"_Q_"PR") YZ Q ; ; foutboodschap FOUT(x) S FOUTCODE=1 D FOUT^cI39E4(x) Q ; ZZ ; 02.10.01 - 17 u 26 * V7.88