RPLKL320 ;RAADPLEGEN KLANTEN ;RPLKL; Quit naar RPLKL [ 03/11/2002  11:34 AM ]
 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;;|\5;N+;R;4;1;|\6;N+;R;4;1;|\9;N+.;R;6;;|;;\10;N+;R;3;;|;;\11;C;R;8;;|;;$$EXTDATE^vhDTyp(X)\12;C;R;8;;|;;$$EXTDATE^vhDTyp(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,16)\3;-N.;R;6;;|\5;C;L;8;;|;$P(FL(3),D,16)\6;N.+;R;9;2;|\9;N.+;R;9;2;|\7;C;L;3;;|\8;C;L;1;;|\12;-N;R;10;; 
T4 ; Korttekst                | Stuks|Dat l pr|Lst prijs|Hui prijs|Mnt|E| Reele omz`-2
T5 ;0;C;L;1;;\1;N;L;8;;| \2;C;L;8;; | \4;C;L;25;; |\5;N;R;9;;|\6;N+;R;10;2;\12;C;L;1;;| \8;C;L;3;; | \7;C;L;1;;
T6 ; Faktuur | 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;;
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;;
T10 ; Korttekst                 |   Aant kom | Aant stock |      Omzet
T11 ;1;NC;R;5;;| \2;C;L;25;; | \5;C;L;25;; | \7;C;L;16;;
T12 ; Nr. | Naam                      | Adres                     | Gemeente
T13 ;2;C;R;1;; \1;N;L;8;;| \3;C;L;8;; | \4;C;L;8;; |\5;N;R;13;2; \10;C;L;3;; |\11;N;R;11;;|;13\12;N;R;11;;|;1\9;C;R;3;; 
T14 ; Faktuur  | Fakt dat | Verv dat |    Bedrag    Mnt | Onbetaald | Vervallen | Ar`-2
T15 ;1;N+;R;7;;|;1\4;C;L;25;;|;1\11;N.+C;L;6;;;14\13;C;R;1;;|;14\10;C;L;1;;\6;N;R;10;2;\8;C;R;3;;\7;C;L;1;;|\5;N;R;8;;|\9;C;R;5;;|;\12;N+;R;7;;
T16 ;Ordernr|Korttekst                | Toelnr|         Prijs | Aantal |Levwk| Fys-st
T17 ;1;N+;R;9;;| ;1\2;C;R;8;; | ;1\4;C;L;25;; |;1\5;NC;R;8;;|;1\6;C;R;6;; |\7;N;R;11;2;\8;C;R;3;;
T18 ; Levernr | Dat/ordn | Korttekst                 | Aantal | Levwk |     Prijs
T19 ;4;C;L;25;; | \5;N+;R;3;; | \$S($P(FL(3),D,3)'="":$G(^MBLOG("D",$$IO^cQ5,KC,"P",$P(FL(3),D,1))),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;;|\5;C;R;9;; |\6;N;R;12;;|;9\7;N;R;5;;|\8;NC;R;5;;
T22 ;"";C;C;1;;\"Faktnr";C;L;8;;|\"Fakt 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:$P(FL(3),D,5))\6;N.+;R;9;2;|\9;N.+;R;9;2;|\7;C;L;3;;|\8;C;L;1;;|\15;N-;R;11;;;;$$GETSTOCK^PRODUKT4(X,"F")
T25 ; Korttekst                | Stuks|Dat l pr|Lst prijs|Hui prijs|Mnt|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:X_" ")
T27 ;Offerte | Korttekst                 |Typ| Dat     Prijs | Aantal |LevTrm
T28 ;0;C;L;1;;\1;N;L;8;;| \2;C;L;8;; | \4;C;L;25;; |\5;N;R;9;;|\6;N+;R;10;2;\12;C;L;1;;| \8;C;L;3;; | \7;C;L;1;;
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)
 S VKA(2)=$P($T(T3),U,2,999),VKA(3)=9,VKA(8)=$P($T(T4),U,2)
 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),U,2,999),VMB(3)=8,VMB(8)=$P($T(T25),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(3)=8,FLD(8)=$P($T(T6),U,2)
 S PLD(2)=$P($T(T28),U,2,999),PLD(3)=8,PLD(8)=$P($T(T29),U,2)
 S MOM(2)=$P($T(T7),U,2,999),MOM(3)=8,MOM(4)=6,MOM(8)=$P($T(T8),U,2)
 S DEM(2)=$P($T(T9),U,2,999),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(3)=8,ORD(8)=$P($T(T16),U,2)
 S BON(2)=$P($T(T17),U,2,999),BON(3)=8,BON(8)=$P($T(T18),U,2)
 S PRF(2)=$P($T(T19),U,2,999),PRF(3)=8,PRF(8)=$P($T(T20),U,2)
 S BGD(2)=$P($T(T21),U,2,999),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 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 K:'$D(KC) ^HULP($J) D 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
 ;
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
 ;
Z X ^cZ Q
ZZ ; 17.06.91 - 10 u 08