Genexus

Excelente pergunta, eu só sei que todas as minhas apps .net rodam lá. Mas não tinha testado excel antes no servidor. É na kinghost.

[]'s
Luciano Topolniak
Analista de Sistemas

www.aquinoacre.com.br

Professor Universitário
www.uninorteac.com.br
skype: Topolniak
msn:Topolniak@hotmail.com

Twitter: @Topolniak

---

Date: Fri, 8 Oct 2010 14:42:31 -0300
From: nevesdoido@gmail.com

To: gx-l@gxtech.com.uy

Subject: Re: [gx-l] Problemas com excel no servidor remoto

Boa Tarde Luciano,

desculpe a pergunta mas este servidor remoto tem o J# instalado?.

Em 8 de outubro de 2010 13:41, Luciano Topolniak <topolniak@hotmail.com> escreveu:

Olá a todos bom dia. Tenho uma wp que importa uma planilha excel...sempre a testei localmente e só agora fiz upload dos arquivos para o servidor remoto compartilhado.

A importação não funciona. Enviei as dlls todas.

Que pode ser? será que terei que solicitar o registro das dlls no servidor?

Quando rodo a rotinha de importação o arquivo é até copiado para a pasta PrivateTempStorage, mas os dados não são carregados.

Penso que não é problema de banco/chaves, pois fiz backup do banco local e restaurei no server remoto.

Essas são as DLLs que coloquei na pasta bin.

Apache.Xalan2

Apache.Xerces2

Apache.Xml.Commons

Jakarta.Commons.Logging

Jakarta.POI

JSharpLib

Sub 'U_Importar'

&Nome = &E_Arquivo //pega o caminho físico do arquivo do Blob

    &Planilha.ReadOnly = 1

    &Planilha.Open(&Nome) 

Do 'CheckStatus'

    &i = 2

    &RegTxt = &Planilha.Cells(&i, 1).Text

    do while not null(&RegTxt)

&SDTInventariosItem = new()

&UPAInventarioId = &Planilha.Cells(&i, 2).Number

&SDTInventariosItem.UPAInventarioId = &UPAInventarioId

prcGravaUPA.Call(&UPAInventarioId)

&UTsId   = &Planilha.Cells(&i, 3).Number

&SDTInventariosItem.UTsId = &UTsId

prcGravaUT.Call(&UPAInventarioId, &UTsId)

       &SDTInventariosItem.ArvoresPlaca = &Planilha.Cells(&i, 4).Text

&EspeciesId = &Planilha.Cells(&i, 5).Number

&EspeciesNme  = &Planilha.Cells(&i, 6).Text

&EspeciesNmeCient  = &Planilha.Cells(&i, 7).Text

prcGravaEspecies.Call(&EspeciesId, &EspeciesNme, &EspeciesNmeCient)

&SDTInventariosItem.EspeciesId  = &EspeciesId

&SDTInventariosItem.ArvoreCAP  = &Planilha.Cells(&i, 8).Number

&SDTInventariosItem.ArvoreAlt  = &Planilha.Cells(&i, 9).Number

&SDTInventariosItem.ArvoreVol  = &Planilha.Cells(&i, 10).Number

&SDTInventariosItem.FustesId  = &Planilha.Cells(&i, 11).Number

&SDTInventariosItem.ArvoreLat  = &Planilha.Cells(&i, 12).Text

&SDTInventariosItem.ArvoreLong  = &Planilha.Cells(&i, 13).Text

// &ArvoreTipo  = &Planilha.Cells(&i, 14).Number

&SDTInventarios.Add(&SDTInventariosItem)

        &i+=1

        &RegTxt = &Planilha.Cells(&i, 1).Text

    enddo

    &Planilha.Close()

prcGravaInventarios.Call(&SDTInventarios)

Do 'CheckStatus'

refresh

EndSub

[]'s
Luciano Topolniak
Analista de Sistemas

www.aquinoacre.com.br

Professor Universitário
www.uninorteac.com.br
skype: Topolniak
msn:Topolniak@hotmail.com

Twitter: @Topolniak