TcBrowse, no puedo mostrar combinacion de campos.....
Posted: Fri May 05, 2006 10:53 am
Intento mostrar una columna que es una convinacion de varias, a modo de ejemplo: La columna la llamo Articulo, y luego quiero mostrar en la misma columna _ separados por "/" a modo de ejemplo: ART+"/"+APART+"/"+OPC. El resultado es que me muestra la columna en blanco, por el contrario si lo reparto en tres campos individuales va bien, pero si alguno de ellos le aplico una funcion de debase ej.: SubStr(art, 1,5) tampoco funciona. Se puede solucionar con tcBrowse o debo utilizar otro browse. Os dejo al trozo de codigo por si os sirve de refencia. Como es un procedimiento automatico lo tengo dividido en varios arrays que carga en el momento de ejecucion.
Code: Select all
@ -1, 16 COLUMN BROWSE oBrw OF oWndEdit ;
FONT oFont ;
SIZE oWnd:nWidth(),oWnd:nHeight(); //Ancho y lago posilbe COLOR CLR_BLACK, 14481663;
ON CHANGE ( aMantStack[nLen, 4] := str(recno()), oMsgRecNo:SetText("Registro: "+ alltrim( str(recno())) + "/" + alltrim(str(lastrec())) ), oWndEdit:Update() )
//Añado columna si esta borrado el registro para eliminacion
ADD COLUMN TO BROWSE oBrw ;
HEADER "D." OEM ;
DATA iif(deleted(),'>>','');
NOBAR CENTER ;
COLORS CLR_WHITE , 9129488 ; //nRGB( 190, 215, 190 )
SIZE 15
/*
// los datos los cojo de un fichero ini donde esta definido el nombre y el campo de todos los que intervienen en el browse
f_nomd: nombre o literal que quiero que aparezca
*/
//Añado una columna por cada campo de la base de datos
for nPos := 1 to Len(f_expd) // Array con NOMBRE DE CAMPOS
ADD COLUMN TO BROWSE oBrw; //
HEADER f_nomd[nPos] OEM ; // Array con TITULOS DE LAS COLUMNAS
DATA FieldWBlock( (f_expd[nPos]) , Select()) // Aca se genera el CodeBlock para el CAMPO
next