FiveTech Software tech support forums

Solucionado!!!!
asi quedo:

ATail( oDlg:aControls ):nClrText = if(nCol=1,CLR_HRED, ;
If( dWork == Date(), CLR_YELLOW,;
If( dWork == dDate, CLR_HBLUE, If( Month( dWork ) == nMonth,;
if( feriados->(DbSeek(ATail( oDlg:aControls ):Cargo)), CLR_BROWN,CLR_BLACK ), CLR_CYAN ) ) ) )

Gracias por sus ...

... oDlg, 3 ))
@ 3.4, 150 BTNBMP PROMPT "+" SIZE 12, 12 ACTION ( MoveCalendar(oDlg, 4 ))

@ 0.3, 12.3 GET nYear SIZE 40, 12 OF oDlg FONT oFont2
ATail( oDlg:aControls ):Cargo = "YEAR"

@ 1.1, 5 SAY cLongFecha COLOR CLR_HBLUE FONT oFont2
ATail( oDlg:aControls ):Cargo = "DATE"

@ 2, 3 SAY "DOM ...

... cuyo indice es dtoc(fecha) (tambien prove con dtos(fecha)) con el objeto de mostrar en otro color los dias feriados.
lo hago de esta forma:

....
ATail( oDlg:aControls ):nClrText = if(nCol=1,CLR_HRED, ;
If( dWork == Date(), CLR_YELLOW,;
If( dWork == dDate, CLR_HBLUE, If( Month( dWork ) == nMonth ...

Estimado Leandro,

El Sr. Rao lo está revisando

El error viene de aqui:
oCol := ::aCols[ ATail( ::aDisplay ) ]

Parece que ATail( ::aDisplay ) esta devolviendo nil