FiveTech Software tech support forums

Hello,
what is the right way to declare locals.

Should we assign a value directly when declaring a local.

For example:
Function test
local aTemp := {}
or is local aTemp enough.

Can someone please explain the difference.
Thank you in advance and best regards
Otto

... strings. Also formatting must be done before passing to ER. Best regards Otto PRINTAREA 4 OF oVRD ; ITEMIDS { 102, 103 ,104, 105 } ; ITEMVALUES { aTemp[ I,2 ], dtoc( aTemp[ I,8 ]),aTemp[ I,4 ],aTemp[ I,5 ] } Here another sample cMenge := "1" cBezeichnung := reschein->Bezeichnun cPreis ...

First sort the array

ASort( aTemp, , , { |x,y| x[ 8 ] < y[ 8 ] } )

Then build the XBrowse and do not use AUTOSORT.

can I sort an array is on xbrowse ? sample : AaDd(atemp,{strzero(n,4),; //0001 SP->id,; // "O" SP->DESC,; //"ooooooo" SP->SETTORE,; //"A" nGiorni,; //"1" nPriceTemp,; //"10.00" lIslock,; /7".t." ...

... the transparent-area of a ALPHAblended image as a BLACK color I don't know any reason to use it. But You can use something like : if IsAlpha ( aTemp[ n ][ 1 ] ) to detect, if a image includes a alpha-channel http://www.pflegeplus.com/IMAGES/Alpha2.jpg Very useful to download ...

I have an array two dimension and I made a xbrowse AAdd( atemp,{aString[nI],atop[nI]}) @ 30, 10 XBROWSE oLbx OF oDlg ; SIZE 185,100 PIXEL oLbx:SetArray(atemp) If I select a record I wish Have the value of second col ( atop) how I must make I tried also ...

... *qs = (WSAQUERYSET*) malloc( qs_len ); HANDLE lphLookup; INT nError; BTH_ADDR result; char buf[40] = {0}; DWORD bufsize = sizeof(buf); PHB_ITEM aTemp = hb_itemNew( NULL ); PHB_ITEM aNew = hb_itemArrayNew( 0); GUID guid = SVCID_HOSTNAME; hb_arrayNew( aTemp, 5 ); lphLookup = (HANDLE) hb_parnl(1); ...

... to update the xbrowse. The code below is working but a 2. array seems a little time-consuming. FUNCTION Backuploeschen(oBrw) local I := 0 local aTemp := {} local nreturn := 0 For I := 1 to len(aTageSort) aadd( aTemp, { aTageSort[ I ][ 1 ] ,; aTageSort[ I ][ 2 ],; aTageSort[ I ][ 3 ],; aTageSort[ ...

Francisco:

Yo hago lo siguiente:

aConceptos := ASort( aTemp,,, { |a,b| ( DtoS( a[1] ) + Str( a[2], 2, 0 ) ) < ( DtoS( b[1] ) + Str( b[2], 2, 0 ) ) } )

Puedes ver que a[1] y a[2] son los elementos del array que se quiere ordenar.

Espero que te sirva.

Salu2!

... ClickCol :=0 STATIC ClickRow :=0 STATIC startDay :="" STATIC oBrush STATIC lMove :=.f. STATIC hBru STATIC hPen STATIC hPen1 STATIC hPen3 STATIC aTemp := {} STATIC nStartZeile := 0 /* ********** added by rochinha, modify by Quique ********** */ STATIC nYear /* ********** added by rochinha, modify ...

... vaya a ser que los estes dejando guardados en alguna variable: aArreglo := nil y si lo has guardado en alguna variable, tambien has de vaciarlo: aTemp := { aArreglo } aArreglo := nil // esto no ha vaciado el contenido de aTemp !!! aTemp[ 1 ] := nil // ahora si lo has vaciado

... METHOD Select( nOperation ) CLASS TXBrowse #else METHOD _Select( nOperation ) CLASS TXBrowse #endif local uBook, uCurRow, uOldRow, uTemp local aTemp local nAt, nLen local lRefresh if ::nMarqueeStyle != MARQSTYLE_HIGHLROWMS return nil endif DEFAULT nOperation := 1 do case case nOperation == ...

Estimados El mismo programa para la MC3000 funciona para la MC1000 Se que no es gran cosa, pero anexo el programa de como quedo. Saludos #include "fwce.ch" #include "hbclass.ch" #include "Directry.ch" #define crlf chr(13)+chr(10) #define CRLF chr(13)+chr(10) #define CR chr(13) #pragma comment (lib,"...