Index: DOM/VKP/impl/Consumenten/Commissie.cls.xml =================================================================== diff -u --- DOM/VKP/impl/Consumenten/Commissie.cls.xml (revision 0) +++ DOM/VKP/impl/Consumenten/Commissie.cls.xml (revision 4134) @@ -0,0 +1,97 @@ + + + +persistent +1 +%Persistent +0 + + +%Integer + + + +%Integer + + + +%Integer + + + +%Integer + + + +%Float + + + +%Float +1 + + + +%String +list + + + +DOM.VKP.impl.Consumenten.CommissieFactuur +list + + + +%Float + + + + +%Library.CacheStorage +^DOM.VKP.impl.Cons89C.CommissieD +CommissieDefaultData +^DOM.VKP.impl.Cons89C.CommissieD +^DOM.VKP.impl.Cons89C.CommissieI +^DOM.VKP.impl.Cons89C.CommissieS + + +%%CLASSNAME + + +Aanbrenger + + +CommissiePercentage + + +Consument + + +OrderNr + + +Saldo + + + +Facturen +subnode +"Facturen" + + +Leveringen +subnode +"Leveringen" + + + + Index: DOM/VKP/impl/Consumenten/CommissieFactuur.cls.xml =================================================================== diff -u --- DOM/VKP/impl/Consumenten/CommissieFactuur.cls.xml (revision 0) +++ DOM/VKP/impl/Consumenten/CommissieFactuur.cls.xml (revision 4134) @@ -0,0 +1,50 @@ + + + +serial +1 +%SerialObject +0 + + +%String + + + +%Date + + + +%Boolean + + + +%Float + + + +%Library.CacheSerialState +CommissieFactuurState +^DOM.VKP.imp89C.CommissieFac683S + +listnode +"DOM.VKP.impl.Consumenten.CommissieFactuur" + +Bedrag + + +Datum + + +Nummer + + +Ontvangen + + +Nr + + + + + Index: z/CW/USR/CW.mac.rou =================================================================== diff -u --- z/CW/USR/CW.mac.rou (revision 0) +++ z/CW/USR/CW.mac.rou (revision 4134) @@ -0,0 +1,352 @@ + ; Routines speciaal Chris Willems + Quit + +MaakConsumentCommissie(ORDNr,Aanbrenger,CommissiePercentage) + New %SC,KLNr,IsConsument,ConsCommId,ConsComm + Set KLNr=$P(^KO1($G(ORDNr),"F"),D) + If KLNr { + Set IsConsument=($P(^KKL(^KK1(KLNr),1),D,11)="Consument") + Quit:'IsConsument + Set ConsCommId=$P(^KOD(KLNr,"F",ORDNr,1),D,55) + Quit:ConsCommId + If '$G(Aanbrenger),'$G(CommissiePercentage) { + Set (Aanbrenger,CommissiePercentage)="" + Do NIEUW^vhScherm("CONSCOMM") + Quit:'%SC + } + Set ConsComm=##class(DOM.VKP.impl.Consumenten.Commissie).%New() + Set ConsComm.Consument=KLNr + Set ConsComm.Aanbrenger=Aanbrenger + Set ConsComm.OrderNr=ORDNr + Set ConsComm.CommissiePercentage=CommissiePercentage + If ConsComm.%Save() Set $P(^KOD(KLNr,"F",ORDNr,1),D,55)=ConsComm.%Id() + } + Quit + +VerwijderConsumentCommissie(ORDNr) + New KLNr,ConsCommId,ConsComm + Set KLNr=$P(^KO1($G(ORDNr),"F"),D) + If KLNr { + Set ConsCommId=$P(^KOD(KLNr,"F",ORDNr,1),D,55) + Quit:'ConsCommId + Set ConsComm=##class(DOM.VKP.impl.Consumenten.Commissie).%OpenId(ConsCommId) + Quit:'$IsObject(ConsComm) + Quit:ConsComm.OrderNr'=ORDNr + Quit:ConsComm.Consument'=KLNr + Set ConsCommId=##class(DOM.VKP.impl.Consumenten.Commissie).%DeleteId(ConsCommId) + Set $P(^KOD(KLNr,"F",ORDNr,1),D,55)="" + } + Quit + +ConsumentCommissieOpBon(ORDNr,BONNr) + New KLNr,ConsCommId,ConsComm + Set KLNr=$P(^KO1($G(ORDNr),"F"),D) + If KLNr { + Set ConsCommId=$P(^KOD(KLNr,"F",ORDNr,1),D,55) + Quit:'ConsCommId + Set ConsComm=##class(DOM.VKP.impl.Consumenten.Commissie).%OpenId(ConsCommId) + Quit:'$IsObject(ConsComm) + Quit:ConsComm.OrderNr'=ORDNr + Quit:ConsComm.Consument'=KLNr + Quit:ConsComm.Leveringen.Find(BONNr) + Do ConsComm.Leveringen.Insert(BONNr) + + set Factuur = ##class(DOM.VKP.impl.Consumenten.CommissieFactuur).%New() + set Factuur.Datum = +$H + set Factuur.Nr = "112" + set Factuur.Bedrag = "123.12" + do ConsComm.Facturen.Insert(Factuur) + + If ConsComm.%Save() Set $P(^KUL(KLNr,"F",BONNr,1),D,55)=ConsComm.%Id() + } + Quit + +VerwijderBonUitConsumentCommissie(BONNr) + New KLNr,ConsCommId,ConsComm + Set KLNr=$P(^KU1($G(BONNr),"F"),D) + If KLNr { + Set ConsCommId=$P(^KUL(KLNr,"F",BONNr,1),D,55) + Quit:'ConsCommId + Set ConsComm=##class(DOM.VKP.impl.Consumenten.Commissie).%OpenId(ConsCommId) + Quit:'$IsObject(ConsComm) + Quit:ConsComm.Consument'=KLNr + Do ##Class(TECH.ListUtils).RemoveItemFromList(BONNr,ConsComm.Leveringen) + If ConsComm.%Save() Set $P(^KUL(KLNr,"F",BONNr,1),D,55)="" + If 'ConsComm.Leveringen.Count() { ; Alle bonnen verwijderd, Commissie verwijderen indien order verwijderd + Set ORDNr=ConsComm.OrderNr + Set:'$D(^KOD(KLNr,"F",ORDNr)) ConsCommId=##class(DOM.VKP.impl.Consumenten.Commissie).%DeleteId(ConsCommId) + } + } + Quit + +ConsumentCommissieOpFactuur(BONNr,FANr,CommissieBedrag) + New KLNr,ConsCommId,ConsComm + Set KLNr=$P(^KU1($G(BONNr),"F"),D) + If KLNr { + Set ConsCommId=$P(^KUL(KLNr,"F",BONNr,1),D,55) + Quit:'ConsCommId + Set ConsComm=##class(DOM.VKP.impl.Consumenten.Commissie).%OpenId(ConsCommId) + Quit:'$IsObject(ConsComm) + Quit:ConsComm.Consument'=KLNr + Quit:'$LF(ConsComm.lbBonNrs,BONNr) + Set ConsComm.lbFactuurNrs=ConsComm.lbFactuurNrs_$LB($LB(FANr,+$H,CommissieBedrag)) + Do ConsComm.%Save() + } + Quit +od + Set Input="AL" + Do EXEC^vhMenu("FLOWORD",.Input) + w !,"Input=",Input + Quit + +o + k Omschr + Set Omschr(1)=##Class(Prod.ProductTekst).GetOmschrijvingViaPRNr(673194,,", ",1) + w !! zw Omschr w !!! + Do GETWRAP^vhBIGEDIT("Omschr",27,.Omschr,"G","~","") + Set Omschr=$P($G(Omschr(1)),"`",5) + w !,Omschr + For i=2,3 Do + . Set Omschr=$P($G(Omschr(i)),"`",5) + . Quit:Omschr="" + . w !,Omschr + q + + +Test1 + Set Q="K" Do ^cA604,INIT^vhTERMINA + Set QU(1)=$$USERID^vhUSER() + Do RAADPL^PRODUKT(3510,"V") + Quit + +Test2 + Set Q="K" Do ^cA604,INIT^vhTERMINA + Set QU(1)=$$USERID^vhUSER() + Do RAADPL^KLANT(15605,"V") + Quit + +RebuildKU1 + Set KLNr=0 + For Set KLNr=$O(^KUL(KLNr)) Quit:KLNr="" Do + . Set BONNr="" + . For Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr="" Set ^KU1(BONNr,"F")=KLNr_D + Quit + +ConvertR10temR18 + ;Write !,"ConvertR10temR18^cwCW activeren a.u.b.",! Quit + Read "Concersie doorvoeren?",!,"Go[] = Go",!,Go + Quit:Go'="Go" + New KlKey,KLNr,Count + Do ##class(vhDeploy.Deploy20110630x1344).ExecCode() + Set (KlKey,Count)=0 + For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . Set KLNr=$P(^KKL(KlKey,0),D) + . Do ConvertOneR10temR18(KLNr,.Count) + Write !!,"Aantal= ",Count + Set ^RES("KLANT","PI","REGIO","D",31)="28`Architecten wallonie`1`30`KLOPVJODM``1````````1052````1102" + Quit + +ConvertOneR10temR18(KLNr,Count) + New Rec,KlNaam,OldRegio,NewRegio,PostCode + Set Rec=^KKL(^KK1(KLNr),0) + Set OldRegio=$P(Rec,D,20) + If OldRegio>9,OldRegio<19 Do + . Set KlNaam=$P(Rec,D,2),PostCode=$P(Rec,D,6) + . Quit:PostCode'?4N + . Set NewRegio=$$ConvertR10temR18NewRegio(PostCode) + . Quit:OldRegio=NewRegio + . Quit:'NewRegio + . Do MODFIELD^KLANT(KLNr,120,NewRegio) + . Write !,$J(KLNr,5),?10,KlNaam,?40,OldRegio,?50,PostCode,?60,NewRegio + . Set Count=Count+1 + If OldRegio=5 Do + . Set KlNaam=$P(Rec,D,2),PostCode=$P(Rec,D,6) + . Set NewRegio=6 + . Do MODFIELD^KLANT(KLNr,120,NewRegio) + . Write !,$J(KLNr,5),?10,KlNaam,?40,OldRegio,?50,PostCode,?70,NewRegio + . Set Count=Count+1 + If OldRegio=31 Do + . Set KlNaam=$P(Rec,D,2),PostCode=$P(Rec,D,6) + . Set NewRegio=32 + . Do MODFIELD^KLANT(KLNr,120,NewRegio) + . Write !,$J(KLNr,5),?10,KlNaam,?40,OldRegio,?50,PostCode,?70,NewRegio + . Set Count=Count+1 + Quit + +ConvertR10temR18NewRegio(PostCode) + New NewRegio + If PostCode'?4N Set NewRegio="??" + + Else If $E(PostCode,1,3)=850 Set NewRegio=14 + Else If $E(PostCode,1,3)=851 Set NewRegio=14 + Else If $E(PostCode,1,3)=852 Set NewRegio=14 + Else If $E(PostCode,1,3)=853 Set NewRegio=14 + Else If $E(PostCode,1,3)=854 Set NewRegio=14 + Else If $E(PostCode,1,3)=856 Set NewRegio=14 + + Else If $E(PostCode,1,3)=855 Set NewRegio=18 + Else If $E(PostCode,1,3)=857 Set NewRegio=18 + Else If $E(PostCode,1,3)=858 Set NewRegio=18 + Else If $E(PostCode,1,3)=859 Set NewRegio=18 + + Else If $E(PostCode,1,2)=15 Set NewRegio=10 + Else If $E(PostCode,1,2)=16 Set NewRegio=10 + Else If $E(PostCode,1,2)=17 Set NewRegio=10 + Else If $E(PostCode,1,2)=18 Set NewRegio=10 + Else If $E(PostCode,1,2)=19 Set NewRegio=10 + Else If $E(PostCode,1,2)=28 Set NewRegio=10 + Else If $E(PostCode,1,2)=30 Set NewRegio=10 + Else If $E(PostCode,1,2)=31 Set NewRegio=10 + Else If $E(PostCode,1,2)=32 Set NewRegio=10 + Else If $E(PostCode,1,2)=33 Set NewRegio=10 + Else If $E(PostCode,1,2)=34 Set NewRegio=10 + + Else If $E(PostCode,1,2)=91 Set NewRegio=11 + Else If $E(PostCode,1,2)=92 Set NewRegio=11 + Else If $E(PostCode,1,2)=93 Set NewRegio=11 + Else If $E(PostCode,1,2)=94 Set NewRegio=11 + + Else If $E(PostCode,1,2)=20 Set NewRegio=12 + Else If $E(PostCode,1,2)=21 Set NewRegio=12 + Else If $E(PostCode,1,2)=22 Set NewRegio=12 + Else If $E(PostCode,1,2)=26 Set NewRegio=12 + Else If $E(PostCode,1,2)=29 Set NewRegio=12 + Else If $E(PostCode,1,2)=23 Set NewRegio=12 + Else If $E(PostCode,1,2)=24 Set NewRegio=12 + Else If $E(PostCode,1,2)=25 Set NewRegio=12 + + Else If $E(PostCode,1,2)=86 Set NewRegio=14 + Else If $E(PostCode,1,2)=89 Set NewRegio=14 + Else If $E(PostCode,1,2)=88 Set NewRegio=14 + + Else If $E(PostCode,1,2)=35 Set NewRegio=15 + Else If $E(PostCode,1,2)=36 Set NewRegio=15 + Else If $E(PostCode,1,2)=37 Set NewRegio=15 + Else If $E(PostCode,1,2)=38 Set NewRegio=15 + Else If $E(PostCode,1,2)=39 Set NewRegio=15 + + Else If $E(PostCode,1,2)=10 Set NewRegio=16 + Else If $E(PostCode,1,2)=14 Set NewRegio=16 + Else If $E(PostCode,1,2)=13 Set NewRegio=16 + Else If $E(PostCode,1,2)=11 Set NewRegio=16 + Else If $E(PostCode,1,2)=12 Set NewRegio=16 + + Else If $E(PostCode,1,2)=90 Set NewRegio=17 + Else If $E(PostCode,1,2)=95 Set NewRegio=17 + Else If $E(PostCode,1,2)=96 Set NewRegio=17 + Else If $E(PostCode,1,2)=97 Set NewRegio=17 + Else If $E(PostCode,1,2)=98 Set NewRegio=17 + Else If $E(PostCode,1,2)=99 Set NewRegio=17 + + Else If $E(PostCode,1,2)=83 Set NewRegio=18 + Else If $E(PostCode,1,2)=82 Set NewRegio=18 + Else If $E(PostCode,1,2)=80 Set NewRegio=18 + Else If $E(PostCode,1,2)=87 Set NewRegio=18 + Else If $E(PostCode,1,2)=84 Set NewRegio=18 + + Else If $E(PostCode,1,1)=4 Set NewRegio=16 + Else If $E(PostCode,1,1)=5 Set NewRegio=16 + Else If $E(PostCode,1,1)=6 Set NewRegio=16 + Else If $E(PostCode,1,1)=7 Set NewRegio=16 + + Else Set NewRegio="??" + Quit NewRegio + +ConvertKlantActiviteit + New R,KlKey + Set KlKey=0 + For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . Set R=^KKL(KlKey,0),KLNr=$P(R,D) + . Do ConvertOneKlantActiviteit(KLNr) + Quit + +ConvertOneKlantActiviteit(KLNr) + New R,KlKey,OldActiviteit,NewActiviteit + Set KlKey=^KK1(KLNr),R=^KKL(KlKey,0),KlNaam=$P(R,D,2) + Set R=^KKL(KlKey,1),OldActiviteit=$P(R,D,11) + Quit:OldActiviteit="" + Set NewActiviteit=$$NewActiviteit(OldActiviteit) + Quit:OldActiviteit=NewActiviteit + Write !,KLNr,?10,KlNaam,?40,OldActiviteit,?55,NewActiviteit + ;Do MODFIELD^KLANT(KLNr,211,NewActiviteit) + Quit + +NewActiviteit(OldActiviteit) + New NewActiviteit + If OldActiviteit="Int. algemeen" Set NewActiviteit="Interieurbouw" + Else If OldActiviteit="Int. projecten" Set NewActiviteit="Projecten" + Else If OldActiviteit="Int. winkelinrichting" Set NewActiviteit="Winkelinrichting" + Else If OldActiviteit="Int. kantoor" Set NewActiviteit="Bureau" + Else If OldActiviteit="Int. woon&slaap" Set NewActiviteit="Woon-en slaapkamer" + Else If OldActiviteit="Showroom" Set NewActiviteit="Meubelhandel" + Else Set NewActiviteit=OldActiviteit + Quit NewActiviteit + +ConvertR27 + New Dev,Rec,Count + Write !,"ConvertR27 activeren a.u.b.",! Quit + Kill ^cwKlantenToR27 + Set Dev=$$OPEN^vhDEV(,"KlantenToR27.txt","R") + Do:0'[Dev + . Set Count=0 + . For Use Dev Read Rec Quit:Rec="" Do + . . Set Count=Count+1,^cwKlantenToR27(Count)=Rec + . Close Dev + Do ConvertAllToR27 + Kill ^cwKlantenToR27 + Quit + +ConvertAllToR27 + New Count,Rec,KLNr,Naam,Regio + For Count=1:1 Set Rec=$G(^cwKlantenToR27(Count)) Quit:Rec="" Do + . Set KLNr=$P(Rec,$C(9)),Naam=$P(Rec,$C(9),2),Regio=$P(Rec,$C(9),7) + . Quit:'KLNr + . Do ConvertOneToR27(KLNr,Naam,Regio) + Write !,(Count-1)," klanten aangepast" + Quit + +ConvertOneToR27(KLNr,Naam,Regio) + New R,Rec,KlNaam,OldRegio,NewRegio + Set NewRegio=27 + If $D(^KK1(KLNr)) Set Rec=^KKL(^KK1(KLNr),0) + Else Set Rec="" + Set KlNaam=$P(Rec,D,2),OldRegio=$P(Rec,D,20) + Write !,KLNr,?10,KlNaam,?40,OldRegio,?50,Regio,?60,NewRegio + Do:$L(KlNaam) MODFIELD^KLANT(KLNr,120,NewRegio) + Read:KlNaam'=Naam R + Read:OldRegio'=Regio R + Quit + +ConvertR23 + New Dev,Rec,KLNr,Count + Write !,"ConvertR23 activeren a.u.b.",! Quit + Kill ^cwKlantenR23ToR21 + Set Dev=$$OPEN^vhDEV(,"KlantenFromR23ToR21.txt","R") + Do:0'[Dev + . Set Count=0 + . For Use Dev Read Rec Quit:Rec="" Do + . . Set Count=Count+1,^cwKlantenR23ToR21(Count)=Rec + . Close Dev + Do ConvertAllToR23 + Kill ^cwKlantenR23ToR21 + Quit + +ConvertAllToR23 + New Count,Rec,KLNr,Naam + For Count=1:1 Set Rec=$G(^cwKlantenR23ToR21(Count)) Quit:Rec="" Do + . Set KLNr=$P(Rec,$C(9)),Naam=$P(Rec,$C(9),2) + . Quit:'KLNr + . Do ConvertOneToR23(KLNr,Naam) + Write !,(Count-1)," klanten aangepast" + Quit + +ConvertOneToR23(KLNr,Naam) + New R,Rec,KlNaam,OldRegio,NewRegio + Set NewRegio=21 + If $D(^KK1(KLNr)) Set Rec=^KKL(^KK1(KLNr),0) + Else Set Rec="" + Set KlNaam=$P(Rec,D,2),OldRegio=$P(Rec,D,20) + Write !,KLNr,?10,KlNaam,?40,OldRegio,?50,NewRegio + Do:$L(KlNaam) MODFIELD^KLANT(KLNr,120,NewRegio) + Read:KlNaam'=Naam R + Quit \ No newline at end of file