ࡱ                >  	               
         (   	         y          q 	                 bjbjt+t+                  	   A A                                                                ]                                                                                                                                                                   T  n                                  $         D                                                                                                                                                                                                  T                                                                     T                          T                                                                            T                  `r>ʿ                     T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  . A!"#$%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     q 	                  bjbjt+t+                  	   A A                                                                   ]                                                                                                                                                                                                                                                                             
  [         0  @ 0   N o r m a l       _HmH	sH	tH	                  < A@ <   D e f a u l t   P a r a g r a p h   F o n t                                                    I X O S   A S  C : \ s a p g u i \ S A P G U I \ W s 8 h r p a e . d o t  I X O S   A S  C : \ s a p g u i \ S A P G U I \ W s 8 h r p a e . d o t  I X O S   A S  C : \ s a p g u i \ S A P G U I \ W s 8 h r p a e . d o t  g e r d b  C : \ S A P G U I \ S A P G U I \ W s 8 h r p a e . d o t  I X O S   A S  C : \ s a p g u i \ S A P G U I \ W s 8 h r p a e . d o t  I X O S   A S ) C : \ t e m p \ A u t o R e c o v e r y   s a v e   o f   w s 8 h r p a e . a s d  I X O S   A S ) C : \ t e m p \ A u t o R e c o v e r y   s a v e   o f   w s 8 h r p a e . a s d  I X O S   A S ) C : \ t e m p \ A u t o R e c o v e r y   s a v e   o f   w s 8 h r p a e . a s d  I X O S A S * C : \ P r o g r a m   F i l e s \ S A P p c \ S A P G U I \ w s 8 h r p a e . d o t  i X O S   A S   G m b H   L e i p z i g & C : \ P r o g r a m m e \ S A P p c \ S A P G U I \ w s 8 h r p a e . d o t    V              V              V  3            V              V              V  4            V 	             V 
             V              V              V               V              V              V              V              V              V              V  7            V              V              V              V  
            V              V  6            V  	                      (   & S a v e   a n d   b a c k   t o   R / 3         C t r l + S    ( & B a c k   t o   R / 3  C l o s e   N o   S a v e       F i l e C l o s e N o S a v e . M a i n  ) 
}u      i      ( I n s e r t   M e r g e   F i e l d  M e r g e   F i e l d       I n s e r t M e r g e F i e l d . M a i n                                                                 (                            S                      v      
           9       ~ 9              A              )              1              9              !              	A                            	                          8    $           S    L          n    8   P r o j e c t . I n s e r t M e r g e F i e l d . M a i n   P r o j e c t . R 3 M e n u . D i s a b l e F i l e S a v e    P r o j e c t . R 3 W i n S r v . S e t N o S a v e V a l u e s        P r o j e c t . R 3 M e n u . S e t D i s p l a y M o d e O f f   P r o j e c t . R 3 W i n S r v . S e t S a v e V a l u e s   P r o j e c t . R 3 M e n u . D i s a b l e D e l e t e   P r o j e c t . R 3 M e n u . S e t D i s p l a y M o d e O n   P r o j e c t . F i l e S a v e H t m l . M a i n   P r o j e c t . A u t o C l o s e . M a i n  % P r o j e c t . R 3 F H a n d l i n g . R 3 R e w r i t e D a t a F i l e   P r o j e c t . F i l e S a v e A s W e b P a g e . M a i n   P r o j e c t . F i l e S a v e F r a m e A s . M a i n   P r o j e c t . F i l e S a v e V e r s i o n . M a i n   P r o j e c t . F i l e S a v e A s . M a i n   P r o j e c t . R 3 D o c V a r . R e m o v e A l l  % P r o j e c t . R 3 O p e n D o c u m e n t . R 3 O p e n D o c u m e n t       P r o j e c t . R 3 E x e c . R 3 U n L i n k D a t a f i l e   P r o j e c t . F i l e C l o s e N o S a v e . M a i n       P r o j e c t . F i l e C l o s e . M a i n                    P r o j e c t . R 3 D i a l o g . I n i t M e r g e D i a l o g      % P r o j e c t . R 3 F H a n d l i n g . R 3 G e n T e m p D a t a F i l e                                                                                           P r o j e c t . R 3 W i n S r v . S a v e D o c   P r o j e c t . R 3 W i n S r v . T e r m i n a t e       P r o j e c t . F i l e S a v e . M a i n    P r o j e c t . R 3 D i a l o g . S h o w M e r g e D i a l o g     P R O J E C T . F I L E S A V E . M A I N     P R O J E C T . A U T O C L O S E . M A I N     P R O J E C T . F I L E C L O S E . M A I N     P R O J E C T . F I L E S A V E A S . M A I N     P R O J E C T . R 3 W I N S R V . S A V E D O C     P R O J E C T . F I L E S A V E H T M L . M A I N     P R O J E C T . R 3 D O C V A R . R E M O V E A L L     P R O J E C T . R 3 W I N S R V . T E R M I N A T E   	  P R O J E C T . F I L E C L O S E N O S A V E . M A I N   
  P R O J E C T . F I L E S A V E F R A M E A S . M A I N     P R O J E C T . F I L E S A V E V E R S I O N . M A I N     P R O J E C T . R 3 M E N U . D I S A B L E D E L E T E     P R O J E C T . I N S E R T M E R G E F I E L D . M A I N     P R O J E C T . F I L E S A V E A S W E B P A G E . M A I N     P R O J E C T . R 3 M E N U . D I S A B L E F I L E S A V E     P R O J E C T . R 3 W I N S R V . S E T S A V E V A L U E S     P R O J E C T . R 3 E X E C . R 3 U N L I N K D A T A F I L E     P R O J E C T . R 3 M E N U . S E T D I S P L A Y M O D E O N      P R O J E C T . R 3 D I A L O G . I N I T M E R G E D I A L O G      P R O J E C T . R 3 D I A L O G . S H O W M E R G E D I A L O G      P R O J E C T . R 3 M E N U . S E T D I S P L A Y M O D E O F F      P R O J E C T . R 3 W I N S R V . S E T N O S A V E V A L U E S    % P R O J E C T . R 3 F H A N D L I N G . R 3 G E N T E M P D A T A F I L E    % P R O J E C T . R 3 F H A N D L I N G . R 3 R E W R I T E D A T A F I L E    % P R O J E C T . R 3 O P E N D O C U M E N T . R 3 O P E N D O C U M E N T   @          x                             p   @     G                       T i m e s   N e w   R o m a n   5                       S y m b o l   3&                       A r i a l   "  0   h    )&EF    =                                     $                                                                                                                                                                                                                                                                                                                             0    d                  ~z?                                                                       I X O S   A S  I X O S A S                       
  [         H                         Oh +'0   X                                               	            
              ,     8     @     H     P               s         s       IXOS AS        XOS      ws8hrpae.dot  o       IXOSAS e      283       Microsoft Word 8.0  @    Ys   @     @    ̍>ʿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ՜. +,D   ՜. +,L          h      p                                                                          iXOS AS                       1                                                     Title             Titel                          6      >         
   _PID_GUID      A   N   { 2 1 E E 0 F 0 0 - B C 4 B - 1 1 D 3 - 8 9 D 9 - 0 0 0 0 E 8 7 6 A 9 4 8 }                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   edded Object     9q               
                     VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DialogForm 
   Caption         =   "Insert Merge Field"
   ClientHeight    =   3870
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4095
   StartUpPosition =   1  'Fenstermitte
   TypeInfoVer     =   12
End
 ]   ^   _   Q   ThisDocument T h i s D o c u m e n t   R3DocVar R 3 D o c V a r   R3FHandling R 3 F H a n d l i n g   R3Globals R 3 G l o b a l s   R3Variable R 3 V a r i a b l e   FileSave F i l e S a v e   InsertMergeField I n s e r t M e r g e F i e l d   DialogForm D i a l o g F o r m   R3WordError R 3 W o r d E r r o r   R3LogFile R 3 L o g F i l e   R3Dialog R 3 D i a l o g   AutoClose A u t o C l o s e   FileClose F i l e C l o s e   R3Menu R 3 M e n u   R3WinSrv R 3 W i n S r v   FileSaveHtml F i l e S a v e H t m l   FileSaveFrameAs F i l e S a v e F r a m e A s   FileSaveAsWebPage F i l e S a v e A s W e b P a g e   FileSaveVersion F i l  D o c u m e n t S u m m a r y I n f o r m a t i o n           8                                               M a c r o s                                                          a   _                       @&>ʿW
>ʿ            V B A                                                            `                          @&>ʿ0l>ʿ            T h i s D o c u m e n t                                          "                                                                            	   
                                                             !   "   #   $   %   &   '   (   )   *   +   ,   -   .   /   0   1   2   3   4   5   6   7   8   9   :   ;   <   =   >   ?   @   A   C   D   E   F   G   H   J   L   M   N   O   P   Q   R   S   T   U   V   W   X   Y   Z   [   \   ]   ^   _   `   a   c   d   e   g   h   i   j   k   l   m   n   o   p   q   r   s   t   u   v   w   x   z   |   }   ~                   <   K!K  vH	           F                 J!K  vH               x        8           #      J!K  vHK!K  vH                 4            (    SL   S   S    6"       N 0 { 0 0 0 2 0 9 0 6 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } B|g8 $ * \ R f f f f * 2 1 3 8 6 7 4 5 6 f       (                    $   H    `         C 8   $                 $                  $   0                        h              @        0   ME                                                                            	      	        x    Attribut e VB_Nam e = "Thi sDocument"

Bas0{00020P906- 0C $0046}|CreatablFalse^ Predecla Id Tru"@ExposeT emplateD0eriv$eCustomiz2 

    rU                    	       	                        
            )      
        4   Q            y           c                        rU                    	          @        p                                                    _ _ S R P _ 1 a                                                  6                                                 _ _ S R P _ 1 b                                                  5                                             @       F i l e S a v e                                                                                                
      _ _ S R P _ 1 f                                                  /                                          B                                         x        B                                                                         ,      6
    
    L        L    
    L        L        
    <0     <4     <8     <<     <        B|g8 $ * \ R f f f f * 2 2 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f  * \ R 0 * # 1 6  * \ R 0 * # 1 0  * \ R 1 * # d 0 $ * \ R f f f f * 1 a 3 8 6 7 7 c 5 d  * \ R 1 * # c 0  * \ R 1 * # 1 7 c  * \ R 1 * # c 1  * \ R 1 * # 1 7 b $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2         `           Hk              `x                       x      $   @   H  `  x  0  "&*2.   @  t     @p	     @  `     @P        @  L       @H                                 `                  X   ME                                                                                    	      	 J       	 &   X    	       "                    	           * !     	     	        
     	     	 0      
 + H   	        X       `   , 4 h                x      C  Save and back to R/3. Do the same in case of a protected document.             That's no problem. See R3Close.               Z @    `     FileSave.Main    B@  2   Save and back to R/3, wait...   "( $0 0 0     Unlink data file.  &B@(          )  Close the window, AutoClose is executed.   *B@B          ,         2! 4 f  FileSave.Main    .B@0      ,`   l X   P   ߱ Attribut e VB_Nam e = "Fil eSave"
 Option E xplicit 

' l a nd back  to R/3.  Do the sin case  of a pr otected  document.That's no blem . See R3 Close"
Pub w Sub  Main() 
  Dim Data As RS ngO r ror GoTo E
LineAR3Log5.R3Write  (y.3"3Apya.StatusBar, wait.$..  6'  Unlink d U fili  oExec @Un =~kc~w indow, Auto
is e d  ActiveW.##xitn
:}ord	.  Text:=.Descri}, Module:=G@E  h
             rU              ~}         	       	                        	      y            A            i           % 	      Q                          Kr   Ctt
   /t ! p"   $   p p 
    +'P'`p"   $ 8  p  p6 `P   4t	   pp,   CHH>tL

  2 LHp          4  (                      x $          t L H p ` P     k                      rU                    	              $          `               p                                 rU              ~}         	       	     $      %   !         Io      !          % o      ag      y      A            
      Q      k      	p           9           p      y      r           % Q                  	      	            y            y      1                 _ _ S R P _ 1 e                                                                                       I   e       R 3 E x e c                                                      S   I                                       9   .      _ _ S R P _ 2 5                                                  #                                          K         _ _ S R P _ 2 4                                                                                       b           	 (   X    	       "                                   	      	 &                            	            	      .     	     	 ,   H     x   	           4      '    	     	 4      ( .           H   	
     	    P     p    ) x             @      '    	     	              x   	 $      < 2 0    '    	     	 4      ( . (     P     `     p     x             	     	             )              : 2         
 
 p         	     	 ,           	                   . 4                 	     	 6      	    @   	    P  "   X   	        `   	      .  h   	           Z        	     	    2 	   	     	 (   (	   	    P	   >  X	   x  	   	
     	     H
           h
   	         p
       x
   2 4 
       
     
   	      	 "   
   	    
  "   
         	     (      2 0   	        @       H   6 4 P               	          	  Changes:    :  GBo2, Gerd Balzuweit, 15.09.99, Office 200 print problems(      "  Print macro of the merged etters.           Z @   Z X   Z p   h       Z         The mailmerge fields for check...Z    Z    Z             default          single b ngle                ..MailM  %  Link the datasource to the document.       P! R A@T   V! ' :        Got to all records.          Print the actual datarecord.        V! >. <    -  Merge one new document with one data record.           <! X  Z   <! X  \       <( ^       <! b       B9 d  B9 fn                                                                               x      j          r                                                   &             ,    @   (L>    LF    >
    <    <     <     <     <     <     <      <$     <(     L    L    L    L              
    L       *L        
              L        L        
    
        B|g8 $ * \ R f f f f * 1 a 3 8 6 7 7 c 5 d  * \ R 1 * # 1 1 3  * \ R 1 * # 1 1 a  * \ R 0 * # 1 6  * \ R 1 * # 1 1 3  * \ R 1 * # c 6  * \ R 1 * # c 1  * \ R 1 * # 4 4  * \ R 1 * # 6 5 $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f  * \ R 0 * # 1 6  * \ R 0 * # 1 0  * \ R 1 * # 1 1 6  * \ R 0 * # d $ * \ R f f f f * 4 e 3 8 6 7 5 a 8 0  * \ R 1 * # 6 7  * \ R 1 * # 6 6  * \ R 1 * # c 6  * \ R 1 * # 1 7 e  * \ R 1 * # c 1  * \ R 1 * # 1 7 b $ * \ R f f f f * 2 6 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2    X    p      &             `8z         `:t          <p       x      $     $       + `   `B8  n          Dh             $   `Hf         `J   d      Tp    `        J P     P        i           (  `        p  hk    m           $       +       &           $   6     `           o 8    I I     i       &          X      p   @         8  P        `         PTVZ\` @  `      @h  \	        @X	        @  T        @P      @@  @     @  >       @<           (2.        @(  ,        @         @     P         x  `    T $     `  4   A @       @      	    P  p  	    V2       	    x        @   t        @   p	        @   l	        @   \        0     L        @   <        `     ,        @        (                @                        @                  @                   @        P          @   |          l        @   \            L        @   <             ,        @                      @        @          @        	  (        	          (	  @	  	  V2.     @p	  x      @X	  t	      @p	      @	  l       @h                            	             @            
             @             (        (                   
     V2.        x     p   @   t	        @   p	        8   l     (   @   h                   h  X            D     I I               0                  p  X                     ME                                                                         y  	         	 @       	          P    	       h        Execute the mail merge          <! X  \  F   <B@h  g          V! >. <he  ,  If one merge field in the document is empty          don't print the letter.   ' J    j! lB@n       j! l      	 <<ERROR>> 9 f      5 p( f    9 r    v9 t 9     9 x   9 z   9 |   9 ~   9   n     j! lB@h        Check for results.        	 <<ERROR>>   j! f        ' J   % R3PrintFL: merge fields with no data!    B@      R3PrintFL: document   B$      not printed!     B@        B$   f  LB@ h       <( ^     
   Print the document.       	 Printer:        B@          #                              "B@	   !  Some printing problems. GB 09/99   !  Collate:=True, Background:=True, h     4  Close formletter and activate the original document        Active document:    V!     Main document:    :    B@    V!   :          
 #  In some case a dialog box appears.         V!       VB@        h      V! (    
   GBo2       !   V(   V(         Close document:   V!     B@          VB@B         h      :$  B@     B       &  Make the document to 'normal' letter.    A@(     ,       2! 4 f  R3Exec.R3PrintFL   .B@0    ,p  l h     /  Link the datafile with the merge fields to the      
  document.                R3Exec.R3LinkDataFile:        B@                    ! Data file for mailmerge is given!  f  R3Exec.R3LinkDataFile    .B@0       u `  a X      V! >(   !  Open the file with merge fields.        ( ActiveDocument.MailMerge.OpenDataSource       B@     8  
 	 
  
  
  
  
  
 ! 
 % 
 ) 
 - 
 1 
 5 
 9 
                                               V! >B@     Empty fields as newline. h    ,       2! 4 f  R3Exec.LinkDatafile    .B@0     ,  l        Close the mail merge stuff.eSave.       p     X    R3Exec.R3UnLinkDatafile    B@      V! >(  ,       2! 4 f  R3Exec.R3UnLinkDataFile    .B@    ,  l       R3Exec.R3PrintFL mode =       B@      -  Merge one new document with one data record.           <! X  Z   <! X  \     B9 d  B9 fn   h       Execute the mail merge     X    <! X  \  F   <B@h  g    0   
   Print the document.       	 Printer:        B@          #                              "B@	   !  Some printing problems. GB 09/99   !  Collate:=True, Background:=True, h (
   / ActiveDocument.MailMerge: print single letters.    B@   $ R3Exec.R3PrintFL: print all at once.   B@      	     B     `%      ActiveDocument.MailMerge print    B$      B@          B  `%   a x  h p    ActiveDocument.MailMerge skip   B$      B@  (line,0         V! >( atx   Attribut e VB_Nam e = "R3E xec"
'  Changes:,GBo2, G erd Balz uweit, 1 5.09.99,  Office  200 print 
oblems 

Opti on Explicit$' PL macro of  the mer ged etters. v
Pub 3 Sub R"32FL(amode As S  ng)
  D im FileNrIntege:rs0myM:MailiCou e%q' TVX  fields f or check7\EF
/Dalta
3cYf1IErr /DBo olean  O GoTo !LineR3Log.R3W0rite  (7DT S@ +_oT;kBhd!.sourztoCocument#=ink7fi le (R3Gl obalsGebt>lenFIfdefault"Y9   h2: all a t once."  Set { = Active>D/
 ?  ' Èone new d wi$the E r ecordB  C5.Sta= wd nAndSBP Header Or _COFIDes0tinaہSe0ndTox  End&  c'secaq`[q#LRes= N|exxAe/. LMX`lse} TsingleC  ]<D	 lD%E  Da aCGot a!N#@Aa#  F`v= 1 `tL Ext.getNrOfRFs(T**IsCompe(
)AA%8actualS#Sa k5'k" strH
?me E(!b nnE	Ro$pep/߀q$ WF.$  .FixrstCF@La@?B1
;BB2@ CuCgRCbXCD#ED;/ogr/ skip /UaR  .akeZtD'no`rmal'TI";R3UnAx!u~xit1
m1QWh2.Q  RT`[:= .)crib, Mod`ule:=nPE@p*~pc=es;es'(sFEA `q:6 )f}f?4"/@amis g`n!",9~"x _E
n d#r Ԭ.EdnuTypawdimLcoAmOpenɮB)	s	44m.ANS8s8  #:=S\Confirm` v @s:=F
e|ROnly`:=TruqToCAdp0ZpOPass>wP:8]"%TepP/ "Oz	A RetA#awd AEconne	on
 SQLA1)) Empty%Fas=alv)##Su ppressBlankesPt" EZ
UorUogUsUU@6/V=RClosaDu stuffPTa/qq1 Rհ 3LogFile .R3Write Line ("@R3Exec Un DkDataf ")
  A ctiveDoc ument.MailMergen,Type = wdNotA<2
GoTo  Exitq
Error
: ord.Trace
 Text:= .Des cription , Module:=" ^h ] End Sub 

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   <      K   *`
   /`    `
  /`   0   C``
   /` 'X\"   $ 4  \ 	 QXp\ .Tp0 
 lT   Pp0 
 lP        p8 
   K Tp0 
 lT     '@p| 
 5@ K   0  C``
   /` '`\"   $ 4  \ 	 >`1t\ n   c< n  Y 2: nM,@@
  @``
   /`6 @ 'X\"   $ 4  \ 	 QXp\ .Tp0 
 lT   Pp0 
 lP   !    p8 
  \p< 
 Q\ knP   knX         K Tp0 
 lT   Q '@p| 
 5@ K  2: nM,@@
  @``
   /`6 @  
nd<D  
     4`   \\,   C  >`
  2  \         | 4                      t p h (          `    \ X @  0                                                      KQ   Cxx
   /x 2pt"   $ 4  t 	 p, 
 ) tp   4x   tt,    Chh>xl
  2 lht         $                                  x l h t p           a                  rU                    	     %         (      %    `               0(      %   `                0$      %   `               p                                                                     rU              ~}         	       	                 y      &             A            
      	A           A u t o C l o s e                                                 M                                          X   #      _ _ S R P _ 1 d                                                                                            f         _ _ S R P _ 1 c                                                                                       y   e       D i a l o g F o r m                                              ?                                          f         ( $     ,         2! 4 f  AutoClose.Main   .B@0 Des ,  l     h         V!      0   Attribut e VB_Nam e = "Aut oClose" 
Option  Explicit@

' p  the file . Save i s in R3W inSrv.Terminate` if needed. 
Pub  Sub Ma in()
   Dim DataF R As S ngO rro r GoTo E1
Lin X'  If you hopenedtempl , !s us for6custom`izing Q )Right(U Case(Act iveDocument.), 3)DOT" Then+dFalse   #End B#{xitz  R3Log. rite  (."! heckzmo4deB<'ARNot q:Var.GetC("M
"<XI<f : v iew/print $  '@y allsqG#LHProte@conType  <> wdNoGWUnpC:	GQ  ' Unlink d@DB @BExecVUzn UkSet.as .Tru 6@@achedT.ONormalE%hdwAF1  $ Ua' Remo!p.)&|=`+Glob߀b+M
Xn!`?(In(1, p`o"TD.SAPQ> 0) Or _ +~DATAv&seh:E" +bk  &Resa@ Nex@=KBi[Patha:=%cT' ƪ$ a baxo R/3V  A
pa.StatusBarA7_:@
or:db.@xt:=`.D                                                                                                                                                                                                                                                                                                                                                                     esc$ri,  ule:=-
E#@
FSub!\ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # c 6  * \ R 1 * # c 7  * \ R 1 * # c 0  * \ R 0 * # 1 6    8     `           o   8 8          `x                       x      $   @   `  H  x         8  V& @t	      )A            yA      )      A           % 	      )      9B      !     B      B      !C      97                  i      Q                  T      K Xpt"    $ 4  t  >pF`P
     P@
  @:0 ]/ t6 `P@\  *t"    $ 4  t  k t  t"    $ 4  t t     Cpp
  /p #
 Cpp	  # 02 p  Cpp
  /p -t"    $ 4  t< ltJ $'`t"    $ 4  t t5`  
     t"    $ 4  t  t 1c0%`t"    $ 4  tX ` t5`  t"    $ P  t@  t   Cpp
  /p 
     
   1x p   xM0@`
  `:     P(  ]p@   xM@ 
   :     (  ]p6 ` \  lx*p
  /p K xM0@
   K  
    ! t"    $   t t  4p   tt,   C>p
  2 t        (                    x 8          p   t ` P @          k            
     	     	       
   0rU                    	              $          `               p      	 "       
    TrU                    	       	                         C      !I      II      y            A                  
      Q      qI         C      C      	D      1D      C        4   YD      A     D                8   )E      a     QE                                                                                    x                 *                                                                ` @    6
    
    L        L        
        
    L    
         
    
        L        L        L    L    L    L    L    <d     <h     <l     <p     <t     <x     <|     <        B|g8 $ * \ R f f f f * 2 4 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f  * \ R 0 * # 1 6  * \ R 0 * # 1 0  * \ R 1 * # c 0  * \ R 1 * # 1 7 c $ * \ R f f f f * 3 1 3 8 6 7 4 5 6 f  * \ R 0 * # e $ * \ R f f f f * 2 6 3 8 6 7 4 5 6 f  * \ R 1 * # c 7 $ * \ R f f f f * 1 a 3 8 6 7 7 c 5 d  * \ R 1 * # 9 1 $ * \ R f f f f * 2 7 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2  * \ R 0 * # c  * \ R 1 * # c 6  * \ R 1 * # 1 7 e  * \ R 1 * # c 1  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # c 6  * \ R 1 * # c 7  * \ R 1 * # c 0  * \ R 0 * # 1 6    8     `           o   8 8          `x                       x      $   @   `  H  x         8  V& @t	     @  p     @  `     @  P     @  @     @P  0     8  @           @       @       @      0  P"2.     @h       @           @        @        @       	 @      @       @        @                               `                  X   ME                                                                         =           	      	 4       	    @    	    X   "   `       h      p    	      	 8   x    	         $ X      * X   
        P             	           	     	    8   	    P   " # X   0     	        -    
 $         	     	       
     	     	       
   0    1 @   
   P     `   *  h   	       
          	     	 "       
    T p     .  X                       	     	 "      
      !    	                   , 4        8     @   	     p  x      .  Close the file. Save is in R3WinSrv.Terminatee 20     if needed. (                Z @         2  If you have opened the template, this is used for    customizing the template.  V! $    $    DOT        VB@       ,   h      AutoClose.Main   B@  rc    Check the mode.R        DocMode   %    X    tasour  AutoClose.Main: view/print mode    B@      Say all is saved.  V!       VB@     @h        Unlink data.     &B@(            Set all as saved.  V(         V! (     (       a     AutoClose.Main: write mode   B@            Unlink data.       &B@(        h 8      Remove the temp. data file.        P! R'             $    TD.SAP~    
      $   	 ~DATA.SAP ~    
          AutoClose.Main: Remove        B@      p      A@    X   h P       Terminate and back to R/3.         B@             "    	               	      	        	    (   "   0    	    8    
  P      `    	      	    h    	       "       	 6       0 T           	      	 4       	    8  "  	 @   	    H   0 T `   	     	       J     	     	        
       (   	      	 $   0   	    X  "   `   	    h   0 T    	     	       J     	     	        
  8     H   	     X  x        Cancel, do nothing.Or _
                 Do nothing DATA.S  B@  Then
l         Show the comment.       @       0  Show the comment associated by that merge field t      ! !      %     ! ( l        -  Select the the item and add the merge field.  rc                Show the comment.      ! !      %     ! (     Add the merge field.           j!    ! !      %     V! >! B@           Hide the form.     B@        l        Add the selected mergefield.                     Show the comment.      ! !      %     ! (     Add the merge field.             j!    ! !      %     V! >! B@           Hide the form.     B@        l        Attribut e VB_Nam e = "Dia logForm"D

Bas0 {167D746 F-3625-1 1D4-8A38-0  E876A948}J7Jd CreatablAiFalsePredecla DId Tru"E`xpose@T emplateDerivCus tomizD
 
Option  2licit	 ' Cancel , do not hing.
'
P15 SubButton_C k()
`  ' DM e.Hid jEnd0Show  the comment/Merg eListBox/ 0 associLd byat m fieldA! !C Label.Ca>= _  R3Ê.Get(	#.%Index + 1<6`elect67i tem a@>add%<DblU ByVal[ As MSs.R eturnBoolean^U >b>  P' AAR8  Act@DocuzMailɂS.Fgs.` Range:=SkP.,h:=iAdrBhQ"1f`@0#0T>s k"7J7Oka1QUQQ 1ve1@	1@51<oxF1   _ _ S R P _ a                                                     <   
                                       {         _ _ S R P _ b                                                                                                  R 3 G l o b a l s                                                7   1                                       z         _ _ S R P _ c                                                                                                           <   F           9F              `    
   @   F           YF               `     
   D   F           F              ` `1    
 q    
   H   F           F                        P   M!K  vHG!K  vH3!K  vH L!K  vH               x   ,             	W        L!K  vHM!K  vH    $  $  m         4     8       <       @       D       H            X  @   SP   S   S   S   1      6"        L        L    
        L        L    L    L        L    L    L    L    <\     <`     <d     <h     <l     <p     <t     <x     <|     <      
   0 { 1 6 7 D 7 4 6 F - 3 6 2 5 - 1 1 D 4 - 8 A 3 8 - 0 0 0 0 E 8 7 6 A 9 4 8 } { 1 6 7 D 7 4 6 7 - 3 6 2 5 - 1 1 D 4 - 8 A 3 8 - 0 0 0 0 E 8 7 6 A 9 4 8 } B|g8  * \ R 3 * # e $ * \ R f f f f * 2 5 3 8 6 7 4 5 6 f    * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ N T \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y * # 5 7  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ N T \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y * # 4 5 $ * \ R f f f f * 2 f 3 8 6 7 4 5 6 f  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ N T \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y * # 5 1  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ N T \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y * # 4 1  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 2 9  * \ R 1 * # d 4  * \ R 1 * # 1 7 e  * \ R 1 * # c 6  * \ R 1 * # 1 1 3  * \ R 1 * # 1 1 4  * \ R 1 * # 1 1 5      @     `        8  |k          nd I    `          <k         
  A    `        P  k           erge)	               $    `           k    !     he mX  P    (        S   $       X      %   $   @              fie           $              $    0          $                      8                         @   x	         @  h         @X         @H       @F     @@	         @<             8  P  h          	x       $      jV     @  t	        @  d         @T        @D     @B     @  <	     @p  8     @  4	        @  0	       @(  ,	     @@  (	     @X  $	     `  @ 	      @           @  X  p    (  jV$ @  x	      @  h     @X     @H     @F     @  @	     @x  <     @   8	     @  4	         @0  0	         @H  ,	         @`  (	         @$	         @          h                 (     X             T          ME                                                                         ,  	       b      
 ?    
     
     
 D                       $                                      \     Thx  x h(X HU+F   #<@  @@ /<) x@6 hH          @ \ $                                   < x @ h H x     	l x Tdt  t d(T DU+B   #8<  <@ /8) t<6 dD <t"   $ <  t  d4  4 d(T DU+B  1 >#8Q<[$(,0"   $ 4  0 	 ,@ 
 (4  /8) t40,$( 6 dD           ` (                       x <          8  t < 4 0 , ( $   d D l      Thx  x h(X HU+F   #<@  @@ /<) x@6 hH @x"   $ <  x  h8  8 h(X HU+F  1 $> #<Q@[(,04"   $ 4  4 	 0@ 
 ,4  /<) x840(,$6 hH            \ $                        <          <   x @ 8 4 0 , ( $ h H     @    D    D    < C                      rU                    	     
     T    $      
   `           $ )    
  `           , i    
  `                     $     
  `               p                                 rU              ~}         	       	                        q            	       i                            Get the data file name.         `      
 R3DataFile  %  '     f       #  The file name for printing errors.                   Z        Get the temp. directory.   TEMP$ " '             $    \    F      \  '  g       	 ErrorName   $% &    .txt '     f         Get the name of the label file.               	 LabelFile   $% & ' (    f H       Get the name of the data file.         data.sap or td.sap or ~data.sap  8           TEMPH Q       *' R    GBo2, ERROR-Fields         REWRITE H Q   ,' RP      DataFile  $% & ' R      k h   f `      !  Generate a temp. data file name.        x      V! .  \td.sap  ' *      f        !  Generate a temp. data file name.              V! . 
 \~data.sap ' ,    f     c Attribut e VB_Nam e = "R3G lobals" 
' Changes:,GBo2 , 17.09. 99, Gerd  Balzuweit,V for  Office 2000tUse  the rew ritten d ata file ofmerge elds i n print,<preview  and edi t mode. 

Optio n Explicit' Which_is used? J
Pub * Sub R3SetDFM &(s As Sng)
 DocVar. := D^F ^", Value:= 
EǀQ .DGetmu(nam\'DFunca F)DD $T R3K
K(	H ]A+DT ?ςing errors@S$EA:($  D im TempPHath+  A- , '@@t	.  directory@   F= E nviron(" TEMP"_   If Not R`ight( )Q\" @5n =+ "\@C"R32+x x@iable.SI)("
Az") @.txt U BwTlabelǂUT@TabTOUB@+R3(LJc&Ơ&B.sap @utd%~~S^!-Sel; Ca }hY/b#;1 Eh'=? 12a@HERROR-FiC
REWRITEOD=H'Re!e.Elsea}1/CT!/nGeneraa _`bC aD/ OD-Ave ument.br`c;Wť4)?-)O0      x             `x           "$          @H  d        @0  T      @`  D        @4     h  @$ 9!      q!      !            I     !      q     "      y      A            
      9"      i"      P        l  Cxx
   /x          $                                  x T         Ctt  1x/t          (                      x           t         #:d NTTD
  D`1t6 TD .   tMd@T
  T:4 ]/D$5T\_  lt *1t *lt C    #*#	 *1x2         d  ,       _              x t $              T D $ T        
 Ctt  1x/t          (                      x           t    `     
   1t lt 0&  
   1xX  lt 0@  
   1xX    Cpp  1x/p /t        ` ,       X              x t           p p   4     .pt"   $ 4  t4  lp *1x/pt        4 (                      x           p t p   4     .pt"   $ 4  t4  lp *1x/pt         4 (                      x           p t                       M             	  ; rU                    	              (          `     Q          0$         `          $         `          $         `          $ !       `          $ I       `          $ q       `              p                                                          rU              ~}         	       	                      r                                                                                                                                                                                                                                                                                                                                                                                                                                                             x                 +                                                   L             $      >
    
            
        L        L    <(     <,     <0     <4     <8     <<     <        B|g8 $ * \ R f f f f * 2 6 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 7 3 8 6 7 4 5 6 f  * \ R 0 * # 1 1  * \ R 0 * # c $ * \ R f f f f * 2 a 3 8 6 7 4 5 6 f  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 e  * \ R 1 * # c 6     
  `      `        X  xk @       	        i           +     `        (  tk              +     `           k              ` t         +(8    `          tk     !     e.  +Rx    `          pk     '     #  T+*    `          p+     5        +,  `          p+     ;            x    `   8            P P           $   @                        @x                   `x                                 @t              x             `x           "$          @H  d        @0  T      @`  D        @4     h  @$        @        	   @           @     (`    `    x  `(x      `  !       $      @t      X      X    p  `Rx      X  '    *,$           @t         (       @p        x      x      `*x      x  5       V  `l       @t	     @p       	  	  	  	  	  	  `,x        	  ;    V            @t	      	@p                              (                   ME              	                                                           ?  	         	 >       	 @   P    	        	              	      	         	       "       $           	      	       	    8  B   @     H     h   	      	 *   p   	      B            	     	         #    . :    	     , *       P   	      	 &   X   	      B                	      	 &      	 &     B       
          
 (   	    0     P    
 `     h     p             	      	 (      	      B       .         	      	 (       	    (  B   0    . 8     X   	     h     	  Changes:    8  GBo2, 17.09.99, Gerd Balzuweit, Changes for Office 2000.S   :  Use the rewritten data file of the merge fields in print,     preview and edit mode. H        Which data file is used?               
 R3DataFile      B@     l       _ _ S R P _ d                                                                                            L      R 3 D o c V a r                                                  4   :                                          y      _ _ S R P _ e                                                                                                       _ _ S R P _ f                                                                                                   Attribut e VB_Nam e = "R3D ocVar"
 Option E xplicit 

' Set  a docum ent vari able for  the acthive@,f.v alue is  alway n "s ~ng. !
Pub d Suba(As S1(, VC) 
  Dim i  IntegerBObjec  F i 1 To AUe.zes.Codun  w%=Item(iH  If .Then@)Mg=kGoLExitLine
End *Nex(t i FAddd 9:=:=6
-: K@\vGvofureturnwuFunZ Fv>)jy9(uResult瀳ve 0͋%B  O'  r  VwCE^xRemo alllsMpAll(vlWhi h > 0C'1).DeleBtB^WendSTes r' riva` W tGO@,Db"	"b"T1@C|2A=-("AbsLogF "B%Not 5stxa1     `     ileni       "\td`0@   z        `2t	         +X    `          (k             i           `0   v         `2p	         `8  l         :    `           Hk  
 
 -         `0z     .  C>  `      y      A            
                                          )      I      q                        D       ?zhlp"    $ 4  p  l   lh) plcd  >PzMT@lp"    $ 4  p  l0  QPt) pl tW@  FT]/05@\   FT%t     
zddA  =Pl MT@ lp"    $ 4  p  l4  ) plP        L  (                      t            p l P @ 0          Cl ?v`dh"    $ 4  h  d   l`) hdc\  >HvML@dh"    $ 4  h  d0  QHp) hd pW8  FL]/(58\  pW8 `1l58    
vd\I  llCx        T  0                     x l p            h d H 8 (         <lpt"    $ 4  t  p   ll    ) tp  BH(L pt"    $ 4  t  p0  H8  ) tpH5L         4  $                                 t p H L    t      
 Cpp Ctt
	  2 tp   Cpp Ctt
	  2 tp  Ctt  1x/t  Ctt  1x/t           t (                       x           t p              \      rU                    	              ,          `     !     9          00(         `     !         0$         `           $         `               p                                                    F i l e S a v e V e r s i o n                                     L   (                                          a      _ _ S R P _ 2 0                                                                                                _ _ S R P _ 2 1                                                     *                                          e       R 3 M e n u                                                         Q                                          &                                      x      n           P                                                                 (     6
    <     <     <        B|g8 $ * \ R f f f f * 2 8 3 8 6 7 4 5 6 f            `        x   |+                   B p                $                           H                  @   ME                                                                            "              	              l p   h   K Attribut e VB_Nam e = "Fil eSaveVer sion"                                                                              x      $  j         ;                                           @                      P     >
        L        L    L    L    <        B|g8 $ * \ R f f f f * 2 7 3 8 6 7 4 5 6 f  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 e  * \ R 1 * # c 6  * \ R 1 * # c d  * \ R 1 * # c c    8        `        X  0k @           enami     `     ileni       "\td`0@   z        `2t	         +X    `          (k             i           `0   v         `2p	         `8  l         :    `           Hk  
 
 -         `0z     .  C>  `        H  pk  	 	 7     eded`@x                X       P           $      `            @  X    p  V                 @(  p	         @  l	         @h         @  f           X  	       @d             	       @T         @P	         @  @         @0                  @  (        (  @        `x        X           V                 @  h	         @  d	         @`         @h  ^           @         @\           h         @L         @H	         @  8         @(         h  %                    V                 @  t	         @0  p	         @l         @\         @L         @H	                               @  t         @p                             (                   ME                                                                         @           	      	 8       	 &   @    	    h   "   p       x           	      ?      >                             
 
     	       =               (   	      	 6   0   	 $   h   	      B                        	          	       ?     >                         
 
 (   	         8     @     H   	      	     P   	    p  "   x         	      <     B              	      	       	      "            	                   0     H     `   	     p  x      1  Set a document variable for the active document,      the value is always an string. d              Z    Z       0     V! 4! 6  edit    0  V! 4%  . 2  2!         2(      ,   h       0              V! 4B@    ,   l       0  Get a document variable of the active document,       the return value is a string.                Z   Z (  Z @     ' 8   0     V! 4! 6          0  V! 4%  . 2  2!       2! ' 8writ ,  h      0     U ,    8' f        Remove all doc variables        X    Z     V! 4! 6   
        V! 4%  B@<   @  l 8       Test ~DAT           Z     Test   T1 A@     Test   T2 A@   
 AbsLogFile$  ' @  NotExist$  ' @acl       y 
P ublic Su b Main() 
End<
 
                               rU              ~}         	       	     !               8                    $                                       k                                                      rU                    	               $           `               p                                 rU              ~}         	       	                        	P      iP      P      !     P      Q      YQ                            	      	 "       	    0   "   8      @    	    H    .   `    .                   	     	        ,       .   0   	     	    `   "   p   "           	      	 &      	      "            0      4   8     p             	      	 &      	      "           "      "        8   	      	    @   	    `  "   h      p      x   	          	      .         	       	            
          
      	                 	      	 ,       	    P  "   X      `      h      p   	       x   	      $         	       	            
          
     
     	                  	      	 $   (   	    P  "   X                                                                              x                                                                     H"             $      (LX   (L  \    >
        L    L    L    "    L    <(     <,     <0     <4     <8     <<     <        B|g8 $ * \ R f f f f * 2 9 3 8 6 7 4 5 6 f  * \ R 4 * # 4 9  * \ R 4 * # 4 b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 4 * # 4 8  * \ R 4 * # 4 a $ * \ R f f f f * 2 1 3 8 6 7 4 5 6 f  * \ R 1 * # c 6    @  F@      `        X  to              R     `        @  to  
 
          T     `        (  to    !        H    `          Pk       )    raw.iJ          rsioiL          V   xX       L   $    Ztx      File  $   N8    `          Xk      =        iP       ave  Vx             $    Zt          $   `L  p     H d    `        0
  Pk x     S    &SaviJ         rn iL       le t V  x      ).     $    Zt      File  $   f    `          Xk 8     g        iP       nu e Vxp             $    Zt      J$   $   `LX  p         h  `        P  tk    }     Z(    8           @           D P          $       HN               @(  x         @t             HN               @  x         @t             H                 @  x         @t         @     `  `          (  ^                 @  p	         @`         @\	         @8  X	         P    0       @TO	         x  8  0       @P         8  6               	  @	  X	  (	  p	                   @l	         @	  h	         	  X	  D       @	  dO	         	  	  D       @	  `	         	  	  E       @\O	         
  	  E       @X          
  	  K       	  L         x      
     0  
  H  ^                 @  p	         @`         @\	         @X  X	         p  0  Z       @TO	           X  Z       @P         X  `       8    x    `  x  H                     @l	         @  h	           x  n       @  dO	             n       @  `	             o       @\O	         0    o       @X         @    u         v           df               @   x         @t                             (                   ME                                                                  `      h   	       p   	      . x        	       	            
          
     	                  	      	 *      	    @  "   H      P      X      `   	       h   	      $ p        	       	            
          
     
     	                 	      	       	    8  "   @   	    H   .   `   .      	     0      4      	       (     @   	     	    X   ,   h   .      	     	       "      "    	   "   (	     P	  `	  x        Disable some entrys (IMG).                      8       Save final.        File J  &Save final version  LA@H   File J  &Sichern Endfassung  LA@H     &Save  PA@N  
 &Speichern PA@N   
  Save raw.  File J  Save &raw version  LA@H   File J  Sichern &Rohfassung  LA@H       Delete.  File J  Dele&te  LA@H         File J  L&schen LA@H     l 8        Disable the save entrys (STD). ed       @           File J  &Save and back to R/3  LA@H   File J  &Sichern und zurck zu R/3 LA@H       &Save  PA@N      
 &Speichern PA@N l X        Disable the delete entry (STD).                    File J  D&elete  LA@H         File J  L&schen LA@H       l         Diable one menu entry.               Z @  Z `   ,x      J$ ^ . V   Z   V! `           Diable menu entrys               Z!   L     Z( b      h        Z         ,  l      %  Disable an entry in the command bar.                Z   Z    Z     ,     V   ! ^          Z   V! `           Disable the icon.        Z!   P     Z( b      h      Z           V         ,  l        Enable an entry in the menu.            8    Z   Z    ,     J$ ^ . V   Z   V! `           Enable menu entrys               Z!   L    Z( b      h      Z         ,  l      #  Enable an entry in the comand bar.                  Z X  Z x  Z    ,     V   ! ^          Z   V! `           Enable the icon.         Z!   P    Z( b      h      Z           V         ,   l         Enable some entrys.                     Save entrys.       File J  &Save final version  LA@d     File J  &Sichern Endfassung  LA@d     File J  &Save and back to R/3  LA@d   File J  &Sichern und zurck zu R/3 LA@d       &Save  PA@f      
 &Speichern PA@f   
  Save raw.  File J  Save &raw version  LA@d       File J  Sichern &Rohfassung  LA@d       Delete.    File J  Dele&te  LA@d         File J  D&elete  LA@d         File J  L&schen LA@d       l     f Attribut e VB_Nam e = "R3M enu"
Op tion Exp licit
 
' Disab le so en trys (IMG). :
Pub X Sub Set XplayM odeOn()
  O rro@r Resu Nex Y  ' S ave finaZl J hEf 	:="File\", &: pvers  ,Bicher Nndf@assung	!C ommandBarEIconCpe=raw& SA&RohA%Delete-%A&teIFauL&sdnEnd9Kth@ESTDOīAGa'Ü back @to R/38&[u 8zur@zuM?@ O,d> , (,D, ,="D&"*7GBone\ m@Y'riva@(A  As SnghbDim c^b-gcCroolAƢGoTo@itLine!a @=8sFEacBh@c In .̈́saDi"%Ifa.Ca#= Then   cbc.E
na	d@Falsb  aGIfC	a
Ex#:@xanJin zcjr3+(!-52b2@m(!@#Hr622ThisDoc@nt30^88C$i $a2@!A8P#:Pz' ~ I SCZC" (A6:sw6ya	6{6b6r66lU5061Fa 66Tru66636l6$$66A?76;1 QQ66ar6R66/PVHc?S6!Tub66ffzd@a+8O}/"/qy pFcoe?nu_e'H/r0O_u"BOE`?Q?/Q"ry"ub 	ٟ__Sϟ
                                                                                                                                                                                                                                                                                                                                              _ _ S R P _ 1 0                                                     !                                                _ _ S R P _ 1 1                                                                                      
        R 3 V a r i a b l e                                              +   .                                         n      _ _ S R P _ 1 2                                                                                            K  &        Q      R      AR      yR      R      aS      y      A            S      S      S             	      
      I     q     (       K   Ctt Cxx
   2 xt   Ctt Cxx
   2 xt  Cxx
  /x  Cxx
  /x   Ctt Cxx
   2 xt   Ctt Cxx
   2 xt  	 Ctt Cxx
   2 xt  
 Ctt Cxx
   2 xt         $                                 x t    p     K   Ctt Cxx
   2 xt   Ctt Cxx
   2 xt  Cxx
  /x  Cxx
  /x        p $                                 x t    L     K   Ctt Cxx
   2 xt  
 Ctt Cxx
   2 xt          L $                                 x t         K  .\ F`%p"   $   pH  Q\xp px  Qp[XtT   Pt  lP 0/Pz   t    tT S        ,  4                      X T x t           P p \         K  $l"   $ 0 Ql[hx                	                                             !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  >  ?  @  A  B  C  D  E  F  G  H  I  J  L  M  N  O  P  Q  R  S  T  U  V  W  Y  Z  \  ]  ^  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  }  ~      d   lx  Ql[`t\   Xt  lX 0/Xp   t    t\ I  xd +         $  @            (          h d ` \ p x t           X l         K  .\ F`%p"   $   pH  Q\xp px  Qp[XtT   Pt  lP 0/Pz  t    tT S        ,  4                      X T x t           P p \         K  $l"   $ 0 Ql[hxd   lx  Ql[`t\   Xt  lX 0/Xp  t    t\ I  xd +         $  @            (          h d ` \ p x t           X l   L      Ctt Cxx
  2 xt   Ctt Cxx
  2 xt   Ctt Cxx
  2 xt   Ctt Cxx
  2 xt  Cxx
  /x  Cxx
  /x   Ctt Cxx
  2 xt   Ctt Cxx
  2 xt  	 Ctt Cxx
  2 xt   Ctt Cxx
  2 xt  
 Ctt Cxx
  2 xt         L$                                  x t                          H                                                    rU                    	              $          `           $         `           $         `           ,         `     i               00( !       `               0, I       `     i               00( q       `               0$        `               p                                                                                                                      x      y  /         	                                                   ]             (      6
    
    
        L        L        L    
    <,     <0     <4     <8     <<     <        B|g8 $ * \ R f f f f * 2 a 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2 $ * \ R f f f f * 3 1 3 8 6 7 4 5 6 f  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 c  * \ R 1 * # c 0  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f      +&      `        h  `k @            eDeli       t
 `jt     nu:=`8p         p  `          hk               i          i        `j   x               $ `           $   `   x   @     H      0     `&x          Pn"2.     @`  l     @x  h     @d     @`	          H    x  @`  t     @  p     r"2. @l     @h	       8                      8                (  ME                                                                         +           	      	        	        B   (       0       8    	       @    	     (  H     
 p          0 )     	      
            	                          0 4         0     8   	      	    @   	    X  "   `      h   	       p   	     6 ) x    
    , )         
     	                (   0 4 0       `     h  x  x        Get R/3 Value. tr             Z `   Z x    8     Get item via DDE:       B@    % l  ' j    j j   $ n ' 84! 6  DDERequest            8    B@    "B@        8' & ,          ' &  2! 4 f  R3Variable.GetItem   .B@  ,   f         Set R/3 Value. L            Z         R3Variable.Depose               B@    % l  ' j    DDEPoke               B@      j j      tA@r     "B@         ,       2! 4 f  R3Variable.Depose    .B@  ,  l      Attribut e VB_Nam e = "R3V ariable" 
Option  Explici t

' G et R/3 V alue. "
Pub @ Func` DItem(A As S ng)
  D im ChannelLongResult.O rror G oTo E
LineR3Lo gFile.R3`Write  (" m vi a DDE: "h + O)C= inSrv.[
(I=Request(:=,(:=+ߘH B#EH"5S ;MApa.Avatx P3' 
xit:"" ;ord.Trace Text:=.DescriB, Module:=Ȉ7AI!@E EndƂÌS֌Sub DeposeL,Ba77Ǽ <"OdB z]3Wס@}Poke, Data:=%??]@@c7?:
                   rU              ~}         	       	                        "      !     y      A            	$      I$      i            Q                  a$      $      !%      Y%              K    *l
   /l 
^   qt l lt"   $   >l1p )  *#l *#hlp*d
   2 lhd `"   $   ` ` lpCx   	 Cx 4l
   ``,   Cdd>lh
  2 hd`         ,                     x p           l h d `        K  )  *#t *#p *l
   2 tpl 
^   qx )  *#t *#p *l
   2 tpl   lx"   $    h"   $   h h   4t
   hh,   Cll>tp
  2 plh           $                                 t p l h        f                                _ _ S R P _ 1 3                                                                                      X         R 3 F H a n d l i n g                                                                                   #;      _ _ S R P _ 1 4                                                  $   '                                       [        _ _ S R P _ 1 5                                                                                              rU                    	              (          `              0,         `          9          00    p                                 rU              ~}         	       	            	   *         	8      	      &      8      I9      9            Q                  Q:            :      1;      !     I     ;      	<            I<      a<      y<      q     !     =      =      i*      =      	             I>                     X  ME                                                                                    	      	 2       	    @   B   H       P       X       `    	        h    	      2  p    	     
            	     	         (     8        (   
 
 8   	    H   <  h   	                      	      8 2         	                 (     0   8 4 8       p     x   	      	 (      	 (      	      B                         	          	     	          0    ) H     `     p     x   	     	            
 
    	               	      	 "      	       	      "                (      0      8      @                                                                                     `               `      M  ;         3                                           i        0             (      >
    
                    L    
    
         <,     <0     <4     <8     <<     <        B|g8 $ * \ R f f f f * 2 b 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2  * \ R 0 * # e  * \ R 0 * # c  * \ R 0 * # d  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 6 3 8 6 7 4 5 6 f  * \ R 0 * # 9     +N      `           k @      % %         i`             `6x         `8v         `vp     #z    `        `  (k        )    iv            i|     (      i~         S`0v     t li`p     ing.`8l     LineH    `         	  <k  + + A     6`x        `t     $   `r       `p       `l            `        H
  <k  , , l     !  C`x     the `t     must`r     one.`p      `l     `  #    `           k @    % %       viv           `p     ' `n     o re`h     8  `d     ' z`    H     ate h    `           Hk              if                      `z         >    `        h  lk             `@x             `        h  hk             `x           `          xk                     H  h            L            $   `   @   x              `    x  `Nz        `          x2.     @0  l         @   \         @  L         @<         @,         @(	         @H  $         @          H    x  (  `            (     x    `zx    @     )   @P  j     $   h  (  1       @h     h	    P  1        a  @  X     h  @H     @  8     	  @(     P  9              0  	  0
  	  	  	  P z2.       @ 
  h         @X     @H     $   @
  D     @@     P @<	                  H    0  
  P x2.     @`  h     @X     0  @H         @D	         @x  @     x  @<         0  x    `  X          0    H  `x    p  0     `vt        X         	 <<ERROR>>       @T       @  D     X  @  4     @$       @        P  8               P 2.     @8  t       @d       @T     @P	       @P  L     @H              z         @8  t     @P  p         @l           h    L      @8  h      @P  X         @  H     p  @  8       @  (     ,e @           @           @X          @           @           @(       4= @@         @p       a @         @       4= @  x       @h     \ p  X         @x     4= p  	 	                 	        H   	      .  P   	      
     
    $     "     	     	       
          
  (     8   	      	 $   H   	 (   p   
 
         	     	         6    	      	                 	                 (   < 4 0       p     x   	      	 8      	 8      	      "                                      	       (   .  0   	     	 $   `    
    	 "       
    	     	       
          
          	     	 .   (   	 (   X   
 
         	          
 
              	     	               	   	        	       	   < 4 	       X	     `	   	      	 8   h	   	    	   	    	  B   	      	      	      	      	      	   	     	     
     
   	 *   (
    3 X
   	     	    x
    8 
     
     
   	     	    
     
                % (     H     `     x   	     	        8              	     	                 	      	 *       	    0  "   8      @      H   	       P   (  X   	     	                      	     	 "      
     	 *         0     @     P   	        X       `   : 4 h               	      	       	      "            4 .         	     "          (   l  0             	     "                       x      ,  Get the number of data records of the file.  eDel             Z `   Z x   Z          R3FHandling.R3GetTabLength:       B@   DDER$    ' 8     ' 6    Open the fileB@  $    8       ( R3FHandling.R3GetTabLength: file is open   B@    8$ x       8  v     S    Dump the input line      % R3FHandling.R3GetTabLength: ReadLine    v    B@        Count the lines.   6   ' 6 (     8S    R3FHandling.R3GetTabLength:   6$      B@    6' N ,        ' N  2! 4 f  R3FHandling.R3GetTabLength   .B@0  ,  f      !  Change some chars in the string.    "  ToCh must have the length of one.                      Z H  Z `  Z x     ' 8    Run up the whole String.    0     v        v  0  $   '       |        ~' h        Add to result.     8   ' 8     0          8' zf 8        Generate the temp data file           doubles the field line.On           Z   Z   Z    Z   Z 0       R3FHandling.R3GenTempDataFile    B@  s  P% R  '  c  P% *  ' en  Datafilename:       B@  rue  Tempdatafn:       B@  ine:
    Open the files. e$    ' e coma        $    ' ableCo            The input file has one line. b As  "  Print the first line to the file.      MenuE       
    Print the changed line.          _   - $ z      Close the files.   S    S   ,       2! 4 f  R3FHandling.R3GenTempDataFile    .B@0 onNa ,  l      2  Rewrite the datafile. Do this for user data only.   2  In a data line change: '\t\t' to '\t<<ERROR>>\t'.       H    Z   Z   Z   Z   Z         R3FHandling.R3RewriteDataFile    B@  io    Create a temporary file name.Menu  P! ,' hern    Assign the data file name. y Menu  P! R' nuEn    Open the files.o $    ' ableMe        $    ' Entry:          '  The input file has more then one line. ma  "  Print the first line to the file.     mmandB       Sp  $ x  _        .
  E      $   ="Fi        Close the files.   S    S   ,       2! 4 f  R3FHandling.R3RewriteDatafile    .B@0 able ,  l      2  Set the value in the empty positions to a defalut     error value. elet            Z `  Z x  Z   Z   Z 	 <<ERROR>>         Initialization     v$  ' v    #  Note we use two tabs as delimiter.        	 $   	 $   '           Check the first field.     v  $    	 $            v ' v  h 0      Look for two tabs    v     '        
        v  $   ' VB_Nam  v  v    $  ' p lici        ' ven     v     '  S       Check the last field.Resu  v  $   	 $    hE  v   ' v",h (      The return value.  v' f       $  Write some stuff to the error file.SA&           Z8  Z P       R3WriteErrorFile:   f    B@      Check the filename.M?@       , (  P! ' "D&h 8      Choose a free file number. s Sn$    ' m c^b  #  Open the file and print the stuff. =8       @      f D  S   ,       2! 4 f  R3FHandling.R3WriteErrorFile   .B@0 Jin  ,P  l H       Test 2@       h    Z     PTXT1_NRES1   PTXT1_NRES2   _   --$ z ' @Sl       Z     	 $   	 $     Mller  	 $     Hans  	 $    	 $     041265  	 $   ' Q6  $  ' l H        The first line.  fA@ d  The second line. fA@  l        Attribut e VB_Nam e = "R3F Handling "
Optio n Explic it

'  Get the  number o f data records: file. \
Pub z FuncR3 Tab Length(sBF{As S ng)  
Inte ger
  D im Count%F dNrBuff T  O rror GoTo ELineR3Log( .R3Writes  (	 ^: " + a)VJ= Free(b= 0  ' Open	UCaDse) FXInpu.4X4, iӀ<"&WhQ Not EOF(  @2#, VA   @' Dump0i7B( S   'ReadBV"'{AsU+ 1&WendClose .ytr(B)$@GA×xitA2
F:$ B
.@ Text:=.Descri, Module:= E End'Rhange so~chars iPsp!w To Ch must have<lbva|on{riva{CBy(7sC{, _ 6r fvChWithoilcHResulk?a)EvRun uc^whole䖢QAui A1'  D $X@= Mid, i, b1dIf b Then$cC9Ifc ' Add to`"l  + NJ i!a 5UEGener<9ote@~b' $do`esBDfield t'ƿSub !_nTDataar!5%9!Inc{!=OutvsBwAߙ@gJC-3GlobalsɅnC"='I5'o2g("qfn:XQ,lCYV=pmm#EQ sRq#Nj4MQLone*Pri-firN+4rp
, $3' GVW=62 7T, "_"@ -$m
c3y*ior`b0C3W_h_h@_h/7h@3hR\ewqRCb&i ,Do fPus@ onlyD In aR : '\t\t'A <<ERROR>> OH3te(GHa%"CACf+{OH #qS2wq1 _::@E,GHre\a a\orary. r1A @mp?VGla	gssigRB-&@@EleEFQE
?E mor2n*EB.EqBWE$E03WJ%bZKq(H, Set Empty)s(rHLoopQFHe:B~HHH1ry>qHSubH`valuepty posia2oGef0' e	 " =ByValw? Two sAPoBsLefܫsRigh|Con n Field As  String  = "<<ERR OR>>"
  ' Init ializationLBuffer Trim()XNote w e use tw o tabs a s delimiter.NTwoT0= Chr(p9) +' eck the first  <If Leftaw, 1) GT$he  Emhpty+aE`nd If'  Look foFrZPos-I"n (1,, _, vbBin aryCompareWhile" > 0"  ~sW $
[ RpightkLen) -(ӆl++ ps";=B=_%`end alaa+?a-+Aa@p r eturn value|Set9O 2 dC
Func
' Wr some st  t@herr@wf g' 
Public Sub R3
EAF (Tex&t]Stc 9Na A2Di m FNrIn`tegerA On GoToLineR3Ltog.! ("M%: "Ɂ&$Alen %LgK*" GR 3Globalsf!3Choo@{a freAs@]0numbz= F@(' Open$ya opztBsA4BFy 6Ap!  P#@q 5LClD
-xit,
A:a +hordb.- 	*:=`.Descrip!J, Module:=1FH@lOE5=Ed A&J
aQTest MrXiva`Mt(#aFResgM !angeStr ("PTXT1_NRES1 @2", "_ -|-"	(`$a1?Ag"nM"M`llerN" s*G041265Lx"[2C`$5"C`2e.yseco@Of%                                                                                                                                                                                                                                     >      1?      Q?      ?            	@      I     9@      @      |  0    K    *l
   /l '\  pv5\  px (l ML@\
  \`#lkv] /l5\  Cll
   /l kv    
kvp  lp*l
   /l kxpx n  kv= 2:< xML@\
  \,`l
   /l6 \, kxpz ,  pz 4l   ((, 
  C  >l$
	  2 $ (        \ 0(       ,              p $          l $   ( \ ,          Cl v Jchr  )(8 kvl MX@(
  (`1p6 8( lp 0Z   Cp  lllp*1l 
vdh  llCx         T  0       Z              x l p           8 (   0    K   Chh
   /h 
   1x 
   1t  lx*h
   /h  lt*h
   /h 'X  pr5X lxkr]  'X  pp5X ltkp]  
krl kp2llFH9 6 CDD Chhl  1@kp2>@FX92 hD5X kr= kp= * 4h   <<, 
  C@@>hD
	  2 D@<        @ 00       *              t x l            h D @ < X X      K   Chh
   /h 
   1x 
   1t 'X  pr5X ltkr]  'X  pp5X lxkp]  
krl kp2llFH9 kr    
krl ll  1hkp2>hFX95X   kr= kp=  4h   DD, 
  C<<>h@
	  2 @<D       @ 0                     t l x            h @ < D X       t tMT@D
  D`1t5D 3	   D
  D	   4
  4$`1p6 D4$ 8   tMT@D
  D	   4
  4/$6 D4\   lt*1t     ltlp    pn kn 7  kntMT@D
  D`1h5D %ltJkntMT@D
  D`1d5D lh *# ld*1t/  knltlp    pn   8   tMT@D
  D	   4
  4/$6 D4\{ lt *1t  ltCx       \ 8       {              x h p t d             D 4 $         K    *t
   /t _     0D      #t_    /t  'd  pz5d _    kz]  kz2 FT9 kz=   4t                                                                                                                                                                                                                                                    PP, 
 ! CHH>tL
	  2 LHP        4  $                                  t L H P d t   4     ." Cll Cpp# Ctt  1x2 tpl        4 (                       x           t p l 4       	   h
  h	   X
  XH:8$ (	   
  :% 	   
  	   
  :& 	   x
  xh`1x6 hXH(xh lx  1x         (                       x D          h X H (         x h `   ,     ( Cxx
'  /x ) Cxx
'  /x         , $                                  x                             C                                                  rU                    	              (          `               00         `     i                   000$         `           $         `           ( !       `     i         ( I       `                0$ q       `           $        `           $        `               p                                                                                                                                                 x      t  B                                                            t             , I n s e r t M e r g e F i e l d                                 " C                                               _ _ S R P _ 2 2                                                                                               _ _ S R P _ 2 3                                                  )                                            e       F i l e S a v e A s                                                                                               6
    
             L        L    
        L    
    <0     <4     <8     <<     <        B|g8 $ * \ R f f f f * 2 c 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2  * \ R 1 * # 9 1  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 e  * \ R 1 * # c 6 $ * \ R f f f f * 2 f 3 8 6 7 4 5 6 f  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f         `        x   hk                   p                $   0  H  `    V2.       @x  x         @t	         @p         @  l         @h                                H                  @   ME                                                                                    	     "             &      	      - @    
  P    
  `      p    	        x            4 4                     x          h     InsertMergeField.Main    B@        V!     B@          B@   h     ,     x     2! 4 f  InsertMergeField.Main    .B@0  ,8   l 0   (   : Attribut e VB_Nam e = "Ins ertMerge Field"
 Option E xplicit@

Pub ,  Sub Main()
  O F rror GoTo ELine4R3LogFi le.R3WriLte 6 (p.P"P9If w dNoProte"c= A ve Document.Type Then9  R3 Dialog.IniShowxEnd If
fxitfk: gord	.i Text:=.Descri, Mo@dule:=y<
E2,@
               rU              ~}         	       	     #      "             	T      y      A            
                  Q                          K\   Cxx
   /x -pt"   $ 4  t< lptU  
    
       4x   tt, 
  Chh>xl
	  2 lht          $                                 x l h t     k                                                                  rU                    	     "         $      "    `               p                                                                                                               x                 h                                                   m              (     6
    
    <     <        B|g8 $ * \ R f f f f * 2 d 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 2 3 8 6 7 4 5 6 f    8     `        x   |k           rdEr     p         "R3F   $                                H                  @   ME                                                                            "        
            	     (           B@        l `   X   O Attribut e VB_Nam e = "Fil eSaveAs" 
Public  Sub Main()
  .H
End@ 

rU              ~}         	       	     &      '             <        
              $                                       k                                          rU                    	     '         $      '    `               p                                 _ _ S R P _ 2 7                                                  -   >                                                _ _ S R P _ 2 6                                                                                        e       R 3 W o r d E r r o r                                             %   =                                         
      _ _ S R P _ 1 6                                                   &   	                                                                                                                             x                 2                                           ;        s	             (      6
                 L        L    
    L    L    <,     <0     <4     <8     <<     <        B|g8 $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f  * \ R 0 * # 1  * \ R 0 * # 1 1  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 c  * \ R 1 * # c 0 $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2  * \ R 1 * # c 1  * \ R 1 * # c 0      0      `        @  ,o @               if     `         i             `          xo       
        if              i                  . 8           $   `   @   X          "          @l     @(  \     @@  L       @<        @p  8         @  4     @0	         @,     h      p  X    $
   Z    @x         p                                            ME                                                                            	         	       "          (    . - 0    * ? `    "       
           	     "             "       
      (  8       Errorhandler                    P     f     	 Error in      A@    	 Error in       :    f   "( $ngth:  	 Error in        B@      f   B@  n the l (              	 Error in        B@  |  f   B@      l        Attribut e VB_Nam e = "R3W ordError "
' $ha ndler <
 Public S@ub Log<( Text As S ng, Module")
  On Re4su N hMs gBox Pro mp              	  
                                           !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  >  ?  @  A  B  C  D  E  F  G  H  I  J  K  L  N  O  P  Q  R  S  T  U  V  W  X  Y  [  \  ^  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  |  }  ~    t:=K,  Buttons: =vbCriti cal, Tit le:="t i`n " +kHApp ation .StatusBar/ 8":7R3 gFil,e.  9e Li|ner;1E$nd

Tr8aceP;_                                              rU              ~}         	       	                  	      '      y            A            i                    K -'<'L  *F\   l Ml@
   6 \L< ?  *#8 *#4 *#,0"   $   0 2 84,0   *8
  /8 
l 
            P  $                        (          8 4 , 0 \ L < `   ,     K   *x
  /x 
l 
             , $                                 x        f                            rU                    	              ,          `           	          00,         `           	          00    p                                                                                                      x        _ _ S R P _ 1 7                                                                                               R 3 L o g F i l e                                                                                             _ _ S R P _ 6                                                                                        M        _ _ S R P _ 7                                                    2   8                                       Z                  0                                                                P     >
    
        L                         B|g8 $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2 $ * \ R f f f f * 2 7 3 8 6 7 4 5 6 f  * \ R 0 * # 1 0  * \ R 0 * # 1 6  * \ R 0 * # 1  * \ R 0 * # 1 1  * \ R 0 * # e  * \ R 0 * # f    (          p   0         $       +p      `        `  k                  `           k           % i        `z                   @    4         @                  @  p         (    `x         ,2
      @X  t       & @p         @l	       @  \     @L       @  <         @  ,         @     p        0    H     2     @`  h         @  d         @   `         @  \         @X         @T	         @D         @x  4         @  $         @         P             0      p     8                     ME                                                                         .                           	      	 :       	 $   X    	       B             	             " "      	            	           	      
                        
      	 (   R D 0               	      	 "      	      "                 	           
           $ 8       H     P   	         X       `   P D h               	       x   Z    Z      3  Get the logfile name. Ask for environment variable        TEMP. Set a doc variable too.           0      h     AbsLogFileName  %  '  	 DoLogging   %    1        '   a     '   h       '  ,          '    '  '           2! 4     # Error in R3LogFile.R3GetLogFileName  A@        ,p   f h        write a line of the logfile             p     Z                           $    '                   [      ]            S  h    ,             2! 4     ! Error in R3LogFile.R3WriteLogLine  A@  ,@  l 8  0   Attribut e VB_Nam e = "R3L ogFile" 
Option  Explicit 
Dim Do ging As  Booleanq2Absv <S ng

'  Get the  logf  n . Ck for  environ ment var iable5TE MP. S ;a doc too.  
Pub   FuncR3 i()   O rr tGoTo ELin 7
c= R3DocVar. ,I("")I&f")1" The 6 `= TruCELlsFaEnd If<}6T
yxityF?:V"@A$K'2G= 'Ms gBox Pro mpt:=@.D escriB, _C Butt ons:=vbCritical Title:=", inZy.>}@&E8 6JŇwAe a l} of		Sub W@AL(ǔ~'@NrInteger8@(O @vNott (\)@^ree(ĢOpen F Ap d(F1Prio#, "[" & Time$ x"] CG7Close F	R^MCq` C C8C =C           rU              ~}         	       	                                                Q      	            i      	      i                               Kj   Ctt     /t " Ctt   #p 02 tpN  	   Y   	      
  Cx    Cx 
 T   	     Dt   ll,  '',:L N<<   >tF\
  l6 \<,       `  (                     x (          t p l \ < ,  $       K     Ɣ   0  'h	  pz5h   kz]  8
   1Xkz2 >X#d*#` *#\ *Fh92 d`\5h kz=    Dd   TT,  ''$:D N44   >dFh
  T6 h4$        h  $                       0     	     d ` \ X T h 4 $         f                                                rU                    	              $          `          (         `                0       p                                               rU              ~}         	       	                  C      !I      Q                  I            J      	     
 )K      QK      	            I9      !     K    R 3 D i a l o g                                                                                         ,      _ _ S R P _ 1 8                                                   0                                          ]  t      _ _ S R P _ 1 9                                                                                       {  ,      F i l e C l o s e                                                                                       P      e S a v e V e r s i o n   FileSaveAs F i l e S a v e A s   R3OpenDocument R 3 O p e n D o c u m e n t   R3Exec R 3 E x e c   R3Lang R 3 L a n g   FileCloseNoSave F i l e C l o s e N o S a v e   MailMergeExt M a i l M e r g e E x t      <  =  >  ?  @  ID="{FAD86B16-7019-11D3-A715-0000E876A948}"
Document=ThisDocument/&H00000000
Module=R3DocVar
Module=R3FHandling
Module=R3Globals
Module=R3Variable
Module=FileSave
Module=InsertMergeField
Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F}
BaseClass=Dia                                                    	      	 (       	    0        P        X    	      	    `        x    	      	        	       "             	     	 &        "     	        
     	                   6 4 (       `     h   	      	 (   p   	      "                                          	          	     	       
      <     
  P   
  `   
  p             .               	     	       
          	          	        
 
 8   	    H     `   	     	 >       &     (     &         	     	         (   	     	     0    0 P     h        &               	                        6 4        H     P   	      	 0   X   	      B           	       !     !                   	                        6 4        @     H   	      	 .   P   	      B           	       !     !                   	                       6 4         8     @   	      	    H   	    `  "   h   	 D      	                               	     	        	     	       (   	     	     0     P    ) h                       	     
                         
 
         	     	  x      "  The merge fields and the comments     in a collection object.blZ 0  Z X       The merge dialog.Z        Show the dialog form.       `                                                                                                                                                                                                                                             H       Set the counter of the listbox      ! (     Show the dialog.   B@         ,         2! 4 f  R3Dialog.ShowMergeDialog   .B@0    ,   l       "  Initialize the mail merge dialog.            Z   Z    Z   Z (  Z @  Z X           Initialize the objects.              , InitMergeDialog: Initialize new merge dialog   B@         .           .           .       '   a p    InitMergeDialog: nothing to do   B@     ,8  h 0      Open the file.   $    '         P! (             $ x         Read the line.       v           Process the line.  v v      A@     8  Assign the values to the collection and the dialog box.       B@           ! B@            B@           Close the file     S      Change the some captions.    "%  '                          	 Abbrechen   ! (         Serienbr                                                                                  x                 `        
         .                                                   T&             d    @   8   "    >
    L        L            L    
    
    L        
             L        L             L        L        <h     <l     <p     <t     <x     <|     <        B|g8  * \ R 0 * # 1 9 $ * \ R f f f f * 2 5 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 f 3 8 6 7 4 5 6 f   * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ N T \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y * # 5 7  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ N T \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y * # 4 5   * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2  * \ R 0 * # 1 8  * \ R 0 * # e $ * \ R f f f f * 2 6 3 8 6 7 4 5 6 f  * \ R 1 * # e  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 c  * \ R 1 * # c 0  * \ R 1 * # 5 b  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ N T \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y * # 5 3  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ N T \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y * # 4 2  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ N T \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y * # 2 f  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ N T \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y * # 2 8  * \ R 0 * # c   8    $   P  V          $   2.8             $   @x	           $         `          Lk          p    `           k  : :                  `v   x         `t         `p         `n         `l         +     `          Dk       V        i           +0    `        (  Dk       h    @ i             `        	  ,k p     z        iv             i             i           `P
  H         `0z         `t         `   r         X              @           8        @         X        @        `      0  X      p  0                   @           @h         @X         @  T         @  P         @L           (  @     X    P      h   Px   @  h         @   X         @H         @8  8         @(         @$	           "2.       @            @         P              P  h     ` x        2.             @t         @d         @T         @P	         @  L         @  H         @D             h	  P	  8	   	  	        `x          h       2.             @t         @d         @T         @P	         @	  L         @	  H         @D                   p  
  
  X
  
  p
   |  @
  p         
  X
         @n            
                           @
  \         @L         @  <         @,         
                      `   0  0                       ME                                ieffeld einfgen    (    	 Kommentar   ! (       h    ,       '     2! 4 f  R3Dialog.InitMergeDialog   .B@0    ,  l      )  Get the comment line by using the index.        p     `       
    ! 6          %  '        a       '  h    ,         '    2! 4 f  R3Dialog.GetLabelComment   .B@    ,  f      (  Get the merge field by using the index.              h       
    ! 6          %  '       a (     ' h    ,        '   2! 4 f  R3Dialog.GetLabelComment   .B@    ,   f         Split a string.               0           =  Splitt the string in two strings; the field separator is "|"            Z  |     Z   Z    Z       Initiate the strings.       '    '  '       Iterate the whole buffer.   0     v        v  0  $   '                ' '   h X                  '   a 0       '   h      0        l       Attribut e VB_Nam e = "R3D ialog"
 Option E xplicit 

' The  merge f ields and t (commentsHin  a collecobj .
 Dim AdrF1t As#Label{dPMLBKFormShow, f  1'
Pub  Sub Mg()
  O zrror GoTo E0Line' Setyunter oflistboxI.+BL	Box.Index 0"P9M  I
?xit?D:@R3Word	.Log Text:=.Descri, Mo@dule:=.|{E Et@G!QInit[ize9mailDFaTTStatiPc IsdAmBoolean4Buff TS tngAKLRInFileAbI@ggerKLang|-BA%CslIf5= `False6 X R3@hA%.@mritet ("HK: HnewuZ" @N;@	   A= ;ړk5= Trub`E`	ge: nothi`/to d&o\  !OIfa ' Open=.f@:-;`,reeA*dvR3Glob`/,GetT<abB +puNt?WhENot EOF(GA-' Real   "7In	2#, WA
   ' Process"S ttcX	$:=#, Firsa:=],<rc :=\
Assig"valueoBHŲct %C.Add ItemcQŖa ACF(eWenda ' Clo`á7a#c&a hrɣsocakav= Ap!o$n.A{rnbal(wd .duct{uageID"8@s(wdGer man) Or Swissw"CancelButtCc@o "Abbrech|enncBSerienb @ ld einfNgYFr.HKarbbZ-va,ſbb,J0	_bb@7( / `by us?`i1p('cFunS%C('NrZ) 3A?[r91 $> 0@m(+Co{ >=B0Nr)Zx1	2&Po""/}"}Trace~~~|5[xOxOѢF?C-}d (K8q  8slOO7~o&E%rrߙۙ'0re s2rivaSQpliug(f4, _c1L> ByRefi_OSSel72/RB
 twdo  s; separat`is "|``C  Const@!  i9ch!qfDon'tl	  	єr #DwhP b®311 LenTF  = MidT, i, 1P2kd)Au	uٖ  A
|  HQŊ +	wP$ XPXNext i"
mSubG                                                                                                                                                                                                                                                                   y      A            i      	L      AL      iL      L      M      AM                  M      :      1N         t     K=  "(X  x_    x x5X _     q  4T   xx,   CLL>TP
  2 PLx       0 t $       q                           T P L x X   (    K _     ]   Chh
  /h     	     	    _    w   
 Chh
  /h $  'X  pn5X    #hkn] /h kn  @ 
knx ptx
   &'('8'XtMH@_      6 X8( ('XtMH@$_    $H $5X &'('8'XpMH@_     6 X8(   kn= 0X   $"   $   $  XUpl$5X kl  kl    $_    $0 $ :H %_  ,   $_    $@ $  $  _     4h   $$,   C>h 
  2  $        ` (0       $              t p x (          h    $ X 8 (         K]  !  t_  $  lt L  !Tl Md@_    T`1x5TV    Cx     Cx 4L   PP,   CDD>LH
  2 HDP       8  (                     x            L H D P T         K]  !  t_   $  lt L  !Tl Md@_     T`1x5TV    Cx     Cx 4L   PP,   CDD>LH
  2 HDP       8  (                     x            L H D P T         	 1  	 1   pr z Jcn  )(< kzl M\@,
  ,`1t6 <, lt 0r   Ct pr  kr    lt*'     lt*'   
zdn-           P  (                      t           < ,                 W                  rU                    	              $          `           $         `           (         `              &(         `              &0 !       `     i     1     Q          000         p                                                                                                        x                                                                                  (     6
    
    
    <        B|g8 $ * \ R f f f f * 3 0 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 2 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2    P     `        x   xk           2       p         	     $   0            @x                            H                  @   ME                                                                            "              
  (      8    	     H           FileClose.Main   B@  e   B@      il @   8   t Attribut e VB_Nam e = "Fil eClose" 
Public  Sub Main ()
  R3Log.R3Write Line (v.\"\!RSave$
End

                                                 rU              ~}         	       	           	             qT            T          Cxx
   /x 
     _ _ S R P _ 9                                                    9                                                _ _ S R P _ 8                                                                                           e       R 3 W i n S r v                                                                                       &  N      _ _ S R P _ 4                                                                                        P  |               $                                  x     k                                                                  rU                    	     	         $      	    `               p                                 rU                    	              $          `           ,         `                    00,         `                    00$         `           $ !       `   (  H   	     	    p    $    : $    	 4      	       " 2     : $ H   
 
              
     	                  6 4                 	      	        	    0  "   8      @      H      P   	        X   6   `   < ?    	      	                  *      * 0   
  @     H     P     X     `   	       h   &           	           	       	 6       -     - (    ' 8     H     P   	      	    X   0 T x   * H    & K               	     	        
 0   *  @   	     & ! p   	     	                 	      	            0       8     @     H   	     	    P     h   0                    
     *     * !      8   	        @    # X     h   	        p       x   . 4    "     	     	       
       1  	   
   	   	     	   
 + @	       P	     X	   	      	 6   `	   	    	  "   	      	      	   	        	   8 ! 	   2 ) 	   	        0
     P
   $  `
   	      &  
      
   &  
   	        
           0 4        8     @   	      	 4   H   	      "            	           	      !    "     	      	 L      
 
 0   	     	    @    - `   8  p   
 $    
       1    
           2       (     0   	     	 "   8     `   & 2         	           !    	     	 (      &       8   	        @                                                                                    x                                                                           ?             `   @   (L    >
    
        L    L            L    
        L        L    
         L              L    L        
        <d     <h     <l     <p     <t     <x     <|     <        B|g8 $ * \ R f f f f * 3 1 3 8 6 7 4 5 6 f  * \ R 1 * # 1 3 2 $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 3 3  * \ R 0 * # c  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f  * \ R 1 * # 1 7 c  * \ R 1 * # c 0  * \ R 1 * # 1 7 e  * \ R 1 * # c 6 $ * \ R f f f f * 2 a 3 8 6 7 4 5 6 f  * \ R 1 * # 9 1  * \ R 1 * # 1 2 9  * \ R 1 * # 7 8  * \ R 1 * # 6 d  * \ R 1 * # c 7  * \ R 1 * # d 0  * \ R 0 * # d $ * \ R f f f f * 2 7 3 8 6 7 4 5 6 f  * \ R 0 * # e    H   `      `        (   k          HI  xX            $   h(    `           k     X X (      i              i
       	  `jx     2  `t     dot.`p     nger    `        h  @k h            i         dd ii        R3Wi`jx     chec`"t     B@ 0    `        	  $k  / /          `jx       +l    `        p  pk            `jt         .    `        h  lk         8  0    `          lk  $ $         `    `          Dk  6 6        `jz        2  `          \k      E   Calli       ptio  0            (  `  `               $   @       x        (  2.        @`  t        @p	        @8  l	       P           @hO	           8         @  d         @  T         @  D         @4         @$         8         @                                  0  P  @  l         "V$j   @   h         @d	         @H  `         @^         @X         @`  T         @P           l2.   @  @         @  0         @            @           @           @         @8           @         x  *                     h  8	   	  	  	  	  	  "$2.     @p	         @P	  l         @h	  h         @d         @`         @P         @@           
  
  
  
  
  (  "lV   @t	         @@  p         @l         @  \         @
  L         @<         @,         h
  * 2.           @X  (         @$         p    P    8  (  `lx                 ,               @p            P    $2.           @8  x         @h  t         @p	         @l         8  h     $2.         @P  x         @  t         @p	         @l         H  P  h          V0l.2   @  t         @p	         @n         @\         @L         8  .                 @  H         @D                   2.           @  x         @h         @d	         @(  `         @\           	 	               `                    ME                                                                          Q 	         	             (    	    0    	          H    	    P    	      	    h            	      	 Z       	 (       	       	    0  "   8      @   	     H   0 4 P   	       
       1    
                  	      	 >      	      B          (     0     P     `     p    
 x             	      	 4      	      "           (     	     	 
             	        $   8       `   	      	 
   h   @    x    	       $             	                  6 4                	      	 0       	    P  "   X     `   &  h   	     	 
             	 2      " "    	       $         H   	    P   $   p               	      	 
      @        	 2      "       	        $   8      `    	    h   $                   	                   4 4                	      	       	    0  "   8      @   	        H      P   	      * p   	     	 :      	            	      	 ,      	        
     	     	           (   	 &   H   
  p          	     	 "      
       1    	     	       $     
     
       	     @    0    	 &   P   H   x                     	 6      	    (   0  0     `   	      	    h   
       1    
           	                  . 4                 	     "           	      "     
  @   	        P       X   2 4 `               	            Compiler constants                     #Const IMG = True        #Const STD = True     #Const HR = False      S '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''    "  Uninstall the add in ws8word.dot.     This is no longer used.4             Z @     R3WinSrv.UnInstallAddIn    B@      Iterate all add ins. erge           R3WinSrv.UnInstallAddIn check:    !     B@        -  if the add in is ws8word.dot, try to delete.             ! $    WS8WORD.DOT            R3WinSrv.UnInstallAddIn delete:   !     B@          B@<         ,`  h X              ,@   8    2! 4 f  R3WinSrv.UnInstallAddIn    .B@    ,   l         Call a specific finction       `     Z    Z    Z             R3WinSrv.Execute       
    B@      Call SAP R/3  Code:     
  Options:    
   "( $        Save or not save.    
  S ~    
      
  E ~        V!        V!      A@    h   h   h   h       
  T ~    
   	 DocOpened    X    $B@p   h P                 For search in glossary.    0  In protected documents the method is not valid.    V!       j! n      j! f'     h   h       Prepare the command.         (    
   ,    V!    ,  '      " $  ~          	            " $       " $   '   h       )  '     Send the command.  % l  ' j    DDEExecute Command:       B@          Control passed to SAP R/3   "( $      Execute the comand.        j j   A@   h (      Termination.         
  E ~    
     R3WinSrv.Execute: Call Terminate   B@  A@     ,   h        Termination.         
  T ~    
     R3WinSrv.Execute: Call Terminate   B@  A@     ,@   a 8     "B@          Callback to R/3 completed    B@      Callback to SAP R/3 completed   "( $      h       
  M ~    
      "(     h    ,       2! 4 f  R3WinSrv.Execute   .B@     close the document   B@            Say all is saved.  (         V! (     V(           Close the document.        *B@B          ,  l      /  Initialize the R3 Windows Server Communikation          (    Z   Z    @   + Initialize Connection to R/3 Windows Server   "( $  DDEInitiate:                 B@           &    ($ $ ' j        j$  ' "    DDE Channel:    "    B@        Applikation       B@     Object       B@   DDE-Channel    "   B@    ,        2! 4 f  R3WinSrv.Initiate    .B@0  ,  l      . Terminate the connection to R/3 Windows Server               Z    `   	 Terminate   "( $    R3WinSrv.Terminate   B@          E  Get the channel number, after save all document variables are empty.     $ l  ' j          Save the document.         V!      ( R3WinSrv.Terminate: don't save document.   B@    VB@          (         V! (     V(       a    " R3WinSrv.Terminate: save document.   B@        A@    h       Terminate DDE and wswinsrv.        DDE Terminate    B@     
 Channel =   j$      B@      j jA@*     Close document   B@         "( $      !  Unistall the add-in ws8word.dot.   Uninstall ws8word.dot    B@    A@      ,       2! 4 f  R3WinSrv.Terminate   .B@     All is saved.      (         V! (     V(        ,0  l (     7  Get the DDE-Channel number. Use the document variable.          0    Z p    DDE-Channel   %  ' j    j           j$ , ' l  a       ' lh x   f p      .  Set some values via DDE in case of no saving.                      R3WinSrv.SetNoSaveValues   B@      HR               No changes         Changed         $B@p              IMG              No changes         Function        $B@p       8   ,0   (    2! 4 f  R3WinSrv.SetNoSaveValues   .B@0    ,  l      )  Set some values via DDE in case of save.                 R3WinSrv.SetSaveValues   B@        HR             ,  Return values and saving dependend on state       	 IsNewFile   %    0 
            New document.      Changed    I    $B@p     a       Document is changed.       Changed    U    $B@p     h `    X       IMG            ,  Return values and saving dependend on state       	 IsNewFile   %    0 
            New document.      Function   I    $B@p     a       Document has changed.      Function   U    $B@p     h H    @   ,8   0    2! 4 f  R3WinSrv.SetSaveValues   .B@0      ,  l        Save the document           Z H       R3WinSrv.SaveDoc   B@    V!        3  Say to wswinsrv that the document has to be saved.             A@0      &  Get the DEE channel for dde commands.          $ l  ' j         
  HR or STD                     Remove all document variables.     B@:          x
      Set the templates as saved.        (         V! (       Save the document  ActiveDocument.Save    B@        VB@          V(                             Say that something has changed.    R3WinSrv.SaveDoc: DDEExecute:   j$      change     B@    j j  change A@       	  a 	    /  Say to wswinsrv that the document has changes.            R3WinSrv.SaveDoc: nothing to do.   B@  A@.        Set all as saved.  (         V! (     V(       h H   ,@   8    2! 4 f  R3WinSrv.SaveDoc   .B@0    ,   l   `         Remove file       B@          A@        ,       2! 4 f  R3WinSrv.RemoveFile    .B@        ,`  l X  P   Attribut e VB_Nam e = "R3W inSrv"
 ' Compil er constants T
#BC8 IMG bF0alse ,
(Tru &RSTDR()'?HR)	''O ^ Uniq ll the a dd in ws 8word.dot.This  no long! used
 PrivaSu
b &I&AddI n()
  Dim + As 
	R3LogF .rite @Line (.4Un	'"'' Iter:a[YsF  For Each8In8   /8 check: " +.A   ' ifKFL, tr y to del8ete&A.   If UCase(adC}"WS 8WORD.DOT" Then
\  0-Q- A1D$GoTo Exit^End )Next

Error=: q .Trace T:=.Desc ription,  Module:=z
%@A$@
C| sp ecific fpincA  ubl Exec(FcodeS@ng, FlagQs B:TChannelAL\Mark<edc maniOn c &%A:v.O_aXt C+#(App a".S tatusBar!M'SAP R/d3 de#EE" Ob4sa%/a^ Save  lno8t s`[YIn	#(1$+, "S") > 0(YZE=cA9v eDocumen t.ReadOn|ly"cdy  `*KI~fg&QTR3Variable _poseAm ^Open ed", Valu`X  #2<> "I'B0sear gl@ossary protectPed d(smethos !8valiAaJ`.FPcuTypwdNo0Sp.FNormal6j=  ?! .#QPr eparecoNmpd Hr= Z(áC+ ", ,FullҀ3-), Chr(34))&0 A!0SLen()) < 256z	 +f9 t	7cH)$  }'0
!~DO=àf.GetP|_hzDDEJ	C	HuIuIontrol passDJeWT3:=d"/ J9%'jrmin3S#M1KsM\ogQqyD:R WTese 1|vAC

 "I



  
1yb6Cofbacki*pd#Xmm8 "M\1dowtP MinimizEd`1/&ca3R`!0Aay s|`ZTempl@.ts  LSedr.
=s.C1?ub3InitilzR3 s ervHunik=te(W, obj bLoge#/!%
np|0x1k{ QCYaB0dRl	:=, Topic:=PUstr(o(f(pna R3 .Set  Qx4ǒAAoeObjP`" etDocVar  Name:=" DDE-Chan nel", Valu T@
   
GoTo E xitLine@
Error:<R3Word&.Log Text:= .De scriptio n, Modul 4inSrv. Initiate" V` UEnd  Sub

'@Termin " @the co cM to R/3  Windows Server 0 
Public'A =()Dim  As Long2  On> \upAp
p(a;.StatusB= "CN `  R3File. prite  ("xH-' Getn number , after  save all  documen t variab les are empty.$l=({3S$C$BIf A@Tve.ProteYType <@> wdNoG Thenl<:0Xn'tC4 "Bf 1!Unp!NormalT ;l.2d = Tru@   0Att`achedgElsu:7@XA3IfA '   a wswins
ZdǇ" + str($)B0	f	d:=DClo|seT:ge`   ' Unist!\aSadd-in  ws8w.dotT nUnICAddIBVTrac~eᙇ1%' AvisBBdXXve^L?E, >žd. ^U@8I'FFun
'  PStriA =a.#(
bRP""H}E=aֆY!/w0b lopB`ȀHomeluvLiaBrQca #of no9!فNo0s8ZSeti
Za' HR
##HRf"' No "cgesR3+"psIteFm&ged~" 8#uI@t IMG De	ed O__qx_r_[mυąwet/s?Yv.0f xReturnu*!c`
P) depend   on ^'r p"R36IsNew") > "05$ew\ Av%%ӣ"I^w8'  QS*#Q**A"Uc$</+!1++c	IG1has$=\=7Opb/@// ,77ݨ00#TeInteg-OVɡOVogt772ubw<Fa@f8SanyEa5 Qbe
QkRDEE  nel for ddamm@?sd9y9pGoQ!c STD](c) Or ()&Remo/$ȆA!3`0d	΀hp0  lʏp%)' "uC	?"6"o ec"ʱ?AJ(QJ+%h%sth?A^OA?.!
P:  D DEExecut e: " + s tr(Channel) p" c 0ge")
   JD :=,  Command:="h
#E nd IfxElse' Say  to wswi nsrv that e docu ment haszs.5R3L ogFile.R@3Write L@ine (" i nSrv.Sav eDoc: no thingkdo.SetNo# Values
0   all =s !d<Nor malTemplate.d = TruhActi8].AttacxhedF	) 
GoTo Exitr
Err4or:Z yord	.  Text:=.De scriptio n, Module΍"@ SubAEPublic @ RemHove](f _n ame As StrWOn ,)CWYmB ABKicE<CTrace$fD9E                                                                                                                                                                                                                                                                                                                                       
   pp,  D Cll>xt
5  2 tlp          $                                 x t l p       K I Ctt
   /t *np"   $ 4  p  kn p 
J    ^   pz 
K     p"   $ P  p@ ) p 1cL%\p"   $ 4  pX \* p5\ L Ctt
   /t p"   $ 4  p p  p"   $ 4  p  p  M Ctt
   /t 
N     p"   $ P  p@ ) p 1cL%\p"   $ 4  pX \* p5\  p"   $ 4  p  p   4t
   pp,  I CDD>tH
5  2 HDp       8 $                                 t H D p \    h     K0  O  *x
   /x l Mh@
P   d  4x
   dd,  Q C\\>x`
  2 `\d          h $       d                          x ` \ d                             C       *#h *#`d"   $   d 2 lh`d                              *^d"   $ 4  _ _ S R P _ 5                                                       3                                               F i l e S a v e H t m l                                          O                                         O      _ _ S R P _ 2 8                                                                                               _ _ S R P _ 2 9                                                  ,   E                                         e               $ I       `           $ q       `           $        `           (        `     !          0    p                                                                                       x      n           3                                                                 (     6
    <     <     <        B|g8 $ * \ R f f f f * 3 2 3 8 6 7 4 5 6 f            `        x   |+                   4 p                $                           H                  @   ME                                                                            "                      l p   h   E Attribut e VB_Nam e = "Fil eSaveHtm l"
Publ ic Sub M ain()
End<
                                                 rU              ~}         	       	     )      (        8                    $                                       k                                                      rU              ~}         	       	            	   R         %      y      A            !&      I&      &      9'      	(      Q                  (      (      a)      i      )      )      
           )            )      *                  9*      Q*      i*      *      !     *      I+      	,            ,      -      -      -      .      )      	      	      q.      1/      I$            y/            /      +      y'            	0      a0      0      0      1      Q2      2      2      )3                  3      	4      4      4      !5      Y5      q5      5      5      q           5      Y6      I     6      97      7      h       Ctt
   /t $p"   $   Qp[lxh   $ tx(  lt*d
   2 td 2tx(  >tFTD
  D:4 ]/$6 TD\  $	 tx(  lt*d
   2 td 
xD   
  xh 9  
 4t
   pp,   C  >td
  2 d p          \ 0       
              l h x (          t d   p T D $   $    K;    *#l *h
   2 lh ?  *#l *#h *#`d"   $   d 2 lh`d                              *^d"   $ 4  d  k^ d  *^d"   $ 4  d  k^ d  
                     @   Chh Cll
  2 lh    = -Xd"   $ 4  d< lXd -Xd"   $ <  dD  lX   d 'ld"   $ <  d  >l1td   T  *#l *#h *#T`d"   $ 4  d  l`*#P *1p2
 lhT`Pd H   ltF0"   @
  @     (  ]/ ltJ   '5@\ KlpF0"   @
  @ ltF "   
  `1p6
 @    lp *1p 
^   qx   lp*l
   /l !! d"   $   d d lplx"   $                  ] " Cll
   /l 
#                    " Cll
   /l 
#      d"   $   d d $ Cll
   /l !% d"   $   d d      &         4 #   d"   $   dt d   4l
   dd,  ' C``>lh
  2 h`d ( Cll
   /l  d"   $ P  d@ ) d 1c0%@d"   $ 4  dX @* d5@  d"   $ 4  d  d +' '@d"   $ 8  d + d6 @            $,                     t p 8          l h ` T P d @       h       K  !, p"   $   p p )-  *#l. *#h *d
   2 lhd `  "   $   l`qx xMP@@
/  @`1t5@ 0 lt*l
   /l l 2 Cll
1  /l l 3 Cll
1  /l t4 Cll
1  /l  4l
   pp,  6 Cdd>lh
5  2 hdp       <  (                     t            l h d p @       K !7 t"   $   t t 8 Cpp
   /p 
^   qx -lt"   $ 4  t< llt 9 Cpp
   /p $'\t"   $ 4  t t5\  t"   $ P  t@ ) t 1cL%\t"   $ 4  tX \* t5\  t"   $ 4  t  t9  : Cpp
   /p 
     ; Cpp
   /p 2:<< xML@\
/  \,`p
   /p6 \, lx"   $    = Cpp
   /p ! t"   $   t t > Cpp
   /p 
?     4p
   tt,  8 C$$>p(
  2 ($t  t"   $ P  t@ ) t 1cL%\t"   $ 4  tX \* t5\  t"   $ 4  t  t         X $                      $          p ( $ t \ ,    H     4 Cpp@  1t/p lt =6  lt
A  qxB   
    qx         H (       B               t           p    x     K?  B Cxx
   /x  . CttC Cxx
  2 xt s  4x
   pp,  B Cll>xt
5  2 tlp        x $       s                          x t l p         K  D Cxx
   /x "E Cxx@  #tF q2 xt_   G CttC Cxx
  2 xt    H CttC Cxx
  2 xt    4xrU                    	     (         $      (    `               p                                                                                                               x      n           ^                                                                 (     6
    <   F i l e S a v e F r a m e A s                                                                           Q      _ _ S R P _ 2 a                                                                                               _ _ S R P _ 2 b                                                  A   D                                         e       F i l e S a v e A s W e b P a g e                               $                                        U        <     <        B|g8 $ * \ R f f f f * 3 3 3 8 6 7 4 5 6 f            `        x   |+                 6 p         X    $                           H                  @   ME                                                                            "                      l p   h   G Attribut e VB_Nam e = "FileSaveFr  As"
Pub lic Sub  Main()
End<
                                               rU              ~}         	       	     +      *        8                    $                                       k                                                      rU                    	     *         $      *    `               p                                                                                                               x      n           S                                                                 (     6
    <     <     <        B|g8 $ * \ R f f f f * 3 4 3 8 6 7 4 5 6 f            `        x   |+           GoTo    8 p         inSr   $                           H                  @   ME                                                                            "                      l p   h   K Attribut e VB_Nam e = "Fil eSaveAsW ebPage" 
Public  Sub Main()
End< 
                                           rU              ~}         	       	     -      ,        8                    $                                       k                                                      rU                    	     ,         $      ,    `               p                                 _ _ S R P _ 2 c                                                                                               _ _ S R P _ 2 d                                                   B   K                                         e       R 3 O p e n D o c u m e n t                                      R                                       g  *      _ _ S R P _ 2 f                                                   H   J                                                    	  Changes:    8  GBo2, 17.09.99, Gerd Balzuweit, Changes for Office 2000     :  Use the rewritten data file of the merge fields in print,     preview and edit mode. H      4  The document is already open. Do some stuff for the  2       specific mode. t.             Z @   Z X   Z p           Initialize Logging             B@    R3OpenDocument.R3OpenDocument    B@  Wi  %  Initialize DDE to R/3 Windows Server B@         Call R3WinSrv.Initiate   B@      R/3 Windows Server   None    B@     Which datafile is used?    ORIG   PB@     '  Get the mode, preview, print or write.     DocMode   $% & ' <        DocMode    <   B@         Doc mode: ->  <   <-    B@          <         Entry point for pbww and pb60.          X H Q         CUSTOMIZING/INDIVIDUAL   B@        Switch the Dotfile.        P! R  L% N ' @    @          )  We do standard customizing without data                	  
                                           !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  ?  @  A  B  C  D  E  G  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Z  [  ]  ^  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  }  ~      .   !  We have to use another datafile.   LB@          TEMP   PB@   a     "  GBo2, Error-Fields in edit modus.  /  Rewrite the data file. Set the empty fields to       an error value.    LB@          )  Use not the default file for mail merge.   REWRITE    PB@       h     %  Link the datasource to the document.       P! R   &B@T       @  
          Show the data, not the fields.     D  V! >( Bh 0    P H Q           We have the print mode here.             PRINT    B@        "(         Which data file has to linked.     P! R' >    h   8     `%         recor  `%     a      h         >   `B@p     Abort printing.       5 Error: Table length for mail merge data is not valid!    B@      Abort printing!    B@      All is saved.      (         V! (     V(           Terminate.         *B@B          ,8   a 0     +  Check the used merge fields in the letter.  to       an error value.    LB@          B  In this file the empty merge fields are replaced by error values.    GBo2, ERROR-Fields           Print the letter(s).     h     (         V! (     V(         ActiveWindow.Close   B@          #  Note the function don't come back.         *B@B            H Q     Preview mode.      Preview mode  "( $  PREVIEW    B@      Check the datasource.      P! R  L% N ' @    @         . Error: The data file contains not enough rows.   B@      (         V! (     V(         B@         ,  h      /  Rewrite the data file. Set the empty fields to       an error value.    LB@          )  Use not the default file for mail merge.     GBo2, ERROR-Fields         REWRITE    PB@           Link the data source.      P! R   &B@T       D  V! >( B    Protect the document.      @          H n  VB@F       h       Hide the save comand.                                                                                x      	           r                                           	        z              8     6
    <     <     <     <     <     <     <     <     <      <$     <(     <,     <0     <4     
    L        
         L    L    
    L             L    L        L             
    
    
    
    
    
    
    <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <        B|g8 $ * \ R f f f f * 3 5 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f  * \ R 0 * # 1 6  * \ R 0 * # 1 0 $ * \ R f f f f * 2 9 3 8 6 7 4 5 6 f  * \ R 1 * # 9 1  * \ R 1 * # d 0  * \ R 1 * # c 7 $ * \ R f f f f * 4 e 3 8 6 7 5 a 8 0  * \ R 1 * # c 0  * \ R 1 * # 1 7 c  * \ R 1 * # 6 d  * \ R 1 * # 1 1 3  * \ R 1 * # c 6  * \ R 1 * # 1 7 e  * \ R 1 * # c 1  * \ R 1 * # 1 7 b  * \ R 1 * # a 5 $ * \ R f f f f * 1 a 3 8 6 7 7 c 5 d $ * \ R f f f f * 2 b 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 7 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 a 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 6 3 8 6 7 4 5 6 f $ * \ R f f f f * 3 1 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2      :   `           (k     
       Wr`<x     HI `>t       `@r            :          H      $   @   X   p   x      0    `    P$L&D @  l     X   @x  h     @d       # `  V"`*HD @   `	     @\	         @H  L         @<         @,           2.               @(         h                                             ME              
                                                             	         	 >       	 @   P    	        	              	      	 :       	        	      "                (      0   	        8   	     	    @   	    `   
  h   .  x   	     	 ,      	       &     0      	      	    8     X   	     	 .   p        "     *      	          	 &       	    H   
  P   &  `   	     	            	           	 0      	 (       
  (     8     P   	 (   X   	 6      	       
     	     	 0             0   	     	 ,   8     h   	          	 &       2         	      
     	 $      	             # (   	     	 &   8    
 `        	 ,   p   
     	
     
  x   	       N        (   	     	    H   
   `    1 p   
      	     	       
 +         
     	 2           	         (          X        
       p   	      
       1    
      "     	 *   	   
 + @	     P	   	    X	    ! p	     	   	     	    	     	     	   >  	   
   (
    1 8
   
   H
   
  X
     h
     p
   	     	 6   x
   	    
   
  
   	     	 0   
   	         (   	      	    H     h    2    	     	             0         	      	       
      	           .     	       H   	      	 ,   P   	       	             
       1    
      	      !    	                  < 4        X     `  x    DB@R        P `    Error: Unknown document mode.    B@    k (    &  In case off errors it is good to have        all templates as saved.          set all as saved   B@    (         V! (     V(            "( $     ,h   `    2! 4 f  R3OpenDocument.R3OpenDocument    .B@0      ,  l      
 &  Initialize the mail merge ext object.      B  In this file the empty merge fields are replaced by error values.    GBo2, ERROR-Fields       H    >  `% ~         default    &B@6 p    h     single   &B@6   x  f Attribut e VB_Nam e = "R3O penDocum ent"
'  Changes:,GBo2, 1 7.09.99,  Gerd Ba lzuweit,V for Of fice 2000tUse th e rewrit ten data  file ofAmerge e lds in p rint,<pr eview an d edit m ode.

 Option Explicit(' T gd i s already o . Do so stuffUK2speci Z.'
Pub+ Sub  ()
  Dim As S Tng
D nFmniNumberIntegDer^  Ofrr GoTo EaLine,'  Initial ize Loggvi: V Q;.R3GetR3W e| (}@:D DE to R/ 3 Window@erv1  #aCall+ Srv.4te"BR3 Appl:="", objNone)Which@used?E@lobals8S etDFM@ sCA@ORIG@  P, @hA = 4Variable.Item|(" A6.oc@ Ag	 , Value:>=C,VmB:  ->" +C!+ "<-CSelect Ca߅g  Entry poaupbwlpb60`k   8 "X"#I CUSTOMIZ ING/INDIVIDUALAC+!' Switc4DotA5  	d*FH@l@]6 +TabLength(9 n`IS aIf,
1anC!We d tacusto(miz@ houtJ&dhavYo  Lo`rOhR3+nTempSTEMPf0ElsbacC-FiEurs
ReBW[ư.N RB`tytBo$an ev?T6/i	AnotefaultQmail "GwREWRITEG$If$i' @kc`sourPFR3ExecNNg\N> NShow, !fB8HActiv&e ~".M#Me.V "?CswdTlD.E!C!""%'  0,swEherCN&Af]PRINT'?[icaqzF.]bSta`= wd Mini 7
\!hasqg@ked&w?!C"|AvExt.checks
()TrueC!7x#+ extqiW  |t 	 
g etNrOfRe cords() 0<= 0
!
AbortSI/_{  E: W9lWHDv!,Aid!7 ǋ
	' AЃsav( CNor(malUlP&.S_!4[5a  d8/ e0rminveC0.Clo)]#xitGf<_+DюS3`!*ler:)  0p %= 012 8' Pq(s),TFL@%dC_m"s0-lD!3 eN#ed#""?
[?O"00^!W' NoSfun don't cqback&_rA#1p[AA[usBar"PFoog+PREVIEW5I+Cx___P}\`Ł`.xOqsh contains2{enough rP. H%  %%%^&QT%H   GoTo E xitLine
  End Ifh' Rew rite the  data file. Set$ empty &el ds tonan  error v alue.0R3 FHandlinPg.R3\D WF V$  	' U se nolde fault f [mail merg`' GBo 2, ERROR-FiMR3Globals = ` DFMode s:="REWRITE"
>k}sourceExec%aD (2Getnname),Act iveDocument.McMcView^CQ s = wdTogglRPro8tec)If  iNumberD#2 Then  "Typ e:=wdAll owOnlyCo:m*sE' Hi@Ssave0 com z~Me nu.Disab4leA{S@	ZCayElsF7R3LogA	WWY@e ("Er:  Unknown$ dD< m J."ǆX%A)SelG@' In coffès it is good  hB&' all t@lates as 7d5'+sɁ'NormalT.Bd gTru@eAttachedg+Appl ication. StatusBar@" _A
-a/:R3Wo4rdb.`2 T ext:=`.D@escrip,  kulH"R3Open] 6ub
                                                                                                                                                                                                                                                                                                          rU              ~}         	       	     .      /    7               T      IU            U      U            AV            yA            iV      V      )      V      !                 i             !           % y      A            
      Q      AW      YW      i                       iq      Qr      )      	      	                % o      k      AY            Y      Y      Z                  Z      q[      Q                    `    K)     1l/l  Cll
  /l  Cll
  /l   Chh Cll
  2 lh  Cll
  /l 
 Cll	  1x/l x
 Cll
  /l   lx*#l *h
  2 lh lxCd ld 0  Cll
  /l    l  pr/l kr 
     Cll
  /l;  
     Cll
  /l     l
  /l kr 2~ \`"   $ 4  `  \H  ) `\ z ld 0  Cll
  /l #   `"   $   `t ` 
   1t t   ltCll
   /l !     " Cll
  /l # Cll
  /l  `"   $ P  `@ $ ` 1c<%L`"   $ 4  `X L% `5L  `"   $ 4  `  ` +','L`"   $ 8  ` & `6 L, ]  '    ) Cll
(  /l  * Cll
(  /l     `"   $ P  `@ $ ` 1c<%L`"   $ 4  `X L% `5L  `"   $ 4  `  ` + Cll
  /l +','L`"   $ 8  ` & `6 L,z ld, 0e !- `"   $   ` ` . Cll
  /l    l  pr/l kr / Cll
  /l  `"   $ P  `@ $ ` 1c<%L`"   $ 4  `X L% `5L  `"   $ 4  `  ` 
0    ]  
     Cll
  /l    l
  /l 2~ \`"   $ 4  `  \H  ) `\ krY 0','L   `"   $ 4  ` `6 L,  
1   z  2 Cll
  /l /d 3 Cll
  /l  `"   $ P  `@ $ ` 1c<%L`"   $ 4  `X L% `5L  `"   $ 4  `  ` !, `"   $   ` ` ] 4l4   ``, 6  C((>lh
5  2 h(`       T `0       ]              d x t (          l h ( ` \ L ,     k                                                              rU                    	     /         $      /    `               p                                                                                                               x        _ _ S R P _ 2 e                                                                                        e       R 3 L a n g                                                                                                   _ _ S R P _ 3 0                                                                                      >        _ _ S R P _ 3 1                                                  G                                          F  e                D                                                   	             (      6
             L        L             L    
    <,     <0     <4     <8     <<     <        B|g8 $ * \ R f f f f * 3 6 3 8 6 7 4 5 6 f  * \ R 1 * # e  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 c  * \ R 1 * # c 0  * \ R 1 * # 5 b  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f    H  +L   `           k               `h             J          x      $   0  @     p        0  X  H  `Lx      0   N"P2.P$P R O J E C T                                                                                           k       C o m p O b j                                                  b                                         j       O b j e c t P o o l                                                                    c*>ʿ c*>ʿ                                                                                                                                 L@d	      @T      @D           @  4     @$     	 @            @(           @                               `                 X   ME                                                                           	 J        	 J   P    	              	      	        	 *       	       B             	           	       -     	 0     8   
  H     X   
  h     x   
          	                  
     0 4                       D  Changes: In Office 2000 german first release an error occured while         D  calculatin the language. In that case the english template is used.''''''X        Return the laguage.''''''   #  "d" or "e"; more is not supported!                    Z @         N!   "%  '          P! H Q   I  d ' LLoggin  P! H Q       d ' LP      e ' L.R3Opek h    ,`    X     e ' Ltializ  2! 4 f  R3Lang.GetLanguage   .B@  ,   f        * Attribut e VB_Nam e = "R3L ang"
' Ch $es: I n Office  2000 ge rman fir st release   erro r occured while calculat in the lA uage.t`hat c?e nglish temp 0e is  used.
 
Option  Explicit' ReturWgVr"d"  "e"; morHnot s upported! %
Pub%  Func-Get~#() As S ng
   Dim WordVariabnB  O K}G oTo ELin ~= Ap]on.Internal(WdIndex. wdProducQJID)(S ct C. 	RbID!Gփ  qd z   SwissgEls@<NeB0End .#
KxitJM:3)CR3;
.Trace Text:=.Descri, MNle:=.=#E@&ŀ
                                                                rU              ~}         	       	     1      0    
   y      A            i      [      W      Q                  W              K  -T   d"    $   d  Thd 	h D D4  ]/$\]   Cx  D4  ]/$\}   Cx    Cx 5D    Cx 4    dd,  	 C> 
  2 d       d  0                     x D h                d T     k                                                              rU                    	     0         $      0    `              p                                 F i l e C l o s e N o S a v e                                      F   @                                         H      _ _ S R P _ 3 3                                                  N                                       H  :      _ _ S R P _ 3 2                                                                                       Y         M a i l M e r g e E x t                                                                                 )Q        "%  '                          ? Datenverlust! Wollen Sie wirklich abbrechen, ohne zu speichern? ' X  Warnung ' a X    > Data will be lost! Are you sure you want to exit the document?' X    Warning ' h     X  Z  \   $  ' Vt$ef      Attribut e VB_Nam e = "Fil eCloseNo Save"
O ption Ex plicit

'  th e docume nt. Ask for s n. H 
Pub f S ub Main( )
  Dim RetVal 1  Integer%O drr @GoTo E
Linep  R3Log.R3WriLte  (.j"jU hecBkmode   'If Not,DocVar.Get("M")" Then  We  are in JwC )   (Active d!False#$ifKuse r realy  want to  go back!;=For{,    @= 7
78Go oLut  YxitYEnd 2CGA' Terminaa#A*-R/3Apa.StatusBarRB4
,:it...	  CSay @all isdOUProte Z onType <> wdNoGH>qcUnp4U nlink dataR3ExecUn HkDfil+et+a+TTruBachedTehmplS.ENormalMPWindow.
A
mF:`lordb. m`>xt:=`.Descri,  eule:=p
EL !.!!zPrivGFun"9Z	!WLangPTitleSng!Ms iTrY al(wd`IductuageID Q"(wdG`an ) Or SwissA` I enverlus t! Wolle n Sie wirk h abbreBn, oh ne zu spDei rn?f  	Warnu4ngE  ga
jbe ລ Ayo 
uee 5eRiE?`| Box( , vbY@esNo + Exclam,*ABe@B
h  x       `t     e in`Xp     !     X   R            $   rU              ~}         	       	     2      3             	\            yA            y      A            
           3 q\      i           % 	      )      	      Q                  \      ]      ^      )_      	      $      K  Ctt
   /t # Ctt  #p 02 tp  *jl"   $ 4  l  kj l  
	   pz kz      !
 l"   $   l l -dl"   $ 4  l< ldl  $'Tl"   $ 4  l l5T  
     l"   $ 4  l  l 1cD%Tl"   $ 4  lX T l5T  l"   $ P  l@  l +'4'Tl"   $ 8  l  l6 T4  4t   ll,   C00>tp
  2 p0l  (     L $                      $          t p 0 l T 4         0\   l"   $   l  \Upxl5\ kx  kx  _   Cp  Ctq    Cp  Ct  3','\tM<@   0   pML@^  pz6 \,         P  ,       q               p t           l \ ,        f        # rU                    	     3         $      3    `           $      3   `              p           	 "   h     !    	     	    rU              ~}         	       	              9         	h                 9           a      	            1b      !     I9      	d      e      h      e      Q                  i             i*      n      :                                                                                  x      I	           3                                           e	        %             P @    >
                       
    L        L    L    
         L        L        L        
    
    <T     <X     <\     <`     <d     <h     <l     <p     <t     <x     <|     <        B|g8 $ * \ R f f f f * 3 7 3 8 6 7 4 5 6 f  * \ R 0 * # 1 1  * \ R 0 * # 1  * \ R 1 * # 5 b  * \ R 1 * # e $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f  * \ R 0 * # 1 6  * \ R 0 * # 1 0  * \ R 1 * # d 0  * \ R 1 * # c 7 $ * \ R f f f f * 1 a 3 8 6 7 7 c 5 d  * \ R 1 * # 9 1  * \ R 1 * # c 0  * \ R 1 * # 1 7 c  * \ R 1 * # c 6  * \ R 1 * # 1 7 e  * \ R 1 * # c 1  * \ R 1 * # 1 7 b $ * \ R f f f f * 2 7 3 8 6 7 4 5 6 f $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2    (  X      `           0k   / /          `Tz         #V  `          ,k     3         `h  x       `t     e in`Xp     !     X   R            $   @       P  h     8    VV"&  @  t     ! >@  p       @l	         @j         @d         @  T         @D           *2.             @4         @0                        h      `Vz        h  3       "Z\     @l	         @  \         @  L         @<       @,                           X                        ME                                                                         E           	      	 (       	    0   "   8       @      H    	      $  P    	     	    x    	          #     	         *     	 .       
 
    	       (   	    8     H     P     X     `   	     	 "   h     !    	     	        -    
 $         	     	       
     	     	       
   0    1 @   
   P   	     	    `   	       
 +    	                  2 4                	     B                         	      0      (   H  H             F                	       3      (   	      	     8  x      "  Close the document. Ask for save.             Z @    0     FileCloseNoSave.Main   B@          Check the mode.at        DocMode   %            We are in write mode.r "e  V!     s  '  Ask if the user realy want to go back!   $ V  ' T        T            Go out.   ,   h    h    h        Terminate and back to R/3.         Back to R/3, wait...  "( $    Say all is saved.  V!       VB@        h        Unlink data.     &B@(            Set all as saved.  V(         V! (     (           Close the document.              *B@B          ,`   X    2! 4 f  FileCloseNoSave.Main   .B@0        ,  l   X     Z    Z    Z          	                           (    	          0        8    	      	 ,   @    	    p   "   x                                	           "  H   	     
      
      
      	     	       
  (     8   	     	    H   
 
 h     x    +              	     	 <      
     	     	 0        8   
 
 H   	     
  X     h     p   " F                   	      >         	     	             	     	 8        @   	        P       X   	 N   `   * C                	      	 6      	    (  B   0      8      @   	       H   	       P   "      	      	       
          	     	       
 
    	 &            T  p                  	           	    	     	 0           
 
     	          	           L  0                  	          @  0                       	            	            B 4    D 4                    (   4 4 X               	      	 ,      	      B                  	      -          # (     @     H     P     X   	      	 >   `   	      B            8                   	      	 &    	   	    (	  B   0	      8	   	     .       @	   	       H	     > `	     	     	   
 
 	     	   	      	 :   	   	    	  B   	       
   	        
    - 
     0
    % @
                                                                                 x      v#           d                                           #        BD                    8   (L    >
    
        L    L    L    L        L                 L        
    L            
    L    L    L    L    L    L    L    L    L    L    L    L    L    L    <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <        B|g8  * \ R 0 * # 1 9 $ * \ R f f f f * 4 e 3 8 6 7 5 a 8 0  * \ R 1 * # 1 1 5 $ * \ R f f f f * 2 b 3 8 6 7 4 5 6 f  * \ R 0 * # d  * \ R 1 * # d 4  * \ R 1 * # 1 1 4  * \ R 1 * # 1 1 3  * \ R 1 * # c 6  * \ R 1 * # 1 7 e  * \ R 1 * # c 1  * \ R 1 * # 1 7 b  * \ R 0 * # 9  * \ R 0 * # 1 1  * \ R 0 * # 1 8  * \ R 0 * # c $ * \ R f f f f * 2 e 3 8 6 7 4 5 6 f  * \ R 0 * # 1 6  * \ R 0 * # 1 0  * \ R 0 * # e $ * \ R f f f f * 2 0 3 8 6 7 4 5 4 2  * \ R 1 * # c 1  * \ R 1 * # c 6  * \ R 1 * # 1 1 3  * \ R 1 * # 1 1 4  * \ R 1 * # 1 1 5  * \ R 1 * # d 4  * \ R 0 * # 1 8  * \ R 0 * # 1 8  * \ R 1 * # c 1  * \ R 1 * # c 6  * \ R 1 * # 1 1 3  * \ R 1 * # 1 1 4  * \ R 1 * # 1 1 5  * \ R 1 * # d 4    
     g   H        @       $     $     $     $      $   ~p          $   @t            $   @r            $   `z           $   p     `        8  k     9 9     4  ir           `x         `v     `tt         `vr         +~     `        (
   k     : : G    | i       `t       `r         #x    `          @k `              i           ``  t         `vr         #    `        
  8k     	 	         i            #    `          k P              i            `0   x         #z    `          @k               i           ` t         `vx  r     ce f+|    `           k X          ~     $    tx      ine    $    p        O  $   #     `          Hk           d coiD          C+    `        	  k @          Filei       xt.c tx      ne c   $   `d     !") +  	  `        X   k  	        out `0x      col>  `          rk  
 
     $ ` z     Filebp            @    : dad           @    d!")i   h        @    b k           @    ine m           @    ds no         @       ` 0           ` 8          i         ` (                       P                           H  p     +    `          D+             ` @                      $   `  l     0  p      P   @  `         `  H  x     0      @              @    X  H      p        p      `z       p    `     @ @h     @  X     @  H     @8     p  P  0      H         `            +P  
  `          z+  
        `z           @t     @p  r       H   @p     (  p   @  `     @P     @  @       @  0      @        p   @      p      H  x  0    `        h    fhj xzx @l      @   \     @8  L     @P  <     @,     @     @	       |n2   P        P  x  h  `xx    P     @  `     @P     @@                x      `zx     x   	          @  `        @P     p   @@        `                @         }x     X     V    @  h     @  d	     @(  `	     @\	     @h  X	       @   @TO	          h     @  D     @  4     @  $     @       @     h                 `x    p                  @h     @(  X     @H     `~z    @  G  bdx   @(  l     @  \     @  L     @<       @,       h  2.      x     @(	     @   @@  $        @             8      P         `z     p          ldLd L@t      @  r             P   @p           @  `     @  P     @@     @  0        @             hn     @  T      @  D      @@_	        x        @X  0        x           @              @                            `z                 d                                    `z        8           ` h     l     @d_	     @T     (   @D               @p          @     @     
  8  @         @         p  @                         H                         ME                                                                                   	                    `
     h
     p
     x
     
   	      	 >   
   	    
  B   
      
      
          	     6  `   	 6   
    A      !    , F         <      ' p        X   (          8   	                    	     
  @     P   	      	 8   X   	      B        5         	      	 F      	       	    (  B   0      8      @    $ H     `   	       h    # x   j F `                                    	      	 :      	      B             	     .  0     (   	     
  0     @     X   T 2     %      h    &          
         	      	 6   `   	    X  B   @    
 P     H   	      	 >   (   	    h  B                   p     x                    p               	     "            <     <     
 
 (               8     @   	     8  x   Z H  Z p  Z     Z   Z   Z   Z      &  Initialize the mail merge ext object.               Z 0  Z H  Z `  Z x   X     MailMergeExt.check   B@  MailMeZ    '       . f          . h          . j          Open the file.   $    '         r          Read the field codes.                     
      $ x   fB@       $ z '    H     6  Allocate a new collection for the merge field values.        . hA     *  Read out the file an fill the collections  $ x  _                  . j        ' v      
      $ x   v  f%    jB@         v   ' v    $ z '    0    j  hB@          Close the files.   S    2  Extract the used merge field from active doument. $ |  . n     ,         H  R3WordError.LogError Text:=Err.Description, Module:="MailMergeExt.init"    2! 4   in MailMergeExt.init  A@        ,   l       0  Check the file as a data sotrce for merge mail.             Z   Z      ' ~    2! 4 f  MailMergeExt.checkFile   .B@0 ")      Open the file.   $    '                   Read the field codes.                    Check the last sign of the line    $      < MailMergeExt.check: data line contains no </tab> at the end!   B@  ins a      h       ' ~   X  h P    $  ' b     ' d  *  Read out the file an fill the collections  $ x  _                d   ' d    $      / MailMergeExt.check: number of fields not equal!    B@      B@ ta ' ~   X  h P    $    b         0  lB@ xt ,(    ,     ' ~      h                Close the files.   S   ,        ' ~    MailMergeExt.checkAllRecords()   B@   % MailMergeExt.extractUsedMergeFields()    B@  rg ,  f      %  Extract a merge field from the line.                 Z   Z        	 $     ' v      v   
          v   $   ' xa H    ' xh 8  f       8  Check the string. The string must contain a </tab> sign       as the last sign.     '        $   	 $        '   h   f         Calculate the number of fields.             Z p     '    0                 0  $    	 $         '   h      0        f      3  Cut the string line. Delete the first merge field.                  Z   Z         	 $     ' v      v   
             v $  '  \   a      '  h      ' zf      7  Extact the used merge fields from the active document.              Z `  Z     /  Iterate the merge fields used in the document.         V! >!            . |      f      2  Extract the field code from the merge filed text.             D  D    $  $  ' f      @  Check wheter all merge field used by the document have pendants       in the record.               Z `  Z        h%  .     '         n       %          ,  h        ,  f      4  Check all data records for a representative for the           the used merge fields.       Z   '       . l         0     d         0$      '          l   h       f       Z 0   0 C:\projekte\WordLinkR3\misc\MergFields\DATA1.SAP$ ~       0 C:\projekte\WordLinkR3\misc\MergFields\DATA1.SAP A@p     $   '        h   l     MailMergeExt.init    B@         C MailMergeExt.check: fields code line contains no </tab> at the end!    B@       % MailMergeExt.extractUsedMergeFields:        B@        MailMergeExt.calcNrOfFields()    B@          f `    d'           0  Get the number of records of the used datafile.      0$   f  LB@  7 MailMergeExt.checkAllRecords: missing fields in record    0$      B@        P    f      7  Check the collection if the record number is in there.            (          s.Ith       '   '     $  '  =   $  '      Z    & MailMergeExt.check: number of fields:   b$      B@         ' MailMergeExt.check: number of records:    d$      B@         &  . MailMergeExt.hasMergeFieldsSet: missing field       in record     $      B@            $  ' el  ! ! f'   $   
 $   $   
 MERGEFIELD       % MailMergeExt.extractUsedMergeFields:        is not a merge field!    B@  H    ! 6     h    x MailMergeExt.extractUsedMergeFields: Warning: The letter contains no merge field! May all documents will not be printed!   B@       { Attribut e VB_Nam e = "Mai lMergeEx t"
Opti on Expli cit

D im nrOfF ields As  Integer4Recor6:Mjcollec^ValuePLinen	:missing[Used
'_itialize the m  m ext (obj S. 
Pub Sub  init(da taSrcFilLS ng)
t  sXI2nNr
ad@dEmptyB@ooleani,dxOrr or GoTo E:R3Lo le.R3WrXite H(
.2",ASet i= New [  Dj@' Open[f O@W aE= Free(%
ZF <InputAD#SRead@0des$3C, iAWh!rLen() (> 0 D.Addract
	 cutaWend ' Allocaa n
X f 6e@ fA v/_B?o GAAW anllDs"sDo Not EOF()"/  <&  B>  AX= 1#uw-   MBLa	U.,f2Item(`$w# +4  E4%#sa0Loop a ' ClosA-LcR`!G0u@< from Jiv e doument>=Oa"ICe
xiBPz
F:`@.  T:=`.Descri ,odule:=	MsgBoxC + " 	c`End`(heck"!Us a } sotrcebaE"'FFunb cabana@$cAFa6!cBx Truea.bm&Q  )last sign of2lpyqIfCL TabOFal 2Thel  _\ogbCiR:cPsR\  ntai ns no </tab> at`V!a>!1
> r:1(If 1 = calcN]QU=CbI' WanWonWWWeNrjJ O	vne)_A+::hZ/o` 'qkocQ '((Znumber.Z't equal&Q;e)Z -1>eNOP5hF: :[+ str()bpArϛ3_jor!@bpkkʏkA?pEhUdhbzay!A.4hrivqFhpt2'( RMkh#zhы`7HhU/=ಠ(1@t, Chr (9), vbB inaryCompare72 0I@Left,2- 14E\+.-A.Cw~ P.'  mueco]@]sfas0hPP_-#%hH)l jePRight(!, g0  =CPeul#$8%"<N !diL#T=e le.R3Wri teLogLin e ("Mail MergeExt .calcNrO fFields()")
   \0 = 0.
For i (1 To Len(l rzIf Mid*, i, 1) , Chr(9) ThenE)k+ 10End IfNext i
Functio Z
'  Cut the string O . Deletefirst m) f}.
`Priva & hcut(#As S)) E8Dim3idxInteger	= In *(1,W3,  , vbBina ryCompare > 0sRightY,h0) - Else!a""	ZA	\	ac\usedVs from]ive doc ument]ublic \ ur 
UOcolley,A]retC	New 
akt@	B=code	'C{CR3Fi^֕1E' IteNrAs BPinLJ<AEach 	3In A EXveDV6.sC=i.C .TGLUCa se(Left(Trim()z0)z"MERGEFIELD"{D"BName	?,
LE: " +z8]
a E.Add'+c/__g!+@is@ not aie!CA)pA `3Count tMWarn@:A; `Vkntain May all|s wiCbe p`tedfSet s: tfB- xellttT' "fcGñ!12)T!
؀heck wh֞r*Uby hapendHant~' TDrecordV s0sxV (jBoolea{Rlvc!Vm
rV8ari0=  MValues. PmD:habuTjc&P3O?xN 2vcrJJ<  2	: pmissᅃAG_?#
;? #b@n pz$U= Fa|Go Exir6D5:4'<ata
|p pres{at f@ l+WlP'P,~cAxllRb)`$%iQ^U?& H%0o  (npp((i(s)oK(s?%i)<%R3FHan
d@guErroJr :=)il(1rv,7(OG`%number off(ˠ &d)fiИ' &getz&%PJO	CA2WwO if
}WreWqWIst?H/oWaWobj1UTreSSߑR-*=d)P HR`GTJHSub test((>bB06")a+(" C:\proje`kte\WPokR3\Pc\n) \DATA1.SAP"=init !yb\2%1X6te(2q                                                                                                                                                                                                                         _ _ S R P _ 2                                                                                         \        _ _ S R P _ 3                                                     U   ;                                               _ V B A _ P R O J E C T                                                                                 
0      d i r                                                                                                   p        a      )K            K      I     q     	      ia      =      =            j      y      A            
      Q      g           9g      1k      	l      l      m                 m      I     r      &      s      Qc      	t      L       K  Cll
  /l             '\  pv5\  kv]  
kvx lxJ      +','<'Lx  F\_     6 \L<, x  1x f      kv   
kvx     pr lxJ    [ Fx  1l\rM@_    ','<\>lFL_     6 L\<, krpr x  1x   >'<'L'\  M	@_     l=   6 \L<   kv=        C','<'L    l   ,  ll *F\
  /l6 \L<,         d  (                    x $          l  \ L < , $      K pz  Cll
  /l '\  pr5\  kr]  
krt t   x  	 Cll
  /l  pz $  t
      	    kr  $ 
krt      t      Cll
  /l  pz $  t
       Cll
  /l  pz $    kr= 4:<    ML@\
1  \,`l
  /l6 \, 4:<   ML@\
1  \,`l
  /l6 \,   pz 4l   ((,   C  >l$
  2 $ (         \ (                    t $          l $   ( \ ,    p     -    FP	   `
  `    @Upr5` kr `  #krl MP@`
   ``1x5`j    Cx   2     < p ,      j              x t           ` @    P      pz 8   l Mh@X
  X	   H
  H/86 XH\H  pz        D P $      H                          X H 8          Ctt
  /t  pz x Jcp  >(@ kxl M`@0
  0	    
   /6 @0 \w  kzpz  
xdp.        l  $      w                           t @ 0       |     -    FP	   `
  `    @Upr5` kr b  % Jkrl MP@logForm
Module=R3WordError
Module=R3LogFile
Module=R3Dialog
Module=AutoClose
Module=FileClose
Module=R3Menu
Module=R3WinSrv
Module=FileSaveHtml
Module=FileSaveFrameAs
Module=FileSaveAsWebPage
Module=FileSaveVersion
Module=FileSaveAs
Module=R3OpenDocument
Module=R3Exec
Module=R3Lang
Module=FileCloseNoSave
Module=MailMergeExt
HelpFile=""
Name="Project"
HelpContextID="0"
Description="Template for HR (english)"
CMG="9193373D3B3D3B3D3B3D3B"
DPB="9A983C374438443844"
GC="A3A1054E0F4F0F4FF0"`
  ``1t5`l   " Ct  ltCx  	       < | ,      l              x t           ` @   |    # Chh
  /h A\`d"$   $% 4 & d ' `@ ( Q\[Xp) d`T) : !hdp4 ) d + >h1ld FlMD@4
!  
   4$
   $
5  :6 ]/6 4$\	 l*  1l , ll*h
  /h '''$'4lMD@t$    6 4$+   , ll*#h7 *
  2 h  pT) V  t$ $  l    i 8 Chh
  /h  tV x          |<       i    $         x X T t l p 0     	     h  d ` \ 4 $   x   <     5 J   l Mh@X
  XH
!  H`1x6 XH         4 < (                     x           X H        $Dl MT@_    D t5D pz   dr@  #Ddt  D:T" ]/05D\  F:T- dD: . 0l M@ 
1   `
  /6 D0   pz    ds@=           0                     @ t d             D 0            / Ctt
  /t pz     x  cp  x0     2:@2 xM`@P
1  P0`t
  /t6 P0 %xM`@P
1  P`t
3  /t5P  pz &' '0'PxM`@_     6 P0   
xdp:        \  $                                t P 0   @        
  pz          $                                     H     pz   hrdE  h DT]/D\8   pz E   hsd        8 H ,      E               d h           D    X      Ctt   /tS   Ctt
  /t 
   pz +r  pz +r  pz         X $      S                          t                               	   
       /                                      rU                    	              (          `               0(         `     !         0(         `              0(         `     	         0( !       `     	         0( I       `              0( q       `          !     (        `     A         0(        `     a         &$      	  `          $      
  `          ( 9       `     a         &$ a       `                            p                                                              l     0*	 pH  d   Project  0Templ ate for @  !K  vH   !K  vH   !K  vH   
!K  vH   !K  vH   !K  vH   !K  vH   !K  vH   !K  vH   !K  vH   !K  vH   !K  vH   !K  vH   !K  vH    !K  vH   "!K  vH   $!K  vH   &!K  vH   (!K  vH   *!K  vH   ,!K  vH   .!K  vH   0!K  vH   2!K  vH   D!K  vH           q ^        b      boolean  C    each  D    else  E    ElseIf  S    False  U    for  Z    Function  `    if  c    in  t    line   Module   Name      Public   Text      then      TrueWordk VBA Win16~ Win32 Mac Project- stdole` MSFormsC Officeu ThisDocument< 	  _Evaluate FileSave h   Main, DataFile/ 	ErrorLine9 	R3LogFileB2 (   R3WriteLogLine  Application* 	 StatusBarʜ R3Execo (   R3UnLinkDatafileQ%  ActiveWindow+ ExitLineO R3WordErrorr (   LogError&'  Erro  Description  	(   R3PrintFLm  FileNr	 sNamed myMergex 	 MailMerge 	iDataSize iCountl 
mergeFieldP  MailMergeDataField݅ cField͡ fMailMergeErrorA R3FHandlingW (
   R3GetTabLengthl 	R3Globals (   R3GetDataFilename (   R3LinkDatafile.  ActiveDocument\  State  wdMainAndSourceAndHeaderw  wdMainAndDataSource#  Destinationл  wdSendToNewDocumentW 
 DataSource   FirstRecord 
 LastRecord- (   ExecuteY 	 SelectionZ  Findn  ClearFormatting)  Replacement  Forward  WrapWy  wdFindContinueBP 	 MatchCase  MatchWholeWordX  MatchWildcards  MatchSoundsLike0  MatchAllWordForms  str (
   R3WriteErrorFile  EndOfy  ActivePrinterp  PrintOut. filenamej  Range  wdPrintAllDocumentO Itemz  wdPrintDocumentContent|>  Copies?  Pages  PageType;X  wdPrintAllPages>  Collate 
 Background.  PrintToFileo  ProtectionType  wdNoProtection 	 Unprotect?  AttachedTemplate  Savedd  NormalTemplateq  FullNameО 	 Documents  Activate| sFName  MainDocumentType  wdFormLetters  OpenDataSourceK  ConfirmConversions  ReadOnly4<  LinkToSource	  AddToRecentFilesV  PasswordDocument8  PasswordTemplate  WritePasswordDocument  WritePasswordTemplateu  Revertn  wdOpenFormatText' 
 connection  SQLStatement"  SQLStatement1N  SuppressBlankLines  wdNotAMergeDocument5 
(   TraceError 	AutoClose  Right  UCasa^     	              * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 3 . 0 # 9 # C : \ P r o g r a m   F i l e s \ C o m m o n   F i l e s \ M i c r o s o f t   S h a r e d \ V B A \ V B A 3 3 2 . d l l # V i s u a l   B a s i c   F o r   A p p l i c a t i o n s             * \ G { 0 0 0 2 0 9 0 5 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 8 . 0 # 4 0 9 # C : \ P r o g r a m   F i l e s \ M i c r o s o f t   O f f i c e \ O f f i c e \ M S W O R D 8 . O L B # M i c r o s o f t   W o r d   8 . 0   O b j e c t   L i b r a r y              * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W I N N T \ S y s t e m 3 2 \ S T D O L E 2 . T L B # O L E   A u t o m a t i o n              * \ G { D C B 0 9 E C 3 - F C 8 4 - 1 1 D 2 - 8 9 3 2 - 0 0 0 0 E 8 7 6 A 9 4 8 } # 2 . 0 # 0 # C : \ N T \ S y s t e m 3 2 \ M S F o r m s . t w d # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y             * \ G { 2 7 D F 8 2 6 2 - B 7 C C - 1 1 D 3 - 8 9 D 5 - 0 0 0 0 E 8 7 6 A 9 4 8 } # 2 . 0 # 0 # c : \ t e m p \ V B E \ M S F o r m s . E X D # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y              .E.`M   * \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 0 # 0 # C : \ P R O G R A ~ 1 \ M I C R O S ~ 1 \ O f f i c e \ M S O 9 7 . D L L # M i c r o s o f t   O f f i c e   8 . 0   O b j e c t   L i b r a r y                                            
2 T e m p l a t e   f o r   H R   ( e n g l i s h )         B|g8      
 	                                 T h i s D o c u m e n t 
 213867456f *D             F i l e S a v e 
 223867456f *D     P  0  8        R 3 E x e c 
 1a38677c5d *D&r     P  x  @  8  0   &   A u t o C l o s e 
 243867456f *D*     P    0  x    8  H      D i a l o g F o r m 
 253867456f *D	W     h  `   m   R 3 G l o b a l s 
 263867456f *DP+         x   L    R 3 D o c V a r 
 273867456f *D;            F i l e S a v e V e r s i o n 
 283867456f *DBP            R 3 M e n u 
 293867456f *DD            H"   R 3 V a r i a b l e 
 2a3867456f *D$	     P    8     ]   R 3 F H a n d l i n g 
 2b3867456f *DL3     P  8  x     0    I n s e r t M e r g e F i e l d 
 2c3867456f *D     P  h  8     t   F i l e S a v e A s 
 2d3867456f *Dh           m   R 3 W o r d E r r o r 
 2e3867456f *D.2     P  8   s	   R 3 L o g F i l e 
 2038674542 *D0       P      R 3 D i a l o g 
 2f3867456f *D.     `  8  P  x  h   T&   F i l e C l o s e 
 303867456f *D     P          R 3 W i n S r v 
 313867456f *D     P  8         ?    F i l e S a v e H t m l 
 323867456f *D43            F i l e S a v e F r a m e A s 
 333867456f *D6^            " F i l e S a v e A s W e b P a g e 
 343867456f *D8S              R 3 O p e n D o c u m e n t 
 353867456f *D:r    
 P    x        0  @    8     z     R 3 L a n g 
 363867456f *DJD     8     	    F i l e C l o s e N o S a v e 
 373867456f *DR3     P    0  8  (   %    M a i l M e r g e E x t 
 4e38675a80 *D`d     P  8    @   BD  `  (                h  P  8                 x  `  H  0       e5
  Save R3DocVarM 	(   GetDocVare%  Kill  PathName' R3WinSrv9 	(   TerminateyL 
DialogForm& CancelButton_Click  Hide9z MergeListBox_Click2 CommentLabelR  Captionx R3Dialog}# (   GetLabelComment< MergeListBox 	 ListIndexQ MergeListBox_DblClickC Cancel  ReturnBooleane  Fields7  Addr (   GetAdrField OkButton_Clickf (   R3SetDFModeBc sMode 	(   SetDocVar ValueK (   R3GetDFMode (   R3ErrorFile TempPath  Environ, 
R3Variable˼ (	   GetItem (   R3GetTabFileName` (   R3TempDataFilename (   R3RewriteDataFileName  Path2 i` DocVar 	 Variablesn Count0v Resultur 	(   RemoveAll  Deletex test4 Res FileSaveVersion9 R3Menu8 (   SetDisplayModeOnI DisableMenuEntryj MenuB 	MenuEntry DisableCommandBarEntry CommandBarIconName (   DisableFileSaveC (   DisableDeleteC cb\ 
 CommandBar cbc^}  CommandBarControlP  CommandBars
  ControlsK  Enabled۪ EnableMenuEntry EnableCommandBarEntryX (   SetDisplayModeOff0 Channel 
(   GetChannel 
 DDERequest (	   Depose  DDEPoke  Data; Buffer-  EOF 	ChangeStro ToChR ChWith ch\ (
   R3GenTempDataFile9 TempDataFile InFileNr6 	OutFileNrb^ sLineu (
   R3RewriteDataFile5 TempFileNameI SetEmptyStringsC TwoTabs( Pos sLeft7 sRight 
EmptyField  Trim@  ChrK~  vbBinaryCompare̝ ErrorFileName FNr4 Test1c Buff~ Test2c InsertMergeField8y (   InitMergeDialog (   ShowMergeDialog 
FileSaveAs  MsgBoxR  Promptm  Buttons] 
 vbCritical+} Title~ LogLine 	DoLogging AbsLogFileNamex (   R3GetLogFileName 	LogFileNr  Time AdrField
 
 collectionW 
LabelField1 MLBI  Show IsInitialized] AStr@J LStr InFile} WordLang SplittString FirstStr9 SecStr$  AddItem   International  wdProductLanguageID  wdGermanw[  wdSwissGermanH CancelButton CommentFrame ItemNr8 sepStr. fDonel 	FileClose_ IMG STD HR] UnInstallAddIn( ad~\  AddInex  AddIns Fcode\ Flagso MarkedString 
CommandStre (   SaveDoc  wdSelectionNormalR 
 DDEExecute  Command]  WindowState|  wdWindowStateMinimize4a (   InitiateZ Appl9 obj Chan%  DDEInitiate  Appt  Topic  DDETerminate;  Val (   SetNoSaveValuesU (   SetSaveValues 
(   RemoveFile< FileSaveHtml< FileSaveFrameAsn
 FileSaveAsWebPage  (   R3OpenDocument   modev DataFilename۫ iNumberData,p  ViewMailMergeFieldCodesz  wdToggle  Protectf  wdAllowOnlyCommentsR R3Lang] (   GetLanguages  WdInternationalIndex?1  WdLanguageID FileCloseNoSave. RetVal; 
AskForSave MsgQ  vbYesNo  vbExclamation Module1b MailMergeExt 
nrOfFields< nrOfRecordsX MFields MValues7 
MValueLine
 missingFields4 
UsedFields)V (   init\[ dataSrcFile addEmpty_ idxӝ extractField; cutLinecH (   extractUsedMergeFields 	(   checkFile checkLastTab  	CloseFile calcNrOfFields strLine   field3 retCollectionQ aktiveField4i  MailMergeField extractFieldName  Code (   hasMergeFieldsSet record vc_ (   checkAllRecordszK 
 nrOfRecordn Documentj UserFormN OkButton|    Click    DblClick  _B_str_Time 
 _B_var_Str  _B_var_Environ/  _B_var_Right9  _B_var_UCasea 
 _B_var_Chr\; 
 _B_var_Midp  _B_var_TrimmT  _B_var_LeftQ 	fieldcode   _B_var_fieldcode 	  _B_var_ifP (   getNrOfRecordsF   _B_var_getNrOfRecords   _B_var_iNumberDataa    wdSendToPrinter 
  _B_var_ForjL  aX   _B_var_a 
isComplete8 (   recordIsComplete`  Ite 
  _B_var_Objz   _B_var_LogLine  strfieldc  ExitLienN  els 
  _B_var_elsF 	ptintmodev 	printmodeք t  a +  :           
          '  %	  /     $ 5 1 7 * 9 , ; , E - M
 ' Q / C 0 K 9  . S =  5  >                                             @                                                     A             @                                                                                                      D              @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          HR (english)@ 2<  e m p l a t   f  o r   H R 
( &n g >i s h )D  5  =+
			B|g8 %<9stdole>s qd ml c" w  \ )*\ G{00020430- C 	0046}#2 .0#0#C:\ WINNT\Sy stem32\S TDOLE2.TLB#  AutomationD MSFor ms> 
M (S F|m s/ w	mFDCB 09EC3-FC 84-11D2-8932FE876A948FD1 .twd#Microsoft ;" ^ Ob Library7 h0 j>2 7DF8262-PB7CC3 D"5c:\ @p\VBE\EEXDf.E .`MACmOfficDmO@jf i c=Bm).**D0 4C-5BFA- 101B-BDE*AA@l42J PROGRA~1\MICROS .O97.DLLH. 8.0M" ThisDocumentNh2  /T D@c u e n   1ZB,B$" +B FileSaveJ2 k NSv POУM! ApR3Execjc2"R 3 HE x`c H&  r	`AfClosX2 $t%Coee0-*+
`	DiaHlogAb 2  &ag&tIm	Wc3(g'R3Globals !(G"b4l4L+4aAR3OVarcAcANVrp(;%NVerRs 2>  (i ea OVDr i9n0q^P8QMenuQaQM`n FM(H 4mD oDR3@(iablQaDcD!)c(i )b"]ѭ	)) R3FHandling 2*  3 )H`n *di g'073,Inse rtMergeF`ieldb2Qx  IsRt ryered_ t0}\QU$A`1 SFKA1m_R h;CWordEr\ro1WWp)r0E r s0<2Fc>LFYU?{ W?LQF320T?RMV? [Y?q*l_T?Z . 8Z +?Z@ mؿ ݻWinSrv W!n0E&r0E?_[qsHtmlzz=(Hzmp/_ 3[iR`Frame/OsSSF0)a0   ^ ^rqAsWebPag@No`2 lW@b PHg   SQR3Open?2EVO@ÑlW&z <3dLa!W 7dLV?V  ? D$2No7rH{3N: T4%G3-Mairl2^ExԨ-M/pG]t_] B2D_dYe                   rU              ~  ~  ~  ~  ~  ~  ~  ~o      
   	       a          	      	      	     $ 	      	      	      	      	     ! 	      	      	      	     # 	     & 	      	      	      	      	      	     ) 	     + 	     - 	     . 	     1 	     2 	           Template for HR (english)     LogLine  	      Q                 sFName     Text     Module     Name     Value     sMode  _ _ S R P _ 0                                                                                           3      _ _ S R P _ 1                                                    T   P                                               D i a l o g F o r m                                              X                       0l>ʿP>ʿ            f                                                                                                            ms.EXD
  
      a                         h             L-[  DR
  %   C:\PROGRA~1\MICROS~1\Office\MSO97.DLL     Office
  
A	             i	      	      x                  R3GetLogFileName     R3WriteLogLine                k	           F  K!K  vH  	           F  J!K  vH  	           F     Document    @              Main                        FileSave.Main  	           F  Q                 Save and back to R/3, wait...  	           F   Q              p	           F  	   R3PrintFL     R3LinkDatafile     R3UnLinkDatafile  b	           F  
   VBA332.DLL  1       8           LogError  
   TraceError  fĤIx  8<  	   SetDocVar  	   GetDocVar  	   RemoveAll     test	     AbsLogFileName     1    1      S         #   Error in R3LogFile.R3GetLogFileName  1               1      c            [     ]   !   Error in R3LogFile.R3WriteLogLine  e	           F     Name     Value  f	           F     T1     Test     T2  
   AbsLogFile     NotExist
     R3Exec.R3PrintFL     R3SetDFMode     R3GetDFMode     R3ErrorFile     R3GetTabFileName     R3GetDataFilename     R3TempDataFilename     R3RewriteDataFileName     R3GetTabLength  	   ChangeStr     R3GenTempDataFile     R3RewriteDataFile     SetEmptyStrings     R3WriteErrorFile     Test1     Test2                  ActiveDocument.MailMerge   	           F  	           F  u	           F  	           F    	   <<ERROR>>  	           F  %   R3PrintFL: merge fields with no data!  1      e             R3PrintFL: document       not printed!  	   Printer: 
     Active document: 
      Main document:      Saved  j	           F
     Close document:   l	           F     Hans       R3Exec.R3LinkDataFile:      R3Exec.R3LinkDataFile  !   Data file for mailmerge is given!  (   ActiveDocument.MailMerge.OpenDataSource      R3Exec.LinkDatafile     R3Exec.R3UnLinkDatafile     R3Exec.R3UnLinkDataFile  
   R3DataFile     SaveDoc  
   RemoveFile     :   1                  TEMP  1      k 0           \     GetItem     Depose  	   ErrorName     .txt  	   LabelFile     REWRITE     DataFile     \td.sap  
   \~data.sap     Get item via DDE:      UnInstallAddIn     Execute     Initiate  	   Terminate  
   GetChannel     SetNoSaveValues     SetSaveValues       DDERequest            R3Variable.GetItem     R3Variable.Depose      DDEPoke 
     R3Variable.Depose     R3WinSrv.UnInstallAddIn  ~	           F     R3WinSrv.UnInstallAddIn check:   1       x           WS8WORD.DOT     DDE-Channel  	   Error in         R3WinSrv.UnInstallAddIn delete: 
     R3WinSrv.Execute      Call SAP R/3  Code:   
K)^ @                                                                                                                                        	       	        
       
                                                                                                                                                                                                                                                       rU              ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~         	                     pb  vH 	            a 	                       A 	                                  a 	     %                                        a 	                           1       A 	     
 	H       !G      QG      G      G        Q      a 	                   a                              !      Q        q      a 	            h             9      Y      y              a 	                                  a 	                   iN      N      N      N      O      QO      yO      O              a 	            H       	!      !!              a 	            @            8      	                         1      Y      y                           A 	     "                      1      A 	     '                       a      a 	            P                           a 	      
              1
      a
              A 	      H      IN                   )H      QH      yH      H      H               A 	     	       8                     a 	            `      	 	#      1#      I#      i#      #      #      #                          a 	     (       8               !      a 	     *       P               I      a 	     ,       h               q      A 	     /       P                     a 	     0              [              A 	     3       h             O              a 	      `             Y_      q_      _      _      _      K      	`      A`      q`      `      n      r      y        !       	                                                                  	                      	                                 Project     ThisDocument     FileSave     R3Exec  	   AutoClose  
   DialogForm  	   R3Globals     R3DocVar     FileSaveVersion     R3Menu  
   R3Variable     R3FHandling     InsertMergeField  
   FileSaveAs     R3WordError  	   R3LogFile     R3Dialog  	   FileClose     R3WinSrv     FileSaveHtml     FileSaveFrameAs     FileSaveAsWebPage     R3OpenDocument     R3Lang     FileCloseNoSave     Module1     MailMergeExt             F  =   C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll     VBA
  
I         	   q            (               	           F  4   C:\Program Files\Microsoft Office\Office\MSWORD8.OLB     Word
  
a         	              8               0           F     C:\WINNT\System32\STDOLE2.TLB     stdole
  
q                         H               Þ܄2  vH     C:\NT\System32\MSForms.twd     MSForms  	   DoLogging
  
Q      a             y            X              .E.`M  b'̷  vH     c:\temp\VBE\MSFor    Options:      S     E     T     X  	   DocOpened     (     ,  1      `            )     DDEExecute Command:      Control passed to SAP R/3     Object        R3WinSrv.Execute: Call Terminate     Callback to R/3 completed     Callback to SAP R/3 completed     M
     R3WinSrv.Execute     close the document  +   Initialize Connection to R/3 Windows Server     DDEInitiate:      DDE Channel:      Applikation
     R3WinSrv.Initiate  	   Terminate     R3WinSrv.Terminate  (   R3WinSrv.Terminate: don't save document.  "   R3WinSrv.Terminate: save document.     DDE Terminate  
   Channel = 	     Close document     Uninstall ws8word.dot  1      E              R3WinSrv.SetNoSaveValues     Changed     R3WinSrv.SetSaveValues  	   IsNewFile     0     I     U
     R3WinSrv.SaveDoc     ActiveDocument.Save      R3WinSrv.SaveDoc: nothing to do.     Remove file   1                  R3WinSrv.RemoveFile       R3FHandling.R3GetTabLength:   (   R3FHandling.R3GetTabLength: file is open  1      ;         %   R3FHandling.R3GetTabLength: ReadLine      R3FHandling.R3GetTabLength  1      x            R3FHandling.R3GenTempDataFile	     Datafilename:      Tempdatafn:     -     _     R3FHandling.R3RewriteDataFile     R3FHandling.R3RewriteDatafile  1               1      i             R3WriteErrorFile:      R3FHandling.R3WriteErrorFile     --     PTXT1_NRES1   PTXT1_NRES2     Mller       041265	     The first line.
     The second line.                    DOT	     AutoClose.Main     DocMode     AutoClose.Main: view/print mode     AutoClose.Main: write mode     TD.SAP  	   ~DATA.SAP     AutoClose.Main: Remove   F!K  vH  M!K  vH  G!K  vH  3!K  vH  L!K  vH  "-  ?@     CommentLabel  !-6S  `	
  
D                   `              ȏ[qJ  e     UserForm  H!K  vH  	   F3Dynamic
  
qE            E      p              {lF  WJO     OkButton     CancelButton  "ҋB  `     MergeListBox  ?F  `     CommentFrame     CancelButton_Click     MergeListBox_Click     MergeListBox_DblClick  q#  t     OkButton_Click    T              ShowMergeDialog     InitMergeDialog     GetLabelComment     GetAdrField     SplittString                     #ҋB  `  Yl|    	           F     R3Dialog.ShowMergeDialog  ,   InitMergeDialog: Initialize new merge dialog  gĤIx  8<  gĤIx  8<    J      K           InitMergeDialog: nothing to do     cutLine    	   Abbrechen  ďYl|       Serienbrieffeld einfgen   	   Kommentar  pj).  `     R3Dialog.InitMergeDialog     R3Dialog.GetLabelComment     |                  SetDisplayModeOn     DisableFileSave     DisableDelete     DisableMenuEntry     DisableCommandBarEntry     EnableMenuEntry     EnableCommandBarEntry     SetDisplayModeOff  
   AskForSave     &Save final version     File     &Sichern Endfassung     &Save  
   &Speichern
     Save &raw version     Sichern &Rohfassung     Dele&te     L&schen     &Save and back to R/3     &Sichern und zurck zu R/3     D&elete             F             F             F     InsertMergeField.Main	     FileClose.Main     R3OpenDocument.R3OpenDocument     Call R3WinSrv.Initiate     None     R/3 Windows Server     ORIG     Doc mode: ->     <-     CUSTOMIZING/INDIVIDUAL     P     PRINT     e     R3Lang.GetLanguage    5   Error: Table length for mail merge data is not valid.	     Abort printing.     ActiveWindow.Close     Preview mode     PREVIEW  .   Error: The data file contains not enough rows.     Error: Unknown document mode.
     set all as saved     GetLanguage     d     FileCloseNoSave.Main     Back to R/3, wait...!  ?   Datenverlust! Wollen Sie wirklich abbrechen, ohne zu speichern?     Warnung!  >   Data will be lost! Are you sure you want to exit the document?     Warning     init  	   checkFile     extractField     checkLastTab     calcNrOfFields     extractUsedMergeFields     extractFieldName     hasMergeFieldsSet     checkAllRecords                        
     MailMergeExt.init      in MailMergeExt.init     MailMergeExt.check#  C   MailMergeExt.check: fields code line contains no </tab> at the end!      is not a merge field!     <   MailMergeExt.check: data line contains no </tab> at the end!  /   MailMergeExt.check: number of fields not equal!  '   MailMergeExt.check: number of records:       in MailMergeExt.checkFile  	           F  ^	           F  $   R3Exec.R3PrintFL: print all at once.  0   C:\projekte\WordLinkR3\misc\MergFields\DATA1.SAP  &   MailMergeExt.check: number of fields:      MailMergeExt.checkFile     MailMergeExt.calcnrOfFields()  %   MailMergeExt.extractUsedMergeFields()  %   MailMergeExt.extractUsedMergeFields:      single  .   MailMergeExt.hasMergeFieldsSet: missing field       in record      MailMergeExt.checkAllRecords()  7   MailMergeExt.checkAllRecords: missing fields in record      getNrOfRecords     MailMergeExt.calcNrOfFields()     R3Exec.R3PrintFL mode =      default    /   ActiveDocument.MailMerge: print single letters.     ActiveDocument.MailMerge print   5   Error: Table length for mail merge data is not valid!	     Abort printing!     recordIsComplete     Item     ActiveDocument.MailMerge skip   
   MERGEFIELD  >  x   MailMergeExt.extractUsedMergeFields: Warning: The letter contains no merge field! May all documents will not be printed!@                                                     	  
             Buffer     ToCh     ChWith     Item     Fcode     Flags     Appl     Obj     filename  	D      YD              	E      )E      (        	D      F      8        	D      F      H        	D      F      X        		      G      h           Cancel     ItemNr     FirstStr     SecStr     Menu  	   MenuEntry     CommandBarIconName     dataSrcFile     strLine     line  		      K      x        
   mergeField     record     mode

[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000

[Workspace]
ThisDocument=0, 0, 0, 0, C
R3DocVar=0, 0, 0, 0, C
R3FHandling=0, 0, 614, 336, 
R3Globals=22, 22, 636, 358, 
R3Variable=0, 0, 0, 0, C
FileSave=132, 132, 746, 468, 
InsertMergeField=0, 0, 0, 0, C
DialogForm=0, 0, 0, 0, C, 22, 22, 811, 510, C
R3WordError=22, 22, 636, 337, 
R3LogFile=132, 132, 746, 447, 
R3Dialog=0, 0, 0, 0, C
AutoClose=44, 44, 658, 380, 
FileClose=32, 68, 646, 404, 
R3Menu=0, 0, 614, 336, 
R3WinSrv=0, 0, 0, 0, C
FileSaveHtml=0, 0, 0, 0, C
FileSaveFrameAs=0, 0, 0, 0, C
FileSaveAsWebPage=154, 154, 768, 490, 
FileSaveVersion=0, 0, 0, 0, C
FileSaveAs=110, 110, 724, 446, 
R3OpenDocument=66, 66, 628, 421, 
R3Exec=44, 44, 606, 399, 
R3Lang=44, 44, 658, 380, 
FileCloseNoSave=88, 88, 702, 424, 
MailMergeExt=110, 110, 724, 425, 
                      
  	           F   Microsoft Word Document 
   MSWordDoc    Word.Document.8 9q                                  o                                                                W   ]                                                i 0 5                                                             [     n`  `    >ʿ>ʿ            f                                                                                                              o                                                                Z   \                                         ,                  '     %                                                                                                                                                                                                                                                                           b      	  
                                          !  L  M  #  $  %  2  '  (  )  *  +  ,  -  .  /  0  1  "  3  4  5  6  7  8  9  :  ;  <  =  >  ?  @  A  B  C  D  E  F  G  H  I  K  Y  N  O  X  Q  R  S  T  U  V  W  J  Z  _  [  \  ]  ^  w  |  a  c  	  d  e  f  p  h  i  j  k  l  m  n  o  `  q  r  s  t  u  v  x  y  z  {  }    ~     C o m p O b j                                                                                         p        C o m p O b j                                                  Y   ^                                         a        V B F r a m e                                                                                         /      P R O J E C T w m                                                   V                                         k                                                                                                                                                                                                                                               R o o t   E n t r y                                                 	           F    @ީ: c*>ʿ)         1 T a b l e                                                                                                   W o r d D o c u m e n t                                                                                            S u m m a r y I n f o r m a t i o n                           (                                                                            	   
                                                                  !   "   #   $   &      ,   S   *   +   -   4   .   /   0   1   2   3   M   P   6   7   8   B   :   ;   <   =   >   ?   @   A   5   C   D   E   F   G   H   I   J   K   L   N   O   U   d   R   T      V   W   e   Y   Z   [   \   ]   ^   _   Q   a   b   c      o   g   h   i   j   k   l   m   n   `   p   q   v   s   t   u   w   x      {   |   }   ~           	   printmodej                                              ( H   @        }  7            R  KQ   DB Tahoma            $        4     OkButton    (     OK    {    u          Tahoma    (     Cancel    {    u          Tahoma    `         
    n`  `   Microsoft Forms 2.0 Frame    Embedded Object    Forms.Frame.1 9q                                  &      5           Tahomat                      8 H                }              Comment R  KQ   DB Tahoma   4        ,        2   ,      CommentLabel                                     ]    5           Tahomat                                     (        8     CancelButton      (        #    CommentFrame      (        4      MergeListBox                                                       
                     Microsoft Forms 2.0 Form    Emb                                                                                                                                                                                                                                                                                `r>ʿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              . A!"#$%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    @ H   N o r m a l      ' CJOJPJQJ_HmH nH sH	tH	u                   < A@ <   D e f a u l t   P a r a g r a p h   F o n t                                                               @          p  $ @     G                       T i m e s   N e w   R o m a n   5                       S y m b o l   3&                       A r i a l   "  0   h                                                                                                                                                                                                                                                                                                                                                                                             0                                                                                                                                                                           