177 lines
5.6 KiB
Plaintext
177 lines
5.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="furnizori2.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 de achizitie"
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "Factura externa de achizitie"
|
|
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 _138140a2e
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _138140a2e SHORTCUT RELATIVE
|
|
DEFINE BAR 4 OF Shortcut PROMPT "In curs de aprovizionare"
|
|
ON BAR 4 OF Shortcut ACTIVATE POPUP _2vc0mbr3g
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2vc0mbr3g SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _2vc0mbr3g PROMPT "Imobilizari corporale in curs de aprovizionare 22x" ;
|
|
MESSAGE 'Note contabile: 223/224:404; 4426:404'
|
|
ON SELECTION BAR 1 OF _2vc0mbr3g DO BAR_1_OF__2vc0mbr3g_FB2P
|
|
|
|
DEFINE BAR 2 OF _2vc0mbr3g PROMPT "Imobilizari corporale (instalatii, utilaje) finalizare aprovizionare 223" ;
|
|
MESSAGE 'Note contabile: 213x:223'
|
|
ON SELECTION BAR 2 OF _2vc0mbr3g DO BAR_2_OF__2vc0mbr3g_FB2P
|
|
|
|
DEFINE BAR 3 OF _2vc0mbr3g PROMPT "Imobilizari corporale (mobilier) finalizare aprovizionare 224" ;
|
|
MESSAGE 'Note contabile: 214:224'
|
|
ON SELECTION BAR 3 OF _2vc0mbr3g lans_generic(10604,'214', , '224')
|
|
|
|
DEFINE BAR 5 OF Shortcut PROMPT "\-"
|
|
ON BAR 5 OF Shortcut ACTIVATE POPUP _2vc0mbumr
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2vc0mbumr SHORTCUT RELATIVE
|
|
DEFINE BAR 6 OF Shortcut PROMPT "Constituire garantii" ;
|
|
MESSAGE '404 : 462'
|
|
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 7 OF Shortcut PROMPT "Inregistrare cheltuieli in avans" ;
|
|
MESSAGE '471 :404; 4426 : 404'
|
|
ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 8 OF Shortcut PROMPT "\-"
|
|
ON BAR 8 OF Shortcut ACTIVATE POPUP _13813snx0
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _13813snx0 SHORTCUT RELATIVE
|
|
DEFINE BAR 9 OF Shortcut PROMPT "Inregistrare obligatii creditate"
|
|
ON BAR 9 OF Shortcut ACTIVATE POPUP _13813sjq0
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _13813sjq0 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _13813sjq0 PROMPT "Valoare imobilizari"
|
|
ON BAR 1 OF _13813sjq0 ACTIVATE POPUP NewItem
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF NewItem PROMPT "Necorporale" ;
|
|
MESSAGE '203 : 404 ; 4426 : 404'
|
|
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
|
|
|
|
DEFINE BAR 2 OF NewItem PROMPT "Corporale" ;
|
|
MESSAGE '212 : 404 ; 4426 : 404'
|
|
ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P
|
|
|
|
DEFINE BAR 2 OF _13813sjq0 PROMPT "Diferente nefavorabile de curs valutar" ;
|
|
MESSAGE '6651: 404'
|
|
ON SELECTION BAR 2 OF _13813sjq0 DO BAR_2_OF__13813sjq0_FB2P
|
|
|
|
DEFINE BAR 3 OF _13813sjq0 PROMPT "Diferente favorabile de curs valutar" ;
|
|
MESSAGE '404 : 7651'
|
|
ON SELECTION BAR 3 OF _13813sjq0 DO BAR_3_OF__13813sjq0_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
*!* modificare v 2.2.20
|
|
Local lnDeducere
|
|
lnDeducere = 0
|
|
*!* modificare v 2.2.20 ^
|
|
buton = lans(10457,,,,@lnDeducere)
|
|
If buton=2
|
|
Do deschid_actc
|
|
Return
|
|
Endif
|
|
|
|
*!* modificare v 2.2.20
|
|
*!* DO introducere_compacta WITH 'achi_mat','','404 ',.t.,.t.,'Achizitie-Cheltuieli Materiale-Furnizori 404','4426',10457
|
|
Do introducere_compacta With 'achi_mat','','404 ',.T.,.T.,'Achizitie-Cheltuieli Materiale-Furnizori 404','4426',10457,,lnDeducere
|
|
Release lnDeducere
|
|
*!* modificare v 2.2.20 ^
|
|
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",'20,21,22,23')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
LANS(10424)
|
|
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__2vc0mbr3g_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Imobilizari in curs de aprovizionare",'223,224')
|
|
IF buton = 2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
|
|
|
|
lans_generic(10216,loCont.cont, loCont.acont)
|
|
ENDPROC && BAR_1_OF__2vc0mbr3g_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__2vc0mbr3g_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Imobilizari corporale 213x",'2311,2132,2133')
|
|
If buton = 2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
|
|
lans_generic(10604,loCont.Cont, loCont.Acont, '223')
|
|
ENDPROC && BAR_2_OF__2vc0mbr3g_FB2P
|
|
|
|
PROCEDURE BAR_6_OF_Shortcut_FB2P
|
|
lans(10413)
|
|
ENDPROC && BAR_6_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_7_OF_Shortcut_FB2P
|
|
lans(10483)
|
|
ENDPROC && BAR_7_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_NewItem_FB2P
|
|
lans(10224)
|
|
ENDPROC && BAR_1_OF_NewItem_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_NewItem_FB2P
|
|
lans(10225)
|
|
ENDPROC && BAR_2_OF_NewItem_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__13813sjq0_FB2P
|
|
lans(10226)
|
|
ENDPROC && BAR_2_OF__13813sjq0_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__13813sjq0_FB2P
|
|
lans(10227)
|
|
ENDPROC && BAR_3_OF__13813sjq0_FB2P
|
|
|
|
*</Procedures>
|