DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »ONVALUTA.FRM«

└─⟦7c116f58e⟧ Bits:30007007/RCPRAX.imd RC Prislistesystem
    └─⟦this⟧ »ONVALUTA.FRM« 
└─⟦9cc652d2b⟧ Bits:30007007/RCPRAZ.imd RC Prislistesystem
    └─⟦this⟧ »ONVALUTA.FRM« 

TextFile

/VALUTA                                // PROGRAM: ONVALUTA.FRM
*****************************************************************************
***        VEDLIGEHOLDELSE AF VALUTA KURS REGISTER                 M 50   ***
*****************************************************************************


VALUTA ...................:   (_____)      tast: L , DM , SKR, NKR


TEKST ....................:    _______________


KURS .....................:    _____.____


AJOURFØRT DATO ...........:    __/__/__


BEMÆRK ...................:    __________       OK (J/N) ......: _

Hjælp findes.
*****************************************************************************
/HELP1

=============================================================================
===      HJÆLP TIL VEDLIGEHOLDELSE AF VALUTA KURS REGISTER                ===
=============================================================================

VALUTA                      tast nøgle med værdi L, DM , SKR eller NKR.

TEKST                       kan rettes, max. 15 tegn. 

KURS                        5 ciffer før og 4 ciffer efter decimalpunkt.

AJOURFØRT DATO              såfremt kursen ændres, opdateres dato med
                            dags dato fra OPLYS register.

tryk på en tast for RETUR til billed
=============================================================================
/*
FORMAT VALUTA.5 ædisplayonlyå
FORMAT VALUTA.6 ænoput,capslock,check="JN"å
INDICATOR NYREC
OPEN VALUTA
OPEN OPLYS
ENTER VALUTA
//
IGEN:
AUTOPAGE VALUTA
  CLEAR VALUTA 
  INDICATE NYREC FALSE
  ENTRY VALUTA.VAL æautofind,capslockå
  DISPLAY ' ' TO VALUTA.5
  Æ FOUND Å GOTO VIDERE
  INDICATE NYREC TRUE
  IF VALUTA.1 EQ 'L    ' GOTO VIDERE
  IF VALUTA.1 EQ 'DM   ' GOTO VIDERE
  IF VALUTA.1 EQ 'SKR  ' GOTO VIDERE
  IF VALUTA.1 EQ 'NKR  ' GOTO VIDERE
  DISPLAY ' VALUTA ? ' TO VALUTA.5
  GOTO IGEN
//
VIDERE:
  ENTRY VALUTA.TEKST æretain,capslockå
  ENTRY VALUTA.KURS
  ENTRY VALUTA.AJDATO ænoenterå
  Æ NYREC Å BEGIN
    MOVE OPLYS.AKDATO TO VALUTA.AJDATO
    DISPLAY VALUTA.AJDATO TO VALUTA.4
  END
  Æ NOT NYREC Å BEGIN
    IF VALUTA.3 NE VALUTA.KURS BEGIN
       MOVE OPLYS.AKDATO TO VALUTA.AJDATO
       DISPLAY VALUTA.AJDATO TO VALUTA.4
    END
  END
RETURN
//  SLET  RECORD vil anvende enter.delete & enter.edit
//  EDIT  RECORD  -     -    enter.edit & enter.save
//  OPRET RECORD  -     -    enter.save
ENTER.DELETE:
   DISPLAY '*SLETTET*' TO VALUTA.5
RETURN
//
ENTER.EDIT:
  IF VALUTA.5 EQ ' ' BEGIN
     DISPLAY '* RETTET *' TO VALUTA.5
  END
RETURN
//
ENTER.SAVE:
  IF VALUTA.5 EQ ' ' BEGIN
     DISPLAY '*OPRETTET*' TO VALUTA.5
  END
  DISPLAY 'J' TO VALUTA.6
  ACCEPT VALUTA.6
  IF VALUTA.6 EQ 'N' GOTO IGEN
RETURN
//
ENTEREND
CHAIN "OVERSIGT"
//
KEYPROC KEY.HELP
        HELP
        ENTAGAIN
RETURN
//
KEYPROC KEY.FIELD
        BACKFIELD
RETURN
//
KEYPROC KEY.CLEAR
        CLEARFORM
RETURN
//
KEYPROC KEY.ESCAPE
CHAIN "OVERSIGT"
«eof»