DOS Wares/doswares.zip/doswares/DATABASE/DBASE4NL/SAMPLES.ZIP/TELFORM.FMT

Text File | 1993-05-18 | 2.8 KB | 75 lines

*---------------------------------------------------------------------
*-- Naam.......:TELFORM.FMT
*-- Datum......:22-04-93
*-- Versie.....: dBASE IV
*-- Notities...: indelingsbestanden gebruiken "" als scheidingstekens!
*---------------------------------------------------------------------

*-- Initiatiecode indelingsbestand ---------------------------------------------

*-- Een aantal private variabelen zijn gemaakt op basis van CodeGen en zijn
*-- niet geschikt voor uw .fmt-bestand
PRIVATE ll_talk, ll_cursor, lc_display, lc_status, ll_carry, lc_proc

IF SET("TALK") = "ON"
  SET TALK OFF
  ll_talk = .T.
ELSE
  ll_talk = .F.
ENDIF
ll_cursor = SET("CURSOR") = "ON"
SET CURSOR ON

lc_status = SET("STATUS")
*-- SET STATUS was AAN bij het starten van het formulierprogramma.
IF lc_status = "OFF"
   SET STATUS ON
ENDIF


*-- Verwerking van @ SAY GET's. -----------------------------------------------------

*--  Indelen pagina: 1
@ 1,2 TO 3,14 COLOR w/b
@ 2,3 GET Telefoon PICTURE "XXX#X#XXXXX"
@ 2,21 SAY "Reden telefonisch contact:"
@ 3,21 GET Info PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" COLOR gr+/g,gr+/g
@ 5,3 GET Voornaam PICTURE "XXXXXXXXXX" COLOR gr+/b,gr+/b
*-- Rekenveld: Invnaam -
@ 5,14 SAY TRIM(INVOEG+" "+ACHTERNAAM) PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX" COLOR gr+/b
@ 7,3 GET Afdeling PICTURE "XXXXXXXXXXXXXXX" COLOR gr+/b,gr+/b
@ 8,3 GET Branche PICTURE "XXXXXXXXXXXXXXX" COLOR gr+/b,gr+/b
@ 9,3 GET Pers_nr PICTURE "XXXXXXXXXXX" COLOR gr+/b,gr+/b
@ 12,3 TO 16,47
@ 12,5 SAY "Personeelsgegevens" COLOR g/b
@ 12,49 TO 16,78
@ 12,51 SAY "Adres" COLOR bg/b
@ 13,5 SAY "Functie: " COLOR g/b
@ 13,14 GET Functie PICTURE "XXXXXXXXXXXXXXX" COLOR g/b,g/b
@ 13,51 GET Adres1 PICTURE "XXXXXXXXXXXXXXXXXXXX" COLOR bg/b,bg/b
@ 14,5 SAY "Bonus:   " COLOR g/b
@ 14,14 GET Bonus PICTURE "XXXXXXXXXXXXXXX" COLOR g/b,g/b
@ 14,31 SAY "Titel:     " COLOR g/b
@ 14,42 GET Titel PICTURE "AAA" COLOR g/b,g/b
@ 14,51 GET Adres2 PICTURE "XXXXXXXXXXXXXXXXXXXX" COLOR bg/b,bg/b
@ 15,5 SAY "In dienst per: " COLOR g/b
@ 15,20 GET In_dienst PICTURE "DD-MM-JJ" COLOR g/b,g/b
@ 15,31 SAY "Dienstjr.: " COLOR g/b
@ 15,42 GET Dienstjr PICTURE "99" COLOR g/b,g/b
@ 15,51 GET Postcode PICTURE "XXXX AA" COLOR bg/b,bg/b
@ 15,58 SAY " " COLOR bg/b
@ 15,59 GET Woonplaats PICTURE "XXXXXXXXXXXXXX" COLOR bg/b,bg/b
@ 15,74 GET Provincie PICTURE "XXX" COLOR bg/b,bg/b
*-- Indelingsbestand verlaten -------------------------------------------------

*-- SET STATUS was AAN bij het starten van het formulierprogramma.
IF lc_status = "OFF"  && Ingevuld formulier met STATUS UIT
   SET STATUS OFF     && STATUS uitschakelen bij het verlaten van het formulierprogramma
ENDIF
IF .NOT. ll_cursor
  SET CURSOR OFF
ENDIF

RELEASE lc_fields,lc_status
*-- EOP: TELFORM.FMT