Page 1 of 1

buenas tardes. consulta.

Posted: Wed Apr 07, 2021 6:16 pm
by 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

Re: buenas tardes. consulta.

Posted: Wed Apr 07, 2021 6:33 pm
by Antonio Linares
asi ?

alias->NombreCampo

Re: buenas tardes. consulta.

Posted: Wed Apr 07, 2021 6:59 pm
by jvtecheto
Hola Jose Camilo:

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

Code: Select all | Expand



   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.

Re: buenas tardes. consulta.

Posted: Wed Apr 07, 2021 8:39 pm
by José Camilo
Muchas Gracias. lo pruebo y aviso.

Re: buenas tardes. consulta.

Posted: Wed Apr 07, 2021 9:18 pm
by José Camilo
Perfecto. gracias Antonio y jutecheto.