DataMuseum.dk

top - metrics - download

    Length: 3968 (0xf80)
    Types: TextFile
    Names: »SLETFILS.FRM«

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

TextFile

/PROMF                                 // PROGRAM: SLETFILS.FRM
*****************************************************************************
***              P R I S L I S T E     S Y S T E M                 M 99   ***
*****************************************************************************


********   NULSTILLER (ZEROFILE) DET ØNSKEDE REGISTER, PAS PÅ  !!!  *********


TAST NUMMER ..............:    ____    HJÆLP FINDES HER !


TAST VALG AF REGISTER.....:    _       X=PRODUKT, Y=VALUTA, Z=VARER, Q=PROVA


VALGT REGISTER ...........:    ___________

BEMÆRKNING ...............:    ______________________________

                               ______________________________

SVAR TIL BEMÆRKNING ......:    _        HJÆLP FINDES HER !
*****************************************************************************
/HELP1
=============================================================================
===               OPLYSNINGER  OM  PROGRAMMET                             ===
=============================================================================
START             Hvis du ikke svarer med kendt nummer,
                  så udføres programmet IKKE,
                  og du kommer tilbage til menu-billedet.

                  Hvis du derimod svarer med kendt nummer,
                  så udfører dette program følgende:

                  HUSK SIKKERHEDSKOPIEN, FOR DET VALGTE
                  REGISTER BLIVER NULSTILLET !!!

tryk på en tast for RETUR til billed.
=============================================================================
/*
FORMAT PROMF.1 ænoputå
FORMAT PROMF.2 ænoput,capslockå
FORMAT PROMF.3 ædisplayonlyå
FORMAT PROMF.4 ædisplayonlyå
FORMAT PROMF.5 ædisplayonlyå
FORMAT PROMF.6 ænoput,capslockå
//
OPEN PRODU
OPEN VALUTA
OPEN VARER
OPEN PROVA
//
ENTERGROUP
OM:
CLEARFORM PROMF.1 THRU PROMF.6
ACCEPT PROMF.1
IF PROMF.1 NE '5437' CHAIN "OVERSIGT"
DISPLAY '    ' TO PROMF.1
ACCEPT PROMF.2
IF PROMF.2 EQ 'X' GOTO PRODUKT_REG
IF PROMF.2 EQ 'Y' GOTO VALUTA_REG
IF PROMF.2 EQ 'Z' GOTO VARER_REG
IF PROMF.2 EQ 'Q' GOTO PROVA_REG
GOTO OM
//
PRODUKT_REG:
//                nulstil PRODU register  ***
DISPLAY 'PRODUKT' TO PROMF.3
DISPLAY 'FORTRYD SÅ TRYK RETUR  !' TO PROMF.4
DISPLAY '        ELLERS TAST X  !' TO PROMF.5
ACCEPT PROMF.6
IF PROMF.6 NE 'X' GOTO OM
DISPLAY 'REGISTER NULSTILLES    !' TO PROMF.4
DISPLAY '          ....... VENT !' TO PROMF.5
DISPLAY ' ' TO PROMF.6
ZEROFILE PRODU
GOTO SLUT
//
//
VALUTA_REG:
//             nulstil VALUTA register  ***
DISPLAY 'VALUTA' TO PROMF.3
DISPLAY 'FORTRYD SÅ TRYK RETUR  !' TO PROMF.4
DISPLAY '        ELLERS TAST Y  !' TO PROMF.5
ACCEPT PROMF.6
IF PROMF.6 NE 'Y' GOTO OM
DISPLAY 'REGISTER NULSTILLES    !' TO PROMF.4
DISPLAY '          ....... VENT !' TO PROMF.5
DISPLAY ' ' TO PROMF.6
ZEROFILE VALUTA
GOTO SLUT
//
//
VARER_REG:
//             nulstil VARER register  ***
DISPLAY 'VARER' TO PROMF.3
DISPLAY 'FORTRYD SÅ TRYK RETUR  !' TO PROMF.4
DISPLAY '        ELLERS TAST Z  !' TO PROMF.5
ACCEPT PROMF.6
IF PROMF.6 NE 'Z' GOTO OM
DISPLAY 'REGISTER NULSTILLES    !' TO PROMF.4
DISPLAY '          ....... VENT !' TO PROMF.5
DISPLAY ' ' TO PROMF.6
ZEROFILE VARER
GOTO SLUT
//
//
PROVA_REG:
//                nulstil PROVA register  ***
DISPLAY 'PROVA' TO PROMF.3
DISPLAY 'FORTRYD SÅ TRYK RETUR  !' TO PROMF.4
DISPLAY '        ELLERS TAST Q  !' TO PROMF.5
ACCEPT PROMF.6
IF PROMF.6 NE 'Q' GOTO OM
DISPLAY 'REGISTER NULSTILLES    !' TO PROMF.4
DISPLAY '          ....... VENT !' TO PROMF.5
DISPLAY ' ' TO PROMF.6
ZEROFILE PROVA
//
SLUT:
DISPLAY 'REGISTER ER NULSTILLET !' TO PROMF.4
DISPLAY 'SLUT  ----- TRYK RETUR !' TO PROMF.5
ACCEPT PROMF.6
CLEARSCREEN
GOTO OM
//
KEYPROC KEY.HELP:
    HELP
    ENTAGAIN
RETURN
ENDGROUP
CHAIN "OVERSIGT"
«eof»