*--------------------------------------------------------------------- * Name.......: TAKSA.FMT * Date.......: 2-07-95 * Version....: dBASE IV, Format 1.5 * Notes......: Format files use "" as delimiters! *--------------------------------------------------------------------- *-- Format file initialization code -------------------------------------------- *-- Some of these PRIVATE variables are created based on CodeGen and may not *-- be used by your particular .fmt file 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 ON when you went into the Forms Designer. IF lc_status = "OFF" SET STATUS ON ENDIF *-- @ SAY GETS Processing. ----------------------------------------------------- *-- Format Page: 1 @ 0,0 TO 19,79 DOUBLE @ 1,8 SAY "Puhelintaksat" @ 1,22 GET Paikka PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" @ 1,64 SAY "Kortti:" *-- Calculated field: - @ 1,72 SAY recno() PICTURE "999" @ 1,75 SAY "/" *-- Calculated field: - @ 1,76 SAY reccount() PICTURE "999" @ 2,1 SAY "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ" @ 3,8 SAY "Paikallispuhelumaksu" @ 3,29 GET Ppm PICTURE "999.99" @ 3,36 SAY "p/puhelu (avausmaksu)" @ 4,8 SAY "Paikallispuhelun suuntanumerot:" @ 4,40 GET Kauko1 PICTURE "999" @ 4,44 SAY "-" @ 4,46 GET Kauko2 PICTURE "999" @ 5,1 TO 12,78 @ 5,8 SAY "Arkip„iv„" @ 5,38 SAY "ÄÂÄViikonloppu" @ 6,9 SAY "Al-" @ 6,22 SAY "Al-" @ 6,39 SAY "³" @ 6,47 SAY "Al-" @ 6,60 SAY "Al-" @ 7,9 SAY "kaa" @ 7,13 SAY "Paikal-" @ 7,22 SAY "kaa" @ 7,26 SAY "Kauko-" @ 7,39 SAY "³" @ 7,47 SAY "kaa" @ 7,51 SAY "Paikal-" @ 7,60 SAY "kaa" @ 7,64 SAY "Kauko-" @ 8,9 SAY "klo" @ 8,13 SAY "lispuh." @ 8,22 SAY "klo" @ 8,26 SAY "puhelu" @ 8,39 SAY "³" @ 8,47 SAY "klo" @ 8,51 SAY "lispuh." @ 8,60 SAY "klo" @ 8,64 SAY "puhelu" @ 9,3 SAY "p„iv„" @ 9,10 GET Arki_a PICTURE "99" @ 9,14 GET Arki_pp PICTURE "999.99" @ 9,23 GET Arki_kpa PICTURE "99" @ 9,26 GET Arki_kp PICTURE "999.99" @ 9,33 SAY "p/min" @ 9,39 SAY "³" @ 9,41 SAY "p„iv„" @ 9,48 GET Vl_pv_a PICTURE "99" @ 9,52 GET Vl_pv_pp PICTURE "999.99" @ 9,61 GET Vl_pv_kpa PICTURE "99" @ 9,64 GET Vl_pv_kp PICTURE "999.99" @ 9,71 SAY "p/min" @ 10,4 SAY "ilta" @ 10,10 GET Ilta_a PICTURE "99" @ 10,14 GET Ilta_pp PICTURE "999.99" @ 10,23 GET Ilta_kpa PICTURE "99" @ 10,26 GET Ilta_kp PICTURE "999.99" @ 10,33 SAY "p/min" @ 10,39 SAY "³" @ 10,42 SAY "ilta" @ 10,48 GET Vl_il_a PICTURE "99" @ 10,52 GET Vl_il_pp PICTURE "999.99" @ 10,61 GET Vl_il_kpa PICTURE "99" @ 10,64 GET Vl_il_kp PICTURE "999.99" @ 10,71 SAY "p/min" @ 11,6 SAY "y”" @ 11,10 GET Y”_a PICTURE "99" @ 11,14 GET Y”_pp PICTURE "999.99" @ 11,23 GET Y”_kpa PICTURE "99" @ 11,26 GET Y”_kp PICTURE "999.99" @ 11,33 SAY "p/min" @ 11,39 SAY "³" @ 11,44 SAY "y”" @ 11,48 GET Vl_y”_a PICTURE "99" @ 11,52 GET Vl_y”_pp PICTURE "999.99" @ 11,61 GET Vl_y”_kpa PICTURE "99" @ 11,64 GET Vl_y”_kp PICTURE "999.99" @ 11,71 SAY "p/min" @ 12,38 SAY "ÄÁ" @ 13,9 SAY "T„yt„ taulukko paikkakuntasi puhelintaksoilla ja aikarajoilla." @ 14,7 SAY "Voit t„ytt„„ uuden taulukon painamalla PageDown ja vastaamalla Y." @ 15,8 SAY "Voit selata talletettuja taksakortteja PageUp/-Down n„pp„imill„." @ 19,1 SAY "(c) PV-Soft, Petri Voutilainen" @ 19,70 SAY "7.2.1995" *-- Format file exit code ----------------------------------------------------- *-- SET STATUS was ON when you went into the Forms Designer. IF lc_status = "OFF" && Entered form with status off SET STATUS OFF && Turn STATUS "OFF" on the way out ENDIF IF .NOT. ll_cursor SET CURSOR OFF ENDIF RELEASE lc_fields,lc_status *-- EOP: TAKSA.FMT