Code

////////////////////////////////////////////////////////////////////////////////////////
//					   Create a New Note on a file.
// Parameters:
// vDate    - Date of Note
// vTime    - Time of Note
// vCol     - User entering Note
// vNote    - The Note
// vAcctNum - Account Number, DB#, Clt#, etc.
// vType    - Account Type - 0 = DB#, 1 = Clt#
////////////////////////////////////////////////////////////////////////////////////////

Subroutine CreateNote (	vDate as Date, vTime as Time, vCol as string, vNote as string, vAcctNum as Int, vType as Int )
// Declare Variables
var vCnt as Int		// Number of Notes for the record
var vLoop As Int	// Loop Variable for Notes
var vNoteNum as Double	// Current (in loop) Note's number
var vMaxTotal as Double // Maximum Note Number
var vNewNoteNum	as Int	// Note Number for New Record
var vUnusedNote as Int	// Flag as to whether or not there is an existing note.

var vNoteDatabase as string	// Stores which Database to work with notes.
var vNoteAcctName as string	// Stores which field to use for the Key field

if vType = 0 then
{	vNoteDatabase = "Collector Notes";
	vNoteAcctName = "DB#"; }
else if vType = 1 then
{	vNoteDatabase = "Sales Notes";
	vNoteAcctName = "CltKey; }
else
{
vNoteNum = @MSGBOX("","Invalid Note Type!","");

STOP;
}

// initialize current, maximum, and unused line numbers
vNoteNum = 0;
vMaxTotal = 0;
vUnusedNote = 0;

// retrieve number of notes from vNoteDatabase
vCnt = @FormResultSetTotal(vNoteDatabase);

// start at the first note
vLoop = 1;

// loop through all notes
while vLoop <= vCnt
{
	// if there is an unused note line (typicall first note) - flag it
	if @Len(@FormFieldValue(vNoteDatabase,"Notes",vLoop)) < 2 then
									^
	{
		if vLoop > vUnusedNote then
		{ vUnusedNote = vLoop; }
	};

	// get the note num of current note and put it into vMyTotal
	vNoteNum = @ToNumber(@FormFieldValue(vNoteDatabase,"NoteNum", vLoop));

	// if Current Note Number is > Highest Note Number
	if vNoteNum > vMaxTotal then
	{
		// set Max note number to current note number
		vMaxTotal=vNoteNum
	}
	vLoop = vLoop + 1;
}

// if there is an unused note line available use it, otherwise create a new record.
if vUnusedNote = 0 then
{	vNewNoteNum = vUnusedNote; }
else
{	vNewNoteNum = @FormNewRecord(vNoteDatabase); }

FormFieldValue(vNoteDatabase,"DateNote",vNewNoteNum,vDate);
FormFieldValue(vNoteDatabase,"TimeNote",vNewNoteNum,vTime);
FormFieldValue(vNoteDatabase,"Usr",vNewNoteNum,vCol);
FormFieldValue(vNoteDatabase,"Notes",vNewNoteNum,vNote);
FormFieldValue(vNoteDatabase,vNoteAcctName,vNewNoteNum,vAcctNum);
FormFieldValue(vNoteDatabase,"NoteNum",vNewNoteNum,vMaxTotal+1);

End Subroutine