Only 8 charcters transferred

[Ehab Samir Aziz]

Only 8 charcters transferred from v_mc_meres_combo to oGet_meres

Code: Select all  Expand view  RUN

Local oGet_meres:=space(25)
..
LOCAL oCbx_meres
..
local v_mc_meres_combo:=space(25)
..

  @ 60,200 SAY "Operator" OF oDlg PIXEL
  @ 60,250 SAY ":" OF oDlg PIXEL
  @ 60,260 GET oGet_meres VAR V_MC_meres OF oDlg PIXEL
  @ 60,380 COMBOBOX oCbx_meres VAR v_mc_meres_combo ITEMS aBase1(3,"mach",256,"mc_meres");
  SIZE 110,80 ;
  OF oDlg PIXEL ;
ON CHANGE ( oGet_meres:VarPut( PADR( v_mc_meres_combo, 8 ) ),;
oGet_meres:Refresh(),oDlg:Refresh())



[/img]

[Rochinha]

Friend

Replace this code:

Code: Select all  Expand view  RUN

ON CHANGE ( oGet_meres:VarPut( PADR( v_mc_meres_combo, 8 ) ),;

With this

Code: Select all  Expand view  RUN

ON CHANGE ( oGet_meres:VarPut( v_mc_meres_combo ),;


[Ehab Samir Aziz]

Thanks