WX - Exemplo de leitura de planilha do excel, cadastramento, geração de csv e envio de email

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/238-exemplo-leitura-planilha-excel-cadastramento-geracao-csv-envio/read.awp

Procedure ImportarUsuario()

//Processamento da leitura do USUARIO.XLS
ok is boolean = False

PROGBAR_01..Visible = True

PROGBAR_01..Value = 0

Cabecalho is string = [
Associação Radiotaxi Faixa Vermelha <br>
Rua Dr. Goulin, 1661 <br>
Bairro Hugo Langue <br>
Curitiba - Paraná - Brasil <br>
CEP: 82040-280 <br><br>
]

Mensagem is string = [
[Dados de Acesso ao Voucher Eletronico]:<br>
<br>
Prezado(a): @Nome@ <br>
<br>
Acesse o Link: http://www.taxi62.com.br
<br>
Escolha No Menu superior a opção: Voucher Eletronico
<br>
[Informe os dados abaixo para o Acesso] <br>
Convenio......... = @Convenio@ <br>
Email............ = @Email@ <br>
OU <br>
Matricula........ = @Matricula@ <br>
Senha de Acesso.. = @SenhaAcesso@ <br>
]

nRegistro, nLinha, nUmaLinha is int

sCod_matric_autorz, sDes_email_usuari_web, sDes_senha_usuari_web, sNom_autorz, sDes_nome_empres_usuari_web, sIde_nivel_acesso_usuari_web, sDes_cargo_autorz, sNum_rg_autorz, sNum_cpf_autorz, sDes_observ, sCod_centro_custo, sIde_Tercerizada, sIde_SolicitarOutrosCentrosCusto, sTelefone, sIde_permit_corrid_outros, sDesc_diretoria is string = ""

sCod_client_conven,sCod_libera_pagame_eletro,sSeq_diretoria is int

sFile is string = EDT_Arquivo

nXlsfile is xlsDocument = xlsOpen(sFile)

nUmaLinha = xlsNbRow(nUmaLinha)

IF EDT_Arquivo <> "" AND PositionOccurrence(EDT_Arquivo,"XLS",firstRank,FromBeginning) > 0

FOR nLinha = 2 TO nUmaLinha

nRegistro += 1

PROGBAR_01..Value = nRegistro

//sCod_client_conven = xlsData(nXlsfile,nLinha,1) //Fixo gnConvenioAdministrador

sCod_matric_autorz = xlsData(nXlsfile,nLinha,1) //Matricula
sDes_email_usuari_web = xlsData(nXlsfile,nLinha,2) //Email
sNom_autorz = xlsData(nXlsfile,nLinha,3) //NomeUsuario
sNum_rg_autorz = xlsData(nXlsfile,nLinha,4) //RG
sNum_cpf_autorz = xlsData(nXlsfile,nLinha,5) //CPF
sDes_cargo_autorz = xlsData(nXlsfile,nLinha,6) //Cargo
sTelefone = xlsData(nXlsfile,nLinha,7) //Telefone
sDes_nome_empres_usuari_web = xlsData(nXlsfile,nLinha,8) //NomeEmpresa
sDesc_diretoria = xlsData(nXlsfile,nLinha,9) //NomeDiretoria
sCod_centro_custo = xlsData(nXlsfile,nLinha,10) //CodigoCentroCusto
sIde_SolicitarOutrosCentrosCusto = xlsData(nXlsfile,nLinha,11) //Flag_SolicitarOutrosCentrosCusto
sIde_Tercerizada = xlsData(nXlsfile,nLinha,12) //Flag_Tercerizada
sIde_permit_corrid_outros = xlsData(nXlsfile,nLinha,13) //Flag_Permit_corrid_outros
sIde_nivel_acesso_usuari_web = xlsData(nXlsfile,nLinha,14) //Flag_nivel_acesso_usuari_web
sDes_observ = xlsData(nXlsfile,nLinha,15) //Observacao

//Verifica se existe Diretoria
sSeq_diretoria = BuscaDiretoria(sDesc_diretoria)


//Verifica a existencia
ok = BuscaUsuario(gnConvenioAdministrador, sDes_email_usuari_web, sCod_matric_autorz)

IF sNom_autorz <> "" AND sCod_client_conven <> "" AND sDes_email_usuari_web <> "" AND sCod_matric_autorz <> "" AND sCod_centro_custo <> ""

IF ok = False THEN

sDes_senha_usuari_web = Charact(Random(97,122)) + Charact(Random(97,122)) + Charact(Random(97,122)) + Middle(Random(100,999),1,3)

sCod_libera_pagame_eletro = "0000"

ok = IncluirUsuario(gnConvenioAdministrador, sCod_matric_autorz, sDes_email_usuari_web, sDes_senha_usuari_web, sNom_autorz, sDes_nome_empres_usuari_web, sIde_nivel_acesso_usuari_web, sDes_cargo_autorz, sNum_rg_autorz, sNum_cpf_autorz, sDes_observ, sCod_centro_custo, sCod_libera_pagame_eletro, SN(sIde_SolicitarOutrosCentrosCusto), sSeq_diretoria, SN(sIde_Tercerizada), sTelefone, SN(sIde_permit_corrid_outros))

Mensagem = Replace(Mensagem,"@Nome@",sNom_autorz)
Mensagem = Replace(Mensagem,"@Convenio@",sCod_client_conven)
Mensagem = Replace(Mensagem,"@Email@",sDes_email_usuari_web)
Mensagem = Replace(Mensagem,"@Matricula@",sCod_matric_autorz)
Mensagem = Replace(Mensagem,"@SenhaAcesso@",sDes_senha_usuari_web)

EnviarEmail(sDes_email_usuari_web,"Radiotaxi Faixa Vermelha - Acesso ao Voucher Eletrônico",Cabecalho,Mensagem)

ELSE

ok = AlterarUsuario(gnConvenioAdministrador, sCod_matric_autorz, Seq_autorz, sDes_email_usuari_web, sDes_senha_usuari_web, sNom_autorz, sDes_nome_empres_usuari_web, sIde_nivel_acesso_usuari_web, sDes_cargo_autorz, sNum_rg_autorz, sNum_cpf_autorz, sDes_observ, sCod_centro_custo, sCod_libera_pagame_eletro, SN(sIde_SolicitarOutrosCentrosCusto), sSeq_diretoria, SN(sIde_Tercerizada),sTelefone,SN(sIde_permit_corrid_outros))

END

IF ok = True THEN
EDT_CSV += xlsData(nXlsfile,nLinha,1) +";"+ xlsData(nXlsfile,nLinha,2) +";"+ xlsData(nXlsfile,nLinha,3) +";"+ xlsData(nXlsfile,nLinha,4) +";"+ xlsData(nXlsfile,nLinha,5) +";"+ xlsData(nXlsfile,nLinha,6) +";"+ xlsData(nXlsfile,nLinha,7) +";"+ xlsData(nXlsfile,nLinha,8) +";"+ xlsData(nXlsfile,nLinha,9) +";"+ xlsData(nXlsfile,nLinha,10) +";"+ xlsData(nXlsfile,nLinha,11) +";"+ xlsData(nXlsfile,nLinha,12) +";"+ xlsData(nXlsfile,nLinha,13) +";"+ xlsData(nXlsfile,nLinha,14)+";"+ xlsData(nXlsfile,nLinha,15) +";"+ xlsData(nXlsfile,nLinha,16) +";"+ xlsData(nXlsfile,nLinha,17) +";"+ xlsData(nXlsfile,nLinha,18)
END

END

ok = False

END

PROGBAR_01..Value = 100

Info("Foram adicionados: " + nUmaLinha + " novos Usuarios!")

xlsClose(nXlsfile)

ELSE

Info("O arquivo Usuario a ser importado deve ser XLS")

EDT_Arquivo = ""

END

EDT_Arquivo = ""

==================================================================

//Relatorio Manual Excel
ok is boolean = False
nCAB is int = 0
Lineprint is string = ""
sFileName is string = ""

Lineprint = "Matricula; Nome; Centro Custo; Descricao Centro Custo; Centro Custo Autorizado; Descricao Centro Custo Autorizado; Data Autorizacao; Data Validade; Ultima Alteracao; Qtde Corridas; Corridas Utilizadas; Saldo de Corridas; Baixa da Autorização; Data Baixa; Mostrar Todas as Autorizações; Obs"+Charact(13)+Charact(10)

Lineprint += EDT_Matricula +"; "+ EDT_Nome +"; "+ EDT_CentroCusto +"; "+ EDT_DescricaoCentroCusto +"; "+ EDT_CentroCustoAutorizado +"; "+ EDT_DescricaoCentroCustoAutorizado +"; "+ EDT_DataAutorizacao +"; "+ EDT_DataValidade +"; "+ EDT_UltimaAlteracao +"; "+ EDT_QtdeCorridas +"; "+ EDT_Utilizado +"; "+ EDT_Saldo +"; "+ CBOX_BaixaAutorizacao +"; "+ EDT_DataBaixa +"; "+ CBOX_MostrarTodas +"; "+ EDT_Obs + Charact(13)+Charact(10)

Lineprint = Replace(Lineprint,".",",")

IF ok = True
sFileName = WS_ReturnGenerationDir()+"\AutorizacaoEspecial"+ gnConvenioAdministrador +".csv"
fSaveBuffer(sFileName,Lineprint)
iDestination(iGenericXLS,sFileName)
FileDisplay(sFileName,"application/unknown",sFileName)
fDelete(sFileName)
END