romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
5756a5a8ec66f3b1b389f7a2f2f34402ba5708d1
roacont/Meniuri/imobilizari5.mn2

418 lines
11 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="imobilizari5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP _0u60sg1k5 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF _0u60sg1k5 PROMPT "Corporale 231"
ON BAR 1 OF _0u60sg1k5 ACTIVATE POPUP _0u60sk6ro
*----------------------------------
DEFINE POPUP _0u60sk6ro SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60sk6ro PROMPT "Realizarea imobilizarilor in curs"
ON BAR 1 OF _0u60sk6ro ACTIVATE POPUP _0u60skexy
*----------------------------------
DEFINE POPUP _0u60skexy SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60skexy PROMPT "De la asociati" ;
MESSAGE '231 :456 '
ON SELECTION BAR 1 OF _0u60skexy DO BAR_1_OF__0u60skexy_FB2P
DEFINE BAR 2 OF _0u60skexy PROMPT "De la furnizori" ;
MESSAGE '231 :404 ;4426:404 '
ON SELECTION BAR 2 OF _0u60skexy DO BAR_2_OF__0u60skexy_FB2P
DEFINE BAR 3 OF _0u60skexy PROMPT "De la furnizori-taxa inversa" ;
MESSAGE '4426:404 '
ON SELECTION BAR 3 OF _0u60skexy DO BAR_3_OF__0u60skexy_FB2P
DEFINE BAR 4 OF _0u60skexy PROMPT "Din regie proprie" ;
MESSAGE '231 :722 '
ON SELECTION BAR 4 OF _0u60skexy DO BAR_4_OF__0u60skexy_FB2P
DEFINE BAR 2 OF _0u60sk6ro PROMPT "Receptionarea imobilizarilor in curs, terminate"
ON BAR 2 OF _0u60sk6ro ACTIVATE POPUP _0u60spwkz
*----------------------------------
DEFINE POPUP _0u60spwkz SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60spwkz PROMPT "Constructii 212" ;
MESSAGE '212 :231 '
ON SELECTION BAR 1 OF _0u60spwkz DO BAR_1_OF__0u60spwkz_FB2P
DEFINE BAR 2 OF _0u60spwkz PROMPT "Echipamente tehnologice 2131" ;
MESSAGE '2131:231 '
ON SELECTION BAR 2 OF _0u60spwkz DO BAR_2_OF__0u60spwkz_FB2P
DEFINE BAR 3 OF _0u60spwkz PROMPT "Aparate de masura 2132" ;
MESSAGE '2132:231 '
ON SELECTION BAR 3 OF _0u60spwkz DO BAR_3_OF__0u60spwkz_FB2P
DEFINE BAR 4 OF _0u60spwkz PROMPT "Mijloace de transport 2133" ;
MESSAGE '2133:231 '
ON SELECTION BAR 4 OF _0u60spwkz DO BAR_4_OF__0u60spwkz_FB2P
DEFINE BAR 5 OF _0u60spwkz PROMPT "Mobilier birotica 214" ;
MESSAGE '214 :231 '
ON SELECTION BAR 5 OF _0u60spwkz DO BAR_5_OF__0u60spwkz_FB2P
DEFINE BAR 6 OF _0u60spwkz PROMPT "Animale si plantatii 2134" ;
MESSAGE '2134 :231 '
ON SELECTION BAR 6 OF _0u60spwkz DO BAR_6_OF__0u60spwkz_FB2P
DEFINE BAR 2 OF _0u60sg1k5 PROMPT "Avansuri pentru imob. corporale 232"
ON BAR 2 OF _0u60sg1k5 ACTIVATE POPUP _0u60sw49x
*----------------------------------
DEFINE POPUP _0u60sw49x SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60sw49x PROMPT "Acordate furnizorilor" ;
MESSAGE '232 :404 '
ON SELECTION BAR 1 OF _0u60sw49x DO BAR_1_OF__0u60sw49x_FB2P
DEFINE BAR 2 OF _0u60sw49x PROMPT "Decontate de furnizori" ;
MESSAGE '404 :232 '
ON SELECTION BAR 2 OF _0u60sw49x DO BAR_2_OF__0u60sw49x_FB2P
DEFINE BAR 3 OF _0u60sg1k5 PROMPT "Necorporale 233"
ON BAR 3 OF _0u60sg1k5 ACTIVATE POPUP _0u60t8smb
*----------------------------------
DEFINE POPUP _0u60t8smb SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60t8smb PROMPT "Realizarea imobilizarilor in curs"
ON BAR 1 OF _0u60t8smb ACTIVATE POPUP _0u60t9l2m
*----------------------------------
DEFINE POPUP _0u60t9l2m SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60t9l2m PROMPT "De la asociati" ;
MESSAGE '233 :456 '
ON SELECTION BAR 1 OF _0u60t9l2m DO BAR_1_OF__0u60t9l2m_FB2P
DEFINE BAR 2 OF _0u60t9l2m PROMPT "De la furnizori" ;
MESSAGE '233 :404 ;4426:404 '
ON SELECTION BAR 2 OF _0u60t9l2m DO BAR_2_OF__0u60t9l2m_FB2P
DEFINE BAR 3 OF _0u60t9l2m PROMPT "Din regie proprie" ;
MESSAGE '233 :721 '
ON SELECTION BAR 3 OF _0u60t9l2m DO BAR_3_OF__0u60t9l2m_FB2P
DEFINE BAR 2 OF _0u60t8smb PROMPT "Receptionarea imobilizarilor in curs, terminate"
ON BAR 2 OF _0u60t8smb ACTIVATE POPUP _0u60tfh6h
*----------------------------------
DEFINE POPUP _0u60tfh6h SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60tfh6h PROMPT "Cheltuieli de dezvoltare 203" ;
MESSAGE '203 :233 '
ON SELECTION BAR 1 OF _0u60tfh6h DO BAR_1_OF__0u60tfh6h_FB2P
DEFINE BAR 2 OF _0u60tfh6h PROMPT "Concesiuni, brevete 205" ;
MESSAGE '205 :233 '
ON SELECTION BAR 2 OF _0u60tfh6h DO BAR_2_OF__0u60tfh6h_FB2P
DEFINE BAR 3 OF _0u60tfh6h PROMPT "Alte imobilizari necorporale 208" ;
MESSAGE '208 :233 '
ON SELECTION BAR 3 OF _0u60tfh6h DO BAR_3_OF__0u60tfh6h_FB2P
DEFINE BAR 4 OF _0u60sg1k5 PROMPT "Avansuri pentru imob. necorporale 234"
ON BAR 4 OF _0u60sg1k5 ACTIVATE POPUP _0u60tiszu
*----------------------------------
DEFINE POPUP _0u60tiszu SHORTCUT RELATIVE
DEFINE BAR 1 OF _0u60tiszu PROMPT "Acordate furnizorilor" ;
MESSAGE '234 :404 '
ON SELECTION BAR 1 OF _0u60tiszu DO BAR_1_OF__0u60tiszu_FB2P
DEFINE BAR 2 OF _0u60tiszu PROMPT "Decontate de furnizori" ;
MESSAGE '404 :234 '
ON SELECTION BAR 2 OF _0u60tiszu DO BAR_2_OF__0u60tiszu_FB2P
ACTIVATE POPUP _0u60sg1k5
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF__0u60skexy_FB2P
*DO ABC1 WITH '231 ','456 '
lans(10169)
ENDPROC && BAR_1_OF__0u60skexy_FB2P
PROCEDURE BAR_2_OF__0u60skexy_FB2P
lans(10170)
ENDPROC && BAR_2_OF__0u60skexy_FB2P
PROCEDURE BAR_3_OF__0u60skexy_FB2P
lans(10590)
ENDPROC && BAR_3_OF__0u60skexy_FB2P
PROCEDURE BAR_4_OF__0u60skexy_FB2P
*DO ABC1 WITH '231 ','722 '
lans(10171)
ENDPROC && BAR_4_OF__0u60skexy_FB2P
PROCEDURE BAR_1_OF__0u60spwkz_FB2P
*DO ABC1 WITH '212 ','231 '
lans(10172)
ENDPROC && BAR_1_OF__0u60spwkz_FB2P
PROCEDURE BAR_2_OF__0u60spwkz_FB2P
*DO ABC1 WITH '2131','231 '
lans(10173)
ENDPROC && BAR_2_OF__0u60spwkz_FB2P
PROCEDURE BAR_3_OF__0u60spwkz_FB2P
*DO ABC1 WITH '2132','231 '
lans(10174)
ENDPROC && BAR_3_OF__0u60spwkz_FB2P
PROCEDURE BAR_4_OF__0u60spwkz_FB2P
*DO ABC1 WITH '2133','231 '
lans(10175)
ENDPROC && BAR_4_OF__0u60spwkz_FB2P
PROCEDURE BAR_5_OF__0u60spwkz_FB2P
*DO ABC1 WITH '214 ','231 '
lans(10176)
ENDPROC && BAR_5_OF__0u60spwkz_FB2P
PROCEDURE BAR_6_OF__0u60spwkz_FB2P
lans(10599)
ENDPROC && BAR_6_OF__0u60spwkz_FB2P
PROCEDURE BAR_1_OF__0u60sw49x_FB2P
lans(10177)
*!* *DO ABC1 WITH '232 ','404 '
*!* m.scd='232 '
*!* m.scc='404 '
*!* ****do casa.spr
*!* DO alfabeta with;
*!* 'casa',;
*!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",;
*!* "","","",;
*!* '','','',;
*!* ""
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* SELE FURNIZ404
*!* IF flock()
*!* REPL ACHIZIT with ACHIZIT+m.suma
*!* ENDIF
*!* UNLOCK
*!* m.totctva=m.suma
*!* m.totftva=m.suma
*!* DO adcump404
*!* DO STERGE
ENDPROC && BAR_1_OF__0u60sw49x_FB2P
PROCEDURE BAR_2_OF__0u60sw49x_FB2P
lans(10178)
*!* *DO ABC1 WITH '404 ','232 '
*!* m.scd='404 '
*!* m.scc='232 '
*!* ****do casa.spr
*!* DO alfabeta with;
*!* 'casa',;
*!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",;
*!* "","","",;
*!* '','','',;
*!* ""
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* SELE FURNIZ404
*!* IF flock()
*!* REPL PLATIT with PLATIT+m.suma
*!* ENDIF
*!* UNLOCK
*!* *DO ADCUMP404
*!* *!* SELECT CUMPLUN404
*!* *!* IF FLOCK()
*!* *!* APPEND BLANK
*!* *!* GATHER MEMV
*!* *!* REPLACE TOTCTVA WITH M.SUMA
*!* *!* ENDIF
*!* *!* UNLOCK
*!* *!* SELECT CUMP
*!* *!* IF FLOCK()
*!* *!* APPEND BLANK
*!* *!* GATHER MEMV
*!* *!* REPLACE TOTCTVA WITH M.SUMA
*!* *!* ENDIF
*!* *!* UNLOCK
*!* DO STERGE
ENDPROC && BAR_2_OF__0u60sw49x_FB2P
PROCEDURE BAR_1_OF__0u60t9l2m_FB2P
*DO ABC1 WITH '233 ','456 '
lans(10179)
ENDPROC && BAR_1_OF__0u60t9l2m_FB2P
PROCEDURE BAR_2_OF__0u60t9l2m_FB2P
lans(10180)
*!* *DO ABC2 WITH '233 ','404 ','4426','404 '
*!* DEB='233 '
*!* 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__0u60t9l2m_FB2P
PROCEDURE BAR_3_OF__0u60t9l2m_FB2P
*DO ABC1 WITH '233 ','721 '
lans(10181)
ENDPROC && BAR_3_OF__0u60t9l2m_FB2P
PROCEDURE BAR_1_OF__0u60tfh6h_FB2P
*DO ABC1 WITH '203 ','233 '
lans(10182)
ENDPROC && BAR_1_OF__0u60tfh6h_FB2P
PROCEDURE BAR_2_OF__0u60tfh6h_FB2P
*DO ABC1 WITH '205 ','233 '
lans(10183)
ENDPROC && BAR_2_OF__0u60tfh6h_FB2P
PROCEDURE BAR_3_OF__0u60tfh6h_FB2P
*DO ABC1 WITH '208 ','233 '
lans(10184)
ENDPROC && BAR_3_OF__0u60tfh6h_FB2P
PROCEDURE BAR_1_OF__0u60tiszu_FB2P
lans(10185)
*!* *DO ABC1 WITH '234 ','404 '
*!* m.scd='234 '
*!* m.scc='404 '
*!* ****do casa.spr
*!* DO alfabeta with;
*!* 'casa',;
*!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",;
*!* "","","",;
*!* '','','',;
*!* ""
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* SELE FURNIZ404
*!* IF flock()
*!* REPL ACHIZIT with ACHIZIT+m.suma
*!* ENDIF
*!* UNLOCK
*!* m.totctva=m.suma
*!* m.totftva=m.suma
*!* DO adcump404
*!* DO STERGE
ENDPROC && BAR_1_OF__0u60tiszu_FB2P
PROCEDURE BAR_2_OF__0u60tiszu_FB2P
lans(10186)
*!* *DO ABC1 WITH '404 ','234 '
*!* m.scd='404 '
*!* m.scc='234 '
*!* ****do casa.spr
*!* DO alfabeta with;
*!* 'casa',;
*!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",;
*!* "","","",;
*!* '','','',;
*!* ""
*!* *
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
*!* SELE FURNIZ404
*!* IF flock()
*!* REPL PLATIT with PLATIT+m.suma
*!* ENDIF
*!* UNLOCK
*!* *DO ADCUMP404
*!* *!* SELECT CUMPLUN404
*!* *!* IF FLOCK()
*!* *!* APPEND BLANK
*!* *!* GATHER MEMV
*!* *!* REPLACE TOTCTVA WITH M.SUMA
*!* *!* ENDIF
*!* *!* UNLOCK
*!* *!* SELECT CUMP
*!* *!* IF FLOCK()
*!* *!* APPEND BLANK
*!* *!* GATHER MEMV
*!* *!* REPLACE TOTCTVA WITH M.SUMA
*!* *!* ENDIF
*!* *!* UNLOCK
*!* DO STERGE
ENDPROC && BAR_2_OF__0u60tiszu_FB2P
*</Procedures>
Reference in New Issue View Git Blame Copy Permalink