Tenga todos en buen dia.
Tengo un problema, tengo un Xbrowse, uso una Dbf que guarda el Codigo del Dia de la Semana, pero lo que necesito mostrar en la Columna, es el Nombre del día que se encuentra en un Array.
En espera de sus comentario, les saluda,
Antonio
Dejo el codigo que uso:
- Code: Select all Expand view
***** Array Que Contiene el Nombre del Dia que debo Mostrar en Xbrowse
aDias:= {{"1","Lunes"},{"2","Martes"},{"3","Miercoles"},{"4","Jueves",{"5","Viernes"},{"6","Sabado"},{"7","Domingo"}}}
*****
DEFINE DIALOG oDlg33 RESOURCE "#1005" FONT oFont
REDEFINE SAY otitu2 PROMPT " DIAS DE ATENCION " ID 4006 OF oDlg33 COLORS RGB(43, 59, 109) FONT oFont1
REDEFINE XBROWSE oBrw2 ID 4005 OF oDlg33 DATASOURCE "HoraBase" FONT oFont2; // <------ Xbrowse Hijo
HEADERS 'Día','Inicio','Término','Frecu','Can.Paci','Estado';
COLUMNS 'Cod_Dia', 'Hor_Ini','Hor_Fin','Frecue','Can_Pac','Est_Dia', // <---- Campo Cod_Dia, debo mostrar el Nombre del dia que esta en Array.
PICTURES '@!','@!','##:##,'##:##','99','99','!';
CELL LINES AUTOSORT NOBORDER;
WITH OBJECT oBrw2
oBrw2:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw2:nColDividerStyle := LINESTYLE_RAISED
oBrw2:nRowDividerStyle := LINESTYLE_RAISED
oBrw2:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
oBrw2:bClrStd := { || If( Eval( oBrw2:bKeyNo,,oBrw2) % 2 == 0, { CLR_BLACK, RGB( 198, 255, 198 ) },;
{ CLR_BLACK, RGB( 232, 255, 232 ) } ) } // Efecto Cebra
oBrw2:nOpacity := 230
oBrw2:nHeaderHeight := 35
oBrw2:nFreeze := 5
oBrw2:aCols[ 1 ]:oDataFont := oFont7
oBrw2:lAutoSort := .t.
oBrw2:lFooter := .T.
oBrw2:lHScroll := .f.
oBrw2:SetStyle( 2007)
oBrw2:nColorPen := CLR_RED
oBrw2:bChange := {|| oBrw2:Refresh() }
oBrw2:aCols[1]:bClrHeader := { || { CLR_HRED,CLR_WHITE } }
END WITH
REDEFINE BTNBMP ID 4003 PROMPT "ELIMINAR" OF oDlg33 2007 FONT oFont7 C;
ToolTip "ELIMINA REGISTRO";
ACTION (delrow(),oBrw2:Refresh())
ACTIVATE DIALOG oDlg33 CENTERED
RELEASE FONT oFont,oFont1,oFont7
Return nil