DataMuseum.dk

top - metrics - download

    Length: 3200 (0xc80)
    Types: TextFile
    Names: »DEVARER.FRM«

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

TextFile

/PROMPT                                 // PROGRAM: DEVARER.FRM
*****************************************************************************
***              P R I S L I S T E     S Y S T E M                 M 45   ***
*****************************************************************************


PROGRAM NAVN  ............:    SLETTER ALLE VARER MED "U" I MARKERING !!!


FORTRYD = UD, SLET = ZX ..:    __       HJÆLP FINDES HER !


BEHANDLET ................:    ___________


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

                               ______________________________

SVAR TIL BEMÆRKNING ......:    _        HJÆLP FINDES HER !

*****************************************************************************
/HELP1
=============================================================================
===               OPLYSNINGER  OM  PROGRAMMET                             ===
=============================================================================

START             Hvis du svarer UD udføres programmet IKKE, og du
                  kommer tilbage til menu-billedet.

                  Hvis du derimod svarer ZX, så sættes programmet igang
                  og gør følgende:

                  ALLE VARER med ajourføringsmarkering = 'U' bliver
                  slettet fra registret, og der er ingen udskrift.

                  'U' betyder at varenummer ikke findes i PLS.

AFBRYD            Du kan afbryde programmet ved at trykke på et tilfældigt
                  bogstav under kørsel, og ENTEN vælge S for stop, men så kan
                  du ikke køre om, husk sikkerhedskopi !!,
                  ELLER tryk RETUR, og så vil programmet fortsætte.

tryk på en tast for RETUR til billed.
=============================================================================
/*
FORMAT PROMPT.1 æcapslockå
FORMAT PROMPT.2 ædisplayonlyå
FORMAT PROMPT.3 ædisplayonlyå
FORMAT PROMPT.4 ædisplayonlyå
FORMAT PROMPT.5 æcapslock,check="S "å
INTEGER OLDLAST
MOVE 0 TO OLDLAST
OPEN VARER
//
ENTER VARER
//
OM:
ACCEPT PROMPT.1
IF PROMPT.1 EQ 'UD' CHAIN "OVERSIGT"
IF PROMPT.1 NE 'ZX' GOTO OM
//
//         1. RUNDE   slet records med 'U' i VARER.AJO      ***
//
DISPLAY 'SLETTER RECORDS        !' TO PROMPT.3
DISPLAY ' - -   VENT        - - !' TO PROMPT.4
FIND GE VARER BY RECNUM
//
ÆFOUNDÅ REPEAT
    IF VARER.AJO NE 'U' BEGIN
       SAVERECORD VARER
    END
    IF VARER.AJO EQ 'U' BEGIN
       DISPLAY VARER.VNR TO PROMPT.2 
       DELETE VARER
       INCREMENT OLDLAST
    END
    KEYCHECK GOSUB UDRUTINE
    FIND GT VARER BY RECNUM
ÆFOUNDÅ LOOP
//
DISPLAY OLDLAST TO PROMPT.2
DISPLAY 'ANTAL SLETTEDE RECORDS !' TO PROMPT.3
DISPLAY '---------  TRYK RETUR  !' TO PROMPT.4
ACCEPT PROMPT.5
KEYCHECK GOSUB UDRUTINE
CHAIN "OVERSIGT"
//
UDRUTINE:
    INDICATE KEYPRESS FALSE 
    DISPLAY 'DU HAR STOPPET PROGRAMMET !' TO PROMPT.3
    DISPLAY 'TAST S (STOP) ELLER TRYK RETUR' TO PROMPT.4
    ACCEPT PROMPT.5
    IF PROMPT.5 IN "Ss" CHAIN "OVERSIGT"
RETURN
//
KEYPROC KEY.HELP:
    HELP
    ENTAGAIN
RETURN
//
ENTEREND
CHAIN "OVERSIGT"
«eof»