380 lines
12 KiB
Plaintext
380 lines
12 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="banca3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Bancainval SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR "861" OF Bancainval PROMPT "Incasari"
|
|
ON BAR 861 OF Bancainval ACTIVATE POPUP Incasari
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Incasari SHORTCUT RELATIVE
|
|
DEFINE BAR "86120" OF Incasari PROMPT "Depunere numerar 5314" ;
|
|
MESSAGE '581 :5314;5124: 581'
|
|
ON SELECTION BAR 86120 OF Incasari Lans(10431)
|
|
|
|
DEFINE BAR "86110" OF Incasari PROMPT "Cumparare valuta 5121" ;
|
|
MESSAGE '581 :5121;5124: 581'
|
|
ON SELECTION BAR 86110 OF Incasari lans(10438)
|
|
|
|
DEFINE BAR "86130" OF Incasari PROMPT "Incasare dobanzi 766" ;
|
|
MESSAGE '5124: 766'
|
|
ON SELECTION BAR 86130 OF Incasari lans(10439)
|
|
|
|
DEFINE BAR 4 OF Incasari PROMPT "Creditori diversi 462" ;
|
|
MESSAGE '5124 : 462'
|
|
ON SELECTION BAR 4 OF Incasari lans(10499)
|
|
|
|
DEFINE BAR 5 OF Incasari PROMPT "Asociati conturi curente 4551" ;
|
|
MESSAGE ' 5124 : 4551'
|
|
ON SELECTION BAR 5 OF Incasari lans(10530)
|
|
|
|
DEFINE BAR 6 OF Incasari PROMPT "Credit bancar termen lung 1621" ;
|
|
MESSAGE '5124 : 1621'
|
|
ON SELECTION BAR 6 OF Incasari lans(10532)
|
|
|
|
DEFINE BAR 7 OF Incasari PROMPT "Credit bancar 5191" ;
|
|
MESSAGE '5124 : 5191'
|
|
ON SELECTION BAR 7 OF Incasari lans(10533)
|
|
|
|
DEFINE BAR 8 OF Incasari PROMPT "\-"
|
|
ON BAR 8 OF Incasari ACTIVATE POPUP _0zm10vooj
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0zm10vooj SHORTCUT RELATIVE
|
|
DEFINE BAR 9 OF Incasari PROMPT "Incasari clienti 4111" ;
|
|
MESSAGE '5124: 4111'
|
|
ON SELECTION BAR 9 OF Incasari LANS(10425)
|
|
|
|
DEFINE BAR 10 OF Incasari PROMPT "Incasari clienti valuta diferita 411" ;
|
|
MESSAGE '581 - 5124; 5124 - 581; 5124 - 5124; 5124 - 4111'
|
|
ON SELECTION BAR 10 OF Incasari lans(10600)
|
|
|
|
DEFINE BAR 11 OF Incasari PROMPT "Incasari clienti LEI 411" ;
|
|
MESSAGE '581 - 5124; 5124 - 581; 5124 - 5124; 5124 - 4111'
|
|
ON SELECTION BAR 11 OF Incasari lans(10654)
|
|
|
|
DEFINE BAR "86150" OF Incasari PROMPT "Incasare avans clienti 419" ;
|
|
MESSAGE '5124: 419'
|
|
ON SELECTION BAR 86150 OF Incasari lans(10440)
|
|
|
|
DEFINE BAR 13 OF Incasari PROMPT "Incasari debitori diversi 461" ;
|
|
MESSAGE '5124: 461'
|
|
ON SELECTION BAR 13 OF Incasari lans(10497)
|
|
|
|
DEFINE BAR 14 OF Incasari PROMPT "Incasari garantii 267X" ;
|
|
MESSAGE '5124: 2678'
|
|
ON SELECTION BAR 14 OF Incasari DO BAR_14_OF_Incasari_FB2P
|
|
|
|
DEFINE BAR 15 OF Incasari PROMPT "\-"
|
|
ON BAR 15 OF Incasari ACTIVATE POPUP _2070y920s
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2070y920s SHORTCUT RELATIVE
|
|
DEFINE BAR 16 OF Incasari PROMPT "Restituire avans 542" ;
|
|
MESSAGE '5124: 542'
|
|
ON SELECTION BAR 16 OF Incasari lans(10568)
|
|
|
|
DEFINE BAR 17 OF Incasari PROMPT "\-"
|
|
ON BAR 17 OF Incasari ACTIVATE POPUP _67q0z5eb3
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _67q0z5eb3 SHORTCUT RELATIVE
|
|
DEFINE BAR 18 OF Incasari PROMPT "Incasare generica" ;
|
|
MESSAGE '5124 - X'
|
|
ON SELECTION BAR 18 OF Incasari DO BAR_18_OF_Incasari_FB2P
|
|
|
|
DEFINE BAR 19 OF Incasari PROMPT "Incasare generica facturi valuta diferita" ;
|
|
MESSAGE '5124 - X; 581 - 5124; 5124 - 581; 5124 - 5124'
|
|
ON SELECTION BAR 19 OF Incasari DO BAR_19_OF_Incasari_FB2P
|
|
|
|
DEFINE BAR "862" OF Bancainval PROMPT "Plati"
|
|
ON BAR 862 OF Bancainval ACTIVATE POPUP Plati
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Plati SHORTCUT RELATIVE
|
|
DEFINE BAR "86230" OF Plati PROMPT "Ridicat numerar 5314" ;
|
|
MESSAGE '5314:581 ;581 :5124'
|
|
ON SELECTION BAR 86230 OF Plati lans(10427)
|
|
|
|
DEFINE BAR "86220" OF Plati PROMPT "Plata comision 627" ;
|
|
MESSAGE '627 :5124'
|
|
ON SELECTION BAR 86220 OF Plati lans(10441)
|
|
|
|
DEFINE BAR "86270" OF Plati PROMPT "Plati neclarificate 473" ;
|
|
MESSAGE '473 :5124'
|
|
ON SELECTION BAR 86270 OF Plati lans(10442)
|
|
|
|
DEFINE BAR "86240" OF Plati PROMPT "Vanzare valuta 5121" ;
|
|
MESSAGE '5121:581 ; 581:5124'
|
|
ON SELECTION BAR 86240 OF Plati lans(10443)
|
|
|
|
DEFINE BAR "86250" OF Plati PROMPT "Plata dobanda 5198" ;
|
|
MESSAGE '5198:5124; 666:5198'
|
|
ON SELECTION BAR 86250 OF Plati lans(10444)
|
|
|
|
DEFINE BAR 6 OF Plati PROMPT "Debitori diversi 461" ;
|
|
MESSAGE '461 : 5124'
|
|
ON SELECTION BAR 6 OF Plati lans(10500)
|
|
|
|
DEFINE BAR 7 OF Plati PROMPT "Asociati conturi curente 4511" ;
|
|
MESSAGE ' 4511 : 5124'
|
|
ON SELECTION BAR 7 OF Plati lans(10531)
|
|
|
|
DEFINE BAR 8 OF Plati PROMPT "Rambursare credit lung 1621" ;
|
|
MESSAGE '1621 : 5124'
|
|
ON SELECTION BAR 8 OF Plati lans(10534)
|
|
|
|
DEFINE BAR 9 OF Plati PROMPT "Dobanda credit termen lung 1682" ;
|
|
MESSAGE '1682 : 5124; 666 : 1682'
|
|
ON SELECTION BAR 9 OF Plati lans(10535)
|
|
|
|
DEFINE BAR 10 OF Plati PROMPT "Rambursare credit termen scurt 5191" ;
|
|
MESSAGE ' 5191 : 5124'
|
|
ON SELECTION BAR 10 OF Plati lans(10537)
|
|
|
|
DEFINE BAR 11 OF Plati PROMPT "Dobanda credit termen scurt 5198" ;
|
|
MESSAGE '5198 : 5124; 666 : 5198'
|
|
ON SELECTION BAR 11 OF Plati lans(10538)
|
|
|
|
DEFINE BAR 12 OF Plati PROMPT "Penalitati 6581" ;
|
|
MESSAGE '6581 : 5124'
|
|
ON SELECTION BAR 12 OF Plati lans(10536)
|
|
|
|
DEFINE BAR 13 OF Plati PROMPT "\-"
|
|
ON BAR 13 OF Plati ACTIVATE POPUP _0zm10w916
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0zm10w916 SHORTCUT RELATIVE
|
|
DEFINE BAR 14 OF Plati PROMPT "Plati furnizori 401" ;
|
|
MESSAGE '401 : 5124'
|
|
ON SELECTION BAR 14 OF Plati lans(10445)
|
|
|
|
DEFINE BAR 15 OF Plati PROMPT "Plati furnizori valuta diferita 401" ;
|
|
MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; 401 - 5124'
|
|
ON SELECTION BAR 15 OF Plati lans(10601)
|
|
|
|
DEFINE BAR 16 OF Plati PROMPT "Plati furnizori LEI 401" ;
|
|
MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; 401 - 5124'
|
|
ON SELECTION BAR 16 OF Plati lans(10655)
|
|
|
|
DEFINE BAR 17 OF Plati PROMPT "Plati furnizori imobilizari 404" ;
|
|
MESSAGE '404 : 5124'
|
|
ON SELECTION BAR 17 OF Plati lans(10447)
|
|
|
|
DEFINE BAR "86260" OF Plati PROMPT "Plata avans furnizori 409" ;
|
|
MESSAGE '409 :5124'
|
|
ON SELECTION BAR 86260 OF Plati DO BAR_"86260"_OF_Plati_FB2P
|
|
|
|
DEFINE BAR 19 OF Plati PROMPT "Plata avans furnizori imobilizari 23x" ;
|
|
MESSAGE '23x :5124'
|
|
ON SELECTION BAR 19 OF Plati DO BAR_19_OF_Plati_FB2P
|
|
|
|
DEFINE BAR 20 OF Plati PROMPT "Plata creditori diversi 462" ;
|
|
MESSAGE '462 : 5124'
|
|
ON SELECTION BAR 20 OF Plati lans(10498)
|
|
|
|
DEFINE BAR 21 OF Plati PROMPT "Plata garantii 267X" ;
|
|
MESSAGE '2678 : 5124'
|
|
ON SELECTION BAR 21 OF Plati DO BAR_21_OF_Plati_FB2P
|
|
|
|
DEFINE BAR 22 OF Plati PROMPT "\-"
|
|
ON BAR 22 OF Plati ACTIVATE POPUP _2070ya95a
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2070ya95a SHORTCUT RELATIVE
|
|
DEFINE BAR 23 OF Plati PROMPT "Acordare avans 542" ;
|
|
MESSAGE '542:5124'
|
|
ON SELECTION BAR 23 OF Plati lans(10569)
|
|
|
|
DEFINE BAR 24 OF Plati PROMPT "Diurna 625" ;
|
|
MESSAGE '625 : 5124'
|
|
ON SELECTION BAR 24 OF Plati lans(10584)
|
|
|
|
DEFINE BAR 25 OF Plati PROMPT "\-"
|
|
ON BAR 25 OF Plati ACTIVATE POPUP _67q0zac7s
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _67q0zac7s SHORTCUT RELATIVE
|
|
DEFINE BAR 26 OF Plati PROMPT "Plata generica" ;
|
|
MESSAGE 'X - 5124'
|
|
ON SELECTION BAR 26 OF Plati DO BAR_26_OF_Plati_FB2P
|
|
|
|
DEFINE BAR 27 OF Plati PROMPT "Plata generica facturi valuta diferita" ;
|
|
MESSAGE 'X - 5124; 5124 - 581; 581 - 5124; 5124 - 5124'
|
|
ON SELECTION BAR 27 OF Plati DO BAR_27_OF_Plati_FB2P
|
|
|
|
DEFINE BAR 28 OF Plati PROMPT "Plata generica facturi LEI" ;
|
|
MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; X - 5124'
|
|
ON SELECTION BAR 28 OF Plati DO BAR_28_OF_Plati_FB2P
|
|
|
|
DEFINE BAR 3 OF Bancainval PROMPT "Transferuri 5124"
|
|
ON BAR 3 OF Bancainval ACTIVATE POPUP Transferur
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Transferur SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Transferur PROMPT "Transfer intre conturi aceeasi valuta" ;
|
|
MESSAGE '581 :5124 ; 5124:581'
|
|
ON SELECTION BAR 1 OF Transferur lans(10452)
|
|
|
|
DEFINE BAR 2 OF Transferur PROMPT "Transfer intre conturi valute diferite" ;
|
|
MESSAGE '581 :5124 ; 5124:581'
|
|
ON SELECTION BAR 2 OF Transferur lans(10633)
|
|
|
|
DEFINE BAR 4 OF Bancainval PROMPT "Depozite 5081"
|
|
ON BAR 4 OF Bancainval ACTIVATE POPUP Depozite50
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Depozite50 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Depozite50 PROMPT "Constituire depozit valuta" ;
|
|
MESSAGE '581 : 5124;5081 : 581'
|
|
ON SELECTION BAR 1 OF Depozite50 lans(10638)
|
|
|
|
DEFINE BAR 2 OF Depozite50 PROMPT "Lichidare depozit valuta" ;
|
|
MESSAGE '581 : 5081; 5124 : 581'
|
|
ON SELECTION BAR 2 OF Depozite50 lans(10639)
|
|
|
|
DEFINE BAR 3 OF Depozite50 PROMPT "Inregistrare dobanda capitalizare" ;
|
|
MESSAGE '5088 : 766; 5081 : 5088'
|
|
ON SELECTION BAR 3 OF Depozite50 lans(10640)
|
|
|
|
DEFINE BAR 4 OF Depozite50 PROMPT "Inregistrare dobanda cont curent" ;
|
|
MESSAGE '5088 : 766; 5124 : 5088'
|
|
ON SELECTION BAR 4 OF Depozite50 lans(10641)
|
|
ACTIVATE POPUP Bancainval
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_14_OF_Incasari_FB2P
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul creditor 5124:267X",'267')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
lans(10577)
|
|
ENDPROC && BAR_14_OF_Incasari_FB2P
|
|
|
|
PROCEDURE BAR_18_OF_Incasari_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Contul creditor")
|
|
If buton = 2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
|
|
|
|
lans_generic(10650,loCont.Cont, loCont.Acont)
|
|
ENDPROC && BAR_18_OF_Incasari_FB2P
|
|
|
|
PROCEDURE BAR_19_OF_Incasari_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Contul creditor")
|
|
If buton = 2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
|
|
|
|
lans_generic(10652,loCont.Cont, loCont.Acont)
|
|
ENDPROC && BAR_19_OF_Incasari_FB2P
|
|
|
|
PROCEDURE BAR_"86260"_OF_Plati_FB2P
|
|
PRIVATE pcACN, CN
|
|
loCont = ret_cont("Selectati contul",'409') && ,4091,4092')
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
IF buton = 2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
|
|
CN = locont.cont
|
|
PcACN = loCont.Acont
|
|
lans(10446)
|
|
ENDPROC && BAR_"86260"_OF_Plati_FB2P
|
|
|
|
PROCEDURE BAR_19_OF_Plati_FB2P
|
|
PRIVATE pcACN, CN
|
|
loCont = ret_cont("Selectati contul",'23') && 232 IMOBILIZARI CORPORALE, 234 IMOBILIZARI NECORPORALE
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
IF buton = 2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
|
|
CN = locont.cont
|
|
PcACN = loCont.Acont
|
|
lans(10596)
|
|
ENDPROC && BAR_19_OF_Plati_FB2P
|
|
|
|
PROCEDURE BAR_21_OF_Plati_FB2P
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul debitor 267X:5124",'267')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
lans(10578)
|
|
ENDPROC && BAR_21_OF_Plati_FB2P
|
|
|
|
PROCEDURE BAR_26_OF_Plati_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Contul debitor")
|
|
If buton = 2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
|
|
|
|
lans_generic(10651,loCont.Cont, loCont.Acont)
|
|
ENDPROC && BAR_26_OF_Plati_FB2P
|
|
|
|
PROCEDURE BAR_27_OF_Plati_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Contul debitor")
|
|
If buton = 2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
|
|
|
|
lans_generic(10653,loCont.Cont, loCont.Acont)
|
|
ENDPROC && BAR_27_OF_Plati_FB2P
|
|
|
|
PROCEDURE BAR_28_OF_Plati_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Contul debitor")
|
|
If buton = 2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
|
|
|
|
lans_generic(10656,loCont.Cont, loCont.Acont)
|
|
ENDPROC && BAR_28_OF_Plati_FB2P
|
|
|
|
*</Procedures>
|