cA3221 ;FAX INTERFACING - TKFAX - DEEL 2 ;%A3221; [ 01/04/01  1:55 PM ]
 ;
T0 ;Fax interfacing - deel 2 ;
T1 ;Het fax-nummer is niet ingevuld bij ;
T2 ;Het bestand buiten de database kan niet gelezen worden;
T3 ;Contactpersoon bij ;\"xxxxx[] = naam";
T4 ;? ;klant ;leverancier ;
T5 ; ;KL\K1;LE\L1;NP\NP1;
T6 ;0;213;224;213;
 ;
T0F ;Interface au fax - part 2 ;
T1F ;Le numéro de fax manque chez ;
T2F ;Impossible de lire le fichier en dehors de la base de donnees;
T3F ;Personne a contacter chez ;\"xxxxx[] = nom";
T4F ;? ;client ;fournisseur ;
T5F ; ;KL\K1;LE\L1;NP\NP1;
T6F ;0;213;224;213;
 ;
T0E ;Fax interfacing - deel 2 ;
T1E ;The fax number is not present in ;
T2E ;Cannot make a file out of the database;
T3E ;Contact at ;\"xxxxx[] = name";
T4E ;? ;customer ;supplier ;
T5E ; ;KL\K1;LE\L1;NP\NP1;
T6E ;0;213;224;213;
 ;
1 U $P D ^cA606 S K=$T(@("T5"_QT)),KL=2 F I=2:1:$L(K,U) I $P(K,U,I)=$P(FAXNR,D,1,2) S KL=I Q
11 S R="^"_QS_Q_$P(FAXNR,D)_"($G(^"_QS_Q_$P(FAXNR,D,2)_"("_KC_"),"" ""),0)"
12 S L=$P($G(@R),D,2),K=$P($T(@("T6"_QT)),U,KL),K=$P(^(K\100-1),D,K#100)  
 ; de volgende lijn is afgesplitst van lijn 12 omdat vanaf 01.01.2000
 ; iedereen in België het zone-nummer moet vormen.
 ;,A=$P($G(@("^"_QS_Q_"BA(39)")),D,5) I $E(K,1,$L(A))=A S K=$E(K,$L(A)+1,$L(K)) 
13 F  Q:$E(K)?1N!'$L(K)  S K=$E(K,2,$L(K))
14 I '$L(K) S R=$P($T(@("T1"_QT)),U,2)_$P($T(@("T4"_QT)),U,KL)_L D MS G YZ
15 S $P(FAXPARAM,"`",5)=K,$P(FAXPARAM,"`",6)=L
16 G 2:$P(FAXPARAM,"`",9)="N" I $P(FAXPARAM,"`",4)=2 S $P(FAXPARAM,"`",4)=$P(@R,D,3)
17 I $P(FAXPARAM,"`",4)=1 S R="KONTB\22\3\"_$P($T(@("T3"_QT)),U,2)_$P($T(@("T4"_QT)),U,KL)_L_$P($T(@("T3"_QT)),U,3)_"\24\\1\" D R0 S $P(FAXPARAM,"`",4)=K
 ;
2 C %DEV
 I $ZV["MSM" O %DEV:(%FILE:"R") U %DEV I $ZA<0 S R=$P($T(@("T2"_QT)),U,2) D MS G YZ
 I $ZV'["MSM" S %DEV=%FILE O %DEV:"R":1 I '$T S R=$P($T(@("T2"_QT)),U,2) D MS G YZ
21 S TKWPD="^HULP(""FAX"",Q,"_$J_")" K @TKWPD
22 S ZFR="0",ZTO="O",ZFF=$C(12) F I=0:1:31 S ZFR=ZFR_$C(I)
 S I=1 ;I $D(UHD),$D(@("^"_QS_Q_UHD_"BA(""FAXH"")")) S @TKWPD@(I)="~FAX GRAPHIC="_^("FAXH"),I=I+1
23 I $ZV'["MSM" S $ZT="CERR^"_$T(+0)
 F I=I:1 U %DEV R K S ZC=$ZC,SW=K[ZFF D  Q:ZC<0
 . I $ZV'["MSM" S K=$$NT2D^cQCV(K)
 . I SW S @TKWPD@(I)=$TR($P(K,ZFF),ZFR,ZTO),K=$P(K,ZFF,2),I=I+1 I ZC'<0 S @TKWPD@(I)="~P",I=I+1
 . S @TKWPD@(I)=$TR(K,ZFR,ZTO)
24 I HAND=".",$D(QU),$L(QU),$D(^TKFAXS(QU))#10 S @TKWPD@(I)="~FAX GRAPHIC=^TKFAXS("""_QU_""")",^(I+1)=HANDN
25 C %DEV,FAX U $P D QUEUE^TKFAXQ
 I $ZV["MSM" S K=$ZOS(2,%FILE) ;K @TKWPD 
 I $ZV'["MSM" S K=$ZF(-1,"del "_%FILE) ;K @TKWPD 
26 S D="\"
 ;
YZ C:%DEV %DEV C:$G(FAX) FAX K FAX,%S1,%S2,%S3,RP,RR,ZFR,ZTO Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
MS U $P S FP=2403+F60 W @F,@F4,R,"  [] = ok ",@F5,@F2,@F0 R K
MSZ Q
 ;
 ; Caché error-trap
CERR C %DEV U 0 I $ZE["<ENDOFFILE>" G 24
 S %=$ZE,%ZTRAP="CERR^"_$T(+0) D ^cA400
 ZQ 1 I $ZT'="" G @$ZT
 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84