The following code work great, the QTRTAXES table which is in the working directory has an additional number added to the "Code" field. I recently copied the QTRTAXES table to a directory called :SU2003: and created an alias called SU2003. I want to be able to use the same method and add the additional number to the "Code" field of the QTRTAXES table in the SU2003 directory. As the code is now it adds the additional number to the QTRTAXES table on the working directory. What can I add to the code so that the additional number gets added to the QTRTAXES table in the SU2003 directory.
method pushButton(var eventInfo Event)
var
QTRTAXESNum Number
QTRTAXEStbl Table
endVar
Code.Moveto()
QTRTAXES.Action(Databeginedit)
QTRTAXES.Action(DataEnd)
QTRTAXES.Action(FieldDown)
QTRTAXES.Action(DataInsertRecord)
Code.ReadOnly=False
QTRTAXEStbl.Attach("QTRTAXES.DB"
QTRTAXESnum = QTRTAXEStbl.cmax("Code"+1
Code.Value = QTRTAXESNum
Action(FieldRight)
Code.ReadOnly=True
endmethod
method pushButton(var eventInfo Event)
var
QTRTAXESNum Number
QTRTAXEStbl Table
endVar
Code.Moveto()
QTRTAXES.Action(Databeginedit)
QTRTAXES.Action(DataEnd)
QTRTAXES.Action(FieldDown)
QTRTAXES.Action(DataInsertRecord)
Code.ReadOnly=False
QTRTAXEStbl.Attach("QTRTAXES.DB"
QTRTAXESnum = QTRTAXEStbl.cmax("Code"+1
Code.Value = QTRTAXESNum
Action(FieldRight)
Code.ReadOnly=True
endmethod