RPLKL3 ;RAADPLEGEN KLANTEN ;RPLKL; Quit naar RPLKL [ 11/10/2003  7:34 PM ]
 G 1
 ;
T1 ;1;C;L;2;;|;;$E(X,3,4)\2;C;L;3;;|;;$E(X,7,9)\3;C;L;6;;|;;$E(X,12,17)\4;C;L;25;;|;;$S($L(X):X,$L($P(FL(3),D,18)):$C(171)_$P(FL(3),D,18)_$C(187),1:"")\5;-N;R;4;1;|\6;-N;R;4;1;|\9;N+.;R;6;;|;;\10;N+;R;3;;|;;\11;C;R;8;;|;;$$EXTDATE^vhLib.DataTypes(X)\12;C;R;8;;|;;$$EXTDATE^vhLib.DataTypes(X)\7;C;L;1;;;;$S(X="":"",1:"*")
T2 ;Klassificatie|Korttekst                |K1 %|K2 %|M aant| Lt|Geld van|Geld tot|O
T3 ;0;C;L;1;;\2;C;L;25;;|;$P(FL(3),D,18)\3;-N.;R;7;;|\5;C;L;8;;|;$P(FL(3),D,18)\6;N.+;R;9;2;|\19;N.+;R;9;2;|\7;C;L;3;;\8;C;L;1;;|\12;C;R;10;; 
T4 ; Korttekst                |  Stuks|Dat l pr|Lst prijs|Hui prijs|MntE|Re omz EUR`-2
T3M ;2;C;L;25;;|;\3;-N.;R;6;;|\9;N.+;R;9;2; \7;C;L;3;;\8;C;L;1;;|;\16;-N;R;5;1;|;;X*100\12;C;R;10;;|\13;C;R;10;;|\17;-N;R;4;0;;;
T4M ;Korttekst                | Stuks|Hui prijs MntE|HuMa%|Re omz EUR|Re mar EUR|RMa%`-2
T5 ;1;C;L;1;;;;$S(X:$S($$CHKCUST^KLACHT3(KC,"F",X):"i",1:""),1:"") I $L(R),$D(FMTK) W @FMTK\1;N;L;8;;| ;;X W:$D(FMTk) @FMTk\2;C;L;8;; | \4;C;L;25;; |\15;C;R;1;;;;$S(X="S":"Z",1:X)\5;N;R;8;;|\6;N;R;10;2;\12;C;L;1;;| \8;C;L;3;; | \7;C;L;1;;
T51 ;1;C;L;1;;;;$S(X:$S($$CHKCUST^KLACHT3(KC,"F",X):"i",1:""),1:"") I $L(R),$D(FMTK) W @FMTK\1;N;L;8;;| ;;X W:$D(FMTk) @FMTk\2;C;L;8;; | \5;C;L;58;;;$G(PrintMod)'="T"&$D(Q)&($P(FL(3),D,19)'=0)
T6 ; Factuur | Datum    | Korttekst                 |  Aantal |     Prijs | Mnt | E
T7 ;"0;C;L;1;;\1;C;L;7;; |\2;N;R;12;;|\3;N;R;12;;|\4;N;R;12;"_$$MUNT^vhRtn1(,4)_";"
T8 ; Maand   |   Aant kom | Aant stock |      Omzet
T9 ;"0;C;L;1;;\2;C;L;25;; |\3;N;R;12;;|\4;N;R;12;;|\5;N;R;12;"_$$MUNT^vhRtn1(,4)_";"
T10 ; Korttekst                 |   Aant kom | Aant stock |      Omzet
T11 ;1;C;R;5;;| ;;$S(X:$S($P(FL(3),D,12)="":"L",1:$P(FL(3),D,12)),1:"")_$J(X,3)_$S(X:" ",1:"")\2;C;L;25;; | \5;C;L;25;; | \7;C;L;16;;
T12 ; Nr. | Naam                      | Adres                     | Gemeente
T13 ;2;C;R;1;;\1;C;R;1;;;;$S(X:$S($$CHKCUST^KLACHT3(KC,"F",X):"i",1:""),1:"") I $L(R),$D(FMTK) W @FMTK\1;N;R;8;;| ;;X W:$D(FMTk) @FMTk\3;C;L;8;; | \4;C;L;8;; |\5;N;R;11;2;\10;C;L;3;; |\11;C;R;11;;|;13;$$EXTNUM^vhLib.DataTypes(X,11,".T",$P($G(^HULP($J,"K"_KC,"S")),D,3))\12;C;R;11;2;|;1;$$EXTNUM^vhLib.DataTypes(X,11,".T",$P($G(^HULP($J,"K"_KC,"S")),D,3))\9;C;R;3;; \1;C;L;3;;;;$S(X:$P($G(^KKL(^KK1(KC),X)),D,23),1:"")
T14 ; Factuur  | Fact dat | Verv dat |    Bedrag Mnt | Onbetaald | Vervallen | Rappel`-2
T15 ;1;C;R;1;;;;$S(X:$S($$CHKCUST^KLACHT3(KC,"O",X):"i",1:""),1:"") I $L(R),$D(FMTK) W @FMTK\1;C;R;6;;;1;X W:$D(FMTk) @FMTk\1;C;R;1;;|;1;$S(X:$S($$GetOrderLink^KFO(X):"~",1:""),1:"")\4;C;L;25;;|;1\11;N.+C;L;6;;;14\13;C;R;1;;|;14\10;C;L;1;;;$P(FL(3),D)&$L($P(FL(3),D,10));\6;N;R;10;2;;$P(FL(3),D)&$L($P(FL(3),D,10))\8;C;L;3;;|;$P(FL(3),D)&$L($P(FL(3),D,10))\14;C;R;1;;;;$S(X="S":"Z",1:X)\5;NC;R;7;;|\9;C;C;5;;|;;$S(X?5N:$$EXTDATE^vhLib.DataTypes(X,,,""),1:X)\12;-N;R;7;;;;
T151 ;1;C;R;1;;;;\1;N+;R;7;;|\4;C;L;50;;
T16 ;" OrderNr|Korttekst                | Toelnr|        Prijs | Aantal | Lev.| Fys-st"
T17 ;1;C;R;1;;;;$S(X:$S($$CHKCUST^KLACHT3(KC,"B",X):"i",1:""),1:"") I $L(R),$D(FMTK) W @FMTK\1;N+;R;7;;| ;1;X W:$D(FMTk) @FMTk\2;C;R;8;; | ;1\4;C;L;25;; |;1\9;C;R;1;;;1;$S(X="S":"Z",1:X)\5;NC;R;7;;| ;1\6;C;L;4;; |\26;C;R;1;;\7;N;R;12;2;\8;C;R;3;;
T171 ;1;C;R;1;;;;\1;N+;R;7;;| \2;C;R;8;; | \4;C;L;50;;;13
T18 ;LevBonNr| Dat/ordn | Korttekst                 | Aantal |Status|      Prijs
T19 ;4;C;L;25;; | \5;N+;R;3;; | \$S($P(FL(3),D,3)'="":$G(^MBLOG("D",$$IO^cQ5,KC,$P(FL(3),D,2))),1:"");N+;R;3;; | \3;C;L;40
T20 ;Korttekst                 | Qty |MBQty|Klantreferentie
T21 ;""""";C;C;1;;\1;N;R;8;;|\2;C;R;9;; |\3;C;R;9;; |\4;N;R;12;"_$$MUNT^vhRtn1(,4)_";|\5;C;R;9;; |\6;N;R;12;"_$$MUNT^vhRtn1(,4)_";|;9\7;N;R;5;;|\8;NC;R;5;;"
T22 ;"";C;C;1;;\"Factnr";C;L;8;;|\"Fact dat ";C;R;10;;|\"Verv dat ";C;R;10;;|\"Bedrag "_$$MUNT^vhRtn1(,1)_" ";C;R;12;;|\"Bet dat ";C;R;10;;|\"Bedrag "_$$MUNT^vhRtn1(,1)_" ";C;R;12;;|\"Vrv ";C;R;5;;|\"Rap ";C;R;5;;

T24 ;1.1;C;L;1;;;;$S(X:"*",1:"")\2;C;L;25;;|;16\3;-NC.;R;6;;|\1.1;C;R;8;;|;$S($P(FL(3,1),D):"",1:$P(FL(3),D,16));$S(X:$P(FL(3,1),D,2)+$P(FL(3,1),D,3),1:$S($P(FL(3),D,17):"Niet act",1:$P(FL(3),D,5)))\6;N.+;R;9;2;|\9;N.+;R;9;2;|;;$S($L($P(FL(3),D,51)):$P(FL(3),D,51),1:X)\7;C;L;3;;|\8;C;L;1;;|\15;N-;R;11;;;;##class(BL.Legacy.Stock).GeefFysischeStockMinReservaties(X)
T25 ; Korttekst                | Stuks|Dat l pr|Lst prijs|Hui prijs|Mnt|E| Fys Stock`-1

 ; Maskeren prijzen voor bezoek Blum (activeren via method GeefSuffixPrijsInfoBijVerkoopAnalyse())
T24xZonderPrijsInfo ;1.1;C;L;1;;;;$S(X:"*",1:"")\2;C;L;25;;|;16\3;-NC.;R;6;;|\1.1;C;R;8;;|;$S($P(FL(3,1),D):"",1:$P(FL(3),D,16));$S(X:$P(FL(3,1),D,2)+$P(FL(3,1),D,3),1:$S($P(FL(3),D,17):"Niet act",1:$P(FL(3),D,5)))\99;N.+;R;9;2;|\99;N.+;R;9;2;|;;$S($L($P(FL(3),D,51)):$P(FL(3),D,51),1:X)\99;C;L;3;;|\8;C;L;1;;|\15;N-;R;11;;;;##class(BL.Legacy.Stock).GeefFysischeStockMinReservaties(X)
T25xZonderPrijsInfo ; Korttekst                | Stuks|Dat l pr|         |         |   |E| Fys Stock`-1

T26 ;1;N+;R;7;; | ;1\4;C;L;25;; | ;1\11;C;L;1;; |;1\10;C;L;1;;\6;NC;R;10;2;;1\8;C;R;3;;\7;C;L;1;;|\5;N;R;8;;|\9;C;R;5;;;;$S(X=".":"Stock",1:$P(X,"#")_$S($P(X,"#",2)="A":" d",1:" w"))
T27 ;Offerte | Korttekst                 |Typ| Dat     Prijs | Aantal |LevTrm
T28 ;1;C;L;1;;;;$S(X:$S($$CHKCUST^KLACHT3(KC,"V",X):"i",1:""),1:"") I $L(R),$D(FMTK) W @FMTK\1;N;R;8;;| ;;X W:$D(FMTk) @FMTk\2;C;L;8;; | \4;C;L;25;; |\15;C;R;1;;;;$S(X="S":"Z",1:X)\5;N;R;8;;|\6;N;R;10;2;\12;C;L;1;;| \8;C;L;3;; | \7;C;L;1;;
T281 ;1;C;L;1;;;;$S(X:$S($$CHKCUST^KLACHT3(KC,"V",X):"i",1:""),1:"") I $L(R),$D(FMTK) W @FMTK\1;N;R;8;;| ;;X W:$D(FMTk) @FMTk\2;C;L;8;; | \5;C;L;57;;;$G(PrintMod)'="T"&$D(Q)&($P(FL(3),D,19)'=0)
T29 ;Proforma | Datum    | Korttekst                 |  Aantal |     Prijs | Mnt | E
T30 ;16;C;L;1;;;;$S(FULL&X:"*",1:"")\2;C;L;25;;|\17;-N0;R;3;; |\18;-N;R;7;;|\19;-N;R;7;;|\20;-N;R;7;;|\21;-N;R;7;;|\22;-N;R;7;;|\23;-N;R;7;;;
T31 ; Korttekst                |  F |HuidMnd| Mnd-1 | Mnd-2 | Mnd-3 | Mnd-4 | Mnd-5 
 ;
 ;Tabeldefinitie
TDF S UTZ(2)=$P($T(T1),U,2,999),UTZ(3)=8,UTZ(8)=$P($T(T2),U,2)
 Do SWVKA($G(ShowM))

 New blnPrijzenTonen  Set blnPrijzenTonen=1
 New SuffixPrijsInfo  Set SuffixPrijsInfo=##class(BL.Legacy.Product).GeefSuffixPrijsInfoBijVerkoopAnalyse(blnPrijzenTonen)

 S KGA(2)=$P($T(T30),U,2,999),KGA(3)=8,KGA(8)=$P($T(T31),U,2)
 S VMB(2)=$P($T(@("T24"_SuffixPrijsInfo)),U,2,999),VMB(3)=8,VMB(8)=$P($T(@("T25"_SuffixPrijsInfo)),U,2),VMB(4)=24-8,VMB(12)="s FL(3,1)=$D(^MBLOG(""D"",$$IO^cQ5,KC,$P(FL(3),D,15)))_D_$G(^MBLOG(""D"",$$IO^cQ5,KC,$P(FL(3),D,15)))"
 S FLD(2)=$P($T(T5),U,2,999),FLD(2,1)=$P($T(T51),U,2,999),FLD(3)=8,FLD(8)=$P($T(T6),U,2),FLD(10)="CBFZ^RPLKL2b"
 S PLD(2)=$P($T(T28),U,2,999),PLD(2,1)=$P($T(T281),U,2,999),PLD(3)=8,PLD(8)=$P($T(T29),U,2),PLD(10)="CBFZ^RPLKL2b"
 X "S MOM(2)="_$P($T(T7),U,2,999)
 S MOM(3)=8,MOM(4)=6,MOM(8)=$P($T(T8),U,2)
 X "S DEM(2)="_$P($T(T9),U,2,999)
 S DEM(3)=15,DEM(8)=$P($T(T10),U,2)
 S LAD(2)=$P($T(T11),U,2,999),LAD(3)=21,LAD(8)=$P($T(T12),U,2)
 S OFA(2)=$P($T(T13),U,2,999),OFA(3)=9,OFA(8)=$P($T(T14),U,2)
 S ORD(2)=$P($T(T15),U,2,999),ORD(2,1)=$P($T(T151),U,2,999),ORD(3)=8
 X "S ORD(8)="_$P($T(T16),U,2)
 S ORD(10)="CBORD^RPLKL2"
 S BON(2)=$P($T(T17),U,2,999),BON(2,1)=$P($T(T171),U,2,999),BON(3)=8,BON(8)=$P($T(T18),U,2),BON(10)="CBBON^RPLKL2"
 S PRF(2)=$P($T(T19),U,2,999),PRF(3)=8,PRF(8)=$P($T(T20),U,2)
 X "S BGD(2)="_$P($T(T21),U,2,999)
 S BGD(3)=10,BGD(8)=$P($T(T22),U,2,999)
 S RAP(2)=$$UPCASE^vhRtn1("RPLKLRAP"),RAP(3)=8,RAP(5)=132,RAP(8)=^LD("L",$$UPCASE^vhRtn1("RPLKLRAP"),"H")
 S VKG(2)=$$UPCASE^vhRtn1("RPLKLVKG"),VKG(3)=10,VKG(5)=132,VKG(8)=^LD("L",$$UPCASE^vhRtn1("RPLKLVKG"),"H")_"`-2`|:"
 S OBL(2)=$$UPCASE^vhRtn1("RPLKLOBL"),OBL(3)=8,OBL(5)=132,OBL(8)=^LD("L",$$UPCASE^vhRtn1("RPLKLOBL"),"H")
 S OFF(2)=$P($T(T26),U,2,999),OFF(3)=8,OFF(8)=$P($T(T27),U,2)
 Q
 ;
 ;Verwijder ballast
VBA F I=4,7,10:1:12,14,15,17:1:22 S $P(U2,U,I)=""
 Q
 ;
 ;Initialisatie
1 W @F61,@F11,@F1
 D TI^RPLKL
 K:'$D(KC) ^HULP($J) D GETUSER^DEFAULTS(,"RPLKL"),TDF S (SW2,KCX,KIF)=0,(SW4,SW5)=1,VTB="",K=$D(^KKL(0,0))
11 S X=SW4+'($N(^(SW4+1*100))=-1) I X'=SW4 S SW4=X G 11
 F X=101,102 S U2=^(X) D VBA S A(X)=U2
 ;
YZ Q
 ;
SWVKA(Marge) 
 I 'Marge D
 .S VKA(2)=$P($T(T3),U,2,999)
 .S VKA(3)=9,VKA(8)=$P($T(T4),U,2)
 E  D
 .S VKA(2)=$P($T(T3M),U,2,999)
 .S VKA(3)=9,VKA(8)=$P($T(T4M),U,2)
 Quit
 
KLANTVAN 
 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",40)
 Q:'$L($P($G(B(2)),D,10))
 S FP=$P(U2,U,5)*100+$P(U2,U,6)+$L(U3)+1 W @F,@FMTK
 W "("_$P(B(2),D,10) W:$D(^KK1($P(B(2),D,10))) " "_$P(^KKL(^KK1($P(B(2),D,10)),0),D,2) W ")",@FMTk
 Quit
 
COMMOVERDR(OmzScrns,U2,U3)
 New Field,FKLNr,TKLNr
 Set (FKLNr,TKLNr)=""
 Set:$E($G(OmzScrns)) FKLNr=$G(OmzScrns($E(OmzScrns)))
 Set:$E($G(OmzScrns),2) TKLNr=$G(OmzScrns($E(OmzScrns,2)))
 Do:FKLNr
 . Set Field=$P(U2,U,16),U3=$P(^KKL(^KK1(FKLNr),0),D,Field#100)
 . Set:TKLNr U3=U3_"+"_$P(^KKL(^KK1(TKLNr),0),D,Field#100)
 Quit
 
cANT25(Label,R1,R2,R3)
 New J1,KLNr,KTemp,R1Temp,R2Temp,R3Temp
 Merge R1Temp=R1,R2Temp=R2,R3Temp=R3
 Do:$G(OmzScrns)=""
 . Set J1=I1
 . Do @($G(Label)_$S($G(Label)=6:"",1:"^cANT25"))
 Do:$E($G(OmzScrns))
 . Set KLNr=$G(OmzScrns($E(OmzScrns))),J1=^KK1(KLNr)
 . Do @($G(Label)_$S($G(Label)=6:"",1:"^cANT25"))
 Do:$E($G(OmzScrns),2)
 . Kill R1,R2,R3
 . Merge R1=R1Temp,R2=R2Temp,R3=R3Temp
 . Set KTemp=K,KLNr=$G(OmzScrns($E(OmzScrns,2))),J1=^KK1(KLNr)
 . Do @($G(Label)_$S($G(Label)=6:"",1:"^cANT25"))
 . Set K=K+KTemp
 Quit
 ;
 ; Berekenen van de local R1 voor het klantenscherm 7
CalcR1Scr7(R1)
 Quit R1-(DM>6)
 ;
 ; tonen boekjaren op scherm
6 S RS0=DJ_"."_DM
61 S RS2=@("^"_Q_"BA(2)"),RS1=$G(^(26))
63 S RS4=$P(RS2,D,2) I RS0>RS4 S RS1=RS1+1,RS3=RS4\1*12+(RS4#1*100)_D_$E(RS4+1_0,1,7)_D_RS4_D,RS2=RS3_RS2
65 I RS1<5 S RS3=$P(RS2,D,RS1+1*3),RS4=$E(RS3-1_0,1,7),RS2=RS2_D_(RS4\1*12+(RS4#1*100))_D_RS3_D_RS4,RS1=RS1+1 G 65
67 F RS1=1:1:5 S RS4=$P(RS2,D,RS1*3-1)\1 W /CUP(U2(2),77-(RS1*14)+10),"BJ ",/SGR(4),RS4,/SGR(0)
69 K RS0,RS1,RS2,RS3,RS4 Q
 ;