- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Consulta Sql retornar no GRID
×
Linguagem de Programação ADVPL
Perguntas Consulta Sql retornar no GRID
- newtoncesarsilva
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
8 anos 10 meses atrás #29873
por newtoncesarsilva
Consulta Sql retornar no GRID foi criado por newtoncesarsilva
Boa tarde a todos, sou novo em ADVPL, e gostaria de uma dica ou exemplo, de uma consulta por uma sql aparecer no grid numa tela customizada .
Obrigado
Obrigado
Por favor Acessar ou Registrar para participar da conversa.
- fmmattos
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 28
- Obrigados Recebidos: 0
8 anos 10 meses atrás #29900
por fmmattos
Respondido por fmmattos no tópico Consulta Sql retornar no GRID
tdn.totvs.com/display/tec/MsSelBr
No lugar do DbSelectArea('SA1') coloca a tabela que sua Query retorna. Exemplo:
No lugar do DbSelectArea('SA1') coloca a tabela que sua Query retorna. Exemplo:
cQry := " SELECT A1_COD, A1_LOJA, A1_NOME"
cQry += " FROM " + RetSqlName("SA1")
TCQUERY cQry NEW ALIAS "QSA1"
DbSelectArea('QSA1')
oBrowse := MsSelBr():New( 1,1,260,184,,,,oDlg,,,,,,,,,,,,.F.,'QSA1',.T.,,.F.,,, )
oBrowse:AddColumn(TCColumn():New('Codigo',{||QSA1->A1_COD },,,,'LEFT',,.F.,.F.,,,,.F.,))
oBrowse:AddColumn(TCColumn():New('Loja' ,{||QSA1->A1_LOJA},,,,'LEFT',,.F.,.F.,,,,.F.,))
oBrowse:AddColumn(TCColumn():New('Nome' ,{||QSA1->A1_NOME},,,,'LEFT',,.F.,.F.,,,,.F.,))
oBrowse:lHasMark := .T. oBrowse:bAllMark := {|| alert('Click no header da browse') }
ACTIVATE DIALOG oDlg CENTERED Return
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Consulta Sql retornar no GRID
Tempo para a criação da página:0.112 segundos