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

*<MenuCode>
DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Listare PROMPT "Registrul de \<Cumparari" ;
	MESSAGE 'Tiparirea registrelor'
ON BAR 1 OF Listare ACTIVATE POPUP Registruld

	*----------------------------------
	DEFINE POPUP Registruld SHORTCUT RELATIVE
	DEFINE BAR 1 OF Registruld PROMPT "Format 200\<7"
	ON BAR 1 OF Registruld ACTIVATE POPUP Format2007

		*----------------------------------
		DEFINE POPUP Format2007 SHORTCUT RELATIVE
		DEFINE BAR 1 OF Format2007 PROMPT "Achizitii de bunuri si prestari de sevicii taxabile din tara"
		ON SELECTION BAR 1 OF Format2007 DO BAR_1_OF_Format2007_FB2P

		DEFINE BAR 2 OF Format2007 PROMPT "Achizitii de bunuri si prestari de sevicii taxabile din import"
		ON SELECTION BAR 2 OF Format2007 DO BAR_2_OF_Format2007_FB2P

		DEFINE BAR 3 OF Format2007 PROMPT "Achizitii intracomunitare de bunuri"
		ON SELECTION BAR 3 OF Format2007 DO BAR_3_OF_Format2007_FB2P

		DEFINE BAR 4 OF Format2007 PROMPT "Taxare Inversa"
		ON SELECTION BAR 4 OF Format2007 DO BAR_4_OF_Format2007_FB2P

	DEFINE BAR 2 OF Registruld PROMPT "Format 200\<4"
	ON SELECTION BAR 2 OF Registruld DO BAR_2_OF_Registruld_FB2P

	DEFINE BAR 3 OF Registruld PROMPT "Cu \<Recapitulatie"
	ON SELECTION BAR 3 OF Registruld DO BAR_3_OF_Registruld_FB2P

DEFINE BAR 2 OF Listare PROMPT "\-"
ON BAR 2 OF Listare ACTIVATE POPUP _0qn0pzv21

	*----------------------------------
	DEFINE POPUP _0qn0pzv21 SHORTCUT RELATIVE
DEFINE BAR 3 OF Listare PROMPT "\<Balanta furnizori" ;
	MESSAGE 'Tiparirea fiselor analitice'
ON SELECTION BAR 3 OF Listare DO BAR_3_OF_Listare_FB2P

DEFINE BAR 4 OF Listare PROMPT "\-"
ON BAR 4 OF Listare ACTIVATE POPUP NewItem

	*----------------------------------
	DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 5 OF Listare PROMPT "Situatii \<operative"
ON BAR 5 OF Listare ACTIVATE POPUP Situatiiop

	*----------------------------------
	DEFINE POPUP Situatiiop SHORTCUT RELATIVE
	DEFINE BAR 1 OF Situatiiop PROMPT "Furnizori"
	ON SELECTION BAR 1 OF Situatiiop DO BAR_1_OF_Situatiiop_FB2P

	DEFINE BAR 2 OF Situatiiop PROMPT "Furnizori imobilizari"
	ON SELECTION BAR 2 OF Situatiiop DO BAR_2_OF_Situatiiop_FB2P

DEFINE BAR 6 OF Listare PROMPT "\-"
ON BAR 6 OF Listare ACTIVATE POPUP _11313x9rq

	*----------------------------------
	DEFINE POPUP _11313x9rq SHORTCUT RELATIVE
DEFINE BAR 7 OF Listare PROMPT "S\<ituatii facturi"
ON BAR 7 OF Listare ACTIVATE POPUP Situatiifa

	*----------------------------------
	DEFINE POPUP Situatiifa SHORTCUT RELATIVE
	DEFINE BAR 1 OF Situatiifa PROMPT "Facturi \<cumparari"
	ON BAR 1 OF Situatiifa ACTIVATE POPUP Facturicum

		*----------------------------------
		DEFINE POPUP Facturicum SHORTCUT RELATIVE
		DEFINE BAR 1 OF Facturicum PROMPT "\<Toate facturile (pe furnizori)"
		ON BAR 1 OF Facturicum ACTIVATE POPUP Toatefactu

			*----------------------------------
			DEFINE POPUP Toatefactu SHORTCUT RELATIVE
			DEFINE BAR 1 OF Toatefactu PROMPT "Cu sold in \<perioada..."
			ON SELECTION BAR 1 OF Toatefactu DO BAR_1_OF_Toatefactu_FB2P

			DEFINE BAR 2 OF Toatefactu PROMPT "\<Facturi emise in perioada..."
			ON SELECTION BAR 2 OF Toatefactu DO BAR_2_OF_Toatefactu_FB2P

		DEFINE BAR 2 OF Facturicum PROMPT "\-"
		ON BAR 2 OF Facturicum ACTIVATE POPUP _0ew0s86n3

			*----------------------------------
			DEFINE POPUP _0ew0s86n3 SHORTCUT RELATIVE
		DEFINE BAR 3 OF Facturicum PROMPT "Facturi \<neachitate  (pe furnizori)"
		ON BAR 3 OF Facturicum ACTIVATE POPUP Facturinea

			*----------------------------------
			DEFINE POPUP Facturinea SHORTCUT RELATIVE
			DEFINE BAR 1 OF Facturinea PROMPT "\<Solduri"
			ON SELECTION BAR 1 OF Facturinea DO BAR_1_OF_Facturinea_FB2P

		DEFINE BAR 4 OF Facturicum PROMPT "\<Facturi neachitate (in ordinea emiterii)"
		ON SELECTION BAR 4 OF Facturicum DO BAR_4_OF_Facturicum_FB2P

		DEFINE BAR 5 OF Facturicum PROMPT "\-"
		ON BAR 5 OF Facturicum ACTIVATE POPUP _1s51049tm

			*----------------------------------
			DEFINE POPUP _1s51049tm SHORTCUT RELATIVE
		DEFINE BAR 6 OF Facturicum PROMPT "Facturi pe contracte"
		ON SELECTION BAR 6 OF Facturicum DO BAR_6_OF_Facturicum_FB2P

	DEFINE BAR 2 OF Situatiifa PROMPT "Facturi \<scadente"
	ON SELECTION BAR 2 OF Situatiifa DO BAR_2_OF_Situatiifa_FB2P

	DEFINE BAR 3 OF Situatiifa PROMPT "\-"
	ON BAR 3 OF Situatiifa ACTIVATE POPUP _0yy0n2atd

		*----------------------------------
		DEFINE POPUP _0yy0n2atd SHORTCUT RELATIVE
	DEFINE BAR 4 OF Situatiifa PROMPT "Facturi furnizor-client"
	ON SELECTION BAR 4 OF Situatiifa DO BAR_4_OF_Situatiifa_FB2P

DEFINE BAR 8 OF Listare PROMPT "\Istoric facturi furnizori 401"
ON SELECTION BAR 8 OF Listare do istoric_terti in orap_terti.prg with '401', 'P'

DEFINE BAR 9 OF Listare PROMPT "\<Situatie furnizori pe vechimi"
ON BAR 9 OF Listare ACTIVATE POPUP Situatiefu

	*----------------------------------
	DEFINE POPUP Situatiefu SHORTCUT RELATIVE
	DEFINE BAR 1 OF Situatiefu PROMPT "Fata de data scadenta"
	ON SELECTION BAR 1 OF Situatiefu Do sold_fact_pe_vechimi In orap_terti.prg with "F", .F.

	DEFINE BAR 2 OF Situatiefu PROMPT "Fata de data emitere"
	ON SELECTION BAR 2 OF Situatiefu Do sold_fact_pe_vechimi In orap_terti.prg with "F", .T.

DEFINE BAR 10 OF Listare PROMPT "Raport scadentar"
ON BAR 10 OF Listare ACTIVATE POPUP Raportscad

	*----------------------------------
	DEFINE POPUP Raportscad SHORTCUT RELATIVE
	DEFINE BAR 1 OF Raportscad PROMPT "Furnizori 401"
	ON SELECTION BAR 1 OF Raportscad Do proc_scadentar In orap_terti.prg with "F",'401'

	DEFINE BAR 2 OF Raportscad PROMPT "Furnizori 404"
	ON SELECTION BAR 2 OF Raportscad Do proc_scadentar In orap_terti.prg with "F",'404'

DEFINE BAR 11 OF Listare PROMPT "\-"
ON BAR 11 OF Listare ACTIVATE POPUP _2hk0udsmt

	*----------------------------------
	DEFINE POPUP _2hk0udsmt SHORTCUT RELATIVE
DEFINE BAR 12 OF Listare PROMPT "Inregistrari furnizori \<cu sold final in luna"
ON BAR 12 OF Listare ACTIVATE POPUP Inregistra

	*----------------------------------
	DEFINE POPUP Inregistra SHORTCUT RELATIVE
	DEFINE BAR 1 OF Inregistra PROMPT "In \<lei"
	ON BAR 1 OF Inregistra ACTIVATE POPUP Inlei

		*----------------------------------
		DEFINE POPUP Inlei SHORTCUT RELATIVE
		DEFINE BAR 1 OF Inlei PROMPT "Standard"
		ON SELECTION BAR 1 OF Inlei DO BAR_1_OF_Inlei_FB2P

		DEFINE BAR 2 OF Inlei PROMPT "Cu sold cumulat"
		ON SELECTION BAR 2 OF Inlei DO BAR_2_OF_Inlei_FB2P

	DEFINE BAR 2 OF Inregistra PROMPT "In lei si in \<valuta"
	ON SELECTION BAR 2 OF Inregistra DO BAR_2_OF_Inregistra_FB2P

DEFINE BAR 13 OF Listare PROMPT "\-"
ON BAR 13 OF Listare ACTIVATE POPUP _4h10r4hif

	*----------------------------------
	DEFINE POPUP _4h10r4hif SHORTCUT RELATIVE
DEFINE BAR 14 OF Listare PROMPT "\<Pondere furnizori pe perioada"
ON SELECTION BAR 14 OF Listare DO BAR_14_OF_Listare_FB2P
ACTIVATE POPUP Listare

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Format2007_FB2P
	DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'RO'
ENDPROC && BAR_1_OF_Format2007_FB2P

PROCEDURE BAR_2_OF_Format2007_FB2P
	DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'FO'
ENDPROC && BAR_2_OF_Format2007_FB2P

PROCEDURE BAR_3_OF_Format2007_FB2P
	DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'CE'
ENDPROC && BAR_3_OF_Format2007_FB2P

PROCEDURE BAR_4_OF_Format2007_FB2P
	DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'TI'
ENDPROC && BAR_4_OF_Format2007_FB2P

PROCEDURE BAR_2_OF_Registruld_FB2P
	DO listare_registru_vanzcump IN orap_terti WITH [401],[NORMAL],.f.
ENDPROC && BAR_2_OF_Registruld_FB2P

PROCEDURE BAR_3_OF_Registruld_FB2P
	DO  listare_registru_vanzcump IN orap_terti WITH [401],[NORMAL],.t.
ENDPROC && BAR_3_OF_Registruld_FB2P

PROCEDURE BAR_3_OF_Listare_FB2P
	DO PrepareRptBalantaFC WITH "401","Jurnal Furnizori","balanta_parteneri_rpt3",.F. IN osituatii_operative.prg 
ENDPROC && BAR_3_OF_Listare_FB2P

PROCEDURE BAR_1_OF_Situatiiop_FB2P
	**parametrii:
	**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,
	**tc_NumeForma
	
	
	** titlu lasat gol ca sa keme cereTitlu
	DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.F.,
ENDPROC && BAR_1_OF_Situatiiop_FB2P

PROCEDURE BAR_2_OF_Situatiiop_FB2P
	**parametrii:
	**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,
	*tc_NumeForma
	
	** titlu lasat gol ca sa keme cereTitlu
	DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.F.,
ENDPROC && BAR_2_OF_Situatiiop_FB2P

PROCEDURE BAR_1_OF_Toatefactu_FB2P
	DO viz_frm_facturi IN orap_terti_comun WITH 1,[401]
ENDPROC && BAR_1_OF_Toatefactu_FB2P

PROCEDURE BAR_2_OF_Toatefactu_FB2P
	DO viz_frm_facturi IN orap_terti_comun WITH 2,[401]
ENDPROC && BAR_2_OF_Toatefactu_FB2P

PROCEDURE BAR_1_OF_Facturinea_FB2P
	DO list_facturi_neachitate IN orap_terti WITH [401],.T.
	
ENDPROC && BAR_1_OF_Facturinea_FB2P

PROCEDURE BAR_4_OF_Facturicum_FB2P
	DO list_facturi_neachitate  IN orap_terti WITH [401],.F.
ENDPROC && BAR_4_OF_Facturicum_FB2P

PROCEDURE BAR_6_OF_Facturicum_FB2P
	DO rap_fact_grup_pe_lucari_parteneri WITH [401], .f., 0 IN orap_terti.prg
ENDPROC && BAR_6_OF_Facturicum_FB2P

PROCEDURE BAR_2_OF_Situatiifa_FB2P
	DO list_facturi_scadente IN orap_terti WITH [401]
ENDPROC && BAR_2_OF_Situatiifa_FB2P

PROCEDURE BAR_4_OF_Situatiifa_FB2P
	DO facturi_furnizor_client IN orap_terti
ENDPROC && BAR_4_OF_Situatiifa_FB2P

PROCEDURE BAR_1_OF_Inlei_FB2P
	Do parteneri_cu_sold_final In orap_terti.prg with .F.,"401",.F.
ENDPROC && BAR_1_OF_Inlei_FB2P

PROCEDURE BAR_2_OF_Inlei_FB2P
	Do parteneri_cu_sold_final In orap_terti.prg with .F.,"401",.F.,.T.
ENDPROC && BAR_2_OF_Inlei_FB2P

PROCEDURE BAR_2_OF_Inregistra_FB2P
	Do parteneri_cu_sold_final In orap_terti.prg with .T.,"401",.F.
ENDPROC && BAR_2_OF_Inregistra_FB2P

PROCEDURE BAR_14_OF_Listare_FB2P
	do pondere_furnizori in orap_terti.prg
ENDPROC && BAR_14_OF_Listare_FB2P

*</Procedures>