IQCNV ;Conv. naar 7.9 ;IQ-glas ; [ 06/03/2002 - 13:55:47 - 58869,50147 ]
 ;
 ; te kopieren bestanden
 ; del #
 ; veld 2 = 1 : eerst verwijderen nulnode van de oude data
 ; veld 3 = 1 : eerst verwijderen data van de basis
 ; veld 4 = 1 : oud bestand bewaren
 ;
 ; BA,INTR,UL,OD,TO,TOL : vast in het programma
 ; 
T1 ;AA;AAB;AFS#1#1;AR#1#1;ARA#1#1;ARP;AF;AALOG;FA;FB;FDPD;FI;FID;FI1;FIA;FIB;FIE;FORM#1#1;
T2 ;AG;AM;BG;HK;HPH;HPL;HPM;JOB;JOB1;JOB2;JOB3;JOB4;JOB5;JOB6;JOB7;JOB8;JOBF;KOL;KOL1;TJOB;TLEV;
T3 ;FX;INTR1;INTR2;INTRB;
T4 ;LE#1#1;L1;L3;L9;LEFNR;KH#1;KL#1#1;K1;K2;K3;K4;K5;K6;K9;KSP;NP#1;NP1;
T5 ;KORT;LIB;
T6 ;LOGM;LOGM;
T7 ;PE;PGR;PMK;PHG;PSG;PHST;PWT;PWD;PWM;PWHO;
T8 ;STKL#1;STKL1;STKL2;STKLB;STLE#1;STLE1;STLE2;STLEB;
T9 ;O1;O2;OX;OXBO;O;K;
T10 ;TX;TO1;TO2;TOA;TOB;TOX;TOL1;TOL2;TOLB;TOLX;
T11 ;UT#1;U1;U2;UB;UX;ULL;
T12 ;V1;VE;VEB;VF;VT#1;VBR;VZ;
T13 ;UIR;ZUT;
T14 ;CS;TE;TE1;OMZ;HOD;STNR;MATE;KGP;LGP;CTFC;
T15 ;BTW;HBDF;HBNAL;HBO1;MOA;PS;PS1;UBV;HBDZ;PH;PK;PL;PM;
T16 ;IND;MSTK;L;UIR;BB;LEV;MSTK;MAKL#1;MAK1;
T17 ;AC;AC1;BK;AS;ETB;FAKE;HBPPL;PD;PE;PRI;R9;RU;RU1;RU2;RUB;UPL;VO;
T18 ;PVF;PVA;STVT;KLD;KLP;PW;LEM2;RA1;UI;UI1;UI2
 ;
1 W !,"Opkuis menu's"
 S (Q,q)="EA"
 ; D ^cFW999  ; toonbankverkopen J/N
 S I1=$G(^EAL1(5000)) I $L(I1) K ^EAL1(5000),^EALE(I1)
 ; f i=11,13:1:15,23,24,26,28:1:31 k @("^"_q_"BA(""MENU"",1,i)")     ; hfdmenu
 ; f i=7,8,11,27,28 k @("^"_q_"BA(""MENU"",21,i)")     ; statistieken
 ; K @("^"_q_"BA(50)") ; indien geen intrastat
 ; f i="B","M","MH" K @("^"_q_"UL(0,i)")
 ; f i="F","BO","D","N","P","M","N","P" K @("^"_q_"OD(0,i)")
 ; f i="BO","D","M","N","P","T" K @("^"_q_"OD(0,i)")
 ; K @("^"_q_"OD")
 ; F i=2 k @("^"_q_"BA(""MENU"",20,i)")   ; facturatie
 ; F i=24,28,29 k @("^"_q_"BA(""MENU"",16,i)")     ; basisgegevens
 ; F i=3:1:6,10:1:28 k @("^"_q_"BA(""MENU"",101,i)") ; par.prod.
 ; F i=10,11 k @("^"_q_"BA(""MENU"",101,i)") ; par.prod.
 ; S @("^"_q_"BA(""MENU"",16,27)")=@("^"_q_"BA(""MENU"",101,8)"),$P(^(27),D,2,3)="11\44"
 ; f i=7,11:1:16 k @("^"_q_"BA(""MENU"",58,i)")        ; orders
 ; f i=11,24,28,29 k @("^"_q_"BA(""MENU"",157,i)")     ; logging
 ; f i=24,26,29 k @("^"_q_"BA(""MENU"",116,i)")        ; vrije velden
 ; f i=8,22:1:25,32 k @("^"_q_"BA(""MENU"",22,i)")             ; producten
 ; f i=8,13,32 k @("^"_q_"BA(""MENU"",22,i)")             ; producten
 ; f i=11,31 k @("^"_q_"BA(""MENU"",25,i)")          ; prod.codes
 ; f i=21 k @("^"_q_"BA(""MENU"",26,i)")                ; aankoop
 ; K @("^"_q_"TO(0)")   ; geen bestelvoorstel
 ; K @("^"_q_"TOL(0)")  
 ; f i="M" K @("^"_q_"TO(0,i)")
 ; f i="AK","ARA","AR.BUD" i $D(^DMS(q,i,0)) S $P(^(0),D,29,31)="KU\1\"_DT
 ;
 ; F J="DMA","DMC","DMH","DMM" s j="" f  s j=$o(@("^rap"_J_"(j)")) q:j=""   k @("^"_J_"(j)") m @("^"_J_"(j)")=@("^rap"_J_"(j)") w !,J,"  ",j
 ; m ^DMS=^rapDMS
 ;
 ; Specifiek voor Rota Trucks
 ; I "\1\3\"[(D_$E($ZU(5),5,6)_D) D
 ; . K @("^"_q_"BA(""MENU"",20,2)")
 ; . F i=14,25 K @("^"_q_"BA(""MENU"",1,i)")
 ; . F i=22:1:25 K @("^"_q_"BA(""MENU"",22,i)")
 ; . F i=11,31 k @("^"_q_"BA(""MENU"",25,i)") 
 ; . K @("^"_q_"TO(0)")
 ; . K @("^"_q_"TOL(0)")
 ;
 ; copieren menu's
 ; G 2
11 ; D ^COPY("EA","EB") 
 ; f i=12:1:22 k ^EBBA("MENU",1,i)
 ; F i=15,21:1:22 k ^EBBA("MENU",1,i)
 ; F i=22 K ^EBBA("MENU",116,i)
 ; F i=24,29 K ^EBBA("MENU",16,i)
 ; f i=21:1:27,14,31 k ^EBBA("MENU",16,i)
 ; f i=1:1:6,10,26 k ^EBBA("MENU",81,i)
 ; s ^EBBA("MENU",81,21)=^EBBA("MENU",16,9),$P(^(21),D,2,3)="4\44"
 ; s ^EBBA("MENU",16,27)=^EBBA("MENU",101,1),$p(^(27),D,2,3)="11\44"
 ; f i=22 k ^EBBA("MENU",157,i)
 ; f i=22 k ^EBBA("MENU",116,i)
 ; f i=1,3,21 K ^EBBA("MENU",20,i)
 ; K ^EBUL,^EBOD,^EBTO,^EBTOL
 ; F i="R","RT","RH","M","MH" K ^EBUL(0,i)
 ; k ^EBUL,^EBOD,^EBTO,^EBTOL,^EBTB,^EBPV
 ; f i="AK","ARA","AR.BUD","NP","M","M.PAR","VT","UT","UT.DET","SEL","PWT","PS","PR_SPE","PR_SP","PR_LE.IND","PR_LE","PR.STCOR","PR.STAPER.R","PR.STALE.TSS","PR.STALE","PR.STAKL.TSS","PR.STAKL","PR.SK","PR.SG","PR.MK","PR.HG","PR.GR","PR","KL_PR.PRIJS","CODE.STCOR","BEST" i $D(^DMS("EB",i,0)) S $P(^(0),D,29,31)="KU\1\"_DT
 ; D ^COPY("EB","EC")
 ;
2 W !!!,"Inlezen gegevens (worden als o_Q ingelezen ): "
 i $zu(5)="ADMIN2" W " ","\\Admin\c-share\IQglas.gsa"
 W !!
 D ^kuGI
 ;
 Q
 ;
3 ; start van de eigenlijke conversie        
 ; indien Caché : instellen oude Q-waarde per namespace
 S NAME("ADMIN2")="I"
 ; op zetten van de nieuwe Q-waardes nqq=Q1_" "_Q2_" "_Q3...
 ; wordt gebruikt in 'f qii=1:1 s q=$p(nqq," ",qii) ...'
 s nqq="EA "
 ; Indien MSM en verschillende firma's : opzetten oude Q-waardes
 ; wordt gebruikt als 's oq=$p(oqq," ",qii)'
 ; s oqq="E "
 ;
 S $ZT="TRAP^cAN000"
 ;
 ; Aanpassen slechte muntcodes
 ; I $zu(5)="ROTA1" S $P(^oEBA(11,"HFL"),D)="NLG" W !,"S $P(^oEBA(11,""HFL""),D)=""NLG""",!,^oEBA(11,"HFL")
 ;
 W !,"Conversie : "
31 ; prioriteiten
 ; s i=""
 ; f  s i=$o(^oCFBA("%A",2,i)) q:i=""  s ^DATA(0,"PRI",$P(i," "),0)=i_D_^(i)
 ;
 ; overhalen ^DATA....
4 S $ZT="TRAP^cAN000"
 ; specifiek per klant te bepalen
 ; Ripa
 ; M ^CF=^oCF
 ; K ^oCF
 ; S OQ="o??",GE="^o??"
 ; F  S GE=$$NEXT^COPY(GE) Q:$E(GE,2,4)'="oCF"  M @("^"_$E(GE,3,$L(GE)))=@(GE)
 ; F  S GE=$O(@("^"_GE)) Q:$E(GE,1,3)'="oCF"  M @("^"_$E(GE,2,$L(GE)))=@("^"_GE)
 ; S GE="oS"
 ; F  S GE=$O(@("^"_GE)) Q:$E(GE,1,2)'="oS"  M @("^"_$E(GE,2,$L(GE)))=@("^"_GE)
 ; M ^SPRX=^oSPRX
 ; S KC=""
 ; F  S KC=$O(^oSUL(KC)) Q:KC=""  M ^oSOD(KC,"T")=^oSUL(KC,"M") K ^oSUL(KC,"M")
 ; M ^oSO1("T")=^oSU1("M")
 ; M ^oSO2("T")=^oSU2("M")
 ; M ^oSOB("T")=^oSUB("M")
 ; M ^LOGO=^oLOGO
 ; f i="DCAT","DPW","ICAT","IPW" K @("^"_i_"(0)") m @("^"_i_"(0)")=@("^o"_i_"(0)") K @("^o"_i_"(0)") W !,i
 ; f i="HI","LG","NH","PW" S ^DIN(0,i)=^oDIN(0,i) k ^oDIN(0,i) m ^DLOG(0,i)=^oDLOG(0,i) k ^oDLOG(0,i)
 ; F i="DIN","DLOG","DATA" F j="PRI","PRO","PRO_PRI","SYS","SYS.QQM","USR","USR_PRI","USR_PRO","USR_SYS.QQM" K @("^"_i_"(0,j)") m @("^"_i_"(0,j)")=@("^o"_i_"(0,j)") K @("^o"_i_"(0,j)") W !,i
 ; S i="" F  S i=$O(^DATA(0,"SYS.QQM",i)) Q:i=""  S $P(^DATA(0,"SYS.QQM",i,0),D,2)="DAM"
 ; f j="INTR.GOE" f i="DATA","INDEX","DIN","DLOG" k @("^"_i_"(0,j)") m @("^"_i_"(0,j)")=@("^o"_i_"(0,j)") k @("^o"_i_"(0,j)")
 ;
 ;
40 f qii=1:1 s q=$p(nqq," ",qii) q:q=""  d   ; q = nieuwe Q-waarde
 . D Q(q)
 . D ^cA105 S ^ku("begin",q,oq)=TD
 . ;
 . ; f i="DATA","DHIS","INDEX","DLOG","DIN","DKOS","DPR" K @("^"_i_"(q)") m @("^"_i_"(q)")=@("^o"_i_"(oq)") K @("^o"_i_"(oq)") W !,i
 . ; F i="DATA","DHIS","DLOG","DIN" F j="ETI","LIS","PR.GR","PR.HG","PR.MK","PR.SG","PR_LE","PR_LE.IND","PWT","SEL" K @("^"_i_"(q,j)") m @("^"_i_"(q,j)")=@("^o"_i_"(oq,j)") K @("^o"_i_"(oq,j)") W !,i
 . ;
41 . ; conversie Q_BA
 . W !,"Conversie Q_BA"
 . ; factuurnrs en journaalcodes (zie menu 7.16)
 . S I=1900 F  S I=$O(@("^"_q_"BA(I)")) Q:I>2050!($P(I,".")'?4N)  K @("^"_q_"BA(I)")
 . f i=1980:1:2050 i $D(@("^o"_oq_"BA(i)")) m @("^"_q_"BA(i)")=@("^o"_oq_"BA(i)")
 . ; van "^o"_oq_"BA(0-tem 9999999 alles overnemen
 . S i="" F  s i=$o(@("^o"_oq_"BA(i)")) q:$e(i)="%"  k @("^"_q_"BA(i)") m @("^"_q_"BA(i)")=@("^o"_oq_"BA(i)")
 . f i="S","KO" I '$D(@("^"_q_"BA(20,i)")) S ^(i)=$g(^("G"))
 . ; spec. ??
 . ; M @("^"_q_"BA(""AR"")")=@("^o"_oq_"BA(""AR"")")
 . ; M @("^"_q_"BA(""BAR"")")=@("^o"_oq_"BA(""BAR"")")
 . ; f i=7,8,10,11 M @("^"_q_"BA(""%A"",i)")=@("^o"_oq_"BA(""%A"",i)")
 . f i=7,8,11 M @("^"_q_"BA(""%A"",i)")=@("^o"_oq_"BA(""%A"",i)")
 . ; %F ...
 . F i=1:1:50,300,101,101.1,999 i $D(@("^o"_oq_"BA(""%F"",i)")) K @("^"_q_"BA(""%F"",i)") m @("^"_q_"BA(""%F"",i)")=@("^o"_oq_"BA(""%F"",i)")
 . ; Boekhouding
 . F i=2,4:1:8 K @("^"_q_"BA(""%T"",i)") m @("^"_q_"BA(""%T"",i)")=@("^o"_oq_"BA(""%T"",i)")
 . I '$L($P($G(@("^"_q_"BA(""%T"",2)")),D,11)) S $P(^(2),D,11)=6
 . ; journalen en factuurnrs
 . F I="A","D","V" K @("^"_q_"BA(""%T"",I)") M @("^"_q_"BA(""%T"",I)")=@("^o"_oq_"BA(""%T"",I)") s i=I f  s i=$o(@("^o"_oq_"BA(""%T"",i)")) q:$e(i)'=I  m @("^"_q_"BA(""%T"",i)")=@("^o"_oq_"BA(""%T"",i)")
 . ; F i="KL","LE","AR","PR","PR_LE" m @("^"_q_"BA(""%A"",1,i)")=@("^o"_oq_"BA(""%A"",1,i)")
 . ;
 . ; overhalen spec. zaken vóór het kopieren
5 . ; memo-data
 . ; W !!,"Memo-data",!
 . ; I $D(@("^o"_oq_"MEMO(""KL\K1"",0,0,1)")) s @("^"_q_"MEMO(""KL\K1"",0,0,1)")=@("^o"_oq_"MEMO(""KL\K1"",0,0,1)")
 . ; I $D(@("^o"_oq_"MEMO(""KL\K1"",0,0,10)")) s @("^"_q_"MEMO(""KL\K1"",0,0,11)")=@("^o"_oq_"MEMO(""KL\K1"",0,0,10)")
 . ; m @("^"_q_"MEMO(""KL\K1"",0,0,11)")=@("^o"_oq_"MEMO(""KL\K1"",0,0,11)")
 . ; f i=1 m @("^"_q_"MEMO(""KL\K1"",0,i)")=@("^o"_oq_"MEMO(""KL\K1"",0,i)")
 . ; I oq="CF" m ^DAMBA(99)=@("^o"_oq_"BA(99)")
 . ; q="EA" d
 .. ; m ^DAMBA(99)=@("^o"_oq_"BA(99)")
 .. ; f i=1 s ^DAMBA("MENU",0,i)=@("^o"_oq_"BA(""MENU"",0,i)")
 .. ; s ^DAMBA("MENU",0,1)=@("^o"_oq_"BA(""MENU"",0,1)")
 .. ; S $p(^DAMBA("MENU",0,1),D,9)="EA"
 .. ; S $p(^DAMBA("MENU",0,2),D,9)="EB"
 .. ; S $p(^DAMBA("MENU",0,3),D,9)="EC"
 . ; I q="EA" f i="MA","MO","PW","X" d
 . ; I q="EA" f i="PW" d
 .. ; s oge="o"_oq_i,ge=oge
 .. ; F  s ge=$o(@("^"_ge)) q:$e(ge,1,$l(oge))'=oge  d
 ... ; s nge=q_$p(ge,"o"_oq,2,99)
 ... ; m @("^n"_nge)=@("^"_nge) K @("^"_nge)
 ... ; w !,nge m @("^"_nge)=@("^"_ge)
 ... ; I nge="EMAKL"!(nge="EPWM")!(nge="EPWK")!(nge="EMOPL") K @("^"_nge_"(0)") M @("^"_nge)@(0)=@("^n"_nge)@(0)
 . ;
 . ; specifieke zaken, per klant te bepalen
 . ; M @("^"_q_"PWFN(0,""B"")")=@("^o"_oq_"PWFN(0,""B"")")
 . ; M @("^"_q_"PWFN(0)")=@("^o"_oq_"PWFN(0)")
 . ; K @("^"_q_"WE(0)")
 . ; I oq="IA" m ^ooIABK=^oIABK K ^oIABK m ^oIABK=^oIABUK
 . ;
 . ; producten : lengte productcode, parameters PR(0,19) ,...
51 . ; m @("^oo"_oq_"PR(0)")=@("^o"_oq_"PR(0)")
 . ; s k=$p($G(@("^o"_oq_"PR(0,101)")),U,9) i k s $p(@("^"_q_"PR(0,19)"),D,36)=k,$P(^(101),U,9)=k
 . ; f i=2,3,4,5,13,36,15,16,17 i $L($p($G(@("^o"_oq_"PR(0,19)")),D,i)) s $p(@("^"_q_"PR(0,19)"),D,i)=$p(@("^o"_oq_"PR(0,19)"),D,i)
 . ; I $D(@("^o"_oq_"PR(0,19)")) f i=27:1:29 s $p(@("^"_q_"PR(0,19)"),D,i)=$p(@("^o"_oq_"PR(0,19)"),D,i)
 . ; eventueel definitie van uitleveringen, orders van klant overnemen
 . ; dus eerst de def. van de basis opzij zetten en verwijderen
53 . ; f i="UL","OD" m @("^n"_q_i)=@("^"_q_i) k @("^"_q_i)
 . S ^DIN(q,"KL")=$G(@("^o"_oq_"KL(0,1)"),1000)
 . S ^DIN(q,"LE")=$G(@("^o"_oq_"LE(0,1)"),5000)
 . ; S @("^"_q_"PR(0,1)")=$o(@("^o"_oq_"PR("""")"),-1)+1
 . ; S ^DIN(q,"PR")=@("^"_q_"PR(0,1)")
 . ;
6 . W !!,"Merge ^oq-bestanden naar ^q-bestanden"
 . F II=1:1 Q:'$L($P($t(@("T"_II)),U,2,99))  D
 .. S A=$P($T(@("T"_II)),U,2,99)
 .. F I=1:1 S B=$P(A,U,I) Q:'$L(B)  D
 ... S GE="^"_q_$P(B,"#"),OGE="^o"_oq_$P(B,"#")
 ... I $P(B,"#",3) S I1=0 F  S I1=$o(@GE@(I1)) Q:I1=""  K ^(I1)
 ... I $P(B,"#",2) K @OGE@(0)
 ... D S1($P(B,"#"),$P(B,"#",4))
 . ;
60 . ; overnemen data intra-stat 
 . ; m @("^"_q_"INTR(""%F"",1)")=@("^o"_oq_"INTR(""%F"",1)")
 . ; m @("^"_q_"INTR(""%P"",""P"")")=@("^o"_oq_"INTR(""%P"",""P"")")
 . ; S FORM=$P($G(@("^"_q_"INTR(""%P"",""P"")")),D,33) 
 . ; I FORM S $P(@("^"_q_"INTR(""%P"",""P"")"),D,33)=$$UI1^cAFA1("FORM",101,FORM)
 . ; S i=0 F  S i=$O(@("^o"_oq_"INTR(i)")) q:i'?1.N  m @("^"_q_"INTR(i)")=@("^o"_oq_"INTR(i)")
 . ; 
 . ;
 . ; invullen muntcode  bij klant, leveranciers, ...
63 . W !!,"Invullen muntcode bij klant, leveranciers, ...",!
 . s MNT=$$BF^cAFA1,kcpv=$P($G(@("^"_Q_"BA(20,""K"")")),D)
 . f ge="KL","LE","AR" s i=0 f  s i=$o(@("^"_q_ge_"(i)")) q:i=""  d
 .. I '$L($P(^(i,0),D,11)) S $P(^(0),D,11)=MNT
 .. ; I ge="LE" S $p(^(1),D,26)=$P(^(0),D,20),$P(^(0),D,20)=""  ; roepn
 .. ; conversie telefax en term.k.kont
 .. I ge="KL" D  Q
 ... s $P(^(1),D,13)=$p($g(^(1)),D,24),$P(^(1),D,24)=""  ; fax
 ... ; s $P(^(2),D,2)=$p(^(1),D,23),$P(^(1),D,23)=""  ; term.k.kont
 ... ; S $P(^(1),D,12)=1 ; excl. BTW
 ... ; I $P(^(1),D,20)="*" S $P(^(1),D,20)=""  ; man. adres
 ... ; I $P(i," ",2)=kcpv s $p(^(1),D,41)=1 ; toonbank op ja
 ... ; s $p(^(1),D,19)=1,$p(^(1),D,5)=1 ; cat + RK
 ... ; s $p(^(2),D,25)=$p(^(0),D,24),$P(^(0),D,24)="" ; creatiedatum
 ... ; s fnr=100000 f  s fnr=$o(@("^"_q_ge_"(i,fnr)")) q:fnr'?6N  i '$l($p(^(fnr),D,10)) s $p(^(fnr),D,10)=$p(^(fnr),D,5),^fnr(i,fnr)=^(fnr)
 ... s $P(^(3),D)=$p($g(^(2)),D,10),$p(^(2),D,10)=""      ; code comm.act.
 ... s $p(^(3),D,2)=$p($g(^(1)),D),$p(^(1),D)=""          ; banknummer
 ... s $p(^(5),D)=$p($g(^(2)),D,11),$p(^(2),D,11)=""      ; verantw.1
 .. I ge="LE" D  Q
 ... s $p(^(1),D,23)=$p($g(^(2)),D,2),$p(^(2),D,2)=""     ; termijn KK
 ... s $p(^(3),D,1)=$p($g(^(2)),D,11),$p(^(2),D,11)=""    ; verantw.alg.
 ... s $p(^(3),D,2)=$p($g(^(2)),D,14),$p(^(2),D,14)=""    ; verantw.BH..
 ... s $p(^(3),D,3)=$p($g(^(6)),D,1),$p(^(6),D,1)=""      ; verantw.8.
 ... s $p(^(3),D,4)=$p($g(^(6)),D,3),$p(^(6),D,3)=""      ; verantw.9.
 ... s $p(^(3),D,5)=$p($g(^(6)),D,4),$p(^(6),D,4)=""      ; verantw.10.
 ... s $p(^(3),D,6)=$p($g(^(6)),D,5),$p(^(6),D,5)=""      ; verantw.11.
 ... s $p(^(4),D,1)=$p($g(^(6)),D,6),$p(^(6),D,6)=""      ; verantw.12.
 . ;
65 . ; W !!,"Overnemen UL, OD, TO, ....",!
 . ; Specifiek voor Ripa
 . ; M @("^"_q_"UL(0,""A"")")=@("^o"_oq_"UL(0,""A"")")
 . ; M @("^"_q_"UL(0,""T"")")=@("^o"_oq_"UL(0,""T"")")
 . ;
 . ; F j="UL" S i=0 f  S i=$o(@("^o"_oq_j_"(i)")) q:i=""  m @("^"_q_j_"(i)")=@("^o"_oq_j_"(i)")
 . ; s kcpv=$P($G(@("^"_Q_"BA(20,""K"")")),D)
 . ; f ge="U1" d
 .. ; s us=""
 .. ; F  s us=$O(@("^o"_oq_ge_"(us)")) q:us=""  D
 ... ; S ur=""
 ... ; F  s ur=$O(@("^o"_oq_ge_"(us,ur)")) q:ur=""  D
 .... ; I '$L($P(^(ur),D,2)) K @("^o"_oq_ge_"(us,ur)")
 . ; f ge="UL" d
 .. ; W !,ge
 .. ; m @("^"_q_ge)=@("^o"_oq_ge)
 .. ; s us="" f  s us=$o(@("^o"_oq_ge_"(0,us)")) q:us=""  d
 ... ; S DET=$S(ge="TO":51,ge="TOL":52,1:1) 
 ... ; S INT=$S(ge="TO":51,ge="TOL":51,1:1) 
 ... ; I ge="OD",us="D"!(us="P") s DET=""
 ... ; I ge="UL",us="RT" s DET=11,INT=11
 ... ; I ge="UL",us="MH" s INT=""
 ... ; I ge="OD",us="N" S INT=2
 ... ; I ge="OD","\D\BO\P\"[(D_us_D) s INT=""
 ... ; I ge="TO",us="M" S DET="",INT=""
 ... ; i ge'="PV",$d(@("^o"_oq_ge_"(0,us,""ULNT"")")) s @("^"_q_ge_"(0,us,""ULNT"")")=@("^o"_oq_ge_"(0,us,""ULNT"")") S:$E($O(^(800)))'=8&'$P(^("ULNT"),D,63) $P(^("ULNT"),D,63)=DET S:$E($O(^(900)))'=9&'$P(^("ULNT"),D,66) $P(^("ULNT"),D,66)=INT f i=99,103,101,92 S $P(^("ULNT"),D,i)=1
 ... ; i ge'="PV",$d(@("^o"_oq_ge_"(0,us,""UVD"")")) s @("^"_q_ge_"(0,us,""UVD"")")=@("^o"_oq_ge_"(0,us,""UVD"")")
 ... ; S DET=1,INT=1
 ... ; I ge="UL",us="RT" S DET=11,INT=11
 ... ; I ge="UL",us="MH" S INT=""
 ... ; I ge="UL",us="B" s DET="",INT=""
 ... ; I ge="OD"!($e(ge,1,2)="TO") S DET="",INT=""
 ... ; i $d(@("^o"_oq_ge_"(0,us,""LNT"")")) s @("^"_q_ge_"(0,us,""LNT"")")=@("^o"_oq_ge_"(0,us,""LNT"")") S:$E($O(^(1600)),1,2)'=16&'$P(^("LNT"),D,63) $P(^("LNT"),D,63)=DET S:$E($O(^(1700)),1,2)'=17&'$P(^("LNT"),D,66) $P(^("LNT"),D,66)=INT f i=99,103,92 S $P(^("LNT"),D,i)=1
 ... ; I ge'="PV",$D(@("^o"_oq_ge_"(0,us,""UDUO"")")) S $P(@("^"_q_ge_"(0,us,""UDUO"")"),D,6,9)=$P(@("^o"_oq_ge_"(0,us,""UDUO"")"),D,6,9)
 ... ; I ge'="PV",$L($P($G(@("^o"_oq_ge_"(0,us,""UDET"")")),D,3)) S $P(@("^"_q_ge_"(0,us,""UDET"")"),D,3)=$P(@("^o"_oq_ge_"(0,us,""UDET"")"),D,3)
 ... ; I $D(@("^o"_oq_ge_"(0,us,""UR"")")) S $P(@("^"_q_ge_"(0,us,""UR"")"),D)=$P(@("^o"_oq_ge_"(0,us,""UR"")"),D)
 ... ; I ge'="PV" S @("^"_q_ge_"(0,us,""UTO"")")=$G(@("^o"_q_ge_"(0,us,""UTO"")")),^(1100)=4
 .. ; W " -> invullen munt en q-waarde"
 .. ; s i=0 f  s i=$o(@("^"_q_ge_"(i)")) q:i=""  d
 ... ; s us="" f  s us=$o(@("^"_q_ge_"(i,us)")) q:us=""  d
 .... ; s j=0 f  s j=$o(@("^"_q_ge_"(i,us,j)")) q:j=""  D
 ..... ; i ge'="PV",'$l($p(^(j,1),D,18)) s MNT=$$SG^cAFA1($S($e(ge,1,2)="TO":"LE",1:"KL"),i,111),$p(@("^"_q_ge_"(i,us,j,1)"),D,18)=MNT
 ..... ; I ge="PV" S $P(@("^"_q_ge_"(i,us,j,1)"),D,7)="BEF" I '$L($P(^(1),D)) S $P(^(1),D)=kcpv
 ..... ; S $P(^(1),D,59)=$P(^(1),D,23),$P(^(1),D,23)="" ; commissieloon
 ..... ; s uz=100 f  s uz=$o(@("^"_q_ge_"(i,us,j,uz)")) q:uz=""  d
 ...... ; i $p(^(uz),D,14)=oq s $p(^(uz),D,14)=q
 ...... ; I $P(^(uz),D,17)="." S $P(^(uz),D,17)="M",$P(^(uz),D,12)=""
 ...... ; opgelet : vanaf hier enkel maar voor Molecule !!
 ...... ; I ge'="TO"&(ge'="TOL") q
 ...... ; I us="M" q
 ...... ; s a=^(uz)
 ...... ; i $p(a,D,9),'$p(a,D,29) s $p(a,D,29)=$p(a,D,9)
 ...... ; i '$l($p(a,D,21)) s $p(a,D,21)=1
 ...... ; i '$l($p(a,D)) s $p(a,D)="600000 "
 ...... ; i '$l($p(a,D,11)) s $p(a,D,11)="600000 "
 ...... ; s ^(uz)=a
 . ; moet steeds uitgevoerd worden
 . ; s ge="^"_Q_"TOA" f  s ge=$zo(@ge) q:ge=""  i $p(@ge,D,2)=oq s $p(@ge,D,2)=Q
666 f qii=1:1 s q=$p(nqq," ",qii) q:q=""  d   ; q = nieuwe Q-waarde
 . D Q(q)
 . ; W !,"FA : invullen munt en Q-waarde"
 . ; S us=""
 . ; f  s us=$o(@("^"_q_"FA(us)")) q:us=""  d
 .. ; s fnr=""
 .. ; f  s fnr=$o(@("^"_q_"FA(us,fnr)")) q:fnr=""  d
 ... ; I '$D(^(fnr,0,0)) m @("^s"_q_"FA(us,fnr)")=@("^"_q_"FA(us,fnr)") K @("^"_q_"FA(us,fnr)") q
 ... ; S MNT=$$SG^cAFA1("KL",$p(^(0),D),111)
 ... ; I MNT="BF" S MNT="BEF"
 ... ; I '$l($P(@("^"_q_"FA(us,fnr,0,0)"),D,5))  S $p(^(0),D,5)=MNT
 ... ; S ur="U"
 ... ; F  S ur=$o(@("^"_q_"FA(us,fnr,ur)")) q:ur=""   D
 .... ; i '$l($p(^(ur,1),D,18)) s $p(^(1),D,18)=MNT
 .... ; S $P(^(1),D,59)=$P(^(1),D,23),$P(^(1),D,23)="" ; commissieloon
 .... ; s uz=100 f  s uz=$o(@("^"_q_"FA(us,fnr,ur,uz)")) q:uz=""  d
 ..... ; i $p(^(uz),D,14)=oq s $p(^(uz),D,14)=q
 ..... ; I $P(^(uz),D,17)="." S $P(^(uz),D,17)="M",$P(^(uz),D,12)=""
 . ; automatische teksten
 . ; W !!,"Automatische teksten",!
 . ; s i=0
 . ; f  s i=$o(@("^"_q_"UT(i)")) q:i=""  s j=0 f  s j=$o(@("^"_q_"UT(i,j)")) q:j=""  d
 .. ; I '$L($P(^(j),D,12)) s $p(^(j),D,22)="T" I $L($P(^(j),D))>40 S $P(^(j),D,22)="L"
 .. ; i $P(^(j),D,12)=1 s $p(^(j),D,22)="M"
 .. ; i $P(^(j),D,12)="." s $p(^(j),D,22)="P"
 .. ; I $L($P(^(j),D,12)) s $P(^(j),D,12)=""
 . ; instellen afprinten 'Informatief in EURO' op bon/factuur
 . ; f ugl="OD","UL" s us="" f  s us=$o(@("^"_q_ugl_"(0,us)")) q:us=""  d
 .. ; f i=1100,1800,1900 i $d(@("^"_q_ugl_"(0,us,i)")),^(i)'=3 s ^(i)=4
 .. ; i $d(^("LNT")) S $P(^("LNT"),D,99)=1
 .. ; i $d(^("ULNT")) S $P(^("ULNT"),D,99)=1
 ;
61 ; conversie gebruikers (enkel indien gebruikers in Q_UI (geen SU/ZZ)
 ; d
 . ; n (Q,U,D)
 . ; S (Q,q)="CF"
 . ; D ^V6usr
 . ; F i=1000:1:1001 m ^oDATA(0,"USR",i)=^DATA(0,"USR",i) k ^DATA(0,"USR",i)
 . ; D NA^V65  ; wachtwoord converteren
 . ; F i=1000:1:1001 m ^DATA(0,"USR",i)=^oDATA(0,"USR",i) k ^oDATA(0,"USR",i)
 ;
62 f qii=1:1 s q=$p(nqq," ",qii) q:q=""  d   ; q = nieuwe Q-waarde
 . D Q(q)
 . ; D ^RIPPR  ; conversie producten      
 . ; D ^V6UTI  ; conversie Utili-data     
 ;
 ;
7 f qii=1:1 s q=$p(nqq," ",qii) q:q=""  d   ; q = nieuwe Q-waarde
 . D Q(q)
 . W !!,"Verwijderen oude ^oq-bestanden"
 . S OQ="o"_oq,GE="^"_OQ
 . ; F  S GE=$O(@("^"_GE)) q:$E(GE,1,$l(oq)+1)'=("o"_oq)  D
 . F  S GE=$$NEXT^COPY(GE) Q:GE=""  D
 .. I $e(GE,$L(OQ)+2,$L(OQ)+3)="BA"!($e(GE,$L(OQ)+2,$L(OQ)+3)="UL")!($e(GE,$L(OQ)+2,$L(OQ)+3)="OD") Q
 .. W !,GE K @GE
 . ; opkuis slechte statistieken
 . ; W !!,"Opkuis slechte statistieken"
 . ; F ge="KL","LE","VT" d
 .. ; W !,ge
 .. ; s kc=0 f  s kc=$o(@("^"_q_"ST"_ge_"(kc)")) q:kc=""  s pr="0" f  s pr=$o(@("^"_q_"ST"_ge_"(kc,pr)")) q:pr=""  i '$d(@("^"_q_"ST"_ge_"(kc,pr,0)")) m @("^s"_q_"ST"_"(kc,pr)")=@("^"_q_"ST"_ge_"(kc,pr)") k @("^"_q_"ST"_ge_"(kc,pr)") w !,kc,"  ",pr
 . S Q=q
 . ;
 . ; opbouw indexen
 . W @F11,@F1,"Opbouw indexen"
 . D S1^cAN002(0,"PRI",2)
 . D S1^cAN002(0,"KL",3)
 . D S1^cAN002(0,"LE",4)
 . D S1^cAN002(0,"AR",5)
 . D S1^cAN002(0,"VT",6)
 . D S1^cAN002(0,"UT",7)
 . D S1^cAN002(0,"PR",8)
 . D S1^cAN002(0,"PR_LE",9)
 . D S1^cAN002(0,"NP",10)
 . D S1^cAN002(0,"USR",11)
 . D S1^cAN002(0,"LIS",12)
 . D S1^cAN002(0,"SEL",13)
 . D S1^cAN002(0,"ETI",14)
 . D S1^cAN002(0,"PRO",15)
 . D S1^cAN002(0,"PRO_PRI",16)
 . D S1^cAN002(0,"SYS",17)
 . D S1^cAN002(0,"SYS.QQM",18)
 . D S1^cAN002(0,"USR_PRI",19)
 . D S1^cAN002(0,"USR_PRO",20)
 . D S1^cAN002(0,"USR_SYS.QQM",21)
 . D S1^cAN002(0,"PR.GR",22)
 . D S1^cAN002(0,"PR.HG",23)
 . D S1^cAN002(0,"PR.MK",24)
 . D S1^cAN002(0,"PR.SG",1)
 . D S1^cAN002(0,"PR_LE.IND",2)
 . D S1^cAN002(0,"PWT",3)
 . ; D DATA^cPS900("PR"),DATA^cPS902("PR")
 ;
9 ; conversie L-lijnen
 ; W !!,"Conversie L-lijnen",!
 ; S qq=nqq D 3^cI39
 ;
91 ; W !!,"Kopieren LAKP naar HAKP",!
 f qii=1:1 s q=$p(nqq," ",qii) q:q=""  d   ; q = nieuwe Q-waarde
 . D Q(q)
 . ; s j=0
 . ; d DMS^cAN000("UQC","USC","PR") q:UQC=""!(USC="")
 . ; s SW3=1,UREF=^DMC(UQC,USC,"DATA","REF"),UI1=0
 . ; s UQA=$p(^DMS(Q,"PR",0),D,3),USA=$p(^(0),D,4)
 . ; s:UQA="" UQA=0 s:USA="" USA="PR"
 . ; f  s UI1=$o(@UREF) q:UI1=""  d
 .. ; k B d R^cAN000
 .. ; d W^cAN220(USA,UQA,UI1,231,$p(B(1),D,19))
 .. ; s j=j+1 w $e("/-\|",j),*8 i j=4 s j=0
 ;
92 ; D ^cI33    ; hulp(boot,$j+100...
 W !!!,"Conversie Landcodes : ",!
 S qq=nqq D 3^cI39L   ; landcodes
93 W !!!,"Conversie muntcodes : ",!
 S qq=nqq D 29^cI39M   ; muntcodes
 W !!!,"Invoering van de muntcode EUR",!
 s qq=nqq D 3^cI39M2
 W !!!,"Instellen periode P2 in ivm euro",!
 s qq=nqq D 3^cI39E
 W !!!,"Conversie boekingsreeksen van V5 naar V6",!
 D 3^V6FIA
 ;
930 f qii=1:1 s q=$p(nqq," ",qii) q:q=""  d   ; q = nieuwe Q-waarde
 . D Q(q)
 . W !!,"LE : BTW-aanrekenen op ja"
 . f ge="LE" s kl=0 f  s kl=$o(@("^"_Q_ge_"(kl)")) q:kl=""  d
 .. s k=^(kl,0)
 .. ; BTW-aanrekenen op ja indien aankoopfact.
 .. i ge="LE",$p(k,D,8)=1019 D W^cAN220(ge,0,kl,115,1)
 . ;
9301 . ; rapportering (BEF en 0 decimalen)
 . ; S $p(@("^"_Q_"PR(0,19)"),D,41)=3 
 . ; W !!,"Opkuis gelinkte bestanden van verwijderde producten",!
 . ; D OPK^cANP0001(Q,"PR")
 . ; W !!,"Opbouw nieuwe producthistorieken",!
 . ; i $O(@("^"_Q_"PR(0)")) S $P(@("^"_Q_"PR(0,19)"),D,50)="" D ^cI59(Q,"PR")
 . ;
9302 . S Q=q
 . ; W !,"FA : invullen ISO-munt op bon-niveau",!
 . ; S US=""
 . ; f  s US=$o(@("^"_Q_"FA(US)")) q:US=""  d
 .. ; s FNR=""
 .. ; f  s FNR=$o(@("^"_Q_"FA(US,FNR)")) q:FNR=""  d
 ... ; s FDT=$p(^(FNR,0,0),D,6),MNT=$P(^(0),D,5)
 ... ; opbouw Q_"FDPD"
 ... ; D S1^cMF993
 ... ; muntcode invullen op bonniveau
 ... ; S ur="U"
 ... ; F  S ur=$o(@("^"_Q_"FA(US,FNR,ur)")) q:ur=""   s $p(^(ur,1),D,18)=MNT
 . ; conversie intrastat
9303 . ; s XQ=$TR(nqq," ",D) D 13^cTI98
 . ;
 . ; I '$L($G(@("^"_q_"BA(20,""KV"")"))) S @("^"_q_"BA(20,""KV"")")=$P(@("^"_q_"BA(10,0)"),D)_"\Koersverschillen\\Differance de change"
 . D ^cA105 S ^ku("einde",q,oq)=TD
 . W !!!,"Einde van ",oq," -> ",q
 . W !,?10,^ku("begin",q,oq)," ->  ",^ku("einde",q,oq)
 ;
9304 f qii=1:1 s q=$p(nqq," ",qii) q:q=""  d   ; q = nieuwe Q-waarde
 . D Q(q)
 . ; instellen factnrs en journalen
 . s Q=q S R="^cA335" D B^cA612,^cA335,E^cA612
 ;
9305 W !!,"Slechte muntcodes ?",!
 f qii=1:1 s q=$p(nqq," ",qii) q:q=""  d   ; q = nieuwe Q-waarde
 . D Q(q)
 . I '$L($O(^HULP($S($ZV'["MSM":"cI39M",1:"%I39M"),Q,""))) q
 . s i=""  f  s i=$o(^HULP($S($ZV'["MSM":"cI39M",1:"%I39M"),Q,i)) q:i=""  w !,i," ",$g(^(i,"BA"))
 ;
 ;
 S Q="EA",QN=$G(@("^"_Q_"BA(99,1)"),QN)
 ;
 ;
YZ W !!!!,"Einde conversie" Q
 ;
Q(q) ; ophalen oude Q-waarde en bepalen Q-waarde
 ; S oq=$p(oqq," ",qii),Q=q
 S oq=NAME($ZU(5)),Q=q
 W !!,oq," -> ",q
 s QN=$G(@("^"_Q_"BA(99,1)"),$G(@("^o"_oq_"BA(99,1)"),QN))
 Q
 ;
S1(i,nokill) 
 M @("^"_q_i)=@("^o"_oq_i)
 i '$g(nokill) k @("^o"_oq_i)
 W !,i
 Q
 ;
S2(Q) n i,j
 s i=0
 f  s i=$o(@("^o"_Q_"BA(""MENU"",i)")) q:i=""  d
 . I "\18\41\52\70\"[(D_i_D) q
 . I i>100 q
 . s j=0
 . f  s j=$o(@("^o"_Q_"BA(""MENU"",i,j)")) q:j=""  d
 .. s pw=$p(^(j),D,7),pri=$p(^(j),D,10)
 .. I '$d(@("^"_Q_"BA(""MENU"",i,j)"))  W !,i,".",j," ",@("^o"_Q_"BA(""MENU"",i,j)") q
 .. i '$l(pri)&'$l(pw) q
 .. I $P(^(j),D,7)=pw&($p(^(j),D,10)=pri) q
 .. w !,i,".",j," ",@("^o"_Q_"BA(""MENU"",i,j)"),!,?($l(i)+$l(j)+2),@("^"_Q_"BA(""MENU"",i,j)")
 .. s $p(@("^"_Q_"BA(""MENU"",i,j)"),D,7)=pw,$p(^(j),D,10)=pri
S2Z Q
 ;
ZZ ; 06.03.02 - 11 u 35