168 lines
4.9 KiB
Plaintext
168 lines
4.9 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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>
|