Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
176
Meniuri/furnizori2.mn2
Normal file
176
Meniuri/furnizori2.mn2
Normal file
@@ -0,0 +1,176 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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>
|
||||
Reference in New Issue
Block a user