Antonio, Una Consulta acerca del xBrowse

[Blessed]

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

[carlos vargas]

Code: Select all  Expand view  RUN

   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

[carlos vargas]

en el caso del campo encriptado, bastaria

Code: Select all  Expand view  RUN

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


[Blessed]

Carlos, Gracias

Me ha servido, para tomar el hilo.

Saludos desde Honduras