quinta-feira, 25 de fevereiro de 2021

DICAS 3271 - WINDEV_WEBDEV_MOBILE - ArrayUnion e ArrayUnionAll - União de dois array - NOVIDADES - INDICE 33





https://youtu.be/kjj7S7gfzbQ



Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

Esse Video vai estrear as XX:00 do dia 25/02/2021
Esse video sera exibido bem cedo do dia 25 02  

DICAS 3271 - WINDEV_WEBDEV_MOBILE - ArrayUnion e ArrayUnionAll - União de dois array - NOVIDADES - INDICE 33


https://windevdesenvolvimento.blogspot.com/2021/02/dicas-3271-windevwebdevmobile.html
https://doc.windev.com/en-US/?1000025334&name=arrayunion_function
https://doc.windev.com/en-US/?1000025403&name=arrayunionall_function


ASSUNTOS


novidade versao 26 
vou mostrar arrayUnion e arrayUnionAll
ele retorna um array correspondente a união de dois array 
o ArrayUnion, elimina a duplicidade
o ArrayUnionAll , nao elimina 
Vamos entrar na janela - windows array 
vamos criar dois botoes, um para arrayUnion e outro para arrayUnionAll 
vamos entrar no codigo do botao arrayUnion e fazer o codigo
vamos entrar no codigo do botao arrayUnionAll e fazer o codigo
depois de gerar cada codigo vamos gerar a tabela em cima do array e ver a diferenca 


----------

// Criando primeiro array

arrPrimeiroarray is array of string 
arrPrimeiroarray.Add("amarildo")
arrPrimeiroarray.Add("joao")
// criando segundo array
arrSegundoarray is array of string 
arrPrimeiroarray.Add("joao")
// Unindo os dois Array
arrUnindo_array is array of string 
arrUnindo_array = ArrayUnion(arrPrimeiroarray,arrSegundoarray)
//agora vamos ler nosso array e criar a tabela
TABLE_array.DeleteAll()
FOR EACH ELEMENT nLINHA OF arrUnindo_array

TableAddLine(TABLE_array,nLINHA)

END


--------------

// Criando primeiro array
arrPrimeiroarray is array of string 
arrPrimeiroarray.Add("amarildo")
arrPrimeiroarray.Add("joao")
// criando segundo array
arrSegundoarray is array of string 
arrPrimeiroarray.Add("joao")
// Unindo os dois Array
arrUnindo_array is array of string 
arrUnindo_array = ArrayUnionAll(arrPrimeiroarray,arrSegundoarray)
//agora vamos ler nosso array e criar a tabela
TABLE_array.DeleteAll()
FOR EACH ELEMENT nLINHA OF arrUnindo_array

TableAddLine(TABLE_array,nLINHA)

END




------------------ INDICE DO CURSO DE ARRAY e ESTRUTURA


WinDev - Array - 001/... Adiciona/Classifica Ordem/Mostra
WinDev - Array - 002/... Quantas Ocorrencias Array
WinDev - Array - 003/... ArrayDeleteLine - Eliminha uma Linha do Array
WinDev - Array - 004/... ArrayToString - Leva Array Para String
WinDev - Array - 005/... Seek - Procura Por Valor
WinDev - Array - 006/... ArrayDeleteDuplicate - Elimina itens duplos
WinDev - Array - 007/... Delete - Elimina Uma Linha
WinDev - Array - 008/... DeleteAll - Limpa Array
WinDev - Array - 009/... SwapLine - Mover de Lugar
WinDev - Array - 010/... Sum - Somar Array
ARRAYREVERSE - ARRAY - 011/ ... AULA 1185 
ARRAY INICIO - ARRAY 012 / AULA 1229


--------------------------- INDICIES NOVIDADES VERSAO 26



PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 

















quarta-feira, 24 de fevereiro de 2021

DICAS 3270 - WINDEV_WEBDEV_MOBILE - ArrayDistinct - NOVIDADES - INDICE 32



https://youtu.be/kWy4wBQ1UdE








Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

Esse Video vai estrear as XX:00 do dia 24/02/2021 

DICAS 3270 - WINDEV_WEBDEV_MOBILE - ArrayDistinct - RETORNA SEM DUPLICIDADE - NOVIDADES - INDICE 32


ASSUNTOS


novidade versao 26 

ArrayDistinct - RETORNA SEM DUPLICIDADE 
VAMOS CRIAR UMA JANELA - WINDOWS ARRAY 
VAMOS CRIAR UM BOTAO PARA CRIAR O CODIGO DO ARRAY 
VAMOS CRIAR UMA TABELA PARA MOSTRAR O ARRAY SOMENTE DOS NAO REPETIDOS
VAMOS ENTRAR NO CODIGO DO Botao
VAMOS FAZER O CODIGO DO ARRAY, INSERINDO VARIOS NUMEROS
VAMOS FAZER O COMANDO PARA DEIXAR SOMENTE OS NAO REPETIDOS 
VAMOS ADICIONAR A ARRAY NA TABELA 

--------------- CODIGO EXEMPLO

arrAy_numeros is array of int 
ArrayAdd(arrAy_numeros,1)
ArrayAdd(arrAy_numeros,2)
ArrayAdd(arrAy_numeros,3)
ArrayAdd(arrAy_numeros,1)
ArrayAdd(arrAy_numeros,2)
ArrayAdd(arrAy_numeros,4)
ArrayAdd(arrAy_numeros,10)
ArrayAdd(arrAy_numeros,4)

// criei um array com varios numeros

arrAysemduplicidade is array of int 
arrAysemduplicidade = ArrayDistinct(arrAy_numeros)

//agora vamos ler nosso array e criar a tabela

TABLE_array.DeleteAll()

FOR EACH ELEMENT nLINHA OF arrAysemduplicidade
TableAddLine(TABLE_array,nLINHA)
END


------------------ INDICE DO CURSO DE ARRAY e ESTRUTURA


WinDev - Array - 001/... Adiciona/Classifica Ordem/Mostra
WinDev - Array - 002/... Quantas Ocorrencias Array
WinDev - Array - 003/... ArrayDeleteLine - Eliminha uma Linha do Array
WinDev - Array - 004/... ArrayToString - Leva Array Para String
WinDev - Array - 005/... Seek - Procura Por Valor
WinDev - Array - 006/... ArrayDeleteDuplicate - Elimina itens duplos
WinDev - Array - 007/... Delete - Elimina Uma Linha
WinDev - Array - 008/... DeleteAll - Limpa Array
WinDev - Array - 009/... SwapLine - Mover de Lugar
WinDev - Array - 010/... Sum - Somar Array
ARRAYREVERSE - ARRAY - 011/ ... AULA 1185 
ARRAY INICIO - ARRAY 012 / AULA 1229

--------------------------- INDICIES NOVIDADES VERSAO 26






ArrayDistinct (função)
Em francês: TableauDistinct
Retorna uma matriz sem duplicatas.
As seguintes matrizes podem ser manipuladas:
  • Array unidimensional de elementos simples (int, real, string).
  • Matriz unidimensional de estruturas. As duplicatas são excluídas de acordo com o valor de um ou mais membros.
Exemplo
// Primeiro array de inteiros
arrMyArray1 is array of int
ArrayAdd(arrMyArray11)
ArrayAdd(arrMyArray12)
ArrayAdd(arrMyArray11)
ArrayAdd(arrMyArray13)
 
// array "Distinto"
arrMyDistinct is array of int
arrMyDistinct = ArrayDistinct(arrMyArray1)
// o resultado é 1; 2; 3
Sintaxe
<Result> = ArrayDistinct(<WLanguage array>)
<Result>: Array
Variável de matriz que contém a matriz sem duplicatas.
<WLanguage array>: Array
Nome da variável Array a ser usada. Esta matriz deve ser uma matriz unidimensional.

PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 












terça-feira, 23 de fevereiro de 2021

DICAS 3269 - WINDEV_MOBILE - COMO CRIAR COMBOX POR PROGRAMACAO E RECUPERAR VALOR - ANDROID - PERGUNTAS E REPOSTAS 30



https://youtu.be/t3g7SE2Ybdw



Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

Esse Video vai estrear as 19:00 do dia 23/02/2021 


DICAS 3269 - WINDEV_MOBILE - COMO CRIAR COMBOX POR PROGRAMACAO E RECUPERAR VALOR - ANDROID - PERGUNTAS E REPOSTAS 30



ASSUNTOS


MOSTRANDO O SELECT QUE SERA UTILIZADO NA COMBOX
CRIANDO A COMBOX POR PROGRAMACAO
CRIANDO O CODIGO PARA CRIAR A LISTA DE REPRESENTANTE NA COMBOX 
MOSTRAR O CODIGO DO REPRESENTANTE QUANDO SELECIONA A COMBOX 
EXECUTAR O PROGRAMA 



==================== CODIGO 
========================= SELECT UTILIZADO

SELECT
representante.id_empresa_representante AS id_representante,
representante.nome AS nome_representante,
representante.email AS email,
representante.telefone AS telefone,
representante.endereco_cidade AS cidade,
representante.endereco_uf AS uf
FROM
representante
WHERE
    representante.nome LIKE %{parametro_nome_qualquer}%
ORDER BY
representante.nome


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

PROCEDURE codigo_combox_representante()
COMBO_representante_relacao.DeleteAll()
ListAdd(COMBO_representante_relacao,"TODOS"+gLink(0))

HExecuteQuery(QRY_representante_relacao,hQueryDefault)
FOR EACH QRY_representante_relacao 
ListAdd(COMBO_representante_relacao,(QRY_representante_relacao.nome_representante)+gLink(QRY_representante_relacao.id_representante))
END

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

Info(COMBO_REPRESENTANTE..StoredValue) // AQUI O CODIGO GLINK SERA MOSTRADO- QUE SERI O CODIGO DO REPRESENTATNE

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



=============== INDICE PERGUNTAS E RESPOSTA



========= INDICE MOBILE



-------------------------- INDICE CURSO COMBOX


WinDev - Combox - 001/... Preencher Manualmente e Eliminar
WinDev - Combox - 002/... Selecionar Combox
WinDev - Combox - 003/... Combox Editavel
WinDev - Combox - 004/... Combox - Ordem/Sort
WinDev - Combox - 005/... Combox Glink
WinDev - Combox - 006/... Selecione Linha Automatico - custom row
WinDev - Combox - 007/... ComboOpen e ComboClose
Adiciona Combox Manualmente - Combox 008 AULA 1258

PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 












domingo, 21 de fevereiro de 2021

DICAS 3268 - WINDEV_MOBILE - COMO GERAR PDF E MANDAR EMAIL ANDROID - PERGUNTAS E REPOSTAS 29



Bom Dia Boa Tarde Boa Noite



https://youtu.be/PpJ0TY5w6nw



Esse Video vai estrear as XX:00 do dia 22/02/2021 

DICAS 3268 - WINDEV_MOBILE - COMO GERAR PDF E MANDAR EMAIL ANDROID - PERGUNTAS E REPOSTAS 29


ASSUNTOS

COMO GERAR PDF E MANDAR EMAIL ANDROID
ENTRANDO NA WINDOWS TRANSPORTADORA
CRIANDO BOTAO IMPRIMIR
ENTRANDO NO CODIGO BOTAO IMPRIMIR
CRIANDO UM DIRETORIO
DANDO DESTINO NA IMPRESSORA PARA PDF, E O CAMINHO MAIS O ARQUIVO
CRIANDO O RELATORIO MANUALMENTE
LENDO A QUERY TRANSPORTADORA COM SELECT 
FAZENDO OUTRA OPCAO COM COMANDOS WL COM FOR EACH 
FINALIZANDO O RELATORIO 
CHAMANDO COM SHELLEXECUTE PARA ABRIR O PDF 
MANDANDO O EMAIL COM O PDF ANEXADO 

============== CODIGO


// btn imprimir transportadora

nSTATUS is int=SysStatusStorageCard()
IF nSTATUS=sysCardAvailable THEN
sDIRETORIO is string
sDIRETORIO = SysDirStorageCard()+"/diretorio_amarildo"
IF fDirectoryExist(sDIRETORIO) THEN
ELSE
   bRetorno is boolean=fMakeDir(sDIRETORIO)
   IF bRetorno=True THEN
   ELSE
       Info(ErrorInfo(errFullDetails))
   END  
END
//imprimir relatorio
sNome_arquivo is string=sDIRETORIO+"/arquivo.pdf"
iDestination(iGenericPDF,sNome_arquivo)
iPrint("Relatorio de Transportadora")
iPrint("")
iPrint(iXPos((1)+"Codigo"+iXPos(18)+"Nome"))
iPrint("")
HExecuteQuery(QRY_transportadora_relacao,hQueryDefault)
FOR EACH QRY_transportadora_relacao 
iPrint(iXPos(1)+QRY_transportadora_relacao.id_empresa_transportadora+iXPos(18)+QRY_transportadora_relacao.razao_social)
END
// //se voce quizer usar o comando wl
//
// for EACH transportadora 
// iPrint(iXPos(1)+transportadora.id_empresa_transportadora+iXPos(18)+transportadora.razao_social)
// END

    iEndPrinting()
    ShellExecute(sNome_arquivo)
    
    // vamos mandar o email

    email.Recipient[1]="amarildo.matos@gmail.com"
    email.NbRecipient=1
    email.Subject="Assunto"
    email.Message="Minha Mensagem"
    email.Attach[1]=sNome_arquivo
    email.NbAttach=1
    EmailRunApp()
    
    // final imprimir gerar pdf e mandar email
    
ELSE
Info("nao gerou pdf")
    
END

====================
SELECT
transportadora.id_empresa_transportadora AS id_empresa_transportadora,
transportadora.razao_social AS razao_social,
transportadora.nome_fantasia AS nome_fantasia,
transportadora.telefone AS telefone,
transportadora.cnpj AS cnpj,
transportadora.id_transportadora AS id_transportadora
FROM
transportadora
WHERE 
    transportadora.razao_social LIKE %{parametro_nome_qualquer}%
ORDER BY
transportadora.razao_social

=============== INDICE PERGUNTAS E RESPOSTA



========= INDICE MOBILE


=============== INDICE CURSO DE RELATORIOS

Blog - WinDev - Relatorio - 001/... Configura e Filtro
Blog - WinDev - Relatorio - 002/... IParameterReport
Blog - WinDev - Relatório - 003/... Marca D´Agua
Blog - WinDev - Relatorio - 004/... Layout 
Blog - WinDev - Relatorio - 005/... Campo Vertical - Angle 
Blog - WinDev - Relatorio - 006/... Como fazer quando sai duas paginas? 
Blog - WinDev - Relatorio - 007/... Imprimir Linha Multi Line
Blog - WinDev - Relatorio - 008/... Relatorio Valor Zero deixar Branco
Blog - WinDev - Relatorio - 009/... Relatorio Alinhar Texto 
Blog - WinDev - Relatorio - 010/... Colocar Totalizador
Blog - WinDev - Relatorio - 011/... Imprime Somente os Selecionados ou Todos da Tabela 
Blog - WinDev - Relatorio - 012/... Break e totalizadores de valores
Blog - WinDev - Relatorio - 013/... Retorno de Relatorio - Result 
Blog - WinDev - Relatorio - 014/... Zerar Totalizador  
Blog - WinDev - Relatorio - 015/... Relatorio - Totalmente Manual
Blog - WinDev - Relatorio - 016/... Linha Zebrada
Blog - WinDev - Relatorio - 017/... Posicoes do Relatorio Alterar
Blog - WinDev - Relatorio - 018/... Alterar Fonte
Blog - WinDev - Relatorio - 019/... Linha Acrescentar
Blog - WinDev - Relatorio - 020/... Relatorio - Gerar Pdf
Blog - WinDev - Relatorio - 021/... Filtro
Blog - WinDev - Relatorio - 022/... Pagina Inicial/Final - Data Hora
Blog - WinDev - Relatorio - 023/... Pular Página Break - IpageEnd()
Blog - WinDev - Relatorio - 024/... Imprimir Tabela com TablePrint
Blog - WinDev - Relatorio - 025/... Relatorio Mudar Orientação
Blog - WinDev - Relatorio - 026/... Mostrar impressoras/Selecionar e Imprimir
Blog - WinDev - Relatorio - 027/... IDestination - Destino do Relatorio
Blog - WinDev - Relatorio - 028/... Iprint - Relatorio Manual
Blog - WinDev - Relatorio - 029/... Dica Tabela e print
Blog - WinDev - Relatorio - 030/... Totalizadores
Blog - WinDev - Relatorio - 031/... Caption Mudar
Blog - WinDev - Relatorio - 032/... Intervalo Bancos
Blog - WinDev - Relatorio - 033/... Manual Linha - IHLine
Blog - WinDev - Relatorio - 034/... Borda - Iborder
Blog - WinDev - Relatorio - 035/... IPageNum
Blog - WinDev - Relatorio - 036/... Numero Com Espaco
Blog - WinDev - Relatorio - 037/... Fonte Seleciona - ISelectFont -
Blog - WinDev - Relatorio - 038/... Linha Mais de 2 - Mais informacoes no Campo
Blog - WinDev - Relatorio - 039/... Copias - IParameter - Icopies
Blog - WinDev - Relatorio - 040/... Pdf - Ler e Extrair Texto
Blog - WinDev - Relatorio - 041/... Imprimir Numero 000.001.500
Blog - WinDev - Relatorio - 042/... IListPrinter - Mostra Impressoras e Lista
Relatorio Inventario com Query - Relatorio 043/...
Relatorio - Sem Template - Dica Pedrosão - Relatorio - 044
Titulo Cabecalho - Alterar - WinDev - Relatorio - 045
Totais - Colocar Totais Abaixo ultima Linha Detalhe - WinDev - Relatorio - 046
Relatorio String Angulo 90% - WinDev - Relatorio - 047/...
Links Pagina e Email no Relatorio - WinDev - Relatorio - 048
PREVIEW TRADUZIR - WINDEV - RELATORIO - 049 - AULA 1211
TABELA E RELATORIO - COMO FAZER - RELATORIO 050 - AULA 1223
MANUAL - RELATORIO TOTALMENTE MANUAL - WINDEV RELATORIO 051 - AULA 1224
MEMORIA RELATORIO - AULA 1257 relatorio 052 tabela memoria
TOTAL BREAK - DICAS 1711 - PUBLICA - WINDEV RELATORIO 053 
GERAR PDF - DICAS 1889 - PUBLICA - WINDEV_23 - RELATORIO 54 - 
DICA 2150 - HANGOUT AO VIVO 10 06 2019 AS 19:00 - MOSTRAR CONSULTORIA COm joao sobre relatorios de como criar
DICAS 2151 WINDEV WEBDEV MOBILE RELATORIOS 59 CONSULTORIA JOAO 08062019
DICAS 2152 WINDEV WEBDEV MOBILE RELATORIOS 60 TOTAL RELATORIO
DICAS 2193 WINDEV WEBDEV MOBILE RELATORIO 61 IPREVIEW iMiniPreview
DICAS 2597 - WINDEV WEBDEV MOBILE - Relatorio 62 - Como eu Fiz Danf no Windev.
AO VIVO FACEBOOK - 2882 20:00 - 06/05/2020 - RELATORIOS COM TABELAS WINDEV
2885 RELATORIO SQL WINDEV TRASMITIDO FACEBOOK ERPAMARILDO
DICA 2912 PREVIEW PORTUGUES WINDEV


PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 












Teste

Teste
teste