RPLKL1 ;RAADPLEGEN KLANTEN ;RPLKL; Do naar RPLKL2, PROC - Quit naar RPLKL [ 01/21/2003  4:49 PM ]
 Q
 ;
T2 ;ALGEMEEN;BOEKHOUDKUNDIG;CONTACTPERSONEN;OPMERKINGEN;ORGALUX;BOEKH. OMZET (maand - kalenderjaar);BOEKH. OMZET (maand - boekjaar);BOEKH. OMZET (kwartaal - kalenderjaar);BOEKH. OMZET (kwartaal - boekjaar);ADRESSEN;FACTUURLIJNEN;LEVERINGEN;MAANDOMZET;OPENSTAANDE ORDERS;OPENSTAANDE FACTUREN;VERKOOPANALYSE-MOEDERBON;PRODUCTREFERENTIE;BETALINGSGEDRAG;NOTA's;OMZET SUBGROEP
T21 ;OPENSTAANDE ORDERS;VERKOOPANALYSE;OFFERTES;MONSTERS (PROFORMA);KOOPGEDRAG;PRIJSVERGELIJK;DIRECT ORDERS;TRANSFERTORDERS;OUDE PRIJSVERGELIJK
T22 ;;SCHADUW;UITZONDERINGEN
T23 ;\K;N\STANDAARD EN KLANTGEBONDEN ORDERS\C\CONTRACT ORDERS\A\AFROEP ORDERS\M;P\MONSTER EN PROFORMA ORDERS\H\HALUX ORDERS\O\ORGALUX ORDERS
T4 ;KLANT INFO;OVERZICHT
T5 ;*** I'm thinking ***
 ;
S2 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\" S (K,U3)=$P(B(X\100),D,X#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2A S FP=$P(U2,U,5)*100+$P(U2,U,6) G S2Z:'SW5 I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
S2B S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U,1),@F9
S2C S FP=$P(U2,U,5)*100+$P(U2,U,6)
S2Z W:'SW5 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) W @F,U3 Q
 ;
 ;Write list
WL K DL(2),DL(3) D WL^PROC
 Q
 ;
 ;Help
HLP
 D SA,VKI:$L(VTB) S KIF=0,FP=601 W @F,@F2
 S HLP(1)=$P($T(T4),U,2),HLP(2)=$P($T(T4),U,3),HLP(3)=8,HLP(6)="" D HLP^HELP
 S R=$S($L(VTB):VTB,1:SW2)
 S VTB="",SW2=0
 Q
 ;
 ;Titel
TI S K=$P($T(+1),U,2)_QN_" ",FP=103+$L(K) W @F,@F5 S FP=102 W @F,@F4,K,@F5
 Q
 ;
 ;Schermaanduiding
SA N K,NoSa,OrdLim
 I U4="U" D
 .N R,TijdStip
 .S R=$G(^HULP($J,"K"_KC,"U")),NoSa=$P(R,D),TijdStip=$P(R,D,2)
 .S:NoSa="" NoSa="N"
 .S K=$P($T(T22),U,$G(NoSa)="S"+2)_$P($T(T22),U,4)
 .S:$L(TijdStip) K=K_" op "_$$EXTDATE^vhLib.DataTypes(TijdStip)_", "_$$EXTTIME^vhLib.DataTypes(TijdStip)
 E  I U4="O",$L($P($G(^HULP($J,"K"_KC,"O")),D)) D
 .S K=$P($P($T(T23),"\"_$P(^("O"),D)_"\",2),"\")
 E  Do
 . S K=$P($T(T2)_";"_$P($T(T21),U,2,99),U,$F("123456789AFLMOSVRBNGXQEZY&§~!",U4))
 . Quit:U4'="V"
 . If $P($G(^HULP($J,"PAR","VM","K")),D,2)'="T",$P($G(^HULP($J,"PAR","VM","K")),D,3) Set K=K_" "_$P(^HULP($J,"PAR","VM","K"),D,4)
 Do:U4="Q"
 . S:$G(ShowM) K=K_"+"
 . S R=$P($G(^HULP($J,"K"_KC,"V")),D,10)
 . S:$L(R) K=K_"("_$ZCvt(R,"L")_")"
 . Set:$G(VkaLEVNr) K=$E(K_" - "_$P(^KLE(^KL1(VkaLEVNr),0),D,2),1,40)
 D SA2(K)
 Q
 ;
SA1 S FP=145 W @F,$J("",15),@FMTK,$P($T(T5),U,2),@FMTk
 Q
 ;
SA2(K)
 S FP=140 W @F,@FMTB,$J($E(K,1,40),40),@FMTb
 Q
 ;
 ;Verwijder ballast
VBA F I=4,7,10:1:12,14,15,17:1:22 S $P(U2,U,I)=""
 Q
 ;
 ;Klanteninformatie
KIF G KIF^RPLKL
 ;
 ;Verwijderen klanteninfo
VKI G VKI^RPLKL
 ;
 ;Uitzonderingen
UTZ N NoSa
 S NoSa=$P($G(^HULP($J,"K"_KC,"U")),D) S:NoSa="" NoSa="N"
 I $O(^HULP($J,"K"_KC,"U",""))="" K ^HULP($J,"K"_KC,"U")
 S DL(1)="UTZ",UTZ(1)="^HULP("_$J_",""K"_KC_""",""U"","
 G UTZ2:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"U")) D WL G UTZ2
UTZ1 D SA1,UTZ^RPLKL2,SA
UTZ2 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ;Uitzonderingen N<->S
UTZS New NoSa
 Set NoSa=$P($G(^HULP($J,"K"_KC,"U")),D) S:NoSa="" NoSa="N"
 Set NoSa=$P("N\S",D,NoSa="N"+1)
 Kill ^HULP($J,"K"_KC,"U")
 Set ^HULP($J,"K"_KC,"U")=NoSa,U4="U"
 Goto UTZ1
 ;
 ; Uitzonderingen historiek
UTZH
 N NoSa,HistNr,Select
 S NoSa=$P($G(^HULP($J,"K"_KC,"U")),D) S:NoSa="" NoSa="N"
 S Select=$P($G(^HULP($J,"K"_KC,"U")),D,2)
 S HistNr=$$SELHIST^KLPUTZ7(KC,NoSa,Select),U4="U"
 I 'HistNr G UTZ:HistNr'="$H" K:$P($G(^HULP($J,"K"_KC,"U")),D,2) ^HULP($J,"K"_KC,"U") G UTZ1
 Kill ^HULP($J,"K"_KC,"U")
 D SA1,UTZH^RPLKL2,SA
 G UTZ2
 ;
 ;Omzet per subgroep
VKG S DL(1)="VKG",VKG(1)="^HULP("_$J_",""K"_KC_""",""G""," G VKG2:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"G")) D VKG6^RPLKL2 G VKG2
VKG1 D SA1,VKG^RPLKL2,SA
VKG2 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ;Rapporten
RAP Goto VERWERK^RPLNOTA
 
 ;Direct orders
DIRORD Goto VERWERK^RPLDORD
 ;
 ;Betalingsgedrag
BGD S DL(1)="BGD",BGD(1)="^HULP("_$J_",""K"_KC_""",""B""," G BGD1:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"B")) D BGD7^RPLKL2b G BGD1
 D SA1,BGD^RPLKL2b,SA
BGD1 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ;Openstaande fakturen
OFA 
 New KlMunt
 Set KlMunt=$P(^KKL(^KK1(KC),0),D,11)
 S DL(1)="OFA",OFA(1)="^HULP("_$J_",""K"_KC_""",""S""," G OFA1:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"S")) D OFA3^RPLKL2 G OFA1
 D SA1,OFA^RPLKL2,SA
OFA1 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ;Verkoopanalyze
VKA S VKAType=$G(^HULP($J,"V")) S:VKAType="" VKAType="G",^HULP($J,"V")=VKAType
 S DL(1)="VKA",VKA(1)="^HULP("_$J_",""K"_KC_""",""V""," G VKA2:VTB=U4&(KC=KCX) D KIF,SA
 I $P($G(^HULP($J,"K"_KC,"V")),D,10)=VKAType D VKA6^RPLKL2 G VKA2
 Kill ^HULP($J,"K"_KC,"V")
VKA1 D SA1,VKA^RPLKL2,SA
VKA2 D SL^PROC
 W @FMTi ; Afzetten invers i.v.m. groepeerlijnen
 I R="Q" D  G VKA1
 .Set VKASelectType=$P($G(^HULP($J,"K"_KC,"V",VKA(6))),D,20)
 .K ^HULP($J,"K"_KC,"V")
 .S VKAType=$S(VKAType="G":"D",1:"G"),^HULP($J,"V")=VKAType
 S VTB=U4,SW2=0
 If R="M",$S($G(ShowM):1,1:$$ASK^vhWACHTW("VPMINAP")) Set ShowM='$G(ShowM) Do SWVKA^RPLKL3(ShowM) Kill ^HULP($J,"K"_KC,"V") G VKA1
 I R="SPEC" D
 .N PR
 .S PR=$P(^HULP($J,"K"_KC,"V",VKA(6)),D,15)
 .D SPEC^RPLKL4
 I R="X" D SA1,VerwerkEenKlant^Stat.Statistiek.OpbouwenKlantArtikelAnalyse K ^HULP($J,"K"_KC,"V") G VKA1
 I R="@" D  G VKA2
 .N PR
 .S PR=$P(^HULP($J,"K"_KC,"V",VKA(6)),D,15)
 .D QTY^RPLSCHAD(KC,PR)
 I R="*" D  G VKA2
 .N PR
 .S PR=$P(^HULP($J,"K"_KC,"V",VKA(6)),D,15)
 .D AKTIEF^RPLSCHAD(KC,PR)
 Q
 ;
 ;Koopgedrag analyze
KGA S FULL=0,DL(1)="KGA",KGA(1)="^HULP("_$J_",""K"_KC_""",""KGA""," G KGA2:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"KGA")) D KGA6^RPLKL2 G KGA2
KGA1 D SA1,KGA^RPLKL2,SA
KGA2 D SL^PROC S VTB=U4,SW2=0
 S PR=$P($G(^HULP($J,"K"_KC,"KGA",KGA(6))),D,15)
 S FULL=^HULP($J,"K"_KC,"KGA")
 I R="X" K ^HULP($J,"K"_KC,"KGA") S FULL='FULL G KGA1
 I R="ENTER",FULL,PR S $P(^KLKGA(KC,PR),D)='$P($G(^KLKGA(KC,PR)),D),$P(^HULP($J,"K"_KC,"KGA",KGA(6)),D,16)=$P($G(^KLKGA(KC,PR)),D) D EL^PROC G KGA2
 Q
 ;
 ;Verkoopanalyze Moederbon
VMB Goto VERWERK^RPLMBON
 
 ;Faktuurlijn detailinformatie
FLD S VRV=0,DL(1)="FLD",FLD(1)="^HULP("_$J_",""K"_KC_""",""F""," G FLD2:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"F")) D WL G FLD2
FLD1 D SA1,FLD^RPLKL2b,SA
FLD2 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ;Proformalijn detailinformatie (Monster)
PLD S VRV=0,DL(1)="PLD",PLD(1)="^HULP("_$J_",""K"_KC_""",""P""," G PLD2:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"P")) D WL G PLD2
PLD1 D SA1,PLD^RPLKL2b,SA
PLD2 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
OFF S DL(1)="OFF",OFF(1)="^HULP("_$J_",""K"_KC_""",""E""," G OFF1:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"E")) D WL G OFF1
 D SA1,OFF^RPLKL2b,SA
OFF1 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ;Orders
ORD S DL(1)="ORD",ORD(1)="^HULP("_$J_",""K"_KC_""",""O""," G ORD1:VTB=U4&(KC=KCX) Do KIF,SA
 I $D(^HULP($J,"K"_KC,"O"))>1 D WL G ORD1
 D SA1,ORD^RPLKL2,SA
ORD1 D SL^PROC S VTB=U4,SW2=0
 Q
ORDLIM(X) 
 Kill ^HULP($J,"K"_KC,"O")
 Set ^HULP($J,"K"_KC,"O")=$G(X)
 Set Input=VTB
 SET U4=VTB,VTB=""
 Set ORD(6)=1,ORD(7)=0
 Quit
 
 ;
 ;Orders volgens boom en leverweek
OBL S DL(1)="OBL",OBL(1)="^HULP("_$J_",""K"_KC_""",""OBL""," G OBL1:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"OBL")) D WL G OBL1
 D SA1,OBL^RPLKL2,SA
OBL1 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ;Leveringen
BON S DL(1)="BON",BON(1)="^HULP("_$J_",""K"_KC_""",""L""," G BON2:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"L")) D WL G BON2
BON1 D SA1,BON^RPLKL2,SA
BON2 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ; Productreferentie
PRF S DL(1)="PRF",PRF(1)="^HULP("_$J_",""K"_KC_""",""R""," G PRF1:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"R")) D WL G PRF1
 D SA1,PRF^RPLKL2,SA
PRF1 D SL^PROC S VTB=U4,SW2=0
 If R="ENTER" D
 .New Pos
 .Set Rec=$G(^HULP($J,"K"_KC,"R",PRF(6))) Quit:'$L(Rec)
 .Set PAKNr=$P(Rec,D,1) Quit:'PAKNr
 .Do VERWPAK^RPLMBON(PAKNr,1)
 .New DL Set DL(1)="PRF",DL(2)=21,DL(3)=24 Do WL^PROC
 .Set Pos=PRF(6)
 .For  Quit:$P($G(^HULP($J,"K"_KC,"R",PRF(6))),D,3)'=""  Set PRF(6)=PRF(6)-1
 .For  Do  Quit:$P($G(^HULP($J,"K"_KC,"R",PRF(6))),D,1)'=PAKNr
 ..Do EL^PROC:Pos=PRF(6),DL^PROC:Pos'=PRF(6)
 ..Set PRF(6)=PRF(6)+1
 .Set PRF(6)=Pos
 Q
 ;
 ;Maandomzet
MOM S DL(1)="MOM",MOM(1)="^HULP("_$J_",""K"_KC_""",""M"",",DEM=0 G MOM1:VTB=U4&(KC=KCX) D KIF,SA
 I $D(^HULP($J,"K"_KC,"M")) D WL G MOM1
 D SA1,MOM^RPLKL2,SA
MOM1 S FP=1401 W @F,@FMTI,DEM(8),$J("",80-$L(DEM(8))),@FMTi D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ;Leveringsadressen
LAD S DL(1)="LAD",LAD(1)="^HULP($J,""K""_KC,""A""," G LAD1:VTB=U4&(KC=KCX) D KIF,SA S SW5=1,FP=701 W @F,@F1
 I $D(^HULP($J,"K"_KC,"A")) D WL S Auto=1 G LAD1
 D SA1,LAD^RPLKL2,SA
LAD1 I $G(Auto) S R="D"
 E  S DL(3)=0 D SL^PROC K DL(3) S:R="" R="D"
 S VTB=U4,SW2=0
 K Auto
 Q
 ;
 ;Detail
DET I VTB="A" D DETA S R=U4
 I VTB="M" D DETM S U4=R
 I VTB="F" D DETF S U4=R
 I VTB="Z" D DETZ S U4=R
 I VTB="S" D DETS S U4=R
 I VTB="B" D DETB S U4=R
 I VTB="Y" D DETY S U4=R
 I VTB="N" D DETN S R=U4
 Q
 ;
 ;Detail leveringsadres
DETA S U4=VTB G DETA4:'$D(^HULP($J,"K"_KC,"A",LAD(6))) S B("X")=B(1),B(1)=^(LAD(6))
 G DETA2:'SW5 D S3 S SW2=0,X=$D(^RPL("KL","LAD",0)),X=0,K=SW4*100+102
DETA1 S X=$N(^(X)) I X>0 S U2=^(X) D VBA S K=K+1,A(K)=U2 G DETA1
DETA2 S U1=SW4*100+100
DETA3 S U1=$N(A(U1)) I U1'=-1 D S2 G DETA3
 S B(1)=B("X"),SW5=0 K B("X")
DETA4 Q
 ;
 ;Detail maandomzet
DETM G DETM2:'$D(^HULP($J,"K"_KC,"M",MOM(6))) S BP=$P(^(MOM(6)),D,1)
 S DL(1)="DEM",DEM(1)="^HULP($J,""K""_KC,""M"",BP",DEM=1
 S DEM(6)=1,DEM(7)=1 K DEM(9)
 I $D(^HULP($J,"K"_KC,"M",BP)) D WL G DETM1
 D SA1,DEM^RPLKL2 S U4=VTB D SA
DETM1 D SL^PROC
 If R="COM" Do MENU^RPLKL4
 If R="SPEC" Do SPEC^RPLKL4
 D CL^PROC1
DETM2 Q
 ;
 ;Detail faktuur
DETF New FANr,Input
 Set FANr=$P($G(^HULP($J,"K"_KC,"F",FLD(6))),D,16)
 If 'FANr Set (R,Input)="-" Quit
 Set Input=$$LIJST^RPLFAKT(FANr)
 Do WL Set R=Input
 Set:",.-"[R R=VTB
 Quit
 ;
 ;Detail proforma
DETZ New FANr,Input
 Set FANr=$P($G(^HULP($J,"K"_KC,"P",PLD(6))),D,16)
 If 'FANr Set (R,Input)="-" Quit
 Set Input=$$LIJST^RPLPROF(FANr)
 Do WL Set R=Input
 Set:",.-"[R R=VTB
 Quit
 ;
 ;Detail openstaande fakturen
DETS Quit:$P($G(^HULP($J,"K"_KC,"S",OFA(6))),D,2)'="F"
 Set FANr=$P($G(^HULP($J,"K"_KC,"S",OFA(6))),D,1),Input=$$SHOW^RPLFAKT(FANr)
 Do OFA3^RPLKL2 S R=Input
 Set:",.-"[R R=VTB
 Quit
 ;
 ;Detail rapporten
DETN Set R="D" Do VERWERK^RPLNOTA
 Q
 ;
 ;Detail betalingsgedrag
DETB Set FANr=$P($G(^HULP($J,"K"_KC,"B",BGD(6))),D,10),Input=$$SHOW^RPLFAKT(FANr)
 Do BGD7^RPLKL2b S R=Input
 Set:",.-"[R R=VTB
 Quit
 ;
 ;Detail koopgedrag
DETY If PR,$D(^KPR(PR)) Do DISP^KLKGA(KC,PR),KGA6^RPLKL2
 Quit
 ;
 ;Detail
EXTRA 
 I VTB="L" D EXTRAL
 I VTB="F" D EXTRAF
 I VTB="Z" D EXTRAZ
 Q
 ;
 ;Extra info bonlijnen
EXTRAL New zb,R
 Set R=$$PI^vhPOPUP("C;C","-OMZ1","","RPLKL","LEVBON",$G(LayOut("L")))
 If zb'="CANC",R'=$G(LayOut("L")) Do
 .Kill LayOut("L"),BON(9)
 .If $E(R,$L(R))="^" Do
 ..Do KILUSER^DEFAULTS(,"RPLKL","LayOut","L")
 ..Set $E(R,$L(R))="" Set:$E(R,$L(R))=";" $E(R,$L(R))=""
 ..If $L(R) Set LayOut("L")=R Do PUTUSER^DEFAULTS(,"RPLKL","LayOut","L")
 .Else  If $L(R) Set LayOut("L")=R 
 .Set U4="REFRESH",(BON(6),BON(7))=1
 Quit
 ;
 ;Extra info faktlijnen
EXTRAF New zb,R
 Set R=$$PI^vhPOPUP("C;C","-OMZ1","","RPLKL","FAKT&PROF",$G(LayOut("F")))
 If zb'="CANC",R'=$G(LayOut("F")) Do
 .Kill LayOut("F"),FLD(9)
 .If $E(R,$L(R))="^" Do
 ..Do KILUSER^DEFAULTS(,"RPLKL","LayOut","F")
 ..Set $E(R,$L(R))="" Set:$E(R,$L(R))=";" $E(R,$L(R))=""
 ..If $L(R) Set LayOut("F")=R Do PUTUSER^DEFAULTS(,"RPLKL","LayOut","F")
 .Else  If $L(R) Set LayOut("F")=R
 .Set U4="REFRESH",(FLD(6),FLD(7))=1
 Quit
 ;
 ;Extra info proforma's
EXTRAZ New zb,R
 Set R=$$PI^vhPOPUP("C;C","-OMZ1","","RPLKL","FAKT&PROF",$G(LayOut("Z")))
 If zb'="CANC",R'=$G(LayOut("Z")) Do
 .Kill LayOut("Z"),PLD(9)
 .If $E(R,$L(R))="^" Do
 ..Do KILUSER^DEFAULTS(,"RPLKL","LayOut","Z")
 ..Set $E(R,$L(R))="" Set:$E(R,$L(R))=";" $E(R,$L(R))=""
 ..If $L(R) Set LayOut("Z")=R Do PUTUSER^DEFAULTS(,"RPLKL","LayOut","Z")
 .Else  If $L(R) Set LayOut("Z")=R
 .Set U4="REFRESH",(PLD(6),PLD(7))=1
 Quit
 ;
 ;Wijzigen
MOD(NoPassW) 
 Set NoPassW=$G(NoPassW)
 If VTB="E" Do MODE
 If VTB="O" Do MODO
 If VTB="X" Do MODX
 If VTB="L" Do MODL
 If VTB="R" Do MODR
 If VTB="U" Do MODU
 If VTB="§" Do MODDO
 If VTB="&" Do  ; Prijsvgl wijzigt prijsuitz.
 .New NoSa
 .Set NoSa="S"
 .Do MODU2
 Quit
 ;
 ;Wijzig offertes
MODE If $$PW^RPLKL("C66")!NoPassW If @DL(1)@(9) Do  Goto REFRESH^RPLKL
 .Set (Locals("OFFNr"),UR)=$P(^HULP($J,"K"_KC,"E",@DL(1)@(6)),D,15),Locals("Extern")=1
 .Do DO^vhPROGRAM("ExternVerwerkOfferte^Flow.VerwerkDoc",1,"",$G(NoMod))
 .If '$D(^KOFKL(KC,"F",UR)) S:@DL(1)@(6)>1 @DL(1)@(6)=@DL(1)@(6)-1 K @DL(1)@(7)
 .Set U4=VTB
 Quit
 ;
 ;Wijzig orders
MODO 
 New R,OldLines,NewLines
 If $$PW^RPLKL("C77")!NoPassW If @DL(1)@(9) Do  Goto REFRESH^RPLKL
 .Set (Locals("ORDNr"),UR)=$P(^HULP($J,"K"_KC,"O",@DL(1)@(6)),D,15),Locals("Extern")=1
 .Set OrdLim=$P($G(^HULP($J,"K"_KC,"O")),D)
 .Set OldLines=0,Line=@DL(1)@(6)
 .If '$P(^HULP($J,"K"_KC,"O",Line),D) For  Set Line=$O(^(Line),-1) Quit:'Line  Quit:$P(^(Line),D)
 .For  Set Line=$O(^HULP($J,"K"_KC,"O",Line)) Quit:'Line  Quit:$P(^(Line),D)  Set OldLines=OldLines+1
 .Do DO^vhPROGRAM("ExternVerwerkOrder^Flow.VerwerkDoc","","",$G(NoMod))
 .Set NewLines=0,Line=100
 .For  Set Line=$O(^KOD(KC,"F",UR,Line)) Quit:'Line  Do
 ..Set R=^KOD(KC,"F",UR,Line)
 ..If $P(R,D,2),$D(^KPR($P(R,D,2)))
 ..Else  If $P($P(R,D,17),"#")="KF1925"
 ..Else  Quit
 ..Set NewLines=NewLines+1
 .If NewLines'=OldLines Do
 ..Set:'$D(^KOD(KC,"F",UR)) @DL(1)@(6)=@DL(1)@(6)-1
 ..Set @DL(1)@(6)=@DL(1)@(6)-OldLines+NewLines Set:@DL(1)@(6)<1 @DL(1)@(6)=1
 ..Kill @DL(1)@(7)
 .Set ^HULP($J,"K"_KC,"O")=OrdLim
 .Set U4=VTB
 Quit
 ;
 ;Wijzig orders
MODX If $$PW^RPLKL("C66")!NoPassW If @DL(1)@(9) Do  Goto REFRESH^RPLKL
 .Set (Locals("ORDNr"),UR)=$P(^HULP($J,"K"_KC,"OBL",@DL(1)@(6)),D,1),Locals("Extern")=1
 .Write @FS80
 .Do DO^vhPROGRAM("ExternVerwerkOrder^Flow.VerwerkDoc","","",$G(NoMod))
 .I '$D(^KOD(KC,"F",UR)) S:@DL(1)@(6)>1 @DL(1)@(6)=@DL(1)@(6)-1 K @DL(1)@(7)
 .Write @FS132
 .Set U4=VTB
 Quit
 
 ;Wijzig DIRECT orders (toelevering)
MODDO b  If $$PW^RPLKL("C66")!NoPassW,@DL(1)@("MAX") Do  Goto REFRESH^RPLKL
 .Set (Locals("TOENr"),TR)=$P(^HULP($J,"K"_KC,"DIRORD",DIRORD("SELECT")),D,2),Locals("Extern")=1
 .Do DO^vhPROGRAM("ExternVerwerkToelevering^Flow.Toelev.VerwerkDoc","","",$G(NoMod))
 .Set U4=VTB
 Quit
 ;
 ;Wijzig leveringsbons
MODL If $$PW^RPLKL("C66")!NoPassW If @DL(1)@(9),$$CHKBON($P(^HULP($J,"K"_KC,"L",@DL(1)@(6)),D,10)) Do  Goto REFRESH^RPLKL        
 .Set (Locals("ULNr"),UR)=$P(^HULP($J,"K"_KC,"L",@DL(1)@(6)),D,10),Locals("Extern")=1
 .Do DO^vhPROGRAM("ExternVerwerkUitlevering^Flow.VerwerkDoc","","",$G(NoMod))
 .If '$D(^KUL(KC,"F",UR)) S:@DL(1)@(6)>1 @DL(1)@(6)=@DL(1)@(6)-1 K @DL(1)@(7)
 .Set U4=VTB
 Quit
 ;
CHKBON(UR) 
 New ChkBon
 Set ChkBon=1
 If '$D(^KUL(KC,"F",UR)) Set ChkBon=$$^vhTXTPOP("RPLKL","CHECKBON","",UR)
 Quit ChkBon
 ;
 ;wijzig productreferenties
MODR If $$PW^RPLKL("C66")!NoPassW Do  Goto REFRESH^RPLKL
 .Do DO^vhPROGRAM("VERWERK^PAKKET("_KC_")","","",$G(NoMod))
 .Set U4=VTB
 Quit
 ;
 ;Wijzig uitzonderingen
MODU New NoSa
 Set NoSa=$P($G(^HULP($J,"K"_KC,"U")),D) S:NoSa="" NoSa="N"
MODU2 If $$PW^RPLKL("C66")!NoPassW D  Goto REFRESH^RPLKL        
 .Set Locals("KC")=KC,Locals("NoSa")=NoSa
 .Do DO^vhPROGRAM("VERWERK^KLPUTZ(KC,NoSa)","","",$G(NoMod))
 .Kill ^HULP($J,"K"_KC,"U"),^HULP($J,"K"_KC,"V"),^HULP($J,"K"_KC,"VM")
 .Set ^HULP($J,"K"_KC,"U")=NoSa,U4=VTB
 Quit
 ;
 ;Vervolg
VRV S R=$S($L(VTB):VTB,1:SW2)
 I VTB="L" Set MaxLevering='$G(MaxLevering) K ^HULP($J,"K"_KC,"L") S BON(7)=0,BON(6)=1,(VNR,FLD(6),FLD(7))=$P(U2,D,1),VRV=0,U4=VTB G BON1
 I VTB'="F",VTB'="Z" G VRV1
 I VTB="F" G VRV1:'$D(^HULP($J,"K"_KC,"F",FLD(6))),VRV1:$P(^($O(^HULP($J,"K"_KC,"F",""),-1)),D,1,4)'="\\\     *** VERVOLG ***"
 I VTB="Z" G VRV1:'$D(^HULP($J,"K"_KC,"P",PLD(6))),VRV1:$P(^($O(^HULP($J,"K"_KC,"P",""),-1)),D,1,4)'="\\\     *** VERVOLG ***"
 S U2=^(0),FDT=$P(U2,D,2),FDTX=$P(U2,D,3),FNR=$P(U2,D,4),FNRX=$P(U2,D,5),UR=$P(U2,D,6),UZ=$P(U2,D,7)
 I VTB="F" S (VNR,FLD(6),FLD(7))=$P(U2,D,1),VRV=1,U4=VTB G FLD1
 I VTB="Z" S (VNR,PLD(6),PLD(7))=$P(U2,D,1),VRV=1,U4=VTB G PLD1
VRV1 Q
 ;
S3 S X=102
S3A S X=$N(A(X)) I X>0 K A(X) G S3A
S3Z Q
 ;