FiveTech Software tech support forums

... return back i cannot change the cargo because it not found it I had the same problem with the array if prices then I found the solution Now I have alista with numbers, aruote with ruotes, and aprices with prices , so I can continue to make the print of the ticket do you Remember?

... ) ..... 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) cNum:= alista[n] nAp:= AScan( aNatural, val(cNum) ) IF nAp>0 HB_ADel( aNatural, nAp, .t. ) Endif Next // take a number ...

... FLAT OF oDlg TOOLTIP "Aggiungi un numero"; WHEN Len( aNatural ) > 0 ; ACTION ( nAt := HB_RandomInt( 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) ...

... NIL// END / FIN  No sorry.....I have many numbers Please see this test I made two states Orange and Blue I have two array one for numbers (alista) and one for numbers fix (afissi) I select and the procedure change the color in DARKORANGE2 and the status cargo https://i.postimg.cc/xCWkn03G/1.png ...

... definido en el campo 4, dado que el campo 5 es el importe calculado), te crea una nueva linea. Obviamente faltan los REPLACE nombredelcampo WITH aLista[x,y] Si me dices la estructura de la dbf, te monto el resto, que sería grabar los datos que contienen el array. Ya me dices Hola de nuevo ing. ...

... definido en el campo 3, dado que el campo 5 es el importe calculado), te crea una nueva linea. Obviamente faltan los REPLACE nombredelcampo WITH aLista[x,y] Si me dices la estructura de la dbf, te monto el resto, que sería grabar los datos que contienen el array. Ya me dices

Hola Amigos.

Necesito saber si efectivamente " SetItems() ", NO puede asignar Array Multidimensional a un Objeto?

Por ejemplo:

AADD(aLista,{"BB","DETALLE BB"})

oAlum::SetItems(aLista)

Muchos Saludos

Antonio

sorry I not understood

If I generate an array on a Window and then I wish open a xbrowser with the array I cannot make it ?

sample :

DEFINE WINDOW oWnd
aLista:= .......
ACTIVATE WINDOW oWnd CENTERED

xbrowser aLista

Hola. Tengo: aLista[01] = { 1, 3, 2} aLista[02] = { 7, 3, 2} aLista[03] = { 8, 6, 2} aLista[04] = {10,3,12} y quiero utilizar el aScan para que me verifique si en la primer columna tiene un numero... intente: nPos:= aScan(aLista, ...

Antonio aLista:= ASort( __ClassSel( oObj:ClassH ) ) aMetodos:=ASORT(__objGetMethodList( oObj )) Ambas devuelven los metodos, necesito leer la classdata #include "FiveTouch.ch" #include "FiveTouch.ch" #xcommand ...

... "Funções Administrativas" BRUSH oBrushSitef TRANSPARENT REDEFINE GROUP ID 200 OF oDlgSitef REDEFINE LISTBOX oLbxLista VAR cItem ITEMS aLista ID 110 OF oDlgSitef UPDATE REDEFINE BTNBMP oButtom1 ID 111 OF oDlgSitef FONT oFnt ; RESOURCE "Confirm24" ; PROMPT "&Continua" ...

Otra Opcion; Defino un array por ejemplo aLista:= { {"", 0, 0} } De esta forma defino el xBrowse de manera que me muestra el browse vacio. Para este caso debe ser asi por que se rellena, luego, en base a un rango de fecha. De manera ...

... TImage():Define( , Bmp ) static function MenuRadio( cMsg, aOpc, cTit, nValue ) ************************************* local oRad, oWnd2, oBot1, aLista := Array( 3 ) local lValor := .f., n := 0 DEFAULT cMsg := 'Valores: ' DEFAULT aOpc := { 'Si', 'No', 'Ignorar' } DEFAULT cTit := 'Elija, por favor..' ...

Un Listbox de tipo
@ 50, 3 LISTBOX oLbx VAR nPos ITEMS aLista OF oDlg COLOR CLR_BLACK, CLR_FONDO_LST SIZE 160, 74 PIXEL

Se puede cambiar el color de la barra?, como

gracias
uso FWH DIC'2005

Aquí otra forma de mostrar array #include "FiveWin.ch" function Main() local oDlg, oLbx local cItem := "" local aLista := {} local n := 0 local nItem := 1 For n = 1 To 10 Aadd( aLista, "hola" ) Next DEFINE DIALOG oDlg RESOURCE "Test" REDEFINE LISTBOX oLbx ; FIELDS aLista[nItem][1], ...