Luiz FERNANDO

Members
  • Content count

    98
  • Joined

  • Last visited

  • Days Won

    25

Posts posted by Luiz FERNANDO


  1. Em 30/04/2020 at 11:12 PM, Cassiano disse:

    Não seria SysIconAdd

    
    
    
    
    
    
    
    
    
    
    SysIconAdd("C:\My Projects\sbp_files\paragon.ico", MENU_PopupMenu2, "I am minimized")

     

    Vlw Cassiano, com o comando abaixo está quebrando o calho num primeiro momento.

    SysIconDisplayTooltip("MEU TEXTO","TITULO", sysTooltipTypeInfo) 

    1 person likes this

  2. 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 people like this

  3. 1 hora atrás, Cassiano disse:

    Fiz uma simulação aki conforme @nathanreys e funcionou.

    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

     


  4. 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

     


  5. 9 horas atrás, Cassiano disse:

    Em teoria era pra ter funcionado, então tenta o seguinte, cria uma STRUCTURE, carrega ela com o resultado e depois varre ela qtas vezes quiser.

    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.


  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. 1 hora atrás, Cassiano disse:

    Como assim @Luiz FERNANDO

    Vc diz dentro do ArraySeek comparar os campos?

    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
    
    

     

     


  8. 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.

     

    1 person likes this

  9. 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           

     


  10. 2 horas atrás, Mello Junior disse:

    Nunca utilizei da forma automática, creio que na manual você será bem mais feliz, tem um procedimento para enquanto estiver arrastando e outro para quando soltar. Meio chato de pegar o jeito, mas fica bem tranquilo depois.

    nem sabia que tinha como fazer isso manual, Mello vc tem a sintaxe.

    Obg


  11. 18 horas atrás, Luiz FERNANDO disse:

    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

    Pelo menos na versão 21 não aceita mesmo, estava com projeto no papel aqui, mais não esta contanto com isso.


  12. 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

     


  13. 33 minutos atrás, Vilani disse:

    Luiz a única forma que conheço é o comando traceend() e fecha a janela e salva o conteúdo em um arquivo, mas dessa forma voce acaba usado recursos do seu servidor, é bom ter cuidado nessas aplicação, acho que o melhor é voce gravar isso em arquivo direto, assim voce mantém o log e sempre que quiser pode ir la e visualizar

    Perfeito colega, vou fazer a coisa certa, obg pela sugestão.


  14. 1 hora atrás, Vilani disse:

    Poderia explicar melhor, ja que o trace é você quem passa o conteúdo, basta ler o conteúdo que esta passando para ele

    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