*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="list3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>

*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "NIR-uri"
ON BAR 1 OF Shortcut ACTIVATE POPUP _13c0v16p0

	*----------------------------------
	DEFINE POPUP _13c0v16p0 SHORTCUT RELATIVE
	DEFINE BAR 1 OF _13c0v16p0 PROMPT "\<NIR de la numar la numar"
	ON SELECTION BAR 1 OF _13c0v16p0 DO BAR_1_OF__13c0v16p0_FB2P

	DEFINE BAR 2 OF _13c0v16p0 PROMPT "NIR-uri \<pe Gestiuni"
	ON SELECTION BAR 2 OF _13c0v16p0 DO BAR_2_OF__13c0v16p0_FB2P

DEFINE BAR 2 OF Shortcut PROMPT "\NIR/BON pe baza de fisa tehnologica"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P

DEFINE BAR 3 OF Shortcut PROMPT "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _1020r1888

	*----------------------------------
	DEFINE POPUP _1020r1888 SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "PV de productie"
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P

DEFINE BAR 5 OF Shortcut PROMPT "\Deviz-PV de productie"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P

DEFINE BAR 6 OF Shortcut PROMPT "\-"
ON BAR 6 OF Shortcut ACTIVATE POPUP _1020r5imu

	*----------------------------------
	DEFINE POPUP _1020r5imu SHORTCUT RELATIVE
DEFINE BAR 7 OF Shortcut PROMPT "\<Bon de consum"
ON BAR 7 OF Shortcut ACTIVATE POPUP Bondeconsu

	*----------------------------------
	DEFINE POPUP Bondeconsu SHORTCUT RELATIVE
	DEFINE BAR 1 OF Bondeconsu PROMPT "\<De la numar la numar"
	ON SELECTION BAR 1 OF Bondeconsu DO BAR_1_OF_Bondeconsu_FB2P

	DEFINE BAR 2 OF Bondeconsu PROMPT "Pe comenzi"
	ON SELECTION BAR 2 OF Bondeconsu DO BAR_2_OF_Bondeconsu_FB2P

	DEFINE BAR 3 OF Bondeconsu PROMPT "Pe gestiuni"
	ON SELECTION BAR 3 OF Bondeconsu DO BAR_3_OF_Bondeconsu_FB2P

DEFINE BAR 8 OF Shortcut PROMPT "\<Retur magazie"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P

DEFINE BAR 9 OF Shortcut PROMPT "\Raport de productie postcalcul"
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P

DEFINE BAR 10 OF Shortcut PROMPT "\-"
ON BAR 10 OF Shortcut ACTIVATE POPUP _10w0r33ym

	*----------------------------------
	DEFINE POPUP _10w0r33ym SHORTCUT RELATIVE
DEFINE BAR 11 OF Shortcut PROMPT "Transferuri"
ON BAR 11 OF Shortcut ACTIVATE POPUP NewItem

	*----------------------------------
	DEFINE POPUP NewItem SHORTCUT RELATIVE
	DEFINE BAR 1 OF NewItem PROMPT "\<Diferenta de pret la produse"
	ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P

	DEFINE BAR 2 OF NewItem PROMPT "Catre o gestiune la pret de \<achizitie"
	ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P

	DEFINE BAR 3 OF NewItem PROMPT "Catre o gestiune la pret de \<vanzare"
	ON SELECTION BAR 3 OF NewItem DO BAR_3_OF_NewItem_FB2P

DEFINE BAR 12 OF Shortcut PROMPT "\-"
ON BAR 12 OF Shortcut ACTIVATE POPUP _12r0pi9gj

	*----------------------------------
	DEFINE POPUP _12r0pi9gj SHORTCUT RELATIVE
DEFINE BAR 13 OF Shortcut PROMPT "Factura de vanzare en-detail"
ON SELECTION BAR 13 OF Shortcut DO BAR_13_OF_Shortcut_FB2P

DEFINE BAR 14 OF Shortcut PROMPT "\-"
ON BAR 14 OF Shortcut ACTIVATE POPUP _13c0sbq6o

	*----------------------------------
	DEFINE POPUP _13c0sbq6o SHORTCUT RELATIVE
DEFINE BAR 15 OF Shortcut PROMPT "Stocuri"
ON SELECTION BAR 15 OF Shortcut DO BAR_15_OF_Shortcut_FB2P

DEFINE BAR 16 OF Shortcut PROMPT "Fisa de \<magazie"
ON SELECTION BAR 16 OF Shortcut DO BAR_16_OF_Shortcut_FB2P

DEFINE BAR 17 OF Shortcut PROMPT "\-"
ON BAR 17 OF Shortcut ACTIVATE POPUP _1tl0pj2sf

	*----------------------------------
	DEFINE POPUP _1tl0pj2sf SHORTCUT RELATIVE
DEFINE BAR 18 OF Shortcut PROMPT "\<Raport comparativ de scadere din gestiune pe baza de fisa tehnologica"
ON SELECTION BAR 18 OF Shortcut DO BAR_18_OF_Shortcut_FB2P

DEFINE BAR 19 OF Shortcut PROMPT "\<Raport de scadere din gestiune"
ON SELECTION BAR 19 OF Shortcut DO BAR_19_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF__13c0v16p0_FB2P
	*!*	13.01.2015
	*!*	PRIVATE pnNr
	*!*	STORE 0 TO pnNr
	
	*!*	DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr
	*!*	IF gnButon = 1
	*!*		lnTip = gnTipGest
	*!*		DO listare_nir WITH pnNr, lnTip
	*!*	ENDIF 
	
	PRIVATE pnNr1, pnNr2
	LOCAL lnTip, lnNr1, lnNr2
	pnNr1 = 0
	pnNr2 = 0
	
	lnTip = gnTipGest
	DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1
	IF gnButon = 1
		pnNr2 = m.pnNr1
		DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2
	
	*!*		DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip
		DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip
	ENDIF 
	*!*	13.01.2015 ^
	
	
	*!*	*public m.nract1,m.nract2
	*!*	*store 0 to m.nract1,m.nract2,M.SUM1,M.SUM2
	
	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*		WITH Ointre
	*!*			.CAPTION="Numarul NIR-ului"
	*!*			.label1.caption="Numarul NIR-ului:"
	*!*			.label2.visible=.f.
	*!*			.text1.controlsource="m.nract1"
	*!*			.text2.visible=.f.
	*!*		endwith
	*!*		ointre.show(1)
	*!*		
	*!*	DO LIST_NIR WITH STR(M.NRACT1),1
ENDPROC && BAR_1_OF__13c0v16p0_FB2P

PROCEDURE BAR_2_OF__13c0v16p0_FB2P
	lnTip = gnTipGest
	DO list_total_NIR WITH lnTip && in oproceduri_listari.prg
ENDPROC && BAR_2_OF__13c0v16p0_FB2P

PROCEDURE BAR_2_OF_Shortcut_FB2P
	*!*	STORE 0 TO m.nract1
	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*		WITH Ointre
	*!*			.CAPTION="Numarul NIR-ului"
	*!*			.label1.caption="Nr.initial:"
	*!*			.label2.visible=.f.
	*!*			.text1.controlsource="m.nract1"
	*!*			.text2.visible=.f.
	*!*		endwith
	*!*		ointre.show(1)
	*!*		
	*!*		M.NNIR=ALLTRIM(STR(M.NRACT1))
	*!*	SELECT rull.*,retetar.cant as cant_p;
	*!*	from (rull JOIN retetar ON (VAL(rull.nrord)=retetar.id_produs AND rull.denumire=retetar.denumire));
	*!*	WHERE VAL(rull.nnir)=m.nract1 AND rull.cante#0 INTO TABLE &loc\&nfscurt\tempo\tabel.dbf 
	
	
	*!*	SELECT * from tabel t JOIN rull r ON t.nrord=r.nrord AND t.nnir=r.nnir WHERE r.cante=0 INTO CURSOR bbb 
	*!*	SELECT bbb
	*!*	GO top
	*!*	SCATTER FIELDS gest_a,gest_b memv
	*!*	SELECT numegest
	*!*	LOCATE FOR gest=m.gest_a
	*!*	m.numegest=numegest
	*!*	LOCATE FOR gest=m.gest_b
	*!*	gestfix=numegest
	*!*	SELECT bbb
	*!*	REPORT FORM bontransfer TO PRINTER PROMPT PREVIEW 
	*!*	USE IN tabel 
	*!*	USE IN BBB
ENDPROC && BAR_2_OF_Shortcut_FB2P

PROCEDURE BAR_4_OF_Shortcut_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Numarul procesului verbal','pnNr','Numarul procesului verbal' TO lnNr
	IF gnButon = 1
		lnTip = gnTipGest
		DO listare_nir WITH pnNr, lnTip, .T.
	ENDIF 
ENDPROC && BAR_4_OF_Shortcut_FB2P

PROCEDURE BAR_5_OF_Shortcut_FB2P
	
	
	*!*	STORE 0 TO m.regulariz,CC,DD,TT
	*!*	CC='C1'
	*!*	DD='D1'
	*!*	TT='T1'
	*!*	FOR I=2 TO 20
	*!*		CC=CC+',C'+ALLTRIM(STR(I))
	*!*		DD=DD+',D'+ALLTRIM(STR(I))
	*!*		TT=TT+',T'+ALLTRIM(STR(I))
	*!*	NEXT
	*!*	ZZ='STORE 0 TO '+CC+','+TT
	*!*	&ZZ
	*!*	ZZ='STORE "" TO '+DD
	*!*	&ZZ
	
	
	*!*	m.nrord=ALLTRIM(m.nrord)
	
	*!*	DO cerenumar WITH 'Nr.PV de productie:','m.nract'
	
	
	*!*	SELECT act
	*!*	LOCATE FOR nract=m.nract AND INLIST(scd,'345 ','347 ')
	*!*	IF !FOUND()
	*!*		DO mesaj WITH 'Acest numar nu este regasit in luna curenta',''
	*!*		RETURN
	*!*	ENDIF
	
	*!*	SELECT act
	*!*	SCATTER FIELDS nrord,dataireg,nract,cod,suma MEMV
	
	*!*	SELECT rull
	*!*	SET ORDER TO TAG cod
	*!*	SEEK m.cod
	*!*	IF !FOUND()
	*!*		DO mesaj WITH 'Eroare de inregistrare',''
	*!*		RETURN
	*!*	ENDIF
	*!*	SCATTER FIELDS denumire, pret,cante,gest MEMV
	*!*	m.totftva=m.pret
	
	
	*!*	&&& materiale:
	*!*	SELECT denumire, pret,cante AS CANT,nnir,nrord FROM rul;
	*!*	WHERE cante!=0 AND !EMPTY(nrord) AND ALLTRIM(nrord)=m.nrord ;
	*!*	INTO CURSOR bonuri
	*!*	*!*	SELECT BONURI
	*!*	*!*	BROW
	
	*!*	IF _TALLY=0
	*!*		DO mesaj WITH 'Nu exista bonuri la aceasta lucrare!',''
	*!*		DO sterge
	*!*		RETURN
	*!*	ENDIF
	
	*!*	&&& pretul de achizitie:
	*!*	SELECT bonuri
	*!*	SUM pret*CANT TO m.totftvaa
	
	
	*!*	&&& pretul de intrare:
	
	*!*	*STORE '' TO m.denumire
	*!*	STORE 1 TO m.CANT
	*!*	*DO cerestring WITH 'Denumirea produsului:','m.denumire'
	*!*	*!*	DO cerenumar WITH 'Cantitatea produsa:','m.cant'
	*!*	*!*	IF m.cant<=0
	*!*	*!*	m.cant=1
	*!*	*!*	endif
	*!*	SELE INTRARI
	*!*	ZAP
	*!*	APPEND BLANK
	*!*	GATHER FIELDS scd,gest,denumire,CANT,cod MEMV
	*!*	REPLACE pret WITH m.totftva/m.CANT
	
	*!*	SELECT COTE
	*!*	GO TOP
	*!*	SCATTER MEMV
	*!*	totcote=(c1+c2+c3+c4+c5+c6+c7+c8+c9+c10+c11+c12+c13+c14+c15+c16+c17+c18+c19+c20)*m.totftvaa
	*!*	m.totftva=m.totftvaa+totcote
	*!*	m.regulariz=m.suma-m.totftva
	*!*	IF ABS(m.regulariz)>1
	*!*		DO mesaj WITH 'Regularizare= '+ALLTRIM(STR(m.regulariz)),''
	*!*	ENDIF
	
	*!*	SELECT bonuri
	*!*	COPY TO &LOC\&NFSCURT\TEMPO\temp.DBF
	*!*	USE &LOC\&NFSCURT\TEMPO\temp.DBF IN 0 ALIAS temp EXCL
	*!*	SELE temp
	*!*	SELE temp
	*!*	ALTER TABLE temp ADD COLUMN cante N(10,3)
	*!*	FOR I = 1 TO 20
	*!*		T='c'+ALLT(STR(I))
	*!*		ALTER TABLE temp ADD COLUMN &T N(10,4)
	*!*	ENDFOR
	*!*	REPLACE ALL nrord WITH M.nrord
	*!*	REPLACE ALL cante WITH 1
	
	
	*!*	SELECT temp
	*!*	SCAN
	*!*		GATH FIEL LIKE C?,C?? MEMV
	*!*	ENDSCAN
	*!*	REPORT FORM pvprod TO PRINTER PROMPT PREVIEW
	*!*	USE IN temp
	
	*!*	DO sterge
	*!*	RETURN
ENDPROC && BAR_5_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_Bondeconsu_FB2P
	PRIVATE pnNr1, pnNr2
	LOCAL lnTip, lnNr1, lnNr2
	pnNr1 = 0
	pnNr2 = 0
	
	lnTip = gnTipGest
	DO FORM frm_cere_text WITH 'Numar BON 1','pnNr1','Numar BON 1' TO lnNr1
	IF gnButon = 1
		pnNr2 = m.pnNr1
		DO FORM frm_cere_text WITH 'Numar BON 2','pnNr2','Numar BON 2' TO lnNr2
	
		DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip
	ENDIF 
ENDPROC && BAR_1_OF_Bondeconsu_FB2P

PROCEDURE BAR_2_OF_Bondeconsu_FB2P
	DO list_bon_pe_lucrare WITH gnTipGest
ENDPROC && BAR_2_OF_Bondeconsu_FB2P

PROCEDURE BAR_3_OF_Bondeconsu_FB2P
	lnTip = gnTipGest
	DO list_total_BON WITH lnTip && in oproceduri_listari.prg
	
	
	*!*	*******
	
	*!*	PUBLIC M.T
	*!*	SET SAFETY OFF
	*!*	do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
	*!*	SELE NUMEGEST
	*!*	SCAN
	*!*		IF NUMEGEST==M.NUMEGEST
	*!*			SCATTER MEMVAR
	*!*			EXIT
	*!*		ENDIF
	*!*	ENDSCAN
	
	*!*	M.T='BONURI'
	
	*!*	select DISTINCT rull.denumire,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.nnir,rull.codmat,rull.dataact,;
	*!*	act.nume,act.fdoc,act.nract,act.dataireg;
	*!*	from act,rull;
	*!*	where act.cod=rull.cod;
	*!*	into cursor ra
	
	*!*	SELE Ra
	*!*	SET FILTER TO GEST=M.GEST AND CANTE # 0
	*!*	INDEX ON str(GEST,2)+NNIR TO &loc\&nfscurt\tempo\FFF
	*!*	REPORT FORMAT NIRRUL2.FRX TO PRINTER PROMPT PREVIEW
	
	*!*	USE IN RA
ENDPROC && BAR_3_OF_Bondeconsu_FB2P

PROCEDURE BAR_8_OF_Shortcut_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de retur' TO lnNr
	IF gnButon = 1
		lnTip = gnTipGest
		DO LISTARE_RETUR WITH pnNr, lnTip
	ENDIF 
	
	*!*	store 0 to m.nract1
	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*		WITH Ointre
	*!*			.CAPTION="Numarul notei de retur"
	*!*			.label1.caption="Nr. nota:"
	*!*			.label2.visible=.f.
	*!*			.text1.controlsource="m.nract1"
	*!*			.text2.visible=.f.
	*!*		endwith
	*!*		ointre.show(1)
	
	*!*	DO LIST_RETUR WITH M.NRACT1,6
ENDPROC && BAR_8_OF_Shortcut_FB2P

PROCEDURE BAR_9_OF_Shortcut_FB2P
	*!*	DO raport_productie_postcalcul IN gestiuni.prg
ENDPROC && BAR_9_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_NewItem_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
	IF gnButon = 1
		lnTip = 7
		DO LISTARE_TRANSFER WITH pnNr, lnTip
	ENDIF 
ENDPROC && BAR_1_OF_NewItem_FB2P

PROCEDURE BAR_2_OF_NewItem_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
	IF gnButon = 1
		lnTip = gnTipGest
		DO LISTARE_TRANSFER WITH pnNr, lnTip
	ENDIF 
	
	*!*	store 0 to m.nract1
	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*		WITH Ointre
	*!*			.CAPTION="Numarul notei de transfer"
	*!*			.label1.caption="Nr. nota:"
	*!*			.label2.visible=.f.
	*!*			.text1.controlsource="m.nract1"
	*!*			.text2.visible=.f.
	*!*		endwith
	*!*		ointre.show(1)
	
	*!*	DO LIST_TRANSFER WITH M.NRACT1,17
ENDPROC && BAR_2_OF_NewItem_FB2P

PROCEDURE BAR_3_OF_NewItem_FB2P
	
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
	IF gnButon = 1
		lnTip = 6
		DO LISTARE_TRANSFER WITH pnNr, lnTip
	ENDIF 
	
	*!*	Store 0 To m.nract1
	*!*	Ointre=Createobject("CAUTintre")
	*!*	With Ointre
	*!*		.Caption="Numarul notei de transfer"
	*!*		.label1.Caption="Nr. nota:"
	*!*		.label2.Visible=.F.
	*!*		.text1.ControlSource="m.nract1"
	*!*		.text2.Visible=.F.
	*!*	Endwith
	*!*	Ointre.Show(1)
	
	*!*	Sele act
	*!*	Loca For nract=m.nract1 And scd='3712' And scc='3711'
	*!*	If Found()
	*!*		Scat Memv
	
	*!*		m.numegest=m.explicatia
	*!*		Select * From RUL Where COD=M.COD Into Table &LOC\&NFSCURT\TEMPO\ARUL
	*!*		Use In RUL
	*!*		Use In ARUL
	*!*		Use &LOC\&NFSCURT\TEMPO\ARUL In 0 Alias RUL
	*!*	***
	*!*		Select RUL
	*!*		Set Filter To !Empty(cante)
	*!*		Report Format NIRTRANSFER.FRX To Printer Prompt Preview
	*!*	*Endif
	*!*	Do TOTV
	
	*!*	Else
	*!*		Do MESAJ With 'Nu exista aceasta nota de transfer',''
	*!*	Endif
	
	*!*	sele act
	*!*	set filter to
ENDPROC && BAR_3_OF_NewItem_FB2P

PROCEDURE BAR_13_OF_Shortcut_FB2P
	*!*	PRIVATE pnNr
	*!*	STORE 0 TO pnNr
	
	*!*	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul facturii' TO lnNr
	*!*	IF gnButon = 1
	*!*		*!*	modificare	20.08.2007
	*!*		*!*		DO LISTARE_facturi WITH pnNr
	*!*		Do relisteaza_ofacturare_stoc With pnNr In ofacturare_stoc.prg
	*!*		*!*	modificare	20.08.2007	^
	*!*	ENDIF 
	
	*!*	*!*	STORE 0 to m.nract1
	
	*!*	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*	*!*	WITH Ointre
	*!*	*!*		.CAPTION="Numarul Documentului"
	*!*	*!*		.label1.caption="Nr. factura:"
	*!*	*!*		.label2.visible=.f.
	*!*	*!*		.text1.controlsource="m.nract1"
	*!*	*!*		.text2.visible=.f.
	*!*	*!*	ENDWITH
	*!*	*!*	Ointre.show(1)
	
	*!*	*!*	DO list_fact WITH m.nract1
	Private pnNrAct,pcSerie
	Store 0 To pnNr
	Store "" To pcSerie
	
	Do Form frm_cere_nrserie With 'Nr. factura'
	If gnButon = 1
		Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,2 In ofacturare_stoc.prg
	Endif
	Release pnNrAct,pcSerie
ENDPROC && BAR_13_OF_Shortcut_FB2P

PROCEDURE BAR_15_OF_Shortcut_FB2P
	ostoc=CREATEOBJECT('frm_raport_stoc')
	ostoc.show(1)
ENDPROC && BAR_15_OF_Shortcut_FB2P

PROCEDURE BAR_16_OF_Shortcut_FB2P
	DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg
ENDPROC && BAR_16_OF_Shortcut_FB2P

PROCEDURE BAR_18_OF_Shortcut_FB2P
	locant = CREATEOBJECT('frm_rap_gv_cant')
	locant.show(1)
ENDPROC && BAR_18_OF_Shortcut_FB2P

PROCEDURE BAR_19_OF_Shortcut_FB2P
	loval = CREATEOBJECT('frm_rap_gv_val')
	loval.show(1)
ENDPROC && BAR_19_OF_Shortcut_FB2P

*</Procedures>