Re: Un tercer color en efecto pijama de Listbox
Posted:
Thu Nov 24, 2011 10:24 pmby ACC69
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.
Re: Un tercer color en efecto pijama de Listbox
Posted:
Fri Nov 25, 2011 1:06 pmby jbrita
Adrian prueba asi
PRUEBA CON
Function Cambiahearder(oLbx)
oLbx:aHeaders:={"Código","Nombre"}
oLbx:SetFocus()
oLbx:Refresh()
RETURN .T.
Saludos
Re: Un tercer color en efecto pijama de Listbox
Posted:
Fri Nov 25, 2011 3:20 pmby 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
Re: Un tercer color en efecto pijama de Listbox
Posted:
Fri Nov 25, 2011 11:21 pmby 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