TcBrowse, no puedo mostrar combinacion de campos.....

[Andrés González]

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 distintos campos 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  Expand view

@ -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