270 lines
7.8 KiB
Plaintext
270 lines
7.8 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="venituri.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Venituri SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Venituri PROMPT "Din vanzari si servicii catre clienti" ;
|
|
MESSAGE '4111 :X ;4111 :4427'
|
|
ON SELECTION BAR 1 OF Venituri DO BAR_1_OF_Venituri_FB2P
|
|
|
|
DEFINE BAR 2 OF Venituri PROMPT "\-"
|
|
ON BAR 2 OF Venituri ACTIVATE POPUP _09c1aknd0
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _09c1aknd0 SHORTCUT RELATIVE
|
|
DEFINE BAR 3 OF Venituri PROMPT "Din redevente,locatii de gestiune si chirii" ;
|
|
MESSAGE '461 :706 ;461 :4427'
|
|
ON SELECTION BAR 3 OF Venituri DO BAR_3_OF_Venituri_FB2P
|
|
|
|
DEFINE BAR 4 OF Venituri PROMPT "\-"
|
|
ON BAR 4 OF Venituri ACTIVATE POPUP NewItem
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
|
DEFINE BAR 5 OF Venituri PROMPT "Din productia de imobilizari"
|
|
ON BAR 5 OF Venituri ACTIVATE POPUP Dinproduct
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Dinproduct SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Dinproduct PROMPT "Necorporale"
|
|
ON BAR 1 OF Dinproduct ACTIVATE POPUP Necorporal
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Necorporal SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Necorporal PROMPT "Cercetere-dezvoltare 203" ;
|
|
MESSAGE '203 :721 '
|
|
ON SELECTION BAR 1 OF Necorporal DO BAR_1_OF_Necorporal_FB2P
|
|
|
|
DEFINE BAR 2 OF Necorporal PROMPT "Concesiuni,brevete 205" ;
|
|
MESSAGE '205 :721 '
|
|
ON SELECTION BAR 2 OF Necorporal DO BAR_2_OF_Necorporal_FB2P
|
|
|
|
DEFINE BAR 3 OF Necorporal PROMPT "Alte imobilizari 208" ;
|
|
MESSAGE '208 :721 '
|
|
ON SELECTION BAR 3 OF Necorporal DO BAR_3_OF_Necorporal_FB2P
|
|
|
|
DEFINE BAR 4 OF Necorporal PROMPT "In curs 230" ;
|
|
MESSAGE '230 :721 '
|
|
ON SELECTION BAR 4 OF Necorporal DO BAR_4_OF_Necorporal_FB2P
|
|
|
|
DEFINE BAR 2 OF Dinproduct PROMPT "Corporale"
|
|
ON BAR 2 OF Dinproduct ACTIVATE POPUP Corporale
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Corporale SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Corporale PROMPT "Mijloace fixe obtinute din productie proprie" ;
|
|
MESSAGE '212 :722 ;4426:4427'
|
|
ON SELECTION BAR 1 OF Corporale DO BAR_1_OF_Corporale_FB2P
|
|
|
|
DEFINE BAR 2 OF Corporale PROMPT "In curs de productie" ;
|
|
MESSAGE '231 :722 '
|
|
ON SELECTION BAR 2 OF Corporale DO BAR_2_OF_Corporale_FB2P
|
|
|
|
DEFINE BAR 6 OF Venituri PROMPT "Din dobanzi"
|
|
ON BAR 6 OF Venituri ACTIVATE POPUP Dindobanzi
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Dindobanzi SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Dindobanzi PROMPT "De la debitori diversi" ;
|
|
MESSAGE '461 :766 '
|
|
ON SELECTION BAR 1 OF Dindobanzi DO BAR_1_OF_Dindobanzi_FB2P
|
|
|
|
DEFINE BAR 2 OF Dindobanzi PROMPT "De la banci" ;
|
|
MESSAGE '5187:766 '
|
|
ON SELECTION BAR 2 OF Dindobanzi DO BAR_2_OF_Dindobanzi_FB2P
|
|
|
|
DEFINE BAR 7 OF Venituri PROMPT "Imputatii"
|
|
ON BAR 7 OF Venituri ACTIVATE POPUP Imputatii
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Imputatii SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Imputatii PROMPT "Salariati" ;
|
|
MESSAGE '4282 :758X ;4282 :4427'
|
|
ON SELECTION BAR 1 OF Imputatii DO BAR_1_OF_Imputatii_FB2P
|
|
|
|
DEFINE BAR 2 OF Imputatii PROMPT "Debitori diversi" ;
|
|
MESSAGE '461 :758 ;461 :4427'
|
|
ON SELECTION BAR 2 OF Imputatii DO BAR_2_OF_Imputatii_FB2P
|
|
|
|
DEFINE BAR 8 OF Venituri PROMPT "\-"
|
|
ON BAR 8 OF Venituri ACTIVATE POPUP _09c1akncz
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _09c1akncz SHORTCUT RELATIVE
|
|
DEFINE BAR 9 OF Venituri PROMPT "\<Discount 767" ;
|
|
MESSAGE '401 :767 ;4426:401 '
|
|
ON SELECTION BAR 9 OF Venituri DO BAR_9_OF_Venituri_FB2P
|
|
|
|
DEFINE BAR 10 OF Venituri PROMPT "Reduceri comerciale primite 609" ;
|
|
MESSAGE '401 :609 ;4426:401 '
|
|
ON SELECTION BAR 10 OF Venituri lans(10606)
|
|
|
|
DEFINE BAR 11 OF Venituri PROMPT "\-"
|
|
ON BAR 11 OF Venituri ACTIVATE POPUP _14d0z6nkt
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _14d0z6nkt SHORTCUT RELATIVE
|
|
DEFINE BAR 12 OF Venituri PROMPT "Repunere venituri in avans (472)" ;
|
|
MESSAGE '472-7xx'
|
|
ON SELECTION BAR 12 OF Venituri DO BAR_12_OF_Venituri_FB2P
|
|
|
|
DEFINE BAR 13 OF Venituri PROMPT "Repunere venituri in avans (472) valuta"
|
|
ON SELECTION BAR 13 OF Venituri DO BAR_13_OF_Venituri_FB2P
|
|
|
|
DEFINE BAR 14 OF Venituri PROMPT "Repunere venituri in avans (472) - toate cu rate"
|
|
ON SELECTION BAR 14 OF Venituri do repunere_venchelt_avans with '472' in ocont2003.prg
|
|
|
|
DEFINE BAR 15 OF Venituri PROMPT "\-"
|
|
ON BAR 15 OF Venituri ACTIVATE POPUP _5is0uvphe
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _5is0uvphe SHORTCUT RELATIVE
|
|
DEFINE BAR 16 OF Venituri PROMPT "Repunere subventii (475X) - toate cu rate"
|
|
ON SELECTION BAR 16 OF Venituri DO BAR_16_OF_Venituri_FB2P
|
|
ACTIVATE POPUP Venituri
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Venituri_FB2P
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul",'7')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
lans(10298)
|
|
ENDPROC && BAR_1_OF_Venituri_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Venituri_FB2P
|
|
lans(10275)
|
|
ENDPROC && BAR_3_OF_Venituri_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Necorporal_FB2P
|
|
lans(10277)
|
|
ENDPROC && BAR_1_OF_Necorporal_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Necorporal_FB2P
|
|
lans(10278)
|
|
ENDPROC && BAR_2_OF_Necorporal_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Necorporal_FB2P
|
|
lans(10279)
|
|
ENDPROC && BAR_3_OF_Necorporal_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Necorporal_FB2P
|
|
lans(10280)
|
|
ENDPROC && BAR_4_OF_Necorporal_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Corporale_FB2P
|
|
lans(10281)
|
|
ENDPROC && BAR_1_OF_Corporale_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Corporale_FB2P
|
|
lans(10282)
|
|
ENDPROC && BAR_2_OF_Corporale_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Dindobanzi_FB2P
|
|
|
|
lans(10283)
|
|
ENDPROC && BAR_1_OF_Dindobanzi_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Dindobanzi_FB2P
|
|
lans(10284)
|
|
ENDPROC && BAR_2_OF_Dindobanzi_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Imputatii_FB2P
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul",'758') &&,7581,7582,7583,7584,7588')
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
lans(10285)
|
|
ENDPROC && BAR_1_OF_Imputatii_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Imputatii_FB2P
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul",'758') && ,7581,7582,7583,7584,7588')
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
lans(10286)
|
|
ENDPROC && BAR_2_OF_Imputatii_FB2P
|
|
|
|
PROCEDURE BAR_9_OF_Venituri_FB2P
|
|
lans(10463)
|
|
ENDPROC && BAR_9_OF_Venituri_FB2P
|
|
|
|
PROCEDURE BAR_12_OF_Venituri_FB2P
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul",'7')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
lans(10472)
|
|
ENDPROC && BAR_12_OF_Venituri_FB2P
|
|
|
|
PROCEDURE BAR_13_OF_Venituri_FB2P
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul",'7')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
lans(10645)
|
|
ENDPROC && BAR_13_OF_Venituri_FB2P
|
|
|
|
PROCEDURE BAR_16_OF_Venituri_FB2P
|
|
LOCAL lcCont
|
|
loCont=ret_cont("Selectati contul",'475')
|
|
|
|
IF TYPE('loCont') # 'O' OR buton = 2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
lcCont = locont.cont
|
|
|
|
do repunere_venchelt_avans with m.lcCont in ocont2003.prg
|
|
ENDPROC && BAR_16_OF_Venituri_FB2P
|
|
|
|
*</Procedures>
|