Luiz FERNANDO

Members
  • Content count

    98
  • Joined

  • Last visited

  • Days Won

    25

Everything posted by Luiz FERNANDO

  1. Pessoal é possível ler o conteúdo de uma TRACE. Obg
  2. Perfeito colega, vou fazer a coisa certa, obg pela sugestão.
  3. Boa tarde, Vilani tenho um sistema no servidor que a cada < n > minutos fica enviando informações a um outro servidor de FTP, tudo é gravado jogado na trace, fica como se fosse um LOG, as vezes fica la semanas direto só acumulando informação, as vezes algum usuário fecha ele, queria nesse momento saber o conteúdo e jogar num banco de dados, logico que posso fazer de outras formas, mais seria mais pratico nesse caso, se tivesse como, mais pelo que vi não tem como, vou criar uma rotina para isso, antes de ir pro trace. Obg
  4. Bom dia, colegas hoje eu troco dados do mobile com o retaguarda via arquivos texto usando transferencia por FTP, minha duvida é se vale a pena em investir em webservice,é mais rápido, mais estável. qual seria a vantagem, ou neste caso é bobeira investir tempo nessa mudança.
  5. Aleluia deu certo, colegas o único detalhe que entre o "Mysql" e a informação da porta do banco de dados , tinha que colocar um parâmetro a mais "" estava fazendo assim gnConexao = SQLConnect(p_endereco, p_usuario, p_senha, p_Banco, "MySQL","Server Port = 3306") o correto é assim gnConexao = SQLConnect(p_endereco, p_usuario, p_senha, p_Banco, "MySQL","","Server Port = 3306") Obg a todos pela ajuda.
  6. Janio muito obg pela força para solucionar o problema, com sua dica agora esta tudo 100% , abs FTPListFile(gnConexao,gsGLO_caminho1+gsVendedor+"/v_*.rem","FTPlistaarquivos",ftpFile) FOR EACH sArquivo OF garrArquivosFTP gbRetornoDownload = FTPGet(gnConexao, gsGLO_caminho1+gsVendedor+"/"+sArquivo , gsGlO_retorno+"/"+sArquivo) bGbRetornoDelFtp = FTPDeleteFile(gnConexao,gsGLO_caminho1+gsVendedor+"/"+sArquivo) END PROCEDURE FTPlistaarquivos(sFileName,nFileSize <useful>,sAttribute,sModifDate <useful>,sModifTime <useful>) ArrayAdd(WIN_sincronizar.garrArquivosFTP, sFileName) RESULT True
  7. vlw Janio Minha versão(21) do android não aceita esse parametro .Add WIN_sincronizar.garrArquivosFTP.Add ( sFileName ) analisando aqui como substituir essa sintaxe
  8. Pessoal sempre qdo faço alguma alteração na estrutura do banco de dados(hfsql) , ao instalar este apk no tablete da a seguinte mensagem. "O aplicativo não está instalado. Um pacote existente com o mesmo nome e uma assinatura conflitante já foi instalado." Daí preciso desinstalar o aplicativo e instalar ele do zero novamente, e fazer isto com vários usuários é muito trabalhoso, alguém teria uma dica do que posso estar fazendo errado. Obg.
  9. Algum colega saberia me dizer pq o comando abaixo não funciona, tenho as pasta certinho, o arquivo esta la, mais não move ele para pasta enviado. bRes is boolean = fMoveFile("C:\empregestor\palm\remessa\V013030006022.rem","C:\empregestor\palm\remessa\enviado\V013030006022.rem") Info(bRes)
  10. Vlw Janio deu certo, não usava o fclose, obg pela ajuda.
  11. Ola Janio, agora que vi aqui, que o problema não está no fMoveFile ou FRename, e sim que o arquivo que preciso remover acabei de salvar ele com o fWriteLine(nARQuIvO,sTrLinha), é como se o sistema tivesse com ele preso, em xharbour sempre qdo crio o arquivo, eu encerro ele com um end, como fazer isto com windev. Obg.
  12. Bom dia , pessoal é possível imprimir todo o conteudo de uma window, tipo um print screen mesmo. Obg
  13. Vlw Fabricio obg, deu certo.
  14. Pessoal obg pelas resposta, via windows posso usar o print screen mesmo e jogar no paint e recordar, estava pensando em algo com recurso do proprio windev, tipo o usuario poder imprimir, mais acho que não tem como fazer isto. Obg
  15. Colega instalei sim, consigo acessar normal, local, remoto, o unico detalhe que tenho um caso aqui aonde a porta não é a padrão 3306, e neste caso, tentei todas dicas acima e não vai. Obg
  16. Fabricio em windev mobile eu uso assim, observe que estamos na sessão de DESKTOP dentro do forum, estou fazendo uns teste aqui, se conseguir algo retorno. Obg.
  17. Agradeço as dicas dos colegas, mais pelo incrivel que parece nenhuma forma da certo,inclusive da erro de sintaxe(fica vermelho) nem aceita compilar, não é a primeira vez que tento fazer isto, aqui não trabalho com analysis de banco de dados, talvez seja isto. Obs: vou analisar como trabalhar com analysis e faezr o teste, retorno aqui assim que eu tiver um posição. Obg a todos
  18. gnConexao = SQLConnect(p_endereco, p_usuario, p_senha, p_Banco, "MySQL","Server Port=3126;") não da erro mais não obedece esse parametro, tipo aqui minha porta é 3306, mesmo colocando 3126 ele acessa normal, embora achei nos help o Server Port, não consigo achar a sintaxe completa com uma situação real, pq as vezes é um detalhe simples de ajuste. Obs: o ponto e virgula no final tentei sem tb
  19. Minha windev(21) não aceita essa sintaxe, aqui não trabalho com anlysis
  20. Já tinha feito isto, não da certo. Obg
  21. Ao criar um multizone via programação tem o seguinte bug codigo que crio meu multizone mlzDeleteAll(MZ_area) WHILE SQLFetch("aSQL") = 0 nSubscript = mlzAddLine(MZ_area) MZ_area[nSubscript].STC_zm_nome = NoSpace(SQLGetCol("aSQL",2)) MZ_area[nSubscript].STC_zm_area = NoSpace(SQLGetCol("aSQL",1)) MZ_area[nSubscript].STC_OS = Val(SQLGetCol("aSQL",4)) i++ END a primeira vez que entro na tela tudo blz https://uploaddeimagens.com.br/imagens/fabricio_1-png a segunda vez observe que ele criar uma linha a mais https://uploaddeimagens.com.br/imagens/fabricio_2-png a terceira vez se cria duas linhas a mais https://uploaddeimagens.com.br/imagens/fabricio_3-png/mostrar-codigo se eu entrar 20 vezes nessa tela, ira criar mais 20 linhas(opções) a mais, mesmo usando mlzDeleteAll(MZ_area) https://uploaddeimagens.com.br/imagens/fabricio_4-png
  22. Fabricio vc desconhece bug no controle multizone, perai abrindo um tópico aqui com um bug do controle.
  23. Bom dia, pessoal com este comando em windev desktop eu pego o numero da versão do sistema, será que teria algo compatível para pegar a versão do apk Static25 = "Versão : "+ExeInfo(exeVersion, "empre-crm.exe") Obg
  24. Vlw Vilani, deu certinho.
  25. Colegas estou com um problema aqui, ao qual não consigo resolver sPedis = "" FOR EACH sRegistro OF arrRegistros IF sRegistro <> "" THEN StringToArray(sRegistro,arrCampos,"|") END sPedis = sPedis+"'"+arrCampos[1]+"'," END sPedis = Left(sPedis,Length(sPedis)-1) sSQLConsulta = "DELETE FROM pedido1 WHERE pedido IN ("+ sPedis +")" <Info("ATÉ AQUI NORMAL")> HExecuteSQLQuery(dsLimparTabela,hQueryDefault,sSQLConsulta) // <NA HORA DE EXCUTAR AQUI SAI DO APK SEM MENSAGEM ALGUMA> <Info("NÃO CHEGA AQUI")> Obg