Inserir o resultado de um Select

No Caso com mais de um Select

exemplo com um select:
Se eu quizer fazer um select ]para inserir a descrição do CD_CLASSE
que eh chave estrangeira

Insert into CEINVENT
(CD_EMPRES ,CH_PRODUT ,NR_QUANTD ,VL_UNITAR ,CH_UNIDAD ,CH_PROACA ,CD_CLASSE ,DT_INVENT)
(select i.CD_EMPRES ,102 ,1 ,1 ,´UN´ ,´S´ ,1 ,sysdate FROM SIEMPRES i WHERE i.CD_EMPRES = 1)

[quote:f46510ce29=´Moderação´][color=red:f46510ce29]Tópico bloqueado por Massuda

Tópico duplicado.
Por favor, mantenha a discussão no tópico original...[/color:f46510ce29]
http://forum.clubedelphi.net/viewtopic.php?t=75686[/quote:f46510ce29]