*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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)
*
*4
*REPLACE
*
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
*
*
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
*