47 lines
1.7 KiB
Plaintext
47 lines
1.7 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="cheltavans.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Cheltuieli PROMPT "Balanta cheltuieli in avans"
|
|
ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P
|
|
|
|
DEFINE BAR 2 OF Cheltuieli PROMPT "Situatia analitica a cheltuielilor in avans"
|
|
ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P
|
|
ACTIVATE POPUP Cheltuieli
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Cheltuieli_FB2P
|
|
DO lans_balanta_parteneri WITH "471",.T. IN OPARTENERI.prg
|
|
ENDPROC && BAR_1_OF_Cheltuieli_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Cheltuieli_FB2P
|
|
*!* PRIVATE pcAcont, pnCumul, pnact1, pnact2
|
|
*!* STORE '' TO pcAcont
|
|
*!* STORE 0 TO pnCumul, pnact1, pnact2
|
|
|
|
*!* IF USED('xavans')
|
|
*!* USE IN xavans
|
|
*!* ENDIF
|
|
|
|
*!* USE &date\chavans.dbf again IN 0 SHARED ALIAS xavans
|
|
*!* SELECT xavans
|
|
*!* oavans=CREATEOBJECT('ch_ven_avans')
|
|
*!* oavans.cont='scd'
|
|
*!* oavans.show(1)
|
|
|
|
*!* USE IN xavans
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
DO lans_ireg_parteneri WITH .F.,'471',.T.
|
|
ENDPROC && BAR_2_OF_Cheltuieli_FB2P
|
|
|
|
*</Procedures>
|