195 lines
6.6 KiB
Plaintext
195 lines
6.6 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="list2_obinvfol.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 "Transferuri"
|
|
ON BAR 1 OF Shortcut ACTIVATE POPUP _13c0v6fki
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _13c0v6fki SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _13c0v6fki PROMPT "Transfer obiecte inventar in folosinta dupa numar"
|
|
ON SELECTION BAR 1 OF _13c0v6fki DO BAR_1_OF__13c0v6fki_FB2P
|
|
|
|
DEFINE BAR 2 OF _13c0v6fki PROMPT "Transfer obiecte inventar in folosinta dupa numar - durata ramasa"
|
|
ON SELECTION BAR 2 OF _13c0v6fki DO BAR_2_OF__13c0v6fki_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "\-"
|
|
ON SELECTION BAR 2 OF Shortcut
|
|
|
|
DEFINE BAR 3 OF Shortcut PROMPT "Casare din folosinta"
|
|
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 4 OF Shortcut PROMPT "\-"
|
|
ON BAR 4 OF Shortcut ACTIVATE POPUP _34v0qkf04
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _34v0qkf04 SHORTCUT RELATIVE
|
|
DEFINE BAR 5 OF Shortcut PROMPT "Fisa de \<magazie"
|
|
ON BAR 5 OF Shortcut ACTIVATE POPUP Fisademaga
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Fisademaga SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Fisademaga PROMPT "Listare"
|
|
ON SELECTION BAR 1 OF Fisademaga DO BAR_1_OF_Fisademaga_FB2P
|
|
|
|
DEFINE BAR 2 OF Fisademaga PROMPT "Excel"
|
|
ON SELECTION BAR 2 OF Fisademaga DO BAR_2_OF_Fisademaga_FB2P
|
|
|
|
DEFINE BAR 6 OF Shortcut PROMPT "Fisa de evidenta a \<ob. inv. in folosinta"
|
|
ON BAR 6 OF Shortcut ACTIVATE POPUP Fisadeevid
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Fisadeevid SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Fisadeevid PROMPT "Rulaje"
|
|
ON BAR 1 OF Fisadeevid ACTIVATE POPUP Rulaje
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Rulaje SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Rulaje PROMPT "Listare"
|
|
ON SELECTION BAR 1 OF Rulaje DO BAR_1_OF_Rulaje_FB2P
|
|
|
|
DEFINE BAR 2 OF Rulaje PROMPT "Excel"
|
|
ON SELECTION BAR 2 OF Rulaje DO BAR_2_OF_Rulaje_FB2P
|
|
|
|
DEFINE BAR 2 OF Fisadeevid PROMPT "Cantitati cumulate"
|
|
ON BAR 2 OF Fisadeevid ACTIVATE POPUP Cantitatic
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Cantitatic SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Cantitatic PROMPT "Listare"
|
|
ON SELECTION BAR 1 OF Cantitatic DO BAR_1_OF_Cantitatic_FB2P
|
|
|
|
DEFINE BAR 2 OF Cantitatic PROMPT "Excel"
|
|
ON SELECTION BAR 2 OF Cantitatic DO BAR_2_OF_Cantitatic_FB2P
|
|
|
|
DEFINE BAR 7 OF Shortcut PROMPT "\-"
|
|
ON BAR 7 OF Shortcut ACTIVATE POPUP _13c0psb52
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _13c0psb52 SHORTCUT RELATIVE
|
|
DEFINE BAR 8 OF Shortcut PROMPT "Fisa de lichidare (Echipament in evidenta)"
|
|
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 9 OF Shortcut PROMPT "Fisa de lichidare"
|
|
ON BAR 9 OF Shortcut ACTIVATE POPUP Fisadelich
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Fisadelich SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Fisadelich PROMPT "Fisa echipament uzat"
|
|
ON SELECTION BAR 1 OF Fisadelich DO BAR_1_OF_Fisadelich_FB2P
|
|
|
|
DEFINE BAR 2 OF Fisadelich PROMPT "Fisa echipament predat"
|
|
ON SELECTION BAR 2 OF Fisadelich DO BAR_2_OF_Fisadelich_FB2P
|
|
|
|
DEFINE BAR 3 OF Fisadelich PROMPT "Fisa echipament imputat"
|
|
ON SELECTION BAR 3 OF Fisadelich DO BAR_3_OF_Fisadelich_FB2P
|
|
|
|
DEFINE BAR 10 OF Shortcut PROMPT "\-"
|
|
ON BAR 10 OF Shortcut ACTIVATE POPUP _1xl0nz3zh
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1xl0nz3zh SHORTCUT RELATIVE
|
|
DEFINE BAR 11 OF Shortcut PROMPT "Necesar echipamente"
|
|
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
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, 'VRUL_OBINV'
|
|
ENDIF
|
|
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 = gnTipGest
|
|
DO LISTARE_TRANSFER WITH pnNr, 10, 'VRUL_OBINV'
|
|
ENDIF
|
|
ENDPROC && BAR_2_OF__13c0v6fki_FB2P
|
|
|
|
PROCEDURE BAR_3_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_3_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Fisademaga_FB2P
|
|
LOCAL llExcel
|
|
llExcel = .F.
|
|
DO fisa_ob_inventar_gest WITH gnTipGest, llExcel IN orapoarte.prg
|
|
ENDPROC && BAR_1_OF_Fisademaga_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Fisademaga_FB2P
|
|
LOCAL llExcel
|
|
llExcel = .T.
|
|
DO fisa_ob_inventar_gest WITH gnTipGest, llExcel IN orapoarte.prg
|
|
ENDPROC && BAR_2_OF_Fisademaga_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Rulaje_FB2P
|
|
LOCAL llExcel
|
|
llExcel = .F.
|
|
DO fisa_ob_inventar_resp WITH llExcel IN orapoarte.prg
|
|
ENDPROC && BAR_1_OF_Rulaje_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Rulaje_FB2P
|
|
LOCAL llExcel
|
|
llExcel = .T.
|
|
DO fisa_ob_inventar_resp WITH llExcel IN orapoarte.prg
|
|
ENDPROC && BAR_2_OF_Rulaje_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Cantitatic_FB2P
|
|
LOCAL llExcel
|
|
llExcel = .F.
|
|
DO fisa_ob_inventar_resp_stoc WITH llExcel IN orapoarte.prg
|
|
ENDPROC && BAR_1_OF_Cantitatic_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Cantitatic_FB2P
|
|
LOCAL llExcel
|
|
llExcel = .T.
|
|
DO fisa_ob_inventar_resp_stoc WITH llExcel IN orapoarte.prg
|
|
ENDPROC && BAR_2_OF_Cantitatic_FB2P
|
|
|
|
PROCEDURE BAR_8_OF_Shortcut_FB2P
|
|
DO fisa_lichidare && IN oproceduri_obinv.prg
|
|
ENDPROC && BAR_8_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Fisadelich_FB2P
|
|
DO fisa_echip_uzat_pred_imputat WITH 1 && IN oproceduri_obinv.prg
|
|
ENDPROC && BAR_1_OF_Fisadelich_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Fisadelich_FB2P
|
|
DO fisa_echip_uzat_pred_imputat WITH 2 && IN oproceduri_obinv.prg
|
|
ENDPROC && BAR_2_OF_Fisadelich_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Fisadelich_FB2P
|
|
DO fisa_echip_uzat_pred_imputat WITH 3 && IN oproceduri_obinv.prg
|
|
ENDPROC && BAR_3_OF_Fisadelich_FB2P
|
|
|
|
PROCEDURE BAR_11_OF_Shortcut_FB2P
|
|
DO necesar_echipamente IN orapoarte.prg
|
|
ENDPROC && BAR_11_OF_Shortcut_FB2P
|
|
|
|
*</Procedures>
|