Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
167
Meniuri/notei2.mn2
Normal file
167
Meniuri/notei2.mn2
Normal file
@@ -0,0 +1,167 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="notei2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>1</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE MENU _msysmenu BAR
|
||||
DEFINE PAD _000000001 OF _msysmenu PROMPT "In\<chidere" COLOR SCHEME 3 ;
|
||||
KEY ALT+C, "ALT+C" ;
|
||||
SKIP FOR luna_inchisa or luna_neplatita
|
||||
|
||||
ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Inchidere
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inchidere MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Inchidere PROMPT "\<Nota de salarii" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 1 OF Inchidere DO BAR_1_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inchidere PROMPT "A\<mortizare imobilizari necorporale"
|
||||
ON SELECTION BAR 2 OF Inchidere DO BAR_2_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Inchidere PROMPT "\<Amortizare Mijloace Fixe" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 3 OF Inchidere DO BAR_3_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Inchidere PROMPT "\<T.V.A." ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 4 OF Inchidere DO BAR_4_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Inchidere PROMPT "\<Venituri" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 5 OF Inchidere DO BAR_5_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Inchidere PROMPT "\<Cheltuieli" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 6 OF Inchidere DO BAR_6_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Inchidere PROMPT "Cheltuiala \<Profit" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 7 OF Inchidere DO BAR_7_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Inchidere PROMPT "\<Marfa" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 8 OF Inchidere DO BAR_8_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Inchidere PROMPT "\-"
|
||||
ON BAR 9 OF Inchidere ACTIVATE POPUP _08g0oc8ql
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _08g0oc8ql MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 10 OF Inchidere PROMPT "\<Penalitati" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON BAR 10 OF Inchidere ACTIVATE POPUP Penalitati
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Penalitati MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Penalitati PROMPT "\<TVA"
|
||||
ON SELECTION BAR 1 OF Penalitati DO BAR_1_OF_Penalitati_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Penalitati PROMPT "\Impozit pe \<profit"
|
||||
ON BAR 2 OF Penalitati ACTIVATE POPUP Impozitpep
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Impozitpep MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 3 OF Penalitati PROMPT "\Impozit \<salarii"
|
||||
ON BAR 3 OF Penalitati ACTIVATE POPUP Impozitsal
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Impozitsal MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Inchidere_FB2P
|
||||
do salarii19 in inchidere.prg
|
||||
ENDPROC && BAR_1_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inchidere_FB2P
|
||||
|
||||
|
||||
SELE calendar
|
||||
LOCATE for nl=m.nl and an=m.an
|
||||
Skip -1
|
||||
IF !bof()
|
||||
nla=nl
|
||||
ana=an
|
||||
dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC
|
||||
ELSE
|
||||
dateA=dirgen+'\_alfa\an0000\date00\'
|
||||
ENDIF
|
||||
|
||||
USE &DATEA\BAL IN 0 ALIAS BALP
|
||||
|
||||
M.NRACT=8
|
||||
m.NUME='UZURA OB.DE INVENTAR'
|
||||
M.EXPLICATIA='LUNA '+M.NL
|
||||
M.SUMA=0
|
||||
M.FDOC='NOTA'
|
||||
|
||||
|
||||
SELE BALP
|
||||
SUM RULcred TO M.SUMA FOR CONT='2801'
|
||||
M.NUME_2='CHELT.CONSTITUIRE'
|
||||
DO ABC1 WITH '6811','2801'
|
||||
SELE BALP
|
||||
SUM RULcred TO M.SUMA FOR CONT='2803'
|
||||
M.NUME_2='CHELT.CERCET.DEZV.'
|
||||
DO ABC1 WITH '6811','2803'
|
||||
SELE BALP
|
||||
SUM RULcred TO M.SUMA FOR CONT='2805'
|
||||
M.NUME_2='BREVETE SI INVENTII'
|
||||
DO ABC1 WITH '6811','2805'
|
||||
SELE BALP
|
||||
SUM RULcred TO M.SUMA FOR CONT='2808'
|
||||
M.NUME_2='ALTE IMOB.NECORP.'
|
||||
DO ABC1 WITH '6811','2808'
|
||||
|
||||
USE IN BALP
|
||||
|
||||
|
||||
|
||||
DO STERGE
|
||||
ENDPROC && BAR_2_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Inchidere_FB2P
|
||||
do amortizari in inchidere.prg
|
||||
ENDPROC && BAR_3_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Inchidere_FB2P
|
||||
do tva in inchidere.prg
|
||||
ENDPROC && BAR_4_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Inchidere_FB2P
|
||||
do venituri in inchidere.prg
|
||||
ENDPROC && BAR_5_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Inchidere_FB2P
|
||||
do cheltuieli in inchidere.prg
|
||||
ENDPROC && BAR_6_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Inchidere_FB2P
|
||||
do cheltprofit in inchidere.prg
|
||||
ENDPROC && BAR_7_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF_Inchidere_FB2P
|
||||
do marfa in inchidere.prg
|
||||
ENDPROC && BAR_8_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Penalitati_FB2P
|
||||
DO PENTVA IN PENALITATI.PRG
|
||||
|
||||
IF !USED('PENTVA')
|
||||
sele 0
|
||||
use &dirfirm\tempo\pentva alias pentva
|
||||
ENDIF
|
||||
|
||||
o=crea('penalitati')
|
||||
o.show(1)
|
||||
|
||||
sele pentva
|
||||
use
|
||||
ENDPROC && BAR_1_OF_Penalitati_FB2P
|
||||
|
||||
*</Procedures>
|
||||
Reference in New Issue
Block a user