buenas tardes. consulta.

[José Camilo]

estoy definiendo un xBrowse y al definir los campos necesito intercalar entre ellos la descripcion de un campo de otra base. se entiende.
quiero mostrar los articulos y en cada uno mostrar el rubro que esta en otra base, que tambien esta abierta y relacionada con set relation.
Como se puede Hacer? Gracias

[Antonio Linares]

asi ?

alias->NombreCampo

[jvtecheto]

Hola Jose Camilo:

Tal y como te dice Antonio. Mira un ejemplo simple de definicion.

Code: Select all  Expand view

   Local ApuProvew,  cAliasApuProve := "Apup"

   /* La tabla a mostrar es la del alias y los campos.  "ApupObr->Nombre",  "ApupProv->Nombre" estan es SET RELATION */
 

   @ 2, 0 XBROWSE ApuProvew DATASOURCE cAliasApuProve ;
   COLUMNS "Fecha", "ApupObr->Nombre", "ApupProv->Nombre", "Factura", "Importe" ;
   HEADERS "FECHA", "OBRA", "PROVEEDOR", "FACTURA", "IMPORTE" CELL LINES AUTOSORT FOOTERS ;
   PICTURES NIL, NIL, NIL, NIL, "999,999.99" ;
   ON DBLCLICK EditApuProve( ApuProvew, .F. ) WHEN Apup->( LastRec() ) > 0 OF oWndAp UPDATE STYLE 2007

    WITH OBJECT ApuProvew
      :nColDividerStyle := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle := LINESTYLE_LIGHTGRAY
      :nMarqueeStyle    := MARQSTYLE_HIGHLROW
      :lSeekBar    := .T.
      :bClrEdits  := { || { CLR_HRED, CLR_YELLOW } } */
      :bClrStd  := { || IIf( Eval( ApuProvew:bKeyNo,, ApuProvew ) % 2 == 0, { CLR_BLACK, color1 }, { CLR_BLACK, color2 } ) }
      :bKeyDown := { | nKey | IIf( nKey == 13, EditApuProve( ApuProvew, .F. ), ApuProvew:Refresh() ) }
      // Footer
      :nFooterLines := 1
      :aCols[ 4 ]:cFooter := "TOTAL ->"
      :aCols[ 4 ]:nFootStrAlign := AL_RIGHT
      // :aCols[4]:cDataType := "N"
      :aCols[ 05 ]:nFooterType := AGGR_TOTAL
      :aCols[ 5 ]:nFootStrAlign := AL_LEFT
      :MakeTotals()

      :CreateFromCode()
   END WITH

 

Saludos.

Jose.

[José Camilo]

Muchas Gracias. lo pruebo y aviso.

[José Camilo]

Perfecto. gracias Antonio y jutecheto.