romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 10:54:13 +03:00
commit 09580ad9d6
340 changed files with 334893 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

646
Meniuri/casa2.mn2 Normal file
View File

@@ -0,0 +1,646 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="casa2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Casaplati SHORTCUT RELATIVE FROM MROW(),MCOL()
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 in alta casa" ;
MESSAGE '581 :5311'
ON SELECTION BAR 2 OF Casaplati DO BAR_2_OF_Casaplati_FB2P
DEFINE BAR 3 OF Casaplati PROMPT "Transferuri intre case" ;
MESSAGE '581 :5311;5311:581 '
ON SELECTION BAR 3 OF Casaplati DO BAR_3_OF_Casaplati_FB2P
DEFINE BAR 4 OF Casaplati PROMPT "\-"
ON BAR 4 OF Casaplati ACTIVATE POPUP _0c30moka3
*----------------------------------
DEFINE POPUP _0c30moka3 SHORTCUT RELATIVE
DEFINE BAR "82020" OF Casaplati PROMPT "Acordare avans materiale" ;
MESSAGE '542 :5311'
ON SELECTION BAR 82020 OF Casaplati DO BAR_"82020"_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 7 OF Casaplati PROMPT "\-"
ON BAR 7 OF Casaplati ACTIVATE POPUP _saq0r5jfn
*----------------------------------
DEFINE POPUP _saq0r5jfn SHORTCUT RELATIVE
DEFINE BAR 8 OF Casaplati PROMPT "Plati furnizori"
ON BAR 8 OF Casaplati ACTIVATE POPUP Platifurni
*----------------------------------
DEFINE POPUP Platifurni SHORTCUT RELATIVE
DEFINE BAR 1 OF Platifurni PROMPT "Plati multiple 401" ;
MESSAGE '401 :5311'
ON SELECTION BAR 1 OF Platifurni DO BAR_1_OF_Platifurni_FB2P
DEFINE BAR 2 OF Platifurni PROMPT "Furnizori imobilizari 404" ;
MESSAGE '404 :5311'
ON SELECTION BAR 2 OF Platifurni DO BAR_2_OF_Platifurni_FB2P
DEFINE BAR 3 OF Platifurni PROMPT "Avansuri furnizori 409" ;
MESSAGE '409 :5311'
ON SELECTION BAR 3 OF Platifurni DO BAR_3_OF_Platifurni_FB2P
DEFINE BAR 9 OF Casaplati PROMPT "Plati furnizori in valuta" ;
MESSAGE '581 - 5311; 5311 - 581; 5311 - 5311; 5311 - 401'
ON BAR 9 OF Casaplati ACTIVATE POPUP _4y40sqh7w
*----------------------------------
DEFINE POPUP _4y40sqh7w SHORTCUT RELATIVE
DEFINE BAR 1 OF _4y40sqh7w PROMPT "Plati furnizori 401" ;
MESSAGE '401 :5311'
ON SELECTION BAR 1 OF _4y40sqh7w lans(10625)
DEFINE BAR 2 OF _4y40sqh7w PROMPT "Plati furnizori imobilizari 404" ;
MESSAGE '404 :5311'
ON SELECTION BAR 2 OF _4y40sqh7w lans(10626)
DEFINE BAR 3 OF _4y40sqh7w PROMPT "Plati creditori 462" ;
MESSAGE '462 :5311'
ON SELECTION BAR 3 OF _4y40sqh7w lans(10627)
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 12 OF Casaplati PROMPT "\-"
ON BAR 12 OF Casaplati ACTIVATE POPUP _saq0r5jfo
*----------------------------------
DEFINE POPUP _saq0r5jfo SHORTCUT RELATIVE
DEFINE BAR "82070" OF Casaplati PROMPT "Salarii"
ON BAR 82070 OF Casaplati ACTIVATE POPUP Salarii421
*----------------------------------
DEFINE POPUP Salarii421 SHORTCUT RELATIVE
DEFINE BAR 1 OF Salarii421 PROMPT "\<Salarii" ;
MESSAGE '421:5311'
ON SELECTION BAR 1 OF Salarii421 DO BAR_1_OF_Salarii421_FB2P
DEFINE BAR 2 OF Salarii421 PROMPT "\<Salarii contract" ;
MESSAGE '4211:5311'
ON SELECTION BAR 2 OF Salarii421 DO BAR_2_OF_Salarii421_FB2P
DEFINE BAR 3 OF Salarii421 PROMPT "Salarii \<conventie" ;
MESSAGE '4212:5311'
ON SELECTION BAR 3 OF Salarii421 DO BAR_3_OF_Salarii421_FB2P
DEFINE BAR 4 OF Salarii421 PROMPT "\<Datorii legate de personal" ;
MESSAGE '4281/4282:5311'
ON SELECTION BAR 4 OF Salarii421 DO BAR_4_OF_Salarii421_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" ;
MESSAGE '425 :5311'
ON SELECTION BAR 82090 OF Casaplati DO BAR_"82090"_OF_Casaplati_FB2P
DEFINE BAR "82110" OF Casaplati PROMPT "Drepturi neridicate" ;
MESSAGE '426 :5311'
ON SELECTION BAR 82110 OF Casaplati DO BAR_"82110"_OF_Casaplati_FB2P
DEFINE BAR 17 OF Casaplati PROMPT "\-"
ON BAR 17 OF Casaplati ACTIVATE POPUP _saq0r5jfp
*----------------------------------
DEFINE POPUP _saq0r5jfp SHORTCUT RELATIVE
DEFINE BAR 18 OF Casaplati PROMPT "Plati impozite"
ON SELECTION BAR 18 OF Casaplati DO BAR_18_OF_Casaplati_FB2P
DEFINE BAR "82140" OF Casaplati PROMPT "Plata alte impozite" ;
MESSAGE '446 :5311'
ON SELECTION BAR 82140 OF Casaplati DO BAR_"82140"_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 23 OF Casaplati PROMPT "Plata deplasari" ;
MESSAGE '625 :5311'
ON SELECTION BAR 23 OF Casaplati DO BAR_23_OF_Casaplati_FB2P
DEFINE BAR 24 OF Casaplati PROMPT "Plata amenzi, penalitati" ;
MESSAGE '448X-5311'
ON SELECTION BAR 24 OF Casaplati DO BAR_24_OF_Casaplati_FB2P
DEFINE BAR 25 OF Casaplati PROMPT "Decontari in cadrul grupului" ;
MESSAGE ' 4511 : 5311'
ON SELECTION BAR 25 OF Casaplati lans(10523)
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 28 OF Casaplati PROMPT "Cheltuieli in avans" ;
MESSAGE '471:5311'
ON SELECTION BAR 28 OF Casaplati DO BAR_28_OF_Casaplati_FB2P
DEFINE BAR 29 OF Casaplati PROMPT "Plata garantii 267X" ;
MESSAGE '2678 :5311'
ON SELECTION BAR 29 OF Casaplati DO BAR_29_OF_Casaplati_FB2P
DEFINE BAR 30 OF Casaplati PROMPT "\-"
ON BAR 30 OF Casaplati ACTIVATE POPUP _54r0tqt1r
*----------------------------------
DEFINE POPUP _54r0tqt1r SHORTCUT RELATIVE
DEFINE BAR 31 OF Casaplati PROMPT "Plati diverse 4xx/6xx" ;
MESSAGE '4xx:5311'
ON SELECTION BAR 31 OF Casaplati DO BAR_31_OF_Casaplati_FB2P
ACTIVATE POPUP Casaplati
*</MenuCode>
*<Procedures>
PROCEDURE BAR_"82010"_OF_Casaplati_FB2P
*DO MENIU82010
lans(10338)
ENDPROC && BAR_"82010"_OF_Casaplati_FB2P
PROCEDURE BAR_2_OF_Casaplati_FB2P
lans(10339)
*!* 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_3_OF_Casaplati_FB2P
lans(10450)
*!* 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 caut_alfa WITH 'casanume','casa','Casa destinatie','m.casa'
*!* IF buton=2
*!* DO sterge
*!* RETURN
*!* ENDIF
*!* m.nume_3=m.casa
*!* l=m.scd
*!* m.scd=m.scc
*!* m.scc=l
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do inCASA
*!* do sterge
*!* RETURN
ENDPROC && BAR_3_OF_Casaplati_FB2P
PROCEDURE BAR_"82020"_OF_Casaplati_FB2P
*DO MENIU82020
lans(10340)
ENDPROC && BAR_"82020"_OF_Casaplati_FB2P
PROCEDURE BAR_"82100"_OF_Casaplati_FB2P
*DO MENIU82100
LANS(10344)
ENDPROC && BAR_"82100"_OF_Casaplati_FB2P
PROCEDURE BAR_1_OF_Platifurni_FB2P
LANS(10345)
*!* m.scd='401 '
*!* m.scc='5311 '
*!* do alfabetaper with;
*!* 'casapermul',;
*!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ;
*!* "NUMELE CASEI","CASANUME","CASA", ;
*!* '','',"PLATA FURNIZOR", ;
*!* "PLATA FURNIZOR",'c'
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* *M.COD=COD
*!* *M.SUMA=TOTCTVA-achitat
*!* *M.PERECHE=NRACT
*!* *m.nract1=nract
*!* M.NUME_3=M.CASA
*!* m.nract=numaract
*!* *DO CODARE
*!* sele 0
*!* use &loc\&nfscurt\tempo\actcv
*!* sele actcv
*!* scan for ales
*!* M.PERECHE=NRACT
*!* m.suma=sumaachi
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* do plCASA
*!* sele furnizor
*!* if flock()
*!* repl furnizor.platit with furnizor.platit+m.suma
*!* endif
*!* unlock
*!* endscan
*!* use in actcv
*!* do sterge
*!* RETURN
ENDPROC && BAR_1_OF_Platifurni_FB2P
PROCEDURE BAR_2_OF_Platifurni_FB2P
*DO MENIU82050
LANS(10346)
ENDPROC && BAR_2_OF_Platifurni_FB2P
PROCEDURE BAR_3_OF_Platifurni_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(10347)
ENDPROC && BAR_3_OF_Platifurni_FB2P
PROCEDURE BAR_"82120"_OF_Casaplati_FB2P
*DO MENIU82120
lans(10348)
ENDPROC && BAR_"82120"_OF_Casaplati_FB2P
PROCEDURE BAR_"82130"_OF_Casaplati_FB2P
*DO MENIU82130
lans(10349)
ENDPROC && BAR_"82130"_OF_Casaplati_FB2P
PROCEDURE BAR_1_OF_Salarii421_FB2P
lans(10350)
*!* *____________________________________________________________________________________________
*!* *PROCEDURE MENIU82070
*!* m.scd='421'
*!* 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_Salarii421_FB2P
PROCEDURE BAR_2_OF_Salarii421_FB2P
lans(10351)
*!* *____________________________________________________________________________________________
*!* *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_2_OF_Salarii421_FB2P
PROCEDURE BAR_3_OF_Salarii421_FB2P
lans(10352)
*!* 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_3_OF_Salarii421_FB2P
PROCEDURE BAR_4_OF_Salarii421_FB2P
PRIVATE pcACN, CN
loCont = ret_cont("Selectati contul",'4281,4282') && ,4091,4092')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton = 2
RELEASE loCont
RETURN
ENDIF
CN = locont.cont
PcACN = loCont.Acont
If CN='4281'
LANS(10353)
Else
LANS(10579)
EndIf
*LANS(10353)
*!* 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_4_OF_Salarii421_FB2P
PROCEDURE BAR_"82080"_OF_Casaplati_FB2P
*DO MENIU82080
LANS(10354)
ENDPROC && BAR_"82080"_OF_Casaplati_FB2P
PROCEDURE BAR_"82090"_OF_Casaplati_FB2P
LANS(10355)
*!* DO MENIU82090
ENDPROC && BAR_"82090"_OF_Casaplati_FB2P
PROCEDURE BAR_"82110"_OF_Casaplati_FB2P
LANS(10356)
*DO MENIU82110
ENDPROC && BAR_"82110"_OF_Casaplati_FB2P
PROCEDURE BAR_18_OF_Casaplati_FB2P
lans(10468)
IF buton=2
DO deschid_actc
RETURN
ENDIF
DO plati_impozite WITH 10468 IN ocont2003.prg
*!* lans(10468)
*!* IF buton=2
*!* DO deschid_actc
*!* RETURN
*!* ENDIF
*!* 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
*!* * REPLACE ALL ascd WITH '', ascc WITH ''
*!* REPL ALL NRACT WITH M.NRACT
*!* REPL ALL scc WITH '5311' FOR INLIST(scc,'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_3, dataact, dataireg, fdoc MEMVAR
*!* DELETE
*!* APPEND BLANK
*!* GATHER memv
*!*
*!* SCRIE_IN_FISIERE(' ')
*!* SELECT PLIMP
*!* ENDSCAN
*!* DO deschid_actc
ENDPROC && BAR_18_OF_Casaplati_FB2P
PROCEDURE BAR_"82140"_OF_Casaplati_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(10357)
ENDPROC && BAR_"82140"_OF_Casaplati_FB2P
PROCEDURE BAR_"82160"_OF_Casaplati_FB2P
lans(10359)
*DO MENIU82160
ENDPROC && BAR_"82160"_OF_Casaplati_FB2P
PROCEDURE BAR_"82170"_OF_Casaplati_FB2P
lans(10360)
*DO MENIU82170
ENDPROC && BAR_"82170"_OF_Casaplati_FB2P
PROCEDURE BAR_"82180"_OF_Casaplati_FB2P
lans(10361)
*DO MENIU82180
ENDPROC && BAR_"82180"_OF_Casaplati_FB2P
PROCEDURE BAR_23_OF_Casaplati_FB2P
lans(10362)
*!* *ALFA='m.numeg=""'
*!* *BETA='m.numeg=""'
*!* *GAMA='m.numeg="PLATA GRATIFICATII"'
*!* m.scd='625 '
*!* m.scc='5311 '
*!* ***do casa.spr
*!* do alfabeta with;
*!* 'actsimc',;
*!* '','','', ;
*!* '','','', ;
*!* '','',"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_23_OF_Casaplati_FB2P
PROCEDURE BAR_24_OF_Casaplati_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(10513)
ENDPROC && BAR_24_OF_Casaplati_FB2P
PROCEDURE BAR_"82190"_OF_Casaplati_FB2P
lans(10363)
*do MENIU82190
ENDPROC && BAR_"82190"_OF_Casaplati_FB2P
PROCEDURE BAR_28_OF_Casaplati_FB2P
LANS(10365)
ENDPROC && BAR_28_OF_Casaplati_FB2P
PROCEDURE BAR_29_OF_Casaplati_FB2P
PRIVATE pcACN
loCont=ret_cont("Selectati contul debitor 267X:5311",'267')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10583)
ENDPROC && BAR_29_OF_Casaplati_FB2P
PROCEDURE BAR_31_OF_Casaplati_FB2P
PRIVATE pcACN
loCont=ret_cont("Selectati contul",'4,6')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10632)
ENDPROC && BAR_31_OF_Casaplati_FB2P
*</Procedures>