romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
b35e62c880b69cf7fbc6bec46e8dca4a1e46eb19
comun/meniuri/list2.mn2

408 lines
13 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="list2.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 "N.I.R.-uri"
ON BAR 1 OF Shortcut ACTIVATE POPUP NIRuri
*----------------------------------
DEFINE POPUP NIRuri SHORTCUT RELATIVE
DEFINE BAR 1 OF NIRuri PROMPT "\<NIR de la numar la numar"
ON SELECTION BAR 1 OF NIRuri DO BAR_1_OF_NIRuri_FB2P
DEFINE BAR 2 OF NIRuri PROMPT "NIR-uri \<pe Gestiuni"
ON SELECTION BAR 2 OF NIRuri DO BAR_2_OF_NIRuri_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _1790wd1yu
*----------------------------------
DEFINE POPUP _1790wd1yu SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "Bonuri"
ON BAR 3 OF Shortcut ACTIVATE POPUP _1790wcrcu
*----------------------------------
DEFINE POPUP _1790wcrcu SHORTCUT RELATIVE
DEFINE BAR 1 OF _1790wcrcu PROMPT "\<De la numar la numar"
ON SELECTION BAR 1 OF _1790wcrcu DO BAR_1_OF__1790wcrcu_FB2P
DEFINE BAR 2 OF _1790wcrcu PROMPT "Pe comenzi"
ON SELECTION BAR 2 OF _1790wcrcu DO BAR_2_OF__1790wcrcu_FB2P
DEFINE BAR 3 OF _1790wcrcu PROMPT "Pe gestiuni"
ON SELECTION BAR 3 OF _1790wcrcu DO BAR_3_OF__1790wcrcu_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "Casare obiecte noi"
ON BAR 4 OF Shortcut ACTIVATE POPUP Casareobie
*----------------------------------
DEFINE POPUP Casareobie SHORTCUT RELATIVE
DEFINE BAR 1 OF Casareobie PROMPT "\<De la numar la numar"
ON SELECTION BAR 1 OF Casareobie DO BAR_1_OF_Casareobie_FB2P
DEFINE BAR 5 OF Shortcut PROMPT "Retur"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
DEFINE BAR 6 OF Shortcut PROMPT "Transferuri"
ON BAR 6 OF Shortcut ACTIVATE POPUP _13c0v6fki
*----------------------------------
DEFINE POPUP _13c0v6fki SHORTCUT RELATIVE
DEFINE BAR 1 OF _13c0v6fki PROMPT "\<Catre o gestiune la pret de achizitie"
ON SELECTION BAR 1 OF _13c0v6fki DO BAR_1_OF__13c0v6fki_FB2P
DEFINE BAR 2 OF _13c0v6fki PROMPT "\<Catre o gestiune la pret de vanzare"
ON SELECTION BAR 2 OF _13c0v6fki DO BAR_2_OF__13c0v6fki_FB2P
DEFINE BAR 3 OF _13c0v6fki PROMPT "\-"
ON BAR 3 OF _13c0v6fki ACTIVATE POPUP _5z60klg1g
*----------------------------------
DEFINE POPUP _5z60klg1g SHORTCUT RELATIVE
DEFINE BAR 4 OF _13c0v6fki PROMPT "Transfer obiecte inventar in folosinta dupa numar"
ON SELECTION BAR 4 OF _13c0v6fki DO BAR_4_OF__13c0v6fki_FB2P
DEFINE BAR 5 OF _13c0v6fki PROMPT "Transfer obiecte inventar in folosinta dupa numar - durata ramasa"
ON SELECTION BAR 5 OF _13c0v6fki DO BAR_5_OF__13c0v6fki_FB2P
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON SELECTION BAR 7 OF Shortcut
DEFINE BAR 8 OF Shortcut PROMPT "Stocuri"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
DEFINE BAR 9 OF Shortcut PROMPT "\-"
ON BAR 9 OF Shortcut ACTIVATE POPUP _5z60kpwf5
*----------------------------------
DEFINE POPUP _5z60kpwf5 SHORTCUT RELATIVE
DEFINE BAR 10 OF Shortcut PROMPT "Bon dare in folosinta ob. inv."
ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P
DEFINE BAR 11 OF Shortcut PROMPT "Casare ob. inv. din folosinta"
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P
DEFINE BAR 12 OF Shortcut PROMPT "Iesire ob. inv. din folosinta din gestiune"
ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_FB2P
DEFINE BAR 13 OF Shortcut PROMPT "\-"
ON BAR 13 OF Shortcut ACTIVATE POPUP _5z60kxb6d
*----------------------------------
DEFINE POPUP _5z60kxb6d SHORTCUT RELATIVE
DEFINE BAR 14 OF Shortcut PROMPT "Fisa de \<magazie"
ON BAR 14 OF Shortcut ACTIVATE POPUP _5z60kp6dv
*----------------------------------
DEFINE POPUP _5z60kp6dv SHORTCUT RELATIVE
DEFINE BAR 1 OF _5z60kp6dv PROMPT "Listare"
ON SELECTION BAR 1 OF _5z60kp6dv DO fisa_ob_inventar_gest WITH gnTipGest, .F. IN orapoarte.prg
DEFINE BAR 2 OF _5z60kp6dv PROMPT "Excel"
ON SELECTION BAR 2 OF _5z60kp6dv DO fisa_ob_inventar_gest WITH gnTipGest, .T. IN orapoarte.prg
DEFINE BAR 15 OF Shortcut PROMPT "Fisa de evidenta a \<ob. inv. in folosinta"
ON BAR 15 OF Shortcut ACTIVATE POPUP _5z60kp9jl
*----------------------------------
DEFINE POPUP _5z60kp9jl SHORTCUT RELATIVE
DEFINE BAR 1 OF _5z60kp9jl PROMPT "Rulaje"
ON BAR 1 OF _5z60kp9jl ACTIVATE POPUP NewItem
*----------------------------------
DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 1 OF NewItem PROMPT "Listare"
ON SELECTION BAR 1 OF NewItem DO fisa_ob_inventar_resp WITH .F. IN orapoarte.prg
DEFINE BAR 2 OF NewItem PROMPT "Excel"
ON SELECTION BAR 2 OF NewItem DO fisa_ob_inventar_resp WITH .T. IN orapoarte.prg
DEFINE BAR 2 OF _5z60kp9jl PROMPT "Cantitati cumulate"
ON BAR 2 OF _5z60kp9jl ACTIVATE POPUP _5z60ks57s
*----------------------------------
DEFINE POPUP _5z60ks57s SHORTCUT RELATIVE
DEFINE BAR 1 OF _5z60ks57s PROMPT "Listare"
ON SELECTION BAR 1 OF _5z60ks57s DO fisa_ob_inventar_resp_stoc WITH .F. IN orapoarte.prg
DEFINE BAR 2 OF _5z60ks57s PROMPT "Excel"
ON SELECTION BAR 2 OF _5z60ks57s DO fisa_ob_inventar_resp_stoc WITH .T. IN orapoarte.prg
DEFINE BAR 16 OF Shortcut PROMPT "Fisa de lichidare (Echipament in evidenta)"
ON SELECTION BAR 16 OF Shortcut DO fisa_lichidare && IN oproceduri_obinv.prg
DEFINE BAR 17 OF Shortcut PROMPT "Fisa de lichidare"
ON BAR 17 OF Shortcut ACTIVATE POPUP _5z60kpgtb
*----------------------------------
DEFINE POPUP _5z60kpgtb SHORTCUT RELATIVE
DEFINE BAR 1 OF _5z60kpgtb PROMPT "Fisa echipament uzat"
ON SELECTION BAR 1 OF _5z60kpgtb DO fisa_echip_uzat_pred_imputat WITH 1 && IN oproceduri_obinv.prg
DEFINE BAR 2 OF _5z60kpgtb PROMPT "Fisa echipament predat"
ON SELECTION BAR 2 OF _5z60kpgtb DO fisa_echip_uzat_pred_imputat WITH 2 && IN oproceduri_obinv.prg
DEFINE BAR 3 OF _5z60kpgtb PROMPT "Fisa echipament imputat"
ON SELECTION BAR 3 OF _5z60kpgtb DO fisa_echip_uzat_pred_imputat WITH 3 && IN oproceduri_obinv.prg
DEFINE BAR 18 OF Shortcut PROMPT "\-"
ON BAR 18 OF Shortcut ACTIVATE POPUP _5z60kxb6e
*----------------------------------
DEFINE POPUP _5z60kxb6e SHORTCUT RELATIVE
DEFINE BAR 19 OF Shortcut PROMPT "Necesar echipamente"
ON SELECTION BAR 19 OF Shortcut DO necesar_echipamente IN orapoarte.prg
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_NIRuri_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 ^
ENDPROC && BAR_1_OF_NIRuri_FB2P
PROCEDURE BAR_2_OF_NIRuri_FB2P
lnTip = gnTipGest
DO list_total_NIR WITH lnTip && in oproceduri_listari.prg
ENDPROC && BAR_2_OF_NIRuri_FB2P
PROCEDURE BAR_1_OF__1790wcrcu_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__1790wcrcu_FB2P
PROCEDURE BAR_2_OF__1790wcrcu_FB2P
DO list_bon_pe_lucrare WITH gnTipGest
ENDPROC && BAR_2_OF__1790wcrcu_FB2P
PROCEDURE BAR_3_OF__1790wcrcu_FB2P
lnTip = gnTipGest
DO list_total_BON WITH lnTip && in oproceduri_listari.prg
*!* PRIVATE 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.dataact,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.nnir,rull.codmat,;
*!* 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__1790wcrcu_FB2P
PROCEDURE BAR_1_OF_Casareobie_FB2P
PRIVATE pnNr1, pnNr2
LOCAL lnTip, lnNr1, lnNr2, lcListaIdSet
pnNr1 = 0
pnNr2 = 0
lcListaIdSet = '72'
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, m.lcListaIdSet
ENDIF
ENDPROC && BAR_1_OF_Casareobie_FB2P
PROCEDURE BAR_5_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
*!* PUBLIC M.T
*!* public m.nract1,m.nract2
*!* store 0 to m.nract1,m.nract2
*!* Ointre=CREATEOBJECT("CAUTintre")
*!* WITH Ointre
*!* .CAPTION="Numarul actului"
*!* .label1.caption="Nr.retur:"
*!* .label2.visible=.f.
*!* .text1.controlsource="m.nract1"
*!* .text2.visible=.f.
*!* endwith
*!* ointre.show(1)
*!*
ENDPROC && BAR_5_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF__13c0v6fki_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_1_OF__13c0v6fki_FB2P
PROCEDURE BAR_2_OF__13c0v6fki_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)
*!* DO LIST_TRANSFER WITH M.NRACT1,18
ENDPROC && BAR_2_OF__13c0v6fki_FB2P
PROCEDURE BAR_4_OF__13c0v6fki_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, 'VRUL_OBINV'
ENDIF
ENDPROC && BAR_4_OF__13c0v6fki_FB2P
PROCEDURE BAR_5_OF__13c0v6fki_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, 10, 'VRUL_OBINV'
ENDIF
ENDPROC && BAR_5_OF__13c0v6fki_FB2P
PROCEDURE BAR_8_OF_Shortcut_FB2P
ostoc=CREATEOBJECT('frm_raport_stoc')
ostoc.show(1)
ENDPROC && BAR_8_OF_Shortcut_FB2P
PROCEDURE BAR_10_OF_Shortcut_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_10_OF_Shortcut_FB2P
PROCEDURE BAR_11_OF_Shortcut_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de casare' TO lnNr
IF gnButon = 1
DO listare_casare WITH pnNr
ENDIF
ENDPROC && BAR_11_OF_Shortcut_FB2P
PROCEDURE BAR_12_OF_Shortcut_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei' TO lnNr
IF gnButon = 1
DO listare_casare WITH pnNr, 274
ENDIF
ENDPROC && BAR_12_OF_Shortcut_FB2P
*</Procedures>
Reference in New Issue View Git Blame Copy Permalink