#include "dSdemo.ch"


FUNCTION main()
    LOCAL nCus := 0
    LOCAL GETLIST := {}

    altd()

    USE dsdemo index dsdemo NEW

    WHILE .T.
        CLEAR SCREEN

        @ 20, 25 SAY "Enter Customer #  to Edit " GET nCus
        READ


        IF lastkey() == 27
            EXIT
        END

        edit( nCus )

    END

    RETURN ( NIL )


FUNCTION edit( nCus )
    LOCAL ary
    LOCAL GETLIST := {}

    SEEK nCus

    IF found()
        ary = getRec()
    ELSE
        @ 24, 0 SAY "New record"
        ary = emptyRec()
    END
    ary[ F_DS_CUSNUM ] := nCus



    @ 1, 1 SAY ary[ F_DS_CUSNUM ]

    @ 3, 1 GET ary[ F_DS_NAME ]
    @ 4, 1 GET ary[ F_DS_ADDR1 ]
    @ 5, 1 GET ary[ F_DS_ADDR2 ]
    @ 6, 1 GET ary[ F_DS_CITY ]
    @ 7, 1 GET ary[ F_DS_STATE ]
    @ 8, 1 GET ary[ F_DS_ZIP ]

    READ

    // if not escape key
    IF lastKey() != 27

        IF !found()
            APPEND BLANK
        END

        saveRec( ary )

    END

    RETURN NIL