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)

criado 13 de Nov de 2019
LUCIANO LORENZETTI
48 pontos
editado 14 de Nov de 2019

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.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
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.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

up 0 down
Luciano, você não precisa ter um critrab para isso, só vc dar um nome ao arquivo que ele grava, o que eu fiz aqui eu crio minha variavel cArq_EXCEL := GetNexAlias() (Por exemplo), ou você pode dar um nome fixo.
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 13 de Nov de 2019
  FELIPE CAIADO ALMEIDA
  3716 pontos
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações
up 0 down
Se você quer criar um arquivo que sirva como base de informação e também seja exibido como planilha, tem uma forma mais simples.

Use a classe FwFileWriter() [Framework] ou então a FWrite() [Tecnologia] para escrever um arquivo separado com vírgulas, tipo assim:
```
Produto;Descrição;Tipo;Unid. Medida

PRDT0001;Teclado Wireless;PA;UN

PRDT0002;Teclado USB;PA;UN
```
Em anexo tem um exemplo de leitura de .CSV e carga para um vetor.
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 14 de Nov de 2019
  Guilherme Bigois
  1120 pontos
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Anexos
T235CSV.prw

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

Comentário

2 respostas

Comentário

Comentário

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