Luiz FERNANDO

Members
  • Content count

    98
  • Joined

  • Last visited

  • Days Won

    25

Everything posted by Luiz FERNANDO

  1. Pessoal existe algum comando nesse estilo, aonde podemos escolher o texto das duas opções, tentei usar o DIALOG mais não tive sucesso. ex: IF YesNo("O que deseja fazer com a diferença","BOM DIA","BOA TARDE") THEN END Depois que postei consegui acertar a sintaxe de DIALOG IF Dialog("O que deseja fazer com a diferença", ... ["BOM DIA","BOA TARDE"], 1, 2, dlgIconQuestion) = 1 THEN END
  2. Perfeito, queria algo mais em modo de teste, em tempo de programação. Obg
  3. Vlw Cassiano, com o comando abaixo está quebrando o calho num primeiro momento. SysIconDisplayTooltip("MEU TEXTO","TITULO", sysTooltipTypeInfo)
  4. Pessoal consigo deixar apenas uma janela(nesse caso não é a window principal) do projeto na bandeja do windows. Obg
  5. 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
  6. 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
  7. 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.
  8. 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
  9. 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
  10. 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.
  11. Cassiano já fiz isso, não da certo.
  12. 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
  13. 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)
  14. Cassiano exatamente isto, vlw pela ajuda, essa sintaxe sera muito útil aqui.
  15. 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
  16. Valeu Evandro e Amarildo pela ajuda, só deu usando apenas o CR Replace(TABLE_vendas.COL_fantasia,CR,"")
  17. 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
  18. 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.
  19. 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
  20. 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"
  21. 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
  22. 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.
  23. nem sabia que tinha como fazer isso manual, Mello vc tem a sintaxe. Obg
  24. Pessoal dentro de um Static consigo colocar texto com cores diferente, lembro que já vi isto em algum lugar.
  25. Pelo menos na versão 21 não aceita mesmo, estava com projeto no papel aqui, mais não esta contanto com isso.