114 lines
3.4 KiB
Plaintext
114 lines
3.4 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori5.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 "Factura nesosita"
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "Factura nesosita externa"
|
|
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 _13y10dnby
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _13y10dnby SHORTCUT RELATIVE
|
|
DEFINE BAR 4 OF Shortcut PROMPT "Facturi nesosite 408"
|
|
ON BAR 4 OF Shortcut ACTIVATE POPUP Facturines
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Facturines SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Facturines PROMPT "Marfa" ;
|
|
MESSAGE '371 : 408; 4428 :408'
|
|
ON SELECTION BAR 1 OF Facturines DO BAR_1_OF_Facturines_FB2P
|
|
|
|
DEFINE BAR 2 OF Facturines PROMPT "Materii prime" ;
|
|
MESSAGE '301 :408; 4428 :408'
|
|
ON SELECTION BAR 2 OF Facturines DO BAR_2_OF_Facturines_FB2P
|
|
|
|
DEFINE BAR 3 OF Facturines PROMPT "Materiale auxiliare" ;
|
|
MESSAGE '3021 :408; 4428 :408'
|
|
ON SELECTION BAR 3 OF Facturines DO BAR_3_OF_Facturines_FB2P
|
|
|
|
DEFINE BAR 4 OF Facturines PROMPT "Combustibili" ;
|
|
MESSAGE '3022:408; 4428 :408'
|
|
ON SELECTION BAR 4 OF Facturines DO BAR_4_OF_Facturines_FB2P
|
|
|
|
DEFINE BAR 5 OF Facturines PROMPT "Piese de schimb" ;
|
|
MESSAGE '3024:408; 4428 :408'
|
|
ON SELECTION BAR 5 OF Facturines DO BAR_5_OF_Facturines_FB2P
|
|
|
|
DEFINE BAR 6 OF Facturines PROMPT "Alte materiale" ;
|
|
MESSAGE '3028:408; 4428 :408'
|
|
ON SELECTION BAR 6 OF Facturines DO BAR_6_OF_Facturines_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
buton = lans(10458)
|
|
IF buton=2
|
|
DO deschid_actc
|
|
RETURN
|
|
ENDIF
|
|
|
|
DO introducere_compacta WITH 'achi_mat','','408 ',.t.,.t.,'Achizitie-Cheltuieli Materiale-Facturi nesosite 408','4428',10458
|
|
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
|
*!* SELE BAL
|
|
*!* GO TOP
|
|
*!* OS=CREA('SELCONT')
|
|
*!* OS.SHOW(1)
|
|
*!* IF BUTON=2
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul",'3,4,6')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
LANS(10548)
|
|
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Facturines_FB2P
|
|
lans(10218)
|
|
ENDPROC && BAR_1_OF_Facturines_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Facturines_FB2P
|
|
lans(10219)
|
|
ENDPROC && BAR_2_OF_Facturines_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Facturines_FB2P
|
|
lans(10220)
|
|
ENDPROC && BAR_3_OF_Facturines_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Facturines_FB2P
|
|
lans(10221)
|
|
ENDPROC && BAR_4_OF_Facturines_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Facturines_FB2P
|
|
lans(10222)
|
|
ENDPROC && BAR_5_OF_Facturines_FB2P
|
|
|
|
PROCEDURE BAR_6_OF_Facturines_FB2P
|
|
lans(10223)
|
|
ENDPROC && BAR_6_OF_Facturines_FB2P
|
|
|
|
*</Procedures>
|