Antonio, Una Consulta acerca del xBrowse

Board index FiveWin para Harbour/xHarbour Antonio, Una Consulta acerca del xBrowse

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

Antonio, Una Consulta acerca del xBrowse

Posted: Tue Sep 02, 2008 07:34 PM

Hola Antonio:

Recien me actaulice a la FWH 8.08, desde la 8.01 veo que hay toda una cantidad de cambios.
Y es con el xBrowse, que me he detenido un poco, y en lo basico.
Tengo muchas tablas con contenido encryptado, y no se como mostrarlas en el xBrowse, con la funcion Decrypt( USER->N_CORTO ), y que me muestre la informacion desencriptada.
Asi como campos logicos, que quisiera presentarlos como "Si" o "No" en el xBrowse.

Saludos desde Honduras

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Antonio, Una Consulta acerca del xBrowse

Posted: Tue Sep 02, 2008 07:55 PM

Code: Select all Collapse

   WITH OBJECT ( oBrw := TXBrowse():new( oDlg ) )
      :CreateFromResource( 101 )
      :cAlias                 := "CLIE"
      :nColDividerStyle       := LINESTYLE_DARKGRAY
      :lColDividerComplete    := TRUE
      :nMarqueeStyle          := MARQSTYLE_HIGHLROW
      :lAllowRowSizing        := FALSE
      :lRecordSelector        := TRUE
      :bClrHeader             := { || { CLR_BLUE, CLR_BROWTIT } }
      :bClrFooter             := { || { CLR_RED,  CLR_BROWTIT } }
      :bLDblClick             := { || Proveedores_Editar(FALSE) }
      :bKeyDown               := { |nKey| Clientes_ProcesaTecla( nKey ) }
      :bKeyChar               := { |nKey| Browse_OnKeyCharPress(nKey,TRUE,oBrw) }
      :lAllowColHiding        := FALSE
      :lAllowColSwapping      := FALSE
      :lAllowRowSizing        := FALSE
      :lHScroll               := FALSE
      :l2007                  := FALSE
      :nFreeze                := 3
      :SetFont(oFnt)

      /*COL-CODIGO*/
      WITH OBJECT ( oCol := :AddCol() )
         :cHeader  := "Código"
         :bStrData := {|| CLIE->CODIGO }
         :nWidth   := 50
      END
      /*COL-NOMBRE*/
      WITH OBJECT ( oCol := :AddCol() )
         :cHeader  := "Nombre de Proveedor"
         :bStrData := {|| CLIE->NOMBRE }
         :nWidth   := 250
      END
      /*COL-TEST*/
      WITH OBJECT ( oCol := :AddCol() )
         :cHeader  := "Campo Logico"
         :bStrData := {|| iif( ALIAS->CAMPOLOG, "Si","No" ) }
         :nWidth   := 250
      END
      /*COL-TIPO*/
      WITH OBJECT ( oCol := :AddCol() )
         :AddResource("ON")
         :AddResource("OFF")
         :cHeader       := "Activo"
         :bBmpData      := {|| IIf(CLIE->ACTIVO,1,2) }
         :nDataBmpAlign := AL_CENTER
         :nWidth        := 40
      END
   END]

[/code]

Salu2

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Antonio, Una Consulta acerca del xBrowse

Posted: Tue Sep 02, 2008 07:58 PM

en el caso del campo encriptado, bastaria

Code: Select all Collapse

      /*COL-TEST*/ 
      WITH OBJECT ( oCol := :AddCol() ) 
         :cHeader  := "Campo Encriptado"Logico" 
         :bStrData := {|| Decryp( USER->PASSWORD ) }} 
         :nWidth   := 250 
      END

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Blessed

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

Antonio, Una Consulta acerca del xBrowse

Posted: Tue Sep 02, 2008 10:05 PM

Carlos, Gracias

Me ha servido, para tomar el hilo.

Saludos desde Honduras

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

FiveTech Support Forums

Antonio, Una Consulta acerca del xBrowse

Antonio, Una Consulta acerca del xBrowse

Antonio, Una Consulta acerca del xBrowse

Antonio, Una Consulta acerca del xBrowse

Continue the discussion