280 lines
10 KiB
Plaintext
280 lines
10 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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>
|