cA3220 ;FAX INTERFACING - TKFAX ;%A3220 ; [ 09/06/01 3:35 PM ] ; T0 ;Fax interfacing ; T1 ;Alle HFS-buffers zijn in gebruik; T2 ;Kan geen bestand aanmaken buiten de database; T3 ;Contactpersoon binnen de eigen firma\"; T4 ;Contactpersoon bij de bestemmeling\"1[] = vragen 2[] = naam 2-de lijn xxxxx[] = naam"; T5 ;Het eigen fax-nummer is niet ingevuld in TK-Fax; T6 ; Faxen gestart, druk Ctrl-C om te stoppen ... ; T7 ;Handtekening toevoegen\".[] = ja [] = nee"; T8 ;Ok om dit document te faxen\".[] = ok ,[] = hernemen"; ; T0F ;Interface au fax ; T1F ;Tous les tampons HFS sont occupés; T2F ;Impossible de créer un fichier en dehors de la base de donnees; T3F ;Personne a contacter dans votre firme\"; T4F ;Personne a contacter chez le destinataire\"1[] = demander 2[] = nom 2ième ligne xxxxx[] = nom"; T5F ;Votre numéro de fax n'est pas rempli en TK-Fax; T6F ; Le fax est demarré, tapez 'Ctrl-C' pour interrompre ... ; T7F ;Ajouter signature\".[] = oui [] = non"; T8F ;Ok pour faxer ce document\".[] = ok ,[] = reprendre"; ; T0E ;Fax interfacing ; T1E ;All HFS-buffers are in use; T2E ;Cannot make a file out of the database; T3E ;Contact inside own company\"; T4E ;Contact at destination\"1[] = demand 2[] = name 2' line xxxxx[] = name"; T5E ;Your own fax number is not present in TK-Fax;££ T6E ; Fax started, press Ctrl-C to stop ... ; T7E ;Append signature\".[] = yes [] = no"; T8E ;Ok to send this document\".[] = ok ,[] = retry"; ; T0D ;Fax interfacing ; T1D ;Alle HFS-buffers zijn in gebruik; T2D ;Kan geen bestand aanmaken buiten de database; T3D ;Contactpersoon binnen de eigen firma\"; T4D ;Contactpersoon bij de bestemmeling\"1[] = vragen 2[] = naam 2-de lijn xxxxx[] = naam"; T5D ;Het eigen fax-nummer is niet ingevuld in TK-Fax; T6D ; Faxen gestart, druk Ctrl-C om te stoppen ... ; T7D ;Handtekening toevoegen\".[] = ja [] = nee"; T8D ;Ok um diese Dokument zu faxen\".[] = ok ,[] = wiedernehmen"; ; 1 I $D(@("^"_QS_Q_"BA(""FAX"")")),^("FAX")'="TKFAX" G ^cA3225 I $ZV["MSM" S %DEV=$$HFS^cQ9 I '%DEV S R=$P($T(@("T1"_QT)),U,2) D MS G BACK 11 ;S %FILE="C:\HULP"_$J_".FAX" S %FILE=$$INFO^cQ14,%FILE=$P(%FILE,"\",1,$L(%FILE,"\")-1)_"\HULP"_$J_".FAX" I $ZV["MSM" O %DEV:(%FILE:"W") U %DEV I $ZA<0 S R=$P($T(@("T2"_QT)),U,2) D MS G BACK I $ZV'["MSM" S %DEV=%FILE O %DEV:"WNS":1 I '$T S R=$P($T(@("T2"_QT)),U,2) D MS G BACK 12 U $P ; 2 S FAXPARAM=$G(QU) S $P(FAXPARAM,"`",3)=$P(FAXNR,D,4),$P(FAXPARAM,"`",7)=1 21 S K=$G(^TKFAXC("DEFLTS"),"Y\Y\N\Y\A\9\") F I=1:1:$L(K,D) S $P(FAXPARAM,"`",I+8)=$P(K,D,I) 22 S $P(FAXPARAM,"`",15)="N" F I=16,17 S $P(FAXPARAM,"`",I)="" 23 S (HAND,HANDN)="" I $D(QU),$L(QU),$D(@("^"_QS_Q_"UI1(QU)")) S HANDN=$P(@("^"_QS_Q_"UI(^(QU),0)"),D,2) 24 I $P(FAXNR,D,3),$D(QU),$L(QU),$D(^TKFAXS(QU))#10 S R="HAND\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\"".-,""[K\" D R0 G BACK:K="-"!(K=",") 25 I $P(FAXPARAM,"`",9)="N" G 4 ; 3 S R="KONT\22\3\"_$P($T(@("T3"_QT)),U,2)_$S($L(HANDN):"[] = "_HANDN,1:"")_"""\24\\\" D R0 I K="-" G BACK 31 S R="KONTB\22\3\"_$P($T(@("T4"_QT)),U,2)_"\24\\""12-""[K&$L(K)=1!1\" D R0 G 2:K="-" 32 S $P(FAXPARAM,"`")=KONT,$P(FAXPARAM,"`",4)=KONTB,K=$P($G(^TKFAXC("FAX")),D,3) I '$L(K) S R=$P($T(@("T5"_QT)),U,2) D MS G BACK 33 S $P(FAXPARAM,"`",2)=K ; 4 S R="K\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\"".,-""[K&$L(K)\" D R0 I K="-"!(K=",") G BACK ; 5 S F70="U %DEV",F71="U $P D ^cA606,^cA3221 U $P D ^cA606 S F71="""_$$DOUBLEQ^cQ9(F71)_"""" 51 S F70=F70_" S %S1="""_%S1_""" D ^cA605" I $D(QP),QP,'$D(%S3) S F71=F71_" S F70=""D ^cA322""" 52 I $D(%S3),$L(%S3) X %S3,F71 G YZ 53 I '$P($G(^cLOG(boot,"DAM",2)),D) S FP=2201+F60 W @F,@F1,$P($T(@("T6"_QT)),U,2) X F70 Q ; YZ C:%DEV %DEV K %S1,%S2,%S3,RP,RR 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 K R0,R1 D ^cA100 Q ; MS U $P S FP=2403+F60 W @F,@F4,R," [] = ok ",@F5,@F2,@F0 R K MSZ Q ; BACK C:%DEV %DEV I '$P($G(^cLOG(boot,"DAM",2)),D) G ^cA322 E S K="-" Q ; ZZ ; 22.06.04 - 16 u 32 * V8