Como substituir o CRIATRAB na geração de arquivos em Excel (FWMSEXCEL)

Estamos migrando para o release 17 para o 25 do Protheus, com dicionario no banco, e na analise de código foi recusada a utilização do CRIATRAB. Porém temos alguns fontes que geram arquivo em Excel (conforme exemplo abaixo) e o Criatrab está sendo usado com o parâmetro ".F.". Qual função pode substituir isso?

Exemplo do fonte: Local CARQ_EXCEL := CriaTrab(NIL,.F.) oExcel := FWMSEXCEL():New() cNomePlan := "MOVIMENTAÇÃO DE ESTOQUE" cTitPlan := ALLTRIM(cNomePlan) oExcel:AddworkSheet(cNomePlan) oExcel:AddTable (cNomePlan,cTitPlan) oExcel:AddColumn(cNomePlan,cTitPlan,"Produto" ,1,1,.F.)oExcel:AddColumn(cNomePlan,cTitPlan,"Lote" ,1,1,.F.)oExcel:AddColumn(cNomePlan,cTitPlan,"Quantidade" ,3,2,.F.)FOR nIE := 1 TO LEN( aBUFFBMO ) aReg_e := {} aAdd(aReg_e, aBUFFBMO[nIE][3][09] ) aAdd(aReg_e, aBUFFBMO[nIE][3][10] ) aAdd(aReg_e, aBUFFBMO[nIE][3][21] ) oExcel:AddRow(cNomePlan,cTitPlan,aReg_e) NEXT nIE oExcel:Activate() oExcel:GetXMLFile(CARQ_EXCEL)

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 DevForum TOTVS!

2 respostas

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