Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!
Boa tarde.
Estou revisando meus fontes para a versão 12.1.23 e nela um fonte deve ter o método de criação de tabela temporária modificado.
Até aí ok. O problema é que não consigo incluir dados na FwTemporaryTable que foi criada.
Alguém sabe como fazer isso?
Att.
Segue um exemplo que cria uma tabela temporária com dados da SA1:
cTempTab := GetNextAlias() _otemp := FWTemporaryTable():New( cTempTab, SA1->(DBSTRUCT()) ) _otemp:Create()
(cAliasTrb)->(Dbgotop())
Do while SA1->(!Eof())
Reclock(cTempTab,.T.)
(cTempTab)->A1_FILIAL := SA1->A1_FILIAL (cTempTab)->A1_COD := SA1->C1_NUM
SA1->(Msunlock())
SA1->(Dbskip())
Enddo
Olá.
Me baseando na sua resposta, olhei o meu código, aparentemente esta igual. Mesmo assim o registro não aparece quando verifico a tabela dentro do banco.
Att.
#Include "PROTHEUS.Ch"
#Include "TopConn.ch"
#Include "Totvs.ch"
User Function Teste()
Local aTam := {}
Local aCampos := {}
Local cQuery := ''
Local cQuery2 := ''
Local uRet := nil
Local nI := 0
Local oStatement
Local cAlias
Local nX := 0
OpenSm0()
if SM0->(dbSeek( '1004010001' ))
if RpcSetEnv( SM0->M0_CODIGO, SM0->M0_CODFIL ) // abre um ambiente
aTam := TamSX3("E1_FILIAL")
AADD(aCampos,{"FILIAL" ,"C",aTam[1],aTam[2]})
aTam := TamSX3("E1_CLIENTE")
AADD(aCampos,{"CODIGO" ,"C",aTam[1],aTam[2]})
aTam := TamSX3("E1_LOJA")
AADD(aCampos,{"LOJA" ,"C",aTam[1],aTam[2]})
aTam := TamSX3("E1_EMISSAO")
AADD(aCampos,{"DATAX" ,"D",aTam[1],aTam[2]})
AADD(aCampos,{"NUMERO" ,"C",16,0})
aTam := TamSX3("E1_EMISSAO")
AADD(aCampos,{"EMISSAO" ,"D",aTam[1],aTam[2]})
aTam := TamSX3("E1_VENCREA")
AADD(aCampos,{"VENCREA","D",aTam[1],aTam[2]})
aTam := TamSX3("E1_VLCRUZ")
AADD(aCampos,{"VALOR" ,"N",aTam[1],aTam[2]})
AADD(aCampos,{"HISTOR" ,"C",40,0})
AADD(aCampos,{"DC" ,"C",1,0})
aIndices := {}
aAdd( aIndices, { 'TEMP', { "DATAX", 'NUMERO', 'CODIGO', 'DC' } } )
uRet := FWTemporaryTable():New( getNextAlias() )
uRet:SetFields( aCampos )
for nI := 1 to len(aIndices)
uRet:AddIndex(aIndices[nI, 1], aIndices[nI, 2] )
next nI
uRet:Create()
for nX := 1 to 10
RecLock( uRet:oStruct:cAlias, .T. )
( uRet:oStruct:cAlias )->FILIAL := '04010001'
( uRet:oStruct:cAlias )->CODIGO := '0001'
( uRet:oStruct:cAlias )->LOJA := '01'
( uRet:oStruct:cAlias )->DATAX := dDatabase
( uRet:oStruct:cAlias )->NUMERO := '04010001'
( uRet:oStruct:cAlias )->EMISSAO := dDatabase
( uRet:oStruct:cAlias )->VENCREA := dDatabase
( uRet:oStruct:cAlias )->VALOR := nX
( uRet:oStruct:cAlias )->HISTOR := '04010001'
( uRet:oStruct:cAlias )->DC := '1'
( uRet:oStruct:cAlias )->(msUnlock())
next nI
uRet:Delete()
freeobj(uRet)
RpcClearEnv()
endif
endif
Return
Boa tarde,
Lucas, a tabela temporária funciona como uma workarea padrão do sistema, portanto seu fonte e o exemplo do Josué estão corretos, porém a tabela temporária é vinculada a thread, somente a thread que criou a tabela consegue ver a mesma, se você criar a tabela na thread XXXXX a YYYYY não vai conseguir ver ela e nem mesmo em programas específicos para visualização do banco de dados.
Na documentação da FWTemporaryTable existe essa informação:
http://tdn.totvs.com/display/framework/FWTemporaryTable
Obs.: Existe uma exceção no Oracle, que você consegue ver a tabela, mas não seu conteúdo.