KOKKI3 G 1 ;OVERDRACHT COMMERCIELE KLANTENINFORMATIE ;KOKKI1;Quit naar KOKKI1 [ 05/22/2001  3:11 PM ]
 ;
T11 ;VOLGENDE BESTANDEN WORDEN AANGEPAST   [] = ok
T12 ;O[] = overdracht   -[] = hernemen
T13 ;O[] = overdracht definitief   -[] = hernemen
T14 ;AANPASSEN 
T21 ;KLANTENBESTAND\20\5\KL
T22 ;KLANT/ART ANALYSE\21\5\STKL
T23 ;ART/KLANT ANALYSE\22\5\STPR
T24 ;UITZONDERINGEN\20\27\KLPUTZ
T25 ;SCHADUW UITZ.\21\27\KLPUTZ
T26 ;VERSLAGEN\20\46\VERSLAG
T27 ;POTENTIEELOVERZ.\21\46\KOV
T28 ;OFFERTES\20\69\OFF
T29 ;ORDERS\21\69\OD
T30 ;LEVERINGEN\22\69\UL
 ;
NEWCUST(B) 
 New K,Data,I1,NUI1
 Merge Data=B
 New B
 Do P^cAN220("KL","LVH1","","Data","")
 Quit $S(K="-":0,1:$P(NUI1," ",2))
 ;
S0 S FP=$P(R,D,2)*100+$P(R,D,3)-2+F60 W @F,"*"
S0Z Q
 ;
S1
 S NNR=$$NEWCUST(.B)
 I NNR D
 .S II1=^KK1(NNR),I="L" ; Leveringsadressen copieren
 .F  S I=$N(@("^"_Q_"KL(I1,I)")) Q:$E(I,1)'="L"  S X=^(I),@("^"_Q_"KL(II1,I)")=X
 .D S4,S5 ; Uitzonderingen en schaduw eerst copieren ander gaan deze verloren door Comm niet aktief
 .D MODFIELD^KLANT(ONR,310,1) ; Comm niet aktief (zet ook regio en type op 0, prijsklasse en schaduwprijsklasse op "")
 .D MODFIELD^KLANT(ONR,225,"Z") ; Type op "Z"
 E  D
 .S K(1)="De nieuwe klant "_$P(B(1),D,2)_" werd niet geopend."
 .S K(2)="De commerciel info is dus niet overgedragen!"
 .S K=$$WILD^vhTXTPOP("C;C","","K")
 K B
 Q
 ;
 ; Statistieken
S2 S PR=-1
S2A S PR=$N(@("^"_Q_"STKL(ONR,PR)")) G S2E:PR=-1 S PER=-1
S2B S PER=$N(@("^"_Q_"STKL(ONR,PR,PER)")) I PER'=-1 S X=^(PER),@("^"_Q_"STKL(NNR,PR,PER)")=X G S2B
S2C S PER=$N(@("^"_Q_"STPR(PR,ONR,PER)")) I PER'=-1 S X=^(PER),@("^"_Q_"STPR(PR,NNR,PER)")=X G S2C
S2D K @("^"_Q_"STPR(PR,ONR)") G S2A
S2E K @("^"_Q_"STKL(ONR)"),PR,PER
S2Z Q
 ;
 ; Uitzonderingen ("N" + "S")
S3 S HG=-1
S3A S HG=$N(^KLPUTZ(NoSa,ONR,HG)) G S3F:HG=-1 S GR=-1
S3B S GR=$N(^KLPUTZ(NoSa,ONR,HG,GR)) G S3A:GR=-1 S SG=-1
S3C S SG=$N(^KLPUTZ(NoSa,ONR,HG,GR,SG)) G S3B:SG=-1 S PR=-1
S3D S PR=$N(^KLPUTZ(NoSa,ONR,HG,GR,SG,PR)) G S3C:PR=-1 S NXT=-1
S3E S NXT=$N(^KLPUTZ(NoSa,ONR,HG,GR,SG,PR,NXT)) G S3D:NXT=-1
 S X=^(NXT),^KLPUTZ(NoSa,NNR,HG,GR,SG,PR,NXT)=X
 S ^KLPUTZ("I"_NoSa,HG,GR,SG,PR,NNR)=""
 G S3E
S3F D DELOBJ^KLPUTZ(ONR,NoSa)
 K NoSa,HG,GR,SG,PR,NXT
S3Z Q
 ;
 ; Uitzonderingen ("N")
S4 S NoSa="N" D S3
S4Z Q
 ;
 ; Uitzonderingen ("S")
S5 S NoSa="S" D S3
S5Z Q
 ;
 ; Verslagen
S6 
 N IDT,IRP
 S IDT=""
 F  S IDT=$O(^VERSLAG("IK",ONR,IDT)) Q:IDT=""  D
 .S IRP=""
 .F  S IRP=$O(^VERSLAG("IK",ONR,IDT,IRP)) Q:IRP=""  D
 ..S X=^VERSLAG("D",IRP,0),$P(X,D,6)=NNR,^VERSLAG("D",IRP,0)=X
 ..S ^VERSLAG("IK",NNR,IDT,IRP)=""
 K ^VERSLAG("IK",ONR)
 Q
 ;
 ; Potentieel
S7 F I=0:1:10 I $D(@("^"_Q_"KOV(ONR,I)")) S X=^(I),@("^"_Q_"KOV(NNR,I)")=X
S7A S HG=100
S7B S HG=$N(@("^"_Q_"KOV(ONR,HG)")) G S7G:HG=-1 S GR=-1
S7C S GR=$N(@("^"_Q_"KOV(ONR,HG,GR)")) G S7B:GR=-1 S VEC=-1
S7D S VEC=$N(@("^"_Q_"KOV(ONR,HG,GR,VEC)")) G S7C:VEC=-1 S FAC=-1
S7E S FAC=$N(@("^"_Q_"KOV(ONR,HG,GR,VEC,FAC)")) G S7D:FAC=-1
S7F S X=^(FAC),@("^"_Q_"KOV(NNR,HG,GR,VEC,FAC)")=X G S7E
S7G K @("^"_Q_"KOV(ONR)")
S7Z Q
 ;
 ; Offertes, orders en leveringsbons
S8
 New TRr,LC,Date,VerzW
 Set TR=""
S8A Lock (@("^"_Q_"KL(I1)"),@("^"_Q_"KL(II1)"),@("^"_Q_GLO_"(ONR)")):2 Else  Do  Goto S8A
 . Set KKK=$P(R,D,1),FP=2403+F60
 . Write @F,@F2
 . Xecute ^cTXT(0,"N",142)
 . Write @F5
 . Read K
 . Do S21
 Set UR=""
 For  Set UR=$O(@("^"_Q_GLO_"(ONR,""F"",UR)")) Quit:UR=""  Do
 . Merge @("^"_Q_GLO_"(NNR,""F"",UR)")=@("^"_Q_GLO_"(ONR,""F"",UR)")
 . Set $P(@("^"_Q_GLO_"(NNR,""F"",UR,1)"),D,6)=NNR
 . Do:GLO="OD"  ; Wijzigen toeleveringen
 . . Set UZ=100
 . . For  Set UZ=$O(@("^"_Q_GLO_"(NNR,""F"",UR,UZ)")) Quit:UZ=""  Do
 . . . Set X=@("^"_Q_GLO_"(NNR,""F"",UR,UZ)")
 . . . Quit:TR=$P(X,D,27)
 . . . Set TR=$P(X,D,27)
 . . . Quit:'TR
 . . . Set LC=$P(^KTO1(TR),D),X=^KTO(LC,TR,1)
 . . . Quit:$P(X,D,8)'=ONR
 . . . Set $P(X,D,8)=NNR,^KTO(LC,TR,1)=X
 . Do:GLO="UL"  ; Wijzigen ^KUP,^KU3
 . . Do BUILDKUP^FLOWBON3(NNR,UR)
 . . Set X=@("^"_Q_GLO_"(NNR,""F"",UR,1)"),Date=$P(X,D,2),VerzW=$P($P(X,D,7)," ")_" "
 . . Quit:Date=""  Quit:VerzW=""
 . . Set Date=-$$INTDATE^vhDTyp(Date),X=$G(^KU3(Date,VerzW,UR))
 . . Quit:$P(X,D)'=ONR
 . . Set $P(X,D)=NNR,^KU3(Date,VerzW,UR)=X
 . Do:GLO="OFKL" BUILDIP^FLOWOFF3(NNR,UR) ; Herzetten ^KOFKLP
 . If $D(@("^"_Q_GL1_"(UR,""F"")")) S X=^("F"),$P(X,D,1)=NNR,^("F")=X
 . If $D(@("^"_Q_GLB_"(UR,""F"")")) S X=^("F"),$P(X,D,1)=NNR,^("F")=X
 . Set @("^"_Q_GL2_"(""F"",NNR,UR)")=""
 . Kill @("^"_Q_GL2_"(""F"",ONR,UR)"),@("^"_Q_GLO_"(ONR,""F"",UR)")
 Kill GLO,GL1,GL2,GLB,US,UR,UZ,KKK
 
 Quit
 ;
 ; Offertes
S9 S GLO="OFKL",GL1="OFKL1",GL2="OFKL2",GLB="OFKLB" D S8
S9Z Q
 ;
 ; Orders
S10 S GLO="OD",GL1="O1",GL2="O2",GLB="OB" D S8
S10Z Q
 ;
 ; Leveringsbons
S11 S GLO="UL",GL1="U1",GL2="U2",GLB="UB" D S8
S11Z Q
 ;
S20 S U3=K,X=@("^"_Q_"KL(0,0)"),X=100
S20A S X=$N(^(X)) G S20Z:X=-1 I U7'=101 G S20A:X\100'=SW2
S20B S U2=^(X) G S20A:$P(U2,U,16)'=U7 I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S20C S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3
S20Z K U2,U3,U7 Q
 ;
S21 S FP=2403+F60 W @F,@F2,@F4,$P($T(T14),U,2),$P(R,D,1)," ",@F5
S21Z Q
 ;
S22 S R=-1
S22A S R=$N(^KPRR("I",ONR,R)) I R'=-1 S ^KPRR("I",NNR,R)=^(R) G S22A
S22B S R=$N(^KPRR("D",ONR,R)) I R'=-1 S ^KPRR("D",NNR,R)=^(R) G S22B
S22Z Q
 ;
S23(OKLNr,NKLNr) 
 New R,PRNr,Date
 Set PRNr=""
 For  Set PRNr=$O(^KLKAN(OKLNr,PRNr)) Quit:PRNr=""  Do
 .Set Date=""
 .For  Set Date=$O(^KLKAN(OKLNr,PRNr,Date)) Quit:Date=""  Set R=^KLKAN(OKLNr,PRNr,Date),^KLKAN(NKLNr,PRNr,Date)=R
 Kill ^KLKAN(OKLNr)
 Quit
 ;
 ; Copieren personen
S24(OKLNr,NKLNr) 
 Do REMINDEX^PERS("K",OKLNr)
 Merge ^PERS("K",NKLNr)=^PERS("K",OKLNr)
 Kill ^PERS("K",OKLNr)
 Do BLDINDEX^PERS("K",NKLNr)
 Quit
 ;
 ; Aanpassen terugnames
S25(OKLNr,NKLNr)
 New R,RCPNr
 Set RCPNr=""
 For  Set RCPNr=$O(^RCP("IK",OKLNr,RCPNr)) Quit:RCPNr=""  Do
 . Set R=^RCP("D",RCPNr)
 . Quit:$P(R,D,2)'=OKLNr  Quit:$P(R,D,20)="I"
 . Set $P(R,D,2)=NKLNr,^RCP("D",RCPNr)=R,^RCP("IK",NKLNr,RCPNr)=""
 . Kill ^RCP("IK",OKLNr,RCPNr)
 Quit
 ;
 ; Copieren verkoopanalyse
S26(OKLNr,NKLNr)
 Merge ^KKAAP(NKLNr)=^KKAAP(OKLNr)
 Kill ^KKAAP(OKLNr)
 Quit
 ;
OrgaluxDealer(OKLNr,NKLNr)
 New %TC,R,Piece,KlKey,KlRec,DKLNr,ModAll,Modify,KeyTxt1,KeyOut1,KeyTxt2,KeyOut2,KeyTxt3,KeyOut3
 Set (KlKey,ModAll)=0
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set KlRec=$G(^KKL(KlKey,8))
 . If $P(KlRec,D,5)'=OKLNr,$P(KlRec,D,6)'=OKLNr,$P(KlRec,D,7)'=OKLNr Quit
 . Set DKLNr=$P(KlKey," ",2)
 . Do:'ModAll
 ..  Set KeyTxt1="Ja",KeyOut1="J",(KeyTxt2,KeyOut2,KeyTxt3,KeyOut3)=""
 ..  If $G(Modify)="" Set KeyTxt2="Alle dealers",KeyOut2="A",KeyTxt3="Neen",KeyOut3="N"
 ..  Else  Set KeyTxt2="Neen",KeyOut2="N"
 ..  Set Modify=$$^vhTXTPOP("KOKKI","ORGDEALER","",OKLNr,$P(^KKL(^KK1(OKLNr),0),D,2),DKLNr,$P(^KKL(^KK1(DKLNr),0),D,2),KeyTxt1,KeyOut1,KeyTxt2,KeyOut2,KeyTxt3,KeyOut3)
 . Quit:Modify="N"
 . For  Do ADD^vhLock("^KKL(KlKey)") Quit:%TC  Do LDISP^vhLock("^KKL(KlKey)","Klant "_DKLNr_" "_$P(^KKL(^KK1(DKLNr),0),D,2))
 . Set ModAll=Modify="A"
 . For Piece=5:1:7 Do
 ..  Quit:$P(KlRec,D,Piece)'=OKLNr
 ..  Do W^cAN220("KL","LVH1",KlKey,900+Piece,NKLNr)
 . Do REMOVE^vhLock("^KKL(KlKey)")
 Quit
 ;
KlantVan(OKLNr,NKLNr)
 New %TC,R,Piece,KlKey,KlRec,DKLNr,ModAll,Modify,KeyTxt1,KeyOut1,KeyTxt2,KeyOut2,KeyTxt3,KeyOut3
 Set (KlKey,ModAll)=0
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set KlRec=^KKL(KlKey,1)
 . Quit:$P(KlRec,D,10)'=OKLNr
 . Set DKLNr=$P(KlKey," ",2)
 . Do:'ModAll
 ..  Set KeyTxt1="Ja",KeyOut1="J",(KeyTxt2,KeyOut2,KeyTxt3,KeyOut3)=""
 ..  If $G(Modify)="" Set KeyTxt2="Alle klanten",KeyOut2="A",KeyTxt3="Neen",KeyOut3="N"
 ..  Else  Set KeyTxt2="Neen",KeyOut2="N"
 ..  Set Modify=$$^vhTXTPOP("KOKKI","KLANTVAN","",OKLNr,$P(^KKL(^KK1(OKLNr),0),D,2),DKLNr,$P(^KKL(^KK1(DKLNr),0),D,2),KeyTxt1,KeyOut1,KeyTxt2,KeyOut2,KeyTxt3,KeyOut3)
 . Quit:Modify="N"
 . For  Do ADD^vhLock("^KKL(KlKey)") Quit:%TC  Do LDISP^vhLock("^KKL(KlKey)","Klant "_DKLNr_" "_$P(^KKL(^KK1(DKLNr),0),D,2))
 . Set ModAll=Modify="A"
 . Do W^cAN220("KL","LVH1",KlKey,210,NKLNr)
 . Do REMOVE^vhLock("^KKL(KlKey)")
 Quit
 ;
 ; De gegevens van het kennisanker copieeren
KennisAnker(OKLNr,NKLNr)
 New UserID,ChangeStatus
 Set UserID=$G(CUserId,$G(QU(1),$P($$DEVUSER^vhUSER(),";")))
 Set ChangeStatus=##class(BL.Derde.Kennis.Kennis).ChangeKlantNr(OKLNr,NKLNr,UserID)
 Do:$L(ChangeStatus) WARN^vhTXTPOP($TR(ChangeStatus,$C(13,10),"~"),"")
 Quit
 ;
 ; De gegevens van de recopereerbare verpakking copieeren
RecuPak(OKLNr,NKLNr)
 Merge ^HISTPAK("D",NKLNr)=^HISTPAK("D",OKLNr)
 Kill ^HISTPAK("D",OKLNr)
 Quit
 ;
 ; Overbrengen van de offertes e-commerce
UpdOfferte(OKLNr,NKLNr)
 &SQL(Update Flow_Offerte.Hoofding Set Klant=:NKLNr where Klant=:OKLNr)
 Quit
 ;
 ; Overbrengen van de agenda
Agenda(OKLNr,NKLNr)
 Do ##Class(BL.Derde.Agenda.Agenda).CommOverdracht(OKLNr,NKLNr)
 Quit
 ;
 ; Overbrengen van de relaties
Relaties(OKLNr,NKLNr)
 ; Disabelen van 'OrgaluxDealer(OKLNr,NKLNr)'
 ; Disabelen van 'KlantVan(OKLNr,NKLNr)'
 Do ##Class(BL.Derde.Klant.Relaties).CopyAll(OKLNr,NKLNr)
 Do ##Class(BL.Derde.Klant.Relaties).CommOverdracht(OKLNr,NKLNr)
 Quit
 ;
 ; Invullen link tussen beide klanten
KLLINK(OKLNr,NKLNr)
 New R,KlKey
 Set KlKey=^KK1(OKLNr),R=^KKL(KlKey,2),$P(R,D,17)=NKLNr,^KKL(KlKey,2)=R
 Set KlKey=^KK1(NKLNr),R=^KKL(KlKey,2),$P(R,D,27)=OKLNr,^KKL(KlKey,2)=R
 Quit
 ;
1 S GLOB="\KL\STKL\STPR\KLPUTZ\KLPUTZ\VERSLAG\KOV\OFF\OD\UL\",FP=2001+F60 W @F,@F1
11 F I=1:1:10 S X=$P($T(@("T"_(I+20))),U,2) I $L(X),GLOB[(D_$P(X,D,4)_D) S FP=$P(X,D,2)*100+$P(X,D,3)+F60 W @F,$P(X,D,1)
 ;
4 S R="K\24\3\"_$P($T(T11),U,2)_"\\1\\""-""[K" D R0 G YZ:K="-"
41 S R="K\23\3\"_$P($T(T12),U,2)_"\\1\\""-O""[K&$L(K)" D R0 G YZ:K="-"
43 S R="K\24\3\"_$P($T(T13),U,2)_"\\1\\""-O""[K&$L(K)" D R0 G YZ:K="-"
 ;
5 S @%Q1=0,FP=2301+F60 W @F,@F1 S ONR=$P(B(1),D,1)
 S K=1,U7=310 D S20
 S R=$P($T(T21),U,2),$P(B(1),D)=""
 D S21,S1 D:NNR
 .D S0
 .F BST=2:1:10 S R=$P($T(@("T"_(BST+20))),U,2) I $L(R),GLOB[(D_$P(R,D,4)_D) D S21,@$P("\S2\S0\S4\S5\S6\S7\S9\S10\S11",D,BST),S0
 .D S22,S23(ONR,NNR),S24(ONR,NNR),S25(ONR,NNR),S26(ONR,NNR),OrgaluxDealer(ONR,NNR),KlantVan(ONR,NNR)
 .D KennisAnker(ONR,NNR),RecuPak(ONR,NNR),UpdOfferte(ONR,NNR),Agenda(ONR,NNR),Relaties(ONR,NNR)
 .S K=NNR,U7=101 D S20 S K="",U7=310 D S20
 .D KLLINK(ONR,NNR)
 S @%Q1=1
 ;
YZ K GLOB,II1,ONR,NNR,BST Q
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;