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:
64
Meniuri/clienti5.mn2
Normal file
64
Meniuri/clienti5.mn2
Normal file
@@ -0,0 +1,64 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="clienti5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Clientiext SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Clientiext PROMPT "Facturi neintocmite 418-general"
|
||||
ON SELECTION BAR 1 OF Clientiext DO BAR_1_OF_Clientiext_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Clientiext PROMPT "\-"
|
||||
ON BAR 2 OF Clientiext ACTIVATE POPUP _1400t1yci
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1400t1yci SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Clientiext PROMPT "Facturi neintocmite 418" ;
|
||||
MESSAGE '418 : 70X'
|
||||
ON SELECTION BAR 3 OF Clientiext DO BAR_3_OF_Clientiext_FB2P
|
||||
ACTIVATE POPUP Clientiext
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Clientiext_FB2P
|
||||
Buton = lans(10469)
|
||||
IF Buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
DO introducere_compacta WITH 'achi_mat','418 ','',.t.,.f.,'Vanzari-Facturi neintocmite 418','4428',10469
|
||||
ENDPROC && BAR_1_OF_Clientiext_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Clientiext_FB2P
|
||||
|
||||
*!* SELE BAL
|
||||
*!* GO TOP
|
||||
*!* OS=CREA('SELCONT')
|
||||
*!* OS.SHOW(1)
|
||||
*!* IF BUTON=2
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'70')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
|
||||
lans(10301)
|
||||
ENDPROC && BAR_3_OF_Clientiext_FB2P
|
||||
|
||||
*</Procedures>
|
||||
Reference in New Issue
Block a user