Concatenar 2 o mas campos en xbrowse

Post Reply
José Camilo
Posts: 212
Joined: Wed Apr 07, 2021 3:56 pm

Concatenar 2 o mas campos en xbrowse

Post by José Camilo »

Hola. Estoy tratando de mostrar 2 o mas campos de una dbf en una misma columna de xbrowse.
para que aparezca asi : "99/15-baldes" Estos son 3 campos distintos. 99 15 Baldes.
Gracias
D.Fernandez
Posts: 509
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay
Contact:

Re: Concatenar 2 o mas campos en xbrowse

Post by D.Fernandez »

Hola, yo lo hago así....

Es un ejemplo funcionando, con mis datos.

oCol:=xbr:AddCol()
oCol:cHeader := "Nombre y Apellido"
oCol:cFooter := "Nombre y Apellido"
oCol:bStrData:= {|| rtrim(lTrim(oClientes:NOM)) + "/"+rtrim(lTrim( oClientes:APE)) +"-"+ oClientes:recipiente }
campo donde esta el 99 + "/" agregas la barra + campo donde esta el 16 + "-" + campo baldes

oCol:nDataStrAlign:= AL_LEFT
oCol:oDataFont:= oFont3
oCol:oHeaderFont := oFont4
oCol:oFooterFont := oFont4
oCol:nWidth:= 240


Saludos

Ruben Dario Fernandez
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
User avatar
nageswaragunupudi
Posts: 10721
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Been thanked: 8 times
Contact:

Re: Concatenar 2 o mas campos en xbrowse

Post by nageswaragunupudi »

Code: Select all | Expand

  USE CUSTOMER
   DEFINE DIALOG oDlg SIZE 400,400 PIXEL TRUEPIXEL
   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" ;
      COLUMNS "First", "LTRIM(STR(AGE)) + ' / ' + DTOC(HIREDATE)" ;
      HEADERS  nil, "AGE/DATE" ;
      LINES NOBORDER

   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg
 


Image
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
Posts: 10721
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Been thanked: 8 times
Contact:

Re: Concatenar 2 o mas campos en xbrowse

Post by nageswaragunupudi »

D.Fernandez wrote:Hola, yo lo hago así....

Es un ejemplo funcionando, con mis datos.

oCol:=xbr:AddCol()
oCol:cHeader := "Nombre y Apellido"
oCol:cFooter := "Nombre y Apellido"
oCol:bStrData:= {|| rtrim(lTrim(oClientes:NOM)) + "/"+rtrim(lTrim( oClientes:APE)) +"-"+ oClientes:recipiente }
campo donde esta el 99 + "/" agregas la barra + campo donde esta el 16 + "-" + campo baldes

oCol:nDataStrAlign:= AL_LEFT
oCol:oDataFont:= oFont3
oCol:oHeaderFont := oFont4
oCol:oFooterFont := oFont4
oCol:nWidth:= 240


Saludos

Ruben Dario Fernandez


Unless you are using a very very old version of FWH, please do not use the approach "oBrw:AddCol().oBrw:bStrDate".
Please use COLUMNS clause in the XBROWSE command to get the best of XBrowse.
Regards

G. N. Rao.
Hyderabad, India
José Camilo
Posts: 212
Joined: Wed Apr 07, 2021 3:56 pm

Re: Concatenar 2 o mas campos en xbrowse

Post by José Camilo »

Muchas Gracias Ruben Dario y Mr. Rao.
Post Reply