137 lines
4.1 KiB
Plaintext
137 lines
4.1 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="clienti1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Clienti PROMPT "Venituri din vanzari/servicii" ;
|
|
MESSAGE '4111-7XX ; 4111-4427'
|
|
ON SELECTION BAR 1 OF Clienti DO BAR_1_OF_Clienti_FB2P
|
|
|
|
DEFINE BAR 2 OF Clienti PROMPT "Inregistrare facturare avansuri" ;
|
|
MESSAGE '4111-419;4111-4427'
|
|
ON SELECTION BAR 2 OF Clienti DO BAR_2_OF_Clienti_FB2P
|
|
|
|
DEFINE BAR 3 OF Clienti PROMPT "Inregistrare venituri in avans" ;
|
|
MESSAGE '4111-472;4111-4427'
|
|
ON SELECTION BAR 3 OF Clienti DO BAR_3_OF_Clienti_FB2P
|
|
|
|
DEFINE BAR 4 OF Clienti PROMPT "\-"
|
|
ON BAR 4 OF Clienti ACTIVATE POPUP _09c1af6yl
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _09c1af6yl SHORTCUT RELATIVE
|
|
DEFINE BAR 5 OF Clienti PROMPT "Clienti externi"
|
|
ON BAR 5 OF Clienti ACTIVATE POPUP Facturinei
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Facturinei SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Facturinei PROMPT "\<Prestari servicii" ;
|
|
MESSAGE '4111-X'
|
|
ON SELECTION BAR 1 OF Facturinei DO BAR_1_OF_Facturinei_FB2P
|
|
|
|
DEFINE BAR 6 OF Clienti PROMPT "\-"
|
|
ON BAR 6 OF Clienti ACTIVATE POPUP _40n0of2zm
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _40n0of2zm SHORTCUT RELATIVE
|
|
DEFINE BAR 7 OF Clienti PROMPT "Constituire garantii 462"
|
|
ON SELECTION BAR 7 OF Clienti DO BAR_7_OF_Clienti_FB2P
|
|
|
|
DEFINE BAR 8 OF Clienti PROMPT "\-"
|
|
ON BAR 8 OF Clienti ACTIVATE POPUP _1381ddz8n
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1381ddz8n SHORTCUT RELATIVE
|
|
DEFINE BAR 9 OF Clienti PROMPT "Sconturi acordate clientilor" ;
|
|
MESSAGE '667-4111'
|
|
ON SELECTION BAR 9 OF Clienti lans(10326)
|
|
|
|
DEFINE BAR 10 OF Clienti PROMPT "Reduceri comerciale acordate 709" ;
|
|
MESSAGE '709-4111; 4111-4427'
|
|
ON SELECTION BAR 10 OF Clienti lans(10605)
|
|
|
|
DEFINE BAR 11 OF Clienti PROMPT "\-"
|
|
ON BAR 11 OF Clienti ACTIVATE POPUP _4pi12bm3a
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _4pi12bm3a SHORTCUT RELATIVE
|
|
DEFINE BAR 12 OF Clienti PROMPT "Factura anulata" ;
|
|
MESSAGE '4111 = 707 Creare document anulat cu suma 0 pentru D394'
|
|
ON SELECTION BAR 12 OF Clienti lans(99996)
|
|
|
|
DEFINE BAR 13 OF Clienti PROMPT "\-"
|
|
ON BAR 13 OF Clienti ACTIVATE POPUP _6tz10qrp2
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _6tz10qrp2 SHORTCUT RELATIVE
|
|
DEFINE BAR 14 OF Clienti PROMPT "Import eFactura trimise"
|
|
ON SELECTION BAR 14 OF Clienti do importEfacturaTrimise in import_efactura.prg
|
|
ACTIVATE POPUP Clienti
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Clienti_FB2P
|
|
LOCAL lnRaspuns
|
|
lnRaspuns = 6
|
|
|
|
DO WHILE lnRaspuns = 6
|
|
lans(10464)
|
|
if buton = 2
|
|
return
|
|
ENDIF
|
|
DO introducere_compacta WITH 'achi_mat','4111','',.t.,.t.,'Venituri din vanzari - Clienti 4111','4427',10464
|
|
IF buton=1
|
|
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
|
|
ELSE
|
|
lnRaspuns = 7
|
|
ENDIF
|
|
ENDDO
|
|
ENDPROC && BAR_1_OF_Clienti_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Clienti_FB2P
|
|
lans(10470)
|
|
ENDPROC && BAR_2_OF_Clienti_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Clienti_FB2P
|
|
lans(10471)
|
|
ENDPROC && BAR_3_OF_Clienti_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Facturinei_FB2P
|
|
|
|
|
|
*!* SELE BAL
|
|
*!* GO TOP
|
|
*!* OS=CREA('SELCONT')
|
|
*!* OS.SHOW(1)
|
|
*!* IF BUTON=2
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul",'7,419')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
|
|
lans(10327)
|
|
ENDPROC && BAR_1_OF_Facturinei_FB2P
|
|
|
|
PROCEDURE BAR_7_OF_Clienti_FB2P
|
|
lans(10615)
|
|
ENDPROC && BAR_7_OF_Clienti_FB2P
|
|
|
|
*</Procedures>
|