evertonlb Posted June 7, 2013 Report Share Posted June 7, 2013 Boa tarde amigos. Tenho um listbox onde o usuário clica sobre uma "célula" e é editado para que se faça alterações nos dados, até aqui, tudo certo. Mas agora surgiu outra necessidade, só posso deixar o usuário usar 3 palavras ( ATENDE, NÃO ATENDE, PARCIAL ) pensei em colocar um COMBOBOX ( que já uso no momento do cadastro do item ). Tem como colocar um ComboBox dentro de um ListBox? Att. Everton Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 7, 2013 Report Share Posted June 7, 2013 Não. somente com a xbrowse. Theotokos 1 Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 7, 2013 Report Share Posted June 7, 2013 amigo, aconselho mudar para xBrowse, ai sim tem como colocar: tipo assim: oLbx_Coleta:aCols[4]:nEditType := EDIT_GET_LISTBOX oLbx_Coleta:aCols[4]:bOnPostEdit := {|o,x| aMaterial[oLbx_Coleta:nArrayAt,4] := x } oLbx_Coleta:aCols[4]:aEditListBound := oLbx_Coleta:aCols[4]:aEditListTxt := {"Sim","Não"} Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 7, 2013 Report Share Posted June 7, 2013 Não. somente com a xbrowse. respondemos juntos esta heimmmmmm..... rsrsrsrsrsrs.... ainda bem que é a mesma resposta, assim eu não passo carão... kkkkkk Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 7, 2013 Author Report Share Posted June 7, 2013 Blz... vou ver ela então... os exemplos são aqueles que tem no SAMPLES.. certo? o Mallorca.prg? Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 8, 2013 Report Share Posted June 8, 2013 na pasta samples: testxbr?.prg testxbrw.prg Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 8, 2013 Author Report Share Posted June 8, 2013 Veja pessoal... o Ricardo Marques fez o VRMM que eu uso para criar as telas ( @Say) ai gero o PRG a partir deste utilitário. Criei um PRG com o código da xBrowse, no entando tá dando o seguinte erro: Error description: Error BASE/1005 Message not found: TXBROWSE:_L2007 Stack Calls=========== Called from: => TXBROWSE:ERROR(175) Called from: tobject.prg => (b)HBOBJECT:HBOBJECT(105) Called from: => TXBROWSE:MSGNOTFOUND(0) Called from: XBROWSE.PRG => TXBROWSE:_L2007(167) o código que gerou foi o seguinte oXBrw1 := TXBrowse():New( CadAval_GR ) oXBrw1:nMarqueeStyle := 3 oXBrw1:nMarqueeStyle := 3 oXBrw1:nColDividerStyle := 1 oXBrw1:nRowDividerStyle := 1 oXBrw1:lColDividerComplete := .T. oXBrw1:nHeaderLines := 1 oXBrw1:nDataLines := 1 oXBrw1:lFooter := .T. oXBrw1:l2007 := .T. oXBrw1:nRecSelColor := 16773863 oXBrw1:cAlias := "AvalGrupDet" oXBrw1:SetRDD() oXBrw1:CreateFromCode() oXBrw1:Move( 284.00, 5.00, 945.00, 205.00, .t. ) aCol_oXBrw1[1] := oXBrw1:aCols[1] aCol_oXBrw1[1]:nWidth := 80 aCol_oXBrw1[1]:cHeader := "AvlTDet_Sequ" aCol_oXBrw1[1]:lHIDE := .F. aCol_oXBrw1[1]:oHeaderFont := oF_CadAval_GR_1 aCol_oXBrw1[1]:oDataFont := oF_CadAval_GR_1 aCol_oXBrw1[1]:oFooterFont := oF_CadAval_GR_1 aCol_oXBrw1[1]:bClrHeader := {|| { 0, 15790320 } } aCol_oXBrw1[1]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[1]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[1]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[1]:bClrSelFocus := {|| { 16777215, 12632256 } } aCol_oXBrw1[2] := oXBrw1:aCols[2] aCol_oXBrw1[2]:nWidth := 600 aCol_oXBrw1[2]:cHeader := "AvlTDet_Item" aCol_oXBrw1[2]:lHIDE := .F. aCol_oXBrw1[2]:oHeaderFont := oF_CadAval_GR_1 aCol_oXBrw1[2]:oDataFont := oF_CadAval_GR_1 aCol_oXBrw1[2]:oFooterFont := oF_CadAval_GR_1 aCol_oXBrw1[2]:bClrHeader := {|| { 0, 15790320 } } aCol_oXBrw1[2]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[2]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[2]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[2]:bClrSelFocus := {|| { 16777215, 12632256 } } aCol_oXBrw1[3] := oXBrw1:aCols[3] aCol_oXBrw1[3]:nWidth := 100 aCol_oXBrw1[3]:cHeader := "AvlTDet_Area" aCol_oXBrw1[3]:lHIDE := .F. aCol_oXBrw1[3]:oHeaderFont := oF_CadAval_GR_1 aCol_oXBrw1[3]:oDataFont := oF_CadAval_GR_1 aCol_oXBrw1[3]:oFooterFont := oF_CadAval_GR_1 aCol_oXBrw1[3]:bClrHeader := {|| { 0, 15790320 } } aCol_oXBrw1[3]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[3]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[3]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[3]:bClrSelFocus := {|| { 16777215, 12632256 } } aCol_oXBrw1[4] := oXBrw1:aCols[4] aCol_oXBrw1[4]:nWidth := 100 aCol_oXBrw1[4]:cHeader := "AvlTDet_TpAvl" aCol_oXBrw1[4]:lHIDE := .F. aCol_oXBrw1[4]:oHeaderFont := oF_CadAval_GR_1 aCol_oXBrw1[4]:oDataFont := oF_CadAval_GR_1 aCol_oXBrw1[4]:oFooterFont := oF_CadAval_GR_1 aCol_oXBrw1[4]:bClrHeader := {|| { 0, 15790320 } } aCol_oXBrw1[4]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[4]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[4]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[4]:bClrSelFocus := {|| { 16777215, 12632256 } } Se alguém puder me ajudar.. to precisando! heheh Att. Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 8, 2013 Report Share Posted June 8, 2013 Veja pessoal... o Ricardo Marques fez o VRMM que eu uso para criar as telas ( @Say) ai gero o PRG a partir deste utilitário. Criei um PRG com o código da xBrowse, no entando tá dando o seguinte erro: Error description: Error BASE/1005 Message not found: TXBROWSE:_L2007 Stack Calls =========== Called from: => TXBROWSE:ERROR(175) Called from: tobject.prg => (b)HBOBJECT:HBOBJECT(105) Called from: => TXBROWSE:MSGNOTFOUND(0) Called from: XBROWSE.PRG => TXBROWSE:_L2007(167) o código que gerou foi o seguinte oXBrw1 := TXBrowse():New( CadAval_GR ) oXBrw1:nMarqueeStyle := 3 oXBrw1:nMarqueeStyle := 3 oXBrw1:nColDividerStyle := 1 oXBrw1:nRowDividerStyle := 1 oXBrw1:lColDividerComplete := .T. oXBrw1:nHeaderLines := 1 oXBrw1:nDataLines := 1 oXBrw1:lFooter := .T. oXBrw1:l2007 := .T. oXBrw1:nRecSelColor := 16773863 oXBrw1:cAlias := "AvalGrupDet" oXBrw1:SetRDD() oXBrw1:CreateFromCode() oXBrw1:Move( 284.00, 5.00, 945.00, 205.00, .t. ) aCol_oXBrw1[1] := oXBrw1:aCols[1] aCol_oXBrw1[1]:nWidth := 80 aCol_oXBrw1[1]:cHeader := "AvlTDet_Sequ" aCol_oXBrw1[1]:lHIDE := .F. aCol_oXBrw1[1]:oHeaderFont := oF_CadAval_GR_1 aCol_oXBrw1[1]:oDataFont := oF_CadAval_GR_1 aCol_oXBrw1[1]:oFooterFont := oF_CadAval_GR_1 aCol_oXBrw1[1]:bClrHeader := {|| { 0, 15790320 } } aCol_oXBrw1[1]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[1]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[1]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[1]:bClrSelFocus := {|| { 16777215, 12632256 } } aCol_oXBrw1[2] := oXBrw1:aCols[2] aCol_oXBrw1[2]:nWidth := 600 aCol_oXBrw1[2]:cHeader := "AvlTDet_Item" aCol_oXBrw1[2]:lHIDE := .F. aCol_oXBrw1[2]:oHeaderFont := oF_CadAval_GR_1 aCol_oXBrw1[2]:oDataFont := oF_CadAval_GR_1 aCol_oXBrw1[2]:oFooterFont := oF_CadAval_GR_1 aCol_oXBrw1[2]:bClrHeader := {|| { 0, 15790320 } } aCol_oXBrw1[2]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[2]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[2]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[2]:bClrSelFocus := {|| { 16777215, 12632256 } } aCol_oXBrw1[3] := oXBrw1:aCols[3] aCol_oXBrw1[3]:nWidth := 100 aCol_oXBrw1[3]:cHeader := "AvlTDet_Area" aCol_oXBrw1[3]:lHIDE := .F. aCol_oXBrw1[3]:oHeaderFont := oF_CadAval_GR_1 aCol_oXBrw1[3]:oDataFont := oF_CadAval_GR_1 aCol_oXBrw1[3]:oFooterFont := oF_CadAval_GR_1 aCol_oXBrw1[3]:bClrHeader := {|| { 0, 15790320 } } aCol_oXBrw1[3]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[3]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[3]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[3]:bClrSelFocus := {|| { 16777215, 12632256 } } aCol_oXBrw1[4] := oXBrw1:aCols[4] aCol_oXBrw1[4]:nWidth := 100 aCol_oXBrw1[4]:cHeader := "AvlTDet_TpAvl" aCol_oXBrw1[4]:lHIDE := .F. aCol_oXBrw1[4]:oHeaderFont := oF_CadAval_GR_1 aCol_oXBrw1[4]:oDataFont := oF_CadAval_GR_1 aCol_oXBrw1[4]:oFooterFont := oF_CadAval_GR_1 aCol_oXBrw1[4]:bClrHeader := {|| { 0, 15790320 } } aCol_oXBrw1[4]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[4]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[4]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[4]:bClrSelFocus := {|| { 16777215, 12632256 } } Se alguém puder me ajudar.. to precisando! heheh Att. RETIRA A LINHA EM VERMELHO... oXBrw1:l2007 := .T. Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 10, 2013 Author Report Share Posted June 10, 2013 Cara, brincadeira... Como que não tinha visto antes.. Obrigado pela ajuda. Mas tenho outra duvida. Tenho na minha tabela 6 campos, mas quero que apareçam somente 4, mas esta aparecendo todos. os 4 que eu determino que apareçam as fontes e tamanhos são os que defini em cada "seção" da xBrowse, os outros dois que aparecem de metidos ficam sem a configuração! Como faço para excluir os 2 campos que não quero que apareçam? Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted June 10, 2013 Report Share Posted June 10, 2013 FOR I=5 TO 6 // colunas 5 e 6 oBrw:aCols[ I]:lHide := .t. // esconde NEXT I ... FOR I=5 TO 6 // colunas 5 e 6 oBrw:aCols[ I]:lHide := .n. // mostra NEXT I 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.