• advertisement_alt
  • advertisement_alt
  • advertisement_alt

Luiz FERNANDO

Members
  • Content count

    92
  • Joined

  • Last visited

  • Days Won

    18

Everything posted by Luiz FERNANDO

  1. Pessoal sempre fiz Download de arquivo txt por FTP, mais sempre era arquivos com nomes fixo, da forma abaixo funciona perfeito gbRetornoDownload = FTPGet(gnConexao, gsGLO_caminho1+gsVendedor+"/cliente.rem" , gsGlO_retorno+"cliente.rem") bGbRetornoDelFtp = FTPDeleteFile(gnConexao,gsGLO_caminho1+gsVendedor+"/cliente.rem") mais agora estou com uma situação que a unica que sei que os arquivos começa com v_*.rem, e podem ser varios, usando a forma abaixo funciona certo no emulador e tb na windev desktop, porem direto no aparelho , ele consegue apagar o arquivo do ftp, porem fazer download pro aparelho não. FTPListFile(gnConexao,gsGLO_caminho1+gsVendedor+"/v_*.rem","FTPlistaarquivos",ftpFile+ftpDirectory) PROCEDURE FTPlistaarquivos(sFileName,nFileSize <useful>,sAttribute,sModifDate <useful>,sModifTime <useful>) nResultado is int bGbRetornoDelFtp is boolean gbRetornoDownload is boolean gbRetornoDownload = FTPGet(WIN_sincronizar.gnConexao, gsGLO_caminho1+gsVendedor+"/"+sFileName , gsGlO_retorno+sFileName) bGbRetornoDelFtp = FTPDeleteFile(WIN_sincronizar.gnConexao,gsGLO_caminho1+gsVendedor+"/"+sFileName) RESULT True se alguém tiver uma forma diferente de se fazer isto, realmente estou deste ontem em cima disto sem conseguir solucionar, lembrando que no emulador, e tb na windev desktop funciona normal. Obg
  2. Pessoal eu ainda não uso Analysis de banco de dados, a unica forma que sei dar um select seria dessa forma sS_CmdSQL = [ SELECT p.codigo,p.descricao,p.valor,p.tipo,p.valor2,p.volume,p.embalage ,p.custo,p.grupo,p.mini1,'',p.multiplico,p.desc_max1,ifnull(p.kilo,'0'),ifnull(p.preco_kilo,'0') ,p.marca,p.iva_in,iva_ex FROM produto as p WHERE ifnull(p.desativa1,'0')<>'1' AND ifnull(p.desativa5,'0')<>'1' ] IF SQLExec(sS_CmdSQL,"aSQL")=False THEN SQLInfo("aSQL") sS_Mensagem=SQL.MesErreur Info(sS_Mensagem) SQLClose("aSQL") RETURN END WHILE SQLFetch("aSQL") = 0 // aqui irei percorrer meu resultado do select END estou com uma situação aqui aonde preciso percorrer mais N vezes esse resultado, mais o WHILE SQLFetch("aSQL") = 0 só funciona uma unica vez, a segunda ele nem entra dentro do WHILE, alguém saberia me dizer como faço para setar ele no inicio novamente. Obg
  3. Pessoal funcionou aqui 100%, meu problema que no primeiro WHILE estava insistindo em usar SQLFetch("aSQL") = 0, só depois no segundo que estava fazendo conforme a dica do nathanreys , a partir de agora somente irei usar o WHILE SQL.Out = False não terei mais problema nesse sentido, pq usando SQLFetch("aSQL") ele realmente zera o conteúdo. Obg a todos pelo ajuda.
  4. Cassiano vc esta usando Analysis de banco de dados ? vc primeiro mandou percorrer com WHILE SQLFetch("aSQL") = 0 eu copie e colei o código dele no meu projeto, não entra no while no segundo WHILE
  5. Nathanreys acredito que tenha algum bug nisso, tudo que vc mencionou acima eu já fiz, a unica coisa que não fiz , e não sei como fazer é pegar "o retorno do SQLFetch em uma variável e ver qual o valor que ela retorna" nContador is int nContador=1 WHILE SQLFetch("aSQL") = 0 IF nContador=1 Info("Entra aqui normal") END nContador++ END SQLFirst("aSQL") WHILE SQLFetch("aSQL") = 0 Info("Não entra aqui ") END
  6. Cassiano eu joguei numa array uma outra vez, na situação agora são 45 campos, antes de ter todo este trabalho de alimentar a array, resolvi postar aqui antes, pois se o resultado esta la dentro de "aSQL" não faz muito sentido não poder usar ela mais de uma vez.
  7. Cassiano já fiz isso, não da certo.
  8. Pessoal alguém saberia me ajudar nessa sintaxe, a windev não aceita o chr(10) Replace(TABLE_vendas.COL_Razao, chr(10), "") em xharbour eu fazia dessa forma wLin+=strtran(aCliente[i,2], chr(10), "" )+'|' obg
  9. Com o comando abaixo faço uma busca dentro de uma array, funciona blz, mais estou com uma situação aqui aonde preciso comparar dois campos, algum colega teria a sintaxe. nResultado = ArraySeek(arrvendedores,asLinear,1,TABLE_vendedor.COL_codigo)
  10. Cassiano exatamente isto, vlw pela ajuda, essa sintaxe sera muito útil aqui.
  11. Dentro de minha array preciso localizar um registro, mais este busca precisa se de dois campos somente um exemplo arrvendedores[2,1]="MARCO" arrvendedores[2,2]="17/02/2020" arrvendedores[2,3]="MOCOCA" preciso fazer um busca aonde o elemento 1 seja igual a MARCO e o elemento 3 seja igual a MOCOCA
  12. Valeu Evandro e Amarildo pela ajuda, só deu usando apenas o CR Replace(TABLE_vendas.COL_fantasia,CR,"")
  13. Pessoal para usar este recurso as estruturas das table precisa ser idênticas, até ai tudo bem, mais a questão das colunas, deixar VISIBLE ou não, tb precisa ser a mesma , seria isso mesmo. Obg
  14. Pessoal sobre o assunto Drag & Drop o Pedroso tem dois videos aula num preço bem acessível, aonde ele mastiga bem o uso, ganhando assim um bom tempo em ler e interpretar o assunto nos help da windev, realmente este recurso é fantástico, para quem ainda não usa, entra em contato com ele, que vale muito a pena. Obs: Aos modeladores do forum, seria interessante se quem abriu o tópico pudesse colocar o mesmo como [RESOLVIDO] evitando esse trabalho para vcs, tipo este mesmo.
  15. Bom dia, pessoal alguém poderia me ajudar como este código. while i < 9 ResChamp = "WIN_pedidos.TABLE_carga0_"+NumToString(i)+"_6" TableDeleteAll({ResChamp}) WHILE SQLFetch("aSQL") = 0 TableAddLine({ResChamp},SQLGetCol("aSQL",1),SQLGetCol("aSQL",2)) END TableDisplay({ResChamp}) i=i+1 end
  16. Pessoal tentei apagar o tópico e não consegui, o detalhe não estava na macro e sim aqui. ResChamp = "WIN_pedidos.TABLE_carga0_"+NumToString(i)+"_6" o correto seria ResChamp = "WIN_pedidos.TABLE_carga0"+NumToString(i)+"_6"
  17. Colegas para usar uma imagem dentro do componente ORGANIZER CONTROL eu faço assim AnAppointment..Image = "bs_exit.bmp" o detalhe que preciso ter o arquivo físico na pasta do exe, alguém saberia como fica a sintaxe para chamar uma imagem que já existe na windev, aonde não iria precisar ter este arquivo fisico. Obg
  18. Ola Fábio, foi resolvido sim, houve uma perca de informações no retorno do forum, como o Cassiano mesmo já tinha o informado. Obs: tentei editar o titulo como [RESOLVIDO] mais não consegui.
  19. nem sabia que tinha como fazer isso manual, Mello vc tem a sintaxe. Obg
  20. Pessoal dentro de um Static consigo colocar texto com cores diferente, lembro que já vi isto em algum lugar.
  21. Pelo menos na versão 21 não aceita mesmo, estava com projeto no papel aqui, mais não esta contanto com isso.
  22. Pessoal é possível ler o conteúdo de uma TRACE. Obg
  23. Perfeito colega, vou fazer a coisa certa, obg pela sugestão.
  24. 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
  25. 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.