quarta-feira, 9 de setembro de 2015

Windev - CommandLine - Receber Parametros Fora Executavel






Assista ao Video Sobre Windev Receber Parametros Fora Executavel CommandLine





programa.exe teste1 teste2 teste

// Recebe os parametros de Fora

EDT_recebe_parametro_1 = CommandLine(1)
EDT_recebe_parametro_2 = CommandLine(2)
EDT_recebe_parametro_3 = CommandLine(3)














Windev - Excel Ler e Exportar para Txt



Assista ao Video Sobre Windev Excel Ler e Exportar Para Txt




---------------------------------------------------------------------------------------------------------------
Excel - ler Excel e Grava Tabela e Lista
Excel - Ler e Exportar Para Txt
Excel - Excel e Array
Excel - Ler Tabela e Coloca Excel
Excel - Como Criar Planilha 3 Minutos - Windev 20
----------------------------------------------------------------------------------------------------------------










--------------------------------------- Fonte ---------------------------------------------------------
//--------------------------------------//
//Excel Ler e Exportar Para Txt         //
//Read and Excel Export To Txt          //
//Lire et Excel exportation de txt      //
//Lea y Excel Exportar a Txt            //
//--------------------------------------//

CAM_NoName1..Visible=False

     // monta_arquivo
     // riding file
     // fichier d'équitation
     // archivo de equitación
    
_monta_arquivo is string = ""

     // _nome_arquivo_excel                // nUmero_linhas
     // _name_excel_file                   // number lines
     // _Nom_fichier_excel                 // droites numériques
     // _Nombre_del_archivo de Excel       // líneas de números

_nome_arquivo_excel is int

     // nUmero_linhas
     // number lines
     // Nombre de lignes
     // Las rectas numéricas
    
nUmero_linhas is int

_nome_arquivo_excel = xlsOpen("D:\amarildo\MAURICIO_PEREIRA\Lista Clientes.xls")
          // Aqui estou abrindo o Arquivo Excel
          // Here I am opening Excel File
          // Ici, je suis l'ouverture du fichier Excel
          // Aquí estoy abriendo Archivo Excel
         
IF _nome_arquivo_excel=-1 THEN
    // Se o Arquivo excel for -1 é porque o arquivo nao foi encontrado
    // If the excel file is -1 is because the file was not found
    // Si le fichier Excel est -1 est parce que le fichier n'a pas été trouvé
    // Si el archivo de Excel es -1 se debe a que no se encontró el archivo
    Error(ErrorInfo())
ELSE
    nUmero_linhas=xlsNbRow(_nome_arquivo_excel)
    // Aqui eu verifico quantas linhas existe na planilha excel
    // Here I check how many rows exist in excel spreadsheet
    // Ici, je vérifie le nombre de lignes existent dans excel
    // Aquí puedo comprobar cuántas filas existen en hoja de cálculo Excel
END

i is int = 0
FOR i = 3 TO nUmero_linhas
    // comeco a ler o excel na linha 3 onde eu encontro informacoes e vou ate o numero final de linhas
    // beginning to read excel in line 3 where I find informations and I will until the end number
    //                                                    of lines
    // commençant à lire exceller à la ligne 3 où je trouve des informations et je vais jusqu'à
    //                                                    ce que le numéro de fin de lignes
    // empezando a leer excel en la línea 3 donde encuentro informaciones y lo haré hasta que el
    //                                                           número final de las líneas

    _monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,3)
    _monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,4)
    _monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,1)
    _monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,2)

//    _monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,3),10)
//    _monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,4),60)
//    _monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,1),80)
//    _monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,2),300)
    _monta_arquivo+=["|"]
    _monta_arquivo+=CR   
END

CAM_NoName1..Visible=True

_monta_arquivo+=["|FIM"]
_monta_arquivo+=CR   

fSaveText("D:\amarildo\MAURICIO_PEREIRA\clientes.txt",_monta_arquivo)
     // Aqui estou salvando o Arquivo Texto Gerado
     // Here I am saving the file generated text
     // Ici, je suis d'enregistrer le fichier texte généré
     // Aquí estoy ahorrando el texto del archivo generado    
    
Info("Pronto Arquivo"+CR+"ready archive"+CR+"Archive prêt"+CR+"Listo Archivo")

//-------------------------------------------------------------------------------------------
//_monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,3),10)
//_monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,4),50)
//_monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,1),80)
//_monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,2),300)
//_monta_arquivo+=["|"]

              // Usando o Complete, ele vai deixar as colunas fixas
              // Using complete, it will leave the fixed columns
              // Utilisation complète, il laissera les colonnes fixes
              // Utilizando completa, dejará las columnas fijas

//|90.200-290|(51)3086.6300                                     |Aborgama do Brasil Ltda.                                                        |Av.Indústrias,825-B.São João- POASimone compras@aborgamadobrasil.com.br                                                                                                                                                                                                                                     |
//|90.050-240|(51)3211.4530                                     |Acel Ar Condicionado Ecológico Ltda.                                            |Av.Loureiro da Silva,2001/407-Cidade Baixa-POAacel-rs@terra.com.br                                                                                                                                                                                                                                          |
//|90.550-002|(51)3312.5533                                     |ACP Impressão Digital Ltda.ME                                                   |Av.Benjamin Constant,1460-B.São João-POA graficauniverso@terra.com.br                                                                                                                                                                                                                                       |
//|93.490-315|51 35962309 8416.5120                             |AD Indústria e Comércio de Embalagens Ltda.                                     |Rua dos Carteiros,121-Lomba Grande- NH adembalagens@bol.com.br                                                                                                                                                                                                                                              |
//|91.130-430|(51)3365-0050                                     |A4 Gráfica e Editora Ltda.                    

//-------------------------------------------------------------------------------------------
//_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,3)
//_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,4)
//_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,1)
//_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,2)
//_monta_arquivo+=["|"]

             // Ele gerou mas sem colunas fixas, somente com separador
             // He generated without fixed columns, only with WIN_TABELA
             // Il généré sans colonnes fixes, uniquement avec onglet
             // Generó sin columnas fijas, sólo con pestaña
            
//|90.200-290|(51)3086.6300|Aborgama do Brasil Ltda.|Av.Indústrias,825-B.São João- POASimone compras@aborgamadobrasil.com.br|
//|90.050-240|(51)3211.4530|Acel Ar Condicionado Ecológico Ltda.|Av.Loureiro da Silva,2001/407-Cidade Baixa-POAacel-rs@terra.com.br|
//|90.550-002|(51)3312.5533|ACP Impressão Digital Ltda.ME|Av.Benjamin Constant,1460-B.São João-POA graficauniverso@terra.com.br|
//|93.490-315|51 35962309 8416.5120|AD Indústria e Comércio de Embalagens Ltda.|Rua dos Carteiros,121-Lomba Grande- NH adembalagens@bol.com.br|

//-------------------------------------------------------------------------------------------
//RAZAO_SOCIAL // REASON SOCIAL// RAISON SOCIALE // RAZÓN SOCIAL
//ENDERECO     // address      // adresse        // dirección
//CEP          // zip code     // code postal    // código postal
//TELEFONE     // PHONE        // TÉLÉPHONE      // TELÉFONO
//CNPJ         //


Wx - Exemplo do Google Calendar









http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/539-exemplo-google-calendar/read.awp?hl=google,calendar









// Conexão

ConexaoGoogle isgglConnection

ConexaoGoogle..Email="desenvolvedor@gmail.com.br"

ConexaoGoogle..Password="123"

ConexaoGoogle..ApplicationName="Empresa-03"

IFGglConnect(ConexaoGoogle)=FalseTHEN

Error(ErrorInfo())

END

// Lê o calendário "Comercial" e seus eventos

Calendario isgglCalendar=GglGetCalendar(ConexaoGoogle,"Comercial")

// Altera o primeiro evento

Calendario[1]..Title="Demonstração"

Calendario[1]..EndDate="20121013150"


// Exclui o segundo evento

Delete(Calendario..Event,2)

// Atualiza as alterações

GglWrite(ConexaoGoogle,Calendario)



Windev - Curso - 58/... - Ini - Ler e Gravar



Video - Windev - Curso - 58/... - Ini - Ler e Gravar

http://doc.windev.com/en-US/?3013039
http://doc.windev.com/en-US/?1000003013043&name=iniread_function

Nessa aula vou mostrar como usar arquivos .ini
vamos ler e gravar







//Para Ler

gs_resultado is string = INIRead("ErpMatos", "empresa_nome", "", fCurrentDir()+"\erpmatos.ini")
gs_empresa_padrao is string = INIRead("ErpMatos","empresa_padrao","",fCurrentDir()+"\erpmatos.ini")

//Para gravar
// Agora vou gravar as alteracoes feitas
INIWrite("ErpMatos","empresa_nome",gsEmpresaNome,fCurrentDir()+"\erpmatos.ini")
INIWrite("ErpMatos","empresa_padrao",NumToString(gnEmpresaCodigo),fCurrentDir()+"\erpmatos.ini")
// Agora sempre que eu atualizar uma empresa, vai atualizar meu ini tambem


Blog - Curso Iniciante /1/... - Inicio
Blog - Curso Iniciante /2/... - Menu
Blog - Curso Iniciante /3/... Campos  
Blog - Curso Iniciante /4/... - Duvida/Style
Blog - Curso Iniciante /5/... - Menu
Blog - Curso Iniciante /6/... - Menu 2
Blog - Curso Iniciante /7/... - If / ShellExecute  
Blog - Curso Iniciante /8/... - ReturntoCapture 
Blog - Curso Iniciante /9/... - Info
Blog - Curso Iniciante /10/.. - DateSys - Now
Blog - Curso Iniciante /11/... - Criando Analise Agenda 
Blog - Curso Iniciante /12/... - Menu , Agenda
Blog - curso Iniciante /13/... - HreadSeek  
Blog - curso Iniciante /14/... - For Each - Percorrer Tabela 
Blog - Curso Iniciante /15/... - Query Consultas
Blog - Curso Iniciante /16/... - Tabela Relatorio
Blog - Curso Iniciante /17/... - Relatorio Criando 
Blog - Curso Iniciante /18/... - Relatorio Manual 
Blog - Curso Iniciante /19/.. - Menu Popup
Blog - Curso Iniciante /20/... - Data - Separar dia mes e ano
Blog - Curso Iniciante /21/... - Time - Separar hora/min/seg 
Blog - Curso Iniciante /22/... - Operadores
Blog - Curso Iniciante /23/... - String Igualdade 
Blog - Curso Iniciante /24/... - Switch / Case
Blog - Curso Iniciante /25/... - LOOP 
Blog - Curso Iniciante /26/... - FOR
Blog - Curso /27/... - Extern 
Blog - Curso /28/... - My 
Blog - Curso /29/... Procedures
Blog - Curso /30/... HSave  .. - Inclui Um Registro
Blog - Curso /31/... - Hsave - Altera um Registro
Blog - Curso /32/... - HDelete - Exclui Registro(s)
Blog - Curso /33/... - Relatorio
Blog - Curso /34/... - Dialog 
Blog - Curso /35/... - Input
blog - Curso /36/... - Combox 
Blog - Curso /37/... Combox Tabela 
Blog - Curso /38/... List Box
Blog - Curso /39/... - Analise Agenda/Ligacoes
Blog - Curso /40/... - Rad - Tabela Relacionada Agenda/Ligações
Blog - Curso /41/... - Tabela Relacionada Manual
Blog - Curso /42/... - Dica Tela/Code Separado
Blog - Curso /43/... - Mapa /1..
Blog - Curso /44/... - Mapa /2.. Imprime
Blog - Curso /45/... - Fechar Programa - EndPrograma()
Blog - Curso /46/... - Camera Habilita/Desabilita 
Blog - Curso /47/... - Tabela e Formulario - Configurar Cnpj
Blog - Curso /48/... - Camera - Tirar Uma Foto e Gravar Imagem
Blog - Curso /49/... - Reports e Queies - Instalacao
Blog - Curso /50/... Reports e Queies - Relatorio - Como Gerar 
Blog - Curso /51/... Pedidos/Orcamento 1/... Analise
Blog - Curso /52/... Pedidos/Orcamento 2/.. Analise Windev
Blog - Curso /53/... Pedidos/Orcamento 3/... Relacionamento
Blog - Curso /54/... Pedidos Orcamento 4/... Rad
Blog - Curso /55/... Pegar Quantidade e Codigo - Separador * 
Blog - Curso /56/... Pegar Retorno de Uma Tabela e colocar Campo 
Blog - Curso /57/... Xml - Ler Conteudo Tags e Importar Pedido
Blog - Curso /58/... Ini - Ler e Gravar 
Blog - Curso /59/... Pedidos Orcamento 5/... Inicio Digitacao Pedido
Blog - Curso /60/... Pedidos Orcamento 6/... Digitando Iten Pedido
Blog - Curso /61/... Pedidos orcamento 7/... Gravando Pedido e Itens   
Blog - Curso /62/... Pedido Orcamento 8/... Consulta cliente  
Blog - Curso /63/... Tabela - Ancorar Coluna
Blog - Curso /64/... Tabela - Esconder ou Mostrar Coluna  
Blog - Curso /65/... RSS 
Blog - Curso /66/... Pedido Orcamento 9/... Consulta MaterialBlog - Curso /67/... Tabelas, Control F Pesquisa Toda Tabela /Contenha/Cor Fundo
Blog - Curso /68/... Pedidos Orcamento 10/... Planos - Condições Pagamento 
Blog - Curso /69/... - Calculadora dentro do Campo Valor 
Blog - Curso /70/... Mapa - Itinerario
Blog - Curso /71/... Tabela - Alterar Nome Coluna
Blog - Curso /72/... Botal Fazer Menu popup 
Blog - Curso /73/... Debug - Como Usar
Blog - Curso /74/... Tabela Alinhar Coluna Lado Esquerdo 
Blog - Curso /75/... Pedidos Orcamento 11/... Quantidade /Mascara/Mudar
Blog - Curso /76/... YesNo - Pergunta Se Deseja Eliminar 
Blog - Curso /77/... Select - Case - Query
Blog - Curso /78/... Pedido/Orcamento 12/... - Analise Cond.Pagto
Blog - Curso /79/... Campos - Como Alterar configuracao via Codigo
Blog - Curso /80/... Pedido/Orcamento 13/... - Tabela,Gerar Condicoes/Parcelas
Blog - Curso /81/... Configuracao Trocar Exe para Wdl ou outro 
Blog - Curso /82/... Utilitarios - PopUp - Aumento Precos Materiais 
Blog - Curso /82/... TableEnableFilter - Digita Nome e Filtra 
Blog - Curso /83/... TableEnableFilter - Digita Nome e Filtra 
Blog - Curso /84/... Dica Copiar Colar Texto Ou Imagen Pdf
Blog - Curso /85/... SElect Como Usar Wizard 
Blog - Curso /86/... Radio - Colocar tudo Mesma Linha
Blog - Curso /87/... Procedure - Melhoria Versao20 - Parametros
Blog - Curso /88/... Style - Tabela Como Alterar
Blog - Curso /89/... Style - Tab Como Alterar
Blog - Curso /90/... Pedido/Orcamento 14/... - Style - Mudando Botao Procura
Blog - Curso /91/... - Pedido/Orcamento 15/... - Pedido - Totalizar Colunas Tabela
Blog - Curso /92/... Backup - Hyperfile 
Blog - Curso /93/... Debug - STOP 
Blog - Curso /94/... Tabela - Alterar Cor da Coluna - Texto
Blog - Curso /95/... Select Max - Pegar o Numero Proxima Nota 
Blog - Curso /96/... Tabela Divisao de Muitas Colunas 
Blog - Curso /97/... Analise - Configurar Campo para Vir Automatico Combox 
Blog - Curso /98/... Tabela - Double click - Entrar direto Alteração do Cliente 
Blog - Curso /99/... Tabela MultiSeleção
Blog - Curso/100/... Tabela - TableMoveLine - Move Linha Baixou ou Cima
Blog - Curso/101/... TableAjust - Ajustar Tabela com Colunas
Blog - Curso/102/... TableSort - Ordem nas Colunas

 

Windev Mobile - 30/... Pdf - Ler Pdf direto do Aparelho Android - Final













Video - Windev Mobile - 30/... Pdf - Ler Pdf direto do Aparelho Android - Final


Nessa aula continuanando sobre pdf, faltou eu acrescentar um arquivo zip que veio
junto com o exemplo














//Click BTn_LerPdf
strMonpdf est une chaîne ="http://www.amarildomatos.com.br/clientes_arquivos/Contrato.pdf"
mostra_pdf("HTML1",strMonpdf,intModeSVG)



PROCEDURE mostra_pdf(s_nome_html is string,sNome_pdf is string,modeSVG=Vrai)
                                                              // recoloquei aqui
                                                             
fDelete(CompleteDir(fRepExe())+"TMPPDF_*.pdf") //fSupprime(ComplèteRep(fRepExe())+"TMPPDF_*.pdf")
nomfic is string="TMPPDF_"+DateSys()+HeureSys()+sNome_pdf+".pdf"
tmpPDf is string=CompleteDir(fRepExe())+""+nomfic // est une chaîne

SI EnModeAndroid()  ET PAS EnModeTest ALORS
    //est-ce que les ressources de gestion pdf sont bien présentes ?
    SI PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.html") OU PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.js") ALORS
        fExtraitRessource("WD_pdfjs2.zip",fRepExe())
        SI fFichierExiste(ComplèteRep(fRepExe())+"WD_pdfjs2.zip") ALORS
            //decompactage de la ressource
            myarch est un entier=zipOuvre("archpdf",ComplèteRep(fRepExe())+"WD_pdfjs2.zip")
            SI myarch=0 ALORS
                zipExtraitTout("archpdf",ComplèteRep(fRepExe()))
                zipFerme("archpdf")
            FIN
        FIN
    FIN
    SI PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.html") OU PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.js") ALORS
        //aucun display possible, les ressources sont absentes.
        //retour      
    FIN
    activerjavascript(s_nome_html)
FIN
SI Gauche(sNome_pdf,4)="http" ALORS
    //1 recuperer le fichier en local avant ouverture
    SI HTTPRequête(sNome_pdf) ALORS
        fSauveTexte(tmpPDf,HTTPDonneRésultat(httpRésultat))
    FIN
SINON
    fCopieFichier(sNome_pdf,tmpPDf)
FIN
bLocalDebug est un booléen=Vrai
SI EnModeTest() ALORS
    //{nomchamp,indchamp}=strMonpdf
    //test avec localhost
    //    si localDebug alors
    //        fCopieFichier(ComplèteRep(fRepExe())+"web\viewersvg.html","c:\wamp\www\pdfjstest\web\viewersvg.html")   
    //        fCopieFichier(ComplèteRep(fRepExe())+"web\viewersvg.js","c:\wamp\www\pdfjstest\web\viewersvg.js")   
    //        nomfic est une chaine="test.pdf"+datesys+heuresys
    //       
    //        fCopieFichier(tmpPDf,"c:\wamp\www\pdfjstest\web\"+nomfic)
    //       
    //        testurl est une chaine="http://localhost/pdfjstest/"+"web/viewersvg.html?url="+"./"+nomfic+"&ti="+datesys+heuresys
    //        //{nomchamp,indChamp}=testurl
    //        LanceAppliAssociée(testurl)
    {s_nome_html,indChamp}=sNome_pdf
SINON
    myurl est une chaîne
    SI modeSVG ALORS
        myurl="file://"+ComplèteRep(fRepExe)+"viewersvg.html?url="+"./"+nomfic+"&ti="+DateSys+HeureSys
    SINON
        myurl="file://"+ComplèteRep(fRepExe)+"viewer.html?url="+"./"+nomfic+"&ti="+DateSys+HeureSys
    FIN
    {s_nome_html,indChamp}=myurl
FIN



//java Global procedure activerjavascript
import android.webkit.WebView;
public static void activerjavascript(String nomchamp)
{
    WebView mywebview=(WebView) getView(nomchamp);
    mywebview.getSettings().setJavaScriptEnabled(true);
}




Blog - Windev Mobile - Instalaca - Android 1/...
Blog - Windev Mobile - Instalacao - Java 2/...
Blog - windev Mobile - MyExplorer 3/...
Blog - Windev Mobile - Android - Configurar Ansi 5/...
Blog - Windev Mobile - Layout - 6/.... 
Blog - Windev Mobile - Target_Code - 8/...
Blog - Windev Mobile - Agenda Cadastrar - 9/...
Blog - Windev Mobile - Agenda Mostrar - 10/...
Blog - Windev Mobile - Agenda Alterar - 11/...
Blog - Windev Mobile - Agenda Excluir - 12/...
Blog - Windev Mobile - HyperFile Error - 13/...
Blog - Windev Mobile -Tirar Foto - 14/... 
Blog - Windev Mobile - Pegar Foto Album - 15/...
Blog - Windev Mobile - hyperfil server - Acessar Rede/Could - Parte - 16/...
Blog - Windev Mobile - Query - Criar Consulta - Looper - Parte 17/...
Blog - Windev Mobile - Query - Tabela - Parte 18/...
Blog - Windev Mobile - Query - Filtro Acrescentar - Parte 19/...
Blog - Windev Mobile - Email - Parte 20/...
Blog - Windev Mobile - Analise Bolo Receita a/.. - Parte 21/...
Blog - Windev Mobile - Analise Bolo Receita b/... - Parte 22/...
Blog - Windev Mobile - Receita Bolo c/.. - Menu/Layout - Parte 23/...
Blog - Windev Mobile - Receita Bolo d/.. - Categoria - Parte 24/...
Blog - Widnev Mobile - Receita bolo e/.. - Categoria Altera/Exclui - Parte 25/...
Blog - Windev Mobile - 26/... - Receita Bolo - Combox Categoria
Blog - Windev Mobile - 27/.. - Receita Bolo - Tabela Bolo
Blog - Windev Mobile - 28/... - Xml - Retirar Conteudo Blog - Funcao
Blog - Windev Mobile - 29/... - Pdf - Ler Pdf Direto do Aparelho Android 
Blog - Windev Mobile - 30/... - Pdf - Ler Pdf Direto do Aparelho Android - Final 
Blog - Windev Mobile - 31/... - Looper - Criar Manual e Selecionar Informação
Blog - Windev Mobile - 33/.. Xml - Ler turmas e Mostrar Looper   
Blog - Windev Mobile - 35/... - Looper Mostrar Todos Dados Alunos  
Blog - Windev Mobile - 36/... - Looper Turma Mostra direto Alunos 
Blog - Windev Mobile - 37/... - Looper - Pegando Pelo WebService  
Blog - Windev Mobile - 38/... - Windows  - Mudar o Nome doTitulo 
Blog - Windev Mobile - 39/... - Xml - Ler Posicao Inicial/Final - turmar Alunos  
Blog - Windev Mobile - 40/... - Xml - Ler Posicao Inicial/final/Especialidade/Refeito Funcao  

Teste

Teste
teste