FiveTech Software tech support forums

... size 30,30 PIXEL FLAT OF oDlg TOOLTIP "Aggiungi un numero"; action OneNumb(oBtnNum, oSay,@aNatural ) ..... Function OneNumb(oCmb, oSay,aNatural ) local atemp := {} local nAt,nAp local cNum //check and del to aNatural the numbers are allready on alista For n=1 to Len(aLista) ...

... 1, Len( aNatural ) ), ; AAdd( aLista, aNatural[ nAt ] ), ; HB_ADel( aNatural, nAt, .t. ), ; AddOne(oBtnNum,aLista,oSay) ) Function AddOne(oCmb,atemp,oSay) For n= 1 to Len(atemp) idcheck:= atemp[n] oCmb[idcheck]:cargo:=1 // I need to change the cargo of btnbmp SetStatus( oCmb[idcheck],oSay) ...

Hola, muchas veces para asociar dos arrays con un COMBOBOX, como ser códigos y descripciones, es mejor utilizar del DBCOMBO REDEFINE DBCOMBO ::oCmb[01] ; VAR ::vCmb[01] ; ID 107 ; OF oDlg1 LIST ::aCte[01] ; ITEMS ::aCte[02] saludos Marcelo mmm nunca he utilizado DBCOMBO me marca error al compilar... ...

... ME MUESTRA EL COMBO CON LA DESCRIPCION DEL TIPO DE CLIENTE FUNCIONA PERFECTO DEFINE Dialog oDlg Resource "DL_102" Redefine ComboBox ::oCmb[01] VAR ::vCmb[01] Id 107 Of oDlg Items ::aCte[01] Activate Dialog ::oDlg LO MISMO COMBOBOX CON TMSQL ***ABRO LAS TABLAS ::oCliente := ::oMain:oCon:Query( ...

Hola, muchas veces para asociar dos arrays con un COMBOBOX, como ser códigos y descripciones, es mejor utilizar del DBCOMBO REDEFINE DBCOMBO ::oCmb[01] ; VAR ::vCmb[01] ; ID 107 ; OF oDlg1 LIST ::aCte[01] ; ITEMS ::aCte[02] saludos Marcelo

... 1,aScan( ::aCte[02], { |a|a = ::oClientes("TIPO_CLIENTE") } ) ) ] ***LUEGO ABRO EL COMBOBOX EN UN DIALOGO Redefine ComboBox ::oCmb[01] VAR ::vCmb[01] Id 107 Of oDlg1 Items ::aCte[01] No logro hacer que al seleccionar un cliente se muestre asociado a un tipo.. alguna sugerencia, ...

... que asignar a ::vCmb el valor del primer elemento del array Antonio, Efectivamente tendría que ser la posición 1, incluso fuerzo el objeto ::oCmb:nAt := 01 a esa posición, pero aun así en el combobox no se muestran la información del primer dato contenido en el... , la primera información ...

Hola gracias lo agregue como indicas method Datos () aqui lleno los nuevos datos del combo.... aadd( ::aCmb, { direccion1, direccion2} ) ::oCmb:Setitems(::aCmb) ::oCmb:Refresh() Return NIL pero me marca el siguiente error Application =========== Path and name: F:\Respaldos\Dropbox\app\FastTackV7.0\Bin\Fast ...

... ..... Redefine Get ::oGet[02] VAR ::vRut Id 102 Of ::oDlg picture "@R 99.999.999-!" valid { datos( ::vRut} ) Redefine ComboBox ::oCmb VAR ::vCmb Id 131 Of ::oDlg Items ::aCmb[01] Update Activate Dialog ::oDlg.... method Datos () aqui lleno los nuevos datos del combo.... aadd( ...

... ingreso un valor; lo que intento es que me evalué tal valor, para que, si es nuevo, lo agregue a la BD. Lo primero que intente es ponerlo en: oCmb:bLostFocus; pero no evlaua al salir, tanto si pulso Tab como Intro (aunque si lo hace al tomar el foco???) Luego, también probé con el VALID, y ...

... un proceso que una vez finalizado oculta el browse y se da de nuevo foco al Combo y; aunque a la variable le asigno cItem:= "" y luego hago oCmb:Refresh(), el valor previamente seleccionado sigue visible. Se puede poner el Combo a su valor inicial? (sin mostrar ningún elemento del mismo) ...

Mario,


oCmb:Add( "Mi dato" ), hago
aTmpItems := ACLONE( oCmb:aItems )
aSort( aTmpItems )
oCmb:SetItems( aTmpItems )
oCmb:Refresh()


No lo probé, pero supongo deberia funcionar.

Saludos

... Combobox pretendo que luego este se vea ordenando alfabéticamente. Leyendo en la clase observo que no existe un :Sort() por lo que luego de hacer: oCmb:Add( "Mi dato" ), hago aSort( oCmb:aItems ) oCmb:Refresh() Y, el efecto no es el deseado, ya que "Mi dato" sigue al final de la lista. Se puede ...

... Combobox pretendo que luego este se vea ordenando alfabéticamente. Leyendo en la clase observo que no existe un :Sort() por lo que luego de hacer: oCmb:Add( "Mi dato" ), hago aSort( oCmb:aItems ) oCmb:Refresh() Y, el efecto no es el deseado, ya que "Mi dato" sigue al final de la lista. Se puede ...

oCmb:oJump:= oGet, oGet:SetFocus()