533 lines
15 KiB
Plaintext
533 lines
15 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="contcasa_.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Introducer SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Introducer PROMPT "\<Introducere" ;
|
|
SKIP FOR luna_inchisa OR m.nivel>3 ;
|
|
MESSAGE 'Trezorerie'
|
|
ON BAR 1 OF Introducer ACTIVATE POPUP _0bh0pul28
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0bh0pul28 SHORTCUT RELATIVE
|
|
DEFINE BAR "81" OF _0bh0pul28 PROMPT "Casa incasari"
|
|
ON BAR 81 OF _0bh0pul28 ACTIVATE POPUP Casaincasa
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Casaincasa SHORTCUT RELATIVE
|
|
DEFINE BAR "81010" OF Casaincasa PROMPT "Ridicat numerar din banca 581" ;
|
|
MESSAGE '5311:581 ;581 :5121'
|
|
ON SELECTION BAR 81010 OF Casaincasa DO BAR_"81010"_OF_Casaincasa_FB2P
|
|
|
|
DEFINE BAR 2 OF Casaincasa PROMPT "Transfer intre case 581" ;
|
|
MESSAGE '5311:581'
|
|
ON SELECTION BAR 2 OF Casaincasa DO BAR_2_OF_Casaincasa_FB2P
|
|
|
|
DEFINE BAR 3 OF Casaincasa PROMPT "\-"
|
|
ON BAR 3 OF Casaincasa ACTIVATE POPUP _0j10xmir1
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0j10xmir1 SHORTCUT RELATIVE
|
|
DEFINE BAR "81070" OF Casaincasa PROMPT "Restituit avans 542" ;
|
|
MESSAGE '5311:542'
|
|
ON SELECTION BAR 81070 OF Casaincasa DO BAR_"81070"_OF_Casaincasa_FB2P
|
|
|
|
DEFINE BAR "81080" OF Casaincasa PROMPT "Asociati cont curent" ;
|
|
MESSAGE '5311:4551'
|
|
ON SELECTION BAR 81080 OF Casaincasa DO BAR_"81080"_OF_Casaincasa_FB2P
|
|
|
|
DEFINE BAR 6 OF Casaincasa PROMPT "\-"
|
|
ON BAR 6 OF Casaincasa ACTIVATE POPUP _saq0r80dh
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _saq0r80dh SHORTCUT RELATIVE
|
|
DEFINE BAR "81020" OF Casaincasa PROMPT "Clienti 411" ;
|
|
MESSAGE '5311:411'
|
|
ON SELECTION BAR 81020 OF Casaincasa DO BAR_"81020"_OF_Casaincasa_FB2P
|
|
|
|
DEFINE BAR "81030" OF Casaincasa PROMPT "Clienti incerti 416" ;
|
|
MESSAGE '5331:416'
|
|
ON SELECTION BAR 81030 OF Casaincasa DO BAR_"81030"_OF_Casaincasa_FB2P
|
|
|
|
DEFINE BAR "81040" OF Casaincasa PROMPT "Avansuri TVA 419" ;
|
|
MESSAGE '5311:419 ;5311:411 ; 411:4427'
|
|
ON SELECTION BAR 81040 OF Casaincasa DO BAR_"81040"_OF_Casaincasa_FB2P
|
|
|
|
DEFINE BAR "81050" OF Casaincasa PROMPT "Debitori diversi 461" ;
|
|
MESSAGE '5311:461'
|
|
ON SELECTION BAR 81050 OF Casaincasa DO BAR_"81050"_OF_Casaincasa_FB2P
|
|
|
|
DEFINE BAR "81060" OF Casaincasa PROMPT "Creditori diversi 462" ;
|
|
MESSAGE '5311:462'
|
|
ON SELECTION BAR 81060 OF Casaincasa DO BAR_"81060"_OF_Casaincasa_FB2P
|
|
|
|
DEFINE BAR 12 OF Casaincasa PROMPT "\-"
|
|
ON BAR 12 OF Casaincasa ACTIVATE POPUP _00i0rr0vq
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _00i0rr0vq SHORTCUT RELATIVE
|
|
DEFINE BAR 13 OF Casaincasa PROMPT "\<Incasare monetar"
|
|
ON SELECTION BAR 13 OF Casaincasa DO BAR_13_OF_Casaincasa_FB2P
|
|
|
|
DEFINE BAR "82" OF _0bh0pul28 PROMPT "Casa plati"
|
|
ON BAR 82 OF _0bh0pul28 ACTIVATE POPUP Casaplati
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Casaplati SHORTCUT RELATIVE
|
|
DEFINE BAR "82010" OF Casaplati PROMPT "Depunere numerar in banca" ;
|
|
MESSAGE '581 :5311;5121:581'
|
|
ON SELECTION BAR 82010 OF Casaplati DO BAR_"82010"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR 2 OF Casaplati PROMPT "Transfer intre case 581" ;
|
|
MESSAGE '581 :5311'
|
|
ON SELECTION BAR 2 OF Casaplati DO BAR_2_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR 3 OF Casaplati PROMPT "\-"
|
|
ON BAR 3 OF Casaplati ACTIVATE POPUP _0c70oxuh2
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0c70oxuh2 SHORTCUT RELATIVE
|
|
DEFINE BAR "82020" OF Casaplati PROMPT "Acordare avans materiale 542" ;
|
|
MESSAGE '542 :5311'
|
|
ON SELECTION BAR 82020 OF Casaplati DO BAR_"82020"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82040" OF Casaplati PROMPT "Plata furnizori din 542" ;
|
|
MESSAGE '401 :542'
|
|
ON SELECTION BAR 82040 OF Casaplati DO BAR_"82040"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR 6 OF Casaplati PROMPT "Plata deplasari din 542" ;
|
|
MESSAGE '625 :542'
|
|
ON SELECTION BAR 6 OF Casaplati DO BAR_6_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82100" OF Casaplati PROMPT "Asociati conturi curente" ;
|
|
MESSAGE '4551:5311'
|
|
ON SELECTION BAR 82100 OF Casaplati DO BAR_"82100"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR 8 OF Casaplati PROMPT "\-"
|
|
ON BAR 8 OF Casaplati ACTIVATE POPUP _saq0r5jfn
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _saq0r5jfn SHORTCUT RELATIVE
|
|
DEFINE BAR "82030" OF Casaplati PROMPT "Furnizori 401 din casa" ;
|
|
MESSAGE '401 :5311'
|
|
ON SELECTION BAR 82030 OF Casaplati DO BAR_"82030"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82050" OF Casaplati PROMPT "Furnizori imobilizari 404" ;
|
|
MESSAGE '404 :5311'
|
|
ON SELECTION BAR 82050 OF Casaplati DO BAR_"82050"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82060" OF Casaplati PROMPT "Avansuri furnizori 409" ;
|
|
MESSAGE '409 :5311'
|
|
ON SELECTION BAR 82060 OF Casaplati DO BAR_"82060"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82120" OF Casaplati PROMPT "Debitori diversi" ;
|
|
MESSAGE '461 :5311'
|
|
ON SELECTION BAR 82120 OF Casaplati DO BAR_"82120"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82130" OF Casaplati PROMPT "Creditori diversi" ;
|
|
MESSAGE '462 :5311'
|
|
ON SELECTION BAR 82130 OF Casaplati DO BAR_"82130"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR 14 OF Casaplati PROMPT "\-"
|
|
ON BAR 14 OF Casaplati ACTIVATE POPUP _saq0r5jfo
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _saq0r5jfo SHORTCUT RELATIVE
|
|
DEFINE BAR "82070" OF Casaplati PROMPT "Salarii"
|
|
ON BAR 82070 OF Casaplati ACTIVATE POPUP Salarii
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Salarii SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Salarii PROMPT "\<Salarii contract" ;
|
|
MESSAGE '4211:5311'
|
|
ON SELECTION BAR 1 OF Salarii DO BAR_1_OF_Salarii_FB2P
|
|
|
|
DEFINE BAR 2 OF Salarii PROMPT "Salarii \<conventie" ;
|
|
MESSAGE '4212:5311'
|
|
ON SELECTION BAR 2 OF Salarii DO BAR_2_OF_Salarii_FB2P
|
|
|
|
DEFINE BAR 3 OF Salarii PROMPT "\<Datorii legate de personal" ;
|
|
MESSAGE '4281:5311'
|
|
ON SELECTION BAR 3 OF Salarii DO BAR_3_OF_Salarii_FB2P
|
|
|
|
DEFINE BAR "82080" OF Casaplati PROMPT "Concedii medicale C.A.S." ;
|
|
MESSAGE '423 :5311'
|
|
ON SELECTION BAR 82080 OF Casaplati DO BAR_"82080"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82090" OF Casaplati PROMPT "Avansuri salarii 425" ;
|
|
MESSAGE '425 :5311'
|
|
ON SELECTION BAR 82090 OF Casaplati DO BAR_"82090"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82110" OF Casaplati PROMPT "Drepturi neridicate 426" ;
|
|
MESSAGE '426 :5311'
|
|
ON SELECTION BAR 82110 OF Casaplati DO BAR_"82110"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR 19 OF Casaplati PROMPT "\-"
|
|
ON BAR 19 OF Casaplati ACTIVATE POPUP _saq0r5jfp
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _saq0r5jfp SHORTCUT RELATIVE
|
|
DEFINE BAR "82140" OF Casaplati PROMPT "Plata alte impozite 446" ;
|
|
MESSAGE '446 :5311; 635:446'
|
|
ON SELECTION BAR 82140 OF Casaplati DO BAR_"82140"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82150" OF Casaplati PROMPT "Plata alte datorii 448" ;
|
|
MESSAGE '448 :5311;6711: 448'
|
|
ON SELECTION BAR 82150 OF Casaplati DO BAR_"82150"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82160" OF Casaplati PROMPT "Plata tratamente" ;
|
|
MESSAGE '423 :5311;6458:423'
|
|
ON SELECTION BAR 82160 OF Casaplati DO BAR_"82160"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82170" OF Casaplati PROMPT "Plata dividende" ;
|
|
MESSAGE '457 :5311'
|
|
ON SELECTION BAR 82170 OF Casaplati DO BAR_"82170"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR "82180" OF Casaplati PROMPT "Plata gratificatii" ;
|
|
MESSAGE '424 :5311; 112: 424'
|
|
ON SELECTION BAR 82180 OF Casaplati DO BAR_"82180"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR 25 OF Casaplati PROMPT "Plata deplasari" ;
|
|
MESSAGE '625 :5311'
|
|
ON SELECTION BAR 25 OF Casaplati DO BAR_25_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR 26 OF Casaplati PROMPT "\-"
|
|
ON BAR 26 OF Casaplati ACTIVATE POPUP _saq0r5jfq
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _saq0r5jfq SHORTCUT RELATIVE
|
|
DEFINE BAR "82190" OF Casaplati PROMPT "Cheltuieli de infiintare" ;
|
|
MESSAGE '201 :5311'
|
|
ON SELECTION BAR 82190 OF Casaplati DO BAR_"82190"_OF_Casaplati_FB2P
|
|
|
|
DEFINE BAR 2 OF Introducer PROMPT "\-"
|
|
ON BAR 2 OF Introducer ACTIVATE POPUP NewItem
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
|
DEFINE BAR 3 OF Introducer PROMPT "\<Vizualizare"
|
|
ON BAR 3 OF Introducer ACTIVATE POPUP Vizualizar
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Vizualizar SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Vizualizar PROMPT "\<Registrul de casa"
|
|
ON SELECTION BAR 1 OF Vizualizar DO BAR_1_OF_Vizualizar_FB2P
|
|
|
|
DEFINE BAR 2 OF Vizualizar PROMPT "\<Solduri case"
|
|
ON SELECTION BAR 2 OF Vizualizar DO BAR_2_OF_Vizualizar_FB2P
|
|
|
|
DEFINE BAR 4 OF Introducer PROMPT "\-"
|
|
ON BAR 4 OF Introducer ACTIVATE POPUP _0bh0v7gzk
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0bh0v7gzk SHORTCUT RELATIVE
|
|
DEFINE BAR 5 OF Introducer PROMPT "\<Listare"
|
|
ON SELECTION BAR 5 OF Introducer DO BAR_5_OF_Introducer_FB2P
|
|
ACTIVATE POPUP Introducer
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_"81010"_OF_Casaincasa_FB2P
|
|
DO MENIU81010
|
|
ENDPROC && BAR_"81010"_OF_Casaincasa_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Casaincasa_FB2P
|
|
|
|
m.scd='5311 '
|
|
m.scc='581 '
|
|
|
|
do alfabeta with;
|
|
'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE"
|
|
*
|
|
IF BUTON=2
|
|
DO STERGE
|
|
RETURN
|
|
ENDIF
|
|
DO CODARE
|
|
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
do INCASA
|
|
|
|
do sterge
|
|
RETURN
|
|
ENDPROC && BAR_2_OF_Casaincasa_FB2P
|
|
|
|
PROCEDURE BAR_"81070"_OF_Casaincasa_FB2P
|
|
DO MENIU81070
|
|
ENDPROC && BAR_"81070"_OF_Casaincasa_FB2P
|
|
|
|
PROCEDURE BAR_"81080"_OF_Casaincasa_FB2P
|
|
DO MENIU81080
|
|
ENDPROC && BAR_"81080"_OF_Casaincasa_FB2P
|
|
|
|
PROCEDURE BAR_"81020"_OF_Casaincasa_FB2P
|
|
DO MENIU81020
|
|
ENDPROC && BAR_"81020"_OF_Casaincasa_FB2P
|
|
|
|
PROCEDURE BAR_"81030"_OF_Casaincasa_FB2P
|
|
DO MENIU81030
|
|
ENDPROC && BAR_"81030"_OF_Casaincasa_FB2P
|
|
|
|
PROCEDURE BAR_"81040"_OF_Casaincasa_FB2P
|
|
DO MENIU81040
|
|
ENDPROC && BAR_"81040"_OF_Casaincasa_FB2P
|
|
|
|
PROCEDURE BAR_"81050"_OF_Casaincasa_FB2P
|
|
DO MENIU81050
|
|
ENDPROC && BAR_"81050"_OF_Casaincasa_FB2P
|
|
|
|
PROCEDURE BAR_"81060"_OF_Casaincasa_FB2P
|
|
DO MENIU81060
|
|
ENDPROC && BAR_"81060"_OF_Casaincasa_FB2P
|
|
|
|
PROCEDURE BAR_13_OF_Casaincasa_FB2P
|
|
do procmonetar in proceduri.prg
|
|
ENDPROC && BAR_13_OF_Casaincasa_FB2P
|
|
|
|
PROCEDURE BAR_"82010"_OF_Casaplati_FB2P
|
|
DO MENIU82010
|
|
ENDPROC && BAR_"82010"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Casaplati_FB2P
|
|
m.scd='581 '
|
|
m.scc='5311'
|
|
|
|
do alfabeta with;
|
|
'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE"
|
|
*
|
|
IF BUTON=2
|
|
DO STERGE
|
|
RETURN
|
|
ENDIF
|
|
DO CODARE
|
|
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
do plCASA
|
|
|
|
do sterge
|
|
RETURN
|
|
ENDPROC && BAR_2_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82020"_OF_Casaplati_FB2P
|
|
DO MENIU82020
|
|
ENDPROC && BAR_"82020"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82040"_OF_Casaplati_FB2P
|
|
DO MENIU82040
|
|
ENDPROC && BAR_"82040"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_6_OF_Casaplati_FB2P
|
|
|
|
m.scd='625 '
|
|
m.scc='542 '
|
|
***do BANCA.spr
|
|
do alfabeta with;
|
|
'CASAc',;
|
|
"","","", ;
|
|
"NUMELE ACHIZITORULUI","ACHIT542","NUME_2", ;
|
|
'','', "PLATA DEPLASARI", ;
|
|
""
|
|
*
|
|
IF BUTON=2
|
|
DO STERGE
|
|
RETURN
|
|
ENDIF
|
|
DO CODARE
|
|
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
|
|
SELE ACHIT542
|
|
REPL ACHIT542.DAT WITH ACHIT542.DAT+M.SUMA
|
|
do sterge
|
|
|
|
ENDPROC && BAR_6_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82100"_OF_Casaplati_FB2P
|
|
DO MENIU82100
|
|
ENDPROC && BAR_"82100"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82030"_OF_Casaplati_FB2P
|
|
DO MENIU82030
|
|
ENDPROC && BAR_"82030"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82050"_OF_Casaplati_FB2P
|
|
DO MENIU82050
|
|
ENDPROC && BAR_"82050"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82060"_OF_Casaplati_FB2P
|
|
DO MENIU82060
|
|
ENDPROC && BAR_"82060"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82120"_OF_Casaplati_FB2P
|
|
DO MENIU82120
|
|
ENDPROC && BAR_"82120"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82130"_OF_Casaplati_FB2P
|
|
DO MENIU82130
|
|
ENDPROC && BAR_"82130"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Salarii_FB2P
|
|
*____________________________________________________________________________________________
|
|
*PROCEDURE MENIU82070
|
|
|
|
m.scd='4211'
|
|
m.scc='5311'
|
|
|
|
m.explicatia='PLATA SALARII CONTRACT'
|
|
oa=createo('actsimc')
|
|
oa.show(1)
|
|
|
|
IF BUTON=2
|
|
DO STERGE
|
|
RETURN
|
|
ENDIF
|
|
DO CODARE
|
|
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
do plCASA
|
|
do sterge
|
|
|
|
*RETURN
|
|
ENDPROC && BAR_1_OF_Salarii_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Salarii_FB2P
|
|
m.scd='4212'
|
|
m.scc='5311'
|
|
|
|
m.explicatia='PLATA SALARII CONVENTIE'
|
|
oa=createo('actsimc')
|
|
oa.show(1)
|
|
|
|
IF BUTON=2
|
|
DO STERGE
|
|
RETURN
|
|
ENDIF
|
|
DO CODARE
|
|
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
do plCASA
|
|
do sterge
|
|
ENDPROC && BAR_2_OF_Salarii_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Salarii_FB2P
|
|
m.scd='4281'
|
|
m.scc='5311'
|
|
|
|
m.explicatia='Datorii legate de personal'
|
|
oa=createo('actsimc')
|
|
oa.show(1)
|
|
|
|
IF BUTON=2
|
|
DO STERGE
|
|
RETURN
|
|
ENDIF
|
|
DO CODARE
|
|
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
do plCASA
|
|
do sterge
|
|
ENDPROC && BAR_3_OF_Salarii_FB2P
|
|
|
|
PROCEDURE BAR_"82080"_OF_Casaplati_FB2P
|
|
DO MENIU82080
|
|
ENDPROC && BAR_"82080"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82090"_OF_Casaplati_FB2P
|
|
DO MENIU82090
|
|
ENDPROC && BAR_"82090"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82110"_OF_Casaplati_FB2P
|
|
DO MENIU82110
|
|
ENDPROC && BAR_"82110"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82140"_OF_Casaplati_FB2P
|
|
DO MENIU82140
|
|
ENDPROC && BAR_"82140"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82150"_OF_Casaplati_FB2P
|
|
DO MENIU82150
|
|
ENDPROC && BAR_"82150"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82160"_OF_Casaplati_FB2P
|
|
DO MENIU82160
|
|
ENDPROC && BAR_"82160"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82170"_OF_Casaplati_FB2P
|
|
DO MENIU82170
|
|
ENDPROC && BAR_"82170"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82180"_OF_Casaplati_FB2P
|
|
DO MENIU82180
|
|
ENDPROC && BAR_"82180"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_25_OF_Casaplati_FB2P
|
|
|
|
*ALFA='m.numeg=""'
|
|
*BETA='m.numeg=""'
|
|
*GAMA='m.numeg="PLATA GRATIFICATII"'
|
|
|
|
m.scd='625 '
|
|
m.scc='5311 '
|
|
***do casa.spr
|
|
do alfabeta with;
|
|
'casac',;
|
|
'','','', ;
|
|
'','','', ;
|
|
'','',"PLATA DEPLASARI", ;
|
|
"PLATA DEPLASARI"
|
|
*
|
|
IF BUTON=2
|
|
DO STERGE
|
|
RETURN
|
|
ENDIF
|
|
DO CODARE
|
|
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
|
do PLCASA
|
|
|
|
do sterge
|
|
|
|
|
|
ENDPROC && BAR_25_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_"82190"_OF_Casaplati_FB2P
|
|
do MENIU82190
|
|
ENDPROC && BAR_"82190"_OF_Casaplati_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Vizualizar_FB2P
|
|
osetviz.tbrprim.butoncasa.click
|
|
ENDPROC && BAR_1_OF_Vizualizar_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Vizualizar_FB2P
|
|
public m.sum1,m.sum2,m.sum3
|
|
|
|
sele casanume
|
|
|
|
M.SOLDDEB=0
|
|
M.SOLDCRED=0
|
|
sum INCASARI,PLATI to m.SUM1,M.SUM2
|
|
M.SUM3=M.SUM1-M.SUM2
|
|
SELE Bal
|
|
seek '5311'
|
|
if found()
|
|
SCATTER MEMVAR
|
|
IF M.SOLDDEB-M.SOLDCRED # M.SUM3
|
|
do mesajval with 'Diferenta este:',M.SOLDDEB-M.SOLDCRED-M.SUM3
|
|
ENDIF
|
|
else
|
|
do mesajval with '',M.SOLDDEB
|
|
endif
|
|
|
|
sele casanume
|
|
Obancana=CREATEOBJECT("afbancanav")
|
|
Obancana.grid1.column1.controlsource="casa"
|
|
Obancana.label10.caption='SOLDURI CASE'
|
|
Obancana.SHOW(1)
|
|
ENDPROC && BAR_2_OF_Vizualizar_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Introducer_FB2P
|
|
SELE CASA
|
|
REPORT FORMAT CASA.FRX TO PRINTER PROMPT NOCONSOLE preview
|
|
ENDPROC && BAR_5_OF_Introducer_FB2P
|
|
|
|
*</Procedures>
|