home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0330 - 0339 / ibm0330-0339 / ibm0333.tar / ibm0333 / CRTIES-2.ZIP / CROSSTIE.SM_ / CROSSTIE.SM
Encoding:
INI File  |  1994-02-14  |  3.7 KB  |  258 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet Series II
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [desc]
  18.     
  19.     
  20.     
  21.     
  22.     
  23.     758930782
  24.     9
  25.     758767243
  26.     365
  27.     1
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [l1]
  54.     0
  55. [pg]
  56.     1
  57.     45 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  58. [edoc]
  59. <:#284,9360>FUNCTION CROSSTIE()
  60.  
  61. <:#284,9360>ONERROR  Bye
  62.  
  63. <:#284,9360>date$ =  FormatDate$(Now(), "b")
  64.  
  65. <:#284,9360>Replace( 0,0,1028, "{{Date New}", date$) 
  66.  
  67. <:#284,9360>' Build the address string first if you can then replace the text
  68.  
  69. <:#284,9360>SysChan = 0
  70.  
  71. <:#284,9360>SysChan = DDEInitiate("CrossTies", "System")
  72.  
  73. <:#284,9360>IF SysChan = 0  THEN
  74.  
  75. <:#284,9360>    Message("Could not initiate a conversation with CrossTies!")
  76.  
  77. <:#284,9360>    EXIT FUNCTION
  78.  
  79. <:#284,9360>ENDIF
  80.  
  81. <:#284,9360>Id$ = DDEReceive$( SysChan, "!related,0" )
  82.  
  83. <:#284,9360>IF LEN(Id$) <<<;> 0  THEN
  84.  
  85. <:#284,9360>    Addr2$ = ""
  86.  
  87. <:#284,9360>    Company$ = ""
  88.  
  89. <:#284,9360>    DDEExecute(SysChan, "<[><[>OpenObject({Id$})]")
  90.  
  91. <:#284,9360>    First$ = DDEReceive$( SysChan, "!First" )
  92.  
  93. <:#284,9360>    Last$  = DDEReceive$( SysChan, "!Last" )
  94.  
  95. <:#284,9360>    Company$ = DDEReceive$( SysChan, "!Company" )
  96.  
  97. <:#284,9360>    Addr1$ = DDEReceive$( SysChan, "!Address 1" )
  98.  
  99. <:#284,9360>    Addr2$  = DDEReceive$( SysChan, "!Address 2" )
  100.  
  101. <:#284,9360>    City$ = DDEReceive$( SysChan, "!City" )
  102.  
  103. <:#284,9360>    State$ = DDEReceive$( SysChan, "!State" )
  104.  
  105. <:#284,9360>    Zip$ = DDEReceive$( SysChan, "!Zip" )
  106.  
  107. <:#284,9360>    Address$ = ""
  108.  
  109. <:#284,9360>    Address$ = strcat$( Address$, First$, "  ", Last$, "<[>Enter]" )
  110.  
  111. <:#284,9360>    IF LEN(Company$) <<<;> 0 THEN
  112.  
  113. <:#284,9360>        Address$ = strcat$( Address$,  Company$, "<[>Enter]" )
  114.  
  115. <:#284,9360>    ENDIF
  116.  
  117. <:#284,9360>    Address$ = strcat$(Address$, Addr1$, "<[>Enter]")
  118.  
  119. <:#284,9360>    IF LEN(Addr2$) <<<;> 0 THEN
  120.  
  121. <:#284,9360>        Address$ = strcat$( Address$,  Addr2$, "<[>Enter]" )
  122.  
  123. <:#284,9360>    ENDIF
  124.  
  125. <:#284,9360>    Address$ = strcat$(Address$, City$, ",  ", State$, "  ", Zip$, "<[>Enter]")
  126.  
  127. <:#284,9360>    replc = Replace( 0,0,0, "{{Address New}",  "" ) 
  128.  
  129. <:#284,9360>    IF replc = 1 THEN
  130.  
  131. <:#284,9360>         TYPE("{Address$}")
  132.  
  133. <:#284,9360>    ENDIF
  134.  
  135. <:#284,9360>    Replace( 0,0,1028, "{{Address New}",  "" )
  136.  
  137. <:#284,9360>ELSE
  138.  
  139. <:#284,9360>    Message("No Person Object Linked to this Document!")
  140.  
  141. <:#284,9360>ENDIF
  142.  
  143. <:#284,9360>Bye:
  144.  
  145. <:#284,9360>    DDETerminate(SysChan)
  146.  
  147. <:#284,9360>END FUNCTION
  148.  
  149. >
  150.  
  151. [Embedded]
  152. 00002627
  153. >
  154. [macsum] 1
  155. CROSSTIE 0 0 14 0
  156. [macse]
  157. 14 CROSSTIE
  158. 20 00001114
  159. 0 772
  160. 13
  161. 0 770 [X] "b"
  162. 13
  163. 8 1
  164. 2 488 1 0 0 1028 "{{Date New}" "{1}"
  165. 5 0
  166. 8 2
  167. 0 8 "CrossTies" "System"
  168. 13
  169. 8 2
  170. 6 2
  171. 5 0
  172. 18 0
  173. 11 00000242
  174. 0 3 "Could not initiate a conversation with CrossTies!"
  175. 6 0
  176. 15
  177. 9
  178. 0 10 "{2}" "!related,0"
  179. 13
  180. 8 3
  181. 0 14 "{3}"
  182. 13
  183. 5 0
  184. 18 1
  185. 11 00001065
  186. 7 ""
  187. 8 4
  188. 7 ""
  189. 8 5
  190. 0 11 "{2}" "[[OpenObject({3})]"
  191. 0 10 "{2}" "!First"
  192. 13
  193. 8 6
  194. 0 10 "{2}" "!Last"
  195. 13
  196. 8 7
  197. 0 10 "{2}" "!Company"
  198. 13
  199. 8 5
  200. 0 10 "{2}" "!Address 1"
  201. 13
  202. 8 8
  203. 0 10 "{2}" "!Address 2"
  204. 13
  205. 8 4
  206. 0 10 "{2}" "!City"
  207. 13
  208. 8 9
  209. 0 10 "{2}" "!State"
  210. 13
  211. 8 10
  212. 0 10 "{2}" "!Zip"
  213. 13
  214. 8 11
  215. 7 ""
  216. 8 12
  217. 0 16 "{12}" "{6}" "  " "{7}" "[13]"
  218. 13
  219. 8 12
  220. 0 14 "{5}"
  221. 13
  222. 5 0
  223. 18 1
  224. 11 00000754
  225. 0 16 "{12}" "{5}" "[13]"
  226. 13
  227. 8 12
  228. 0 16 "{12}" "{8}" "[13]"
  229. 13
  230. 8 12
  231. 0 14 "{4}"
  232. 13
  233. 5 0
  234. 18 1
  235. 11 00000866
  236. 0 16 "{12}" "{4}" "[13]"
  237. 13
  238. 8 12
  239. 0 16 "{12}" "{9}" ",  " "{10}" "  " "{11}" "[13]"
  240. 13
  241. 8 12
  242. 2 488 1 0 0 0 "{{Address New}" ""
  243. 13
  244. 8 13
  245. 6 13
  246. 5 1
  247. 18 0
  248. 11 00001014
  249. 0 6 "{12}"
  250. 2 488 1 0 0 1028 "{{Address New}" ""
  251. 10 00001114
  252. 0 3 "No Person Object Linked to this Document!"
  253. 0 9 "{2}"
  254. 6 0
  255. 15
  256. 9
  257. 00002652
  258.