DataMuseum.dk

top - metrics - download

    Length: 4096 (0x1000)
    Types: TextFile
    Names: »ONPROVA.FRM«

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

TextFile

/PROVA                                  // PROGRAM: ONPROVA.FRM
*****************************************************************************
***          VEDLIGEHOLDELSE AF PRODUKT/VARE INDEKS REGISTER       M 28   ***
*****************************************************************************

tast ESCape for retur til menu oversigt.

PRODUKT NUMMER ...........:    __       FRA 01 TIL 40 INCL.

SOFTWARE HARDWARE ........:    _        S oftware eller H ardware

SORTFAKTOR, PAS PÅ .......:    _        1 = R, 2 = M, 3 = T, 4 = F, 5 = C
se hjælp !!!                            9 = S, 6 = ikke nævnte bogstaver.

VARENUMMER ...............:    ___________


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

Hjælp findes !
*****************************************************************************
/HELP1
==============================================================================
===       HJÆLP TIL VEDLIGEHOLDELSE AF PRODUKT/VARE INDEKS REGISTER        ===
==============================================================================
PRODUKT NUMMER  kan have værdien fra 01 til 40.

SHGRUP          kan have værdien S for SOFTWARE eller H for HARDWARE.

SORTERING       systemdannet sorteringsnøgle til udskriftsrækkefølgen af
                varenumrene. Første tegn i varenummer bestemmer nøglen:

                1 = R, 2 = M, 3 = T, 4 = F, 5 = C, 6 = IKKE NÆVNTE BOGSTAVER,
                7 OG 8 BENYTTES IKKE, 9 = S.

VARENUMMER      salgsvarenummer på max. 11 tegn. (superfind)

HUSK:      HVIS DU ÆNDRER, SLETTER ELLER OPRETTER I DETTE PROGRAM, SÅ
====       SKAL DU OGSÅ HUSKE AT GØRE DET PÅ SELVE VAREN, ELLERS VIL
====       DET BLIVE FORKERT VED NÆSTE UDFØRELSE AF VALG 25 PÅ MENU
====       OVERSIGTEN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Tryk på en tast for retur til billed.
==============================================================================
/*
OPEN PROVA
STRING FORST 1
FORMAT PROVA.5 ædisplayonlyå
FORMAT PROVA.6 ænoput,capslock,check="JN"å
ENTER PROVA
//
IGEN:
AUTOPAGE PROVA
  CLEAR PROVA
  ENTRY PROVA.PNR
  DISPLAY ' ' TO PROVA.5
  IF PROVA.1 LT '01' BEGIN
     DISPLAY 'VÆRDI ..!!' TO PROVA.5
     GOTO IGEN
  END
  IF PROVA.1 GT '40' BEGIN
     DISPLAY 'VÆRDI ..!!' TO PROVA.5
     GOTO IGEN
  END
HIP:
AUTOPAGE PROVA 2
  ENTRY PROVA.SHG æcapslockå
  IF PROVA.2 EQ 'S' GOTO HOP
  IF PROVA.2 EQ 'H' GOTO HOP
  DISPLAY 'S eller H ' TO PROVA.5
  GOTO HIP
HOP:
AUTOPAGE PROVA 3
  ENTRY PROVA.SNR æcheck="1234569"å
  ENTRY PROVA.VNR æcapslock,autofindå
  ÆFOUNDÅ DISPLAY ' FINDES !' TO PROVA.5
  ÆFOUNDÅ GOTO VIDER
  LEFT PROVA.4 TO FORST 1
  IF FORST EQ 'R' BEGIN
    IF PROVA.3 EQ '1' BEGIN
       GOTO VIDER
    END
  END
  IF FORST EQ 'M' BEGIN
    IF PROVA.3 EQ '2' BEGIN
       GOTO VIDER
    END
  END
  IF FORST EQ 'T' BEGIN
    IF PROVA.3 EQ '3' BEGIN
       GOTO VIDER
    END
  END
  IF FORST EQ 'F' BEGIN
    IF PROVA.3 EQ '4' BEGIN
       GOTO VIDER
    END
  END
  IF FORST EQ 'C' BEGIN
    IF PROVA.3 EQ '5' BEGIN
       GOTO VIDER
    END
  END
  IF FORST EQ 'S' BEGIN
    IF PROVA.3 EQ '9' BEGIN
       GOTO VIDER
    END
  END
  IF PROVA.3 EQ '6' BEGIN
       GOTO VIDER
  END
  DISPLAY 'FAKTOR  !!' TO PROVA.5
  GOTO HOP
//
VIDER:
  DISPLAY ' ' TO PROVA.5
RETURN
// SLET  RECORD vil anvende enter.delete & enter.edit
// EDIT  RECORD  -     -    enter.edit & enter.save
// OPRET RECORD  -     -    enter.save
ENTER.DELETE:
   DISPLAY '*SLETTET*' TO PROVA.5
RETURN
//
ENTER.EDIT:
  IF PROVA.5 EQ ' ' BEGIN
     DISPLAY '* RETTET *' TO PROVA.5
  END
RETURN
//
ENTER.SAVE:
  IF PROVA.5 EQ ' ' BEGIN
     DISPLAY '*OPRETTET*' TO PROVA.5
  END
  DISPLAY 'J' TO PROVA.6
  ACCEPT PROVA.6
  IF PROVA.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»