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.

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags fwtemporarytable ou faça a sua própria pergunta.