Un tercer color en efecto pijama de Listbox

[ACC69]

Adrian,
pasale el parametro asi :

VALID V_Concepto(@cCostPrep,oLbx2)

y sustituye
STATIC FUNCTION V_CONCEPTO(cCostPrep,oLbx2)

y me comentas
salu2
paco

Hola de nuevo Francisco, no me funciona,mejor lo dejo asi, como "Costo/Prec", lo unico que me cambia, es el Label y el Get, desde concepto, lo unico que no me cambia, es el Header del TWBrowse, creo que nadie lo ha hecho de esta manera,bueno de todas maneras muchas gracias por tu tiempo Francisco.

Saludos y buen dia a todos

Atte: Adrian C. C.

[jbrita]

Adrian prueba asi

PRUEBA CON


Function Cambiahearder(oLbx)
oLbx:aHeaders:={"Código","Nombre"}
oLbx:SetFocus()
oLbx:Refresh()
RETURN .T.

Saludos

[jbrita]

Amigo y para el pijama con condicion

*oLbx:bClrStd := {|| IIf(SQLField(oExi_Suc,"sto_ok")==1,{CLR_BLACK,RGB(231,226,141)},IIF( oLbx:nArrayAt%2==0,{CLR_BLACK,RGB(193,221,255)},{CLR_BLACK,RGB(221,245,255)} ) ) }

saluods

[Francisco Horta]

Adrian,
ami si me funciona cambiar los headers en tiempo de ejecucion
haz esto: crea 2 arreglos con los encabezados como gustes
ahead1:={"1","2","3"}
ahead2:={"1","B","3"}
luego
REDEFINE LISTBOX oLbx2 ;
FIELDS TRIM((S24)->CVEART),TRANS((S24)->CANTIDAD,cPict1),IF( (S22)->STATMOV="E",TRANS((S24)->COSTUNIT,cPict1),;
TRANS((S24)->PREPUBLI,cPict1) ),;
TRANS((S24)->IMPORTE,cPict1) ;
SIZES 95,60,70,70;
ALIAS (S24)->(ALIAS()) ID 111 OF oDlg UPDATE

oLbx2:aHeaders := ahead1

y en tu valid del get en la funcion
STATIC FUNCTION V_CONCEPTO(oLbx2,ahead1,ahead2)

oLbx2:aHeaders := {}
IF (S22)->STATMOV = "E"
cCostPreP := "Costo Unit"
sustituye asi:
oLbx2:aHeaders := ahead1
ELSE
cCostPreP := "Prec Púb"
oLbx2:aHeaders := ahead2
ENDIF
oLbx2:Refresh()

salu2
paco