Precisa de ajuda sobre este assunto em seu ERP?
TcQuery é o comando em ADVPL que executa um SQL no banco de dados e retorna o resultado em uma área de trabalho.
0. Carregar as bibliotecas
|
1 2 |
#INCLUDE 'PROTHEUS.CH' #INCLUDE 'TOPCONN.CH' |
1. Criar uma user function e neste user function, realizar a busca em SQL
|
1 2 |
Local cQuery := "SELECT * FROM SA1010 WHERE D_E_L_E_T_ = ' '" TcQuery cQuery New Alias "QRY" |
2. Selecionar esta área de trabalho QRY
|
1 |
dbSelectArea("QRY") |
3. Realizar o loop nesta área de trabalho para exibir o resultado
|
1 2 3 4 |
While !QRY->(EOF()) //Enquando não for fim de arquivo Conout(QRY->A1_COD + "/" + QRY->A1_LOJA + " - " + QRY->A1_NOME) //Imprime resultado no log QRY->(dbSkip()) //Anda 1 registro pra frente EndDo |
4. Fechar a área de trabalho que não será mais utilizada
|
1 |
QRY->(dbCloseArea()) //Fecha a área de trabalho |
Abaixo, segue o código completo:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
#INCLUDE 'PROTHEUS.CH' #INCLUDE 'TOPCONN.CH' User Function FBSA101() Local cQuery := "SELECT * FROM SA1010 WHERE D_E_L_E_T_ = ' '" TcQuery cQuery New Alias "QRY" dbSelectArea("QRY") While !QRY->(EOF()) //Enquando não for fim de arquivo Conout(QRY->A1_COD + "/" + QRY->A1_LOJA + " - " + QRY->A1_NOME) //Imprime resultado no log QRY->(dbSkip()) //Anda 1 registro pra frente EndDo QRY->(dbCloseArea()) //Fecha a área de trabalho Return Nil |
Existem outras formas, com outros comandos, como por exemplo o TcGenQry
Espero ter ajudado.
Fernando Bueno
Consultor em FBSOLUTIONS
Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In
Últimos posts por Fernando Bueno (exibir todos)
- Indicadores Logísticos para Gestão de Transportadoras - 4 de dezembro de 2024
- O Papel Estratégico do Setor Logístico na Cadeia de Suprimentos - 20 de novembro de 2024
- Logística Reversa: Estratégia Sustentável e Lucrativa para Empresas - 20 de novembro de 2024
