FiveTech Software tech support forums

... 12607 )   Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 )  I made I have the array type aDatiDisp[10,6,4,9] I save on this array 10= hours from 1 to 10 6= number of days from monday to saturday 4= type of show 9= number of fields of Orario.dbf ...

Perhaps I founded a solution aDatiDisp[1][1]:= IIF(Left(DO->l_lun, 1)="S",.T.,.F.) aDatiDisp[1][2]:= IIF(SubStr(DO->l_lun, 2, 1)="S",.T.,.F.) aDatiDisp[1][3]:= IIF(SubStr(DO->l_lun, 3, 1)="S",.T.,.F.) ...

... picture : http://img16.imageshack.us/img16/7365/fieldm.png then each data is call with for a sample I have a string SSSSSSNSSS aDatiDisp[1][1]:= Left(DO->l_lun, 1) aDatiDisp[1][2]:= SubStr(DO->l_lun, 2, 1) aDatiDisp[1][3]:= SubStr(DO->l_lun, 3, 1) aDatiDisp[1][4]:= ...

... paid but the latter are not necessary in my opinion in this context I've already done the listbox inside the ribbon and I assigned the array aDatiDisp value of 1 or 2 if the table is free or busy : to make a quick example I asegnato only 7 months and 31 regions for each month but this is ...

Use a three element array.

aadd( aDatiDisp, nMonth, nDay, if( lOccupated, .T., .F.) )

I dont Know How make it ... How Load into array these values I try with this but then I not Know how make : FUNCTION LOAD(nTable,aDatiDisp) USE RESERVATION ALIAS RESERVA INDEX ON RESERVA->NUMTABLE TO TABLES DO wHILE ! EOF() if RESERVA->NUMTABLE==nTable DInit:=RESERVA->datain DEnd:=RESERVA->datafin ...

... all reservation of that table where I have only 3 field numtable dateinit dateend for create the xbrowse you can see on picture I used an array aDatiDisp[7,31] 7 = mounths from March to September 31 = the days Now I must load on each array the data .t. or .f. if the table is free or not

I created a xbrowse from array I want insert colors for each cell Local aDatiDisp[10,6]   Local aDatiDisp_colore[10,6] aData := { {aOrario[1], aDatiDisp[1][1],aDatiDisp[1][2],aDatiDisp[1][3],aDatiDisp[1][4],aDatiDisp[1][5],aDatiDisp[1][6]},;  ...

... l_mer l_gio l_ven l_sab each field have a string of ten characters as "SSSSSSNSNS" S := Yes N := No I thinked to load all string into array type adatidisp[6,10] static function CARICA_REC(aDati, aDatiDisp) aDatiDisp[1][1]:= Left(aule->l_lun, 1) aDatiDisp[1][2]:= ...