| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Preenchimento de um tComboBox |
|
Versão: |
12.1.27 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
WHAS_ADVPL
em 28/08/2023, 12:05 h
Local: SP Registro: 28/08/2023 Postagens: 2 |
Bom dia,
Estou precisando criar um Combox preenchendo com informações vindo de uma tabela externa, ja ja fiz a leitura e adicionei os dados na Variavel que definir como array, porem na hora de apresentar os dados para o usuario, quando selecionado o Combox ele esta apresentando a combo com todos os registros pelo menos em tese mas não está sendo visualizado dentro do Combo, debugando eu percebi que a variavel esta sendo preenchida corretamente so na hora de apresentação que os dados não aparecer.
Segue o fonte caso alguém possa me auxiliar neste desenvolvimento.
//Bibliotecas
#Include 'TOTVS.ch'
#Include 'Topconn.ch'
/*/{Protheus.doc} User Function zFuncao
Funcao com tela customizada usando a classe TDialog que foi gerado pelo PDialogMaker
@type Function
@author Filiais
/*/
User Function CboFiliais()
Local aArea := FWGetArea()
Local nCorFundo := RGB(238, 238, 238)
Local nJanAltura := 190
Local nJanLargur := 318
Local cJanTitulo := 'Filiais'
Local lDimPixels := .T.
Local lCentraliz := .T.
Local nObjLinha := 0
Local nObjColun := 0
Local nObjLargu := 0
Local nObjAltur := 0
Private cFontNome := 'Tahoma'
Private oFontPadrao := TFont():New(cFontNome, , -12)
Private oDialogPvt
Private bBlocoIni := {|| /*fSuaFuncao()*/ }
//objeto0
Private oCmbObj0
Private cCmbObj0 := '01'
Private aCmbObj0 := {} //'01=Sim', '02=Nao', '03=Talvez', 'ZZ=Etc'}
//Filiais
Private oSayFiliais
Private cSayFiliais := 'Label'
cQuery:= " Select COD_FILIAL, NOMFILIAL FROM MYCADFILIAL WHERE STATUS ='S'"
cQuery:=ChangeQuery(cQuery)
TcQuery cQuery Alias "CADFILIAL" New
While ! CADFILIAL->( EOF())
aAdd(aCmbObj0,{CADFILIAL->CODFILIAL})
CADFILIAL->( dbSkip())
ENDDO
CADFILIAL->( dbCloseArea())
//Cria a dialog
oDialogPvt := TDialog():New(0, 0, nJanAltura, nJanLargur, cJanTitulo, , , , , , nCorFundo, , , lDimPixels)
//objeto0 - usando a classe TComboBox
nObjLinha := 40
nObjColun := 41
nObjLargu := 60
nObjAltur := 10
oCmbObj0 := TComboBox():New(nObjLinha, nObjColun, {|u| Iif(PCount() > 0 , cCmbObj0 := u, cCmbObj0)}, aCmbObj0, nObjLargu, nObjAltur, oDialogPvt, , /*bChange*/, /*bValid*/, /*nClrText*/, /*nClrBack*/, lDimPixels, oFontPadrao)
//Filiais - usando a classe TSay
nObjLinha := 31
nObjColun := 45
nObjLargu := 28
nObjAltur := 6
oSayFiliais := TSay():New(nObjLinha, nObjColun, {|| cSayFiliais}, oDialogPvt, /*cPicture*/, oFontPadrao, , , , lDimPixels, /*nClrText*/, /*nClrBack*/, nObjLargu, nObjAltur, , , , , , /*lHTML*/)
//Ativa e exibe a janela
oDialogPvt:Activate(, , , lCentraliz, , , bBlocoIni)
FWRestArea(aArea)
Return
|
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
