Bom dia, pessoal.
Estou ajustando um fonte pra gerar um arquivo CSV e um relatório em tReport com as informações de movimentação de estoque de produtos fitossanitários. Por conta das especificações (a relação do código fitossanitário na tabela Z27 com o cadastro de produtos é 1:N), preciso criar uma tabela com os saldos e quantidade de movimentações (seria o cabeçalho do CSV e a Section1 do relatório) e outra tabela com as informações das notas fiscais (seria o corpo do CSV e a Section2 do relatório).
Minha ideia foi criar uma função para criar as tabelas e, dentro dessa função, chamar as outras funções que vão buscar os dados na SD1/SD2/SD3. Após rodar a query, tentei appendar os dados na tabela de movimentações, conforme exemplo abaixo, mas o sistema sempre retorna que o alias é inexistente.
Já mudei o escopo das variáveis que guardam as informações das tabelas e passá-las como argumento na função que busca os itens dos docs de entrada, sem sucesso. Nos exemplos que encontrei, a FWTemporaryTable sempre foi criada com escopo local, só que, nesse caso, preciso chamar a tabela temporária em outras funções.
#include "totvs.ch"
#include "protheus.ch"
#include "topconn.ch"
User Function CAESR002()
Local oReport := nil
Local cPerg:= Padr("CAESR002",10)
Pergunte(cPerg,.T.)
fTabela()
//oReport := RptDef(cPerg)
//oReport:PrintDialog()
Return
Static Function fTabela()
Local aColsSld := {}
Local aColsMov := {}
Private cAliasSld := GetNextAlias()
Private cAliasMov := GetNextAlias()
Private oTmpSld
Private oTmpMov
//-------------------
//Criação do objeto
//-------------------
oTmpSld := FWTemporaryTable():New(cAliasSld)
//--------------------------
//Monta os campos da tabela
//--------------------------
aadd(aColsSld,{"MAPA" ,"C",30,0})
aadd(aColsSld,{"VOL" ,"N",7,3})
aadd(aColsSld,{"UN" ,"C",4,0})
aadd(aColsSld,{"CONV" ,"N",7,3})
aadd(aColsSld,{"QTD" ,"N",3,0})
oTmpSld:SetFields( aColsSld )
oTmpSld:AddIndex("indice1", {"MAPA", "VOL", "UN"} )
//------------------
//Criação da tabela
//------------------
oTmpSld:Create()
//---------------------------------
//Exclui a tabela
//---------------------------------
//oTmpSld:Delete()
//-------------------
//Criação do objeto
//-------------------
oTmpMov := FWTemporaryTable():New(cAliasMov)
//--------------------------
//Monta os campos da tabela
//--------------------------
aadd(aColsMov,{"MAPA" ,"C",30,0})
aadd(aColsMov,{"VOL" ,"N",3,1})
aadd(aColsMov,{"UN" ,"C",4,0})
aadd(aColsMov,{"CONV" ,"N",7,3})
aadd(aColsMov,{"NF" ,"C",9,0})
aadd(aColsMov,{"COD" ,"C",15,0})
aadd(aColsMov,{"CLIENTE" ,"C",06,0})
aadd(aColsMov,{"RECEITU" ,"C",15,0})
oTmpMov:SetFields( aColsMov )
oTmpMov:AddIndex("indice1", {"MAPA", "VOL", "UN", "NF", "COD"} )
//------------------
//Criação da tabela
//------------------
oTmpMov:Create()
//---------------------------------
//Exclui a tabela
//---------------------------------
//oTmpMov:Delete()
fMovEnt(cAliasSld, cAliasMov)
//fMovSai()
//fMovInt()
return
Static Function fMovEnt(cAliasSld, cAliasMov)
Local cQuery := ""
cQuery += " SELECT "
cQuery += " Z27010.Z27_IDMAPA, "
cQuery += " Z27010.Z27_VOLUME, "
cQuery += " Z27010.Z27_UN, "
cQuery += " Z27010.Z27_PRODUT, "
cQuery += " SD1010.D1_SERIE, "
cQuery += " SD1010.D1_DOC, "
cQuery += " SD1010.D1_QUANT, "
cQuery += " SD1010.D1_TIPO, "
cQuery += " SD1010.D1_FORNECE, "
cQuery += " SD1010.D1_LOJA "
cQuery += " FROM "
cQuery += " Z27010 "
cQuery += " INNER JOIN SD1010 ON D1_FILIAL = Z27_FILIAL "
cQuery += " AND D1_COD = Z27_PRODUT "
cQuery += " INNER JOIN SF4010 ON D1_FILIAL = F4_FILIAL "
cQuery += " AND SD1010.D1_TES = F4_CODIGO "
cQuery += " WHERE "
cQuery += " SD1010.D1_DTDIGIT BETWEEN '20201123' AND '20201129' "
cQuery += " AND SD1010.D_E_L_E_T_ = ' ' "
cQuery += " AND SF4010.F4_ESTOQUE = 'S' "
dbUseArea( .t., 'TOPCONN', TCGenQry(,,cQuery), 'TRBE', .f., .t. )
DBSELECTAREA("TRBE")
DBGOTOP()
DBSELECTAREA(cAliasMov)
DBGOTOP()
While TRBE->(!Eof())
cAliasMov->(dbAppend())
cAliasMov->MAPA := TRBE->Z27_IDMAPA
cAliasMov->VOL := TRBE->Z27_VOLUME
cAliasMov->UN := TRBE->Z27_UN
cAliasMov->NF := TRBE->D1_DOC
cAliasMov->COD := TRBE->Z27_PRODUT
cAliasMov->(DBCommit())
TRBE->(DbSkip())
EndDo
while cAliasMov->(!Eof())
Alert(cAliasMov->NF)
Alert(cAliasMov->COD)
cAliasMov->(DbSkip())
end
oTmpSld:Delete()
oTmpMov:Delete()
ReturnQuando usava o CriaTrab, o arquivo de trabalho ficava disponível em todas as funções, mas acho que com o FwTemporaryTable deva haver alguma mudança na questão de escopo.
Desde já, agradeço caso alguém tenha uma ideia de como solucionar essa questão.
