Versão atual:

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)

Versões (2):

Ver a versão formatada

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

Comentário

new question