FiveTech Support Forums

Francisco Horta wrote: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.

Adrian prueba asi

PRUEBA CON

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

Saludos

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

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