Wx - Exemplo de For Each com Hfound - WINDEV 25 - Fóruns de programação

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... | | Português

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

Wx - Exemplo de For Each com Hfound

Iniciado por adrianoboller, fev., 04 2016 12:47 PM - 4 respostas

adrianoboller

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em fevereiro, 04 2016 - 12:47 PM

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/

Denunciar

Deve estar conectado para avaliar esta mensagem

adrianoboller

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em fevereiro, 04 2016 - 12:48 PM

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

Denunciar

adrianoboller

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em abril, 17 2016 - 12:44 PM

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

Mensagem modificada, abril, 17 2016 - 12:45 PM

Denunciar

adrianoboller

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em maio, 06 2016 - 1:05 AM

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)

Mensagem modificada, maio, 06 2016 - 1:06 AM

Denunciar

BOLLER ADRIANO

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em agosto, 16 2016 - 6:45 PM

//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)

Denunciar

→ Voltar para WINDEV 25