Insertar datos desde una tabla a otra en una sola sentencia.

[delphi50jmb]

Hola.
Gracias a todos por responder.
No sabia como incorporar una vbariable externa a la sentencia "SELECT... INSERT INTO".

Con la respuesta de "oscarac", logre resolver el problema. Habia que encerrar el componente EdFolio.Text, en un: QuotedStr().

Pero curiosamente ahora se me presenta otro problema. Intenta grabar, pero me indica que el primer registro viola el indice primario y no graba.

Ejemplo:
En el archivo de Ajustes de inventario, tenemos:

Código SQL [-]
Folio: 1
Codigo         Nombre                        Fisico
----------------------------------------------------
7795320000122  XARELTO 15mg. 28 COMP.            15
7800008011502  ISQUELLIUM 4mg. 30 COMP.           6
7800059002825  CAVAMED 5mg. x 30 COMP.           12
8437024105084  RIXOVITAE COM 10mg COMP. X 10      9

luego de ejecutar la sentencia:

Código SQL [-]
SQL_String.SQL.Clear;
   SQL_String.SQL.Append(
            'INSERT INTO ' + 'TomaInvtario ' +
                         '(Folio, Codigo, Nombre, ExistAct, Fisico) ' +
            'SELECT ' +
                         QuotedStr(EdFolio.Text)+
                        'Codigo, ' +
                        'Nombre, ExistAct, ExistTMP ' +
            'FROM '  + 'Inventario ' +
            'WHERE ' +  'Inventario.Familia   = ' + QuotedStr(EdFamilia.Text)); 

   SQL_String.ExecSQL(False);

Me entrega el siguiente error, y no graba:

Código SQL [-]
  violation of PRIMARY or UNIQUE KEY 
  constraint "PK_TOMAINVTARIO" on table 'TOMAINVTARIO'
  Problematic key value is ("FOLIO:" = 1, "CODIGO" = '7795320000122')

La tabla 'TOMAINVTARIO', esta actualmente vacia. Estos son los primeros registros que se grabaran.

El indice primario esta compuesto por: Folio, Codigo. (Donde: Folio, es numerico, y Codigo, AlfaNumerico(20)).

Alguna idea.
Saludos.
Gracias.