Wx - Exemplo de For Each com Hfound - WINDEV 25 - Forums développeurs

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil | Messages récents | Connexion | | Français

Accueil → WINDEV 25 → Wx - Exemplo de For Each com Hfound

Wx - Exemplo de For Each com Hfound

Débuté par adrianoboller, 04 fév. 2016 12:47 - 4 réponses

adrianoboller

Membre enregistré
3 659 messages
Popularité : +175 (223 votes)

Posté le 04 février 2016 - 12:47

Procedure BuscaPessoaLogado(lNumunidade,lCodigomatricula)

Registros is boolean

SqlExecute is string = [
 SP_BuscaLogado
 @numunidade@,
 @codigomatricula@
]

SqlExecute = Replace(SqlExecute, "@numunidade@",lNumunidade)

SqlExecute = Replace(SqlExecute, "@codigomatricula@",lCodigomatricula)

SqlQuery is Data Source

ok is boolean = HExecuteSQLQuery(SqlQuery,ConnNativa,hQueryDefault+hQueryWithoutCorrection,SqlExecute)

IF ok = True THEN
 
 FOR EACH SqlQuery
  
  Registros = HFound(SqlQuery)
  
  IF Registros = True THEN
  
   EDT_AT        = SqlQuery.at
   EDT_RT        = SqlQuery.rt
   EDT_Celular   = SqlQuery.celular
   EDT_Matricula = SqlQuery.matricula
   EDT_Motorista = SqlQuery.pessoa
  
  END
  
 END 
 
END

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.blogspot.com.br/

Signaler

Vous devez être connecté pour évaluer ce message

adrianoboller

Membre enregistré
3 659 messages
Popularité : +175 (223 votes)

Posté le 04 février 2016 - 12:48

Procedure LoginiOS()

Registros is boolean

SqlExecute is string = [
 select * from TabelaLogin
]
SqlQuery is Data Source

ok is boolean = HExecuteSQLQuery(SqlQuery,hQueryDefault,SqlExecute)

IF ok = True THEN

 FOR EACH SqlQuery

  Registros = HFound(SqlQuery)

  IF Registros = True THEN

   EDT_Cod        = SqlQuery.TabelaEmail

  END

 END 

END

Signaler

adrianoboller

Membre enregistré
3 659 messages
Popularité : +175 (223 votes)

Posté le 17 avril 2016 - 12:44

Prezados,

Outro detalhe sobre o FOR:

//Definindo o Time Out de conexão

HCS.Timeout = INTRANET  // Ou  mude para INTERNET, pode fazer uma configuração if, else para isso...

Ok is boolean = HExecuteQuery(Qry_select_product, querydefault, 1, 1000)

IF ok = True

      FOR EACH Qry_select_product

            IF HFound (Qry_select_product) = True

                        EDT_COD = Qry_select_product.cod

                        EDT_COD BAR = Qry_select_product.codbar

                        EDT_PRODUCT = Qry_select_product.product

            END

      END

END

Message modifié, 17 avril 2016 - 12:45

Signaler

adrianoboller

Membre enregistré
3 659 messages
Popularité : +175 (223 votes)

Posté le 06 mai 2016 - 01:05

Prezados,

Usando em uma table programada

Qyr_cliente No Design....

Deletetableall(tabela_tela)

ok is boolean = HExecuteQuery(qyr_cliente, hQueryDefault, filtro1, filtro2)
IF ok = True

    for each qyr_cliente

            IF HFound(qyr_cliente) = True

                   TableAdd(tabela_tela, qyr_cliente.campo1 TAB qyr_cliente.campo2 TAB qyr_cliente.campo3)

            END

    END

END

TableDisplay(tabela_tela, taReExecuteQuery)
TableDisplay(tabela_tela, taInit)

Message modifié, 06 mai 2016 - 01:06

Signaler

BOLLER ADRIANO

Membre enregistré
3 659 messages
Popularité : +175 (223 votes)

Posté le 16 août 2016 - 18:45

//Só mais esse exemplo, achei uma outra forma que não vou precisar alterar meu projeto para usar tabela programada..
//em vez de usar tabledisplay: TableDisplay(TABLE_QRY_OrdemPagto,taReExecuteQuery)
//uso: 
HExecuteQuery(QRY_OrdemPagto,hQueryDefault,gnData_Caixa,gnCaixa)
//e depois: 
TableDisplay(TABLE_QRY_OrdemPagto,taInit)
//funcionou que eh uma blza
HExecuteQuery(QRY_OrdemPagto,hQueryDefault,gnData_Caixa,gnCaixa)
//TableDisplay(TABLE_QRY_OrdemPagto,taReExecuteQuery) // comentei
TableDisplay(TABLE_QRY_OrdemPagto,taInit)

Signaler

→ Revenir à WINDEV 25