#command COMBO

[fladimir]

Senhores, estou com a seguinte necessidade e dúvida... eu uso em alguns locais do meu sistema (console) o seguinte:

Código: Selecionar todos

//-- COMBOBOX by Rick Spencer
#command @ <row>, <col> GET <var>                                   ;
                        COMBO <drops>                               ;
                                                                    ;
      =>                                                            ;
         SetPos(<row>, <col>)                                       ;
         ; Aadd(GetList,                                            ;
              ComboGetNew({|x| iif(x == NIL, <var>, <var> := x) },  ;
                          <(var)>, <drops>)) 

E em alguns locais uso este recurso de Combobox, porém agora preciso trocar a linha abaixo:

Código: Selecionar todos

@ 01,01 SAY "Tributacao________: " GET cTributacao PICT "!!" VALID	 PesquisaTrib(aGet, nTributacao, cAlt) .AND.  Vale({|| aGet[D_Tributacao] $ 'FFÿNNÿII' },  "Preencha este campo") WHEN	 Aviso("Informe o tipo de Tributacao")

Fiz assim:

Código: Selecionar todos

aTributacao   := {'  ','TR','ST','IS','NT','SV' }
@ 01,01 SAY "Tributacao________: " GET cTributacao COMBO aTributacao

Mas preciso continuar com a validação... e gostaria de fazer isto já embutido no esquema (não sei o nome) descrito no inicio desta postagem #command...

Preciso continuar com isto:

Código: Selecionar todos

VALID PesquisaTrib(aGet, nTributacao, cAlt) .AND.  Vale({|| aGet[D_Tributacao] $ 'FFÿNNÿII' },  "Preencha este campo") WHEN	 Aviso("Informe o tipo de Tributacao")

Alguém sabe?

[]´s

[Imatech]

Olá Fladimir !

ListBox: acredito que tenha a mesma utilizade...

std.ch: LISTBOX

Código: Selecionar todos

   #command @ <top>, <left>, <bottom>, <right> GET <v> LISTBOX <items> ;
                  [VALID <valid>] [WHEN <when>] ;
                  [CAPTION <cap>] [MESSAGE <msg>] [COLOR <clr>] ;
                  [FOCUS <fb>] [STATE <sb>] [<dd:DROPDOWN>] [<sbar:SCROLLBAR>] ;
                  [SEND <snd>] [GUISEND <gsnd>] [BITMAP <bmap>] => ;
         SetPos( <top>, <left> ) ;;
         AAdd( GetList, _GET_( <v>, <(v)>, NIL, <{valid}>, <{when}> ) ) ;;
         ATail(GetList):Control := _ListBox_( ATail(Getlist):row, ;
               ATail(Getlist):col, <bottom>, <right>, <v>, <items>, <cap>, ;
               <msg>, <clr>, <{fb}>, <{sb}>, <.dd.>, <.sbar.>, <bmap> ) ;;
         ATail(GetList):reader := {| a, b, c, d | GuiReader( a, b, c, d ) } ;;
       [ ATail(GetList):<snd> ;] [ ATail(GetList):Control:<gsnd> ;] ;
         ATail(GetList):Control:Display()

[fladimir]

Obrigado colega... vou testar...

Vc tem um exemplo q use as varias opções q vc colocou...

[]´s

[Imatech]

Olá Fladimir !

Segue o exemplo:

Código: Selecionar todos

  LOCAL cVar := 'A'
  LOCAL aCBBOX := {}
  aCBBOX := { { "A - TESTE", "A" }, ;
              { "B - TESTE", "B" }, ;
              { "C - TESTE", "C" }, ;
              { "D - TESTE", "D" }, ;
              { "E - TESTE", "E" }, ;
              { "F - TESTE", "F" }, ;
              { "G - TESTE", "G" }, ;
              { "H - TESTE", "H" }, ;
              { "I - TESTE", "I" }, ;
              { "J - TESTE", "J" }, ;
              { "K - TESTE", "K" }, ;
              { "L - TESTE", "L" } }

  @ 5, 5, 15, 15 ;
    GET        cVar ;
    LISTBOX    aCBBOX ; // VALID <valid> ; WHEN <when> ; CAPTION <cap> ;
    MESSAGE    "SELECIONE OPÇÃO: TECLE NA BARRA DE ESPAÇO" ;
    COLOR      "GR+/B*,GR+/B*,W+/N*,GR+/R,GR+/B*,GR+/B*,GR+/B*,GR+/N*" ;
    SCROLLBAR  ;
    DROPDOWN

[fladimir]

Obrigado colega pela força...

[]´s