Tag Code

Here is a sample of my tag code or tagging an amount .

lAnswer = MESSAGEBOX("Do you want to tag Journal Entry?", 4, "Confirmation")
IF lAnswer = 6
SELECT SviewJournalUpdate
LOCATE FOR IdNum = THISFORM.Text2.Value
IF FOUND()
REPLACE lDate WITH pJeDate
REPLACE RefDocu WITH pRefDocu
REPLACE JvNumber WITH THISFORM.TEXT10.Value
REPLACE LibUpdate WITH THISFORM.TEXT15.Value
THISFORM.Grid1.REFRESH
ENDIF
THISFORM.ActivityTag()
THISFORM.Release()
ENDIF

General Ledger FoxPro Folder

Whenever I make a FoxPro project folder I always make a folder for the Attach, Classlib, Data, Forms, Images, Menus, Progs and Reports. This  folder making will help me later on to separate the files that will be created.