home *** CD-ROM | disk | FTP | other *** search
/ Bila Vrana / BILA_VRANA.iso / 004A / CRSTAB11.ZIP / PRTDRVS.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1995-12-27  |  9KB  |  184 lines
  1. PRTDRVS
  2. crstmast 
  3. sele crstmast
  4. copy stru to crstmas1.crs
  5. use in crstmast
  6. use crstmas1.crs in sele() alias crstmast
  7. appe blank
  8. replace field_name with row
  9. replace field_type with "C"
  10. replace field_len with val(wid)
  11. replace field_idx with "N"
  12. do case
  13.     case typevalue = "N" .or. typevalue = "F"
  14.         appe blank
  15.         replace field_name with "Total"
  16.         replace field_type with typevalue
  17.         replace field_len with val(width)
  18.         replace field_dec with val(dec)
  19.         repla
  20. PRTTYPE
  21. column
  22. sele column
  23. colheading=column
  24. nooffields = reccount()
  25. go top
  26. do while .not. eof()
  27. colheading=&column
  28. sele crstmast
  29. appe blank
  30. replace field_type with typevalue
  31. *? "Typefield is ",typefield," typevalue is ",typevalue," typecolumn is ",typecolumn
  32. *wait
  33. replace field_len with val(width)
  34. replace field_dec with val(dec)
  35. replace field_idx with "N"
  36. replace field_name with colheading
  37. sele column
  38. enddo
  39. close data
  40. set talk off
  41. erase temp.dbf
  42. erase temp.mdx
  43. erase taku.dbf
  44. erase taku.mdx
  45. erase temp4.dbf
  46. erase temp4.mdx
  47. *erase crstab.dbf
  48. *erase crstab.mdx
  49. *erase crstab.dbt
  50. create crstmas2.crs from crstmas1.crs
  51. close data
  52. *deactivate window indexer2
  53. *deactivate window indexer1
  54. *set talk on
  55. use temp6 in sele() alias temp6
  56. *use crstab1 in sele() alias crstab1
  57. use crstmas2.crs in sele() 
  58. *sele crstab1
  59. sele temp6
  60. copy to temp5 &&fields &row1,&value1
  61. use temp5
  62. join with crstmas2 to temp8 for temp5->&row = crstmas2->&row
  63. use temp8
  64. appe from temp6
  65. close data
  66. erase temp6.dbf
  67. erase temp6.mdx
  68. erase temp5.dbf
  69. erase temp5.mdx
  70. erase doug.dbf
  71. erase doug.mdx
  72. totals = 0
  73. use temp8 in sele() alias temp8
  74. sele temp8
  75. value1=field(3)
  76. column1=field(2)
  77. counter=1
  78. set talk on
  79. do while counter<=noofields
  80.     *go counter
  81.     origname=temp[counter,1]
  82.     newname=temp[counter,2]
  83.     *? "Newname ",newname," value1 ",value1," origname ",origname," column1 ",column1
  84.     *wait
  85.     replace &newname with (&value1) for (origname) = (&co
  86. PRTTYPE
  87. AMT 250                                           
  88. XEROX CORP (DIABLO) 630 API                       
  89. PRTTYPE
  90. AMT 250                                           
  91. ANADEX 6000                                       
  92. ANADEX 9625B                                      
  93. ASCII                                             
  94. BROTHER HR-15, HR-25                              
  95. C.ITOH DIGITAL PRODUCTS, 1550A,B,BPI              
  96. C.ITOH DIGITAL PRODUCTS,INC. 1550S,SC             *
  97. C.ITOH DIGITAL PRODUCTS,INC. 3500 MOD 20          
  98. C.ITOH DIGITAL PRODUCTS,INC. 715F                 
  99. C.ITOH DIGITAL PRODUCTS,INC. 815(P351 MODEL)      P
  100. C.ITOH DIGITAL PRODUCTS,INC. 8510A,B,BPI          +
  101. C.ITOH DIGITAL PRODUCTS,INC. 8510S,SC             F
  102. C.ITOH DIGITAL PRODUCTS,INC.PROWRITER JR           
  103. CANON USA, INC. A2 IN 150 DPI GRAPHICS MODE       P
  104. DATA PRODUCTS P-180,P-132                         v
  105. DATA PRODUCTS SPG-8050, SPG-8070                  
  106. DATASOUTH 180                                     
  107. DATASOUTH 220                                     =
  108. DIABLO (XEROX) 630 API                            
  109. EPSON AMERICA, INC. DX-10                         
  110. EPSON AMERICA, INC. DX-20, DX-35                  
  111. EPSON AMERICA, INC. FX-85, FX-185                 
  112. EPSON AMERICA, INC. FX-86E                        
  113. EPSON AMERICA, INC. GQ-3500                       
  114. EPSON AMERICA, INC. JX-80                         *
  115. EPSON AMERICA, INC. JX-80 WITH 8177               
  116. EPSON AMERICA, INC. LQ-1500, SQ-1500              
  117. EPSON AMERICA, INC. LQ-800                        P
  118. EPSON AMERICA, INC. LX-80, LX-90                  +
  119. EPSON AMERICA, INC. MX-80, MX-100                 F
  120. EPSON AMERICA, INC. MX-80, MX-100 WITH GRAFTAX PLU 
  121. EPSON AMERICA, INC. RX-100, FX-100, FX-100 PLUS   P
  122. EPSON AMERICA, INC. RX-100/FX-100 WITH 8177       v
  123. EPSON AMERICA, INC. RX-80, FX-80, FX-80 PLUS      
  124. EPSON AMERICA, INC. RX-80/FX-80 WITH 8177         
  125. FACIT 4512                                        =
  126. FUJITSU DOTMAX 24C                                
  127. FUJITSU DOTMAX 24I                                
  128. FUJITSU DOTMAX 9F                                 
  129. FUJITSU DOTMAX 9I                                 
  130. GENERIC - ANY PRINTER NOT LISTED                  
  131. HP DESKJET (HP2276)                               
  132. HP LASERJET LJ 6 LPI                              *
  133. HP LASERJET LJ 6.5 LPI                            
  134. HP LASERJET LJ LAND 6 LPI                         
  135. HP LASERJET LJ LAND 6.5 LPI                       P
  136. HP LASERJET LJII 6 LPI,LJIID1 6 LPI (1-SIDE)      +
  137. HP LASERJET LJII 6.5 LPI,LJIID1 6.5 LPI (1-SIDE)  F
  138. HP LASERJET LJII LAND 6 LPI                        
  139. HP LASERJET LJIID1 6.5 LPI (1-SIDE)               P
  140. HP LASERJET LJIID2 6 LPI (2-SIDE)                 v
  141. HP LASERJET LJIID2 6.5 LPI (2-SIDE)               
  142. HP PAINTJET                                       
  143. HP QUIETJET                                       =
  144. HP THINKJET                                       
  145. IBM COLOR JETPRINTER                              
  146. IBM GRAPHICS PRINTER                              
  147. IBM PROPRINTER                                    
  148. IBM QUIETWRITER (MODEL 1)                         
  149. IBM QUIETWRITER (MODEL 2)                         
  150. IBM QUIETWRITER (MODEL 3)                         *
  151. IBM WHEELPRINTER                                  
  152. NEC PINWRITER P2, P3                              
  153. NEC PINWRITER P5                                  P
  154. NEC SPINWRITER 3550                               +
  155. NEC SPINWRITER 7710                               F
  156. NEC SPINWRITER 8850                                
  157. OKI MICROLINE 182, 183                            P
  158. OKI MICROLINE 182/183 WITH PLUG 'N PLAY           v
  159. OKI MICROLINE 192, 193                            
  160. OKI MICROLINE 80, 82, 83A                         
  161. OKI MICROLINE 82A/83A WITH OKIGRAPH               =
  162. OKI MICROLINE 84                                  
  163. OKI MICROLINE 92, 93                              
  164. OKI MICROLINE 92/93/192/193 WITH PLUG 'N PLAY     
  165. OKI OKIMATE-20                                    
  166. OKI PACEMARK 2350, 2410                           
  167. QUME SPRINT 11 PLUS, LETTERPRO 20                 
  168. RICOH 6000 LANDSCAPE ORIENT                       *
  169. RICOH 6000 PORTRAIT ORIENT                        
  170. STAR MICRONICS GEMINI-10X, GEMINI-15X             
  171. TANDY CORP CGP-220                                P
  172. TEXAS INSTRUMENTS, INC 855,865                    +
  173. TOSHIBA P1340, P1351                              F
  174. TOSHIBA P321, P341, P351                           
  175. TOSHIBA PAGELASER/2                               P
  176. XEROX CORP (DIABLO) 630 API                       v
  177. OKI MICROLINE 192, 193                            
  178. OKI MICROLINE 80, 82, 83A                         
  179. OKI MICROLINE 82A/83A WITH OKIGRAPH               =
  180. DATASOUTH 220                                     
  181. FACIT 4512                                        
  182. HP QUIETJET                                       
  183. OKI MICROLINE 82A/83A WITH OKIGRAPH               1
  184.