Files
roacont/Meniuri/banca2.mn2

574 lines
16 KiB
Plaintext

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="banca2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Bancaplati SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR "84010" OF Bancaplati PROMPT "Ridicat numerar din banca 5311" ;
MESSAGE '5311:581 ; 581:5121'
ON SELECTION BAR 84010 OF Bancaplati DO BAR_"84010"_OF_Bancaplati_FB2P
DEFINE BAR 2 OF Bancaplati PROMPT "Decontari intre subunitati 482" ;
MESSAGE '482:5121'
ON SELECTION BAR 2 OF Bancaplati DO BAR_2_OF_Bancaplati_FB2P
DEFINE BAR 3 OF Bancaplati PROMPT "Decontari intre subunitati 462" ;
MESSAGE '482 : 462; 462 : 5121'
ON SELECTION BAR 3 OF Bancaplati lans(50502)
DEFINE BAR "84190" OF Bancaplati PROMPT "Transferuri 5121" ;
MESSAGE '581 :5121;5121: 581'
ON SELECTION BAR 84190 OF Bancaplati lans(10451)
DEFINE BAR 5 OF Bancaplati PROMPT "\-"
ON BAR 5 OF Bancaplati ACTIVATE POPUP _57v0tl3ms
*----------------------------------
DEFINE POPUP _57v0tl3ms SHORTCUT RELATIVE
DEFINE BAR 6 OF Bancaplati PROMPT "\<Depozite 5081"
ON BAR 6 OF Bancaplati ACTIVATE POPUP Depozite50
*----------------------------------
DEFINE POPUP Depozite50 SHORTCUT RELATIVE
DEFINE BAR 1 OF Depozite50 PROMPT "Constituire depozit" ;
MESSAGE '581 : 5121;5081 : 581'
ON SELECTION BAR 1 OF Depozite50 lans(10634)
DEFINE BAR 2 OF Depozite50 PROMPT "Lichidare depozit" ;
MESSAGE '581 : 5081;5121 : 581'
ON SELECTION BAR 2 OF Depozite50 lans(10635)
DEFINE BAR 3 OF Depozite50 PROMPT "Inregistrare dobanda capitalizare" ;
MESSAGE '5088 : 766; 5081 : 5088'
ON SELECTION BAR 3 OF Depozite50 lans(10636)
DEFINE BAR 4 OF Depozite50 PROMPT "Inregistrare dobanda cont curent" ;
MESSAGE '5088 : 766; 5121 : 5088'
ON SELECTION BAR 4 OF Depozite50 lans(10637)
DEFINE BAR 7 OF Bancaplati PROMPT "\-"
ON BAR 7 OF Bancaplati ACTIVATE POPUP _saq0rjs7n
*----------------------------------
DEFINE POPUP _saq0rjs7n SHORTCUT RELATIVE
DEFINE BAR 8 OF Bancaplati PROMPT "Plati furnizori"
ON BAR 8 OF Bancaplati ACTIVATE POPUP _0yz0qm9kq
*----------------------------------
DEFINE POPUP _0yz0qm9kq SHORTCUT RELATIVE
DEFINE BAR 1 OF _0yz0qm9kq PROMPT "Plata furnizori 401" ;
MESSAGE '401 :5121'
ON SELECTION BAR 1 OF _0yz0qm9kq lans(10383)
DEFINE BAR 2 OF _0yz0qm9kq PROMPT "Plata furnizori imobilizari 404" ;
MESSAGE '404 :5121'
ON SELECTION BAR 2 OF _0yz0qm9kq lans(10384)
DEFINE BAR 3 OF _0yz0qm9kq PROMPT "Avansuri furnizori 409x" ;
MESSAGE '409 :5121'
ON SELECTION BAR 3 OF _0yz0qm9kq DO BAR_3_OF__0yz0qm9kq_FB2P
DEFINE BAR 4 OF _0yz0qm9kq PROMPT "\-"
ON BAR 4 OF _0yz0qm9kq ACTIVATE POPUP _1ot0t4sle
*----------------------------------
DEFINE POPUP _1ot0t4sle SHORTCUT RELATIVE
DEFINE BAR 5 OF _0yz0qm9kq PROMPT "Avansuri furnizori imobilizari 23x"
ON BAR 5 OF _0yz0qm9kq ACTIVATE POPUP Avansurifu
*----------------------------------
DEFINE POPUP Avansurifu SHORTCUT RELATIVE
DEFINE BAR 1 OF Avansurifu PROMPT "Corporale" ;
MESSAGE '232 : 5121'
ON SELECTION BAR 1 OF Avansurifu lans(10560)
DEFINE BAR 2 OF Avansurifu PROMPT "Necorporale" ;
MESSAGE '234 : 5121'
ON SELECTION BAR 2 OF Avansurifu lans(10561)
DEFINE BAR 9 OF Bancaplati PROMPT "Plati furnizori in valuta" ;
MESSAGE '581 - 5121; 5121 - 581; 5121 - 5121; 5121 - 401'
ON BAR 9 OF Bancaplati ACTIVATE POPUP Platifurni
*----------------------------------
DEFINE POPUP Platifurni SHORTCUT RELATIVE
DEFINE BAR 1 OF Platifurni PROMPT "Plati furnizori 401" ;
MESSAGE '401 :5121'
ON SELECTION BAR 1 OF Platifurni lans(10603)
DEFINE BAR 2 OF Platifurni PROMPT "Plati furnizori imobilizari 404" ;
MESSAGE '404 :5121'
ON SELECTION BAR 2 OF Platifurni lans(10607)
DEFINE BAR 3 OF Platifurni PROMPT "Plati creditori 462" ;
MESSAGE '462 :5121'
ON SELECTION BAR 3 OF Platifurni lans(10608)
DEFINE BAR "84140" OF Bancaplati PROMPT "Creditori diversi 462" ;
MESSAGE '462 :5121'
ON SELECTION BAR 84140 OF Bancaplati DO BAR_"84140"_OF_Bancaplati_FB2P
DEFINE BAR 11 OF Bancaplati PROMPT "Debitori diversi 461" ;
MESSAGE '461 :5121'
ON SELECTION BAR 11 OF Bancaplati DO BAR_11_OF_Bancaplati_FB2P
DEFINE BAR 12 OF Bancaplati PROMPT "Efecte comerciale 403" ;
MESSAGE '403 :5121'
ON SELECTION BAR 12 OF Bancaplati LANS(10316)
DEFINE BAR 13 OF Bancaplati PROMPT "Efecte comerciale imobilizari 405" ;
MESSAGE '405 :5121'
ON SELECTION BAR 13 OF Bancaplati lans(10319)
DEFINE BAR 14 OF Bancaplati PROMPT "\-"
ON BAR 14 OF Bancaplati ACTIVATE POPUP _54c0wl988
*----------------------------------
DEFINE POPUP _54c0wl988 SHORTCUT RELATIVE
DEFINE BAR "84130" OF Bancaplati PROMPT "Decontari cu asociati 456" ;
MESSAGE ' 456:5121'
ON SELECTION BAR 84130 OF Bancaplati DO BAR_"84130"_OF_Bancaplati_FB2P
DEFINE BAR "84220" OF Bancaplati PROMPT "Asociati 4551" ;
MESSAGE '4551:5121'
ON SELECTION BAR 84220 OF Bancaplati lans(10389)
DEFINE BAR "84160" OF Bancaplati PROMPT "Colaboratori 621" ;
MESSAGE '621 :5121;4426:5121'
ON SELECTION BAR 84160 OF Bancaplati lans(10390)
DEFINE BAR 18 OF Bancaplati PROMPT "\-"
ON BAR 18 OF Bancaplati ACTIVATE POPUP _0qh0oeqdz
*----------------------------------
DEFINE POPUP _0qh0oeqdz SHORTCUT RELATIVE
DEFINE BAR 19 OF Bancaplati PROMPT "Acordare avans 542" ;
MESSAGE '542 :5121'
ON SELECTION BAR 19 OF Bancaplati lans(10567)
DEFINE BAR 20 OF Bancaplati PROMPT "\-"
ON BAR 20 OF Bancaplati ACTIVATE POPUP _2070x74la
*----------------------------------
DEFINE POPUP _2070x74la SHORTCUT RELATIVE
DEFINE BAR 21 OF Bancaplati PROMPT "Salarii"
ON BAR 21 OF Bancaplati ACTIVATE POPUP Salarii
*----------------------------------
DEFINE POPUP Salarii SHORTCUT RELATIVE
DEFINE BAR 1 OF Salarii PROMPT "Salarii 421" ;
MESSAGE '421 :5121'
ON SELECTION BAR 1 OF Salarii DO BAR_1_OF_Salarii_FB2P
DEFINE BAR 2 OF Salarii PROMPT "Salarii 4211"
ON SELECTION BAR 2 OF Salarii DO BAR_2_OF_Salarii_FB2P
DEFINE BAR 3 OF Salarii PROMPT "Concedii medicale C.A.S" ;
MESSAGE '423 : 5121'
ON SELECTION BAR 3 OF Salarii lans(10549)
DEFINE BAR 4 OF Salarii PROMPT "Avansuri salarii 425" ;
MESSAGE '425 :5121'
ON SELECTION BAR 4 OF Salarii DO BAR_4_OF_Salarii_FB2P
DEFINE BAR 22 OF Bancaplati PROMPT "\-"
ON BAR 22 OF Bancaplati ACTIVATE POPUP _saq0rlh6g
*----------------------------------
DEFINE POPUP _saq0rlh6g SHORTCUT RELATIVE
DEFINE BAR "84080" OF Bancaplati PROMPT "Plata retineri 427" ;
MESSAGE '427 :5121'
ON SELECTION BAR 84080 OF Bancaplati lans(10394)
DEFINE BAR 24 OF Bancaplati PROMPT "Plata redeventa" ;
MESSAGE '4463:5121; 635:4463'
ON SELECTION BAR 24 OF Bancaplati LANS(10465)
DEFINE BAR 25 OF Bancaplati PROMPT "Plata dividende 457" ;
MESSAGE ' 457 : 5121'
ON SELECTION BAR 25 OF Bancaplati lans(10508)
DEFINE BAR 26 OF Bancaplati PROMPT "Plata amenzi, penalitati 448x" ;
MESSAGE '448X : 5121'
ON SELECTION BAR 26 OF Bancaplati DO BAR_26_OF_Bancaplati_FB2P
DEFINE BAR 27 OF Bancaplati PROMPT "Credite"
ON BAR 27 OF Bancaplati ACTIVATE POPUP Credite
*----------------------------------
DEFINE POPUP Credite SHORTCUT RELATIVE
DEFINE BAR 1 OF Credite PROMPT "Rambursat credit scurt 5191" ;
MESSAGE '5191:5121'
ON SELECTION BAR 1 OF Credite lans(10395)
DEFINE BAR 2 OF Credite PROMPT "Rambursat credit lung 1621" ;
MESSAGE '1621:5121'
ON SELECTION BAR 2 OF Credite LANS(10396)
DEFINE BAR 3 OF Credite PROMPT "Dobanzi credit termen scurt 5198" ;
MESSAGE '5198:5121; 666:5198'
ON SELECTION BAR 3 OF Credite LANS(10397)
DEFINE BAR 4 OF Credite PROMPT "Dobanzi credit termen lung 1682" ;
MESSAGE '1682:5121; 666:1682'
ON SELECTION BAR 4 OF Credite LANS(10398)
DEFINE BAR "84030" OF Bancaplati PROMPT "Acordare garantii 267X" ;
MESSAGE '2678:5121'
ON SELECTION BAR 84030 OF Bancaplati DO BAR_"84030"_OF_Bancaplati_FB2P
DEFINE BAR "84150" OF Bancaplati PROMPT "Comisioane bancare 627" ;
MESSAGE '627 :5121'
ON SELECTION BAR 84150 OF Bancaplati DO BAR_"84150"_OF_Bancaplati_FB2P
DEFINE BAR "84170" OF Bancaplati PROMPT "Comisioane si onorarii 622" ;
MESSAGE '622 :5121'
ON SELECTION BAR 84170 OF Bancaplati DO BAR_"84170"_OF_Bancaplati_FB2P
DEFINE BAR "84180" OF Bancaplati PROMPT "Cheltuieli exceptionale 6587" ;
MESSAGE '6587:5121'
ON SELECTION BAR 84180 OF Bancaplati DO BAR_"84180"_OF_Bancaplati_FB2P
DEFINE BAR "84200" OF Bancaplati PROMPT "Sume in curs de clarificare 473" ;
MESSAGE '473 :5121'
ON SELECTION BAR 84200 OF Bancaplati DO BAR_"84200"_OF_Bancaplati_FB2P
DEFINE BAR 33 OF Bancaplati PROMPT "Plati impozite 4xx" ;
MESSAGE ' 4XXX - 5121'
ON SELECTION BAR 33 OF Bancaplati DO BAR_33_OF_Bancaplati_FB2P
DEFINE BAR 34 OF Bancaplati PROMPT "Plata alte impozite 446" ;
MESSAGE '446 :5121'
ON SELECTION BAR 34 OF Bancaplati DO BAR_34_OF_Bancaplati_FB2P
DEFINE BAR 35 OF Bancaplati PROMPT "Cheltuieli in avans 471" ;
MESSAGE '471:5121'
ON SELECTION BAR 35 OF Bancaplati DO BAR_35_OF_Bancaplati_FB2P
DEFINE BAR 36 OF Bancaplati PROMPT "Decontari in cadrul grupului 4511" ;
MESSAGE ' 4511 : 5121'
ON SELECTION BAR 36 OF Bancaplati lans(10522)
DEFINE BAR 37 OF Bancaplati PROMPT "Diurna 625" ;
MESSAGE '625 : 5121'
ON SELECTION BAR 37 OF Bancaplati lans(10585)
DEFINE BAR 38 OF Bancaplati PROMPT "\-"
ON BAR 38 OF Bancaplati ACTIVATE POPUP _67l0upxxf
*----------------------------------
DEFINE POPUP _67l0upxxf SHORTCUT RELATIVE
DEFINE BAR 39 OF Bancaplati PROMPT "Plata generica prin banca" ;
MESSAGE 'X : 5121'
ON SELECTION BAR 39 OF Bancaplati DO BAR_39_OF_Bancaplati_FB2P
DEFINE BAR 40 OF Bancaplati PROMPT "Plata generica facturi valuta" ;
MESSAGE 'X : 5121; 5121 : 581; 581 : 5121; 5121 = 5121'
ON SELECTION BAR 40 OF Bancaplati DO BAR_40_OF_Bancaplati_FB2P
ACTIVATE POPUP Bancaplati
*</MenuCode>
*<Procedures>
PROCEDURE BAR_"84010"_OF_Bancaplati_FB2P
lans(10381)
*DO MENIU84010
ENDPROC && BAR_"84010"_OF_Bancaplati_FB2P
PROCEDURE BAR_2_OF_Bancaplati_FB2P
lans(10382)
*!* m.scC='5121'
*!* m.scD='482 '
*!* ***do casa.spr
*!* DO alfabeta with;
*!* 'casa',;
*!* '','','', ;
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* '','',"DECONTARI INTRE SUBUNITATI", ;
*!* "DECONTARI INTRE SUBUNITATI"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* DO PLBANCA
*!* DO STERGE
*!* RETURN
ENDPROC && BAR_2_OF_Bancaplati_FB2P
PROCEDURE BAR_3_OF__0yz0qm9kq_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(10385)
ENDPROC && BAR_3_OF__0yz0qm9kq_FB2P
PROCEDURE BAR_"84140"_OF_Bancaplati_FB2P
LANS(10386)
*DO MENIU84140
ENDPROC && BAR_"84140"_OF_Bancaplati_FB2P
PROCEDURE BAR_11_OF_Bancaplati_FB2P
lans(10387)
*DO MENIU82120B
ENDPROC && BAR_11_OF_Bancaplati_FB2P
PROCEDURE BAR_"84130"_OF_Bancaplati_FB2P
*DO MENIU84130
lans(10388)
ENDPROC && BAR_"84130"_OF_Bancaplati_FB2P
PROCEDURE BAR_1_OF_Salarii_FB2P
lans(10391)
*!* *____________________________________________________________________________________________
*!* *PROCEDURE MENIU82070
*!* m.scd='421'
*!* m.scc='5121'
*!* m.explicatia='PLATA SALARII'
*!* oa=createo('actsimB')
*!* oa.show(1)
*!* *!* DO alfabeta with;
*!* *!* 'actsimc',;
*!* *!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ;
*!* *!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* *!* '','',"PLATA SALARII CONTRACT", ;
*!* *!* "PLATA SALARII CONTRACT"
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do plbanca
*!* do sterge
*!* *RETURN
ENDPROC && BAR_1_OF_Salarii_FB2P
PROCEDURE BAR_2_OF_Salarii_FB2P
lans(10392)
*!* *____________________________________________________________________________________________
*!* *PROCEDURE MENIU82070
*!* m.scd='4211'
*!* m.scc='5121'
*!* m.explicatia='PLATA SALARII'
*!* oa=createo('actsimB')
*!* oa.show(1)
*!* *!* DO alfabeta with;
*!* *!* 'actsimc',;
*!* *!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ;
*!* *!* "NUMELE BANCII","BANNUME","NUME_2", ;
*!* *!* '','',"PLATA SALARII CONTRACT", ;
*!* *!* "PLATA SALARII CONTRACT"
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do plbanca
*!* do sterge
*!* *RETURN
ENDPROC && BAR_2_OF_Salarii_FB2P
PROCEDURE BAR_4_OF_Salarii_FB2P
lans(10393)
*!* m.scd='425 '
*!* m.scc='5121 '
*!* ***do casa.spr
*!* DO alfabeta with;
*!* 'actsimB',;
*!* '','','', ;
*!* '','','', ;
*!* '','',"PLATIT AVANS", ;
*!* "PLATIT AVANS"
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* DO PLbanca
*!* DO STERGE
ENDPROC && BAR_4_OF_Salarii_FB2P
PROCEDURE BAR_26_OF_Bancaplati_FB2P
PRIVATE pcACN
loCont=ret_cont("Selectati contul",'448') && ,4481,4482')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10512)
ENDPROC && BAR_26_OF_Bancaplati_FB2P
PROCEDURE BAR_"84030"_OF_Bancaplati_FB2P
PRIVATE pcACN
loCont=ret_cont("Selectati contul debitor 267X:5121",'267')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10399)
ENDPROC && BAR_"84030"_OF_Bancaplati_FB2P
PROCEDURE BAR_"84150"_OF_Bancaplati_FB2P
LANS(10400)
*DO MENIU84150
ENDPROC && BAR_"84150"_OF_Bancaplati_FB2P
PROCEDURE BAR_"84170"_OF_Bancaplati_FB2P
*DO MENIU84170
LANS(10401)
ENDPROC && BAR_"84170"_OF_Bancaplati_FB2P
PROCEDURE BAR_"84180"_OF_Bancaplati_FB2P
LANS(10402)
*DO MENIU84180
ENDPROC && BAR_"84180"_OF_Bancaplati_FB2P
PROCEDURE BAR_"84200"_OF_Bancaplati_FB2P
LANS(10403)
*DO MENIU84200
ENDPROC && BAR_"84200"_OF_Bancaplati_FB2P
PROCEDURE BAR_33_OF_Bancaplati_FB2P
lans(10467)
IF buton=2
DO deschid_actc
RETURN
ENDIF
DO plati_impozite WITH 10467 IN ocont2003.prg
*!* IF USED('plimp')
*!* USE IN plimp
*!* ENDIF
*!*
*!* COPY FILE &DIRGEN\_ALFA\AN0000\DATE00\plimp.* to &LOC\&NFSCURT\TEMPO\plimp.*
*!* DO des WITH 'PLIMP'
*!*
*!* SELE PLIMP
*!* INDEX ON scd TAG scd OF &loc\&nfscurt\tempo\ZZZ
*!* SET ORDER TO TAG scd
*!* REPL ALL SUMA WITH 0
*!* REPL ALL NRACT WITH M.NRACT
*!* REPL ALL scc WITH '5121'
*!* GO TOP
*!* oaf=CREATE('afisanaa')
*!* oaf.SHOW(1)
*!* m.NUME=''
*!* SELE PLIMP
*!* SUM SUMA TO M.SUMA
*!* IF buton=2
*!* DO deschid_actc
*!* RETURN
*!* ENDIF
*!*
*!* SELECT PLIMP
*!* SCAN FOR SUMA#0
*!* SCATTER MEMVAR
*!* SELECT actactan
*!* GO top
*!* SCATTER FIELDS id_set, nume_2, dataact, dataireg, fdoc MEMVAR
*!* DELETE
*!* APPEND BLANK
*!* GATHER memv
*!*
*!* SCRIE_IN_FISIERE(' ')
*!* SELECT PLIMP
*!* ENDSCAN
*!*
*!* DO deschid_actc
ENDPROC && BAR_33_OF_Bancaplati_FB2P
PROCEDURE BAR_34_OF_Bancaplati_FB2P
PRIVATE pcACN
loCont=ret_cont("Selectati contul",'446') && ,4461,4462,4463,4464,4465,4466,4467,4468,4469')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10466)
ENDPROC && BAR_34_OF_Bancaplati_FB2P
PROCEDURE BAR_35_OF_Bancaplati_FB2P
lans(10405)
ENDPROC && BAR_35_OF_Bancaplati_FB2P
PROCEDURE BAR_39_OF_Bancaplati_FB2P
LOCAL loCont
loCont = ret_cont("Contul debitor")
If buton = 2
Release loCont
Return
Endif
lans_generic(10643,loCont.Cont, loCont.Acont)
ENDPROC && BAR_39_OF_Bancaplati_FB2P
PROCEDURE BAR_40_OF_Bancaplati_FB2P
LOCAL loCont
loCont = ret_cont("Contul debitor")
If buton = 2
Release loCont
Return
Endif
lans_generic(10649,loCont.Cont, loCont.Acont)
ENDPROC && BAR_40_OF_Bancaplati_FB2P
*</Procedures>