Tengo un problema, estoy tratando de poner unos BMP en una columna de Xbrowse el cual cambiara según valor de una variable tipo de atención.
En este caso es con coordenadas y no logro hacerlo, anteriormente lo hacia con Dialog desde recurso y funcionaba muy bien.
Muchos saludos.
Antonio
Dejo el código :
- Code: Select all Expand view RUN
@ 45,60 SAY otitu2 PROMPT "PROCEDIMIENTOS" SIZE 100,10 PIXEL OF oFld:aDialogs[1] COLORS RGB(0,100,0) FONT oFont9 TRANSPARENT
@ 55,05 XBROWSE oBrw SIZE 368,-55 PIXEL OF oFld:aDialogs[1] DATASOURCE "DAdm" FONT oFont2;
HEADERS 'Fecha', 'Administración','Profesional', 'Jeringas','Val.Unita','Total...';
COLUMNS "Fec_Adm","MProc->Nom_Proc","Trim(Profe->Nom_Prof)","Can_Jer","Val_Uni","Val_Tot";
COLSIZES 90,160,160,60,60,80,60;
PICTURES '@d','@!',"@!",'999','9,999,999','999,999,999';
CELL LINES AUTOSORT NOBORDER;
// oBrw:nFreeze := 3
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_INSET
oBrw:nRowDividerStyle := LINESTYLE_INSET
oBrw:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
oBrw:nOpacity := 230
oBrw:aCols[01]:bFooter := { || Ltrim( Str( oBrw:KeyNo() ) ) + " / " + LTrim( Str( oBrw:KeyCount() ) ) }
oBrw:aCols[ 4]:nDataStrAlign := AL_RIGHT
oBrw:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } }
oBrw:bClrSelFocus := {|| { nRGB(9, 11, 10), nRGB(73, 250, 202) } }
oBrw:bClrSel := {|| { nRGB( 0, 0,255), nRGB(241,222,088) } } // para barra de linea selecc cuando el control no tiene el foco
oBrw:aCols[6]:cEditPicture := "999,999,999"
oBrw:aCols[6]:nFooterType := AGGR_TOTAL
oCol := oBrw:AddCol()
oCol:AddResource("#10") // Control
oCol:AddResource("#50") // Administra
oCol:cHeader = "Tip.Ate."
oCol:bBmpData := { || If(DAdm->Est_Adm = "A",2,1) }
oBrw:MakeTotals()
oBrw:bChange := {|| oBrw:Maketotals() }
WITH OBJECT oBrw
:lFooter := .t.
oBrw:lHScroll := .f.
oBrw:lIncrFilter := .f.
oBrw:lSeekWild := .F. && .T. Busca Contenido, .F. Que comience con lo que digita
oBrw:SetStyle( 2018)
oBrw:nColorPen := CLR_RED
:bChange := { || oBrw1:GoTop(), oBrw1:Refresh(),otitu2:Refresh() } // Aqui Filtra el Xbrowse de Zonas
// :bChange := { || oBrw2:GoTop(), oBrw2:Refresh(),otitu3:Refresh() } // Aqui Filtra el Xbrowse de Zonas
oBrw:CreateFromCode()
END
