Versão atual:

Insert Into com Tabela temporária

Olá ! eu estou realizando um insert into em uma tabela temporária mas não estou conseguindo êxito, estou tentando da seguinte forma

User Function GetQuerys(aValores,linicio,nOp)

local cPerg := "COCKPIT "

local _cQuery := " "

local cAlias := " "

local aFields2 := {}

Default aValores := {}

Default nOp := 0

pergunte(cPerg,.F.)

if TCIsConnected()

nConnect := TCGetConn()

lCloseConnect := .F.

else

nConnect := TCLink()

lCloseConnect := .T.

endif

aAdd(aFields2, {"TMAFil" ,"C" ,2 ,0})aAdd(aFields2, {"TMAPed" ,"C" ,6 ,0})aAdd(aFields2, {"TMACli" ,"C" ,6 ,0})aAdd(aFields2, {"TMALoj" ,"C" ,2 ,0})aAdd(aFields2, {"TMAEmi" ,"C" ,10 ,0})aadd(aFields2, {"TMAChK" ,"N" ,1 ,0})

oTable := FWTemporaryTable():New( "TMAIN", aFields2)oTable:Create()

cAlias := oTable:GetAlias()cTableName := oTable:GetRealName()

// Tabela main -------------------------------------------------------------------------------------------------------------------cQuerySQL := ""cQuerySQL +=" INSERT INTO " + cTableName + " (TMAFil, TMAPed, TMACli, TMALoj, TMAEmi, TMAChK) values ( "cQuerySQL +=" (SELECT C5FILIAL, C5_NUM, C5_CLIENTE, C5_LOJACLI, C5_EMISSAO"cQuerySQL +=" FROM "+RetSqlName("SC5")+" SC5 "cQuerySQL +=" WHERE SC5.C5_FILIAL = '"+XFILIAL("SC5")+"' AND SC5.D_E_L_E_T = ' ' AND SC5.C5_PEDPAG ='1'"cQuerySQL +=" AND SC5.C5_EMISSAO BETWEEN '"+DTOS(MV_PAR01)+"' AND '"+DTOS(MV_PAR02)+"'),1)"

if TCSqlExec(cQuerySQL) < 0 ConOut("Ops:", TCSqlError())

endif

Porem eu tenho o seguinte erro: Screenshot_1.png

alguém pode me ajudar ?

Versões (4):

Ver a versão formatada

Insert Into com Tabela temporária

Comentário

new question