Incerc sa schimb meniul existent si sa-l generez (prin generator)

Codul vechi arata asa:

define menu...

define popup poprec from 9,33  font 'courier new' style 'b'
define bar 1 of poprec prompt '\<1 Marfuri,mat.stocabile (REC)'
define bar 2 of poprec prompt '\<2 Import (RECFI)'
on selection popup poprec do actrec with bar(),'A'
activate popup poprec

....

procedure actrec
parameter b,par2
do case
 case b=1
  do adrecfa with   'REC       '
 case b=2
  do adRECFI with   'RECFI     ',par2
endcase

cum pot sa fac asta cu generatorul de meniuri? ma refer la optiunea 2 prin care transmit 2 parametri...(pentru ca pe parcursul programului parametrul al 2-lea se schimba,in alt caz e 'S' nu 'A' cum e in cazul asta)

Multumesc anticipat pentru ajutor.

Hi,

Codul tau vechi ar putea fi simplificat cam asa:

define popup poprec from 9,33  font 'courier new' style 'b'
define bar 1 of poprec prompt '\<1 Marfuri,mat.stocabile (REC)'
define bar 2 of poprec prompt '\<2 Import (RECFI)'
on selection popup poprec do actrec with 'A'
activate popup poprec

*******************
PROCEDURE actrec
PARAMETERS par2
do case
 case BAR()=1
  do adrecfa with   'REC       '
 case BAR()=2
  do adRECFI with   'RECFI     ',par2
endcase
RETURN
******************
PROCEDURE adrecfa
PARAMETERS p1
WAIT WINDOW ' adrecfa,  cu parmetrul : ' +p1
RETURN
**************
PROCEDURE adrecfi
PARAMETERS p1,p2
WAIT WINDOW ' adrecfi,  cu parmetrul:  ' +p1 +' '+p2
RETURN
*********

Pentru ca Bar() se transmite oarecum "automat",
deci nu e nevoie sa il dai ca  parametru.
"BAR() Returns the number of the most recently chosen
item from a menu defined with DEFINE POPUP or..."

Dar eu as folosi o alta varianta si mai simpla, care elimina procedura actrec,
si anume:

define popup poprec from 9,33  font 'courier new' style 'b'
define bar 1 of poprec prompt '\<1 Marfuri,mat.stocabile (REC)'
define bar 2 of poprec prompt '\<2 Import (RECFI)'
on selection BAR 1 OF poprec do adrecfa with 'REC'
on selection BAR 2 OF poprec do adrecfi with 'RECFI','A'
activate popup poprec
**************************

Asta in cazul in care vrei sa foloseti modul manual de scriere a meniurilor.
VFP stie sa la genereze singur cu generatorul de meniuri.
In MenuDesigner, poti seta interactiv tot  ceea ce ai scris anterior prin cod.

In prima fereastra alegi Result=Submeniu, apoi Edit,
apoi adaugi cele doua optiuni Marfuri si Import ca "Prompt",
apoi la alegi Result =Comand,
apoi la Options scrii:   do ardecfa with "REC"
respectiv :          do adrecfi with "RECFI", "A" 
Desigur ca trebui sa ai undeva cele doua proceduri stocate in prg-uri.

Daca am inteles bine, vrei sa poti apela aceeasi procedura adrecfi, din mai
multe locuri, insa cu parametrii diferiti "A" sau "S".

Sper sa iti foloseasca.
Rodica