romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
5b0a3321dbd2e18126e059ab5ecda08386b918a6
roacont/Meniuri/furnizori2_.mn2

891 lines
30 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori2_.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR "44" OF Furnizori PROMPT "Cheltuieli neplatite"
ON BAR 44 OF Furnizori ACTIVATE POPUP _s8o01v1sp
*----------------------------------
DEFINE POPUP _s8o01v1sp SHORTCUT RELATIVE
DEFINE BAR "44010" OF _s8o01v1sp PROMPT "Materiale nestocate 604" ;
MESSAGE '604 :401 ;4426:401 '
ON SELECTION BAR 44010 OF _s8o01v1sp DO BAR_"44010"_OF__s8o01v1sp_FB2P
DEFINE BAR "44020" OF _s8o01v1sp PROMPT "Energie si apa 605" ;
MESSAGE '605 :401 ;4426: 401'
ON SELECTION BAR 44020 OF _s8o01v1sp DO BAR_"44020"_OF__s8o01v1sp_FB2P
DEFINE BAR "44030" OF _s8o01v1sp PROMPT "Intretinere si reparatii 611" ;
MESSAGE '611 :401 ;4426:401 '
ON SELECTION BAR 44030 OF _s8o01v1sp DO BAR_"44030"_OF__s8o01v1sp_FB2P
DEFINE BAR "44040" OF _s8o01v1sp PROMPT "Locatii si chirii 612" ;
MESSAGE '612 :401 ;4426:401 '
ON SELECTION BAR 44040 OF _s8o01v1sp DO BAR_"44040"_OF__s8o01v1sp_FB2P
DEFINE BAR "44100" OF _s8o01v1sp PROMPT "Prime de asigurare 613" ;
MESSAGE '613 :401 ;4426:401 '
ON SELECTION BAR 44100 OF _s8o01v1sp DO BAR_"44100"_OF__s8o01v1sp_FB2P
DEFINE BAR "44110" OF _s8o01v1sp PROMPT "Studii si cercetari 614" ;
MESSAGE '614 :401 ;4426:401 '
ON SELECTION BAR 44110 OF _s8o01v1sp DO BAR_"44110"_OF__s8o01v1sp_FB2P
DEFINE BAR "44120" OF _s8o01v1sp PROMPT "Colaboratori 621" ;
MESSAGE '621 :401 ;4426:401 '
ON SELECTION BAR 44120 OF _s8o01v1sp DO BAR_"44120"_OF__s8o01v1sp_FB2P
DEFINE BAR "44130" OF _s8o01v1sp PROMPT "Comisioane si onorarii 622" ;
MESSAGE '622 :401 ;4426:401 '
ON SELECTION BAR 44130 OF _s8o01v1sp DO BAR_"44130"_OF__s8o01v1sp_FB2P
DEFINE BAR "44050" OF _s8o01v1sp PROMPT "Protocol 6231" ;
MESSAGE '6231:401 ;4426:401 '
ON SELECTION BAR 44050 OF _s8o01v1sp DO BAR_"44050"_OF__s8o01v1sp_FB2P
DEFINE BAR 10 OF _s8o01v1sp PROMPT "Reclama 6232" ;
MESSAGE '6232:401 ;4426:401 '
ON SELECTION BAR 10 OF _s8o01v1sp DO BAR_10_OF__s8o01v1sp_FB2P
DEFINE BAR "44060" OF _s8o01v1sp PROMPT "Transport bunuri si persoane 624" ;
MESSAGE '624 :401 ;4426:401 '
ON SELECTION BAR 44060 OF _s8o01v1sp DO BAR_"44060"_OF__s8o01v1sp_FB2P
DEFINE BAR "44070" OF _s8o01v1sp PROMPT "Deplasari, detasari 625" ;
MESSAGE '625 :401 ;4426:401 '
ON SELECTION BAR 44070 OF _s8o01v1sp DO BAR_"44070"_OF__s8o01v1sp_FB2P
DEFINE BAR "44080" OF _s8o01v1sp PROMPT "Posta si telecomunicatii 626" ;
MESSAGE '626 :401 ;4426:401 '
ON SELECTION BAR 44080 OF _s8o01v1sp DO BAR_"44080"_OF__s8o01v1sp_FB2P
DEFINE BAR "44090" OF _s8o01v1sp PROMPT "Alte cheltuieli la terti 628" ;
MESSAGE '628 :401 ;4426:401 '
ON SELECTION BAR 44090 OF _s8o01v1sp DO BAR_"44090"_OF__s8o01v1sp_FB2P
DEFINE BAR 15 OF _s8o01v1sp PROMPT "Tichete de masa"
ON SELECTION BAR 15 OF _s8o01v1sp DO BAR_15_OF__s8o01v1sp_FB2P
DEFINE BAR "44140" OF _s8o01v1sp PROMPT "Combustibili cu taxa" ;
MESSAGE '6012:401 ;4426:401 '
ON SELECTION BAR 44140 OF _s8o01v1sp DO BAR_"44140"_OF__s8o01v1sp_FB2P
DEFINE BAR 17 OF _s8o01v1sp PROMPT "B.C.F."
ON SELECTION BAR 17 OF _s8o01v1sp DO BAR_17_OF__s8o01v1sp_FB2P
DEFINE BAR 18 OF _s8o01v1sp PROMPT "Bonuri valorice"
ON SELECTION BAR 18 OF _s8o01v1sp DO BAR_18_OF__s8o01v1sp_FB2P
DEFINE BAR 19 OF _s8o01v1sp PROMPT "\-"
ON BAR 19 OF _s8o01v1sp ACTIVATE POPUP _0w60k6cc3
*----------------------------------
DEFINE POPUP _0w60k6cc3 SHORTCUT RELATIVE
DEFINE BAR 20 OF _s8o01v1sp PROMPT "Cheltuieli diverse"
ON SELECTION BAR 20 OF _s8o01v1sp DO BAR_20_OF__s8o01v1sp_FB2P
DEFINE BAR "45" OF Furnizori PROMPT "Cheltuieli platite din casa"
ON BAR 45 OF Furnizori ACTIVATE POPUP _s8o01v1sq
*----------------------------------
DEFINE POPUP _s8o01v1sq SHORTCUT RELATIVE
DEFINE BAR "45010" OF _s8o01v1sq PROMPT "Materiale nestocate 604" ;
MESSAGE '604 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45010 OF _s8o01v1sq DO BAR_"45010"_OF__s8o01v1sq_FB2P
DEFINE BAR "45020" OF _s8o01v1sq PROMPT "Energie si apa 605" ;
MESSAGE '605 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45020 OF _s8o01v1sq DO BAR_"45020"_OF__s8o01v1sq_FB2P
DEFINE BAR "45030" OF _s8o01v1sq PROMPT "Intretinere si reparatii 611" ;
MESSAGE '611 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45030 OF _s8o01v1sq DO BAR_"45030"_OF__s8o01v1sq_FB2P
DEFINE BAR "45040" OF _s8o01v1sq PROMPT "Locatii si chirii 612" ;
MESSAGE '612 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45040 OF _s8o01v1sq DO BAR_"45040"_OF__s8o01v1sq_FB2P
DEFINE BAR "45100" OF _s8o01v1sq PROMPT "Prime de asigurare 613" ;
MESSAGE '613 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45100 OF _s8o01v1sq DO BAR_"45100"_OF__s8o01v1sq_FB2P
DEFINE BAR "45110" OF _s8o01v1sq PROMPT "Studii si cercetari 614" ;
MESSAGE '614 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45110 OF _s8o01v1sq DO BAR_"45110"_OF__s8o01v1sq_FB2P
DEFINE BAR "45120" OF _s8o01v1sq PROMPT "Colaboratori 621" ;
MESSAGE '621 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45120 OF _s8o01v1sq DO BAR_"45120"_OF__s8o01v1sq_FB2P
DEFINE BAR "45130" OF _s8o01v1sq PROMPT "Comisioane si onorarii 622" ;
MESSAGE '622 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45130 OF _s8o01v1sq DO BAR_"45130"_OF__s8o01v1sq_FB2P
DEFINE BAR "45050" OF _s8o01v1sq PROMPT "Protocol 6231" ;
MESSAGE '6231:401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45050 OF _s8o01v1sq DO BAR_"45050"_OF__s8o01v1sq_FB2P
DEFINE BAR 10 OF _s8o01v1sq PROMPT "Reclama 6232" ;
MESSAGE '6232:401 ;4426:401 ;401 :5311'
ON SELECTION BAR 10 OF _s8o01v1sq DO BAR_10_OF__s8o01v1sq_FB2P
DEFINE BAR "45060" OF _s8o01v1sq PROMPT "Transport bunuri si persoane 624" ;
MESSAGE '624 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45060 OF _s8o01v1sq DO BAR_"45060"_OF__s8o01v1sq_FB2P
DEFINE BAR "45070" OF _s8o01v1sq PROMPT "Deplasari, detasari 625" ;
MESSAGE '625 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45070 OF _s8o01v1sq DO BAR_"45070"_OF__s8o01v1sq_FB2P
DEFINE BAR "45080" OF _s8o01v1sq PROMPT "Posta si telecomunicatii 626" ;
MESSAGE '625 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45080 OF _s8o01v1sq DO BAR_"45080"_OF__s8o01v1sq_FB2P
DEFINE BAR "45090" OF _s8o01v1sq PROMPT "Alte cheltuieli la terti 628" ;
MESSAGE '628 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 45090 OF _s8o01v1sq DO BAR_"45090"_OF__s8o01v1sq_FB2P
DEFINE BAR "45140" OF _s8o01v1sq PROMPT "\Combustibili cu taxa"
ON SELECTION BAR 45140 OF _s8o01v1sq DO BAR_"45140"_OF__s8o01v1sq_FB2P
DEFINE BAR 16 OF _s8o01v1sq PROMPT "\Tichete de masa"
ON SELECTION BAR 16 OF _s8o01v1sq DO BAR_16_OF__s8o01v1sq_FB2P
DEFINE BAR 17 OF _s8o01v1sq PROMPT "\-"
ON SELECTION BAR 17 OF _s8o01v1sq
DEFINE BAR 18 OF _s8o01v1sq PROMPT "Cheltuieli diverse"
ON SELECTION BAR 18 OF _s8o01v1sq DO BAR_18_OF__s8o01v1sq_FB2P
DEFINE BAR "46" OF Furnizori PROMPT "Cheltuieli platite din 542"
ON BAR 46 OF Furnizori ACTIVATE POPUP _s3n000oov
*----------------------------------
DEFINE POPUP _s3n000oov SHORTCUT RELATIVE
DEFINE BAR "46010" OF _s3n000oov PROMPT "Materiale nestocate 604" ;
MESSAGE '604 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46010 OF _s3n000oov DO BAR_"46010"_OF__s3n000oov_FB2P
DEFINE BAR "46020" OF _s3n000oov PROMPT "Energie si apa 605" ;
MESSAGE '605 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46020 OF _s3n000oov DO BAR_"46020"_OF__s3n000oov_FB2P
DEFINE BAR "46030" OF _s3n000oov PROMPT "Intretinere si reparatii 611" ;
MESSAGE '611 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46030 OF _s3n000oov DO BAR_"46030"_OF__s3n000oov_FB2P
DEFINE BAR "46040" OF _s3n000oov PROMPT "Locatii si chirii 612" ;
MESSAGE '612 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46040 OF _s3n000oov DO BAR_"46040"_OF__s3n000oov_FB2P
DEFINE BAR "46110" OF _s3n000oov PROMPT "Prime de asigurare 613" ;
MESSAGE '613 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46110 OF _s3n000oov DO BAR_"46110"_OF__s3n000oov_FB2P
DEFINE BAR "46100" OF _s3n000oov PROMPT "Studii si cercetari 614" ;
MESSAGE '614 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46100 OF _s3n000oov DO BAR_"46100"_OF__s3n000oov_FB2P
DEFINE BAR "46120" OF _s3n000oov PROMPT "Colaboratori 621" ;
MESSAGE '621 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46120 OF _s3n000oov DO BAR_"46120"_OF__s3n000oov_FB2P
DEFINE BAR "46130" OF _s3n000oov PROMPT "Comisioane si onorarii 622" ;
MESSAGE '622 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46130 OF _s3n000oov DO BAR_"46130"_OF__s3n000oov_FB2P
DEFINE BAR "46050" OF _s3n000oov PROMPT "Protocol 6231" ;
MESSAGE '6231:401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46050 OF _s3n000oov DO BAR_"46050"_OF__s3n000oov_FB2P
DEFINE BAR 10 OF _s3n000oov PROMPT "Reclama 6232" ;
MESSAGE '6232:401 ;4426:401 ;401 :542 '
ON SELECTION BAR 10 OF _s3n000oov DO BAR_10_OF__s3n000oov_FB2P
DEFINE BAR "46060" OF _s3n000oov PROMPT "Transport bunuri si persoane 624" ;
MESSAGE '624 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46060 OF _s3n000oov DO BAR_"46060"_OF__s3n000oov_FB2P
DEFINE BAR "46070" OF _s3n000oov PROMPT "Deplasari, detasari 625" ;
MESSAGE '625 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46070 OF _s3n000oov DO BAR_"46070"_OF__s3n000oov_FB2P
DEFINE BAR "46080" OF _s3n000oov PROMPT "Posta si telecomunicatii 626" ;
MESSAGE '626 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46080 OF _s3n000oov DO BAR_"46080"_OF__s3n000oov_FB2P
DEFINE BAR "46090" OF _s3n000oov PROMPT "Alte cheltuieli la teri 628" ;
MESSAGE '628 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46090 OF _s3n000oov DO BAR_"46090"_OF__s3n000oov_FB2P
DEFINE BAR "46140" OF _s3n000oov PROMPT "\Combustibili cu taxa" ;
MESSAGE '6012:401 ;4426:401 ;401 :542 '
ON SELECTION BAR 46140 OF _s3n000oov DO BAR_"46140"_OF__s3n000oov_FB2P
DEFINE BAR 16 OF _s3n000oov PROMPT "\Tichete de masa"
ON SELECTION BAR 16 OF _s3n000oov DO BAR_16_OF__s3n000oov_FB2P
DEFINE BAR 17 OF _s3n000oov PROMPT "\-"
ON BAR 17 OF _s3n000oov ACTIVATE POPUP _0w60k8bd3
*----------------------------------
DEFINE POPUP _0w60k8bd3 SHORTCUT RELATIVE
DEFINE BAR 18 OF _s3n000oov PROMPT "Cheltuieli diverse"
ON SELECTION BAR 18 OF _s3n000oov DO BAR_18_OF__s3n000oov_FB2P
DEFINE BAR 4 OF Furnizori PROMPT "\-"
ON BAR 4 OF Furnizori ACTIVATE POPUP _1131460yy
*----------------------------------
DEFINE POPUP _1131460yy SHORTCUT RELATIVE
DEFINE BAR 5 OF Furnizori PROMPT "Facturi nesosite"
ON SELECTION BAR 5 OF Furnizori DO BAR_5_OF_Furnizori_FB2P
DEFINE BAR 6 OF Furnizori PROMPT "\-"
ON BAR 6 OF Furnizori ACTIVATE POPUP _0xs0llvv4
*----------------------------------
DEFINE POPUP _0xs0llvv4 SHORTCUT RELATIVE
DEFINE BAR 7 OF Furnizori PROMPT "Inregistrare cheltuieli in avans" ;
MESSAGE '471 :401 ;4426:401 '
ON SELECTION BAR 7 OF Furnizori DO BAR_7_OF_Furnizori_FB2P
ACTIVATE POPUP Furnizori
*</MenuCode>
*<Procedures>
PROCEDURE BAR_"44010"_OF__s8o01v1sp_FB2P
lans(10228)
*!* nr_meniu=44010
*!* DO INcindneplatite WITH '604 ','401 ','4426 ','401 ','FACTURI',"actgen02"
ENDPROC && BAR_"44010"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44020"_OF__s8o01v1sp_FB2P
lans(10229)
*!* nr_meniu=44020
*!* DO INcindneplatite WITH '605 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44020"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44030"_OF__s8o01v1sp_FB2P
*!* nr_meniu=44030
*!* DO INcindneplatite WITH '611 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
lans(10230)
ENDPROC && BAR_"44030"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44040"_OF__s8o01v1sp_FB2P
lans(10231)
*!* nr_meniu=44040
*!* DO INcindneplatite WITH '612 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44040"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44100"_OF__s8o01v1sp_FB2P
lans(10232)
*!* nr_meniu=44100
*!* DO INcindneplatite WITH '613 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44100"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44110"_OF__s8o01v1sp_FB2P
lans(10233)
*!* nr_meniu=44110
*!* DO INcindneplatite WITH '614 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44110"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44120"_OF__s8o01v1sp_FB2P
lans(10234)
*!* nr_meniu=44120
*!* DO INcindneplatite WITH '621 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44120"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44130"_OF__s8o01v1sp_FB2P
lans(10235)
*!* nr_meniu=44130
*!* DO INcindneplatite WITH '622 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44130"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44050"_OF__s8o01v1sp_FB2P
lans(10236)
*!* nr_meniu=44050
*!* DO INcindneplatite WITH '6231 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44050"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_10_OF__s8o01v1sp_FB2P
lans(10237)
*!* DO INcindneplatite WITH '6232 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_10_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44060"_OF__s8o01v1sp_FB2P
lans(10238)
*!* nr_meniu=44060
*!* DO INcindneplatite WITH '624 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44060"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44070"_OF__s8o01v1sp_FB2P
lans(10239)
*!* nr_meniu=44070
*!* DO INcindneplatite WITH '625 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44070"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44080"_OF__s8o01v1sp_FB2P
lans(10240)
*!* nr_meniu=44080
*!* DO INcindneplatite WITH '626 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44080"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44090"_OF__s8o01v1sp_FB2P
lans(10241)
*!* nr_meniu=44090
*!* DO INcindneplatite WITH '628 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44090"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_15_OF__s8o01v1sp_FB2P
clasaact='actverif'
SCD1='628 '
SCC1='401 '
SCD2='4426 '
SCC2='401 '
OA=CREATEOBJ('BONMASA')
OA.SHOW(1)
IF BUTON=2
DO STERGE
RETURN
ENDIF
DO CODARE
*******************************************
DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact
*******************************************
IF m.NEIMPOZAB>0
m.num=m.nume_2
m.nume_2='NEIMPOZABIL '
DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact
M.NUME_2=M.NUM
ENDIF
IF m.totftvaI>0
m.num=m.nume_2
m.nume_2='TVA '+str(m.ctvai,5,2)
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact
M.NUME_2=M.NUM
ENDIF
IF m.totftvaM>0
m.num=m.nume_2
m.nume_2='TVA '+str(m.ctvam,5,2)
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact
M.NUME_2=M.NUM
ENDIF
M.EXPLICATIA='TICHETE DE MASA'
DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact
m.nume_2='NEIMPOZABIL '
DO CONTABILIZEAZA WITH '4426 ','401 ',0,clasaact
*************************************************
SELE FURNIZOR
repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA
M.TOTCTVA=M.TOTCTVA+M.TAXA
M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB
DO ADCUMP
DO ADCHIND
DO ADRESPONS
DO STERGE
RETURN
ENDPROC && BAR_15_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"44140"_OF__s8o01v1sp_FB2P
DO MENIU44140
ENDPROC && BAR_"44140"_OF__s8o01v1sp_FB2P
PROCEDURE BAR_17_OF__s8o01v1sp_FB2P
create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l)
sele ratelis
index on nrcrt tag nrcrt
for i=1 to 6
appe blank
repl nrcrt with i
ENDFOR
SELE RATELIS
repl nume_2 with "VALOARE COMBUSTIBILI",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1
repl nume_2 with "TVA COMBUSTIBILI",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2
repl nume_2 with " ",SCD WITH '6022',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=3
repl nume_2 with "TAXA DE DRUM",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=4
repl nume_2 with "PRET IMPRIMATE",SCD WITH '604',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5
repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=6
*brow
titlu='B.C.F.'
do form ratelis
if buton=2
return
endif
DO CODARE
sele ratelis
scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma)
scat memv
if bifa
m.neimpozab=m.suma
else
m.neimpozab=0
endif
do contabilizeaza with m.scd,m.scc,m.suma
endscan
SELE RATELIS
SUM SUMA FOR BIFA=.F. AND SCD#'4426' AND scc='401 ' TO M.TOTFTVAM
SUM SUMA FOR SCD='4426' TO M.TVAM
SUM SUMA FOR BIFA=.T. AND scc='401 ' TO M.NEIMPOZAB
M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab
DO ADCUMP
SELE FURNIZOR
LOCATE FOR NUME=ALLT(M.NUME)
IF flock()
REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA
ENDIF
unlock
use in ratelis
ENDPROC && BAR_17_OF__s8o01v1sp_FB2P
PROCEDURE BAR_18_OF__s8o01v1sp_FB2P
create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l)
sele ratelis
index on nrcrt tag nrcrt
for i=1 to 5
appe blank
repl nrcrt with i
ENDFOR
SELE RATELIS
repl nume_2 with "BONURI VALORICE",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1
repl nume_2 with "TVA ",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2
repl nume_2 with "FOND SPECIAL",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=3
repl nume_2 with "VALOARE IMPRIMATE",SCD WITH '628',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=4
repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5
*brow
titlu='BONURI VALORICE'
do form ratelis
if buton=2
return
endif
DO CODARE
sele ratelis
scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma)
scat memv
if bifa
m.neimpozab=m.suma
else
m.neimpozab=0
endif
do contabilizeaza with m.scd,m.scc,m.suma
endscan
SELE RATELIS
SUM SUMA FOR BIFA=.F. AND SCD#'4426' TO M.TOTFTVAM
SUM SUMA FOR SCD='4426' TO M.TVAM
SUM SUMA FOR BIFA=.T. TO M.NEIMPOZAB
M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab
DO ADCUMP
SELE FURNIZOR
LOCATE FOR NUME=ALLT(M.NUME)
IF flock()
REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA
ENDIF
unlock
use in ratelis
ENDPROC && BAR_18_OF__s8o01v1sp_FB2P
PROCEDURE BAR_20_OF__s8o01v1sp_FB2P
SELECT BAL
ose=crea('selcont')
ose.show(1)
IF buton=2
RETURN
ENDIF
lans(10311)
*!* m.scd=CN
*!* DO INcindneplatite WITH M.SCD,'401 ','4426','401 ','FACTURI',"actgen02"
ENDPROC && BAR_20_OF__s8o01v1sp_FB2P
PROCEDURE BAR_"45010"_OF__s8o01v1sq_FB2P
lans(10242)
*!* nr_meniu=45010
*!* DO INcindplatite WITH '604 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA', 'actgen02PERc'
ENDPROC && BAR_"45010"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45020"_OF__s8o01v1sq_FB2P
lans(10243)
*!* nr_meniu=45020
*!* DO INcindplatite WITH '605 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45020"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45030"_OF__s8o01v1sq_FB2P
lans(10244)
*!* nr_meniu=45020
*!* DO INcindplatite WITH '611 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45030"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45040"_OF__s8o01v1sq_FB2P
lans(10245)
*!* nr_meniu=45040
*!* DO INcindplatite WITH '612 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45040"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45100"_OF__s8o01v1sq_FB2P
lans(10246)
*!* DO INcindplatite WITH '613 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45100"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45110"_OF__s8o01v1sq_FB2P
lans(10247)
*!* DO INcindplatite WITH '614 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45110"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45120"_OF__s8o01v1sq_FB2P
*!* DO INcindplatite WITH '621 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
lans(10248)
ENDPROC && BAR_"45120"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45130"_OF__s8o01v1sq_FB2P
lans(10249)
*DO INcindplatite WITH '622 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45130"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45050"_OF__s8o01v1sq_FB2P
lans(10250)
*!* DO INcindplatite WITH '6231 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45050"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_10_OF__s8o01v1sq_FB2P
lans(10251)
*DO INcindplatite WITH '6232 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_10_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45060"_OF__s8o01v1sq_FB2P
lans(10252)
*!* DO INcindplatite WITH '624 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45060"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45070"_OF__s8o01v1sq_FB2P
lans(10253)
*DO INcindplatite WITH '625 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45070"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45080"_OF__s8o01v1sq_FB2P
lans(10254)
*DO INcindplatite WITH '626 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45080"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45090"_OF__s8o01v1sq_FB2P
lans(10255)
*DO INcindplatite WITH '628 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
ENDPROC && BAR_"45090"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"45140"_OF__s8o01v1sq_FB2P
DO MENIU45140
*ACT604
ENDPROC && BAR_"45140"_OF__s8o01v1sq_FB2P
PROCEDURE BAR_16_OF__s8o01v1sq_FB2P
clasaact='actverif'
SCD1='628 '
SCC1='401 '
SCD2='4426'
SCC2='401 '
OA=CREATEOBJ('BONMASAc')
OA.SHOW(1)
IF BUTON=2
DO STERGE
RETURN
ENDIF
DO CODARE
*******************************************
DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact
*******************************************
IF m.NEIMPOZAB>0
m.num=m.nume_2
m.nume_2='NEIMPOZABIL '
DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact
M.NUME_2=M.NUM
ENDIF
IF m.totftvaI>0
m.num=m.nume_2
m.nume_2='TVA '+str(m.ctvai,5,2)
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact
M.NUME_2=M.NUM
ENDIF
IF m.totftvaM>0
m.num=m.nume_2
m.nume_2='TVA '+str(m.ctvam,5,2)
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact
M.NUME_2=M.NUM
ENDIF
M.EXPLICATIA='TICHETE DE MASA'
DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact
M.NUM=M.NUME_2
m.nume_2='NEIMPOZABIL '
DO CONTABILIZEAZA WITH '4426','401 ',0,clasaact
*************************************************
SELE FURNIZOR
repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA
M.TOTCTVA=M.TOTCTVA+M.TAXA
M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB
M.EXPLICATIA='PLATA FURNIZOR'
M.NUME_2=M.NUM
do contabilizeaza with '401 ','5311',m.totctva,clasaact
do PLcasa
DO ADCUMP
DO ADCHIND
DO ADRESPONS
DO STERGE
RETURN
ENDPROC && BAR_16_OF__s8o01v1sq_FB2P
PROCEDURE BAR_18_OF__s8o01v1sq_FB2P
SELECT BAL
ose=crea('selcont')
ose.show(1)
IF buton=2
RETURN
ENDIF
lans(10312)
*!* m.scd=CN
*!* DO INcindplatite WITH m.scd,'401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA', 'actgen02PERc'
ENDPROC && BAR_18_OF__s8o01v1sq_FB2P
PROCEDURE BAR_"46010"_OF__s3n000oov_FB2P
lans(10256)
*!* nr_meniu=46010
*!* DO INcindplatite WITH '604 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46010"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46020"_OF__s3n000oov_FB2P
lans(10257)
*!* nr_meniu=46020
*!* DO INcindplatite WITH '605 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46020"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46030"_OF__s3n000oov_FB2P
lans(10258)
*!* nr_meniu=46030
*!* DO INcindplatite WITH '611 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46030"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46040"_OF__s3n000oov_FB2P
lans(10259)
*!* nr_meniu=46040
*!* DO INcindplatite WITH '612 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46040"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46110"_OF__s3n000oov_FB2P
lans(10260)
*!* nr_meniu=46110
*!* DO INcindplatite WITH '613 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46110"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46100"_OF__s3n000oov_FB2P
lans(10261)
*!* nr_meniu=46100
*!* DO INcindplatite WITH '614 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46100"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46120"_OF__s3n000oov_FB2P
lans(10262)
*!* nr_meniu=46120
*!* DO INcindplatite WITH '621 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46120"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46130"_OF__s3n000oov_FB2P
lans(10263)
*!* nr_meniu=46130
*!* DO INcindplatite WITH '622 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46130"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46050"_OF__s3n000oov_FB2P
lans(10264)
*!* nr_meniu=46050
*!* DO INcindplatite WITH '6231 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46050"_OF__s3n000oov_FB2P
PROCEDURE BAR_10_OF__s3n000oov_FB2P
lans(10265)
*!* DO INcindplatite WITH '6232 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_10_OF__s3n000oov_FB2P
PROCEDURE BAR_"46060"_OF__s3n000oov_FB2P
lans(10266)
*!* nr_meniu=46060
*!* DO INcindplatite WITH '624 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46060"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46070"_OF__s3n000oov_FB2P
lans(10267)
*!* nr_meniu=46070
*!* DO INcindplatite WITH '625 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46070"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46080"_OF__s3n000oov_FB2P
lans(10268)
*!* nr_meniu=46080
*!* DO INcindplatite WITH '626 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46080"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46090"_OF__s3n000oov_FB2P
lans(10269)
*!* nr_meniu=46090
*!* DO INcindplatite WITH '628 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_"46090"_OF__s3n000oov_FB2P
PROCEDURE BAR_"46140"_OF__s3n000oov_FB2P
DO MENIU46140
*ACT604
ENDPROC && BAR_"46140"_OF__s3n000oov_FB2P
PROCEDURE BAR_16_OF__s3n000oov_FB2P
clasaact='actverif'
SCD1='628 '
SCC1='401 '
SCD2='4426'
SCC2='401 '
OA=CREATEOBJ('BONMASA')
OA.SHOW(1)
IF BUTON=2
DO STERGE
RETURN
ENDIF
DO CODARE
*******************************************
DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact
*******************************************
IF m.NEIMPOZAB>0
m.num=m.nume_2
m.nume_2='NEIMPOZABIL '
DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact
M.NUME_2=M.NUM
ENDIF
IF m.totftvaI>0
m.num=m.nume_2
m.nume_2='TVA '+str(m.ctvai,5,2)
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact
M.NUME_2=M.NUM
ENDIF
IF m.totftvaM>0
m.num=m.nume_2
m.nume_2='TVA '+str(m.ctvam,5,2)
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact
M.NUME_2=M.NUM
ENDIF
M.EXPLICATIA='TICHETE DE MASA'
DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact
M.NUM=M.NUME_2
m.nume_2='NEIMPOZABIL '
DO CONTABILIZEAZA WITH '4426','401 ',0,clasaact
*************************************************
SELE FURNIZOR
repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA
M.TOTCTVA=M.TOTCTVA+M.TAXA
M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB
M.EXPLICATIA='PLATA FURNIZOR'
M.NUME_2=M.NUM
do contabilizeaza with '401 ','542 ',m.totctva,clasaact
do INPLACHIZ
DO ADCUMP
DO ADCHIND
DO ADRESPONS
DO STERGE
RETURN
ENDPROC && BAR_16_OF__s3n000oov_FB2P
PROCEDURE BAR_18_OF__s3n000oov_FB2P
SELECT BAL
ose=crea('selcont')
ose.show(1)
IF buton=2
RETURN
ENDIF
lans(10313)
*!* m.scd=CN
*!* DO INcindplatite WITH m.scd,'401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
ENDPROC && BAR_18_OF__s3n000oov_FB2P
PROCEDURE BAR_5_OF_Furnizori_FB2P
SELE BAL
GO TOP
OS=CREA('SELCONT')
OS.SHOW(1)
IF BUTON=2
RETURN
ENDIF
*
lans(10314)
*!* OA=CREA('ACTFIXn')
*!* OA.SHOW(1)
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* *do pnir
*!* SCC1='408 '
*!* SCD2='4428 '
*!* SCC2=SCC1
*!* *M.TOTCTVA=M.TOTFTVA+M.TOTTVA
*!* DO CONTABILIZEAZA WITH CN,SCC1,M.TOTFTVA,CLASAACT
*!* IF m.NEIMPOZAB>0
*!* m.num=m.nume_2
*!* m.nume_2='NEIMPOZABIL '
*!* DO CONTABILIZEAZA WITH CN,SCC1,M.NEIMPOZAB,CLASAACT
*!* M.NUME_2=M.NUM
*!* ENDIF
*!* *IF m.totftvaI#0
*!* * m.num=m.nume_2
*!* * m.nume_2='TVA '+str(m.ctvai,5,2)
*!* * DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,CLASAACT
*!* * M.NUME_2=M.NUM
*!* *ENDIF
*!* *IF m.totftvaM#0
*!* m.num=m.nume_2
*!* m.nume_2='TVA '+str(m.ctvam,5,2)
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TOTTVA,CLASAACT
*!* M.NUME_2=M.NUM
*!* *ENDIF
*!* DO STERGE
*!* RETURN
ENDPROC && BAR_5_OF_Furnizori_FB2P
PROCEDURE BAR_7_OF_Furnizori_FB2P
*DO cheltinavans WITH '471 ','401 ','4426','401 ','FACTURI',"actgen02"
lans(10410)
ENDPROC && BAR_7_OF_Furnizori_FB2P
*</Procedures>
Reference in New Issue View Git Blame Copy Permalink