514 lines
13 KiB
Plaintext
514 lines
13 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="casa3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Casainvalu SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Casainvalu PROMPT "\<Incasari"
|
|
ON BAR 1 OF Casainvalu ACTIVATE POPUP _08x0o1q7r
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _08x0o1q7r SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _08x0o1q7r PROMPT "Ridicat numerar din banca" ;
|
|
MESSAGE '5314: 581; 581:5124'
|
|
ON SELECTION BAR 1 OF _08x0o1q7r DO BAR_1_OF__08x0o1q7r_FB2P
|
|
|
|
DEFINE BAR 2 OF _08x0o1q7r PROMPT "Restituire avans materiale" ;
|
|
MESSAGE '5314: 542'
|
|
ON SELECTION BAR 2 OF _08x0o1q7r DO BAR_2_OF__08x0o1q7r_FB2P
|
|
|
|
DEFINE BAR 3 OF _08x0o1q7r PROMPT "Creditori diversi" ;
|
|
MESSAGE '5314: 462'
|
|
ON SELECTION BAR 3 OF _08x0o1q7r DO BAR_3_OF__08x0o1q7r_FB2P
|
|
|
|
DEFINE BAR 4 OF _08x0o1q7r PROMPT "Asociati cont curent" ;
|
|
MESSAGE ' 5314 : 4551'
|
|
ON SELECTION BAR 4 OF _08x0o1q7r lans(10528)
|
|
|
|
DEFINE BAR 5 OF _08x0o1q7r PROMPT "Cumparare valuta" ;
|
|
MESSAGE '5314 : 581; 581 : 5311'
|
|
ON SELECTION BAR 5 OF _08x0o1q7r lans(10541)
|
|
|
|
DEFINE BAR 6 OF _08x0o1q7r PROMPT "\-"
|
|
ON BAR 6 OF _08x0o1q7r ACTIVATE POPUP _1600zs4h9
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1600zs4h9 SHORTCUT RELATIVE
|
|
DEFINE BAR 7 OF _08x0o1q7r PROMPT "Incasare clienti" ;
|
|
MESSAGE '5314: 4111'
|
|
ON SELECTION BAR 7 OF _08x0o1q7r DO BAR_7_OF__08x0o1q7r_FB2P
|
|
|
|
DEFINE BAR 8 OF _08x0o1q7r PROMPT "Incasare avans clienti" ;
|
|
MESSAGE '5314: 419'
|
|
ON SELECTION BAR 8 OF _08x0o1q7r DO BAR_8_OF__08x0o1q7r_FB2P
|
|
|
|
DEFINE BAR 9 OF _08x0o1q7r PROMPT "Incasare debitori diversi" ;
|
|
MESSAGE '5314: 461'
|
|
ON SELECTION BAR 9 OF _08x0o1q7r DO BAR_9_OF__08x0o1q7r_FB2P
|
|
|
|
DEFINE BAR 2 OF Casainvalu PROMPT "\<Plati"
|
|
ON BAR 2 OF Casainvalu ACTIVATE POPUP _08x0o1q7s
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _08x0o1q7s SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _08x0o1q7s PROMPT "Depunere numerar" ;
|
|
MESSAGE '581 :5314;5124: 581'
|
|
ON SELECTION BAR 1 OF _08x0o1q7s DO BAR_1_OF__08x0o1q7s_FB2P
|
|
|
|
DEFINE BAR 2 OF _08x0o1q7s PROMPT "Acordare avans materiale" ;
|
|
MESSAGE '542 :5314'
|
|
ON SELECTION BAR 2 OF _08x0o1q7s DO BAR_2_OF__08x0o1q7s_FB2P
|
|
|
|
DEFINE BAR 3 OF _08x0o1q7s PROMPT "Vanzare valuta" ;
|
|
MESSAGE '5311:581 ; 581:5314'
|
|
ON SELECTION BAR 3 OF _08x0o1q7s DO BAR_3_OF__08x0o1q7s_FB2P
|
|
|
|
DEFINE BAR 4 OF _08x0o1q7s PROMPT "Plata deplasari" ;
|
|
MESSAGE '625 : 5314'
|
|
ON SELECTION BAR 4 OF _08x0o1q7s DO BAR_4_OF__08x0o1q7s_FB2P
|
|
|
|
DEFINE BAR 5 OF _08x0o1q7s PROMPT "Debitori diversi" ;
|
|
MESSAGE '461 : 5314'
|
|
ON SELECTION BAR 5 OF _08x0o1q7s DO BAR_5_OF__08x0o1q7s_FB2P
|
|
|
|
DEFINE BAR 6 OF _08x0o1q7s PROMPT "Asociati conturi curente" ;
|
|
MESSAGE '4551:5314'
|
|
ON SELECTION BAR 6 OF _08x0o1q7s lans(10529)
|
|
|
|
DEFINE BAR 7 OF _08x0o1q7s PROMPT "\-"
|
|
ON BAR 7 OF _08x0o1q7s ACTIVATE POPUP _15s0ksn23
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _15s0ksn23 SHORTCUT RELATIVE
|
|
DEFINE BAR 8 OF _08x0o1q7s PROMPT "Plata furnizori 401" ;
|
|
MESSAGE '401 :5314'
|
|
ON SELECTION BAR 8 OF _08x0o1q7s DO BAR_8_OF__08x0o1q7s_FB2P
|
|
|
|
DEFINE BAR 9 OF _08x0o1q7s PROMPT "Plata furnizori imobilizari 404" ;
|
|
MESSAGE '404 :5314'
|
|
ON SELECTION BAR 9 OF _08x0o1q7s DO BAR_9_OF__08x0o1q7s_FB2P
|
|
|
|
DEFINE BAR 10 OF _08x0o1q7s PROMPT "Plata avansuri furnizori 409" ;
|
|
MESSAGE '409 :5314'
|
|
ON SELECTION BAR 10 OF _08x0o1q7s DO BAR_10_OF__08x0o1q7s_FB2P
|
|
|
|
DEFINE BAR 11 OF _08x0o1q7s PROMPT "Plata creditori diversi" ;
|
|
MESSAGE '462 : 5314'
|
|
ON SELECTION BAR 11 OF _08x0o1q7s DO BAR_11_OF__08x0o1q7s_FB2P
|
|
ACTIVATE POPUP Casainvalu
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF__08x0o1q7r_FB2P
|
|
*____________________________________________________________________________________________
|
|
*PROCEDURE MENIU81010
|
|
|
|
lans(10427)
|
|
*!* m.scd='5314 '
|
|
*!* m.scc='581 '
|
|
|
|
*!* do alfabeta with;
|
|
*!* 'casaV','NUMELE CASEI IN VALUTA','CASVNUME','NUME_5',;
|
|
*!* "NUMELE BANCII IN VALUTA","BANVNUME","NUME_3",;
|
|
*!* 'CURSUL VALUTAR','',"","DO CURS.SPR"
|
|
*!* *
|
|
|
|
*!* M.NUME=''
|
|
*!* M.NUME_2=''
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* DO CODARE
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* do INVALCASA
|
|
*!* m.scd='581 '
|
|
*!* m.scc='5124 '
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* DO PLVALBANCA
|
|
*!* do sterge
|
|
*!* RETURN
|
|
|
|
ENDPROC && BAR_1_OF__08x0o1q7r_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__08x0o1q7r_FB2P
|
|
lans(10430)
|
|
*!* m.scd='5314'
|
|
*!* m.scc='542 '
|
|
|
|
*!* do alfabeta with;
|
|
*!* 'casaV',;
|
|
*!* "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",;
|
|
*!* 'CASA IN VALUTA','CASVNUME','NUME_5',;
|
|
*!* 'CURSUL VALUTAR','','', ;
|
|
*!* 'do curs.spr'
|
|
*!* m.nume_3=m.nume_2
|
|
*!* M.NUME_2=''
|
|
*!* *
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* DO CODARE
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* do inVALCASA
|
|
|
|
*!* SELE ACHIT542
|
|
*!* REPLACE DAT WITH DAT+m.suma
|
|
|
|
*!* SELE ACT
|
|
*!* do sterge
|
|
*!* RETURN
|
|
|
|
ENDPROC && BAR_2_OF__08x0o1q7r_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__08x0o1q7r_FB2P
|
|
*____________________________________________________________________________________________
|
|
*PROCEDURE MENIU81060
|
|
lans(10501)
|
|
*!* m.scd='5314 '
|
|
*!* m.scc='462 '
|
|
|
|
*!* do alfabeta with;
|
|
*!* 'casaV',;
|
|
*!* "NUMELE CREDITORULUI","CREDITOR","NUME",;
|
|
*!* 'CASA IN VALUTA','CASVNUME','NUME_5',;
|
|
*!* 'CURSUL VALUTAR','','', ;
|
|
*!* 'do curs.spr'
|
|
*!* *
|
|
*!* M.NUME_2=''
|
|
*!* *
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* DO CODARE
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* do inVALCASA
|
|
*!* SELE CREDITOR
|
|
*!* REPLACE LUAT WITH LUAT +m.suma
|
|
*!* SELE ACT
|
|
*!* do sterge
|
|
*!* RETURN
|
|
|
|
ENDPROC && BAR_3_OF__08x0o1q7r_FB2P
|
|
|
|
PROCEDURE BAR_7_OF__08x0o1q7r_FB2P
|
|
lans(10426)
|
|
*!* *____________________________________________________________________________________________
|
|
*!* *PROCEDURE MENIU86140
|
|
*!* local sumacorecta,diferente
|
|
*!* sTore 0 to sumacorecta,diferente
|
|
*!* m.scd='5314 '
|
|
*!* m.scc='411 '
|
|
|
|
*!* do alfabetaper with;
|
|
*!* 'casaPERVAL',;
|
|
*!* "NUMELE CLIENTULUI","CLIEnti","NUME", ;
|
|
*!* "NUMELE CASEI IN VALUTA","CASvNUME","NUME_5", ;
|
|
*!* 'CURSUL VALUTAR','','', ;
|
|
*!* 'do curs.spr','v'
|
|
*!* *
|
|
*!* sumacorecta=m.suma*m.cursvechi/m.cursschimb
|
|
*!* diferente=m.suma-sumacorecta
|
|
|
|
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* DO CODARE
|
|
|
|
*!* *M.NUME_3=M.NUME_2
|
|
*!* M.NUME_2=''
|
|
|
|
*!* LOCAL C
|
|
*!* C=M.CURSSCHIMB
|
|
*!* M.CURSSCHIMB=M.CURSVECHI
|
|
*!* M.SUMA_3=M.CURSVECHI
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,sumacorecta,CLASAACT
|
|
*!* M.CASA=M.NUME_5
|
|
*!* DO INVALCASA
|
|
|
|
|
|
*!* DO CASE
|
|
*!* CASE diferente>0
|
|
*!* m.explicatia='DIFERENTE FAVORABILE'
|
|
*!* M.SUMA_3=C
|
|
*!* M.CURSSCHIMB=C
|
|
*!* M.SUMA_2=0
|
|
*!* DO CONTABILIZEAZA WITH '5314','765 ',diferente,CLASAACT
|
|
*!* M.SUMAVAL=0
|
|
*!* DO INVALBANCA
|
|
*!* CASE diferente<0
|
|
*!* m.explicatia='DIFERENTE NEFAVORABILE'
|
|
*!* M.SUMA_3=C
|
|
*!* M.CURSSCHIMB=C
|
|
*!* M.SUMA_2=0
|
|
*!* DO CONTABILIZEAZA WITH '665 ','411',-diferente,CLASAACT
|
|
*!* M.SUMAVAL=0
|
|
*!* DO PLVALBANCA
|
|
*!* endCASE
|
|
|
|
|
|
|
|
|
|
*!* SELE CLIEnti
|
|
*!* REPLACE CLIEnti.incasat WITH CLIEnti.incasat+m.suma
|
|
|
|
*!* do sterge
|
|
*!* RETURN
|
|
|
|
|
|
ENDPROC && BAR_7_OF__08x0o1q7r_FB2P
|
|
|
|
PROCEDURE BAR_8_OF__08x0o1q7r_FB2P
|
|
*____________________________________________________________________________________________
|
|
*PROCEDURE MENIU86150
|
|
lans(10428)
|
|
*!* m.scd='5314'
|
|
*!* m.scc='419 '
|
|
|
|
*!* do alfabeta with;
|
|
*!* 'casAV',;
|
|
*!* "NUMELE CLIENTULUI","CLIEnti","NUME", ;
|
|
*!* "NUMELE CASEI IN VALUTA","CASvNUME","NUME_5", ;
|
|
*!* 'CURSUL VALUTAR','','', ;
|
|
*!* 'do curs.spr'
|
|
*!* *
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* *M.NUME_3=M.NUME_2
|
|
*!* M.NUME_2=''
|
|
*!* DO CODARE
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
|
|
*!* M.CASA=M.NUME_5
|
|
*!* DO INVALCASA
|
|
*!* SELE clienti
|
|
*!* REPLACE clienti.incasat WITH clienti.incasat+m.suma
|
|
*!* do sterge
|
|
ENDPROC && BAR_8_OF__08x0o1q7r_FB2P
|
|
|
|
PROCEDURE BAR_9_OF__08x0o1q7r_FB2P
|
|
*____________________________________________________________________________________________
|
|
*PROCEDURE MENIU81050
|
|
*lans(10429)
|
|
lans(10503)
|
|
*!* m.scd='5314'
|
|
*!* m.scc='461 '
|
|
*!* ***do casa.spr
|
|
*!* do alfabeta with;
|
|
*!* 'casaV',;
|
|
*!* "NUMELE DEBITORULUI","DEBITOR","NUME",;
|
|
*!* 'CASA IN VALUTA','CASVNUME','NUME_5',;
|
|
*!* 'CURSUL VALUTAR','','', ;
|
|
*!* 'do curs.spr'
|
|
*!* *
|
|
*!* M.NUME_2=''
|
|
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* DO CODARE
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* do inVALCASA
|
|
*!* SELE DEBITOR
|
|
*!* REPLACE DAT WITH DAT +m.suma
|
|
*!* SELE ACT
|
|
*!* do sterge
|
|
*!* RETURN
|
|
ENDPROC && BAR_9_OF__08x0o1q7r_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__08x0o1q7s_FB2P
|
|
*____________________________________________________________________________________________
|
|
*PROCEDURE MENIU82010
|
|
lans(10431)
|
|
*!* m.scd='581 '
|
|
*!* m.scc='5314'
|
|
*!* ***do casa.spr
|
|
*!* do alfabeta with;
|
|
*!* 'casaV',;
|
|
*!* 'CASA IN VALUTA','CASVNUME','NUME_5',;
|
|
*!* "BANCA IN VALUTA","BANVNUME","NUME_3",;
|
|
*!* 'CURSUL VALUTAR','',"","DO CURS.SPR"
|
|
*!*
|
|
*!*
|
|
*!* *
|
|
*!* M.NUME=''
|
|
*!* M.NUME_2=''
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* DO CODARE
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* M.CASA=M.NUME_5
|
|
*!* do PLVALCASA
|
|
*!* m.scd='5124'
|
|
*!* m.scc='581 '
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* M.BANCA=M.NUME_3
|
|
*!* DO INVALBANCA
|
|
*!* do sterge
|
|
ENDPROC && BAR_1_OF__08x0o1q7s_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__08x0o1q7s_FB2P
|
|
lans(10432)
|
|
*!* m.scd='542 '
|
|
*!* m.scc='5314'
|
|
|
|
*!* do alfabeta with;
|
|
*!* 'casaV',;
|
|
*!* "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",;
|
|
*!* 'CASA IN VALUTA','CASVNUME','NUME_5',;
|
|
*!* 'CURSUL VALUTAR','',"",;
|
|
*!* "DO CURS.SPR"
|
|
*!* *
|
|
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* M.NUME=M.NUME_2
|
|
*!* M.NUME_2=''
|
|
*!* DO CODARE
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* do plVALCASA
|
|
*!* repl ACHIT542.LUAT with ACHIT542.LUAT+m.suma
|
|
*!* do sterge
|
|
*!* RETURN
|
|
ENDPROC && BAR_2_OF__08x0o1q7s_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__08x0o1q7s_FB2P
|
|
*____________________________________________________________________________________________
|
|
*PROCEDURE MENIU86240
|
|
lans(10437)
|
|
*!* m.scd='5311 '
|
|
*!* m.scc='581 '
|
|
*!* ***do CASA.spr
|
|
*!* do alfabeta with;
|
|
*!* 'CASAV',;
|
|
*!* "CASA IN VALUTA","CASVNUME","NUME_5", ;
|
|
*!* "CASA IN LEI","CASANUME","CASA", ;
|
|
*!* 'CURSUL VALUTAR','','', ;
|
|
*!* 'do curs.spr'
|
|
*!* *
|
|
|
|
*!* M.NUME_3=M.CASA
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* m.nume_2=''
|
|
*!* m.nume=''
|
|
*!* DO CODARE
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* *M.CASA=M.NUME_3
|
|
*!* DO INCASA
|
|
*!* m.scd='581 '
|
|
*!* m.scc='5314 '
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* M.CASA=M.NUME_5
|
|
*!* DO PLVALCASA
|
|
*!* do sterge
|
|
*!* RETURN
|
|
ENDPROC && BAR_3_OF__08x0o1q7s_FB2P
|
|
|
|
PROCEDURE BAR_4_OF__08x0o1q7s_FB2P
|
|
lans(10486)
|
|
ENDPROC && BAR_4_OF__08x0o1q7s_FB2P
|
|
|
|
PROCEDURE BAR_5_OF__08x0o1q7s_FB2P
|
|
lans(10502)
|
|
ENDPROC && BAR_5_OF__08x0o1q7s_FB2P
|
|
|
|
PROCEDURE BAR_8_OF__08x0o1q7s_FB2P
|
|
*____________________________________________________________________________________________
|
|
*PROCEDURE MENIU86210
|
|
lans(10434)
|
|
*!* m.scd='401 '
|
|
*!* m.scc='5314'
|
|
*!* ***do BANCA.spr
|
|
*!* do alfabetaper with;
|
|
*!* 'CASAperval',;
|
|
*!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ;
|
|
*!* "NUMELE CASEI IN VALUTA","CASVNUME","NUME_5", ;
|
|
*!* 'CURSUL VALUTAR','','', ;
|
|
*!* 'do curs.spr','c'
|
|
*!* *
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* m.nume_3=''
|
|
*!* m.nume_2=''
|
|
*!* DO CODARE
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* M.CASA=M.NUME_5
|
|
*!* do plVALCASA
|
|
|
|
*!* SELE FURNIZOR
|
|
*!* repl furnizor.platit with furnizor.platit+m.suma
|
|
*!* do sterge
|
|
*!* RETURN
|
|
ENDPROC && BAR_8_OF__08x0o1q7s_FB2P
|
|
|
|
PROCEDURE BAR_9_OF__08x0o1q7s_FB2P
|
|
lans(10435)
|
|
*!* m.scd='404 '
|
|
*!* m.scc='5314 '
|
|
|
|
*!* do alfabetaper with;
|
|
*!* 'CASAperval',;
|
|
*!* "NUMELE FURNIZORULUI","FURNIZ404","NUME", ;
|
|
*!* "NUMELE CASEI IN VALUTA","CASVNUME","NUME_5", ;
|
|
*!* 'CURSUL VALUTAR','','', ;
|
|
*!* 'do curs.spr','p'
|
|
*!* *
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* m.nume_3=''
|
|
*!* m.nume_2=''
|
|
*!* DO CODARE
|
|
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
*!* M.CASA=M.NUME_5
|
|
*!* do plVALCASA
|
|
|
|
*!* SELE FURNIZ404
|
|
*!* repl platit with platit+m.suma
|
|
*!* do sterge
|
|
ENDPROC && BAR_9_OF__08x0o1q7s_FB2P
|
|
|
|
PROCEDURE BAR_10_OF__08x0o1q7s_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(10436)
|
|
ENDPROC && BAR_10_OF__08x0o1q7s_FB2P
|
|
|
|
PROCEDURE BAR_11_OF__08x0o1q7s_FB2P
|
|
Lans(10504)
|
|
ENDPROC && BAR_11_OF__08x0o1q7s_FB2P
|
|
|
|
*</Procedures>
|