xbrowse picture for string with percentual field

[Silvio.Falconi]

I wish insert a picture with "%" into a column of a xbrowse as this:



Note : the final user inser a string (max 10 CR) not a number !!

How I can make to replace the record with percetual symbol at the end if the record is changed ?

[Silvio.Falconi]

Any solution ?

[Armando]

Silvio:

Just an idea.

Using the VALID method you can do this:

Code: Select all  Expand view

STATIC cUserVar
....
....
....

        REDEFINE GET aGets[ 2] VAR cUserVar ID 102 OF oDlg UPDATE;
            PICTURE "@K";
            VALID ChgStr(oDlg)
....
....

STATIC FUNCTION ChgStr()
   IF ! EMPTY(ALLTRIM(cUserVar))
          cUserVar := ALLTRIM(cUserVar) + "%"
   ENDIF
   oDlg:Update()
RETURN(.T.)
 

Regards

[Silvio.Falconi]

Armando I'm using a xbrowse

[Armando]

Silvio:

Ouch, I'm not expert in xBrowse class, but I remember xBrowse has POSTEDIT method
then you can use my previous idea with that method.

Regards

[Silvio.Falconi]

I tried with bOnChange method but it not run ok or I not Know how set the right variable

sample
:bOnChange := { |oCol, uOldVal| MyFuncOnChange( oCol, uOldVal ) }

[nageswaragunupudi]

Code: Select all  Expand view

oCol:bEditValue := { |x| If( x == nil, ( oBrw:cAlias )->SCONTI, (oBrw:cAlias)->SCONTI := RemRight( x, "%" ) + "%" ) }
 

[Silvio.Falconi]

thanks... I not Know remright .func.is xharbour ?

perhaps I made some errors because here not run also
When iinsert sample "50+30+3" it not replace the symbol % at the end

Code: Select all  Expand view

  aBrowse     :=  {{"PAITEM"      ,i18n("Codice")       ,nil                  ,50 },;
                        { "PADESC"      ,i18n("Descrizione")  ,nil                 ,160 },;
                        { "PAQTY"       ,i18n("Quantità")     ,"9999"               ,60 },;
                        { "PAMISURA"    ,i18n("Misura")       ,nil                  ,60 },;
                        { "PAUNITARIO"  ,i18n("Unitario")     ,pict_money_Euro      ,80 },;
                        { "PASCONTO"    ,i18n("%Sconto")       , nil                 ,80 },;
                        { "PAPROVV"     ,i18n("%Provv.")      ,'@ 999.99%'          ,60 },;
                        { "PAIVA"       ,i18n("Iva")          ,"99%"                ,40 },;
                        { "PATOTALE"    ,i18n("Importo")      ,pict_money_Euro      ,80 }}



 @ 0, 0 XBROWSE oBrw       ;
      OF oFld:adialogs[1] DATASOURCE "TB" ;
      COLUMNS aBrowse CELL LINES  FOOTERS NOBORDER



.....




 WITH OBJECT  oBrw:aCols[6]
               :nEditType := EDIT_GET
               :nDataStrAlign := AL_RIGHT
             [b]  :bEditValue := { |x| If( x == nil, ( oBrw:cAlias )->PASCONTO, (oBrw:cAlias)->PASCONTO := RemRight( x, "%" ) + "%" ) }[/b]
            END