home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / tema / 602propc / disk5 / data.5 / WINTIME / APPS / PFIRMA.VWD < prev    next >
Text File  |  1996-12-03  |  8KB  |  260 lines
  1. `TFIRMA` TABLEVIEW 0 0 595 381
  2. STYLE 8388680
  3. HDFTSTYLE 2109440
  4. BACKGROUND 173
  5. FONT 8 0 34 "MS Sans Serif" 
  6. TOOLBAR
  7.  0 768 0 "" _STMT_START RETURN 768                                                 _STMT_END
  8.  1 769 0 "" _STMT_START RETURN 769                                                 _STMT_END
  9.  2 770 0 "" _STMT_START RETURN 770                                                 _STMT_END
  10.  7 1586 2 "" _STMT_START RETURN 1586                                                 _STMT_END
  11.  5 1589 0 "" _STMT_START RETURN 1589                                                 _STMT_END
  12.  3 1585 0 "" _STMT_START RETURN 1585                                                 _STMT_END
  13.  4 1584 0 "" _STMT_START RETURN 1584                                                 _STMT_END
  14.  6 1588 0 "" _STMT_START RETURN 1588                                                 _STMT_END
  15.  8 1587 0 "" _STMT_START RETURN 1587                                                 _STMT_END
  16.  9 1598 2 "" _STMT_START RETURN 1598                                                 _STMT_END
  17.  10 1612 0 "" _STMT_START RETURN 1612                                                 _STMT_END
  18.  12 1599 0 "" _STMT_START RETURN 1599                                                 _STMT_END
  19.  DELREC 0 2 COMMAND FRAME "" _STMT_START RETURN 2083                                                 _STMT_END
  20.  DELALL 0 0 "ZruÜit vÜechny zßznamy vΦetn∞ vÜech kontakt∙" _STMT_START RETURN 2084                                               _STMT_END
  21.  17 1596 2 "" _STMT_START RETURN 1596                                                 _STMT_END
  22.  PREHLED 0 2 COMMAND FRAME "P°epnutφ do seznamu firem" _STMT_START RETURN 3000                                                 _STMT_END
  23.  19 1610 2 RIGHT "" _STMT_START RETURN 1610                                                 _STMT_END
  24. END
  25. HELP 20000
  26. BEGIN
  27.  LTEXT "Firma:" 3 124 4 40 18 0 0
  28.   PRECISION 0
  29.   FONT 8 0 34 "MS Sans Serif"   
  30.  EDITTEXT 4 168 2 240 22 8454144 1
  31.   BACKGROUND 255
  32.   ACCESS FIRMA
  33.   FONT 8 0 34 "MS Sans Serif" BOLD  
  34.  EDITTEXT 27 410 2 154 22 8454144 1
  35.   BACKGROUND 255
  36.   ACCESS FIRMA2
  37.   FONT 8 0 34 "MS Sans Serif" BOLD  
  38.  LTEXT "Zßstupce:" 5 8 28 52 18 0 0
  39.   PRECISION 0
  40.  LTEXT 56 6 40 558 32 7 0
  41.  EDITTEXT 55 16 48 62 20 8454144 1
  42.   BACKGROUND 255
  43.   ACCESS TITUL
  44.   FONT 8 0 34 "MS Sans Serif" BOLD  
  45.  EDITTEXT 6 80 48 70 20 8454144 1
  46.   BACKGROUND 255
  47.   ACCESS JMENO
  48.   FONT 8 0 34 "MS Sans Serif" BOLD  
  49.  EDITTEXT 32 152 48 115 20 8454144 1
  50.   BACKGROUND 255
  51.   ACCESS PRIJMENI
  52.   FONT 8 0 34 "MS Sans Serif" BOLD  
  53.  EDITTEXT 8 276 48 224 20 8454144 1
  54.   BACKGROUND 255
  55.   ACCESS FUNKCE
  56.   FONT 8 0 34 "MS Sans Serif" BOLD  
  57.  CHECKBOX "Mu₧?" 44 512 50 48 16 196613 0
  58.   PRECISION 0
  59.   ACCESS muz
  60.   DEFAULT True
  61.  LTEXT "Titul, jmΘno, p°φjmenφ:" 58 82 28 110 16 0 0
  62.   PRECISION 0
  63.  LTEXT "Funkce:" 7 271 26 44 18 0 0
  64.   PRECISION 0
  65.  CTEXT "Firma" 36 12 74 40 16 1 0
  66.   PRECISION 0
  67.  LTEXT 35 6 84 558 132 7 0
  68.   PRECISION 0
  69.  LTEXT "Telefon" 15 350 74 44 16 0 0
  70.   PRECISION 0
  71.  LTEXT "Fax" 17 464 74 24 16 0 0
  72.   PRECISION 0
  73.  LTEXT "Ulice:" 9 8 94 36 16 0 0
  74.   PRECISION 0
  75.  EDITTEXT 10 48 92 262 20 8454144 1
  76.   BACKGROUND 255
  77.   ACCESS ULICE
  78.   FONT 8 0 34 "MS Sans Serif" BOLD  
  79.  LTEXT "M∞sto:" 11 8 116 36 16 0 0
  80.   PRECISION 0
  81.  EDITTEXT 12 48 114 262 20 8454144 1
  82.   BACKGROUND 255
  83.   ACCESS MESTO
  84.   FONT 8 0 34 "MS Sans Serif" BOLD  
  85.  LTEXT "PS╚:" 13 8 138 36 16 0 0
  86.   PRECISION 0
  87.  EDITTEXT 14 48 136 53 20 8454144 1
  88.   BACKGROUND 255
  89.   ACCESS Psc
  90.   FORMATMASK "_`A                                                                               "
  91.   FONT 8 0 34 "MS Sans Serif" BOLD  
  92.  LTEXT "Stßt:" 47 114 140 24 16 0 0
  93.   PRECISION 0
  94.  EDITTEXT 57 146 136 86 20 8454144 1
  95.   BACKGROUND 255
  96.   ACCESS STAT
  97.   FONT 8 0 34 "MS Sans Serif" BOLD  
  98.  LISTBOX 16 326 94 110 50 10551297 2
  99.   BACKGROUND 255
  100.   PRECISION 0
  101.   ACCESS TELEFON[]
  102.   STATUSTEXT "...pro zadßvßnφ telefon∙ dvakrßt klikn∞te na tΘto slo₧ce"
  103.   FONT 8 0 34 "MS Sans Serif" BOLD  
  104.  LISTBOX 37 440 94 110 50 10551297 2
  105.   BACKGROUND 255
  106.   PRECISION 0
  107.   ACCESS FAX[]
  108.   STATUSTEXT "...pro zadßvßnφ fax∙ dvakrßt klikn∞te na tΘto slo₧ce"
  109.   FONT 8 0 34 "MS Sans Serif" BOLD  
  110.  LTEXT "Mail:" 19 292 144 24 16 0 0
  111.   PRECISION 0
  112.  LISTBOX 38 326 142 224 36 10551297 2
  113.   BACKGROUND 255
  114.   PRECISION 0
  115.   ACCESS MAIL[]
  116.   STATUSTEXT "...pro zadßvßnφ poÜtovnφch adres dvakrßt klikn∞te na tΘto slo₧ce"
  117.   FONT 8 0 34 "MS Sans Serif" BOLD  
  118.  LTEXT "Bank. spojenφ:" 34 10 172 48 40 0 0
  119.   PRECISION 0
  120.  LISTBOX 64 64 178 222 40 10551297 2
  121.   BACKGROUND 255
  122.   ACCESS BANKA[]
  123.   STATUSTEXT "...pro zadßvßnφ bankovnφch spojenφ dvakrßt klikn∞te na tΘto slo₧ce"
  124.  LTEXT "I╚O:" 65 293 186 26 16 0 0
  125.   PRECISION 0
  126.  EDITTEXT 67 324 184 78 20 8454144 1
  127.   BACKGROUND 255
  128.   ACCESS ICO
  129.  LTEXT "DI╚:" 66 408 186 26 16 0 0
  130.   PRECISION 0
  131.  EDITTEXT 68 437 184 112 20 8454144 1
  132.   BACKGROUND 255
  133.   ACCESS DIC
  134.  PUSHBUTTON "Poznßmka" 28 6 222 60 24 65536 0
  135.   BACKGROUND 248
  136.   PRECISION 0
  137.   ACTION Edit_text(pozn,0,0,500,200)
  138.   STATUSTEXT "Otev°e okno s textem poznßmky"
  139.  LTEXT 69 70 222 310 36 65568 0
  140.   PRECISION 0
  141.   ACCESS POZN
  142.   ACTION Edit_text(pozn,0,0,500,200)
  143.   STATUSTEXT "...pro zadßvßnφ textovΘ poznßmky dvakrßt klikn∞te na tΘto slo₧ce"
  144.   FONT 8 238 49 "Courier New CE"   
  145.  CHECKBOX "?" 48 8 266 28 16 198661 0
  146.   PRECISION 0
  147.   ACCESS prep1
  148.   VISIBILITY (t[1] <> "")
  149.   DEFAULT false
  150.  LTEXT 33 36 266 104 16 0 0
  151.   PRECISION 0
  152.   VALUE t[1]
  153.  CHECKBOX "?" 49 8 286 28 16 198661 0
  154.   PRECISION 0
  155.   ACCESS prep2
  156.   VISIBILITY (t[2] <> "")
  157.   DEFAULT false
  158.  LTEXT 39 36 286 104 16 0 0
  159.   PRECISION 0
  160.   VALUE t[2]
  161.  CHECKBOX "?" 50 148 266 28 16 198661 0
  162.   PRECISION 0
  163.   ACCESS prep3
  164.   VISIBILITY (t[3] <> "")
  165.   DEFAULT false
  166.  LTEXT 40 178 266 104 16 0 0
  167.   PRECISION 0
  168.   VALUE t[3]
  169.  CHECKBOX "?" 51 148 286 28 16 198661 0
  170.   PRECISION 0
  171.   ACCESS prep4
  172.   VISIBILITY (t[4] <> "")
  173.   DEFAULT false
  174.  LTEXT 41 178 286 104 16 0 0
  175.   PRECISION 0
  176.   VALUE t[4]
  177.  CHECKBOX "?" 52 290 266 28 16 198661 0
  178.   PRECISION 0
  179.   ACCESS prep5
  180.   VISIBILITY (t[5] <> "")
  181.   DEFAULT false
  182.  LTEXT 42 318 266 104 16 0 0
  183.   PRECISION 0
  184.   VALUE t[5]
  185.  CHECKBOX "?" 53 290 286 28 16 196613 0
  186.   PRECISION 0
  187.   ACCESS prep6
  188.   VISIBILITY (t[6] <> "")
  189.   DEFAULT false
  190.  LTEXT 43 318 286 104 16 0 0
  191.   PRECISION 0
  192.   VALUE t[6]
  193.  CHECKBOX "?" 18 430 266 28 16 198661 0
  194.   PRECISION 0
  195.   ACCESS prep7
  196.   VISIBILITY (t[7] <> "")
  197.   DEFAULT false
  198.  LTEXT 21 462 266 102 16 0 0
  199.   PRECISION 0
  200.   VALUE t[7]
  201.  CHECKBOX "?" 20 430 286 28 16 198661 0
  202.   PRECISION 0
  203.   ACCESS prep8
  204.   VISIBILITY (t[8] <> "")
  205.   DEFAULT false
  206.  LTEXT 22 462 286 102 16 0 0
  207.   PRECISION 0
  208.   VALUE t[8]
  209.  PUSHBUTTON "Kontakt&y" 30 476 230 88 22 65536 0
  210.   BACKGROUND 248
  211.   PRECISION 0
  212.   ACTION if Cislo=noneshort then Info_box('Nelze','Nenφ vypln∞no Φφslo firmy!');if Cislo=noneshort then halt;Schuzky(!!,@);
  213.   STATUSTEXT ""
  214.  LTEXT "Datum poslednφ zm∞ny:" 62 10 312 114 16 0 0
  215.   PRECISION 0
  216.  LTEXT 63 10 328 118 14 2048 0
  217.   PRECISION 1
  218.   VALUE datum
  219.   FONT 8 0 34 "MS Sans Serif"   
  220.  LTEXT "pouze aktußlnφ zßznam" 25 148 302 118 16 0 0
  221.   PRECISION 0
  222.  LTEXT 31 69 221 312 38 7 0
  223.  LTEXT 24 132 310 338 40 7 0
  224.  PUSHBUTTON "T&isk Ütφtku" 45 138 320 80 22 65536 0
  225.   BACKGROUND 248
  226.   PRECISION 0
  227.   ACTION editTisk := false;;TiskStitku(@)
  228.   STATUSTEXT "Vytiskne Ütφtek pro vybranou firmu"
  229.  PUSHBUTTON "Tisk form&ulß°e" 23 220 320 80 22 65536 0
  230.   BACKGROUND 248
  231.   PRECISION 0
  232.   ACTION TiskForm(@)
  233.   STATUSTEXT "Vytiskne jeden z formulß°∙ pro vybranou firmu"
  234.  PUSHBUTTON "Telefono&vat" 59 302 320 80 22 65536 0
  235.   BACKGROUND 248
  236.   PRECISION 0
  237.   ACTION if telefon# > 0 then Vytocit(telefon[0],firma) else Info_box('Nelze','Pro firmu nenφ zadanΘ ₧ßdnΘ telefonnφ Φφslo!')
  238.   STATUSTEXT ""
  239.  PUSHBUTTON "Fa&xovat" 60 384 320 80 22 65536 0
  240.   BACKGROUND 248
  241.   PRECISION 0
  242.   ACTION if fax# >0 then Odfaxovat(fax[0], firma) else Info_box('Nelze','Pro firmu nenφ zadanΘ ₧ßdnΘ faxovΘ Φφslo!')
  243.   STATUSTEXT ""
  244.  PUSHBUTTON "Nß&pov∞da" 26 478 320 88 22 65536 0
  245.   BACKGROUND 248
  246.   PRECISION 0
  247.   ACTION ACTION_(40,'','11000','')
  248.   STATUSTEXT ""
  249.  LTEXT "╚φslo:" 46 4 4 32 18 0 0
  250.   PRECISION 0
  251.  EDITTEXT 54 40 2 46 22 8454144 1
  252.   BACKGROUND 255
  253.   ACCESS CISLO
  254.   FONT 8 0 34 "MS Sans Serif" BOLD  
  255.  PUSHBUTTON "<-" 29 90 2 26 24 65536 0
  256.   PRECISION 0
  257.   ACTION PosledniCislo
  258.   FONT 10 0 49 "Courier New CE" BOLD  
  259. END