*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*4
*REPLACE
*
DEFINE POPUP _09c0qzbvl SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF _09c0qzbvl PROMPT "Constituire"
ON BAR 1 OF _09c0qzbvl ACTIVATE POPUP _09c0r8r60
*----------------------------------
DEFINE POPUP _09c0r8r60 SHORTCUT RELATIVE
DEFINE BAR 1 OF _09c0r8r60 PROMPT "Cheltuieli de constituire 201"
ON BAR 1 OF _09c0r8r60 ACTIVATE POPUP Cheltuieli
*----------------------------------
DEFINE POPUP Cheltuieli SHORTCUT RELATIVE
DEFINE BAR 1 OF Cheltuieli PROMPT "Prin banca" ;
MESSAGE '201:5121'
ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P
DEFINE BAR 2 OF Cheltuieli PROMPT "Prin casa" ;
MESSAGE '201 :5311'
ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P
DEFINE BAR 3 OF Cheltuieli PROMPT "Prin furnizori" ;
MESSAGE '201 :404 ;4426:404 '
ON SELECTION BAR 3 OF Cheltuieli DO BAR_3_OF_Cheltuieli_FB2P
DEFINE BAR 4 OF Cheltuieli PROMPT "De la furnizori-taxa inversa" ;
MESSAGE '4426:4427 '
ON SELECTION BAR 4 OF Cheltuieli DO BAR_4_OF_Cheltuieli_FB2P
DEFINE BAR 2 OF _09c0r8r60 PROMPT "Cheltuieli de cercetare dezvoltare 203"
ON BAR 2 OF _09c0r8r60 ACTIVATE POPUP _09c0rhqjj
*----------------------------------
DEFINE POPUP _09c0rhqjj SHORTCUT RELATIVE
DEFINE BAR 1 OF _09c0rhqjj PROMPT "Realizate pe cont propriu" ;
MESSAGE '203 :721 '
ON SELECTION BAR 1 OF _09c0rhqjj DO BAR_1_OF__09c0rhqjj_FB2P
DEFINE BAR 2 OF _09c0rhqjj PROMPT "Aport asociati" ;
MESSAGE '203 :456 '
ON SELECTION BAR 2 OF _09c0rhqjj DO BAR_2_OF__09c0rhqjj_FB2P
DEFINE BAR 3 OF _09c0rhqjj PROMPT "Prin furnizori" ;
MESSAGE '203 :404 ;4426:404 '
ON SELECTION BAR 3 OF _09c0rhqjj DO BAR_3_OF__09c0rhqjj_FB2P
DEFINE BAR 3 OF _09c0r8r60 PROMPT "Concesiuni,brevete 205"
ON BAR 3 OF _09c0r8r60 ACTIVATE POPUP Concesiuni
*----------------------------------
DEFINE POPUP Concesiuni SHORTCUT RELATIVE
DEFINE BAR 1 OF Concesiuni PROMPT "Primite cu titlu gratuit" ;
MESSAGE '205 :131 '
ON SELECTION BAR 1 OF Concesiuni DO BAR_1_OF_Concesiuni_FB2P
DEFINE BAR 2 OF Concesiuni PROMPT "Ca urmare a chelt. de dezvoltare" ;
MESSAGE '205 :203 '
ON SELECTION BAR 2 OF Concesiuni DO BAR_2_OF_Concesiuni_FB2P
DEFINE BAR 3 OF Concesiuni PROMPT "Prin furnizori" ;
MESSAGE '205 :404 ;4426:404 '
ON SELECTION BAR 3 OF Concesiuni DO BAR_3_OF_Concesiuni_FB2P
DEFINE BAR 4 OF Concesiuni PROMPT "Aport asociati" ;
MESSAGE '205 :456 '
ON SELECTION BAR 4 OF Concesiuni DO BAR_4_OF_Concesiuni_FB2P
DEFINE BAR 5 OF Concesiuni PROMPT "Realizate pe cont propriu" ;
MESSAGE '205 :721 '
ON SELECTION BAR 5 OF Concesiuni DO BAR_5_OF_Concesiuni_FB2P
DEFINE BAR 4 OF _09c0r8r60 PROMPT "Fond comercial 207"
ON BAR 4 OF _09c0r8r60 ACTIVATE POPUP NewItem
*----------------------------------
DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 1 OF NewItem PROMPT "Aport asociati" ;
MESSAGE '207 :456 '
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
DEFINE BAR 2 OF NewItem PROMPT "De la furnizori" ;
MESSAGE '207 :404 ;4426:404 '
ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P
DEFINE BAR 5 OF _09c0r8r60 PROMPT "Alte imobilizari necorporale 208"
ON BAR 5 OF _09c0r8r60 ACTIVATE POPUP Alteimobil
*----------------------------------
DEFINE POPUP Alteimobil SHORTCUT RELATIVE
DEFINE BAR 1 OF Alteimobil PROMPT "Realizate pe cont propriu" ;
MESSAGE '208 :721 '
ON SELECTION BAR 1 OF Alteimobil DO BAR_1_OF_Alteimobil_FB2P
DEFINE BAR 2 OF Alteimobil PROMPT "Aport asociati" ;
MESSAGE '208 :456 '
ON SELECTION BAR 2 OF Alteimobil DO BAR_2_OF_Alteimobil_FB2P
DEFINE BAR 3 OF Alteimobil PROMPT "Prin furnizori" ;
MESSAGE '208 :404 ;4426:404 '
ON SELECTION BAR 3 OF Alteimobil DO BAR_3_OF_Alteimobil_FB2P
DEFINE BAR 2 OF _09c0qzbvl PROMPT "Vanzare"
ON BAR 2 OF _09c0qzbvl ACTIVATE POPUP _0u60orcae
*----------------------------------
DEFINE POPUP _0u60orcae SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60orcae PROMPT "Cheltuieli de dezvoltare 203" ;
MESSAGE '6583:203 '
ON SELECTION BAR 1 OF _0u60orcae DO BAR_1_OF__0u60orcae_FB2P
DEFINE BAR 2 OF _0u60orcae PROMPT "Concesiuni, brevete si licente 205" ;
MESSAGE '6583:205 '
ON SELECTION BAR 2 OF _0u60orcae DO BAR_2_OF__0u60orcae_FB2P
DEFINE BAR 3 OF _0u60orcae PROMPT "Fond comercial 207" ;
MESSAGE '6583:207 '
ON SELECTION BAR 3 OF _0u60orcae DO BAR_3_OF__0u60orcae_FB2P
DEFINE BAR 3 OF _09c0qzbvl PROMPT "Inchidere"
ON BAR 3 OF _09c0qzbvl ACTIVATE POPUP _09c0rf0za
*----------------------------------
DEFINE POPUP _09c0rf0za SHORTCUT RELATIVE
DEFINE BAR 1 OF _09c0rf0za PROMPT "Cheltuieli de constituire 201" ;
MESSAGE '2801:201 '
ON SELECTION BAR 1 OF _09c0rf0za DO BAR_1_OF__09c0rf0za_FB2P
DEFINE BAR 2 OF _09c0rf0za PROMPT "Cheltuieli de cercetare dezvoltare 203" ;
MESSAGE '2803:203 '
ON SELECTION BAR 2 OF _09c0rf0za DO BAR_2_OF__09c0rf0za_FB2P
DEFINE BAR 3 OF _09c0rf0za PROMPT "Concesiuni brevete 205" ;
MESSAGE '2805:205 '
ON SELECTION BAR 3 OF _09c0rf0za DO BAR_3_OF__09c0rf0za_FB2P
DEFINE BAR 4 OF _09c0rf0za PROMPT "Fond comercial 207" ;
MESSAGE '2807:207 '
ON SELECTION BAR 4 OF _09c0rf0za DO BAR_4_OF__09c0rf0za_FB2P
ACTIVATE POPUP _09c0qzbvl
*
*
PROCEDURE BAR_1_OF_Cheltuieli_FB2P
*DO ABC1 WITH '201',"5121"
lans(10126)
ENDPROC && BAR_1_OF_Cheltuieli_FB2P
PROCEDURE BAR_2_OF_Cheltuieli_FB2P
*DO ABC1 WITH '201 ',"5311"
lans(10127)
ENDPROC && BAR_2_OF_Cheltuieli_FB2P
PROCEDURE BAR_3_OF_Cheltuieli_FB2P
lans(10128)
ENDPROC && BAR_3_OF_Cheltuieli_FB2P
PROCEDURE BAR_4_OF_Cheltuieli_FB2P
lans(10589)
ENDPROC && BAR_4_OF_Cheltuieli_FB2P
PROCEDURE BAR_1_OF__09c0rhqjj_FB2P
*!* DO ABC1 WITH '203 ',"5121"
*DO ABC1 WITH '203 ',"721"
lans(10129)
ENDPROC && BAR_1_OF__09c0rhqjj_FB2P
PROCEDURE BAR_2_OF__09c0rhqjj_FB2P
*!* DO ABC1 WITH '203 ',"5311"
*DO ABC1 WITH '203 ',"456 "
lans(10130)
ENDPROC && BAR_2_OF__09c0rhqjj_FB2P
PROCEDURE BAR_3_OF__09c0rhqjj_FB2P
lans(10131)
*!* *!* DO ABC1 WITH '203 ',"404 "
*!* DEB='203 '
*!* M.SCD=DEB
*!* M.SCD1=DEB
*!* SCC1='404 '
*!* SCD2='4426'
*!* SCC2=SCC1
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
*!* CLASAACT='ACTFIX404'
*!* OA=CREA(CLASAACT)
*!* OA.SHOW(1)
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* do pnir
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
*!* ***********
*!* 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
*!* SELE FURNIZ404
*!* set filter to
*!* loca for allt(nume)=allt(m.nume)
*!* if flock()
*!* repl achizit with achizit+M.TOTCTVA
*!* endif
*!* unlock
*!* DO ADCUMP404
*!* **********
*!* DO STERGE
ENDPROC && BAR_3_OF__09c0rhqjj_FB2P
PROCEDURE BAR_1_OF_Concesiuni_FB2P
*!* DO ABC1 WITH '205 ',"5121" - Prin banca
*DO ABC1 WITH '205 ',"131 "
lans(10132)
ENDPROC && BAR_1_OF_Concesiuni_FB2P
PROCEDURE BAR_2_OF_Concesiuni_FB2P
*!* DO ABC1 WITH '205 ',"5311" - Prin casa
*DO ABC1 WITH '205 ',"203 "
lans(10133)
ENDPROC && BAR_2_OF_Concesiuni_FB2P
PROCEDURE BAR_3_OF_Concesiuni_FB2P
lans(10134)
*!* *!* DO ABC1 WITH '205 ',"404 "
*!* DEB='205 '
*!* M.SCD=DEB
*!* M.SCD1=DEB
*!* SCC1='404 '
*!* SCD2='4426'
*!* SCC2=SCC1
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
*!* CLASAACT='ACTFIX404'
*!* OA=CREA(CLASAACT)
*!* OA.SHOW(1)
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* do pnir
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
*!* ***********
*!* 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
*!* SELE FURNIZ404
*!* set filter to
*!* loca for allt(nume)=allt(m.nume)
*!* if flock()
*!* repl achizit with achizit+M.TOTCTVA
*!* endif
*!* unlock
*!* DO ADCUMP404
*!* **********
*!* DO STERGE
ENDPROC && BAR_3_OF_Concesiuni_FB2P
PROCEDURE BAR_4_OF_Concesiuni_FB2P
*DO ABC1 WITH '205 ',"456 "
lans(10135)
ENDPROC && BAR_4_OF_Concesiuni_FB2P
PROCEDURE BAR_5_OF_Concesiuni_FB2P
*DO ABC1 WITH '205 ',"721 "
lans(10136)
ENDPROC && BAR_5_OF_Concesiuni_FB2P
PROCEDURE BAR_1_OF_NewItem_FB2P
*DO ABC1 WITH '207 ','456 '
lans(10137)
ENDPROC && BAR_1_OF_NewItem_FB2P
PROCEDURE BAR_2_OF_NewItem_FB2P
lans(10138)
*!* DEB='207 '
*!* M.SCD=DEB
*!* M.SCD1=DEB
*!* SCC1='404 '
*!* SCD2='4426'
*!* SCC2=SCC1
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
*!* CLASAACT='ACTFIX404'
*!* OA=CREA(CLASAACT)
*!* OA.SHOW(1)
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* do pnir
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
*!* ***********
*!* 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
*!* SELE FURNIZ404
*!* set filter to
*!* loca for allt(nume)=allt(m.nume)
*!* if flock()
*!* repl achizit with achizit+M.TOTCTVA
*!* endif
*!* unlock
*!* DO ADCUMP404
*!* **********
*!* DO STERGE
ENDPROC && BAR_2_OF_NewItem_FB2P
PROCEDURE BAR_1_OF_Alteimobil_FB2P
*DO ABC1 WITH '208 ',"721"
lans(10139)
ENDPROC && BAR_1_OF_Alteimobil_FB2P
PROCEDURE BAR_2_OF_Alteimobil_FB2P
*DO ABC1 WITH '208 ',"456 "
lans(10140)
ENDPROC && BAR_2_OF_Alteimobil_FB2P
PROCEDURE BAR_3_OF_Alteimobil_FB2P
lans(10141)
*!* *!* DO ABC1 WITH '208 ',"404 "
*!* DEB='208 '
*!* M.SCD=DEB
*!* M.SCD1=DEB
*!* SCC1='404 '
*!* SCD2='4426'
*!* SCC2=SCC1
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
*!* CLASAACT='ACTFIX404'
*!* OA=CREA(CLASAACT)
*!* OA.SHOW(1)
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* do pnir
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
*!* ***********
*!* 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
*!* SELE FURNIZ404
*!* set filter to
*!* loca for allt(nume)=allt(m.nume)
*!* if flock()
*!* repl achizit with achizit+M.TOTCTVA
*!* endif
*!* unlock
*!* DO ADCUMP404
*!* **********
*!* DO STERGE
ENDPROC && BAR_3_OF_Alteimobil_FB2P
PROCEDURE BAR_1_OF__0u60orcae_FB2P
*DO ABC1 WITH '6583',"203 "
lans(10142)
ENDPROC && BAR_1_OF__0u60orcae_FB2P
PROCEDURE BAR_2_OF__0u60orcae_FB2P
*DO ABC1 WITH '6583',"205 "
lans(10143)
ENDPROC && BAR_2_OF__0u60orcae_FB2P
PROCEDURE BAR_3_OF__0u60orcae_FB2P
*DO ABC1 WITH '6583',"207 "
lans(10144)
ENDPROC && BAR_3_OF__0u60orcae_FB2P
PROCEDURE BAR_1_OF__09c0rf0za_FB2P
*DO ABC1 WITH '2801',"201 "
lans(10145)
ENDPROC && BAR_1_OF__09c0rf0za_FB2P
PROCEDURE BAR_2_OF__09c0rf0za_FB2P
*DO ABC1 WITH '2803',"203 "
lans(10146)
ENDPROC && BAR_2_OF__09c0rf0za_FB2P
PROCEDURE BAR_3_OF__09c0rf0za_FB2P
*DO ABC1 WITH '2805',"205 "
lans(10147)
ENDPROC && BAR_3_OF__09c0rf0za_FB2P
PROCEDURE BAR_4_OF__09c0rf0za_FB2P
*DO ABC1 WITH '2807','207 '
lans(10148)
ENDPROC && BAR_4_OF__09c0rf0za_FB2P
*