|
Accueil → WINDEV 25 → WX - Exemplo de leitura de planilha do excel, cadastramento, geração de csv e envio de email |
WX - Exemplo de leitura de planilha do excel, cadastramento, geração de csv e envio de email |
Débuté par adrianoboller, 22 mai 2015 02:53 - 2 réponses |
| |
| | | |
|
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 22 mai 2015 - 02:53 |
Procedure ImportarUsuario()
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: <br> Escolha No Menu superior a opção: Voucher Eletronico <br> [Informe os dados abaixo para o Acesso] <br> Convenio... Email... OU <br> Matricula... 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_matric_autorz = xlsData(nXlsfile,nLinha,1) sDes_email_usuari_web = xlsData(nXlsfile,nLinha,2) sNom_autorz = xlsData(nXlsfile,nLinha,3) sNum_rg_autorz = xlsData(nXlsfile,nLinha,4) sNum_cpf_autorz = xlsData(nXlsfile,nLinha,5) sDes_cargo_autorz = xlsData(nXlsfile,nLinha,6) sTelefone = xlsData(nXlsfile,nLinha,7) sDes_nome_empres_usuari_web = xlsData(nXlsfile,nLinha,8) sDesc_diretoria = xlsData(nXlsfile,nLinha,9) sCod_centro_custo = xlsData(nXlsfile,nLinha,10) sIde_SolicitarOutrosCentrosCusto = xlsData(nXlsfile,nLinha,11) sIde_Tercerizada = xlsData(nXlsfile,nLinha,12) sIde_permit_corrid_outros = xlsData(nXlsfile,nLinha,13) sIde_nivel_acesso_usuari_web = xlsData(nXlsfile,nLinha,14) sDes_observ = xlsData(nXlsfile,nLinha,15)
sSeq_diretoria = BuscaDiretoria(sDesc_diretoria)
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 = "" |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 22 mai 2015 - 02:54 |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 29 mai 2015 - 21:16 |
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
|
| |
| |
| | | |
|
| | | | |
| | |
|