Luiz FERNANDO

Members
  • Content count

    92
  • Joined

  • Last visited

  • Days Won

    18

Everything posted by Luiz FERNANDO

  1. 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.
  2. 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
  3. 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
  4. 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.
  5. 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)
  6. Vlw Janio deu certo, não usava o fclose, obg pela ajuda.
  7. 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.
  8. Bom dia , pessoal é possível imprimir todo o conteudo de uma window, tipo um print screen mesmo. Obg
  9. Vlw Fabricio obg, deu certo.
  10. 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
  11. 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
  12. 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.
  13. 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
  14. 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
  15. Minha windev(21) não aceita essa sintaxe, aqui não trabalho com anlysis
  16. Já tinha feito isto, não da certo. Obg
  17. 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
  18. Fabricio vc desconhece bug no controle multizone, perai abrindo um tópico aqui com um bug do controle.
  19. 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
  20. Vlw Vilani, deu certinho.
  21. 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
  22. Pessoal obg pelas respostas, a string da instrução sempre qdo tenho problema uso ToClipboard(sSQLConsulta) e analiso se tem erro, neste caso estava tudo ok, o problema estava na seguinte situação, um pedido de venda com 100 itens por exemplo, eu tinha que pegar o numero do pedido uma unica vez, e não 100 vezes, realmente passou despercebido, com volume pequeno até passava, mais qdo puxava um período maior ocorria isto, mais uma vez vlw pela força de todos, e desculpa de usar o forum por algo que não era sintaxe, e sim logica errada minha. Abs
  23. Jackson em windev se comporta da mesma forma. arrprodutos is array of 1 by 4 ArrayAddLine(arrprodutos, space(6), 0 , "", ctod("") ) Obs: agora se vc não souber o numero de colunas na hora de declarar ela, vc utiliza depois o Dimension(arrprodutos, i, 10) Abs
  24. Colegas como posso ter controle da opção return que já tem nos aparelho android, estou com o seguinte problema, se o vendedor esta digitando um pedido, e sem querer ele aperta o return que fica no aparelho la em baixo, simplesmente fecha a janela do pedido, burlando meus controle de abandonar a tela. Obg:
  25. Nossa que dica maravilhosa, deu certinho, obg Vilani por ter compartilhado. Abs