DataMuseum.dk

top - metrics - download

    Length: 3456 (0xd80)
    Types: TextFile
    Names: »FLEXERRS.FRM«

└─⟦21cf82d66⟧ Bits:30007007/RCPRPA.imd RC Prislistesystem
    └─⟦this⟧ »FLEXERRS.FRM« 
└─⟦7441cce76⟧ Bits:30007007/RCPRBA.imd RC Prislistesystem
    └─⟦this⟧ »FLEXERRS.FRM« 

TextFile

/FORM
DATA ACCESS CORPORATION                                         FLEX ERROR FIL 
==============================================================================

POST NR.            FEJLBESKRIVELSE                       NOTE

 ______. ________________________________________ ________________________  




________________________________________________________________________ _

                          (hjælp findes)   
/SUPPORT HELP


DATAFLEX error filen er designet til at tillade modifikationer af standard
flex error meddelelser, eller udvidelse med egne fejlmeddelelser for enhver
applikation.

Error nummmeret er postnummeret og tildeles af sytemet. For at editere
eller inspicere en eksisterende fejlbeskrivelse, placeres cursoren på post
nummer feltet og det ønskede nummer indtastes.

Hvis De ønsker at generere Deres egne fejlmeddelelser hoppes over til
fejlbeskrivelsesfeltet og fejlmeddelelsen indtastes. Note feltet bruges
for Deres dokomentation til at fortælle brugeren hvor fejlen er opstået.

      --- TRYK EN TAST FOR RETURNERING TIL INDTASTNINGSSKÆRM ---
/*
STRING STROKE 1                 //create temp string of one character
        OPEN FLEXERRS           //open the flex error file
          ENTER FLEXERRS        //have enter hold our hand

          AUTOPAGE FORM         //default paging
REFRESH:
            INDICATE FINDERR FALSE              //init indicator
            GOSUB CLEAR                         //clear the windows

            ENTRY FLEXERRS.RECNUM                 æAUTOFIND,RETAINå  
//automatically try to find an error message (AUTOFIND) upon exit
//from this window.  if one is found it will be displayed.

            ENTRY FLEXERRS.ERROR_DESCR            æRETAINå
            ENTRY FLEXERRS.NOTE                   æRETAINå

ÆFINDERRÅ BEGIN
            DISPLAY "DENNE POST EKSISTERER IKKE, ØNSKER DE AT OPRETTE EN NY POST" TO FORM.4
            FORMAT FORM.5                         æCAPSLOCK,CHECK="Y,N"å  
            DISPLAY 'J' TO FORM.5       //set up a default entry in window 5
            ACCEPT FORM.5
            IF FORM.5 EQ "N" GOTO REFRESH      

            MOVE FORM.2 TO FLEXERRS.ERROR_DESCR //must move error fields to
            MOVE FORM.3 TO FLEXERRS.NOTE        //record buffer to save it

            SAVERECORD FLEXERRS                 //save the record manually

            DISPLAY FLEXERRS.RECNUM TO FORM.1   //show user the new system
                                                //assigned record/error number

            BLANKFORM FORM.4 THRU FORM.5        //clear any old text

            DISPLAY "POSTNUMMER ER BLEVET NYTILDELT, TRYK EN TAST FOR FORTSÆTTELSE" TO FORM.4

WAITKEY:
              INKEY STROKE                      //scan keyboard and
              IF STROKE EQ "" GOTO WAITKEY      //loop until keypressed

            END         //end finderr block

            RETURN
//end of enter macro entry section and start of DATAFLEX standard procedures

ENTER.SAVE:     GOSUB CLEAR     //redefine action of flex key
ENTER.DELETE:   GOSUB CLEAR
              ENTEREND
              ABORT
CLEAR:          CLEARFORM FORM.1 THRU FORM.3
                BLANKFORM FORM.4 THRU FORM.5
              RETURN

KEYPROC KEY.HELP
HELP
ENTAGAIN
RETURN


«eof»