210 lines
7.0 KiB
Plaintext
210 lines
7.0 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="banca1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Bancaincas SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR "83010" OF Bancaincas PROMPT "Depunere numerar in banca 5311" ;
|
|
MESSAGE '581 :5311;5121:581'
|
|
ON SELECTION BAR 83010 OF Bancaincas lans(10364)
|
|
|
|
DEFINE BAR 2 OF Bancaincas PROMPT "Decontari intre subunitati 482" ;
|
|
MESSAGE '5121:482'
|
|
ON SELECTION BAR 2 OF Bancaincas lans(10366)
|
|
|
|
DEFINE BAR 3 OF Bancaincas PROMPT "Incasari creditori / decontari intre subunitati 462/482" ;
|
|
MESSAGE '5121:462; 462 :482'
|
|
ON SELECTION BAR 3 OF Bancaincas lans(50501)
|
|
|
|
DEFINE BAR 4 OF Bancaincas PROMPT "\-"
|
|
ON BAR 4 OF Bancaincas ACTIVATE POPUP _0h30u83jo
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0h30u83jo SHORTCUT RELATIVE
|
|
DEFINE BAR "83050" OF Bancaincas PROMPT "Clienti 4111" ;
|
|
MESSAGE '5121:4111'
|
|
ON BAR 83050 OF Bancaincas ACTIVATE POPUP Clienti411
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Clienti411 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Clienti411 PROMPT "Fara listare" ;
|
|
MESSAGE '5121:4111'
|
|
ON SELECTION BAR 1 OF Clienti411 lans(10367)
|
|
|
|
DEFINE BAR 2 OF Clienti411 PROMPT "Cu bon fiscal - CARD" ;
|
|
MESSAGE '5125:4111 - listare bon fiscal la casa de marcat incasare prin card bancar'
|
|
ON SELECTION BAR 2 OF Clienti411 DO casademarcat_roacont WITH 10617 IN oproceduri_casademarcat.prg
|
|
|
|
DEFINE BAR 6 OF Bancaincas PROMPT "Clienti 4111 in valuta" ;
|
|
MESSAGE '581 - 5121; 5121 - 581; 5121 - 5121; 5121 - 4111'
|
|
ON SELECTION BAR 6 OF Bancaincas lans(10602)
|
|
|
|
DEFINE BAR "83060" OF Bancaincas PROMPT "Clienti incerti 4118" ;
|
|
MESSAGE '5121: 4118'
|
|
ON SELECTION BAR 83060 OF Bancaincas lans(10368)
|
|
|
|
DEFINE BAR "83070" OF Bancaincas PROMPT "Clienti creditori 419" ;
|
|
MESSAGE '5121:419 ;5121:4111 ; 4111:4427'
|
|
ON SELECTION BAR 83070 OF Bancaincas lans(10369)
|
|
|
|
DEFINE BAR 9 OF Bancaincas PROMPT "Incasarea la scadenta a efectelor depuse anterior la banca 5113" ;
|
|
MESSAGE '5121:5113'
|
|
ON SELECTION BAR 9 OF Bancaincas lans(10629)
|
|
|
|
DEFINE BAR 10 OF Bancaincas PROMPT "Incasarea efectelor la banca la scadenta 413" ;
|
|
MESSAGE '5121:413 '
|
|
ON SELECTION BAR 10 OF Bancaincas lans(10307)
|
|
|
|
DEFINE BAR 11 OF Bancaincas PROMPT "\-"
|
|
ON BAR 11 OF Bancaincas ACTIVATE POPUP _0ca0ycxcn
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0ca0ycxcn SHORTCUT RELATIVE
|
|
DEFINE BAR 12 OF Bancaincas PROMPT "Restituit avans 542" ;
|
|
MESSAGE '5121:542'
|
|
ON SELECTION BAR 12 OF Bancaincas lans(10566)
|
|
|
|
DEFINE BAR 13 OF Bancaincas PROMPT "\-"
|
|
ON BAR 13 OF Bancaincas ACTIVATE POPUP _2070wzyg6
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2070wzyg6 SHORTCUT RELATIVE
|
|
DEFINE BAR "83090" OF Bancaincas PROMPT "TVA de recuperat 4424" ;
|
|
MESSAGE '5121:4424'
|
|
ON SELECTION BAR 83090 OF Bancaincas lans(10370)
|
|
|
|
DEFINE BAR 15 OF Bancaincas PROMPT "\-"
|
|
ON BAR 15 OF Bancaincas ACTIVATE POPUP _0co1cdi8r
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0co1cdi8r SHORTCUT RELATIVE
|
|
DEFINE BAR "83180" OF Bancaincas PROMPT "Asociati 4551" ;
|
|
MESSAGE '5121:4551'
|
|
ON SELECTION BAR 83180 OF Bancaincas lans(10371)
|
|
|
|
DEFINE BAR "83100" OF Bancaincas PROMPT "Debitori diversi 461" ;
|
|
MESSAGE '5121: 461'
|
|
ON SELECTION BAR 83100 OF Bancaincas lans(10372)
|
|
|
|
DEFINE BAR "83110" OF Bancaincas PROMPT "Creditori diversi 462" ;
|
|
MESSAGE '5121:462'
|
|
ON SELECTION BAR 83110 OF Bancaincas lans(10373)
|
|
|
|
DEFINE BAR 19 OF Bancaincas PROMPT "\-"
|
|
ON BAR 19 OF Bancaincas ACTIVATE POPUP _saq0rc606
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _saq0rc606 SHORTCUT RELATIVE
|
|
DEFINE BAR "83020" OF Bancaincas PROMPT "Capital social varsat 456/1012" ;
|
|
MESSAGE '5121:456 ;1011:1012'
|
|
ON SELECTION BAR 83020 OF Bancaincas lans(10374)
|
|
|
|
DEFINE BAR "83030" OF Bancaincas PROMPT "Credite bancare pe termen lung 1621" ;
|
|
MESSAGE '5121:1621'
|
|
ON SELECTION BAR 83030 OF Bancaincas lans(10375)
|
|
|
|
DEFINE BAR "83120" OF Bancaincas PROMPT "Credite bancare 5191" ;
|
|
MESSAGE '5121:5191'
|
|
ON SELECTION BAR 83120 OF Bancaincas lans(10376)
|
|
|
|
DEFINE BAR "83040" OF Bancaincas PROMPT "Incasare garantii 267X" ;
|
|
MESSAGE '5121:267X'
|
|
ON SELECTION BAR 83040 OF Bancaincas DO BAR_"83040"_OF_Bancaincas_FB2P
|
|
|
|
DEFINE BAR 24 OF Bancaincas PROMPT "Subventii pentru investitii 131/445X" ;
|
|
MESSAGE '5121: X(131/445)'
|
|
ON SELECTION BAR 24 OF Bancaincas DO BAR_24_OF_Bancaincas_FB2P
|
|
|
|
DEFINE BAR "83150" OF Bancaincas PROMPT "Venituri din dobanzi 766" ;
|
|
MESSAGE '5121: 766'
|
|
ON SELECTION BAR 83150 OF Bancaincas lans(10379)
|
|
|
|
DEFINE BAR "83170" OF Bancaincas PROMPT "Sume in curs de clarificare 473" ;
|
|
MESSAGE '5121: 473'
|
|
ON SELECTION BAR 83170 OF Bancaincas lans(10380)
|
|
|
|
DEFINE BAR 27 OF Bancaincas PROMPT "Decontari in cadrul grupului 4511" ;
|
|
MESSAGE '5121 : 4511'
|
|
ON SELECTION BAR 27 OF Bancaincas lans(10524)
|
|
|
|
DEFINE BAR 28 OF Bancaincas PROMPT "Sume in curs de decontare 5125" ;
|
|
MESSAGE '5121: 5125'
|
|
ON SELECTION BAR 28 OF Bancaincas lans(10618)
|
|
|
|
DEFINE BAR 29 OF Bancaincas PROMPT "\-"
|
|
ON BAR 29 OF Bancaincas ACTIVATE POPUP _67l0una2d
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _67l0una2d SHORTCUT RELATIVE
|
|
DEFINE BAR 30 OF Bancaincas PROMPT "Incasare generica prin banca X" ;
|
|
MESSAGE '5121: X'
|
|
ON SELECTION BAR 30 OF Bancaincas DO BAR_30_OF_Bancaincas_FB2P
|
|
|
|
DEFINE BAR 31 OF Bancaincas PROMPT "Incasare generica facturi valuta" ;
|
|
MESSAGE '5121: X; 581 : 5121; 5121 : 581; 5121 = 5121'
|
|
ON SELECTION BAR 31 OF Bancaincas DO BAR_31_OF_Bancaincas_FB2P
|
|
ACTIVATE POPUP Bancaincas
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_"83040"_OF_Bancaincas_FB2P
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul creditor 5121:267X",'267')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
lans(10377)
|
|
ENDPROC && BAR_"83040"_OF_Bancaincas_FB2P
|
|
|
|
PROCEDURE BAR_24_OF_Bancaincas_FB2P
|
|
|
|
LOCAL loCont
|
|
loCont = ret_cont("Alegeti contul creditor 5121 = 131/445X (Subventii)", "131,445")
|
|
IF buton = 2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
|
|
|
|
lans_generic(10378,loCont.cont, loCont.acont)
|
|
ENDPROC && BAR_24_OF_Bancaincas_FB2P
|
|
|
|
PROCEDURE BAR_30_OF_Bancaincas_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Contul creditor")
|
|
If buton = 2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
|
|
|
|
lans_generic(10642,loCont.Cont, loCont.Acont)
|
|
ENDPROC && BAR_30_OF_Bancaincas_FB2P
|
|
|
|
PROCEDURE BAR_31_OF_Bancaincas_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Contul creditor")
|
|
If buton = 2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
|
|
|
|
lans_generic(10648,loCont.Cont, loCont.Acont)
|
|
ENDPROC && BAR_31_OF_Bancaincas_FB2P
|
|
|
|
*</Procedures>
|