Search the Community
Showing results for tags 'comboBox'.
Found 2 results
-
Bom dia... Existe algum comando que atualize o o valor de uma ComboBox ? O Refresh() não funfa. Ao realizar uma Venda, preciso identificar se um o produto tem insidência do FCP - Fundo de Combate a Pobreza. Caso afirmativo, recupero o percentual conforme a aliquota da UF de Destino, caso contrário informo o valor Zero. DEFINE DIALOG...... REDEFINE GET aGet[01] VAR mCOB PICTURE "@!" ID 101 OF aDlg; COLORS CLR_BLUE, CLR_CREME VALID(NOTVAZIO(mCOB1,"Codigo do Produto")) UPDATE aGet[1]:cToolTip = OemToAnsi("Pressione F2 para Pesquisar o Arquivo de Produtos") aGet[1]:bKeyDown := { | nKey | IIF( nKey = VK_F2, PSQPRO(@mFCP,@mFUNDOCP,aDlg,oCbx), ) } REDEFINE COMBOBOX oCbx[5] VAR mFCP ; ITEMS { OemToAnsi("Sim"),; OemToAnsi("Nao")}; ID 310 OF aDlg ; COLORS CLR_BLUE, CLR_CREME UPDATE RETURN(NIL) //----------------------------------------------------------------------// STATIC FUNCTION PSQPRO(mFCP,mFUNDOCP,aDlg,oCbx) ....... ....... ....... IF PRODUTOS->FUNDOCP=0 mFCP:=1 ELSE mFCP:=2 ENDIF oCbx[5]:REFRESH(.T.) aDlg:UPDATE() RETURN(.T.) Após a pesquisa do Produto acima, a combobox deveria ser atualizada conforme o valor da varável mFCP Isso não ocorre. Alguém saberia o porquê e como resolver isso ? Obrigado.
-
Pessoal, boa tarde. Estou tentando atualizar os itens de um ComboBox de acordo com um valor previamente informado. Por exemplo: No cadastro do cliente, ao marcar o Sexo como 'Masculino', o comboBox referente a faixa etária deverá ser preenchido com os seguintes valores: { '10-15','16-20' }. Porém, se no cadastro for marcado o Sexo como 'Feminino', o comboBox deverá ser preenchido com os valores: {'12-16'. '17-20'} Já tentei procedimentos como: /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Local opcao := '', opcoes := {} REDEFINE COMBOBOX comboOpcoes VAR opcao ITEMS opcoes ID 4018 OF oFol:aDialogs[6] UPDATE ... // Chamo essa função no momento em que é marcado o Sexo do cliente em questão Function atualizaCombo(sexo,comboOpcoes,opcoes) DO CASE CASE sexo == "M" Asize(opcoes,0) AADD(opcoes,"10-15") AADD(opcoes,"16-20") CASE sexo == "F" Asize(opcoes,0) AADD(opcoes,"12-16") AADD(opcoes,"17-20") OTHERWISE Asize(opcoes,0) ENDCASE comboOpcoes:Refresh() Return .T. /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Não estou conseguindo deixar esse combo dinâmico da forma como citei acima. Alguém poderia me ajudar? Desde já obrigado!
