 * ===============================================================
*        BANKING  RECORD  EDITTING   PROGRAM   
*             PREPAIRED BY  KHALID RAFIQ 
* ===============================================================   
USE KMASTER INDEX KMASTER
MACNO=(0)
CHOICE=' '

DO WHILE .T.

        CLEA
       @ 2,2  TO 24,77 DOUB
       @ 22,3 TO 22,76 DOUB    
       @ 4,25 SAY 'EDITTING SCREEN OF ACCOUNT '
       @ 3,23 TO 5,52
       @ 3,5 SAY 'TIME IS : '+(TIME())
STORE 0 TO MACNO
 @ 6,4 SAY 'ACC.NO FOR EDIT ..OR..(0 for exit) =>'GET MACNO PICT '99999' 
 READ
   IF MACNO = 0
     CLOSE ALL
     CLEA
     DO MM
   ENDI
* ..............searching for input a/c no .......................

 SEEK MACNO
    IF .NOT. FOUND()
    @ 21,25 SAY '   WANTED ACC.NO IS NOT EXIST '
    DO KHALID
    LOOP
    ELSE
* .............display the contant of records ...................

*  @ 7,4 SAY  'DATE OF OPENING          =>  ' + DTOC(DATE_OPEN)
  @ 9,4  SAY  'NAME (or blank to exit)  => ' + ACTI
  @ 11,4 SAY 'PHONE NO     (RES)       => ' + STR(PHON)
  @ 13,4 SAY 'ADDRESS                  => ' + ADDR  
  @ 15,4 SAY 'OPENING BALANCE          => ' + STR(OPBA)
  @ 17,4 SAY 'CURRENT BALANCE          => ' + STR(CUBA)
*  @ 19,4 SAY 'NATURE OF ACCOUNT        => ' + C_S
ENDIF
* .......... input edited records in field variables ...........
DO KHALID
@ 9,32 CLEA TO 11,70
@ 14,4 CLEA TO 19,70
@ 23,1 CLEA TO 23,70
  @ 9,32 GET ACTI PICT '@!'
  READ
  @ 11,32 GET PHON PICT '9999999'
  READ
  @ 13,32 GET ADDR   
  READ
ENDDO
@ 22,30 SAY 'DO YOU WANT TO CONT ' GET CHOICE PICT '@!'
READ
IF CHOICE ='Y'
LOOP
ELSE
CLOSE ALL
CLEA ALL
DO MM
