home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / software / testsoft / Sezam / _SE31SEZ.ZIP / OPTIC / INWEN.DMC < prev    next >
Text File  |  1996-12-19  |  8KB  |  511 lines
  1. :***********************************************
  2. :****             INWENTARYZATOR            ****
  3. :****              OPTIMUS - iC             ****
  4. :****            GRUNWALDZKA  174           ****
  5. :****            33-300 NOWY SÅCZ           ****
  6. :**** ------------------------------------- ****
  7. :****  ver 1.03  by Zbigniew Walczyk 1996   ****
  8. :****              31.XII.1996              ****
  9. :***********************************************
  10.  
  11. D$4="111122223333"
  12. S.InitDat
  13. D#9=1    : nr trybu
  14. P"\e[2J\e[0;0H\n\n\th\tb INWENTARYZATOR\tb\th"
  15. P"\n\n Ver 1.03  1996"
  16. B1
  17. B2
  18. B3
  19. S.PresKey
  20. .MainMnu
  21. P"\e[2J\e[0;0H  \tbMenu Glowne:\tb\n"
  22. P"\n1.Inwentaryzacja\n"
  23. P"2.Komunikacja\n"
  24. P"3.Tryb:  "
  25. C$1=#9
  26. P$1
  27. P"\n4.Inne\n"
  28. P"5.Koniec"
  29. K*
  30. C#A=$0
  31. S#A=1.Inwen
  32. S#A=2.Komun
  33. S#A=3.Ustaw
  34. S#A=4.Inne
  35. G#A=5.End
  36. G.MainMnu
  37.  
  38. .End
  39. P"\n PODAJ HASLO:\n     "
  40. K4
  41. S$0<>$4L4.MainMnu
  42.  
  43. ET
  44. :****** Tu program si' koñczy
  45.  
  46. :**************************************************************
  47. .NIY
  48. P"\e[2J\e[0;0H Jeszcze\nnie\ngotowe\n"
  49. S.PresKey
  50. Q
  51. :**** NIY
  52.  
  53.  
  54. :************************************************************
  55. :******* w #6 dlugosc zadana ciagu
  56. .Trim
  57. G#6=[$0].EndTrim
  58. I$0" "
  59. G.Trim
  60. .EndTrim
  61. Q
  62.  
  63. :************************************************************
  64. .BrakDan
  65. P"\e[2J\e[0;0H \n\th\tb     B R A K\n\n   D A N Y C H\tb\th\n"
  66. S.PresKey
  67. Q
  68. :**** BrakDan
  69.  
  70. :************************************************************
  71. .BrakAr
  72. P"\e[2J\e[0;0H \n\th\tb     B R A K\n\nA R T Y K U L U\tb\th\n"
  73. S.PresKey
  74. Q
  75. :**** BrakDan
  76.  
  77. :****** Procedura PressAny Key *******************************
  78. .PresKey
  79. P"\e[7;0H"
  80. P"\trNacisnij klawisz\tr"
  81. K
  82. Q
  83. :**** PresKey
  84.  
  85. :************************************************************
  86. :***** Inicjalizacja danych /kasowanie danych
  87. .InitDat        
  88. OA(0,44)    : nazwa(16)+,+kod(13)+,+ile(5)+,+powinno(5)+<CR><LF>
  89. OB(0,13)    : kody
  90. Q
  91. :**** InitDat
  92.  
  93. :************************************************************
  94. :************************************************************
  95. :********        Inwentaryzacja
  96. .Inwen
  97. : ustawienie flag
  98. G#9>1.I1
  99. D$5="NNTN"
  100. G.Inwen1
  101. .I1
  102. G#9>2.I2
  103. D$5="NTTN"
  104. G.Inwen1
  105. .I2
  106. G#9>3.I3
  107. D$5="TNNT"
  108. G.Inwen1
  109. .I3
  110. G#9>4.I4
  111. D$5="TNTN"
  112. G.Inwen1
  113. .I4
  114. G#9>5.I5
  115. D$5="TNTT"
  116. G.Inwen1
  117. .I5
  118. G#9>6.I6
  119. D$5="TTNT"
  120. G.Inwen1
  121. .I6
  122. G#9>7.I7
  123. D$5="TTTN"
  124. G.Inwen1
  125. .I7
  126. G#9>8.I8
  127. D$5="TTTT"
  128. G.Inwen1
  129. .I8
  130. D$5="TNNT"
  131. .Inwen1
  132. P"\e[2J\e[0;0H\tb Inwentaryzacja\tb\n\n"
  133. P"1.Inwentaryzacja\n"
  134. P"2.Przeglad\n   (kasowanie)"
  135. K*
  136. G#A=133.EndInw
  137. C#A=$0
  138. S#A=1.Inw
  139. S#A=2.Przeg
  140. G.Inwen1
  141. .EndInw
  142. Q
  143. :**** Inwentaryzacja
  144.  
  145. :************************************************************
  146. .Przeg
  147. H#8=A
  148. D#7=#8
  149. G#8<0.BrakDan
  150. .Przeg1
  151. P"\e[2JArt."
  152. D#6=#7+1
  153. C$1=#6
  154. I$1" z "
  155. D#6=#8+1
  156. C$0=#6
  157. I$1$0
  158. P$1
  159. P"\n"
  160. PA(#7)M16,1
  161. GA(#7)L13="**SKASOWANY**".Przeg4
  162. P"\nKod\th"
  163. D$0=A(#7)M13,18
  164. P$0
  165. P"\nIlosc: \tb"
  166. D$0=A(#7)M5,32
  167. P$0
  168. P"\tb\th"
  169. G#9<>9.Przeg2
  170. P"\nPowinno:  "
  171. D$0=A(#7)M5,38
  172. P$0
  173. .Przeg2
  174. G$5M1,2="N".Przeg3
  175. P"\e[7;0H \trF2\tr-Kas"
  176. .Przeg3
  177. G$5M1,4="N".Przeg4
  178. P"\e[7;8H \trF3\tr-Pop"
  179. .Przeg4
  180. K*
  181. G#A=133.EndPrz
  182. G#A=139.PrzDn
  183. G#A=140.PrzUp
  184. S#A=135.Kasow
  185. S#A=136.Popr
  186. S#A=138.Search
  187. G.Przeg1
  188. .EndPrz
  189. Q
  190. .PrzUp
  191. G#7=#8.Przeg1
  192. D#7=#7+1
  193. G.Przeg1
  194. .PrzDn
  195. G#7=0.Przeg1
  196. D#7=#7-1
  197. G.Przeg1
  198. :***** przeglad artykulu
  199. :***** Przeg
  200.  
  201. :************************************************************
  202. :**** w rejestrze #7 numer rekordu biezacego
  203. .Search
  204. D#2=#A
  205. D#3=#7
  206. H#8=A
  207. D#6=13
  208. P"\e[2J\n\th  WYSZUKIWANIE \th\n\n\n\thPodaj kod:\th\n"
  209. V8,12,13
  210. S.Trim
  211. D$1=$0
  212. J2
  213. LB
  214. J0
  215. G#0=#8.Search1
  216.   D#7=#0
  217.   G.EndSrch
  218. .Search1
  219. G$1<>B(#8).Srch1
  220.   D#7=#8
  221.   G.EndSrch  
  222. .Srch1
  223. S.BrakAr
  224. .EndSrch
  225. D#A=#2
  226. Q
  227.  
  228.  
  229. :************************************************************
  230. :**** w rejestrze #7 numer rekordu do skasowania
  231. .Kasow
  232. D#2=#A
  233. G$5M1,2="N".EndKas
  234. GB(#7)L13="**SKASOWANY**".EndKas
  235. P"\e[0;0H\tb  Kasowanie ?? \tb"
  236. P"\e[7;0H\tr1.\tr \tbTak\tb   \tr2.\tr \tbNie\tb"
  237. K*
  238. C#A=$0
  239. G#A=1.Kasow1
  240. G#A=2.EndKas
  241. G.Kasow
  242. .Kasow1
  243. D$0="**SKASOWANY**"
  244. DB(#7)=$0
  245. I$0"   ,             ,     ,     \0x0D\0x0A"
  246. DA(#7)=$0
  247. .EndKas
  248. D#A=#2
  249. Q
  250.  
  251. :************************************************************
  252. :**** w rejestrze #7 numer rekordu do poprawy
  253. .Popr
  254. D#2=#A
  255. G$5M1,4="N".EndPopr
  256. GB(#7)L13="**SKASOWANY**".EndPopr
  257. P"\e[0;0H\tb  Poprawa ?? \tb"
  258. P"\e[6;0H\tr1.\tr \tbPop\tb  \tr2.\tr \tbDodaj\tb
  259. P"\e[7;0H                "
  260. P"\e[7;0H\tr3.\tr \tbRezygnuj\tb"
  261. K*
  262. C#A=$0
  263. G#A=1.Popr1
  264. G#A=2.Popr2
  265. G#A=3.EndPopr
  266. G.Popr
  267. .Popr1
  268. P"\e[7;0H                "
  269. P"\e[6;0H                "
  270. P"\e[6;0HJEST: \o"
  271. K5
  272. C#3=$0
  273. D$1=A(#7)L31
  274. C$2=#3
  275. G.Popr1a
  276. .Popr2
  277. P"\e[7;0H                "
  278. P"\e[6;0H                "
  279. P"\e[6;0HDodaj: \o"
  280. K5
  281. C#3=$0
  282. C#4=A(#7)M5,32
  283. D#3=#3+#4
  284. D$1=A(#7)L31
  285. C$2=#3
  286. .Popr1a
  287.   G[$2]>=5.Popr1b
  288.   I$2" "
  289.   G.Popr1a
  290. .Popr1b
  291. I$1$2
  292. I$1A(#7)R8
  293. DA(#7)=$1
  294. .EndPopr
  295. D#A=#2
  296. P"\f"
  297. Q
  298.  
  299.  
  300. :************************************************************
  301. :************************************************************
  302. :********        Komunikacja
  303. .Komun
  304. P"\e[2J\e[0;0H\tb  Komunikacja\tb\n\n"
  305. P"1.Wyslanie\n    danych\n"
  306. P"2.Odczyt danych\n"
  307. K*
  308. G#A=133.EndKom
  309. C#A=$0
  310. S#A=1.Send
  311. S#A=2.Recv
  312. G.Komun
  313. .EndKom
  314. Q
  315. :**** Komunikacja
  316.  
  317.  
  318. :************************************************************
  319. .Send
  320. H#8=A
  321. G#8<0.BrakDan
  322. P"\e[2J\e[0;0H\n\tb\th     Wysylam\th\tb\n\n"
  323. XMN,A
  324. P"\e[2J\e[0;0H\th\n\tb  G O T O W E\tb\th\n\n"
  325. S.PresKey
  326. Q
  327. :****
  328.  
  329. :************************************************************
  330. .Recv
  331. H#8=A
  332. G#8<0.Recva
  333. P"\e[2J\e[0;0H\n\tb    Najpierw\n\n  skasuj dane\tb\n\n"
  334. S.PresKey
  335. Q
  336. .Recva
  337. P"\e[2J\e[0;0H\n\tb\th     Odbieram\th\tb\n\n"
  338. YMN,A
  339. H#8=A
  340. G#8<0.EndRecv
  341. P"\e[2J\n\tb INICJALIZACJA"
  342. P"\n Prosze czekac\tb"
  343. J2
  344. OB(0,13)
  345. D#7=0
  346. .Recv1
  347.   D#6=#8-#7
  348.   P"\e[7;7H\th      \th"
  349.   P"\e[7;7H\th"
  350.   C$0=#6
  351.   P$0
  352.   P"\th"
  353.   D$0=A(#7)M13,18
  354.   RB
  355.   D#7=#7+1
  356.   G#7<=#8.Recv1  
  357. J0
  358. P"\e[2J\e[0;0H\th\n\tb  G O T O W E\tb\th\n\n"
  359. S.PresKey
  360. .EndRecv
  361. Q
  362. :****
  363.  
  364.  
  365. :************************************************************
  366. :************************************************************
  367. :*******        Ustawienia
  368. .Ustaw
  369. P"\n PODAJ HASLO:\n     "
  370. K4
  371. G$0<>$4M4,5.Alert4
  372. D#2=#A
  373. P"\e[2J\e[0;0H\n  Podaj numer\n\n  trybu pracy\n\n     <1-9>"
  374. K*
  375. G#A=133.EndUst
  376. C#A=$0
  377. G#A>9.EndUst
  378. G#A<1.EndUst
  379. D#9=#A
  380. D#A=#2
  381. .EndUst
  382. Q
  383.  
  384. :************************************************************
  385. :************************************************************
  386. :********        Inne
  387. .Inne
  388. P"\e[2J\e[0;0H\tb Inne\tb\n\n"
  389. P"1.Wolna pamiec\n"
  390. P"2.Kasowanie\n     danych\n"
  391. K*
  392. G#A=133.EndInne
  393. C#A=$0
  394. S#A=1.FreeMem
  395. S#A=2.KasujDt
  396. G.Inne
  397. .EndInne
  398. Q
  399. :**** Inwentaryzacja
  400.  
  401. :***** FreeMem **********************************************
  402. .FreeMem
  403. P"\e[2J\e[0;0H\tr  Wolna pamiec  \tr\n\n\n     \th"
  404. C$0=#F
  405. P$0
  406. P"\th"
  407. S.PresKey
  408. Q
  409. :****FreeMem
  410.  
  411. :***** KasujDt **********************************************
  412. .KasujDt
  413. P"\n PODAJ HASLO:\n     "
  414. K4
  415. G$0<>$4M4,9.Alert4
  416. S.InitDat
  417. P"\e[2J\e[0;0H\n\n    D A N E\n\n   skasowano"
  418. S.PresKey
  419. Q
  420. .Alert4
  421. P"\e[2J\e[0;0H\n\n   \trZle Haslo\tr"
  422. S.PresKey
  423. Q
  424. :**** KasujDt
  425.  
  426. :*************************************************************
  427. :**** INW  - glowna funkcja inwentaryzujaca
  428. :*************************************************************
  429. .Inw
  430. G#F>2048.Inwa
  431. P"\e[2J\n\th  P A M I E C\th\n\n\n\th   ZAPELNIONA\th"
  432. S.PresKey
  433. Q
  434. .Inwa
  435. P"\e[2J\n\th   Podaj kod:\th\n\n"
  436. D#6=13
  437. V8,12,13
  438. S.Trim
  439. D$1=$0
  440. P"\e[4;0H                \e[4;0H"
  441. P$0
  442. G#A<>40.Inw1
  443. G#V=133.EndIn
  444. G$0="             ".Inwa
  445. .Inw1
  446. G$5L1="T".Inw2
  447. .InwDod
  448. P"\n\n\thIlosc: \o"
  449. D#6=5
  450. K5
  451. P"\th\f"
  452. C#5=$0
  453. G#5=0.EndIn
  454. C$0=#5
  455. S.Trim
  456. D$2=""
  457. I$2"*TOWAR*DOPISANY*,"
  458. I$2$1
  459. I$2","
  460. I$2$0
  461. I$2",     \0x0D\0x0A"
  462. R$2A
  463. R$1B
  464. G.Inw
  465. .Inw2
  466. H#8=B
  467. G#8<0.NotFoun
  468. D$0=$1
  469. J2
  470. LB
  471. J0
  472. G#0=#8.InwS1
  473.  D#7=#0
  474.  G.Found
  475. .InwS1
  476. G$1<>B(#8).NotFoun
  477.  D#7=#8
  478. .Found
  479. G$5M1,4="T".InwPop
  480. P"\e[2J\n\th    Poprawa \n  ZABLOKOWANA\th\n\n"
  481. S.PresKey
  482. G.Inw
  483. .InwPop
  484. P"\e[2JArt."
  485. D#6=#7+1
  486. C$1=#6
  487. I$1" z "
  488. D#6=#8+1
  489. C$0=#6
  490. I$1$0
  491. P$1
  492. P"\n"
  493. PA(#7)M16,1
  494. P"\nKod\th"
  495. D$0=A(#7)M13,18
  496. P$0
  497. P"\nIlosc: \tb"
  498. D$0=A(#7)M5,32
  499. P$0
  500. P"\tb\th"
  501. S.Popr
  502. G.Inw
  503. .NotFoun
  504. G$5M1,3="T".InwDod
  505. P"\e[2J\n\th  Dopisywanie\n  ZABLOKOWANE\th\n\n"
  506. S.PresKey
  507. G.Inw
  508. .EndIn
  509. Q
  510.  
  511.