#include BL.Derde.KlantSpecifiek
cwCW ; Routines speciaal Chris Willems
 Quit
 
Check
 Do Off
 Do Ord
 Do Bon("F")
 Do Bon("G")
 Do Bon("M")
 Do Bon("T")
 Do Fac
 Quit

Off
 Write !!,"Offerte"
 Set KLNr=0
 For  Set KLNr=$O(^KOFKL(KLNr)) Quit:KLNr=""  Do
 . Set OFFNr=""
 . For  Set OFFNr=$O(^KOFKL(KLNr,"F",OFFNr)) Quit:OFFNr=""  Do
 . . Set Datum=$P(^KOFKL(KLNr,"F",OFFNr,1),D,2),OFLNr=100
 . . For  Set OFLNr=$O(^KOFKL(KLNr,"F",OFFNr,OFLNr)) Quit:OFLNr'?3.4N  Do Print(KLNr,Datum,$ZR)
 Quit
 
Ord
 Write !!,"Order"
 Set KLNr=0
 For  Set KLNr=$O(^KOD(KLNr)) Quit:KLNr=""  Do
 . Set ORDNr=""
 . For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr=""  Do
 . . Set Datum=$P(^KOD(KLNr,"F",ORDNr,1),D,2),OLNr=100
 . . For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:'OLNr  Do Print(KLNr,Datum,$ZR)
 Quit
 
Bon(Node)
 Write !!,"Bon-",Node
 If Node="G" Write " (zie factuur)"
 Else  Do
 . Set KLNr=0
 . For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do
 . . Set BONNr=""
 . . For  Set BONNr=$O(^KUL(KLNr,Node,BONNr)) Quit:BONNr=""  Do
 . . . Set Datum=$P(^KUL(KLNr,Node,BONNr,1),D,2),BLNr=100
 . . . For  Set BLNr=$O(^KUL(KLNr,Node,BONNr,BLNr)) Quit:'BLNr  Do Print(KLNr,Datum,$ZR)
 Quit
 
Fac
 Write !!,"Factuur"
 Set FANr=""
 For  Set FANr=$O(^KFA("F",FANr)) Quit:FANr=""  Do
 . Set KLNr=$P(^KFA("F",FANr,0,0),D),Datum=$P(^KFA("F",FANr,0,0),D,6),BONNr="U"
 . For  Set BONNr=$O(^KFA("F",FANr,BONNr)) Quit:$E(BONNr)'="U"  Do
 . . Set BLNr=100
 . . For  Set BLNr=$O(^KFA("F",FANr,BONNr,BLNr)) Quit:'BLNr  Do Print(KLNr,Datum,$ZR)
 Quit
 
Print(KLNr,Datum,ZR)
 Set R=@ZR,PRNr=$P(R,D,2)
 Do:PRNr
 . Set Aantal=$P(R,D,3),Prijs=$P(R,D,6),Netto=$P(R,D,9),Bruto=+$P(R,D,16),GrOrde=$P(R,D,21)
 . Set Bedrag=+($J(Prijs/$S($E(GrOrde)="H":100,1:1)*Aantal,0,$L($P(Bruto,".",2))))
 . Quit:Bedrag=Bruto
 . Quit:(Bruto-Bedrag)=.01
 . Quit:(Bruto-Bedrag)=-.01
 . Write !,KLNr,?10,Datum,?20,$ZR,?53,Aantal,?63,Prijs,?83,Bruto,?98,GrOrde
 Quit
 
MailNewCust(KLNr)
 New FromUser,UserNaam,ExtVw,From,To,Status,Subject,Body,Data
 Set FromUser=$$DEVUSER^vhUSER(),ExtVw=$$EXTVW(KLNr)
 Set From=$P($$USERNAME^vhUSER(FromUser,"@"),";"),UserNaam=$P($$USERNAME^vhUSER(FromUser,1),";")
 Set To=$$REPLACE^vhRtn1($$USERNAME^vhUSER(ExtVw,"@"),";",""",""")
 w !,"From = ",From
 w !,"To   = ",To
 Quit

 ;
 ; Vertaald, zie USERNAME^vhUSER
EXTVW(KLNr,ExtVw,Vertaald) 
 New R,KlKey,RegioID
 If KLNr,$D(^KK1(KLNr)) Do
 . Set KlKey=^KK1(KLNr),R=^KKL(KlKey,0),RegioID=$P(R,D,20),ExtVw=$G(ExtVw,$P(R,D,26))
 . If 'ExtVw,$L(RegioID) D
 . . new ExterneVerantwoordelijke set ExterneVerantwoordelijke = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefRegio(RegioID).GeefExterneVerantwoordelijke()
 . . if $IsObject(ExterneVerantwoordelijke) set ExtVw = ExterneVerantwoordelijke.GeefVhUserID()
 If $L($G(ExtVw)),$L($G(Vertaald)) Set ExtVw=$$USERNAME^vhUSER(ExtVw,Vertaald)
 Quit $G(ExtVw)
 ;

 

KLANT(KLNr,PRNr,Begin,Einde,Piece,Simul) 
 ; Piece : 1 = Qty, 2 = #faktlijn, 3 = Omzet, 4 = Marge
 ; Simul : Leeg dan ALLEEN statistiek gegevens
 ;       : 1 Dan kijken naar NIET OPNEMEN IN ANAL nakijken
 ;       : 2 Dan kijken naar NIET OPNEMEN IN PRIJSLIJST nakijken
 ;Bij Simul moet Piece=1, dit is alleen Qty's
 New I,Cumul,Maand,Rec
 If $G(Simul),$P(^KSTKL(KLNr,PRNr,0),D,6+Simul) Quit ""
 If $G(Simul),$P(^KSTKL(KLNr,PRNr,0),D,9) Quit $P(^KSTKL(KLNr,PRNr,0),D,9)
 Set PRNr=$G(PRNr),Begin=$G(Begin),Einde=$G(Einde),Piece=$G(Piece)
 Set:'PRNr PRNr=0 Set:Begin="" Begin=0 Set:Einde="" Einde=DJ_"."_DM_" " Set:'Piece Piece="1,99"
 If Begin'=0,$E(Begin,$L(Begin))'=" " Set Begin=Begin_" "
 Set:$E(Einde,$L(Einde))'=" " Einde=Einde_" "
 Set Maand=0
 Set:Begin'=0 Maand=$O(^KSTKL(KLNr,PRNr,Begin),-1)
 Set Cumul=""
 w !,Begin,!,Einde,!
 For  Set Maand=$O(^KSTKL(KLNr,PRNr,Maand)) Quit:Maand=""!(Maand]Einde)  Do
 .Set Rec=^KSTKL(KLNr,PRNr,Maand)
 .For I=1:1:$L(Rec,D) Set $P(Cumul,D,I)=$P(Cumul,D,I)+$P(Rec,D,I)
 Xecute "Set Cumul=$P(Cumul,D,"_Piece_")"
 Quit Cumul
 ;

ModFunctie
 New R,UserId,OldFuntie,NewFunctie 
 Set UserId=0
 For  Set UserId=$O(^vhUSER("D",UserId)) Quit:UserId=""  Do
 . Set NewFunctie=$G(^vhUSER("D",UserId,"R"))
 . Set OldFunctie=$P(^DATA(0,"USR",UserId,0),D,15)
 . Quit:OldFunctie=NewFunctie
 . Write !!,UserId,?10,^vhUSER("D",UserId),!,OldFunctie,?20,NewFunctie
 . Do W^cAN220("USR",0,UserId,115,NewFunctie)
 . Read R
 Quit
 
SQL
	&sql(DECLARE Verlof CURSOR FOR
	SELECT Klant,Periode 
	into Klant,Periode
	from DOM_CRM_impl.KlantVerlofPeriode
	order by Klant,Periode_Van)
 	Set Dev=$$OPEN^vhDEV(,"Verlof.txt","W")
 	use Dev
	&sql(OPEN Verlof)
 	For  &sql(FETCH Verlof) Quit:SQLCODE  Do
 	. Write Klant,$C(9),$P(^KKL(^KK1(Klant),0),D,2),$C(9)
 	. Write $$EXTDATE^vhDTyp($LI(Periode,2),"DC"),$C(9),$$EXTDATE^vhDTyp($LI(Periode,2)),$C(9)
 	. Write $$EXTDATE^vhDTyp($LI(Periode,1),"DC"),$C(9),$$EXTDATE^vhDTyp($LI(Periode,1)),!
 	&sql(CLOSE Verlof)
	Close:Dev'=0 Dev
	q

 
 #include vhLib.Macro
 #define BarTenderPrintersInstalled 1

prlink
 Set File=$$OPEN^vhDEV(,"prlink.Txt","R")
 For  Use File Read R Set PRNr=$P(R,",",2) Quit:PRNr=749899  Do
 . Quit:R'["kindproduct bestaat niet"
 . Set IsCommAkt=$P(^KPR(PRNr,1),D,25)
 . Use 0
 . Write !,PRNr,?10,IsCommAkt
 . Set PRNr(PRNr)=""
 . Quit:IsCommAkt=1
 . Read R
 Close File
 Set PRNr=""
 For  Set PRNr=$O(PRNr(PRNr)) Quit:PRNr=""  Do RAADPL^PRLINK(PRNr,1),BLDIND^PRBS(PRNr)
 Set KPRNr=""
 For  Set KPRNr=$O(^PRBS("IP",KPRNr)) Quit:KPRNr=""  Do
 . If '$D(^KPR(KPRNr)) Kill ^PRBS("IP",KPRNr) Quit
 . Set MPRNr=""
 . For  Set MPRNr=$O(^PRBS("IP",KPRNr,MPRNr)) Quit:MPRNr=""  If '$D(^KPR(MPRNr)) Kill ^PRBS("IP",KPRNr,MPRNr)
 Quit

KF2AD G 1 ;MODULE WIJZIGEN ORDERLIJNEN PRODUKTEN - levering per dag (OPVRAGEN GEGEVENS) [ 11/27/2003  9:56 AM ]
 ;
1
 Do ##class(TECH.CodeGebruik.RoutineLogger).LogRoutine($P($Stack($Stack,"PLACE"),"+")_"^"_$zn)
 Goto VerwerkInput^Flow.Order.WijzigOrderlijnInput
 ;
DEFAULT(K,lbPRNrs,Text,WzgBeloofd,DefLeverdag) 
 Do ##class(TECH.CodeGebruik.RoutineLogger).LogRoutine($P($Stack($Stack,"PLACE"),"+")_"^"_$zn)
 Quit $$DEFAULT^Flow.Order.WijzigOrderlijnInput(.K,.lbPRNrs,.Text,.WzgBeloofd,.DefLeverdag)



Stat
 New
 For Global="AKANAL","KKAAP","KKAAR","KKAAM" Do
 . Write !,"Kill ^",Global
 . Kill @("^"_Global)
 . Write !,"Kill ^",$$LOCASE^vhRtn1(Global)
 . Kill @("^"_$$LOCASE^vhRtn1(Global))
 Write !
 For Global="AKANAL","KKAAP","KKAAR","KKAAM" Do
 . Write !,"^",Global,?10,$D(@("^"_Global))
 . Write !,"^",$$LOCASE^vhRtn1(Global),?10,$D(@("^"_$$LOCASE^vhRtn1(Global)))
 Do
 . New
 . Write !!,"Opbouwen ^AKANAL old"
 . Do ^KAKA8
 . Write !,"Done"
 Do
 . New
 . Write !!,"Opbouwen ^KKAAP old"
 . Do ^KKAA17
 . Write !,"Done"
 Do
 . New
 . Write !!,"Opbouwen ^KKAAR old en ^KKAAM old"
 . Do ^KKAA20
 . Write !,"Done"
 Write !
 For Global="AKANAL","KKAAP","KKAAR","KKAAM" Do
 . Write !,"^",Global,?10,$D(@("^"_Global))
 . Write !,"^",$$LOCASE^vhRtn1(Global),?10,$D(@("^"_$$LOCASE^vhRtn1(Global)))
 Write !
 For Global="AKANAL","KKAAP","KKAAR","KKAAM" Do
 . Write !,"Merge ^",Global," -> ^",$$LOCASE^vhRtn1(Global)
 . Merge @("^"_$$LOCASE^vhRtn1(Global))=@("^"_Global)
 Write !
 For Global="AKANAL","KKAAP","KKAAR","KKAAM" Do
 . Write !,"Kill ^",Global
 . Kill @("^"_Global)
 Write !
 For Global="AKANAL","KKAAP","KKAAR","KKAAM" Do
 . Write !,"^",Global,?10,$D(@("^"_Global))
 . Write !,"^",$$LOCASE^vhRtn1(Global),?10,$D(@("^"_$$LOCASE^vhRtn1(Global)))
 Do
 . New
 . Write !!,"Opbouwen ^AKANAL new"
 . Do ^Stat.Statistiek.OpbouwenArtikelKlantAnalyse
 . Write !,"Done"
 Do
 . New
 . Write !!,"Opbouwen ^KKAAP new"
 . Do VerwerkViaCaretaker^Stat.Statistiek.OpbouwenKlantArtikelAnalyse
 . Write !,"Done"
 Do
 . New
 . Write !!,"Opbouwen ^KKAAR new en ^KKAAM new"
 . Do ^Stat.Statistiek.OpbouwenRegioOmzetAnalyse
 . Write !,"Done"
 Write !
 For Global="AKANAL","KKAAP","KKAAR","KKAAM" Do
 . Write !,"^",Global,?10,$D(@("^"_Global))
 . Write !,"^",$$LOCASE^vhRtn1(Global),?10,$D(@("^"_$$LOCASE^vhRtn1(Global)))
 Quit
 
ConvertR21toR23
 New KlKey,KLNr,Count,Regio,NewRegio
 Set (KlKey,Count)=0,NewRegio=23
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set KLNr=$P(^KKL(KlKey,0),D),Postcode=$P(^KKL(KlKey,0),D,6),Regio=$P(^KKL(KlKey,0),D,20)
 . Quit:Regio'=21
 . Quit:$E(Postcode,1,2)'="NL"
 . Quit:$E(Postcode,4,5)<85
 . Quit:$E(Postcode,4,5)>90
 . Set PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
 . Set Klant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(PartijID)
 . Do Klant.ZetRegio(NewRegio)
 . DO Klant.Save()
 . Set Count=Count+1
 Set $P(^RES("KLANT","PI","REGIO","D",32),"`",15)=1064
 Quit

Test
 w $Stack,!,$estack
 q
 
NIGHT S Q="K" D ^cA604
 L +^KKAAR:5 E  Q
11 D S6^KKAA20 S DAT=$TR($$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(DAT),"DS"),D,"")
 S K=$N(@("^"_Q_"KAAR(DAT)")),K=-1
12 S K=$N(^(K)) I K'=-1,K<DAT K ^(K) G 12
13 S FBP=DJ-1 S:DM>6 FBP=DJ S FBP=FBP_".07",LBP=DJ_"."_DM
15 S Q0="^"_Q_"KL(KL)",Q1="^"_Q_"KL(KL,0)",Q2="^"_Q_"STKL(KC)",Q3="^"_Q_"STKL(KC,PR)",Q4="^"_Q_"STKL(KC,PR,BP)",Q5="^"_Q_"PR(PR,0)"
17 S KL=0,KLX="ZZZZZ",FBP=FBP_" ",LBP=LBP_" " D ^KKAA21,^KKAA20A
19 ;
 ;
YZ Q
 
 ; Aanpassen offertes bij openen en wijzigen (voorkeur fax of mail)
Modcw
 New zb,Koppel,Count
 Set K=$P(B(4),D,9) Set:K="" K="M"
 Set K="R"
 Set Count=0
 Set Count=Count+1,Koppel(Count)="B`Test wild 1"
 Set Count=Count+1,Koppel(Count)="R`Test Wild 2"
 Set Koppel=$$WILD^vhPOPUP("C;C","O1-","",.Koppel)
 Set:$G(zb)="CANC" K="-" Set:K="M" K=""
 Set Locals("K")=K
 Quit

 
 ; Event bij goedkeuring door de boekhouding van een lijn
ProductLijnGoedgekeurdDoorBoekhouding(OrderID,OrderLijnCode)
 New ProductLijnGoedgekeurdDoorBoekhoudingEventData,ProductLijnGoedgekeurdDoorBoekhoudingEvent
 Set ProductLijnGoedgekeurdDoorBoekhoudingEventData = ##class(DOM.VKP.event.ProductLijnGoedgekeurdDoorBoekhoudingEventData).%New(OrderID, OrderLijnCode)
 Set ProductLijnGoedgekeurdDoorBoekhoudingEvent = ##class(DOM.VKP.event.ProductLijnGoedgekeurdDoorBoekhoudingEvent).%New(ProductLijnGoedgekeurdDoorBoekhoudingEventData)
 Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductLijnGoedgekeurdDoorBoekhoudingEvent)
 Quit

 ; Aanpassen van de voorraad van een product
 ; Deze routine bouwt alles op in een cache en zal het geheel in een keer wegschrijven
WijzigStockBijUitgaandeBeweging

 ; PR  = Productnummer
 ; R0  = De inhoud van ^KPR(PR,0)
 ; R1  = Datum en aard van de beweging
 ; R2  = Aantal te verrekenen
 ; R3  = Niet gebruikt
 ; R4  = Boolean wijzig cumul verkoop
 ; R5  = Waarde
 ; R6  = Uitzonderlijke verkoop
 ; R7  = Boolean geen oudehistoriek (steeds opgezet)
 ; R8  = Referentie
 ; R9  = 
 ; R10 = 
 ; R11 = Datum laatste uitgaande beweging
 ; R12 = 

 ; RF  = Saldo geleverd
 ; RT  = Teller
 ; RX  = De te verwerken xecute
 
 F RA=1:1:12 S @("R"_RA)=$P(R,D,RA)
 S R7=1 ; De oude historieken mogen niet meer opgebouwd worden (CW 24.06.05)

 ; Aanpassen van het 14e veld (stock) in ^KPR(PRNr,0)
 S R2X=R2,RG=0,RW=$S($L(R9)!$L(R10):R9_$J(R10,5,1),1:""),RA="^"_Q_"PR(PR,"""_RW_"0"")",RT=0,R0=@RA,RC=RW_"L",RD="",RP=$S($L(RW):9,1:1),R12=-1
R10AA S R12=$F(R0,"""",R12+1) I R12 S R0=$E(R0,1,R12-1)_""""_$E(R0,R12,999) G R10AA
 S RX(RT)="S "_RA_"="""_$P(R0,D,1,13)_D_($P(R0,D,14)-R2)_D_$P(R0,D,15)_D_R11_D_$P(R0,D,17,99)_"""",RT=RT+1 G R10F:R7

 ; Opzetten van de oude historiek in ^KPR
 ; Dit onderdeel wordt niet meer gebruikt, onze historiek zit in ^PRHIST
 S RA=$E(R1,3,9)_R2_"#"_(R4*R5)_"#"_R8_"#"_D,R=1 I $D(^(RW_"H")) S R=^(RW_"H"),R(RT)=^(RW_"H"_$E("0000",1,4-$L(R))_R) G R10E:$L(R(RT)_RA)<230 S R=R+1
 S RX(RT)="S ^(RW_""H"")="""_R_"""",R(RT)="",RT=RT+1,R(RT)=""
R10E S RX(RT)="S ^(RW_""H"_$E("0000",1,4-$L(R))_R_""")="""_R(RT)_RA_"""",R(RT)="",RT=RT+1

 ; Opzetten van de leveringen per dag
 ; Dit onderdeel wordt niet gebruikt
R10F S RC=$N(^(RC)) G R10G:$E(RC,RP)="L" S RC=RW_"L"_$E(R1,3,8),RX(RT)="S ^("""_RC_""")="""_0_D_$P(R0,D,7)_D_(-R2)_D_$P(R0,D,19)_D_"""",RT=RT+1,RG=-$P(R0,D,19)*R2 G R10L
R10G S RE=$N(^(RC)),RF=$P(^(RC),D,3) G R10K:RF'>0 I R2>RF S R2=R2-RF,R=RF,RF=0 G R10I
R10H S RF=RF-R2,R=R2,R2=0
R10I S RX(RT)="S ^("""_RC_""")="""_$P(^(RC),D,1,2)_D_RF_D_$P(^(RC),D,4,9)_"""",RT=RT+1
 S:'RF&$L(RD) RX(RT)="K ^("""_RD_""")",RT=RT+1 S RG=RG-($P(^(RC),D,4)*R) G R10L:'R2,R10F:$E(RE,RP)="L",R10H
R10K G R10H:$E(RE,RP)'="L" S RD=RC G R10F

 ; Opzetten van de statistieknodes per maand
 ; Dit onderdeel wordt niet gebruikt
R10L S RA=RW_"S"_$E(R1,1,6),RB="\\\\\\\\\",RX(RT)="S ^("""_RA_""")=""" I $D(^(RA)) S RB=^(RA)
 I R6 S RX(RT)=RX(RT)_$P(RB,D,1,6)_D_(R2X+$P(RB,D,7))_D_(R4*R5+$P(RB,D,8))_D_(R5+RG*R4+$P(RB,D,9))_D_$P(RB,D,10,99)_""""
 E  S RX(RT)=RX(RT)_(R2X+$P(RB,D,1))_D_(R4*R5+$P(RB,D,2))_D_(R5+RG*R4+$P(RB,D,3))_D_$P(RB,D,4,99)_""""
 
 ; Wegschrijven in ^KPR
 S @%Q1=0 F R=0:1:RT X RX(R)
 
 ; Aanpassen Fysische stock in ^PRSTOCK
 Lock +^PRSTOCK("D",PR)
 S R=$G(^PRSTOCK("D",PR)),$P(R,D)=$P(R,D)-R2X,^PRSTOCK("D",PR)=R
 Lock -^PRSTOCK("D",PR)
 Do UitVerkoop^PRODUKT5(PR)
 K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,RA,RB,RC,RD,RE,RF,RG,RP,RT,RW,R2X,RX Q






ChkOrdLeverdag
 New KLNr,ORDNr,OLNr,Rec,PRNr,Leverdag
 Set KLNr=0
 For  Set KLNr=$O(^KOD(KLNr)) Quit:KLNr=""  Do
 . Set ORDNr=""
 . For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr=""  Do
 . . Set OLNr=100
 . . For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
 . . . Set Rec=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(Rec,D,2),Leverdag=$P(Rec,D,25)
 . . . Quit:'PRNr  Quit:Leverdag?5N  Quit:Leverdag=""
 . . . ZWrite @$ZR
 Quit

ComOvd
 New KlKey,Rec,KLNr,KlNaam,CommAct,Relaties
 Write @F11,@F1,!!,"Actieve klanten en commercieel overgedragen",!
 Set KlKey=0
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set Rec=^KKL(KlKey,0),KLNr=$P(Rec,D),KlNaam=$P(Rec,D,2)
 . Set Rec=^KKL(KlKey,2),CommAct=$P(Rec,D,10)
 . Quit:CommAct
 . Set Relaties=$$ListToPieces^vhLib($$GetDirectRelaties^KLANT(KLNr))
 . If $L(Relaties),Relaties["Comm ovd" Write !,KLNr,?10,KlNaam
 Read Rec
 Quit

 ; Event bij verwijderen van een orderlijn
ProductOrderLijnAnnulatie(KlantNr,OrderID,OrderLijnID)
 New Rec,ProductID,Aantal,OrderLijnCode,ProductOrderLijnEventData,ProductOrderLijnAnnulatieEvent
 Set Rec=^KOD(KlantNr,"F",OrderID,OrderLijnID),ProductID=$P(Rec,D,2),Aantal=$P(Rec,D,3),OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantNr,OrderID,OrderLijnID)
 If ProductID{
	 #dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNr)
	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
	Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductOrderLijnAnnulatieEvent)
 }
 Quit

  
SelPrinter() ;selectie van de labelprinter
 ;Quit "\\BARTENDER\INPAK_GLS"
 New bl
 Set bl=##class(BL.Flow.Cons.TransportLabel).Instantiate()
 Do bl.qLabelPrinters(.PrinterLijst)
 w !! zw PrinterLijst w !! r r
 If '$D(PrinterLijst) Do
 . Set Printer=""
 Else  If PrinterLijst=1 Do
 . Set Printer=$Piece(PrinterLijst(1),"`") ;als er maar één printer is dan wordt deze printer automatisch geselecteerd
 Else  Do
 . Set Printer=$$WILD^vhPOPUP("C;C","KO1-","Selecteer een printer",.PrinterLijst)
 If Printer="" Do
 . Set from=$$$Server
 . ;Set to=$lb("pve")
 . Set to=$lb("ICT")
 . set subject=$$Format^vhLib("dd/mm hh:nn",$H)_"   geen printer geselecteerd=>palletlabels niet afgedrukt"
 . set body="programma ^TRANSPL"_$C(13)_"Er zijn geen transportlabels afgedrukt want er is geen printer geselecteerd!"
 . set sc=$$SendMiniMail^vhLib(from,to,subject,body)
 Quit Printer
 
Routine
 New I,R,Dev,Routine
 Set Dev=$$OPEN^vhDEV(,"Routine.TXT","W")
 Do:0'[Dev
 . Use Dev
 . Set Routine="",RCount=0
 . For  Set Routine=$O(^rMAC(Routine)) Quit:Routine=""  Do
 . . Quit:$L(Routine)>8
 . . Quit:$A($E(Routine))>96
 . . For I=1:1 Set R=$G(^rMAC(Routine,0,I)) Quit:R=""  If $L($TR(R," ","")),$$LOCASE^vhRtn1(R)'["#include",$$LOCASE^vhRtn1(R)'["#define" Quit
 . . Set:$E(R,1,$L(Routine))=Routine R=$E(R,$L(Routine)+1,999)
 . . Set:$E(R,1,10)=" G BEGIN ;" R=$E(R,11,999)
 . . Set:$E(R,1,12)=" G VERWERK ;" R=$E(R,13,999)
 . . Set:$E(R,1,12)=" G BREACK1 ;" R=$E(R,11,999)
 . . Set:$E(R,1,5)="()  ;" R=$E(R,6,999)
 . . Set:$E(R,1,5)=" Q  ;" R=$E(R,6,999)
 . . Set:$E(R,1,8)?1" G ".E1" ;" R=$E(R,9,999)
 . . Set:$E(R,1,7)?1" G ".E1" ;" R=$E(R,8,999)
 . . Set:$E(R,1,6)?1" G ".E1" ;" R=$E(R,7,999)
 . . For  Quit:R=""  Set:$E(R)=" " $E(R)="" Set:$E(R)=";" $E(R)="" If $E(R)'=" ",$E(R)'=";" Quit
 . . Write Routine,$C(9),R,!
 . . Set RCount=RCount+1
 . Close Dev
 Write !,RCount
 
ConsumentCommissie(ORDNr)
 New %SC,KLNr,IsConsument,Aanbrenger,CommissiePercentage
 Set KLNr=$P(^KO1($G(ORDNr),"F"),D)
 If KLNr {
	 Set IsConsument=($P(^KKL(^KK1(KLNr),1),D,11)="Consument")
	 Quit:'IsConsument
	 Set Aanbrenger=$P(^KOD(KLNr,"F",ORDNr,1),D,55)
	 Set CommissiePercentage=$P(^KOD(KLNr,"F",ORDNr,1),D,56)
	 If 'Aanbrenger Do NieuwConsumentCommissie(ORDNr)
	 Else  Do WijzigConsumentCommissie(ORDNr)
	 If 
 }
 Quit
 
NieuwConsumentCommissie(ORDNr)
 New %SC,KLNr,IsConsument,Aanbrenger,CommissiePercentage
 Set KLNr=$P(^KO1($G(ORDNr),"F"),D)
 If KLNr {
	 Set IsConsument=($P(^KKL(^KK1(KLNr),1),D,11)="Consument")
	 Quit:'IsConsument
	 Set Aanbrenger=$P(^KOD(KLNr,"F",ORDNr,1),D,55)
	 Set CommissiePercentage=$P(^KOD(KLNr,"F",ORDNr,1),D,56)
	 Do NIEUW^vhScherm("CONSCOMM")
	 Quit:'%SC
	 Set $P(^KOD(KLNr,"F",ORDNr,1),D,55)=Aanbrenger
	 Set $P(^KOD(KLNr,"F",ORDNr,1),D,56)=CommissiePercentage	 
 }
 Quit
 
WijzigConsumentCommissie(ORDNr)
 New %SC,KLNr,IsConsument,Aanbrenger,CommissiePercentage
 Set KLNr=$P(^KO1($G(ORDNr),"F"),D)
 If KLNr {
	 Set IsConsument=($P(^KKL(^KK1(KLNr),1),D,11)="Consument")
	 Quit:'IsConsument
	 Set Aanbrenger=$P(^KOD(KLNr,"F",ORDNr,1),D,55)
	 Set CommissiePercentage=$P(^KOD(KLNr,"F",ORDNr,1),D,56)
	 Do EDIT^vhScherm("CONSCOMM")
	 Quit:'%SC
	 Set $P(^KOD(KLNr,"F",ORDNr,1),D,55)=Aanbrenger
	 Set $P(^KOD(KLNr,"F",ORDNr,1),D,56)=CommissiePercentage	 
 }
 Quit
 
 Do NIEUW^vhScherm("CONSCOMM")
 
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)
	 w !,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)
	 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,Factuur
 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:'ConsComm.Leveringen.Find(BONNr)
	 Set Factuur=##class(DOM.VKP.impl.Consumenten.CommissieFactuur).%New()
	 w !,Factuur
	 Set Factuur.Datum=+$H
	 Set Factuur.Nr=FANr
	 Set Factuur.Bedrag=CommissieBedrag
	 Do ConsComm.Facturen.Insert(Factuur)
	 Do ConsComm.%Save()
 }
 Quit
 
 
	 
	 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)
	 
 
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