/****************************************************************************\
*                                                                            *
* Module : NVD1.NVD                                                          *
*                                                                            *
* NVD Application                                                            *
*                                                                            *
*                                                                            *
* Generated by : NewVoice Designer 2.0                                       *
* Date : Sun May 15 04:25:38 2011                                            *
* Author :                                                                   *
* Purpose :                                                                  *
* Comment :                                                                  *
*                                                                            *
* WARNING: This is a generated source-code file.                             *
*          You shouldn't edit this file, unless you're                       *
*          sure, you won't use the NVD file anymore.                         *
*                                                                            *
\****************************************************************************/

str   dbname
str   dbtt1


proc PrepareMessageFile

str fmsg

str temp

{

    fmsg= nvtini_statdir+".\"+ nvtini_s3+".msg"

    fopen fmsg "write"

    if st >= 0

        fwrite nvtini_s4

        fwrite "[Messages]"

        temp = "Msg1="+nvtini_s5

        fwrite temp

        temp = "Msg2="+nvtini_s6

        fwrite temp

        fclose

    fi

}




{
    dbuse  "nvagrp11.dbf"  "d:\db1\"

    if  dbok

      !"database "+ "d:\db1"+"nvagrp11.dbf" +" opened"

    else

      !"database "+ "d:\db1"+"nvagrp11.dbf" +" could not be opened"

    fi





    dbtop





    dbget  "NAME" dbname





    dbget  "TT1" dbtt1



    !"Extension Name: " +dbname
    !"Extension Number: " +dbtt1	


    dbput  "NAME" "Testuser"

    dbput  "TT1" "1100"
    dbtop





    dbget  "NAME" dbname





    dbget  "TT1" dbtt1



    !"Extension Name: " +dbname
    !"Extension Number: " +dbtt1	


    dbclose


}

