49 lines
1.7 KiB
Plaintext
49 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="rulaje.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 "\<In luna curenta"
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "\<Total rulaje"
|
|
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
osetgest.tbrprim.buton6.click
|
|
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
|
|
|
sele rul
|
|
set relation off into actan
|
|
SET ORDER TO TAG Cod OF &calefirma\datean\actan.cdx IN Actan
|
|
sele rul
|
|
SET RELATION TO cod INTO Actan ADDITIVE
|
|
SELE RUL
|
|
SET FILTER TO
|
|
SELE ACTAN
|
|
SET FILTER TO
|
|
SELE RULL
|
|
SET FILTER TO
|
|
*select DISTINCT rul.denumire,rul.pret,rul.um,rul.cant,rul.cante,rul.scd,rul.gest,actan.dataact,actan.nract,rul.cod,rul.tva;
|
|
* from rul,actan;
|
|
* where rul.cod=actan.cod;
|
|
* into cursor rullactanfact
|
|
sele 0
|
|
use &datean\rul again alias rullactanfact
|
|
do form afrul
|
|
use in rullactanfact
|
|
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
|
|
|
*</Procedures>
|