romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
b3cbeef69180bbbe5e088c4eabb7302e0379c55d
roacont/Meniuri/capitaluri7.mn2

546 lines
14 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri7.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Imprumutur SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Imprumutur PROMPT "Imprumuturi din emisiuni de obligatiuni 161"
ON BAR 1 OF Imprumutur ACTIVATE POPUP _0u60pn5yf
*----------------------------------
DEFINE POPUP _0u60pn5yf SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60pn5yf PROMPT "Emisiune obligatiuni" ;
MESSAGE '461 :161 ;5121:461 '
ON SELECTION BAR 1 OF _0u60pn5yf DO BAR_1_OF__0u60pn5yf_FB2P
DEFINE BAR 2 OF _0u60pn5yf PROMPT "Prime de rambursare" ;
MESSAGE '1691 :161 '
ON SELECTION BAR 2 OF _0u60pn5yf DO BAR_2_OF__0u60pn5yf_FB2P
DEFINE BAR 3 OF _0u60pn5yf PROMPT "Rascumparare obligatiuni" ;
MESSAGE '505 :5121;161 :505 '
ON SELECTION BAR 3 OF _0u60pn5yf DO BAR_3_OF__0u60pn5yf_FB2P
DEFINE BAR 2 OF Imprumutur PROMPT "Credite bancare pe termen lung 162"
ON BAR 2 OF Imprumutur ACTIVATE POPUP _0u60pv4cj
*----------------------------------
DEFINE POPUP _0u60pv4cj SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60pv4cj PROMPT "Pentru achitarea furnizorilor" ;
MESSAGE '401 :162 '
ON SELECTION BAR 1 OF _0u60pv4cj DO BAR_1_OF__0u60pv4cj_FB2P
DEFINE BAR 2 OF _0u60pv4cj PROMPT "Pentru achitarea furnizorilor de imob." ;
MESSAGE '404 :162 '
ON SELECTION BAR 2 OF _0u60pv4cj DO BAR_2_OF__0u60pv4cj_FB2P
DEFINE BAR 3 OF _0u60pv4cj PROMPT "Virare in banca" ;
MESSAGE '5121:162 '
ON SELECTION BAR 3 OF _0u60pv4cj DO BAR_3_OF__0u60pv4cj_FB2P
DEFINE BAR 4 OF _0u60pv4cj PROMPT "Rambursare credite" ;
MESSAGE '162 :5121'
ON SELECTION BAR 4 OF _0u60pv4cj DO BAR_4_OF__0u60pv4cj_FB2P
DEFINE BAR 3 OF Imprumutur PROMPT "Datorii ce privesc investitiile financiare 166"
ON BAR 3 OF Imprumutur ACTIVATE POPUP _0u60q01yu
*----------------------------------
DEFINE POPUP _0u60q01yu SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60q01yu PROMPT "Incasare sume" ;
MESSAGE '5121:166 '
ON SELECTION BAR 1 OF _0u60q01yu DO BAR_1_OF__0u60q01yu_FB2P
DEFINE BAR 2 OF _0u60q01yu PROMPT "Restituire sume" ;
MESSAGE '166 :5121'
ON SELECTION BAR 2 OF _0u60q01yu DO BAR_2_OF__0u60q01yu_FB2P
DEFINE BAR 4 OF Imprumutur PROMPT "Alte imprumuturi si datorii asimilate 167"
ON BAR 4 OF Imprumutur ACTIVATE POPUP _0u60q3y8a
*----------------------------------
DEFINE POPUP _0u60q3y8a SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60q3y8a PROMPT "Incasari sume" ;
MESSAGE '5121:167 '
ON SELECTION BAR 1 OF _0u60q3y8a DO BAR_1_OF__0u60q3y8a_FB2P
DEFINE BAR 2 OF _0u60q3y8a PROMPT "Rambursare imprumuturi" ;
MESSAGE '167 :5121'
ON SELECTION BAR 2 OF _0u60q3y8a DO BAR_2_OF__0u60q3y8a_FB2P
DEFINE BAR 5 OF Imprumutur PROMPT "Dobanzi aferente .... 168"
ON BAR 5 OF Imprumutur ACTIVATE POPUP _0u60q6usc
*----------------------------------
DEFINE POPUP _0u60q6usc SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60q6usc PROMPT "Imprumuturilor din emisiuni de obligatiuni 1681" ;
MESSAGE '666 :1681;1681:5121'
ON SELECTION BAR 1 OF _0u60q6usc DO BAR_1_OF__0u60q6usc_FB2P
DEFINE BAR 2 OF _0u60q6usc PROMPT "Creditelor bancare pe termen lung 1682" ;
MESSAGE '666 :1682;1682:5121'
ON SELECTION BAR 2 OF _0u60q6usc DO BAR_2_OF__0u60q6usc_FB2P
DEFINE BAR 3 OF _0u60q6usc PROMPT "Datoriilor catre societatile din grup 1685" ;
MESSAGE '666 :1685;1685:5121'
ON SELECTION BAR 3 OF _0u60q6usc DO BAR_3_OF__0u60q6usc_FB2P
DEFINE BAR 4 OF _0u60q6usc PROMPT "Datoriilor privind interesele de participare 1686" ;
MESSAGE '666 :1686;1686:5121'
ON SELECTION BAR 4 OF _0u60q6usc DO BAR_4_OF__0u60q6usc_FB2P
DEFINE BAR 5 OF _0u60q6usc PROMPT "Altor imprumuturi si datorii asimilate 1687" ;
MESSAGE '666 :1687;1687:5121'
ON SELECTION BAR 5 OF _0u60q6usc DO BAR_5_OF__0u60q6usc_FB2P
ACTIVATE POPUP Imprumutur
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF__0u60pn5yf_FB2P
***DO ABC2 WITH '461 ','161 ','5121','461 '
*!* m.scd='461 '
*!* m.scc='161 '
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "NUMELE CREDITORULUI","CREDITOR","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','','IMPRUMUT EMIS. OBLIGATIUNI', ;
*!* ""
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* M.PERECHE=M.NRACT
*!* DO CONTABILIZEAZA WITH '5121','461 ',M.suma,CLASAACT
*!* do inBANCA
lans(10051)
*!* sele credits
*!* if flock()
*!* REPLACE CREDITS.LUAT WITH CREDITS.LUAT+m.suma
*!* endif
*!* unlock
*!* do sterge
ENDPROC && BAR_1_OF__0u60pn5yf_FB2P
PROCEDURE BAR_2_OF__0u60pn5yf_FB2P
*DO ABC1 WITH '169 ','161 '
lans(10052)
ENDPROC && BAR_2_OF__0u60pn5yf_FB2P
PROCEDURE BAR_3_OF__0u60pn5yf_FB2P
*DO ABC2 WITH '505 ','5121','161 ','505 '
lans(10053)
ENDPROC && BAR_3_OF__0u60pn5yf_FB2P
PROCEDURE BAR_1_OF__0u60pv4cj_FB2P
*!* *DO ABC1 WITH '401 ','162 '
*!* m.scd='401 '
*!* m.scc='162 '
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "NUMELE CREDITULUI","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"CREDIT FURNIZOR", ;
*!* "INCASARE CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do inBANCA
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10054)
ENDPROC && BAR_1_OF__0u60pv4cj_FB2P
PROCEDURE BAR_2_OF__0u60pv4cj_FB2P
*!* *DO ABC1 WITH '404 ','162 '
*!* m.scd='404 '
*!* m.scc='162 '
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "NUMELE CREDITULUI","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"CREDIT FURNIZOR IMOB.", ;
*!* "INCASARE CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do inBANCA
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10055)
ENDPROC && BAR_2_OF__0u60pv4cj_FB2P
PROCEDURE BAR_3_OF__0u60pv4cj_FB2P
*!* *DO ABC1 WITH '5121','162 '
*!* m.scd='5121'
*!* m.scc='162 '
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "NUMELE CREDITULUI","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"CREDIT IN BANCA", ;
*!* "INCASARE CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do inBANCA
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10056)
ENDPROC && BAR_3_OF__0u60pv4cj_FB2P
PROCEDURE BAR_4_OF__0u60pv4cj_FB2P
*!* *DO ABC1 WITH '162 ','5121'
*!* m.scd='162 '
*!* m.scc='5121'
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "CREDITUL","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"RAMBURSARE CREDIT", ;
*!* "RAMBURSARE CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do PLBANCA
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10057)
ENDPROC && BAR_4_OF__0u60pv4cj_FB2P
PROCEDURE BAR_1_OF__0u60q01yu_FB2P
*!* *DO ABC1 WITH '5121','166 '
*!* m.scd='5121'
*!* m.scc='166 '
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "NUMELE CREDITULUI","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"DATORII-INVESTITII FINANCIARE", ;
*!* "INCASARE CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do inBANCA
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10058)
ENDPROC && BAR_1_OF__0u60q01yu_FB2P
PROCEDURE BAR_2_OF__0u60q01yu_FB2P
*!* *DO ABC1 WITH '166 ','5121'
*!* m.scd='166 '
*!* m.scc='5121'
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "CREDITUL","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"RAMBURSARE CREDIT", ;
*!* "RAMBURSARE CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do PLBANCA
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10059)
ENDPROC && BAR_2_OF__0u60q01yu_FB2P
PROCEDURE BAR_1_OF__0u60q3y8a_FB2P
*!* *DO ABC1 WITH '5121','167 '
*!* m.scd='5121'
*!* m.scc='167 '
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "NUMELE CREDITULUI","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"ALTE IMPRUMUTURI ASIMILATE", ;
*!* "INCASARE CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do inBANCA
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10060)
ENDPROC && BAR_1_OF__0u60q3y8a_FB2P
PROCEDURE BAR_2_OF__0u60q3y8a_FB2P
*!* *DO ABC1 WITH '167 ','5121'
*!* m.scd='167 '
*!* m.scc='5121'
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "CREDITUL","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"RAMBURSARE ALTE IMPRUMUTURI", ;
*!* "RAMBURSARE CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do PLBANCA
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10061)
ENDPROC && BAR_2_OF__0u60q3y8a_FB2P
PROCEDURE BAR_1_OF__0u60q6usc_FB2P
*!* *DO ABC2 WITH '666 ','1681','1681','5121'
*!* m.scd='1681'
*!* m.scc='5121'
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "CREDITUL","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"DOBANZI-IMPRUM.EMIS.OBLIG.", ;
*!* "DOBANZI LA CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do PLBANCA
*!* m.scd='666 '
*!* m.scc='1681'
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10062)
ENDPROC && BAR_1_OF__0u60q6usc_FB2P
PROCEDURE BAR_2_OF__0u60q6usc_FB2P
*!* *DO ABC2 WITH '666 ','1682','1682','5121'
*!* m.scd='1682'
*!* m.scc='5121'
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "CREDITUL","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"DOBANZI-CREDIT TERM. LUNG", ;
*!* "DOBANZI LA CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do PLBANCA
*!* m.scd='666 '
*!* m.scc='1682'
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10063)
ENDPROC && BAR_2_OF__0u60q6usc_FB2P
PROCEDURE BAR_3_OF__0u60q6usc_FB2P
*!* *DO ABC2 WITH '666 ','1685','1685','5121'
*!* m.scd='1685'
*!* m.scc='5121'
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "CREDITUL","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"DOBANZI-DATORII SOC.GRUP", ;
*!* "DOBANZI LA CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do PLBANCA
*!* m.scd='666 '
*!* m.scc='1685'
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
*!* endif
*!* unlock
*!* do sterge
Lans(10064)
ENDPROC && BAR_3_OF__0u60q6usc_FB2P
PROCEDURE BAR_4_OF__0u60q6usc_FB2P
*!* *DO ABC2 WITH '666 ','1686','1686','5121'
*!* m.scd='1686'
*!* m.scc='5121'
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "CREDITUL","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"DOBANZI-DATORII ALTE SOC.", ;
*!* "DOBANZI LA CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do PLBANCA
*!* m.scd='666 '
*!* m.scc='1686'
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10065)
ENDPROC && BAR_4_OF__0u60q6usc_FB2P
PROCEDURE BAR_5_OF__0u60q6usc_FB2P
*!* *DO ABC2 WITH '666 ','1687','1687','5121'
*!* m.scd='1687'
*!* m.scc='5121'
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'casa',;
*!* "CREDITUL","CREDITL","NUME", ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"DOBANZI ALTE IMPRUMUTURI", ;
*!* "DOBANZI LA CREDIT"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do PLBANCA
*!* m.scd='666 '
*!* m.scc='1687'
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* sele creditl
*!* if flock()
*!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
*!* endif
*!* unlock
*!* do sterge
lans(10066)
ENDPROC && BAR_5_OF__0u60q6usc_FB2P
*</Procedures>
Reference in New Issue View Git Blame Copy Permalink