KAKA7 G 1 ;ARTIKEL/KLANT ANALYSE OP HET SCHERM ;(BEPAALDE PROD.);KAKA1; [ 04/20/2001  3:31 PM ]
T1 ;Rangschikking volgens
T2 ;Klantnaam [] of Aantal verkochte goederen V[]
T10 ; Klant                                 |  Stuks |  Ln | Dat L PR | Laatste prijs | Huidige Prijs|    Omzet 
T11 ;"2;C;L;4;;  \3;C;L;33;;|\4;N;R;8;0;|\5;N;R;5;0;| \6;C;R;8;; |\7;C;R;1;;\8;N;R;10;2;\9;C;R;3;; |\10;N;R;10;2;\11;C;R;3;; |\12;N;R;10;"_FAMNTRND
T12 ;"""Totaal"";C;L;39;;|\1;N;R;8;0;|\2;N;R;5;0;| \"" "";C;R;8;; |\"" "";C;R;1;;\"" "";C;R;13;; |\"" "";C;R;13;; |\3;N;R;10;"_FAMNTRND
T20 ; Geen verkoopinformatie gevonden over dit produkt 
 ;
1 SET R="RS\23\2\"_$PIECE($TEXT(T1),U,2)_"\"""_$PIECE($TEXT(T2),U,2)_"""\1\\""-V""[K" DO ^cA100 GOTO YZ:K="-"
 SET FAMNTRND=0 ;$$MUNT^vhRtn1(,4)
 
10 SET FP=101 WRITE @F,@F1,@F4,"Artikel/Klant analyze ",@F5
 S PR=$$SELECT^PRODUKT6() G:'PR YZ
 GOTO:RS="V" CONT
 ; Kopieren van de gevens naar een hulp bestand geordend volgens Leverancier
 K @("^"_Q_"HULP($J)") SET I=1
LOOP G:'$D(^AKANAL(PR,I)) CONT SET Tot=^(I)
 ; Rangschikken volgens klantnaam 
 SET ^KHULP($J,$PIECE(Tot,D,1))=Tot
 SET I=I+1 G LOOP
CONT ;
 SET FP=101 WRITE @FS132,@F,@F1,@FMTI," Artikel/Klant analyze ",@FMTi
 SET FP=130 WRITE @F,@FMTB,$P(^KPR(PR,2),D,25) S FP=142 W @F," : ",$P(^KPR(PR,0),D,1),@FMTb
 SET FP=185 W @F,$P(^AKANAL,D,1)," - ",$P(^AKANAL,D,2)
 SET FP=201 WRITE @F,@FMTI,$PIECE($TEXT(T10),";",2),@FMTi
 IF '$D(^AKANAL(PR)) SET FP=301 W @F,@FMTK,@FMTB,$P($T(T20),U,2),@FMTk,@FMTb
 ELSE  XECUTE "SET FL(1)="_$PIECE($T(T12),U,2,9999) SET FL(2)=301,FL(3)=^AKANAL(PR) WRITE @FMTU DO FL^PROC WRITE @FMTu
 ; Tonen lijst
 SET:RS="V" AK(1)="^AKANAL(PR" SET:RS'="V" AK(1)="^"_Q_"HULP($J)"
 XECUTE "SET AK(2)="_$PIECE($TEXT(T11),U,2,9999) SET AK(3)=4,AK(6)=0,AK(7)=1,DL(1)="AK"
 
 DO:RS'="V" RL^PROC1 DO WL^PROC,SL^PROC WRITE @FS80 GOTO 10
 
YZ QUIT
 
 ;