574 lines
16 KiB
Plaintext
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>
|