65 lines
1.9 KiB
Plaintext
65 lines
1.9 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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>
|