- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- TComboBox armazenar o valor selecionado, TGet armazenar o valor digitado
×
Linguagem de Programação ADVPL
Perguntas TComboBox armazenar o valor selecionado, TGet armazenar o valor digitado
- dgs
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 13
- Obrigados Recebidos: 0
9 anos 11 meses atrás #26276
por dgs
Olá sou um programador mirim kkkss em ADVPL, tenho uma grande dificuldade em achar código fonte em ADVPL "programação na unha", tipo criar uma tela customizada alem do site
tdn.totvs.com/
, vejo que a maioria é só chamada de métodos, alguém pode me indicar um site ?
Vamos lá, minha duvida é, gostaria de armazenar numa variável o valor do TGet "textbox" o que foi digitado e o do TComboBox "combox" o valor que foi selecionado. Obrigado
//
cTGet1 := TGet():New( 010,090,{||cTGet1},oDlg,100,010,;
"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, )
//
@050,090 MSCOMBOBOX aCombo VAR vItems ITEMS vCombo SIZE 100,10 OF oDlg PIXEL
vCombo := {}
vItems := space(15)
dbSelectArea("SA3")
dbSetOrder(2)
dbSeek(xFilial("SA3")+A3_NOME,.T.)
DO WHILE !EOF().AND.A3_Filial==xFilial("SA3")
AADD(vCombo , SA3->A3_NREDUZ )
vItems := IIF(EMPTY(vItems) , SA3->A3_NREDUZ , vItems )
ObjectMethod(aCombo,"SetItems(vCombo)")
dbSkip()
ENDDO
Vamos lá, minha duvida é, gostaria de armazenar numa variável o valor do TGet "textbox" o que foi digitado e o do TComboBox "combox" o valor que foi selecionado. Obrigado
//
cTGet1 := TGet():New( 010,090,{||cTGet1},oDlg,100,010,;
"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, )
//
@050,090 MSCOMBOBOX aCombo VAR vItems ITEMS vCombo SIZE 100,10 OF oDlg PIXEL
vCombo := {}
vItems := space(15)
dbSelectArea("SA3")
dbSetOrder(2)
dbSeek(xFilial("SA3")+A3_NOME,.T.)
DO WHILE !EOF().AND.A3_Filial==xFilial("SA3")
AADD(vCombo , SA3->A3_NREDUZ )
vItems := IIF(EMPTY(vItems) , SA3->A3_NREDUZ , vItems )
ObjectMethod(aCombo,"SetItems(vCombo)")
dbSkip()
ENDDO
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- TComboBox armazenar o valor selecionado, TGet armazenar o valor digitado
Tempo para a criação da página:0.116 segundos