home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 May / PCWorld_2001-05_cd.bin / Akce / abra_one.exe / $DIR32.1 / B_EDITEL.APP (.txt) next >
MS Visual FoxPro App  |  2001-01-23  |  32KB  |  807 lines
  1. 5.03.09.1
  2. Editel 1.7
  3. kaz ulo
  4. it do souboru: C
  5. m.outfile|12
  6. _fajly
  7. _fajly
  8. _fajlyN
  9. VVstup
  10. Nalezen
  11. Soubor      |Popis
  12. fajl+"|"+"V
  13. pis ze dne "+substr(fajl,7,2)+"."+substr(fajl,5,2)+"."
  14. 22|Ins|=Ozna
  15. /Odzna
  16. 13|Enter|=Vybrat;10|Ctrl+Enter|=Vybrat ozna
  17. ;27|Esc|=Nevybrat nic
  18. b_zvolsi
  19. oznac
  20. b_refres
  21. _b_chyby
  22.  Nebyly vybr
  23. pisy pro import. 
  24. _hlavickyN
  25. _polozkyNC
  26. _avizaN
  27.  Soubor 
  28.  neobsahuje
  29.  Vybran
  30.  soubory neobsahuj
  31. pisy !!! ;
  32.  (Pravd
  33. podobn
  34.  form
  35. _polozkyNC
  36. _hlavickyN
  37. _avizaN
  38. FormProgressBar
  39. h importu
  40. _bankvyp
  41. private &fieldlst
  42. _polozky
  43. CC:POL
  44. _aviza
  45. CC:POL
  46. _aviza
  47. _bankvyp
  48. _bankvyp
  49. _b_chyby
  50. Nebyla nalezena v
  51. echna aviza soupisky 
  52. pisu 
  53. _b_chyby
  54. Nebyly nalezeny v
  55. echny polo
  56. pisu 
  57. _b_chyby
  58. Nebyly nalezeny 
  59.  polo
  60. pisu 
  61. _b_chybyN
  62. VVstup
  63.  Nalezen
  64.  chyby v importovan
  65. ch souborech 
  66. Import proveden|Popis probl
  67. padc(iif(fatal,"Ne","Ano"),15)+"|"+popis
  68. 27|Esc|=Konec
  69. zvolsi
  70. _b_chyby
  71.  Na cest
  72.  nebyly nalezeny 
  73. pisy. 
  74. _fajly
  75. _parametr
  76. drivers\win\b_editel(
  77.  Nebyla zad
  78. na cesta k programu EPS, nastaven
  79.  nelze ulo
  80.  Nepoda
  81. ilo se otev
  82. t seznam profil
  83.  programu EPS. 
  84.  Profil programu EPS pro ABRA Gold dosud nebyl vytvo
  85. en. ;
  86.  Spus
  87. te program EPS a vytvo
  88. te v n
  89. m profil s n
  90. zvem "ABRA Gold". 
  91.  Nepoda
  92. ilo se aktualizovat INI soubor programu EPS. 
  93.  Defini
  94.  soubor profilu programu EPS pro ABRA Gold ;
  95.  nelze vytvo
  96. it. Bu
  97. to je chybn
  98.  zadan
  99.  adres
  100.  nebo je soubor pr
  101.  obsazen jin
  102. ivatelem. 
  103.  Nepoda
  104. ilo se vytvo
  105. it profil export/import programu EPS. ;
  106.  Nastaven
  107.  nelze ulo
  108. _RESULT
  109. __HLPOLE
  110. PROFCEST
  111. OUTCEST
  112. OUTEXT
  113. OUTROZL
  114. IN_CEST
  115. IN_EXT
  116. IN_ROZL
  117. OBRIZKA
  118. POCETPAR
  119. TXERR
  120. DR_DATA
  121. FIELDLST
  122. OUTFILE
  123. CCURS
  124. BXORD
  125. IN_FILE
  126. MUJUCET
  127. FUJUCET
  128. OZNAC
  129. OZNACENO
  130. POCETPOL
  131. POC_POL
  132. SOUCET
  133. CELKEMVET
  134. FIRMDATA
  135. NACTIPAR
  136. _PLTISK
  137. DATCONV
  138. G_DATE
  139. FRMEDIT
  140. PISPLAT
  141. DBFUCT
  142. _BANKVYP
  143. _FAJLY
  144. BKVVST
  145. CAPTION
  146. HEADERS
  147. POLOZKY
  148. FUNKCE
  149. VYSKAPOMPANELU
  150. SPUST
  151. PRECNO
  152. _B_CHYBY
  153. FATAL
  154. POPIS
  155. CURSORY    
  156. _HLAVICKY
  157. TYPTAB
  158. _POLOZKY
  159. _AVIZA
  160. UZHOTOVO
  161. INICIALIZUJ
  162. VISIBLE
  163. ROZBORKA
  164. PANNA
  165. KRESLI
  166. SPECIAL
  167. CISUCTU
  168. BVIDENT
  169. BVCISLO
  170. BVROK
  171. DATUM
  172. UPPER_ID    
  173. CASTKA_KC
  174. JESOUPIS
  175. SOUPISKA
  176. KR_DB
  177. VALUTA
  178. KURZ_KC    
  179. KURZ_CIZI
  180. VARSYMB
  181. JINYUCET
  182. G_KODC
  183. RELEASE
  184. ZAVIREJ
  185. CHYVVST
  186. UNUSEDBF
  187. DRIVERS
  188. NOVYPROF
  189. Enter
  190. Ctrl+Enter
  191. Ctrl+Ins
  192. Ctrl+Del
  193. _VVCUSTOBJ
  194. G_EXIT
  195. OZNAC
  196. OZNACENO
  197. G_OBNOV
  198. SIPKA
  199. PRECNO
  200. WACTd
  201. BVPREFIX
  202. DBFUCT    
  203. BV_PREFIX
  204. BVZKRAT
  205. DEJZKRAT
  206. VAZBA_UCET
  207. VAZBABANKA    
  208. VAZBA_UHN
  209. VAZBABAN_H
  210. HNIZDO
  211. G_MEHNIZDOs
  212. _CISUCTU
  213. ROZBORKA
  214. 000000
  215. _UCET
  216. VRATt
  217. _aviza
  218. _polozky
  219. _hlavicky
  220. UNUSEDBF
  221. pis obsahuje i obraty jin
  222. tu. Pokud chcete p
  223.  i tato data, u
  224. te tak z agendy dan
  225. tu . 
  226. _PANNA
  227. FEX\PROFILES.LST
  228. [PROFILES.EPS]
  229. ABRA GOLD
  230. EPS.INI
  231. EPS2.INI
  232. [EBIMEX.PROFILECC
  233. DEF_IMPORT=
  234. DEF_EXPORT=
  235. EPS.INI
  236. EPS2.INI
  237. EPS.INI
  238. _CESTA
  239. _DRDATA
  240. PROFLST
  241. RADEK
  242. SEKCE
  243. CESTA
  244. EQUAL
  245. EPSINI1
  246. EPSINI2
  247. CISLO
  248. DEF_IMPORT
  249. DEF_EXPORT
  250. MAKEFIN
  251. MAKEINI
  252. MAKEFEX
  253. [EBIMEX.PROFILECC
  254. PAYORD_LIN=
  255. PAYORD_L.FEX
  256. DEBADV_LIN=
  257. DEBADV_L.FEX
  258. CREADV_LIN=
  259. CREADV_L.FEX
  260. FINSTA_POL=
  261. FINSTA_P.FEX
  262. FINSTA_ACC=
  263. FINSTA_A.FEX
  264. DEF_IMPORT=C
  265. DEF_EXPORT=C
  266. _HNDL
  267. _CESTA
  268. _CISLO
  269. _IMPORT
  270. _EXPORT
  271. PROFILE.INI
  272. COMPANY=
  273. INFO_SYSTEM=
  274. ABRA GOLD
  275. AKTIS A.S.
  276.  V programu EPS ji
  277.  existuje profil ABRA Gold od jin
  278. ho dodavatele. ;
  279.  Chcete tento profil p
  280. epsat ? ;
  281. epsat profil;\<Jen ulo
  282. it parametry;\?\<Zru
  283. it akci
  284. [INFORMATION]
  285. INFO_SYSTEM=ABRA Gold
  286. PURPOSE=CC
  287. Pro import a export ze syst
  288. mu ABRA Gold
  289. COMPANY=AKTIS a.s.
  290. ADDRESS1=Na Valentince 1
  291. ADDRESS2=Praha 5
  292. PHONE=02/57 31 24 32
  293. FAX=02/57 31 50 77
  294. E-MAIL=obchod@aktis.cz, servis@aktis.cz
  295. HTTP=http://www.aktis.cz
  296. COMMENT_FILE=
  297. [DATES]
  298. DATE_CREATED=30.06.1998
  299. DATE_MODIFIED=30.06.1998 10:00
  300. _CESTA
  301. FEXNAME
  302. RADEK
  303. COMPANY
  304. INFOSYS
  305. G_ANONE
  306. FINSTA_A.FEX
  307. FINSTA_P.FEX
  308. CREADV_L.FEX
  309. DEBADV_L.FEX
  310. PAYORD_L.FEX
  311. [COMPATIBILITY]
  312. FEX_VERSION=2
  313. [DATES]
  314. DATE_CREATED=30.06.1998 10:00
  315. DATE_MODIFIED=30.06.1998 10:00
  316. [EBIMEX2]
  317. CS_CODING=CC
  318. DECIMAL_DELIMITER=0
  319. CSV_VALUE_SEPARATOR=0
  320. DATE_ORDER=2
  321. DATE_SEPARATOR=3
  322. FILE_FORMAT=0
  323. NUMBER_ALIGN_CHAR=1
  324. TEXT_DELIMITER=0
  325. DATE_WITH_CENTURY=ON
  326. APPEND_DATE_ORDER=5
  327. APPEND_ALLOWED=ON
  328. APPEND_DATE=ON
  329. BOOL_CHAR=0
  330. STRING_EXCEEDED_WARNING=ON
  331. VALIDATE=ON
  332. DELETE_IMPORTED=OFF
  333. DELETE_SORT=ON
  334. SIGN_CHAR=2
  335. PREPROCESSOR=
  336. POSTPROCESSOR=
  337. DO_PREPROCESS=OFF
  338. DO_POSTPROCESS=OFF
  339. IMPORT_FIM=OFF
  340. TIME_SEPARATOR=0
  341. TIME_WITH_SECS=ON
  342. DEFAULT_NAME=
  343. DEFAULT_DIR=
  344. DEFAULT_EXT=
  345. FILE_TITLE=CC
  346. pisy z 
  347.  (hlavi
  348. SOURCE_TABLE=4
  349. DEFAULT_NAME=
  350. DEFAULT_DIR=
  351. DEFAULT_EXT=
  352. FILE_TITLE=CC
  353. pisy z 
  354.  (polo
  355. SOURCE_TABLE=5
  356. DEFAULT_NAME=
  357. DEFAULT_DIR=
  358. DEFAULT_EXT=
  359. FILE_TITLE=CC
  360. Kreditn
  361. SOURCE_TABLE=3
  362. DEFAULT_NAME=
  363. DEFAULT_DIR=
  364. DEFAULT_EXT=
  365. FILE_TITLE=CC
  366. Debetn
  367. SOURCE_TABLE=2
  368. DEFAULT_NAME=
  369. DEFAULT_DIR=
  370. DEFAULT_EXT=
  371. FILE_TITLE=CC
  372. Platebn
  373. SOURCE_TABLE=0
  374. [EBIMEX2.FIELDS]
  375. 1="HD",0,2,0,0,0,0,0,0
  376. 2=CISLO_VYP,1,5,0,1,0,0,0,0
  377. 3=ABO,0,16,0,0,0,0,0,0
  378. 4=MENA,0,3,0,0,0,0,0,0
  379. 5=POC_POL,1,5,0,1,0,0,0,0
  380. 6=DAT_VYPIS,3,8,0,0,0,0,0,0
  381. 7=ID,1,10,0,1,0,0,0,0
  382. [EBIMEX2.FIELDS]
  383. 1="IT",0,2,0,0,0,0,0,0
  384. 2=CISLO_VYP,1,5,0,1,0,0,0,0
  385. 3=POR_CIS,1,3,0,1,0,0,0,0
  386. 4=DATUM_UCT,3,8,0,0,0,0,0,0
  387. 5=INDIK_DBCR,0,1,0,0,0,0,0,1
  388. 6=CASTKA,2,15,2,1,0,0,0,0
  389. 7=TEXT1,0,70,0,0,0,0,0,0
  390. 8=SOUPISKA,1,5,0,1,0,0,0,0
  391. 9=UPPER_ID,1,10,0,1,0,0,0,0
  392. [EBIMEX2.FIELDS]
  393. ",0,2,0,0,0,0,0,0
  394. 2=DAT_ZPRAC,3,8,0,0,0,0,0,0
  395. 3=CASTKA,2,15,2,1,0,0,0,0
  396. 4=MENA,0,3,0,0,0,0,0,0
  397. 5=BANKA1,1,7,0,0,0,0,0,0
  398. 6=ABO1,0,16,0,0,0,0,0,0
  399. 7=VAR_SYM1,0,10,0,0,0,0,0,0
  400. 8=SOUPISKA,1,5,0,1,0,0,0,0
  401. [EBIMEX2.FIELDS]
  402. 1=TYP_POL,1,2,0,1,0,0,0,0
  403. 2=CASTKA,2,15,2,1,0,0,0,0
  404. 3=DAT_SPLAT,3,8,0,0,0,0,0,0
  405. 4=MENA,0,3,0,0,0,0,0,0
  406. 5=CISLO_POL,1,4,0,1,0,0,1,0
  407. 6=KONST_SYM,0,10,0,0,0,0,0,0
  408. 7=ABO1,0,16,0,0,0,0,0,0
  409. 8=SPEC_SYM1,0,10,0,0,0,0,0,0
  410. 9=VAR_SYM1,0,10,0,0,0,0,0,0
  411. 10=BANKA2,1,7,0,0,0,0,0,0
  412. 11=ABO2,0,16,0,0,0,0,0,0
  413. 12=SPEC_SYM2,0,10,0,0,0,0,0,0
  414. 13=VAR_SYM2,0,10,0,0,0,0,0,0
  415. 14=AVIZO1,0,70,0,0,0,0,0,0
  416. 15=_CISLO_ZPR,0,14,0,0,0,0,1,0
  417. 16=PRIJEMCE,0,35,0,0,0,0,0,0
  418. _CESTA
  419. _DRDATA
  420. FEXNAME
  421. OUTCEST
  422. OUTEXT
  423. OUTROZL
  424. IN_CEST
  425. IN_EXT
  426. IN_ROZL
  427. _hlavicky
  428. _polozky
  429. _aviza
  430. _HLAVICKY
  431. TYPTAB
  432. BVCISLO
  433. CISUCTU
  434. VALUTA
  435. POC_POL
  436. DATUM
  437. _POLOZKY
  438. PORADI
  439. CRDB    
  440. CASTKA_KC
  441. SOUPISKA
  442. UPPER_ID
  443. _AVIZA
  444. CISBANKY
  445. VARSYMB
  446. %S%R%M%D
  447. CASTKA
  448. DATCONV    
  449. DAT_SPLAT    
  450. KONSTSYMB
  451. ROZBORKA    
  452. C_ZDRUCET
  453. SPECSYMB
  454. VARSYMB    
  455. C_CILUCET
  456. POPIS
  457. FIRMA
  458. FIRMA_H
  459. P_PODNIK
  460. b_editel,
  461. b_zvolsi
  462. b_refres
  463. bvident! 
  464. special
  465. rozborka
  466. zavirej
  467. jinyucet:$
  468. novyprof
  469. makeini6-
  470. makefin
  471. makefex34
  472. cursoryqF
  473. pisplat
  474. PLATFORM
  475. UNIQUEID
  476. TIMESTAMP
  477. CLASS
  478. CLASSLOC
  479. BASECLASS
  480. OBJNAME
  481. PARENT
  482. PROPERTIES
  483. PROTECTED
  484. METHODS
  485. OBJCODE
  486. RESERVED1
  487. RESERVED2
  488. RESERVED3
  489. RESERVED4
  490. RESERVED5
  491. RESERVED6
  492. RESERVED7
  493. RESERVED8
  494.  COMMENT Screen              
  495.  WINDOWS _0060YYL60 673612372
  496.  WINDOWS _0060YYL61 689262845
  497.  WINDOWS _0060YYL64 688870644
  498.  WINDOWS _0060YYL66 673926369
  499.  WINDOWS _0060YYL67 673926369
  500.  WINDOWS _0060YYL69 689262845^
  501.  WINDOWS _0060YYL6U 673926369
  502.  WINDOWS _0060YYL6V 673926369
  503.  WINDOWS _0060YYL6X 673926369
  504.  WINDOWS _0060YYL6Y 673926369T
  505.  WINDOWS _0060YYL70 688870861
  506.  WINDOWS _0060YYL73 673926369-
  507.  WINDOWS _0060YYL74 673926369
  508.  WINDOWS _0060YYL76 673676793
  509.  WINDOWS _0060YYL77 673612372
  510.  WINDOWS _0060YYL79 673677560L
  511.  WINDOWS _0060YYL7A 673677560
  512.  WINDOWS _0060YYL7B 688871130%
  513.  WINDOWS _0060YYL7E 673677560
  514.  WINDOWS _0060YYL7F 673677560p
  515.  WINDOWS _0060YYL7G 673677560
  516.  COMMENT RESERVED            
  517. VERSION =   3.00
  518. dataenvironment
  519. dataenvironment
  520. Dataenvironment
  521. Name = "Dataenvironment"
  522. formokzrus
  523. Checkbox_1
  524. label
  525. Formokzrus1
  526. Height = 246
  527. Width = 503
  528. DoCreate = .T.
  529. Caption = "Nastaven
  530.  parametr
  531.  ovlada
  532. e pro EDITEL"
  533. ok = 0
  534. autor_formulare = ONFU
  535. Name = "Formokzrus1"
  536. Shapeinpw2.Top = 210
  537. Shapeinpw2.Left = 0
  538. Shapeinpw2.Name = "Shapeinpw2"
  539. Shapeinpw1.Top = 0
  540. Shapeinpw1.Left = 0
  541. Shapeinpw1.Height = 210
  542. Shapeinpw1.Width = 504
  543. Shapeinpw1.Name = "Shapeinpw1"
  544. Cbok1.Top = 217
  545. Cbok1.Left = 180
  546. Cbok1.TabIndex = 3
  547. Cbok1.Name = "Cbok1"
  548. Cbzrus1.Top = 217
  549. Cbzrus1.Left = 276
  550. Cbzrus1.TabIndex = 4
  551. Cbzrus1.Name = "Cbzrus1"
  552. PROCEDURE Unload
  553. DoDefault()
  554. Return ThisForm.Ok
  555. ENDPROC
  556. PROCEDURE Cbok1.Click
  557. if DoDefault()
  558.     ThisForm.Ok=1
  559. endif
  560. ENDPROC
  561. THISFORM
  562. THISFORM
  563. Unload,
  564. Cbok1.ClickV
  565. textbox_
  566. checkbox
  567. textbox
  568.     Textbox_1
  569. Formokzrus1
  570. oControlSource = "m.profcest"
  571. Height = 23
  572. Left = 60
  573. TabIndex = 1
  574. Top = 36
  575. Width = 414
  576. Name = "Textbox_1"
  577. PROCEDURE Valid
  578. private m.promka,m.vrat
  579. m.promka=This.Value && -- Vlastnosti obj se nadaji predavat odkazem
  580. m.vrat=.T.
  581. m.vrat=cesta_bsw2(@m.promka)
  582. This.Value=m.promka && -- Mrsknem to zp
  583. This.Hodn_Platna=m.vrat
  584. return m.vrat
  585. ENDPROC
  586. PROMKA
  587. VALUE
  588. CESTA_BSW2
  589. Valid,
  590. Formokzrus1.Pageframe_1.Page2
  591. label_
  592.     checkbox_
  593.     Textbox_4
  594. label
  595. Label_1
  596. Formokzrus1
  597. aCaption = "Cesta k programu firmy EDITEL:"
  598. Left = 62
  599. Top = 18
  600. TabIndex = 5
  601. Name = "Label_1"
  602. label_
  603. textbox
  604. textbox
  605. label
  606. Label_2
  607. Formokzrus1
  608. GCaption = "EPS:"
  609. Left = 30
  610. Top = 40
  611. TabIndex = 6
  612. Name = "Label_2"
  613. pageframe_
  614. textbox_
  615.     pageframe
  616. Pageframe_1
  617. Formokzrus1
  618. ErasePage = .T.
  619. PageCount = 2
  620. Top = 67
  621. Left = 6
  622. Width = 492
  623. Height = 137
  624. TabIndex = 2
  625. Name = "Pageframe_1"
  626. Page1.Caption = "V
  627. stupn
  628.  parametry (p
  629. kazy)"
  630. Page1.Name = "Page1"
  631. Page2.FontName = "MS Sans Serif"
  632. Page2.Caption = "Vstupn
  633.  parametry (v
  634. pisy)"
  635. Page2.Name = "Page2"
  636. label_
  637. Formokzrus1.Pageframe_1.Page2
  638. label
  639. Label_1
  640. Formokzrus1.Pageframe_1.Page1
  641. xCaption = "Cesta pro ukl
  642.  vygenerovan
  643. ho platebn
  644. kazu:"
  645. Left = 89
  646. Top = 12
  647. TabIndex = 5
  648. Name = "Label_1"
  649. label_
  650.     Textbox_3
  651. label_
  652. label
  653. Label_2
  654. Formokzrus1.Pageframe_1.Page1
  655. LCaption = "Tuzemsk
  656. Left = 35
  657. Top = 34
  658. TabIndex = 6
  659. Name = "Label_2"
  660. label_
  661. textbox_
  662. label
  663. Label_4
  664. Formokzrus1.Pageframe_1.Page1
  665. YCaption = "Soubory: Identifikace:"
  666. Left = 19
  667. Top = 58
  668. TabIndex = 7
  669. Name = "Label_4"
  670. label_
  671. Formokzrus1.Pageframe_1.Page2
  672. label
  673. Label_5
  674. Formokzrus1.Pageframe_1.Page1
  675. LCaption = "P
  676. pona:"
  677. Left = 183
  678. Top = 58
  679. TabIndex = 8
  680. Name = "Label_5"
  681. textbox_
  682.     Textbox_1
  683. label
  684. textbox
  685.     Textbox_1
  686. Formokzrus1.Pageframe_1.Page1
  687. nControlSource = "m.outcest"
  688. Height = 23
  689. Left = 89
  690. TabIndex = 1
  691. Top = 30
  692. Width = 390
  693. Name = "Textbox_1"
  694. PROCEDURE Valid
  695. private m.promka,m.vrat
  696. m.promka=This.Value && -- Vlastnosti obj se nadaji predavat odkazem
  697. m.vrat=.t.
  698. m.vrat=cesta_bsw2(@m.promka)
  699. This.Value=m.promka && -- Mrsknem to zp
  700. Return m.vrat
  701. ENDPROC
  702. PROMKA
  703. VALUE
  704. CESTA_BSW2
  705. Valid,
  706. textbox_
  707. textbox
  708. label_
  709. textbox
  710.     Textbox_3
  711. Formokzrus1.Pageframe_1.Page1
  712. nControlSource = "m.outrozl"
  713. Height = 23
  714. Left = 125
  715. TabIndex = 2
  716. Top = 54
  717. Width = 54
  718. Name = "Textbox_3"
  719. textbox_
  720. textbox_
  721. textbox
  722.     Textbox_4
  723. Formokzrus1.Pageframe_1.Page1
  724. mControlSource = "m.outext"
  725. Height = 23
  726. Left = 227
  727. TabIndex = 3
  728. Top = 54
  729. Width = 36
  730. Name = "Textbox_4"
  731. label_
  732. Formokzrus1.Pageframe_1.Page2
  733. label
  734. Label_1
  735. Formokzrus1.Pageframe_1.Page2
  736. UCaption = "Cesta k dat
  737. m bankovn
  738. pisu:"
  739. Left = 89
  740. Top = 12
  741. Name = "Label_1"
  742. label_
  743. Label_5
  744. Label_4
  745. label
  746. Label_2
  747. Formokzrus1.Pageframe_1.Page2
  748. >Caption = "Tuzemsk
  749. Left = 35
  750. Top = 34
  751. Name = "Label_2"
  752. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  753. Formokzrus1.Pageframe_1.Page2
  754. KCaption = "Soubory: Identifikace:"
  755. Left = 19
  756. Top = 58
  757. Name = "Label_4"
  758. >Caption = "P
  759. pona:"
  760. Left = 183
  761. Top = 58
  762. Name = "Label_5"
  763. Formokzrus1.Pageframe_1.Page2
  764. Top = 84
  765. Left = 89
  766. Caption = "O
  767. vat nuly zleva u variabiln
  768. ho symbolu"
  769. ControlSource = "m.obrizka"
  770. Name = "Checkbox_1"
  771. `ControlSource = "m.in_cest"
  772. Height = 23
  773. Left = 89
  774. Top = 30
  775. Width = 390
  776. Name = "Textbox_1"
  777. PROCEDURE Valid
  778. private m.promka,m.vrat
  779. m.promka=This.Value && -- Vlastnosti obj se nadaji predavat odkazem
  780. m.vrat=.t.
  781. m.vrat=cesta_bsw2(@m.promka)
  782. This.Value=m.promka && -- Mrsknem to zp
  783. Return m.vrat
  784. ENDPROC
  785. PROMKA
  786. VALUE
  787. CESTA_BSW2
  788. HODN_PLATNA
  789. Valid,
  790. _ControlSource = "m.in_ext"
  791. Height = 23
  792. Left = 227
  793. Top = 54
  794. Width = 36
  795. Name = "Textbox_4"
  796. `ControlSource = "m.in_rozl"
  797. Height = 23
  798. Left = 125
  799. Top = 54
  800. Width = 54
  801. Name = "Textbox_3"
  802. b_editel.prg
  803. b_editel.fxp
  804. ..\..\..\agdata\drivers\503\forms\
  805. b_editel.scx
  806. b_editel.sct
  807.