home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 1104 / Sheet2sql.sis / Sheet2SQL.app / Sheet2SQL.txt
Encoding:
Text File  |  2001-09-06  |  4.6 KB  |  386 lines
  1. c:\v2(02)\Sheet2SQL.opl=
  2. SCRWID%
  3. SCRHGHT%
  4. MENUPOS%
  5. TBARLINK
  6. Initiating(
  7. z:\system\opl\Toolbar
  8. LoadMyProcsO
  9. WIDMAIN%
  10. EVENT&
  11. EVTYPE&
  12. HOTKMOD%
  13. EXITHK%
  14.     THREADID&
  15. COLLS$
  16. COLTEL%
  17. C_COLS%
  18. DEFINITIONS$
  19. DEFTEL%
  20. C_DEFS%
  21. TYPES$
  22. TYPETEL%
  23. VALUES$
  24.     VALUETEL%
  25. FORMULA$
  26. FORMULA%
  27. TABLENAME$
  28. STOP%
  29. FOUTJE%
  30. VERWERK$
  31. C_LOOP%
  32. LOOP%
  33. FILEIN$
  34. MESSAGE$
  35. SQLPATH$
  36. x    SQLFNAME$
  37. GETCLIP$
  38. z    PREVIOUS&
  39. APPINIT
  40. $v#Mv
  41. MPCHECK
  42. INITTBAR
  43. CHECKINI
  44. WIDMAIN%
  45. HOTKMOD%
  46. EXITHK%
  47.     PREVIOUS&
  48. COLTEL%
  49. TYPETEL%
  50.     VALUETEL%
  51. STOP%
  52. FOUTJE%
  53. VERWERK$
  54. C_LOOP%
  55. MESSAGE$
  56. DEFINITIONS$
  57. C_DEFS%
  58. c:\system\apps\+    Sheet2SQLK
  59. Finished procesing...
  60. >TABLE
  61. +    >PROLOGUE
  62. >NUMCOLS
  63. >COLNAME
  64. >TYPE
  65. >FORMULA
  66. >VALUE
  67. NEXTEV%
  68. EVTYPE&
  69. EVENT&
  70. FILEIN$
  71. SQLPATH$
  72. MESSAGE$
  73. +&C:\System\apps\sheet2sql\sheet2sql.iniW
  74. +&C:\System\apps\sheet2sql\sheet2sql.ini+$ SELECT InFolder,OutFolder FROM InitK
  75. OUTF$
  76. INF$#
  77. OUTF$#
  78. CheckIni: Something went wrong.
  79. +&C:\System\apps\sheet2sql\sheet2sql.ini
  80. GETNEXTDOWN
  81. LOOP%
  82. GETCLIP$
  83. DEFINITIONS$
  84. DEFTEL%
  85. C_DEFS%
  86. C_LOOP%
  87. STOP%
  88. FOUTJE%
  89. MESSAGE$
  90. VERWERK$
  91. +!Finished: - No >END was defined -
  92. GETNEXTCELL
  93. GETCLIP$
  94. TABLENAME$
  95. NoTableName!
  96. GETNEXTCELL
  97. GETCLIP$
  98. GETNEXTCELL
  99. C_COLS%
  100. GETCLIP$
  101. MESSAGE$
  102. STOP%
  103. +,Program Terminated! >NUMCOLS is not numeric!
  104. GETNEXTCELL
  105. COLTEL%
  106. GETCLIP$
  107. COLLS$
  108. C_COLS%
  109. NoColName!
  110. GETNEXTCELL
  111. COLTEL%
  112. GETCLIP$
  113. TYPES$
  114. C_COLS%
  115. GETNEXTCELL
  116. COLTEL%
  117. GETCLIP$
  118. FORMULA$
  119. C_COLS%
  120. READFORMULA
  121. GETNEXTCELL
  122. COLTEL%
  123. TABLENAME$
  124. COLLS$
  125. C_COLS%
  126. FORMULA$
  127. GETCLIP$
  128. TYPES$
  129. INSERT INTO 
  130. VALUES (
  131. NULLC
  132. NULLC
  133. SENDESC
  134.     SENDCTRLE
  135.     MPISOPEN&
  136. SENDGOTOA1
  137. MPPATHSPLIT$
  138. FILEIN$
  139. SQLPATH$
  140. STOP%
  141.     THREADID&
  142.     SQLFNAME$
  143. FOUTJE%
  144. MESSAGE$
  145. Open Sheet...
  146. Sheet,Folder,DiskO
  147. OutPut Path...
  148. Folder,DiskO
  149. +&C:\System\apps\sheet2sql\sheet2sql.ini
  150. +&C:\System\apps\sheet2sql\sheet2sql.ini
  151. &+&C:\System\apps\sheet2sql\sheet2sql.ini+" FIELDS InFolder,OutFolder TO InitK
  152. OUTF$
  153. INF$'
  154. OUTF$'
  155. Sheet
  156. .SQLK
  157. +!Alert! - No Sheet was open(ed)...
  158. +$ERROR! - Save of ini file went wrong
  159. FOUTJE%
  160.     SQLFNAME$
  161. STOP%
  162. Julian date...
  163. Date:O
  164. Year: 
  165.  Day: K
  166. MPWRITETOCLIPBOARD
  167. 1000000001
  168. ElfProof - 
  169.  by Ivo Woltring
  170. Elfproef na elke enter...
  171. Rekeningnr.:)
  172. Elfproef teller positie:+
  173. 10,9,8,7,6,5,4,3,2,1
  174. O    |RJ
  175. Not a valid rekeningnumberO
  176. CopiedO
  177. Rekeningnummer te groot...O
  178. 1000000001
  179. SENDESC
  180. SENDRIGHTARROW
  181. READCELL
  182. SENDESC
  183. SENDFNHOME
  184. SENDDOWNARROW
  185. READCELL
  186. SENDESC
  187. SENDRIGHTARROW
  188.     SENDCTRLC
  189.     SENDCTRLF
  190.     SENDCTRLV
  191. SENDSHIFTFNHOME
  192. GETCLIP$
  193. GETCLIP$
  194. MPWRITETOCLIPBOARD
  195. SENDESC
  196.     SENDENTER
  197. SENDSHIFTFNHOME
  198.     SENDCTRLC
  199. GETCLIP$
  200. GETCLIP$
  201.     THREADID&
  202. {O {c
  203. IO {c
  204.     THREADID&
  205.     THREADID&
  206.     THREADID&
  207.     THREADID&
  208.     THREADID&
  209.     THREADID&
  210.     THREADID&
  211.     THREADID&
  212.     THREADID&
  213.     THREADID&
  214.     THREADID&
  215.     THREADID&
  216.     THREADID&
  217.     THREADID&
  218. MPWRITETOCLIPBOARD
  219. SENDESC
  220.     SENDCTRLP
  221.     SENDCTRLV
  222.     SENDENTER
  223.     THREADID&
  224. {O {O {_
  225. MPREADCLIPBOARDBUFFER&
  226. MPPATHSPLIT$
  227. TBARINIT
  228. TBARBUTT
  229. TBARSHOW
  230. SCRWID%
  231. SCRHGHT%
  232. EXITHK%
  233. Button1.mbmKO
  234. Button2.mbmKO
  235. Button3.mbmKO
  236. Button3.mbmKO
  237. Button4.mbmKO
  238. Button4.mbmKO
  239. DolphinO
  240. AboutO
  241. ExitO
  242. EXITHK%
  243. TBMENUSYM%
  244. MENUPOS%
  245. HOTKMOD%
  246. File+
  247. Create SQLOc+
  248. Create SheetOCh+
  249. Close
  250. Tools+    Elf ProefOp+
  251. Julian dateOj
  252. View+
  253. Show toolbarOt
  254. About +    Sheet2SQLKOa
  255. OchD`[*
  256. Bug: Proc 
  257. %:,KW
  258. CMDA%
  259. MPLOGO
  260. Author: Ivo Woltring
  261. Mailto: ivo.psion@hetnet.nl
  262. +)Convert a sheet to SQL Insert statements!
  263. Sheet 2 SQLO
  264. MPPATHSPLIT$
  265. MPWRITETOCLIPBOARD
  266.     SENDCTRLV
  267. SENDCTRLSHIFTW
  268.     SENDENTER
  269.     SENDCTRLT
  270. SENDCTRLSHIFTT
  271. SENDCTRLSHIFTM
  272. SENDDOWNARROW
  273. SENDRIGHTARROW
  274. SENDFNHOME
  275.     SENDCTRLE
  276. FILEIN$
  277.     THREADID&
  278. DEFINITIONS$
  279. Create Options...
  280. Make file,Folder,DriveO
  281. Table Name:O
  282. Prologue lines:O
  283. Table fields:O
  284. Value Lines:O
  285. Tablename is mandatoryO
  286. File already existsO
  287. Sheet
  288. Copyright 
  289.  Ivo WoltringO
  290. +,Finished Processing... Edit it with sheet...O
  291. ELFPROEF
  292. INITIALIZE
  293.     READFIRST
  294.     MPEDITOR%
  295. MPLOGO
  296. STOP%
  297. FOUTJE%
  298. DEFTEL%
  299. VERWERK$
  300.     SQLFNAME$
  301. MESSAGE$
  302. Creating SQL inserts...
  303. Sql Insert statements...O
  304. +"Terminated! - Procedure not found!
  305. Sheet 2 SQLO
  306. +)Convert a sheet to SQL Insert statements!O
  307. Author: Ivo WoltringO
  308. EXITHK%
  309. JULIANDATE
  310. TBARHIDE
  311. TBARSHOW
  312. TBVIS%
  313. MPLINK
  314. MyProcs.OPMO
  315. OZ4[A
  316. :\System\OPM\MyProcs.opmK
  317. +,MyProcs
  318.  by Ivo Woltring is not installed!W8
  319. SetGlobalsO
  320.     MPVERSION
  321. Version 
  322.  of MyProcs
  323.  is installed.K+#Please upgrate MyProcs
  324.  to version *=
  325.  or higher.KW8
  326. CMDE%
  327. TBAROFFER%
  328. OFFRCMD%
  329. EVENT&
  330. WIDMAIN%
  331. HOTKMOD%
  332. {A\[    
  333. {A`[A
  334. LOADTBAR,
  335. SETGLOBALS
  336. APPINIT
  337. CHECKINI
  338.     READFIRST+
  339. TABLE
  340. PROLOGUE
  341. NUMCOLST
  342. COLNAME
  343. FORMULA?
  344. VALUE
  345. INITIALIZE
  346. JULIANDATE
  347. ELFPROEF
  348. GETNEXTCELL
  349. GETNEXTDOWNi
  350. READFORMULA
  351. READCELL
  352. SENDSHIFTFNHOME1
  353. SENDCTRLSHIFTM
  354. SENDCTRLSHIFTT
  355. SENDCTRLSHIFTW.
  356.     SENDCTRLP
  357.     SENDCTRLF
  358.     SENDCTRLG
  359.     SENDCTRLTf
  360.     SENDCTRLV
  361.     SENDCTRLE
  362.     SENDCTRLCJ
  363. SENDESC
  364.     SENDENTER
  365. SENDDOWNARROW-
  366. SENDRIGHTARROWx
  367. SENDGOTOA1
  368. SENDFNHOMEF
  369. GETCLIP$
  370. INITTBAR
  371. OFFRCMD%@
  372. CMDTBDOWNA%
  373. CMDA%: 
  374. CMDSC%
  375. CMDP%
  376. CMDC%(%
  377. CMDE%!'
  378. CMDJ%c'
  379. CMDT%
  380. LOADMYPROCS
  381. MPCHECK
  382. NEXTEV%
  383. SYSTEM\
  384. SYSRAM1
  385. SYSTINFO
  386.