GRID color por celda
David Field
pier.ma...@alice.it
\minigui\Muestras\Advanced\
Carpeta Tsbrowse y
Carpetas TSB_[Más argumentos]
Pierpaolo Martinello
IW1CUY Ham Radio From Biella Italy
Linux User 177880
David Field
avazq...@gmail.com
Buenas
Te paso un prg en el que gestiono el color de celda en función de su valor entre 0 y 5,entre 6 y 10 y entre 11 y 15.
Seguro que lo puedes modificar y mejorar.
Renombra el archivo a PRG
No me puedo creer que esté ayudando a un gurú jajaja
Fundamentalmente, las líneas son:
****************** Colores para BROWSE
public bColor1 := { || if ( (_OOHG_ThisObject:WorkArea:Recno() % 2) =0, {0,0,0}, {0,0,0} )}
public bColor2 := { || if ( (_OOHG_ThisObject:WorkArea:Recno() % 2) =0, {255,255,255}, {210, 210, 220} )}
public bColor3 := { || if(oRsAlbaran:cantidad<5, {102, 255,153}, if(oRsAlbaran:cantidad<10, {110,232,248}, if(oRsAlbaran:cantidad<15, {248,251,107}, bcolor1)))}
y en el browse
@ 90, 2 XBROWSE BrwAlbaran parent frmVent ;
obj oBrwAlbaran;
WIDTH nxbrowse ; && 774 ;
HEIGHT 300;
WORKAREA ( oRsAlbaran ) ;
HEADERS { "Código", "Artículo", "Cantid", "P.Unid", "Dto", "Tip", "Total"} ;
HEADERCOLORS { RED, RED, RED, RED, RED, RED, RED} ;
COLUMNCONTROLS { {'TEXTBOX'}, {'TEXTBOX' }, {'TEXTBOX','NUMERIC','@ZE 99,999.99'}, {'TEXTBOX','NUMERIC','@Z 99,999.99'}, {'TEXTBOX','NUMERIC','@Z
999.99'}, {'TEXTBOX' }, {'TEXTBOX','NUMERIC','@Z 99,999.99'}};
WIDTHS awidths; && { 60, 325, 60, 72, 60, 40, 72 } ;
FIELDS { {|wa| wa:codigo}, {|wa| wa:articulo}, {|wa| wa:cantidad}, {|wa| wa:punidad}, {|wa| wa:dto}, {|wa| wa:tipodto}, {|wa| wa:totlinea}} ;
JUSTIFY {BROWSE_JTFY_CENTER, BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_CENTER, BROWSE_JTFY_RIGHT} ;
SELECTEDCOLORS { WHITE , BLUE, WHITE , BLUE, WHITE , BLUE, WHITE , BLUE, WHITE , BLUE, WHITE , BLUE, WHITE , BLUE};
ON DBLCLICK {|| modiflineaalbaran() } ;
ON CHANGE {|| navegoalba() } ;
READONLY { .t. , .t., .t., .t., .t., .t., .t.} ;
BEFORECOLMOVE {|nCol| NIL }; && AntesDeMover( nCol )} ;
AFTERCOLMOVE {|nCol, nPosicion| NIL} ; && DespuesDeMover( nCol, nPosicion )} ;
BEFORECOLSIZE {|nCol| NIL} ; && AntesDeCambiar( nCol )} ;
AFTERCOLSIZE {|nCol, nTam| Btn_Albaran:repinta_campo_busca( ncol, ntam) }; && DespuesDeCambiar( nCol, nTam )} ;
BEFOREAUTOFIT {|nCol| NIL}; &&AntesDeAutoAjuste( nCol )}
SIZE 10 ;
FONT 'Arial' ;
FULLMOVE ;
DYNAMICFORECOLOR { bcolor1, bcolor1, bcolor1, bcolor1, bcolor1, bcolor1, bcolor1} ;
DYNAMICBACKCOLOR { bcolor2, bcolor2, bcolor3, bcolor2, bcolor2, bcolor2, bcolor2}
Espero te sirva y sea esto lo que buscas.
Un abrazo.
--
Has recibido este mensaje porque estás suscrito al grupo "[oohg]" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a oohg+uns...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/6055fd41-9106-42dd-95fa-ea21e971e4f7n%40googlegroups.com.
avazq...@gmail.com
De: oo...@googlegroups.com <oo...@googlegroups.com> En nombre de David Field
Enviado el: miércoles, 30 de agosto de 2023 3:17
Para: [oohg] <oo...@googlegroups.com>
Asunto: [oohg] GRID color por celda
Hola,
--
David Field
Antonio Vázquez
Sent: Thursday, August 31, 2023 12:23:50 AM
To: [oohg] <oo...@googlegroups.com>
Subject: Re: [oohg] GRID color por celda
pier.ma...@alice.it
Pierpaolo,Precioso GRID, desde la cabeza hasta los pies.Lástima que no pueda integrarlo a OOHG y cambiar mis sistemas sería mucho trabajo.
presentado en Minigui Extended, o todo estilo OOHG.
Pierpaolo Martinello
IW1CUY Ham Radio From Biella Italy