83 lines
3.5 KiB
Plaintext
83 lines
3.5 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="vizdividende.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 "\<Balanta 457"
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "\<Inregistrari dividende"
|
|
ON BAR 2 OF Shortcut ACTIVATE POPUP Inregistra
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Inregistra SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Inregistra PROMPT "Cu test"
|
|
ON SELECTION BAR 1 OF Inregistra DO BAR_1_OF_Inregistra_FB2P
|
|
|
|
DEFINE BAR 2 OF Inregistra PROMPT "Fara test"
|
|
ON SELECTION BAR 2 OF Inregistra DO BAR_2_OF_Inregistra_FB2P
|
|
|
|
DEFINE BAR 3 OF Shortcut PROMPT "\-"
|
|
ON BAR 3 OF Shortcut ACTIVATE POPUP _17d0n5jnr
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _17d0n5jnr SHORTCUT RELATIVE
|
|
DEFINE BAR 4 OF Shortcut PROMPT "\Situatie operativa"
|
|
ON BAR 4 OF Shortcut ACTIVATE POPUP _17d0mxwaz
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _17d0mxwaz SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _17d0mxwaz PROMPT "In luna curenta"
|
|
ON SELECTION BAR 1 OF _17d0mxwaz DO BAR_1_OF__17d0mxwaz_FB2P
|
|
|
|
DEFINE BAR 2 OF _17d0mxwaz PROMPT "Istoric"
|
|
ON SELECTION BAR 2 OF _17d0mxwaz DO BAR_2_OF__17d0mxwaz_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
*lctitlu = 'Situatie analitica - dividende'
|
|
*DO lans_balante_analitice WITH 'P', 'dividende', lctitlu , '457 ', 'debit', credit', 'valdebit', 'valcredit', .f., ''
|
|
DO lans_balanta_parteneri WITH "457",.F. IN OPARTENERI.prg
|
|
|
|
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Inregistra_FB2P
|
|
*!* *PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
*!* pcTotctva='Divid. de plata'
|
|
*!* pcAchitat='Divid. platite'
|
|
*!* pcSumaTotal='Suma de plata'
|
|
*!* pcSumaAchi='Suma platita'
|
|
*!* DO viz_facturi WITH 'dividende','divlun',457,.t.,.t.,'Situatie Lunara Dividende','debit','credit'
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
DO lans_ireg_parteneri WITH .T.,'457',.F.
|
|
ENDPROC && BAR_1_OF_Inregistra_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Inregistra_FB2P
|
|
*!* *PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
*!* pcTotctva='Divid.de plata'
|
|
*!* pcAchitat='Divid.platite'
|
|
*!* DO viz_facturi WITH 'dividende','divlun',457,.f.,.t.,'Situatie Lunara Dividende','debit','credit'
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
DO lans_ireg_parteneri WITH .F.,'457',.F.
|
|
ENDPROC && BAR_2_OF_Inregistra_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__17d0mxwaz_FB2P
|
|
*DO situatie_operativa IN contabilitate_rapoarte WITH 'dividende', '457', 'Dividende' &&, 'Divid. platite', 'Divid.de plata'
|
|
ENDPROC && BAR_1_OF__17d0mxwaz_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__17d0mxwaz_FB2P
|
|
*DO istoric_sit_operativa IN contabilitate_rapoarte WITH 'dividende', '457', 'Dividende' &&, 'Divid. platite', 'Divid.de plata'
|
|
ENDPROC && BAR_2_OF__17d0mxwaz_FB2P
|
|
|
|
*</Procedures>
|