|
Wx - Exemplo de For Each com Hfound |
Iniciado por adrianoboller, fev., 04 2016 12:47 PM - 4 respostas |
| |
| | | |
|
| |
Membro registado 3.662 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/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.662 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
-- 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/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.662 mensagems Popularité : +175 (223 votes) |
|
Publicado em abril, 17 2016 - 12:44 PM |
Prezados,
Outro detalhe sobre o FOR:
HCS.Timeout = INTRANET
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
-- 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/Mensagem modificada, abril, 17 2016 - 12:45 PM |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.662 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)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Mensagem modificada, maio, 06 2016 - 1:06 AM |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.662 mensagems Popularité : +175 (223 votes) |
|
Publicado em agosto, 16 2016 - 6:45 PM |
HExecuteQuery(QRY_OrdemPagto,hQueryDefault,gnData_Caixa,gnCaixa)
TableDisplay(TABLE_QRY_OrdemPagto,taInit)
HExecuteQuery(QRY_OrdemPagto,hQueryDefault,gnData_Caixa,gnCaixa)
TableDisplay(TABLE_QRY_OrdemPagto,taInit)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|