Files
roacont/Meniuri/notei.mn2

124 lines
5.3 KiB
Plaintext

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="notei.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Inchidere SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Inchidere PROMPT "\<Nota de salarii" ;
SKIP FOR !ISNULL(gnIdSucursala) && Nota de salarii nu se face pe sucursale.
ON SELECTION BAR 1 OF Inchidere DO BAR_1_OF_Inchidere_FB2P
DEFINE BAR 2 OF Inchidere PROMPT "Diurne" ;
SKIP FOR !ISNULL(gnIdSucursala) && Nota de diurne nu se face pe sucursale.
ON SELECTION BAR 2 OF Inchidere DO BAR_2_OF_Inchidere_FB2P
DEFINE BAR 3 OF Inchidere PROMPT "Amortizare Imobilizari \<Corporale" ;
SKIP FOR glEMama && Nota de imobilizari nu se face pe firma mama.
ON SELECTION BAR 3 OF Inchidere DO inchidere_amortizari WITH 1 in oproceduri_inchidere.prg
DEFINE BAR 4 OF Inchidere PROMPT "Amortizare Imobilizari \<Necorporale" ;
SKIP FOR glEMama && Nota de imobilizari nu se face pe firma mama.
ON SELECTION BAR 4 OF Inchidere DO inchidere_amortizari WITH 2 in oproceduri_inchidere.prg
DEFINE BAR 5 OF Inchidere PROMPT "\<T.V.A." ;
SKIP FOR !ISNULL(gnIdSucursala) && Nota de TVA nu se face pe sucursale.
ON BAR 5 OF Inchidere ACTIVATE POPUP TVA
*----------------------------------
DEFINE POPUP TVA SHORTCUT RELATIVE
DEFINE BAR 1 OF TVA PROMPT "\<Inchidere TVA (inclusiv TVA exigibil 90 zile < 01/2014)"
ON SELECTION BAR 1 OF TVA do inchidere_tva with 1 in oproceduri_inchidere.prg
DEFINE BAR 2 OF TVA PROMPT "\<TVA exigibil 90 zile (< 01/2014)" ;
SKIP FOR m.gnAn * 12 + m.gnluna > 2013*12+12 ;
MESSAGE 'Note TVA colectat 4428 = 4427 devenit exigibil la 90 de zile dupa data emiterii'
ON SELECTION BAR 2 OF TVA do inchidere_tva with 2 in oproceduri_inchidere.prg
DEFINE BAR 6 OF Inchidere PROMPT "\<Venituri" ;
SKIP FOR glEMama && Nota de venituri nu se face pe firma mama.
ON SELECTION BAR 6 OF Inchidere do inchidere_venituri_cheltuieli with 7 in oproceduri_inchidere.prg
DEFINE BAR 7 OF Inchidere PROMPT "\<Cheltuieli" ;
SKIP FOR glEMama && Nota de cheltuieli nu se face pe firma mama.
ON SELECTION BAR 7 OF Inchidere do inchidere_venituri_cheltuieli with 6 in oproceduri_inchidere.prg
DEFINE BAR 8 OF Inchidere PROMPT "Cheltuiala \<Profit"
ON BAR 8 OF Inchidere ACTIVATE POPUP Cheltuiala
*----------------------------------
DEFINE POPUP Cheltuiala SHORTCUT RELATIVE
DEFINE BAR 1 OF Cheltuiala PROMPT "Inchidere impozit pe venit"
ON SELECTION BAR 1 OF Cheltuiala DO BAR_1_OF_Cheltuiala_FB2P
DEFINE BAR 2 OF Cheltuiala PROMPT "\-"
ON BAR 2 OF Cheltuiala ACTIVATE POPUP _14e0vvvq1
*----------------------------------
DEFINE POPUP _14e0vvvq1 SHORTCUT RELATIVE
DEFINE BAR 3 OF Cheltuiala PROMPT "Inchidere impozit pe profit"
ON SELECTION BAR 3 OF Cheltuiala DO BAR_3_OF_Cheltuiala_FB2P
DEFINE BAR 9 OF Inchidere PROMPT "\-"
ON BAR 9 OF Inchidere ACTIVATE POPUP _23o0zal29
*----------------------------------
DEFINE POPUP _23o0zal29 SHORTCUT RELATIVE
DEFINE BAR 10 OF Inchidere PROMPT "Inchidere sold 542 in 461" ;
MESSAGE '461=542'
ON SELECTION BAR 10 OF Inchidere do inchidere_sold_542 in oproceduri_inchidere.prg
DEFINE BAR 11 OF Inchidere PROMPT "Repunere sold 542 din 461" ;
MESSAGE '542=461'
ON SELECTION BAR 11 OF Inchidere do repunere_sold_542 in oproceduri_inchidere.prg
DEFINE BAR 12 OF Inchidere PROMPT "\-"
ON BAR 12 OF Inchidere ACTIVATE POPUP _44s0vd5hg
*----------------------------------
DEFINE POPUP _44s0vd5hg SHORTCUT RELATIVE
DEFINE BAR 13 OF Inchidere PROMPT "Popriri" ;
MESSAGE "421 = xxxx"
ON SELECTION BAR 13 OF Inchidere DO POPRIRI IN OPROCEDURI_INCHIDERE.PRG
DEFINE BAR 14 OF Inchidere PROMPT "Drepturi neridicate - Lichidare" ;
MESSAGE "421 = 426"
ON SELECTION BAR 14 OF Inchidere DO drepturi_nerid_sal IN OPROCEDURI_INCHIDERE.PRG
DEFINE BAR 15 OF Inchidere PROMPT "Achitare drepturi neridicate - Lichidare" ;
MESSAGE "426 = 5311"
ON SELECTION BAR 15 OF Inchidere DO Achitare_drepturi_neridicate_Lichidare IN OPROCEDURI_INCHIDERE.PRG
DEFINE BAR 16 OF Inchidere PROMPT "Drepturi neridicate - Avans" ;
MESSAGE "421 = 426"
ON SELECTION BAR 16 OF Inchidere DO drepturi_nerid_av IN OPROCEDURI_INCHIDERE.PRG
DEFINE BAR 17 OF Inchidere PROMPT "Achitare drepturi neridicate - Avans" ;
MESSAGE "426 = 5311"
ON SELECTION BAR 17 OF Inchidere DO Achitare_drepturi_neridicate_Avans IN OPROCEDURI_INCHIDERE.PRG
ACTIVATE POPUP Inchidere
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Inchidere_FB2P
do inchidere_salarii in ocont2003.prg
ENDPROC && BAR_1_OF_Inchidere_FB2P
PROCEDURE BAR_2_OF_Inchidere_FB2P
do inchidere_DIURNE in ocont2003.prg
ENDPROC && BAR_2_OF_Inchidere_FB2P
PROCEDURE BAR_1_OF_Cheltuiala_FB2P
DO cheltprofit2_ana IN ocont2003.prg
ENDPROC && BAR_1_OF_Cheltuiala_FB2P
PROCEDURE BAR_3_OF_Cheltuiala_FB2P
DO cheltprofit1_ana IN ocont2003.prg
ENDPROC && BAR_3_OF_Cheltuiala_FB2P
*</Procedures>