Windev21 Aulas,Estudos e Desenvolvimento: maio 2015

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

Páginas

sábado, 30 de maio de 2015