1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Exportar para Excel
× Linguagem de Programação ADVPL

Perguntas Exportar para Excel

Mais
10 anos 3 meses atrás #24400 por Kaleb Correa
Exportar para Excel foi criado por Kaleb Correa
Senhores, bom dia !
Desenvolvi um relatório em ADVPL porem preciso exportar ele para excel, alguem poderia me ajudar por favor...
Segue em anexo...

Desde já obrigado !
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24402 por admin
Respondido por admin no tópico Exportar para Excel
aCabExcel := {}
aItensExcel :={}

AADD(aCabExcel, {"CT3_CONTA" ,"C", 20, 0})
AADD(aCabExcel, {"CT3_DATA" ,"D", 08, 0})
AADD(aCabExcel, {"CT3_DEBITO" ,"N", 15, 2})
AADD(aCabExcel, {"CT3_CREDIT" ,"N", 15, 2})


aItem := Array(Len(aCabExcel))

For nX := 1 to Len(aCabExcel)
aItem[nX] := CT3REPLACE->&(aCabExcel[nX][1])
Next nX

AADD(aItensExcel,aItem)


If MsgYesNO("Deseja Gerar Excel?")
MsgRun("Favor Aguardar.....", "Exportando os Registros para o Excel", {||DlgToExcel({{"GETDADOS","Contas CT3 sem Conta nova",aCabExcel,aItensExcel}})})
Endif

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24404 por Kaleb Correa
Respondido por Kaleb Correa no tópico Exportar para Excel
Não consegui, poderia me ajudar por favor a ajustar essa função no relatório..

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24406 por admin
Respondido por admin no tópico Exportar para Excel
Veja se funfa



Arquivo Anexo:

Nome do Arquivo: RelFunc.rar
Tamanho do Arquivo:3 KB
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24410 por rodrigolparaujo
Respondido por rodrigolparaujo no tópico Exportar para Excel
Boa tarde Amigo, eu recomendaria o uso do tReport, pois ele além de exportar para impressora, exporta para excel, pdf, html, etc....
o uso do tReport é bem simples ou pode tambem usar o componente FWMSEXCEL
oExcel := FWMSEXCEL():New()   
oExcel:AddworkSheet("Usuários")
oExcel:AddTable ("Usuários","Usuários do Sistema")
oExcel:AddColumn("Usuários","Usuários do Sistema","ID",1,1)
oExcel:AddColumn("Usuários","Usuários do Sistema","LOGIN",1,1)
oExcel:AddColumn("Usuários","Usuários do Sistema","NOME",1,1)
oExcel:AddColumn("Usuários","Usuários do Sistema","EMAIL",1,1)
oExcel:AddColumn("Usuários","Usuários do Sistema","DEPTO",1,4)
oExcel:AddColumn("Usuários","Usuários do Sistema","BLOQUEADO",1,1)
For i := 1 to len(aInfor)                                                                                            
   oExcel:AddRow("Usuários","Usuários do Sistema",{aInfor[i,3],aInfor[i,5],aInfor[i,4],aInfor[i,8],aInfor[i,7]})
Next                                        
oExcel:Activate()
oExcel:GetXMLFile("usuarios.xml")
 
if(CpyS2T( "\system\usuarios.xml", Alltrim(MV_PAR01) ) )
   WinExec("EXCEL.EXE"+Alltrim(MV_PAR01)+"usuarios.xml") 
Endif

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24415 por Kaleb Correa
Respondido por Kaleb Correa no tópico Exportar para Excel
Infelizmente não funfou o excel está saindo em branco...

Por favor Acessar ou Registrar para participar da conversa.

  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Exportar para Excel
Tempo para a criação da página:0.135 segundos
Joomla templates by a4joomla