romfast/roadef
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
77e98d73e9346302b863c06eda126bd1b676fcf5
roadef/Meniuri/firmanoua.mn2

324 lines
8.6 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="firmanoua.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "\<Deschidere de firma"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP NewItem
*----------------------------------
DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<Preluare de date"
ON BAR 3 OF Shortcut ACTIVATE POPUP _1mj0sbbn6
*----------------------------------
DEFINE POPUP _1mj0sbbn6 SHORTCUT RELATIVE
DEFINE BAR 1 OF _1mj0sbbn6 PROMPT "Situatii \<analitice"
ON BAR 1 OF _1mj0sbbn6 ACTIVATE POPUP _1mj0sbjsk
*----------------------------------
DEFINE POPUP _1mj0sbjsk SHORTCUT RELATIVE
DEFINE BAR 1 OF _1mj0sbjsk PROMPT "\<Furnizori"
ON SELECTION BAR 1 OF _1mj0sbjsk DO BAR_1_OF__1mj0sbjsk_FB2P
DEFINE BAR 2 OF _1mj0sbjsk PROMPT "\<Clienti"
ON SELECTION BAR 2 OF _1mj0sbjsk DO BAR_2_OF__1mj0sbjsk_FB2P
DEFINE BAR 3 OF _1mj0sbjsk PROMPT "Cr\<editori"
ON SELECTION BAR 3 OF _1mj0sbjsk DO BAR_3_OF__1mj0sbjsk_FB2P
DEFINE BAR 4 OF _1mj0sbjsk PROMPT "\<Debitori"
ON SELECTION BAR 4 OF _1mj0sbjsk DO BAR_4_OF__1mj0sbjsk_FB2P
DEFINE BAR 5 OF _1mj0sbjsk PROMPT "\<Achizitori"
ON SELECTION BAR 5 OF _1mj0sbjsk DO BAR_5_OF__1mj0sbjsk_FB2P
DEFINE BAR 6 OF _1mj0sbjsk PROMPT "Act\<ionari"
ON SELECTION BAR 6 OF _1mj0sbjsk DO BAR_6_OF__1mj0sbjsk_FB2P
DEFINE BAR 2 OF _1mj0sbbn6 PROMPT "\-"
ON BAR 2 OF _1mj0sbbn6 ACTIVATE POPUP _1mj0sbpef
*----------------------------------
DEFINE POPUP _1mj0sbpef SHORTCUT RELATIVE
DEFINE BAR 3 OF _1mj0sbbn6 PROMPT "\<Balanta"
ON SELECTION BAR 3 OF _1mj0sbbn6 DO BAR_3_OF__1mj0sbbn6_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
*!* ll2=m.nl
*!* aa2=m.an
*!* do form startfirma
*!* IF buton=2
*!* m.an=aa2
*!* m.nl=ll2
*!* endif
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF__1mj0sbjsk_FB2P
*!* sele act
*!* copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX
*!* sele 0
*!* use &loc\&nfscurt\tempo\ytemp alias ytemp
*!* sele ytemp
*!* BUTON=1
*!* mmm=crea('modiffact')
*!* mmm.decare='FURN'
*!* MMM.SHOW(1)
*!* IF BUTON=2
*!* DO STERGE
*!* USE IN YTEMP
*!* RETURN
*!* ENDIF
*!* SELE YTEMP
*!* SCAN
*!* SCAT MEMV
*!* SELE ACT
*!* IF FLOCK()
*!* appe blan
*!* gath memv
*!* endif
*!* unlock
*!* SELE ACTan
*!* IF FLOCK()
*!* appe blan
*!* gath memv
*!* endif
*!* unlock
*!* endscan
*!* USE IN YTEMP
*!* wait wind 'Se inregistreaza in analiticul de furnizori...' nowait
*!* DO TOTV
*!* DO REFBAL
*!* DO REFFURNIZOR
*!* wait wind 'Se inregistreaza in registrul de cumparari...' nowait
*!* DO TOTV
*!* DO REFCUMP
*!* wait wind 'Se inregistreaza in situatia facturilor de furnizori...' nowait
*!* do totv
*!* DO REFCUMPLUN
*!* DO TOTV
*!* wait clear
ENDPROC && BAR_1_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_2_OF__1mj0sbjsk_FB2P
*!* sele act
*!* copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX
*!* sele 0
*!* use &loc\&nfscurt\tempo\ytemp alias ytemp
*!* sele ytemp
*!* BUTON=1
*!* mmm=crea('modiffact')
*!* mmm.decare='CLI'
*!* MMM.SHOW(1)
*!* IF BUTON=2
*!* DO STERGE
*!* USE IN YTEMP
*!* RETURN
*!* ENDIF
*!* SELE YTEMP
*!* SCAN
*!* SCAT MEMV
*!* SELE ACT
*!* IF FLOCK()
*!* appe blan
*!* gath memv
*!* endif
*!* unlock
*!* SELE ACTan
*!* IF FLOCK()
*!* appe blan
*!* gath memv
*!* endif
*!* unlock
*!* endscan
*!* USE IN YTEMP
*!* wait wind 'Se inregistreaza in analiticul de clienti...' nowait
*!* DO TOTV
*!* DO REFBAL
*!* DO REFCLIENTI
*!* wait wind 'Se inregistreaza in registrul de vanzari...' nowait
*!* DO TOTV
*!* DO REFVANZ
*!* wait wind 'Se inregistreaza in situatia facturilor de clienti...' nowait
*!* do totv
*!* DO REFVANZLUN
*!* DO TOTV
*!* wait clear
ENDPROC && BAR_2_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_3_OF__1mj0sbjsk_FB2P
*!* LOCAL m.SUM1,M.SUM2,M.SUM3
*!* SELECT CREDITOR
*!* SET FILTER TO !DELETED()
*!* sum LUAT,DAT to m.SUM1,M.SUM2
*!* M.SUM3=M.SUM1-M.SUM2
*!* SELE BAL
*!* SEEK '462 '
*!* SCATTER MEMVAR
*!* IF M.SOLDcred # M.SUM3
*!* do mesajval with 'Diferenta soldului cont.462 este de: ',M.SOLDCRED-M.SUM3
*!* endif
*!*
*!* m.cont='462 '
*!* cn=m.cont
*!* SELECT CREDITOR.NUME,CREDITOR.luat as deb,CREDITOR.dat as cred;
*!* from CREDITOR where !deleted() ;
*!* into TABLE &LOC\&nfscurt\tempo\xtemp
*!*
*!* * rename column luat TO deb;
*!* * rename column dat TO cred;
*!* if file('&LOC\&nfscurt\tempo\xtemp.dbf')
*!* sele xtemp
*!* alter table xtemp ADD COLUMN CONT C(4)
*!* repl all cont with m.cont
*!* sele xtemp
*!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
*!* OVIZ=CREATEOBJECT("afsitanalitX")
*!* WITH OVIZ
*!* .command5.visible=.f.
*!* .LABEL10.CAPTION='SITUATIA ANALITICA - CREDITORI'
*!* .GRID1.COLUMN2.VISIBLE=.F.
*!* .GRID1.COLUMN2.WIDTH=0
*!* .GRID1.COLUMN8.VISIBLE=.F.
*!* .GRID1.COLUMN8.WIDTH=0
*!* ENDWITH
*!* OVIZ.SHOW(1)
*!* use in xtemp
*!* endif
ENDPROC && BAR_3_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_4_OF__1mj0sbjsk_FB2P
*!* SELECT debitor
*!* SET FILTER TO !DELETED()
*!* SELECT debitor
*!* sum LUAT,DAT to m.SUM1,M.SUM2
*!* M.SUM3=M.SUM1-M.SUM2
*!* SELE BAL
*!* SEEK '461 '
*!* SCATTER MEMVAR
*!* IF M.SOLDDEB # M.SUM3
*!* do mesajval with 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3
*!* endif
*!* SELECT debitor.NUME,debitor.luat as deb,debitor.dat as cred;
*!* from debitor where !deleted() ;
*!* into TABLE &LOC\&nfscurt\tempo\xtemp
*!* *alter table xtemp;
*!* * rename column luat TO DEB;
*!* * rename column dat TO CRED;
*!* sele xtemp
*!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
*!* do creaT_analitX with 'SITUATIE ANALITICA - DEBITORI','Incasat','Restituit'
*!* use in xtemp
ENDPROC && BAR_4_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_5_OF__1mj0sbjsk_FB2P
*!* local m.sum1,m.sum2,m.sum3
*!* set safety off
*!* SELECT ACHIT542
*!* SET FILTER TO !DELETED()
*!* sum LUAT,DAT to m.SUM1,M.SUM2
*!* M.SUM3=M.SUM1-M.SUM2
*!* SELE BAL
*!* SEEK '542 '
*!* SCATTER MEMVAR
*!* IF M.SOLDDEB # M.SUM3
*!* ot=createobj('textval')
*!* ot.label2.caption= 'Diferenta soldului este de: '
*!* ot.valoare=M.SOLDDEB-M.SUM3
*!* ot.show(1)
*!* ENDIF
*!* m.cont='542 '
*!* cn=m.cont
*!*
*!* SELECT ACHIT542.NUME_2 as nume,achit542.luat as deb,achit542.dat as cred;
*!* from achit542 where !deleted();
*!* into TABLE &LOC\&nfscurt\tempo\xtemp
*!* ** rename column nume_2 TO nume;
*!* * rename column luat TO deb;
*!* * rename column dat TO cred;
*!*
*!* if file('&LOC\&nfscurt\tempo\xtemp.dbf')
*!* sele xtemp
*!* alter table xtemp ADD COLUMN CONT C(4)
*!* repl all cont with m.cont
*!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
*!* OVIZ=CREATEOBJECT("afsitanalitX")
*!* WITH OVIZ
*!* .command5.visible=.f.
*!* .LABEL10.CAPTION='SITUATIA ANALITICA - ACHIZITORI'
*!* .GRID1.COLUMN2.VISIBLE=.F.
*!* .GRID1.COLUMN2.WIDTH=0
*!* .GRID1.COLUMN8.VISIBLE=.F.
*!* .GRID1.COLUMN8.WIDTH=0
*!* ENDWITH
*!* OVIZ.SHOW(1)
*!* use in xtemp
*!* endif
ENDPROC && BAR_5_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_6_OF__1mj0sbjsk_FB2P
*!* SELECT actionar
*!* SET FILTER TO !DELETED()
*!* sum LUAT,DAT to m.SUM1,M.SUM2
*!* M.SUM3=M.SUM1-M.SUM2
*!*
*!* SELECT actionar.NUME,actionar.luat as deb,actionar.dat as cred;
*!* from actionar where !deleted() ;
*!* into TABLE &LOC\&nfscurt\tempo\xtemp
*!* *alter table xtemp;
*!* * rename column luat TO deb;
*!* * rename column dat TO cred;
*!* sele xtemp
*!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
*!* do creaT_analitX with 'SITUATIE ANALITICA - ACTIONARI','Luat','Dat'
*!* use in xtemp
ENDPROC && BAR_6_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_3_OF__1mj0sbbn6_FB2P
*!* sele bal
*!* do form afisbalx
ENDPROC && BAR_3_OF__1mj0sbbn6_FB2P
*</Procedures>
Reference in New Issue View Git Blame Copy Permalink