Anderson.OL Posted May 16, 2006 Report Share Posted May 16, 2006 Bom dia a todos.... Bem, tow precisando modificar o conteudo do combobox e naum tow conseguindo... alguem pode me ajudar? O codigo q estou usando eh o seguinte: /*--------------------------------------------------------*/id=orange> Redefine ComboBoxid=brown> oCb[6] varid=brown> cMrcImpr IDid=brown> 106 ofid=brown> oDlgCfg items aImp Updateid=brown> Redefine ComboBoxid=brown> oCb[7] varid=brown> cMdlImpr IDid=brown> 107 ofid=brown> oDlgCfg items aModelo Updateid=brown> oGt[6]:bChange := {|| oCb[7]:aItems := GetModeloid=green>(cMrcImpr) ,oCb[7]:Refreshid=green>(), oDlgCfg:Refreshid=green>() } /*--------------------------------------------------------*/id=orange> *******************************************id=orange> static functionid=brown> GetModeloid=green>( cMarca ) *******************************************id=orange> Localid=brown> Result := {""id=gold>} if Upperid=brown>(cMarca) == "BEMATECH"id=gold> Result := {""id=gold>,"MP 2000 TH II"id=gold>,"MP 25 FI II"id=gold>,"MP20 FI II"id=gold>} elseifid=brown> Upper(cMarca) == "DARUMA"id=gold> Result := {""id=gold>} elseifid=brown> Upper(cMarca) == "YANCO"id=gold> Result := {""id=gold>} elseifid=brown> Upper(cMarca) == "SWEDA"id=gold> Result := {""id=gold>,"IF S-7000 IE"id=gold>,"IF S-7000 I"id=gold>} endid=brown> Returnid=brown> Result /*--------------------------------------------------------*/id=orange> id=code>id=code>Este codigo naum gera erro, mas tb naum funciona.... acho q o caminho eh este, acho q estou pecando na hora de atualizar o Combobox... Aguardo pela ajuda de todos... Abraços /*--------------------------------------------------*/ Anderson.OL(Space MSN) Itaocara - RJ //Clpr 5.3b/FW 2.6/WS 4.5/Blinker 7.0/Med// Editado por - anderson.ol on 16/05/2006 10:51:24 Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted May 16, 2006 Author Report Share Posted May 16, 2006 Bom dia a todos.... Bem, tow precisando modificar o conteudo do combobox e naum tow conseguindo... alguem pode me ajudar? O codigo q estou usando eh o seguinte: /*--------------------------------------------------------*/id=orange> Redefine ComboBoxid=brown> oCb[6] varid=brown> cMrcImpr IDid=brown> 106 ofid=brown> oDlgCfg items aImp Updateid=brown> Redefine ComboBoxid=brown> oCb[7] varid=brown> cMdlImpr IDid=brown> 107 ofid=brown> oDlgCfg items aModelo Updateid=brown> oGt[6]:bChange := {|| oCb[7]:aItems := GetModeloid=green>(cMrcImpr) ,oCb[7]:Refreshid=green>(), oDlgCfg:Refreshid=green>() } /*--------------------------------------------------------*/id=orange> *******************************************id=orange> static functionid=brown> GetModeloid=green>( cMarca ) *******************************************id=orange> Localid=brown> Result := {""id=gold>} if Upperid=brown>(cMarca) == "BEMATECH"id=gold> Result := {""id=gold>,"MP 2000 TH II"id=gold>,"MP 25 FI II"id=gold>,"MP20 FI II"id=gold>} elseifid=brown> Upper(cMarca) == "DARUMA"id=gold> Result := {""id=gold>} elseifid=brown> Upper(cMarca) == "YANCO"id=gold> Result := {""id=gold>} elseifid=brown> Upper(cMarca) == "SWEDA"id=gold> Result := {""id=gold>,"IF S-7000 IE"id=gold>,"IF S-7000 I"id=gold>} endid=brown> Returnid=brown> Result /*--------------------------------------------------------*/id=orange> id=code>id=code>Este codigo naum gera erro, mas tb naum funciona.... acho q o caminho eh este, acho q estou pecando na hora de atualizar o Combobox... Aguardo pela ajuda de todos... Abraços /*--------------------------------------------------*/ Anderson.OL(Space MSN) Itaocara - RJ //Clpr 5.3b/FW 2.6/WS 4.5/Blinker 7.0/Med// Editado por - anderson.ol on 16/05/2006 10:51:24 Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted May 16, 2006 Author Report Share Posted May 16, 2006 Bom dia a todos.... Bem, tow precisando modificar o conteudo do combobox e naum tow conseguindo... alguem pode me ajudar? O codigo q estou usando eh o seguinte: /*--------------------------------------------------------*/id=orange> Redefine ComboBoxid=brown> oCb[6] varid=brown> cMrcImpr IDid=brown> 106 ofid=brown> oDlgCfg items aImp Updateid=brown> Redefine ComboBoxid=brown> oCb[7] varid=brown> cMdlImpr IDid=brown> 107 ofid=brown> oDlgCfg items aModelo Updateid=brown> oGt[6]:bChange := {|| oCb[7]:aItems := GetModeloid=green>(cMrcImpr) ,oCb[7]:Refreshid=green>(), oDlgCfg:Refreshid=green>() } /*--------------------------------------------------------*/id=orange> *******************************************id=orange> static functionid=brown> GetModeloid=green>( cMarca ) *******************************************id=orange> Localid=brown> Result := {""id=gold>} if Upperid=brown>(cMarca) == "BEMATECH"id=gold> Result := {""id=gold>,"MP 2000 TH II"id=gold>,"MP 25 FI II"id=gold>,"MP20 FI II"id=gold>} elseifid=brown> Upper(cMarca) == "DARUMA"id=gold> Result := {""id=gold>} elseifid=brown> Upper(cMarca) == "YANCO"id=gold> Result := {""id=gold>} elseifid=brown> Upper(cMarca) == "SWEDA"id=gold> Result := {""id=gold>,"IF S-7000 IE"id=gold>,"IF S-7000 I"id=gold>} endid=brown> Returnid=brown> Result /*--------------------------------------------------------*/id=orange> id=code>id=code>Este codigo naum gera erro, mas tb naum funciona.... acho q o caminho eh este, acho q estou pecando na hora de atualizar o Combobox... Aguardo pela ajuda de todos... Abraços /*--------------------------------------------------*/ Anderson.OL(Space MSN) Itaocara - RJ //Clpr 5.3b/FW 2.6/WS 4.5/Blinker 7.0/Med// Editado por - anderson.ol on 16/05/2006 10:51:24 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 16, 2006 Report Share Posted May 16, 2006 NAO SERIA MELHOR USAR UM RADIO BUTTON??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.60 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted May 16, 2006 Author Report Share Posted May 16, 2006 citação:NAO SERIA MELHOR USAR UM RADIO BUTTON??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.60 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: id=quote>id=quote>Acredito q naum, naum sei se ficou muito claro, mas seria para atender a seguinte necessidade: -> Tenho 2 Combos; -> Um contendo a lista de ECF´s compativeis (estatica); -> Um contendo os modelos para ECF selecionada (variavel); -> Sendo assim quando o usuario selecionar a marca da ECF que utilizará, gostaria de listar somente os modelos daquela marca! Acredito que o checkbox naum atende, pois o espaço ocupado no dialogo vai variar, eu acho q pode prejudicar a interface! /*--------------------------------------------------*/ Anderson.OL(Space MSN) Itaocara - RJ //Clpr 5.3b/FW 2.6/WS 4.5/Blinker 7.0/Med// Quote Link to comment Share on other sites More sharing options...
siscat Posted May 16, 2006 Report Share Posted May 16, 2006 veja se assim resolve... Redefine ComboBox oCb[6] var cMrcImpr ID 106 of oDlgCfg items aImp Update Redefine ComboBox oCb[7] var cMdlImpr ID 107 of oDlgCfg items aModelo Update oGt[6]:bChange := {|| oCb[7]:SetItems(GetModelo(cMrcImpr)) ,oCb[7]:Refresh(), oDlgCfg:Refresh() }/*--------------------------------------------------------*/Marllon FigueiredoAnalista de Sistemas ERP/CRMPorto Alegre - RSsiscatsoftware@hotmail.comFWH for (x)Harbour, xMate, Clipper, MSSql, Oracle, MySQL, TopConnect, ADS, SQLRDDVersões: FWH 2.6 e 2.7 - xHarbour 0.99.4 - 0.99.60 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 16, 2006 Report Share Posted May 16, 2006 PORQUE VOCE NAO FIXA AS IMPRESSORAS EM UM BANCO DE DADOS, E O USUARIO ESCOLHE NA DIALOG DA CONFIGURAÇÃO DOS CAIXAS, CUAL A IMPRESSORA KE ELE VAI USAR, E NO MODULO DE VENDAS, VOCE CHECA A VARIAVEL PUBLICA DESTA IMPRESSORA?? EX: 1-> BEMATECH 2-> ORION 3-> SWEDA 4.. CUANDO CARREGAR O MENU, A IMPRESSORA Jà VEM PUBLICA PARA O USUARIO. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.60 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted May 16, 2006 Author Report Share Posted May 16, 2006 citação:PORQUE VOCE NAO FIXA AS IMPRESSORAS EM UM BANCO DE DADOS, E O USUARIO ESCOLHE NA DIALOG DA CONFIGURAÇÃO DOS CAIXAS, CUAL A IMPRESSORA KE ELE VAI USAR, E NO MODULO DE VENDAS, VOCE CHECA A VARIAVEL PUBLICA DESTA IMPRESSORA?? EX: 1-> BEMATECH 2-> ORION 3-> SWEDA 4.. CUANDO CARREGAR O MENU, A IMPRESSORA Jà VEM PUBLICA PARA O USUARIO. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.60 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: id=quote>id=quote>Desta maneira eu jah usava, mas estou eliminando Banco de Dados do meu programa (qdo este for utilizado para configuração) e estou inserindo arquivos .ini, assim posso ter configurações individuais de maneira mais pratica e de acesso mais facil... /*--------------------------------------------------*/ Anderson.OL(Space MSN) Itaocara - RJ //Clpr 5.3b/FW 2.6/WS 4.5/Blinker 7.0/Med// Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted May 16, 2006 Author Report Share Posted May 16, 2006 citação:veja se assim resolve... Redefine ComboBox oCb[6] var cMrcImpr ID 106 of oDlgCfg items aImp Update Redefine ComboBox oCb[7] var cMdlImpr ID 107 of oDlgCfg items aModelo Update oGt[6]:bChange := {|| oCb[7]:SetItems(GetModelo(cMrcImpr)) ,oCb[7]:Refresh(), oDlgCfg:Refresh() }/*--------------------------------------------------------*/Marllon FigueiredoAnalista de Sistemas ERP/CRMPorto Alegre - RSsiscatsoftware@hotmail.comFWH for (x)Harbour, xMate, Clipper, MSSql, Oracle, MySQL, TopConnect, ADS, SQLRDDVersões: FWH 2.6 e 2.7 - xHarbour 0.99.4 - 0.99.60id=quote>id=quote>Eh, o método :SetItems() funcionou perfeitamente....Obrigado!/*--------------------------------------------------*/Anderson.OL(Space MSN)Itaocara - RJ//Clpr 5.3b/FW 2.6/WS 4.5/Blinker 7.0/Med// Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.