foxpro dos to visual foxpro 9 conversion

foxpro dos to visual foxpro 9 conversion

• Kenneth Vernelen

  dear bertle,

  it seems you have a udf or a seperate prg as Get_Last_Key. It's the one missing i suppose... check for this one in the previous 2.6 version...

  If it's a prg it might have got renamed into get_la~1.prg or get_la~1.fxp.... check with it....

  Regards

  Markish

  
  
  

• KJO43

  The sample code you showed basically sets the function keys to run a program called Get_Last_Key which seems to be missing.

  This could be either a separate program: Get_Last_Key.prg that you should look for in the project or disk or could also be a function/procedure inside a procedure file.

  This would be a prg (e.g. MyProcedures.prg) containing several functions or procedures. You "show" them to FoxPro by issuing a

  SET PROCEDURE TO myProcedures.prg

  HTH

   

  
  

• Mike W1

  Thanks for your response.The conversion is from a foxpro dos 2.5 application with a couple of reports and lables mostly ,prg files I generated a menu and from that menu I'm calling my prgs.This is the part of the code giving me the error;
  
  SHOW WINDOW paCientes
  ON KEY
  ON KEY LABEL F4 DO Get_Last_Key
  ON KEY LABEL F5 DO Get_Last_Key
  ON KEY LABEL F6 DO Get_Last_Key
  ON KEY LABEL F7 DO Get_Last_Key
  ON KEY LABEL F8 DO Get_Last_Key
  ON KEY LABEL F9 DO Get_Last_Key
  ON KEY LABEL ESC DO Get_Last_Key
  ON KEY LABEL F10 DO Get_Last_Key
  SELECT 1
  BROWSE FIELDS nuM_teleph : 8 :R :H = 'Telefono', peTname : 12 :R :H = ;
  ' Nombre', esPecie : 7 :R :H = 'Especie', adMindate : 10 :R :H = ;
  ' Admicion', esTimado : 8 :R :H = 'Estimado', dePosito : 8 :R :H = ;
  'Deposito', faCtbal : 8 :R :H = ' Cargos ', muLtialta : 4 :P = ;
  '!' :H = 'Tipo' :V = IIF(muLtialta='X' .OR. muLtialta='C' .OR. ;
  muLtialta=' ', .T., .F.) :E = ;
  'Oprima X, C o deje el campo en blanco...' FREEZE muLtialta ;
  NOMENU NOAPPEND NOCLEAR IN paCientes COLOR BG+/RB,GR+/RB,GR+/W,,,, ;
  GR+/RB
  
  
  
  

• phanikirankoneru

  Thanks for your response. Here is what the code looks like;
  
  SHOW WINDOW paCientes
  ON KEY
  ON KEY LABEL F4 DO Get_Last_Key
  ON KEY LABEL F5 DO Get_Last_Key
  ON KEY LABEL F6 DO Get_Last_Key
  ON KEY LABEL F7 DO Get_Last_Key
  ON KEY LABEL F8 DO Get_Last_Key
  ON KEY LABEL F9 DO Get_Last_Key
  ON KEY LABEL ESC DO Get_Last_Key
  ON KEY LABEL F10 DO Get_Last_Key
  SELECT 1
  BROWSE FIELDS nuM_teleph : 8 :R :H = 'Telefono', peTname : 12 :R :H = ;
  ' Nombre', esPecie : 7 :R :H = 'Especie', adMindate : 10 :R :H = ;
  ' Admicion', esTimado : 8 :R :H = 'Estimado', dePosito : 8 :R :H = ;
  'Deposito', faCtbal : 8 :R :H = ' Cargos ', muLtialta : 4 :P = ;
  '!' :H = 'Tipo' :V = IIF(muLtialta='X' .OR. muLtialta='C' .OR. ;
  muLtialta=' ', .T., .F.) :E = ;
  'Oprima X, C o deje el campo en blanco...' FREEZE muLtialta ;
  NOMENU NOAPPEND NOCLEAR IN paCientes COLOR BG+/RB,GR+/RB,GR+/W,,,, ;
  GR+/RB
  
  
  

• Michael Ruck

  hi bertle,

  I don't get what sort of appliation u are trying to convert.... is it screen based ones or entirely prg based ones....

  I think the conversion from DOS to VFP is a wild goose chase.....

  Just tell the exact problem, I'll try to help you out....as i started my programming in Foxpro2.0 some where in 1993

  -Markish

  
  
  

• KCSmith

  I assume you have a function called get_last_key() with some parameter that is treated as a file name by Visual Foxpro.

  Do a search of your app file for this string and let us know what the code looks like.

  
  
  

• KLomax

  Bertle
  I hope you have solved your problam by now, by finding the procedure prg.
  If not, let me know,I will do my best to solve it for you.
  
  
  
• foxpro dos to visual foxpro 9 conversion