home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / OBJECT.FMT < prev    next >
Encoding:
Text File  |  1993-05-18  |  2.2 KB  |  70 lines
  1. ********************************************************************************
  2. *-- Naam.......: OBJECT.FMT
  3. *-- Datum......: 22-04-93
  4. *-- Versie.....: dBASE IV
  5. *-- Notities...: indelingsbestanden gebruiken "" als scheidingstekens!
  6. ********************************************************************************
  7.  
  8. *-- Initialisatiecode indelingsbestand ---------------------------------------------
  9.  
  10. *-- Een aantal private variabelen zijn gemaakt op basis van CodeGen en zijn
  11. *-- niet geschikt voor uw .fmt-bestand
  12. PRIVATE lc_talk, lc_cursor, lc_display, lc_status, lc_carry, lc_proc,;
  13.         ln_typeahd, gc_cut
  14.  
  15. IF SET("TALK") = "ON"
  16.    SET TALK OFF
  17.    lc_talk = "ON"
  18. ELSE
  19.    lc_talk = "OFF"
  20. ENDIF
  21. lc_cursor = SET("CURSOR")
  22. SET CURSOR ON
  23.  
  24. lc_status = SET("STATUS")
  25. *-- SET STATUS was AAN bij het starten van het formulierprogramma.
  26. IF lc_status = "OFF"
  27.    SET STATUS ON
  28. ENDIF
  29.  
  30. *-- Venster voor memoveld Omschrijv.
  31. DEFINE WINDOW wndow1 FROM 13,28 TO 18,66 
  32.  
  33. *-- Verwerking van @ SAY GET's. -----------------------------------------------------
  34.  
  35. *--  Indelen pagina: 1
  36. @ 1,8 TO 19,69 DOUBLE 
  37. @ 2,31 SAY "Datum: " 
  38. @ 2,38 GET Datum 
  39. @ 4,12 TO 12,66 
  40. @ 4,31 SAY "ARTIKELGEGEVENS" 
  41. @ 6,15 SAY "Categorie: " 
  42. @ 6,26 GET Categorie PICTURE "XXXXXXXXXX" 
  43. @ 6,41 SAY "Winkel: " 
  44. @ 6,49 GET Winkel PICTURE "XXXXXXXXXXXXXXX" 
  45. @ 8,15 SAY "Artikel: " 
  46. @ 8,24 GET Naam PICTURE "XXXXXXXXXXXXXXXXXXXX" 
  47. @ 9,15 SAY "Model: " 
  48. @ 9,22 GET Model PICTURE "XXXXX" 
  49. @ 9,34 SAY "Serienummer: " 
  50. @ 9,47 GET Serie_nr PICTURE "XXXXXXXXXXXXXXX" 
  51. @ 11,15 SAY "Aantal: " 
  52. @ 11,23 GET Aantal PICTURE "99" 
  53. @ 11,30 SAY "Prijs: ƒ " 
  54. @ 11,39 GET Prijs PICTURE "9999999.99" 
  55. @ 13,28 GET Omschrijv OPEN WINDOW wndow1 
  56. @ 14,15 SAY "Opmerkingen:" 
  57. *-- Indelingsbestand verlaten -------------------------------------------------
  58.  
  59. *-- SET STATUS was AAN bij het starten van het formulierprogramma.
  60. IF lc_status = "OFF"  && Ingevuld formulier met STATUS UIT
  61.    SET STATUS OFF     && STATUS uitschakelen bij het verlaten van het formulierprogrammaen van het formulierprogramma
  62. ENDIF
  63. SET CURSOR &lc_cursor.
  64. SET TALK &lc_talk.
  65.  
  66. RELEASE WINDOWS wndow1
  67.  
  68. RELEASE lc_talk,lc_fields,lc_status
  69. *-- EOP: OBJECT.FMT
  70.