PC Toledo

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>)) 

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")

Código: Selecionar todos

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

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")

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()

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