>I have two tables with the same structure, and I using the got below
>
>Scan table1
>
> select table 2
> appe blank
> ** if this record is not in table1 yet
> ** get data of this record to current record of table1
>endscan
>
>Is it possible to append data from a record of table1
>to a redord of table2 without having to store table1 fields to variables?

Hi Moises

Look at this code. See that the insert command is made as a string by a separate function - so it could be used on any table.

USE TABLE1 IN (SELECT("TABLE1"))
USE TABLE2 IN (SELECT("TABLE2"))

LOCAL m.lcCmd
m.lcCmd = GetInsertCommand("TABLE1")

SELECT MEMBERS
SCAN
  INSERT INTO TABLE2 &lcCmd.
ENDSCAN
RETURN

*Save this as GetInsertCommand.PRG or PROCEDURE GetInsertCommand
LPARAMETERS m.tcSourceTable
LOCAL m.lnI, m.lcFieldName, m.lcSourceFields, m.lcTargetFields
STORE "" TO m.lcFieldName, m.lcTargetFields, m.lcSourceFields
FOR m.lnI = 1 TO AFIELDS(laFields,m.tcSourceTable)
  m.lcFieldName = ALLTRIM(laFields[m.lnI,1])
  m.lcTargetFields = m.lcTargetFields + m.lcFieldName + ","
  m.lcSourceFields = m.lcSourceFields + m.tcSourceTable + "." + m.lcFieldName + ","
ENDFOR m.lnI
m.lcTargetFields = LEFT(m.lcTargetFields,LEN(m.lcTargetFields)-1)
m.lcSourceFields = LEFT(m.lcSourceFields,LEN(m.lcSourceFields)-1)
RETURN "(" + m.lcTargetFields + ")" ;
+ " VALUES (" + m.lcSourceFields + ")"