DataMuseum.dk

top - metrics - download

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

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

TextFile

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


PROGRAM NAVN  ............:    SLETTER IKKE AJOURFØRTE PRODUKTER.


START= Ja, SLUT= Nej .....:    _        HJÆLP FINDES HER !


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


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

                               ______________________________

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

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

START             Hvis du svarer N (nej) udføres programmet IKKE, og du
                  kommer tilbage til menu-billedet.

                  Hvis du derimod svarer J (ja) så sættes programmet igang
                  og gør følgende:

                  ALLE produkter med ajourføringsmarkering = 'U' bliver
                  slettet fra registret.

                  'U' betyder at de ikke findes i PLS SYSTEMET mere.

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 PRODU
//
ENTER PRODU
//
OM:
ACCEPT PROMPT.1
IF PROMPT.1 EQ 'N' BEGIN
   CHAIN "OVERSIGT"
END
IF PROMPT.1 NE 'J' BEGIN
   GOTO OM
END
//
//         1. RUNDE   slet records med 'U' i PRODU.ajo      ***
//
DISPLAY 'SLETTER RECORDS        !' TO PROMPT.3
DISPLAY ' - -   VENT        - - !' TO PROMPT.4
FIND GE PRODU BY RECNUM
//
ÆFOUNDÅ REPEAT
    IF PRODU.AJO NE 'U' BEGIN
       SAVERECORD PRODU
    END
    IF PRODU.AJO EQ 'U' BEGIN
       DISPLAY PRODU.PNR TO PROMPT.2
       DELETE PRODU
       INCREMENT OLDLAST
    END
    KEYCHECK GOSUB UDRUTINE
    FIND GT PRODU 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
CLEARSCREEN
CHAIN "AJVARER1"
//
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»