FiveTech Software tech support forums

... HANDLEEVENT( 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 ...

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.)
aDatiDisp[1][4]:= IIF(SubStr(DO->l_lun, 4, 1)="S",.T.,.F.)
aDatiDisp[1][5]:= IIF(SubStr(DO->l ...

... 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]:= SubStr(DO->l ...

... 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 not ...

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

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

... 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&#41 ...