Versão atual:

Gravar em uma tabela temporaria (temporarytable)

Prezados, Não estou conseguindo gravar em uma tabela temporária. Alguém já conseguiu e poderia me ajudar. Segue o fonte que fiz, bem simples.

//Criação do objeto

oTable := FWTemporaryTable():New()

//Monta os campos da tabela

AADD(aCmpBrw , {"C_CC" , "C", TamSX3("P02_CC")[1] , 0})

AADD(aCmpBrw , {"C_DESCC" , "C", TamSX3("P02_DESCC")[1] , 0})

AADD(aCmpBrw , {"N_VALOR" , "N", TamSX3("P02_VALOR")[1] , 2})

oTable:SetFields( aCmpBrw )

oTable:AddIndex("01", {"C_CC"} )

oTable:AddIndex("02", {"C_CC","C_DESCC"} )

//Criação da tabela

oTable:Create()

//Pego o alias da tabela temporária

cAlias := oTable:GetAlias()

//Atribui os dados para a tabela temporaria

(cAlias)->(DBAppend())

(cAlias)->C_CC := "01"

(cAlias)->C_DESCC := "Teste"

(cAlias)->N_VALOR := 10

(cAlias)->(DBCommit())

O fonte não apresenta erros, mas quando dou select dentro do oracle a tabela está vazia.

Versão (1):

Ver a versão formatada

Gravar em uma tabela temporaria (temporarytable)

Comentário

new question