109 lines
3.4 KiB
Plaintext
109 lines
3.4 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="config6.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 "\Adaos comercial"
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "\-"
|
|
ON BAR 2 OF Shortcut ACTIVATE POPUP _11a0rode2
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _11a0rode2 SHORTCUT RELATIVE
|
|
DEFINE BAR 3 OF Shortcut PROMPT "\<P.V. de schimbare pret de vanzare"
|
|
ON BAR 3 OF Shortcut ACTIVATE POPUP PVdeschimb
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP PVdeschimb SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF PVdeschimb PROMPT "\<O gestiune"
|
|
ON SELECTION BAR 1 OF PVdeschimb DO BAR_1_OF_PVdeschimb_FB2P
|
|
|
|
DEFINE BAR 2 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi"
|
|
ON SELECTION BAR 2 OF PVdeschimb DO BAR_2_OF_PVdeschimb_FB2P
|
|
|
|
DEFINE BAR 3 OF PVdeschimb PROMPT "\-"
|
|
ON BAR 3 OF PVdeschimb ACTIVATE POPUP _2k60qhop4
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2k60qhop4 SHORTCUT RELATIVE
|
|
DEFINE BAR 4 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi *"
|
|
ON SELECTION BAR 4 OF PVdeschimb DO BAR_4_OF_PVdeschimb_FB2P
|
|
|
|
DEFINE BAR 4 OF Shortcut PROMPT "\-"
|
|
ON BAR 4 OF Shortcut ACTIVATE POPUP _10w0hn3fc
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _10w0hn3fc SHORTCUT RELATIVE
|
|
DEFINE BAR 5 OF Shortcut PROMPT "\Raport gestiuni"
|
|
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
*!* *orp=create('parola')
|
|
*!* *orp.show(1)
|
|
|
|
*!* *if buton=3
|
|
|
|
*!* o=crea('adaoscom')
|
|
*!* o.show(1)
|
|
|
|
*!* *endif
|
|
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_PVdeschimb_FB2P
|
|
lans(52)
|
|
ENDPROC && BAR_1_OF_PVdeschimb_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_PVdeschimb_FB2P
|
|
Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 1
|
|
ENDPROC && BAR_2_OF_PVdeschimb_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_PVdeschimb_FB2P
|
|
Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 2
|
|
ENDPROC && BAR_4_OF_PVdeschimb_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Shortcut_FB2P
|
|
*!* Local SEREFACE
|
|
|
|
*!* Do DANU With 'Se recalculeaza soldurile gestiunilor?'
|
|
*!* If buton=1
|
|
*!* SEREFACE=.T.
|
|
*!* Else
|
|
*!* SEREFACE=.F.
|
|
*!* Endif
|
|
|
|
*!* If SEREFACE
|
|
*!* Do ref_gestiuni
|
|
*!* Endif
|
|
|
|
*!* Select A.gest,B.NUMEGEST,B.CONTG,a.precdeb as PrecDeb_371,A.deb as RulDeb_371,A.cred as RulCred_371,;
|
|
*!* a.precdeb+A.deb-A.cred As SOLD_371,;
|
|
*!* a.precred378 as Preccred_378,A.deb378 as RulDEB_378,A.cred378 as RulCred_378,;
|
|
*!* a.precred378+A.cred378-A.deb378 As SOLD_378,;
|
|
*!* a.procent_k ;
|
|
*!* From gestiuni A,NUMEGEST B;
|
|
*!* WHERE A.gest=B.gest;
|
|
*!* INTO Cursor GES Order By NUMEGEST
|
|
|
|
*!* Select GES
|
|
*!* *SELECT gestiuni
|
|
*!* GO TOP
|
|
*!* Do Form gestiuni
|
|
|
|
*!* *!* Use In GES
|
|
|
|
|
|
|
|
ENDPROC && BAR_5_OF_Shortcut_FB2P
|
|
|
|
*</Procedures>
|