Windev21 Aulas,Estudos e Desenvolvimento: Banco

Mostrando postagens com marcador Banco. Mostrar todas as postagens

quarta-feira, 8 de junho de 2016

WX - Objetivo: Anexar qualquer tipo de arquivo (TXT, PDF, Word, Excel e outros tipos de documentos) no banco de dados

forum.pcsoft.fr/pt-BR/pcsoft.br.windev/1279-objetivo-anexar-qualquer-tipo-arquivo-txt-pdf-word/read.awp

Publicado em junho, 08 2016 - 2:23 AM

Prezados,

Autor do Post: Evandro Rodrigues de Andrade

Objetivo: Anexar qualquer tipo de arquivo (TXT, PDF, Word, Excel e outros tipos de documentos) no banco de dados.

Observação: O documento ou arquivo é salvo no banco e não no diretório.

Como vai funcionar:

1º - Selecionar o arquivo em um botão

2º - Depois de selecionado gravar o arquivo na tabela do banco de dados e exibir uma mensagem: "Arquivo adicionado com sucesso."

3º - Listar em seguida todos os arquivos anexados no banco de dados

4º - Um botão abrir ou baixar ou exportar o documento selecionado da tabela.

Sendo assim segue os códigos:

1º - Procedure para mostrar anexos na tabela:

Procedure MostrarAnexos( )

TableDeleteAll(TABLE_arquivos_em_anexo)

FOR EACH arquivos 

 nIDArquivo is 8-byte int = arquivos.id_arquivo

 sInformacaoArquivoBinario is string = HInfoMemo(arquivos,arquivo_anexo)

 sNomeArquivo is string = fExtractPath(ExtractString(sInformacaoArquivoBinario,2,TAB), fFileName + fExtension)

 dtData is DateTime = fDateTime(ExtractString(sInformacaoArquivoBinario,2,TAB))

 sExtensaoArquivo is string = Replace((fExtractPath(ExtractString(sInformacaoArquivoBinario,2,TAB), fExtension)),".","")

 //sTamanho is string = fSize(ExtractString(sInformacaoArquivoBinario,2,TAB))

 sTamanho is string = ExtractString(sInformacaoArquivoBinario,3,TAB)

 TableAdd(TABLE_arquivos_em_anexo,nIDArquivo+TAB+sNomeArquivo+TAB+dtData+TAB+sExtensaoArquivo+TAB+sTamanho)

END

TableSort(TABLE_arquivos_em_anexo,"-TABLE_arquivos_em_anexo.COL_Id_do_anexo")

2º - Botão para adicionar anexos no banco:

// Abre o selecionador de arquivo

sArquivo is string

sArquivo = fSelect("", "", "Selecione um arquivo...", "Todos (.)" + TAB + "*.*", "*.*")

IF sArquivo ~= “” THEN

 RETURN

END

// Anexa um arquivo para o registro

HLinkMemo(arquivos,arquivo_anexo,sArquivo,hAcceptOpenedFile)

// Adiciona o registro

HAdd(arquivos)

MostrarAnexos( )

3º - Botão para abrir o anexo selecionado na tabela:

//abrir o anexo selecionado na tabela

HSeekFirst(arquivos,id_arquivo,TABLE_arquivos_em_anexo.COL_Id_do_anexo)

sInformacaoArquivoBinario is string

IF HFound() = True THEN

 // Retorna as características de memorandos binários e texto 

 sInformacaoArquivoBinario = HInfoMemo(arquivos,arquivo_anexo)

 sArquivo is string = fExtractPath(ExtractString(sInformacaoArquivoBinario,2,TAB), fFileName + fExtension)

 sArquivoTemporario is string = fTempPath() + sArquivo

 // Extrai o arquivo para um diretório temporario

 HExtractMemo(arquivos.arquivo_anexo,sArquivoTemporario)

 // Recuperar o nome do diretório temporário e executa ou abre o arquivo em seguida

 ShellExecute(sArquivoTemporario)

ELSE

 Error("Arquivo não encontrado ou o arquivo pode ser aberto ou executado.")

END

4º - Botão para exportar o arquivo:

//Exportar

HSeekFirst(arquivos,id_arquivo,TABLE_arquivos_em_anexo.COL_Id_do_anexo)

sInformacaoArquivoBinario is string

sArquivo is string

sExtensaoArquivo is string

sDiretorio is string

// Retorna as características de memorandos binários e texto 

sInformacaoArquivoBinario = HInfoMemo(arquivos,arquivo_anexo)

sArquivo = fExtractPath(ExtractString(sInformacaoArquivoBinario,2,TAB), fFileName + fExtension)

sExtensaoArquivo = fExtractPath(ExtractString(sInformacaoArquivoBinario,2,TAB), fExtension)

//sDiretorio = fSelect("", sArquivo, "Salvar como...", sExtensaoArquivo, sExtensaoArquivo, fselCreate + fselExist)

sDiretorio = fSelect("", sArquivo, "Salvar como...", "Todos os arquivos (*"+sExtensaoArquivo+")" + TAB + "*"+sExtensaoArquivo+"*", "", fselCreate + fselExist)+sExtensaoArquivo
HExtractMemo(arquivos,arquivo_anexo,sDiretorio)

5º - Código para filtrar na tabela:

//filtrar na tabela:
TableEnableFilter(TABLE_arquivos_em_anexo.COL_Nome,filterContains,MySelf)

O código foi feito conforme os links que você Adriano me passou

Agradecimentos especiais: Prof.º Adriano Boller, Prof.º Amarildo Matos e Prof.º Julio Cesar Pedroso

Autor do Post: Evandro Rodrigues de Andrade

- Meu muito obrigado a todos!

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/

domingo, 6 de março de 2016

WM - Windev Mobile com OleDB com o Banco de Dados Oracle

Prezados,

Segue exemplo de como trabalhar com OleDB e Oracle no Mobile:

OBSERVAÇÃO IMPORTANTE:

PARA CONECTAR NO BANCO COM SEGURANÇA CRIE NO PROJETO CONSTANTES E NELAS DEFINA OS VALORES
POIS SE CASO DECOMPILAR O PROJETO JAVA A ONDE FOI COLOCADO CONSTANTS ELA NAO SAO DECOMPILADAS
FICANDO ASSIM OFUSCADA ESSA INFORMAÇÃO E EVITANDO A INVASAO NO SEU BANCO DE DADOS.

EXEMPLO:

ipExterno  =  188.155.20.70

conexao  =  X

usuario  =  Y

senhaBanco  =  Z1W5C9V7N5B3T4Q6T5C8B5N2X3Y1Z2A7M8K9L6P3T

conexaoOle    =  PADRAO

tipoconexao  =  ABACAXI

AS PROCEDURES ABAIXO VAO PERMITIR CRIAR UM DATA SOURCE NA MEMORIA DO CELULAR PROVENIENTE DIRETAMENTE DO SERVIDOR ORACLE, ACESSO NATIVO USANDO OS COMANDOS SQL DO ORACLE COMO SE ESTIVESSE NO PLSQL.

Procedure  ConectaBanco()

ConnectionNum  is  int

IF  gTipo=False  THEN

ConnectionNum  =  SQLConnectWS(ipExterno,  ...

conexao,  usuario,  senhaBanco,conexaoOle,tipoconexao)

ELSE

ConnectionNum  =  SQLConnectWS(ipInterno,  ...

conexao,  usuario,  senhaBanco,conexaoOle,tipoconexao)

END

IF  ConnectionNum  <>  0  THEN

//  The  connection  was  successful

RESULT  True

ELSE

SQLInfo()

Error("A  conexão  falhou.  "  +  CR  +  ...

"Erro:  "  +  ...

SQL.Error  +  CR  +  SQL.MesError)

RESULT  False

END

Procedure  DesconectaBanco()

SQLDisconnect()

PROCEDIMENTOS DE IMPORTAÇÃO DAS CONFIGURAÇÕES

Procedure  View_Config()

ok  is  boolean  =  False

sSQL  is  string  =  "select  *  from  mir_conf_cidadecorp  t  where  t.status=1"

bExecutaSql  is  boolean  =  SQLExec(sSQL,"Qry_Config")

Win_Principal.PBAR_Config=0

IF  bExecutaSql  THEN

HDeleteAll(T001_Config)

WHILE  SQLFetch("Qry_Config")

Win_Principal.PBAR_Config+=1

T001_Config.T001_Descricao=SQLGetCol("Qry_Config",1)

T001_Config.T001_Valor=SQLGetCol("Qry_Config",2)

T001_Config.T001_Status=SQLGetCol("Qry_Config",3)    

ok  =  HAdd(T001_Config)

IF  ok  =  False

Log(ErrorInfo())

END

END

Win_Principal.PBAR_Config=100

ELSE

Info("Erro  de  execução  SQL","Relate  p/  Miron.")

END

PROCEDIMENTOS DE IMPORTAÇÃO DO CADASTRO DE PRODUTOS

Procedure  View_Produto()

nLinhas  is  int

IF  ConectaBanco()  THEN

sSql2  is  string  =  "select  count(p.seqproduto)  nlinhas  from  vcorp_produto  p"

bExecutaSql2  is  boolean  =  SQLExec(sSql2,"Qry_Produto2")

Multitask(1)

IF  bExecutaSql2  THEN

WHILE  SQLFetch("Qry_Produto2")  =  0

nLinhas  =  SQLGetCol("Qry_Produto2",1)

END

ELSE

Info("Erro  de  execução  SQL","Relate  p/  Miron.")

RETURN  

END

SQLClose("Qry_Produto2")

nLoops  =  RoundUp(nLinhas/100,0)

Win_Principal.PBAR_Produto..MaxValue=nLoops

Win_Principal.PBAR_Produto=0

HDeleteAll(T002_Produto)

Multitask(1)

FOR  i  =  1  TO  nLoops

Win_Principal.PBAR_Produto+=1

sSql  is  string  =  "select  *  from  vcorp_produto  where  rownum<="+i*100+"  and  rownum>="+(i-1)*100+1

bExecutaSql  is  boolean  =  SQLExec(sSql,"Qry_Produto")

Multitask(1)

ok  is  boolean

sErro  is  string  ="Erros  ao  gravar  produtos  :  "  +  CRLF

IF    bExecutaSql  THEN

WHILE  SQLFetch("Qry_Produto")  =  0

T002_Produto.T002_SeqProduto=SQLGetCol("Qry_Produto",1)

T002_Produto.T002_Desccompleta=SQLGetCol("Qry_Produto",2)

T002_Produto.T002_Seqfamilia=SQLGetCol("Qry_Produto",3)

T002_Produto.T002_EAN=SQLGetCol("Qry_Produto",4)

ok  =  HAdd(T002_Produto)

IF  ok=False  THEN

sErro+=SQLGetCol("Qry_Produto",1)+CRLF

Info("Erro:  "+ErrorInfo())

END

END

Multitask(1)

ELSE

Info("Erro  de  execução  SQL","Relate  p/  Miron.")

RETURN  

END

LogApp(sErro)

END

SQLClose("Qry_Produto")

END

DesconectaBanco()

OUTRO EXEMPLO

sSqlx  =  "select  *  from  vcorp_produto  p  where  p.dtaalteracao>=fdata('"+DtaUltImportacao+"')  and  p.dtaalteracao<trunc(sysdate)"

bExecutaSql  is  boolean  =  SQLExec(sSqlx,"Qry_Produto")

Multitask(1)

sErro  is  string  ="Erros  ao  gravar  produtos  :  "  +  CRLF

IF    bExecutaSql  THEN

Win_Principal.PBAR_Produto..MaxValue=100

Win_Principal.PBAR_Produto=0

WHILE  SQLFetch("Qry_Produto")  =  0

//

ok=HReadSeekFirst(T002_Produto,  T002_SeqProduto,  SQLGetCol("Qry_Produto",2))

T002_Produto.T002_SeqProduto=SQLGetCol("Qry_Produto",2)

T002_Produto.T002_Desccompleta=SQLGetCol("Qry_Produto",3)

T002_Produto.T002_Seqfamilia=SQLGetCol("Qry_Produto",4)

T002_Produto.T002_EAN=SQLGetCol("Qry_Produto",5)

HSave(T002_Produto)

END

Win_Principal.PBAR_Produto=100

Multitask(1)

ELSE

Info("Erro  de  execução  SQL","Relate  p/  Miron.")

END

LogApp(sErro)

SQLClose("Qry_Produto")

RESULTADO OBTIDO:
33.000 REGISTROS EM 2.500KB HFSQL e busca local instantânea

https://www.facebook.com/photo.php…
https://www.facebook.com/photo.php…
https://www.facebook.com/photo.php…
https://www.facebook.com/photo.php…
https://www.facebook.com/photo.php…

Agora com esse exemplo é só dar asas a imaginação, esta acessando de forma segura e obtendo em seu celular todos os recursos do seu servidor de Banco de dados Oracle usando WINDEV MOBILE em uma aplicação Android em suas mãos.

Cada dia fico mais feliz e impressionado com o poder que a PcSoft nos dá e também a grande responsabilidade que devemos ter com nossos clientes em ofuscar o código para evitar invasões de terceiros pelo aplicativo, pois nos oferece recursos que em outras linguagens são complexas e podemos notar aqui nesse exemplo a simplicidade do código empregado e dos recursos da ferramenta, o quanto ela é facilmente lida as instruções, ou seja, show de bola!

Sucesso a todos!

Prezados,

Para ofuscar use CONSTANTS, segue exemplo:

CONSTANTS

ipExterno      = 188.155.20.70

conexao        = X

usuario         = Y

senhaBanco = Z1W5C9V7N5B3T4Q6T5C8B5N2X3Y1Z2A7M8K9L6P3T

conexaoOle = PADRAO

tipoconexao = ABACAXI

END

OBSERVAÇÃO:
NUNCA DEIXE O SEU PROJETO ANDROID SEM USAR ESSE PROCEDIMENTO DE SEGURANÇA

Prezados,

Outra forma de Ter os dados seguros é armazenar em uma tabela os dados de forma criptografada ou com senha:

Desenvolva uma tela que será chamada na primeira vez e grave na tabela local com senha na tabela e criptografe os dados armazenados.

Assim seria outra técnica para proteger os dados. Uma vez que informe e logue com sucesso armazena na tabela segura e caso queira reiniciar os dados no sistema, apagaria os dados dessa configuração e solicitaria novamente o valor.

Sucesso em seus estudos!

Publicado em março, 01 2016 - 8:55 PM

Importante Mencionar que para isso tem que ter o Reserved Webdev Server instalado

--
Atte. Willian Fernando

Publicado em março, 05 2016 - 3:21 PM

Willian Fernando a écrit :

Tem que aclarar esse ponto nem todos sabem disso

Importante Mencionar que para isso tem que ter o Reserved Webdev Server instalado

--
Atte. Willian Fernando

--
Atte. Willian Fernando

sexta-feira, 18 de dezembro de 2015

WinDev - Curso - 173 - Pegar Retorno Arquivo Banco - Componente - Email -

Video - pegar Retorno Banco

Nessa aula vou mostrar como eu leio um arquivo de retorno do banco, e coloco isso numa
tabela, para posteriormente colocar esses dados no arquivo de duplicata

TableDeleteAll(TABLE_Retorno) // DELETO TABELA
nArquivoid is int
nArquivoid = fOpen(EDT_Retorno,foReadWrite) // ABRIR ARQUIVO, RETORNO
IF nArquivoid<>-1 THEN // SE EXISTE ARQUIVO
    n_contador is int=0
    sLinha is string="" //
    LOOP // VAI ATE O FINAL DO ARQUIVO
        sLinha = fReadLine(nArquivoid) // LENDO CADA LINHA
        IF sLinha = EOT THEN // SE FOR FIM/ TERMINOU
            BREAK
        ELSE
            IF sLinha[[1]]="1" THEN // SE A PRIMEIRA COLUNA É 1
                TableAddLine(TABLE_Retorno) // ADICIONAR TABELA
                n_contador++ // SOMANDO
                TABLE_Retorno.COL_4_cpf_cnpj_empresa[n_contador]=sLinha[[4 TO 17]] //
                TABLE_Retorno.COL_18_agencia[n_contador]=sLinha[[18 TO 21]]
                TABLE_Retorno.COL_24_conta[n_contador]=sLinha[[24 TO 28]]
                TABLE_Retorno.COL_29_dac[n_contador]=sLinha[[29 TO 29]]
                TABLE_Retorno.COL_63_nosso_numero_titulo[n_contador]=sLinha[[63 TO 70]]
                TABLE_Retorno.COL_109_cod_ocorrencia[n_contador]=sLinha[[109 TO 110]]
                SWITCH TABLE_Retorno.COL_109_cod_ocorrencia[n_contador]
                    CASE "02"
                        TABLE_Retorno.COL_DescricaoOcorrencia[n_contador]="Entrada Confir"
                    CASE "03"
                        TABLE_Retorno.COL_DescricaoOcorrencia[n_contador]="Entrada Rejeitadar"
                    OTHER CASE
                END
                d_data_vencimento is Date
                d_data_vencimento..Day=NumToString(sLinha[[147 TO 148]])
                d_data_vencimento..Month=sLinha[[149 TO 150]]
                d_data_vencimento..Year="20"+sLinha[[151 TO 152]]
                TABLE_Retorno.COL_147_data_vencimento[n_contador]=d_data_vencimento
                TABLE_Retorno.COL_153_valor_titulo[n_contador]=sLinha[[153 TO 165]]
                TABLE_Retorno.COL_153_valor_titulo[n_contador]=TABLE_Retorno.COL_153_valor_titulo[n_contador]/100
            ELSE
            END
        END // IF sLinha = EOT THEN
    END    // LOOP
END // IF nArquivoid<>-1 THEN
TableSort(TABLE_Retorno,"TABLE_Retorno.COL_109_cod_ocorrencia","TABLE_Retorno.COL_325_nome_pagador")
fClose(nArquivoid)
TraceEnd()

TableDisplay(TABLE_Retorno)