git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@64 1c943782-d109-9647-9548-93b3ac332352
This commit is contained in:
parent
13bd761a09
commit
133e44287c
@ -1,3 +1,13 @@
|
|||||||
|
DROP VIEW RDX_V_CONTROL_INVENTARIO;
|
||||||
|
DROP VIEW RDX_V_INVENTARIO_STOCK;
|
||||||
|
DROP VIEW RDX_V_STOCK_CALCULADO_DESGLOSADO;
|
||||||
|
DROP VIEW RDX_V_STOCK_CALCULADO;
|
||||||
|
DROP VIEW RDX_V_STOCK;
|
||||||
|
DROP VIEW RDX_V_STOCK_VENTAS;
|
||||||
|
DROP VIEW RDX_V_STOCK_INVENTARIO;
|
||||||
|
DROP VIEW RDX_V_STOCK_VARELA;
|
||||||
|
|
||||||
|
|
||||||
/*--------------- SQL ---------------*/
|
/*--------------- SQL ---------------*/
|
||||||
|
|
||||||
CREATE VIEW RDX_V_STOCK_VARELA AS
|
CREATE VIEW RDX_V_STOCK_VARELA AS
|
||||||
@ -357,6 +367,7 @@ GO
|
|||||||
CREATE VIEW RDX_V_STOCK_CALCULADO AS
|
CREATE VIEW RDX_V_STOCK_CALCULADO AS
|
||||||
SELECT
|
SELECT
|
||||||
CENTRO,
|
CENTRO,
|
||||||
|
FILIAL,
|
||||||
CODIGO,
|
CODIGO,
|
||||||
PRODUCTO,
|
PRODUCTO,
|
||||||
TIPO_PRODUCTO,
|
TIPO_PRODUCTO,
|
||||||
@ -394,6 +405,7 @@ GO
|
|||||||
|
|
||||||
CREATE VIEW RDX_V_STOCK_CALCULADO_DESGLOSADO AS
|
CREATE VIEW RDX_V_STOCK_CALCULADO_DESGLOSADO AS
|
||||||
SELECT CENTRO,
|
SELECT CENTRO,
|
||||||
|
FILIAL,
|
||||||
CODIGO,
|
CODIGO,
|
||||||
PRODUCTO,
|
PRODUCTO,
|
||||||
TIPO_PRODUCTO,
|
TIPO_PRODUCTO,
|
||||||
@ -417,7 +429,8 @@ GO
|
|||||||
|
|
||||||
CREATE VIEW RDX_V_INVENTARIO_STOCK_DESGLOSADO AS
|
CREATE VIEW RDX_V_INVENTARIO_STOCK_DESGLOSADO AS
|
||||||
SELECT
|
SELECT
|
||||||
ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.CENTRO, RDX_V_ULTIMO_INVENTARIO.FILIAL) as CENTRO,
|
ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.CENTRO, RDX_V_ULTIMO_INVENTARIO.CENTRO) as CENTRO,
|
||||||
|
ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.FILIAL, RDX_V_ULTIMO_INVENTARIO.FILIAL) as FILIAL,
|
||||||
ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.CODIGO, RDX_V_ULTIMO_INVENTARIO.CODIGO) as CODIGO,
|
ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.CODIGO, RDX_V_ULTIMO_INVENTARIO.CODIGO) as CODIGO,
|
||||||
ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.PRODUCTO, RDX_V_ULTIMO_INVENTARIO.PRODUCTO) as PRODUCTO,
|
ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.PRODUCTO, RDX_V_ULTIMO_INVENTARIO.PRODUCTO) as PRODUCTO,
|
||||||
ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.COLOR, RDX_V_ULTIMO_INVENTARIO.COLOR) as COLOR,
|
ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.COLOR, RDX_V_ULTIMO_INVENTARIO.COLOR) as COLOR,
|
||||||
@ -443,6 +456,7 @@ GO
|
|||||||
CREATE VIEW RDX_V_INVENTARIO_STOCK AS
|
CREATE VIEW RDX_V_INVENTARIO_STOCK AS
|
||||||
select
|
select
|
||||||
CENTRO,
|
CENTRO,
|
||||||
|
FILIAL,
|
||||||
CODIGO,
|
CODIGO,
|
||||||
PRODUCTO,
|
PRODUCTO,
|
||||||
COLOR,
|
COLOR,
|
||||||
@ -524,6 +538,7 @@ select
|
|||||||
from RDX_V_INVENTARIO_STOCK_DESGLOSADO
|
from RDX_V_INVENTARIO_STOCK_DESGLOSADO
|
||||||
|
|
||||||
group by CENTRO,
|
group by CENTRO,
|
||||||
|
FILIAL,
|
||||||
CODIGO,
|
CODIGO,
|
||||||
PRODUCTO,
|
PRODUCTO,
|
||||||
COLOR,
|
COLOR,
|
||||||
@ -537,6 +552,7 @@ GO
|
|||||||
CREATE VIEW RDX_V_CONTROL_INVENTARIO AS
|
CREATE VIEW RDX_V_CONTROL_INVENTARIO AS
|
||||||
SELECT
|
SELECT
|
||||||
CENTRO,
|
CENTRO,
|
||||||
|
FILIAL,
|
||||||
CODIGO,
|
CODIGO,
|
||||||
PRODUCTO,
|
PRODUCTO,
|
||||||
COLOR,
|
COLOR,
|
||||||
|
|||||||
@ -91,7 +91,7 @@ BEGIN
|
|||||||
NUMINF, CLAVE1, CLAVE2, CLAVE3, PERVENINI, NUMTALON, EANLUG,
|
NUMINF, CLAVE1, CLAVE2, CLAVE3, PERVENINI, NUMTALON, EANLUG,
|
||||||
FILIAL, EANVEN, CODVEN, VENDEDOR, EANART, CODCOM, PRODUTO,
|
FILIAL, EANVEN, CODVEN, VENDEDOR, EANART, CODCOM, PRODUTO,
|
||||||
DESC_PRODUTO, COR_PRODUTO, GRADE, TIPO_PRODUTO, GRUPO_PRODUTO,
|
DESC_PRODUTO, COR_PRODUTO, GRADE, TIPO_PRODUTO, GRUPO_PRODUTO,
|
||||||
DESC_COLECAO, VALVEN, CANVEN, CANDEV, CANVENNET, CANESP )
|
DESC_COLECAO, VALVEN, CANVEN, CANDEV, CANVENNET, CANESP, IGNORAR )
|
||||||
SELECT
|
SELECT
|
||||||
RDX_CABVEN.NUMINF,
|
RDX_CABVEN.NUMINF,
|
||||||
RDX_ARTVEN.CLAVE1,
|
RDX_ARTVEN.CLAVE1,
|
||||||
@ -117,7 +117,9 @@ BEGIN
|
|||||||
RDX_ARTVEN.CANVEN,
|
RDX_ARTVEN.CANVEN,
|
||||||
RDX_ARTVEN.CANDEV,
|
RDX_ARTVEN.CANDEV,
|
||||||
RDX_ARTVEN.CANVENNET,
|
RDX_ARTVEN.CANVENNET,
|
||||||
RDX_ARTVEN.CANESP
|
RDX_ARTVEN.CANESP,
|
||||||
|
RDX_CABVEN.IGNORAR
|
||||||
|
|
||||||
FROM
|
FROM
|
||||||
RDX_ARTVEN
|
RDX_ARTVEN
|
||||||
INNER JOIN RDX_LUGVEN ON (RDX_ARTVEN.CLAVE1 = RDX_LUGVEN.CLAVE1 AND RDX_ARTVEN.CLAVE2 = RDX_LUGVEN.CLAVE2)
|
INNER JOIN RDX_LUGVEN ON (RDX_ARTVEN.CLAVE1 = RDX_LUGVEN.CLAVE1 AND RDX_ARTVEN.CLAVE2 = RDX_LUGVEN.CLAVE2)
|
||||||
|
|||||||
@ -12,10 +12,19 @@ IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[FK__RDX_ARTVEN__
|
|||||||
DROP CONSTRAINT [FK__RDX_ARTVEN__56BFC79A]
|
DROP CONSTRAINT [FK__RDX_ARTVEN__56BFC79A]
|
||||||
GO
|
GO
|
||||||
|
|
||||||
|
|
||||||
|
ALTER TABLE [RDX_CABINV]
|
||||||
|
DROP COLUMN [CARGADO]
|
||||||
|
GO
|
||||||
|
|
||||||
ALTER TABLE [RDX_CABINV]
|
ALTER TABLE [RDX_CABINV]
|
||||||
ADD [CARGADO]char(1) NULL
|
ADD [CARGADO]char(1) NULL
|
||||||
GO
|
GO
|
||||||
|
|
||||||
|
ALTER TABLE [RDX_CABVEN]
|
||||||
|
DROP COLUMN [CARGADO]
|
||||||
|
GO
|
||||||
|
|
||||||
ALTER TABLE [RDX_CABVEN]
|
ALTER TABLE [RDX_CABVEN]
|
||||||
ADD [CARGADO]char(1) NULL
|
ADD [CARGADO]char(1) NULL
|
||||||
GO
|
GO
|
||||||
|
|||||||
@ -1,4 +1,5 @@
|
|||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{51b1cbd5-e922-4e6d-b778-6de1bca9118c}</ProjectGuid>
|
<ProjectGuid>{51b1cbd5-e922-4e6d-b778-6de1bca9118c}</ProjectGuid>
|
||||||
<MainSource>BaseD10.dpk</MainSource>
|
<MainSource>BaseD10.dpk</MainSource>
|
||||||
@ -39,12 +40,6 @@
|
|||||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">True</Package_Options></Package_Options><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">True</Package_Options></Package_Options><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||||
|
|||||||
@ -1,15 +1,14 @@
|
|||||||
program AdminPV;
|
program AdminPV;
|
||||||
|
|
||||||
uses
|
uses
|
||||||
|
ExceptionLog,
|
||||||
Forms,
|
Forms,
|
||||||
uLoginForm,
|
uLoginForm,
|
||||||
uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal},
|
uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal},
|
||||||
uMenuUtils in 'uMenuUtils.pas',
|
uMenuUtils in 'uMenuUtils.pas',
|
||||||
uSplash in 'uSplash.pas' {SplashScreen},
|
uSplash in 'uSplash.pas' {SplashScreen},
|
||||||
uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
|
uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
|
||||||
uIntegerList in '..\Base\uIntegerList.pas',
|
uIntegerList in '..\Base\uIntegerList.pas';
|
||||||
schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas',
|
|
||||||
schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas';
|
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
|
|
||||||
|
|||||||
@ -1,78 +1,96 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{c1d52109-a098-45a1-97ed-37902144cf8a}</ProjectGuid>
|
<ProjectGuid>{c1d52109-a098-45a1-97ed-37902144cf8a}</ProjectGuid>
|
||||||
<MainSource>AdminPV.dpr</MainSource>
|
<MainSource>AdminPV.dpr</MainSource>
|
||||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Cliente\AdminPV.exe</DCC_DependencyCheckOutputName>
|
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Cliente\AdminPV.exe</DCC_DependencyCheckOutputName>
|
||||||
<DCC_EnabledPackages>true</DCC_EnabledPackages>
|
<DCC_EnabledPackages>true</DCC_EnabledPackages>
|
||||||
<DCC_UsePackage>BaseD10;Configuracion;ControlesBaseD10;Usuarios;FicherosEDI;VentasProceso;VentasTerminadas;ReferenciaGenerica</DCC_UsePackage>
|
<DCC_UsePackage>BaseD10;Configuracion;ControlesBaseD10;Usuarios;FicherosEDI;VentasProceso;VentasTerminadas;ReferenciaGenerica</DCC_UsePackage>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
<Version>7.0</Version>
|
<Version>7.0</Version>
|
||||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
<DCC_Define>RELEASE</DCC_Define>
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
<DCC_ExeOutput>..\..\Output\Release\Cliente</DCC_ExeOutput>
|
<DCC_ExeOutput>..\..\Output\Release\Cliente</DCC_ExeOutput>
|
||||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
<DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
|
<DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
|
||||||
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
|
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
|
||||||
<DCC_ObjPath>..\Lib</DCC_ObjPath>
|
<DCC_ObjPath>..\Lib</DCC_ObjPath>
|
||||||
<DCC_IncludePath>..\Lib</DCC_IncludePath>
|
<DCC_IncludePath>..\Lib</DCC_IncludePath>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
<Version>7.0</Version>
|
<Version>7.0</Version>
|
||||||
<DCC_Define>DEBUG</DCC_Define>
|
<DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
|
||||||
<DCC_ExeOutput>..\..\Output\Debug\Cliente</DCC_ExeOutput>
|
<DCC_ExeOutput>..\..\Output\Debug\Cliente</DCC_ExeOutput>
|
||||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
<DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
|
<DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
|
||||||
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
|
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
|
||||||
<DCC_ObjPath>..\Lib</DCC_ObjPath>
|
<DCC_ObjPath>..\Lib</DCC_ObjPath>
|
||||||
<DCC_IncludePath>..\Lib</DCC_IncludePath>
|
<DCC_IncludePath>..\Lib</DCC_IncludePath>
|
||||||
</PropertyGroup>
|
<DCC_MapFile>3</DCC_MapFile>
|
||||||
<ProjectExtensions>
|
</PropertyGroup>
|
||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<ProjectExtensions>
|
||||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<BorlandProject>
|
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
|
||||||
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
|
|
||||||
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
|
|
||||||
</Excluded_Packages><Source><Source Name="MainSource">AdminPV.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
|
||||||
</ProjectExtensions>
|
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
|
||||||
<ItemGroup>
|
|
||||||
<DelphiCompile Include="AdminPV.dpr">
|
|
||||||
<MainSource>MainSource</MainSource>
|
|
||||||
</DelphiCompile>
|
|
||||||
<DCCReference Include="..\Base\uIntegerList.pas"/>
|
|
||||||
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas"/>
|
|
||||||
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas"/>
|
|
||||||
<DCCReference Include="uAcercaDe.pas">
|
|
||||||
<Form>fAcercaDe</Form>
|
|
||||||
</DCCReference>
|
|
||||||
<DCCReference Include="uMenuUtils.pas"/>
|
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||||
<DCCReference Include="uPantallaPrincipal.pas">
|
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||||
<Form>fPantallaPrincipal</Form>
|
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||||
</DCCReference>
|
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||||
<DCCReference Include="uSplash.pas">
|
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
|
||||||
<Form>SplashScreen</Form>
|
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
|
||||||
</DCCReference>
|
</Excluded_Packages><Source><Source Name="MainSource">AdminPV.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
</ItemGroup>
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="AdminPV.dpr">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\Base\uIntegerList.pas" />
|
||||||
|
<DCCReference Include="uAcercaDe.pas">
|
||||||
|
<Form>fAcercaDe</Form>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uMenuUtils.pas" />
|
||||||
|
<DCCReference Include="uPantallaPrincipal.pas">
|
||||||
|
<Form>fPantallaPrincipal</Form>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uSplash.pas">
|
||||||
|
<Form>SplashScreen</Form>
|
||||||
|
</DCCReference>
|
||||||
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=6006
|
EurekaLog Version=6006
|
||||||
Activate=0
|
Activate=1
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
Foreground Tab=0
|
Foreground Tab=0
|
||||||
@ -550,5 +568,5 @@ Count mtException_AntiFreeze=1
|
|||||||
mtException_AntiFreeze0="The application seems to be frozen."
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
Count mtInvalidEmailMsg=1
|
Count mtInvalidEmailMsg=1
|
||||||
mtInvalidEmailMsg0="Invalid email."
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
TextsCollection=English
|
TextsCollection=
|
||||||
EurekaLog Last Line -->
|
EurekaLog Last Line -->
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
/* VER180
|
/* VER185
|
||||||
Generated by the Borland Delphi Pascal Compiler
|
Generated by the CodeGear Delphi Pascal Compiler
|
||||||
because -GD or --drc was supplied to the compiler.
|
because -GD or --drc was supplied to the compiler.
|
||||||
|
|
||||||
This file contains compiler-generated resources that
|
This file contains compiler-generated resources that
|
||||||
@ -12,3 +12,12 @@ STRINGTABLE
|
|||||||
BEGIN
|
BEGIN
|
||||||
END
|
END
|
||||||
|
|
||||||
|
/* C:\Archivos de programa\EurekaLog 6\Delphi11\DIALOG.RES */
|
||||||
|
/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
|
||||||
|
/* c:\varela_d2007\lib\jvcl\JvXPCore.res */
|
||||||
|
/* c:\varela_d2007\lib\jvcl\JvXPBar.res */
|
||||||
|
/* C:\Varela_D2007\Source\Cliente\uSplash.dfm */
|
||||||
|
/* C:\Varela_D2007\Source\Cliente\uAcercaDe.dfm */
|
||||||
|
/* C:\Varela_D2007\Source\Cliente\uPantallaPrincipal.dfm */
|
||||||
|
/* C:\Varela_D2007\Source\Cliente\AdminPV.res */
|
||||||
|
/* C:\Varela_D2007\Source\Cliente\AdminPV.drf */
|
||||||
|
|||||||
Binary file not shown.
@ -61,7 +61,7 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
|
|||||||
end
|
end
|
||||||
object JvTabBar1: TJvTabBar [3]
|
object JvTabBar1: TJvTabBar [3]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 204
|
Top = 76
|
||||||
Width = 901
|
Width = 901
|
||||||
Height = 29
|
Height = 29
|
||||||
Cursor = crHandPoint
|
Cursor = crHandPoint
|
||||||
@ -85,9 +85,9 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
|
|||||||
end
|
end
|
||||||
inline frViewListaDevoluciones1: TfrViewListaDevoluciones [4]
|
inline frViewListaDevoluciones1: TfrViewListaDevoluciones [4]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 233
|
Top = 105
|
||||||
Width = 901
|
Width = 901
|
||||||
Height = 385
|
Height = 513
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -97,14 +97,15 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 233
|
ExplicitTop = 105
|
||||||
ExplicitWidth = 901
|
ExplicitWidth = 901
|
||||||
ExplicitHeight = 385
|
ExplicitHeight = 513
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 901
|
Width = 901
|
||||||
Height = 385
|
Height = 453
|
||||||
|
ExplicitTop = 60
|
||||||
ExplicitWidth = 901
|
ExplicitWidth = 901
|
||||||
ExplicitHeight = 385
|
ExplicitHeight = 453
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
PopupMenu = GridPopupMenu
|
PopupMenu = GridPopupMenu
|
||||||
DataController.Summary.DefaultGroupSummaryItems = <
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
@ -124,84 +125,37 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
ExplicitWidth = 901
|
||||||
|
inherited frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
|
ExplicitHeight = 41
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
inherited ccbCentro: TJvCheckedComboBox
|
||||||
|
Width = 392
|
||||||
|
ExplicitWidth = 392
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXLabel1: TTBXLabel
|
||||||
|
Width = 901
|
||||||
|
ExplicitWidth = 901
|
||||||
|
ExplicitHeight = 19
|
||||||
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
|
Width = 476
|
||||||
|
ExplicitHeight = 41
|
||||||
|
inherited TBXButton3: TTBXButton
|
||||||
|
Action = actRefrescar
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
inherited dxComponentPrinterLink1: TdxGridReportLink
|
inherited dxComponentPrinterLink1: TdxGridReportLink
|
||||||
BuiltInReportLink = True
|
BuiltInReportLink = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXDockablePanel1: TTBXDockablePanel [5]
|
inherited EditorActionList: TActionList [5]
|
||||||
Left = 0
|
|
||||||
Top = 76
|
|
||||||
MaxClientHeight = 61
|
|
||||||
Align = alTop
|
|
||||||
Caption = 'TBXDockablePanel1'
|
|
||||||
FloatingWidth = 128
|
|
||||||
FloatingHeight = 128
|
|
||||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
|
||||||
TabOrder = 5
|
|
||||||
inline frViewParametrosCentro1: TfrViewParametrosCentro
|
|
||||||
Left = 0
|
|
||||||
Top = 19
|
|
||||||
Width = 425
|
|
||||||
Height = 109
|
|
||||||
Align = alLeft
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 19
|
|
||||||
ExplicitWidth = 425
|
|
||||||
ExplicitHeight = 109
|
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
|
||||||
Width = 425
|
|
||||||
ExplicitWidth = 425
|
|
||||||
inherited ccbCentro: TJvCheckedComboBox
|
|
||||||
Width = 392
|
|
||||||
ExplicitWidth = 392
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object TBXLabel1: TTBXLabel
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
Width = 901
|
|
||||||
Height = 19
|
|
||||||
Margins.Left = 5
|
|
||||||
Margins.Top = 5
|
|
||||||
Align = alTop
|
|
||||||
Caption = 'Par'#225'metros de consulta'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'MS Sans Serif'
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentColor = True
|
|
||||||
ParentFont = False
|
|
||||||
Underline = True
|
|
||||||
end
|
|
||||||
object pnlAgrupaciones: TTBXAlignmentPanel
|
|
||||||
Left = 425
|
|
||||||
Top = 19
|
|
||||||
Width = 476
|
|
||||||
Height = 109
|
|
||||||
Align = alClient
|
|
||||||
AutoSize = True
|
|
||||||
TabOrder = 2
|
|
||||||
object TBXButton3: TTBXButton
|
|
||||||
Tag = 3
|
|
||||||
Left = 8
|
|
||||||
Top = 10
|
|
||||||
Width = 90
|
|
||||||
Height = 21
|
|
||||||
Action = actRefrescar
|
|
||||||
AutoSize = False
|
|
||||||
Caption = 'Consultar'
|
|
||||||
ImageIndex = 0
|
|
||||||
TabOrder = 0
|
|
||||||
Wrapping = twEndEllipsis
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited EditorActionList: TActionList [6]
|
|
||||||
inherited actNuevo: TAction
|
inherited actNuevo: TAction
|
||||||
Enabled = False
|
Enabled = False
|
||||||
Visible = False
|
Visible = False
|
||||||
@ -258,7 +212,7 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
|
|||||||
OnUpdate = actAprobadoUpdate
|
OnUpdate = actAprobadoUpdate
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited SmallImages: TPngImageList [7]
|
inherited SmallImages: TPngImageList [6]
|
||||||
PngImages = <
|
PngImages = <
|
||||||
item
|
item
|
||||||
PngImage.Data = {
|
PngImage.Data = {
|
||||||
@ -838,7 +792,7 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
|
|||||||
end>
|
end>
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
inherited LargeImages: TPngImageList [8]
|
inherited LargeImages: TPngImageList [7]
|
||||||
PngImages = <
|
PngImages = <
|
||||||
item
|
item
|
||||||
PngImage.Data = {
|
PngImage.Data = {
|
||||||
@ -1659,11 +1613,11 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
|
|||||||
end>
|
end>
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
inherited JvFormStorage: TJvFormStorage [9]
|
inherited JvFormStorage: TJvFormStorage [8]
|
||||||
end
|
end
|
||||||
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
|
||||||
end
|
end
|
||||||
inherited dsDataTable: TDADataSource [11]
|
inherited dsDataTable: TDADataSource [10]
|
||||||
Top = 136
|
Top = 136
|
||||||
end
|
end
|
||||||
inherited GridPopupMenu: TPopupMenu
|
inherited GridPopupMenu: TPopupMenu
|
||||||
|
|||||||
@ -43,11 +43,6 @@ type
|
|||||||
TBXItem37: TTBXItem;
|
TBXItem37: TTBXItem;
|
||||||
actAprobado: TAction;
|
actAprobado: TAction;
|
||||||
frViewListaDevoluciones1: TfrViewListaDevoluciones;
|
frViewListaDevoluciones1: TfrViewListaDevoluciones;
|
||||||
TBXDockablePanel1: TTBXDockablePanel;
|
|
||||||
frViewParametrosCentro1: TfrViewParametrosCentro;
|
|
||||||
TBXLabel1: TTBXLabel;
|
|
||||||
pnlAgrupaciones: TTBXAlignmentPanel;
|
|
||||||
TBXButton3: TTBXButton;
|
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
||||||
procedure actModificarExecute(Sender: TObject);
|
procedure actModificarExecute(Sender: TObject);
|
||||||
@ -100,7 +95,7 @@ begin
|
|||||||
if Assigned(FItems) then
|
if Assigned(FItems) then
|
||||||
begin
|
begin
|
||||||
dsDataTable.DataTable := FItems.DataTable;
|
dsDataTable.DataTable := FItems.DataTable;
|
||||||
frViewListaDevoluciones1.dsDataSource.DataTable := FItems.DataTable;
|
frViewListaDevoluciones1.Items := FItems;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -113,45 +108,15 @@ begin
|
|||||||
if not Assigned(ViewGrid) then
|
if not Assigned(ViewGrid) then
|
||||||
raise Exception.Create('No hay una vista asignada');
|
raise Exception.Create('No hay una vista asignada');
|
||||||
|
|
||||||
frViewParametrosCentro1.Refresh;
|
|
||||||
|
|
||||||
with (ViewGrid as IViewListaDevoluciones) do
|
with (ViewGrid as IViewListaDevoluciones) do
|
||||||
VerPendientes;
|
VerPendientes;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaDevoluciones.JvTabBar1TabSelected(
|
procedure TfEditorListaDevoluciones.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
||||||
Sender: TObject; Item: TJvTabBarItem);
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
if Items.DataTable.Active then
|
||||||
ShowHourglassCursor;
|
Items.DataTable.Active := False;
|
||||||
|
frViewListaDevoluciones1.frViewParametrosCentro1.LimpiarSeleccion;
|
||||||
Items.DataTable.Active := False;
|
|
||||||
|
|
||||||
Application.ProcessMessages;
|
|
||||||
ViewGrid._FocusedView.BeginUpdate;
|
|
||||||
Application.ProcessMessages;
|
|
||||||
try
|
|
||||||
case Item.Index of
|
|
||||||
0 : begin
|
|
||||||
Items := dmDevoluciones.GetItems(tidPendiente);
|
|
||||||
(ViewGrid as IViewListaDevoluciones).VerPendientes;
|
|
||||||
end;
|
|
||||||
|
|
||||||
1 : begin
|
|
||||||
Items := dmDevoluciones.GetItems(tidAprobado);
|
|
||||||
(ViewGrid as IViewListaDevoluciones).VerAprobados;
|
|
||||||
end;
|
|
||||||
|
|
||||||
2 : begin
|
|
||||||
Items := dmDevoluciones.GetItems;
|
|
||||||
(ViewGrid as IViewListaDevoluciones).VerTodos;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
dsDataTable.DataTable := Items.DataTable;
|
|
||||||
ViewGrid._FocusedView.EndUpdate;
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaDevoluciones.actModificarExecute(
|
procedure TfEditorListaDevoluciones.actModificarExecute(
|
||||||
@ -216,57 +181,40 @@ begin
|
|||||||
not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable))
|
not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable))
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaDevoluciones.actRefrescarExecute(
|
procedure TfEditorListaDevoluciones.actRefrescarExecute(Sender: TObject);
|
||||||
Sender: TObject);
|
|
||||||
var
|
|
||||||
ACentrosList : TStringList;
|
|
||||||
AWhere : String;
|
|
||||||
i : integer;
|
|
||||||
begin
|
begin
|
||||||
// BEGIN Adaptación a DA5
|
|
||||||
{case (ViewGrid as IViewListaDevoluciones).VistaActiva of
|
|
||||||
tdvaPendiente,
|
|
||||||
tdvaAprobado : AWhere := ' and'
|
|
||||||
else
|
|
||||||
AWhere := '';
|
|
||||||
end;}
|
|
||||||
AWhere := '';
|
|
||||||
// END Adaptación a DA5
|
|
||||||
|
|
||||||
AWhere := AWhere + ' CENTRO in (';
|
|
||||||
|
|
||||||
Items.DataTable.Active := False;
|
|
||||||
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
|
|
||||||
|
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
|
Items.DataTable.Active := False;
|
||||||
|
Application.ProcessMessages;
|
||||||
|
ViewGrid._FocusedView.BeginUpdate;
|
||||||
|
Application.ProcessMessages;
|
||||||
try
|
try
|
||||||
if ACentrosList.Count = 0 then
|
case JvTabBar1.SelectedTab.Index of
|
||||||
ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.')
|
0 : begin
|
||||||
else begin
|
Items := dmDevoluciones.GetItems(tidPendiente);
|
||||||
with Items.DataTable.Where do
|
(ViewGrid as IViewListaDevoluciones).VerPendientes;
|
||||||
begin
|
end;
|
||||||
Clear;
|
|
||||||
for i := 0 to ACentrosList.Count - 1 do
|
|
||||||
begin
|
|
||||||
if i > 0 then
|
|
||||||
AWhere := AWhere + ', ';
|
|
||||||
AWhere := AWhere + '''' + ACentrosList[i] + '''';
|
|
||||||
end;
|
|
||||||
AWhere := AWhere + ')';
|
|
||||||
|
|
||||||
AddText(AWhere);
|
1 : begin
|
||||||
end;
|
Items := dmDevoluciones.GetItems(tidAprobado);
|
||||||
Items.DataTable.Active := True;
|
(ViewGrid as IViewListaDevoluciones).VerAprobados;
|
||||||
|
end;
|
||||||
|
|
||||||
|
2 : begin
|
||||||
|
Items := dmDevoluciones.GetItems;
|
||||||
|
(ViewGrid as IViewListaDevoluciones).VerTodos;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
frViewListaDevoluciones1.Refresh;
|
||||||
|
inherited;
|
||||||
|
|
||||||
finally
|
finally
|
||||||
|
ViewGrid._FocusedView.EndUpdate;
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
FreeAndNIL(ACentrosList);
|
ViewGrid.ExpandirTodo;
|
||||||
|
ViewGrid.GotoFirst;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
inherited;
|
|
||||||
|
|
||||||
ViewGrid.ExpandirTodo;
|
|
||||||
ViewGrid.GotoFirst;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaDevoluciones.actPendienteExecute(
|
procedure TfEditorListaDevoluciones.actPendienteExecute(
|
||||||
|
|||||||
@ -1,9 +1,14 @@
|
|||||||
inherited frViewListaDevoluciones: TfrViewListaDevoluciones
|
inherited frViewListaDevoluciones: TfrViewListaDevoluciones
|
||||||
Width = 466
|
Width = 466
|
||||||
Height = 477
|
Height = 477
|
||||||
|
ExplicitWidth = 466
|
||||||
|
ExplicitHeight = 477
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
|
Top = 60
|
||||||
Width = 466
|
Width = 466
|
||||||
Height = 477
|
Height = 417
|
||||||
|
ExplicitWidth = 466
|
||||||
|
ExplicitHeight = 477
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
OnMouseDown = cxGridViewMouseDown
|
OnMouseDown = cxGridViewMouseDown
|
||||||
FilterBox.Visible = fvNever
|
FilterBox.Visible = fvNever
|
||||||
@ -291,6 +296,82 @@ inherited frViewListaDevoluciones: TfrViewListaDevoluciones
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object TBXDockablePanel1: TTBXDockablePanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
MaxClientHeight = 61
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'TBXDockablePanel1'
|
||||||
|
DockedWidth = 32
|
||||||
|
DockedHeight = 32
|
||||||
|
FloatingWidth = 128
|
||||||
|
FloatingHeight = 60
|
||||||
|
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||||
|
TabOrder = 1
|
||||||
|
inline frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
|
Left = 0
|
||||||
|
Top = 19
|
||||||
|
Width = 425
|
||||||
|
Height = 41
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 0
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 19
|
||||||
|
ExplicitWidth = 425
|
||||||
|
ExplicitHeight = 109
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 425
|
||||||
|
ExplicitWidth = 425
|
||||||
|
inherited ccbCentro: TJvCheckedComboBox
|
||||||
|
Width = 392
|
||||||
|
ExplicitWidth = 392
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object TBXLabel1: TTBXLabel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 466
|
||||||
|
Height = 19
|
||||||
|
Margins.Left = 5
|
||||||
|
Margins.Top = 5
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Par'#225'metros de consulta'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = True
|
||||||
|
ParentFont = False
|
||||||
|
Underline = True
|
||||||
|
ExplicitWidth = 128
|
||||||
|
ExplicitHeight = 32
|
||||||
|
end
|
||||||
|
object pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
|
Left = 425
|
||||||
|
Top = 19
|
||||||
|
Width = 41
|
||||||
|
Height = 41
|
||||||
|
Align = alClient
|
||||||
|
AutoSize = True
|
||||||
|
TabOrder = 2
|
||||||
|
ExplicitWidth = 476
|
||||||
|
ExplicitHeight = 109
|
||||||
|
object TBXButton3: TTBXButton
|
||||||
|
Tag = 3
|
||||||
|
Left = 8
|
||||||
|
Top = 10
|
||||||
|
Width = 90
|
||||||
|
Height = 21
|
||||||
|
AutoSize = False
|
||||||
|
Caption = 'Consultar'
|
||||||
|
ImageIndex = 0
|
||||||
|
TabOrder = 0
|
||||||
|
Wrapping = twEndEllipsis
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited dsDataSource: TDADataSource
|
inherited dsDataSource: TDADataSource
|
||||||
Top = 120
|
Top = 120
|
||||||
end
|
end
|
||||||
|
|||||||
@ -20,7 +20,8 @@ uses
|
|||||||
dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit,
|
dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit,
|
||||||
cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView,
|
cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView,
|
||||||
cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList,
|
cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList,
|
||||||
dxPScxCommon, dxPScxGridLnk, cxMemo;
|
dxPScxCommon, dxPScxGridLnk, cxMemo, TBXDkPanels, uCustomView, uViewBase,
|
||||||
|
uViewParametrosControlGrid, uViewParametrosCentro, TB2Dock, uDAInterfaces;
|
||||||
|
|
||||||
type
|
type
|
||||||
TvDevolucionesVistaActiva = (tdvaPendiente, tdvaAprobado, tdvaTodos);
|
TvDevolucionesVistaActiva = (tdvaPendiente, tdvaAprobado, tdvaTodos);
|
||||||
@ -33,6 +34,10 @@ type
|
|||||||
|
|
||||||
function GetVistaActiva : TvDevolucionesVistaActiva;
|
function GetVistaActiva : TvDevolucionesVistaActiva;
|
||||||
property VistaActiva : TvDevolucionesVistaActiva read GetVistaActiva;
|
property VistaActiva : TvDevolucionesVistaActiva read GetVistaActiva;
|
||||||
|
|
||||||
|
function GetItems: IBizDevoluciones;
|
||||||
|
procedure SetItems(const Value: IBizDevoluciones);
|
||||||
|
property Items: IBizDevoluciones read GetItems write SetItems;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewListaDevoluciones = class(TfrViewGrid, IViewListaDevoluciones)
|
TfrViewListaDevoluciones = class(TfrViewGrid, IViewListaDevoluciones)
|
||||||
@ -82,6 +87,11 @@ type
|
|||||||
cxStyleGroupInforme: TcxStyle;
|
cxStyleGroupInforme: TcxStyle;
|
||||||
cxStyleHeaderInforme: TcxStyle;
|
cxStyleHeaderInforme: TcxStyle;
|
||||||
cxStyleSelectionInforme: TcxStyle;
|
cxStyleSelectionInforme: TcxStyle;
|
||||||
|
TBXDockablePanel1: TTBXDockablePanel;
|
||||||
|
frViewParametrosCentro1: TfrViewParametrosCentro;
|
||||||
|
TBXLabel1: TTBXLabel;
|
||||||
|
pnlAgrupaciones: TTBXAlignmentPanel;
|
||||||
|
TBXButton3: TTBXButton;
|
||||||
procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton;
|
procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton;
|
||||||
Shift: TShiftState; X, Y: Integer);
|
Shift: TShiftState; X, Y: Integer);
|
||||||
procedure cxGridBandedViewRR38GetDisplayText(
|
procedure cxGridBandedViewRR38GetDisplayText(
|
||||||
@ -151,11 +161,18 @@ type
|
|||||||
ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn;
|
ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn;
|
||||||
AnItem: TAbstractdxReportCellData);
|
AnItem: TAbstractdxReportCellData);
|
||||||
protected
|
protected
|
||||||
|
FItems: IBizDevoluciones;
|
||||||
FTipo : String;
|
FTipo : String;
|
||||||
FNivelFiltrado : TcxFilterCriteriaItemList;
|
FNivelFiltrado : TcxFilterCriteriaItemList;
|
||||||
procedure FilterChanged(Sender: TObject); override;
|
procedure FilterChanged(Sender: TObject); override;
|
||||||
function GetVistaActiva : TvDevolucionesVistaActiva;
|
function GetVistaActiva : TvDevolucionesVistaActiva;
|
||||||
|
function GetItems: IBizDevoluciones;
|
||||||
|
procedure SetItems(const Value: IBizDevoluciones);
|
||||||
|
|
||||||
public
|
public
|
||||||
|
property Items: IBizDevoluciones read GetItems write SetItems;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
procedure Preview; override;
|
procedure Preview; override;
|
||||||
procedure Print; override;
|
procedure Print; override;
|
||||||
procedure PrintSetup; override;
|
procedure PrintSetup; override;
|
||||||
@ -163,6 +180,7 @@ type
|
|||||||
procedure VerAprobados;
|
procedure VerAprobados;
|
||||||
procedure VerTodos;
|
procedure VerTodos;
|
||||||
property VistaActiva : TvDevolucionesVistaActiva read GetVistaActiva;
|
property VistaActiva : TvDevolucionesVistaActiva read GetVistaActiva;
|
||||||
|
procedure Refresh;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -448,6 +466,13 @@ begin
|
|||||||
FOnDblClick(Sender);
|
FOnDblClick(Sender);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewListaDevoluciones.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FItems := Nil;
|
||||||
|
frViewParametrosCentro1.Refresh;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaDevoluciones.cxGridBandedViewCODIGOGetDataText(
|
procedure TfrViewListaDevoluciones.cxGridBandedViewCODIGOGetDataText(
|
||||||
Sender: TcxCustomGridTableItem; ARecordIndex: Integer;
|
Sender: TcxCustomGridTableItem; ARecordIndex: Integer;
|
||||||
var AText: String);
|
var AText: String);
|
||||||
@ -479,6 +504,12 @@ begin
|
|||||||
AStyle := cxStyle1;
|
AStyle := cxStyle1;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewListaDevoluciones.Destroy;
|
||||||
|
begin
|
||||||
|
FItems := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaDevoluciones.Preview;
|
procedure TfrViewListaDevoluciones.Preview;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
@ -497,6 +528,64 @@ begin
|
|||||||
dxComponentPrinterLink1.PageSetup
|
dxComponentPrinterLink1.PageSetup
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaDevoluciones.Refresh;
|
||||||
|
var
|
||||||
|
ACentrosList : TStringList;
|
||||||
|
AWhereCentro : String;
|
||||||
|
AWhere : String;
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
ACentrosList := Nil;
|
||||||
|
|
||||||
|
if Assigned(FItems) then
|
||||||
|
Items.DataTable.Active := False;
|
||||||
|
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if Assigned(ACentrosList) then
|
||||||
|
begin
|
||||||
|
AWhereCentro := '';
|
||||||
|
if ACentrosList.Count = 0 then
|
||||||
|
begin
|
||||||
|
ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.');
|
||||||
|
Exit;
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
AWhereCentro := AWhereCentro + ' FILIAL in (';
|
||||||
|
for i := 0 to ACentrosList.Count - 1 do
|
||||||
|
begin
|
||||||
|
if i > 0 then
|
||||||
|
AWhereCentro := AWhereCentro + ', ';
|
||||||
|
AWhereCentro := AWhereCentro + '''' + ACentrosList[i] + '''';
|
||||||
|
end;
|
||||||
|
AWhereCentro := AWhereCentro + ')';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
AWhere := '';
|
||||||
|
if AWhereCentro <> '' then
|
||||||
|
begin
|
||||||
|
AWhere := AWhere + AWhereCentro;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Items.DataTable.Where.Clear;
|
||||||
|
Items.DataTable.Where.AddText(AWhere, False);
|
||||||
|
Items.DataTable.Active := True;
|
||||||
|
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
FreeAndNIL(ACentrosList);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaDevoluciones.SetItems(const Value: IBizDevoluciones);
|
||||||
|
begin
|
||||||
|
FItems := Value;
|
||||||
|
if Assigned(FItems) then
|
||||||
|
dsDataSource.DataTable := FItems.DataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaDevoluciones.cxGridViewCODIGOGetDataText(
|
procedure TfrViewListaDevoluciones.cxGridViewCODIGOGetDataText(
|
||||||
Sender: TcxCustomGridTableItem; ARecordIndex: Integer;
|
Sender: TcxCustomGridTableItem; ARecordIndex: Integer;
|
||||||
var AText: String);
|
var AText: String);
|
||||||
@ -595,6 +684,11 @@ begin
|
|||||||
cxGridView.DataController.Filter.EndUpdate;
|
cxGridView.DataController.Filter.EndUpdate;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TfrViewListaDevoluciones.GetItems: IBizDevoluciones;
|
||||||
|
begin
|
||||||
|
Result := FItems;
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrViewListaDevoluciones.GetVistaActiva: TvDevolucionesVistaActiva;
|
function TfrViewListaDevoluciones.GetVistaActiva: TvDevolucionesVistaActiva;
|
||||||
begin
|
begin
|
||||||
if FTipo = 'N' then
|
if FTipo = 'N' then
|
||||||
|
|||||||
@ -3,7 +3,7 @@ unit uViewParametrosCentro;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, dxLayoutControl, StdCtrls, Mask, JvExMask, JvToolEdit,
|
Dialogs, dxLayoutControl, StdCtrls, Mask, JvExMask, JvToolEdit,
|
||||||
JvCombobox, cxControls, uViewParametrosControlGrid, TBXDkPanels,
|
JvCombobox, cxControls, uViewParametrosControlGrid, TBXDkPanels,
|
||||||
uBizParametros;
|
uBizParametros;
|
||||||
@ -14,6 +14,8 @@ type
|
|||||||
|
|
||||||
function GetCentrosSeleccionados: TStringList;
|
function GetCentrosSeleccionados: TStringList;
|
||||||
property CentrosSeleccionados : TStringList read GetCentrosSeleccionados;
|
property CentrosSeleccionados : TStringList read GetCentrosSeleccionados;
|
||||||
|
function GetCodigoCentrosSeleccionados: TStringList;
|
||||||
|
property CodigoCentrosSeleccionados : TStringList read GetCodigoCentrosSeleccionados;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewParametrosCentro = class(TfrViewParametrosControlGrid, IViewParametrosCentro)
|
TfrViewParametrosCentro = class(TfrViewParametrosControlGrid, IViewParametrosCentro)
|
||||||
@ -25,10 +27,13 @@ type
|
|||||||
FCentros : IBizCentros;
|
FCentros : IBizCentros;
|
||||||
procedure RellenarListaCentros;
|
procedure RellenarListaCentros;
|
||||||
function GetCentrosSeleccionados: TStringList;
|
function GetCentrosSeleccionados: TStringList;
|
||||||
|
function GetCodigoCentrosSeleccionados: TStringList;
|
||||||
public
|
public
|
||||||
procedure Execute; override;
|
procedure Execute; override;
|
||||||
procedure Refresh; override;
|
procedure Refresh; override;
|
||||||
property CentrosSeleccionados : TStringList read GetCentrosSeleccionados;
|
property CentrosSeleccionados : TStringList read GetCentrosSeleccionados;
|
||||||
|
property CodigoCentrosSeleccionados : TStringList read GetCodigoCentrosSeleccionados;
|
||||||
|
procedure LimpiarSeleccion;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -55,12 +60,34 @@ begin
|
|||||||
for i := 0 to ccbCentro.Items.Count - 1 do
|
for i := 0 to ccbCentro.Items.Count - 1 do
|
||||||
begin
|
begin
|
||||||
if ccbCentro.Checked[i] then
|
if ccbCentro.Checked[i] then
|
||||||
// Result.Add(FCentros.CODBARRA);
|
|
||||||
Result.Add(FCentros.FILIAL);
|
Result.Add(FCentros.FILIAL);
|
||||||
FCentros.DataTable.Next;
|
FCentros.DataTable.Next;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TfrViewParametrosCentro.GetCodigoCentrosSeleccionados: TStringList;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
Result := TStringList.Create;
|
||||||
|
|
||||||
|
FCentros.DataTable.First;
|
||||||
|
for i := 0 to ccbCentro.Items.Count - 1 do
|
||||||
|
begin
|
||||||
|
if ccbCentro.Checked[i] then
|
||||||
|
Result.Add(FCentros.CODBARRA);
|
||||||
|
FCentros.DataTable.Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewParametrosCentro.LimpiarSeleccion;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
for i := 0 to ccbCentro.Items.Count - 1 do
|
||||||
|
ccbCentro.Checked[i] := False;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewParametrosCentro.Refresh;
|
procedure TfrViewParametrosCentro.Refresh;
|
||||||
begin
|
begin
|
||||||
// inherited; <- no descomentar
|
// inherited; <- no descomentar
|
||||||
|
|||||||
@ -61,7 +61,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
|
|||||||
end
|
end
|
||||||
object JvTabBar1: TJvTabBar [3]
|
object JvTabBar1: TJvTabBar [3]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 137
|
Top = 76
|
||||||
Width = 816
|
Width = 816
|
||||||
Height = 29
|
Height = 29
|
||||||
Cursor = crHandPoint
|
Cursor = crHandPoint
|
||||||
@ -82,13 +82,12 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
|
|||||||
Caption = 'Todos'
|
Caption = 'Todos'
|
||||||
end>
|
end>
|
||||||
OnTabSelected = JvTabBar1TabSelected
|
OnTabSelected = JvTabBar1TabSelected
|
||||||
ExplicitTop = 204
|
|
||||||
end
|
end
|
||||||
inline frViewListaRecepciones1: TfrViewListaRecepciones [4]
|
inline frViewListaRecepciones1: TfrViewListaRecepciones [4]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 166
|
Top = 105
|
||||||
Width = 816
|
Width = 816
|
||||||
Height = 479
|
Height = 540
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -98,14 +97,16 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 233
|
ExplicitTop = 105
|
||||||
ExplicitWidth = 816
|
ExplicitWidth = 816
|
||||||
ExplicitHeight = 412
|
ExplicitHeight = 540
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
|
Top = 60
|
||||||
Width = 816
|
Width = 816
|
||||||
Height = 479
|
Height = 480
|
||||||
|
ExplicitTop = 60
|
||||||
ExplicitWidth = 816
|
ExplicitWidth = 816
|
||||||
ExplicitHeight = 412
|
ExplicitHeight = 480
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
PopupMenu = GridPopupMenu
|
PopupMenu = GridPopupMenu
|
||||||
DataController.Summary.DefaultGroupSummaryItems = <
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
@ -125,86 +126,36 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
DockedWidth = 32
|
||||||
|
DockedHeight = 32
|
||||||
|
FloatingHeight = 60
|
||||||
|
ExplicitWidth = 816
|
||||||
|
ExplicitHeight = 60
|
||||||
|
inherited frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
|
Height = 41
|
||||||
|
ExplicitHeight = 41
|
||||||
|
end
|
||||||
|
inherited TBXLabel1: TTBXLabel
|
||||||
|
Width = 816
|
||||||
|
ExplicitWidth = 816
|
||||||
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
|
Width = 391
|
||||||
|
Height = 41
|
||||||
|
ExplicitHeight = 41
|
||||||
|
inherited TBXButton3: TTBXButton
|
||||||
|
Action = actRefrescar
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
inherited dxComponentPrinterLink1: TdxGridReportLink
|
inherited dxComponentPrinterLink1: TdxGridReportLink
|
||||||
BuiltInReportLink = True
|
BuiltInReportLink = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXDockablePanel1: TTBXDockablePanel [5]
|
inherited EditorActionList: TActionList [5]
|
||||||
Left = 0
|
|
||||||
Top = 76
|
|
||||||
MaxClientHeight = 61
|
|
||||||
Align = alTop
|
|
||||||
Caption = 'TBXDockablePanel1'
|
|
||||||
FloatingWidth = 128
|
|
||||||
FloatingHeight = 128
|
|
||||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
|
||||||
TabOrder = 5
|
|
||||||
inline frViewParametrosCentro1: TfrViewParametrosCentro
|
|
||||||
Left = 0
|
|
||||||
Top = 19
|
|
||||||
Width = 425
|
|
||||||
Height = 109
|
|
||||||
Align = alLeft
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 19
|
|
||||||
ExplicitWidth = 425
|
|
||||||
ExplicitHeight = 109
|
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
|
||||||
Width = 425
|
|
||||||
ExplicitWidth = 425
|
|
||||||
inherited ccbCentro: TJvCheckedComboBox
|
|
||||||
Width = 363
|
|
||||||
ExplicitWidth = 363
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object TBXLabel1: TTBXLabel
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
Width = 816
|
|
||||||
Height = 19
|
|
||||||
Margins.Left = 5
|
|
||||||
Margins.Top = 5
|
|
||||||
Align = alTop
|
|
||||||
Caption = 'Par'#225'metros de consulta'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'MS Sans Serif'
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentColor = True
|
|
||||||
ParentFont = False
|
|
||||||
Underline = True
|
|
||||||
end
|
|
||||||
object pnlAgrupaciones: TTBXAlignmentPanel
|
|
||||||
Left = 425
|
|
||||||
Top = 19
|
|
||||||
Width = 391
|
|
||||||
Height = 109
|
|
||||||
Align = alClient
|
|
||||||
AutoSize = True
|
|
||||||
TabOrder = 2
|
|
||||||
ExplicitLeft = 421
|
|
||||||
ExplicitTop = 25
|
|
||||||
object TBXButton3: TTBXButton
|
|
||||||
Tag = 3
|
|
||||||
Left = 8
|
|
||||||
Top = 10
|
|
||||||
Width = 90
|
|
||||||
Height = 21
|
|
||||||
Action = actRefrescar
|
|
||||||
AutoSize = False
|
|
||||||
Caption = 'Consultar'
|
|
||||||
ImageIndex = 0
|
|
||||||
TabOrder = 0
|
|
||||||
Wrapping = twEndEllipsis
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited EditorActionList: TActionList [6]
|
|
||||||
inherited actNuevo: TAction
|
inherited actNuevo: TAction
|
||||||
Enabled = False
|
Enabled = False
|
||||||
Visible = False
|
Visible = False
|
||||||
@ -261,7 +212,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
|
|||||||
OnUpdate = actAprobadoUpdate
|
OnUpdate = actAprobadoUpdate
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited SmallImages: TPngImageList [7]
|
inherited SmallImages: TPngImageList [6]
|
||||||
PngImages = <
|
PngImages = <
|
||||||
item
|
item
|
||||||
PngImage.Data = {
|
PngImage.Data = {
|
||||||
@ -842,7 +793,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
|
|||||||
Left = 331
|
Left = 331
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
inherited LargeImages: TPngImageList [8]
|
inherited LargeImages: TPngImageList [7]
|
||||||
PngImages = <
|
PngImages = <
|
||||||
item
|
item
|
||||||
PngImage.Data = {
|
PngImage.Data = {
|
||||||
@ -1665,15 +1616,15 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
|
|||||||
Top = 88
|
Top = 88
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
inherited JvFormStorage: TJvFormStorage [9]
|
inherited JvFormStorage: TJvFormStorage [8]
|
||||||
Left = 416
|
Left = 416
|
||||||
Top = 224
|
Top = 224
|
||||||
end
|
end
|
||||||
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
|
||||||
Left = 368
|
Left = 368
|
||||||
Top = 168
|
Top = 168
|
||||||
end
|
end
|
||||||
inherited dsDataTable: TDADataSource [11]
|
inherited dsDataTable: TDADataSource [10]
|
||||||
Top = 136
|
Top = 136
|
||||||
end
|
end
|
||||||
inherited GridPopupMenu: TPopupMenu
|
inherited GridPopupMenu: TPopupMenu
|
||||||
|
|||||||
@ -28,8 +28,7 @@ type
|
|||||||
['{5CF9C341-A9BB-4A42-A132-0145827FBD9C}']
|
['{5CF9C341-A9BB-4A42-A132-0145827FBD9C}']
|
||||||
function GetItems: IBizRecepciones;
|
function GetItems: IBizRecepciones;
|
||||||
procedure SetItems(const Value: IBizRecepciones);
|
procedure SetItems(const Value: IBizRecepciones);
|
||||||
property Items: IBizRecepciones read GetItems
|
property Items: IBizRecepciones read GetItems write SetItems;
|
||||||
write SetItems;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfEditorListaRecepciones = class(TfEditorGridBase, IEditorListaRecepciones)
|
TfEditorListaRecepciones = class(TfEditorGridBase, IEditorListaRecepciones)
|
||||||
@ -45,11 +44,6 @@ type
|
|||||||
TBXItem37: TTBXItem;
|
TBXItem37: TTBXItem;
|
||||||
actAprobado: TAction;
|
actAprobado: TAction;
|
||||||
frViewListaRecepciones1: TfrViewListaRecepciones;
|
frViewListaRecepciones1: TfrViewListaRecepciones;
|
||||||
TBXDockablePanel1: TTBXDockablePanel;
|
|
||||||
frViewParametrosCentro1: TfrViewParametrosCentro;
|
|
||||||
TBXLabel1: TTBXLabel;
|
|
||||||
pnlAgrupaciones: TTBXAlignmentPanel;
|
|
||||||
TBXButton3: TTBXButton;
|
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
||||||
procedure actModificarExecute(Sender: TObject);
|
procedure actModificarExecute(Sender: TObject);
|
||||||
@ -103,7 +97,7 @@ begin
|
|||||||
if Assigned(FItems) then
|
if Assigned(FItems) then
|
||||||
begin
|
begin
|
||||||
dsDataTable.DataTable := FItems.DataTable;
|
dsDataTable.DataTable := FItems.DataTable;
|
||||||
frViewListaRecepciones1.dsDataSource.DataTable := FItems.DataTable;
|
frViewListaRecepciones1.Items := FItems;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -118,44 +112,15 @@ begin
|
|||||||
|
|
||||||
//FItems.DataTable.Active := True;
|
//FItems.DataTable.Active := True;
|
||||||
|
|
||||||
frViewParametrosCentro1.Refresh;
|
|
||||||
with (ViewGrid as IViewListaRecepciones) do
|
with (ViewGrid as IViewListaRecepciones) do
|
||||||
VerPendientes;
|
VerPendientes;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaRecepciones.JvTabBar1TabSelected(
|
procedure TfEditorListaRecepciones.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
||||||
Sender: TObject; Item: TJvTabBarItem);
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
if Items.DataTable.Active then
|
||||||
ShowHourglassCursor;
|
Items.DataTable.Active := False;
|
||||||
|
frViewListaRecepciones1.frViewParametrosCentro1.LimpiarSeleccion;
|
||||||
Items.DataTable.Active := False;
|
|
||||||
|
|
||||||
Application.ProcessMessages;
|
|
||||||
ViewGrid._FocusedView.BeginUpdate;
|
|
||||||
Application.ProcessMessages;
|
|
||||||
try
|
|
||||||
case Item.Index of
|
|
||||||
0 : begin
|
|
||||||
Items := dmRecepciones.GetItems(tirPendiente);
|
|
||||||
(ViewGrid as IViewListaRecepciones).VerPendientes;
|
|
||||||
end;
|
|
||||||
|
|
||||||
1 : begin
|
|
||||||
Items := dmRecepciones.GetItems(tirAprobado);
|
|
||||||
(ViewGrid as IViewListaRecepciones).VerAprobados;
|
|
||||||
end;
|
|
||||||
|
|
||||||
2 : begin
|
|
||||||
Items := dmRecepciones.GetItems;
|
|
||||||
(ViewGrid as IViewListaRecepciones).VerTodos;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
dsDataTable.DataTable := Items.DataTable;
|
|
||||||
ViewGrid._FocusedView.EndUpdate;
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaRecepciones.actModificarExecute(
|
procedure TfEditorListaRecepciones.actModificarExecute(
|
||||||
@ -220,55 +185,39 @@ begin
|
|||||||
not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable))
|
not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable))
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaRecepciones.actRefrescarExecute(
|
procedure TfEditorListaRecepciones.actRefrescarExecute(Sender: TObject);
|
||||||
Sender: TObject);
|
|
||||||
var
|
|
||||||
ACentrosList : TStringList;
|
|
||||||
AWhere : String;
|
|
||||||
i : integer;
|
|
||||||
begin
|
begin
|
||||||
AWhere := '';
|
|
||||||
|
|
||||||
{case (ViewGrid as IViewListaRecepciones).VistaActiva of
|
|
||||||
trvaPendiente,
|
|
||||||
trvaAprobado : AWhere := ' and'
|
|
||||||
else
|
|
||||||
AWhere := '';
|
|
||||||
end;}
|
|
||||||
|
|
||||||
AWhere := AWhere + ' CENTRO in (';
|
|
||||||
|
|
||||||
Items.DataTable.Active := False;
|
|
||||||
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
|
|
||||||
|
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
|
Items.DataTable.Active := False;
|
||||||
|
Application.ProcessMessages;
|
||||||
|
ViewGrid._FocusedView.BeginUpdate;
|
||||||
|
Application.ProcessMessages;
|
||||||
try
|
try
|
||||||
if ACentrosList.Count = 0 then
|
case JvTabBar1.SelectedTab.Index of
|
||||||
ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.')
|
0 : begin
|
||||||
else begin
|
Items := dmRecepciones.GetItems(tirPendiente);
|
||||||
with Items.DataTable.Where do
|
(ViewGrid as IViewListaRecepciones).VerPendientes;
|
||||||
begin
|
end;
|
||||||
Clear;
|
|
||||||
for i := 0 to ACentrosList.Count - 1 do
|
|
||||||
begin
|
|
||||||
if i > 0 then
|
|
||||||
AWhere := AWhere + ', ';
|
|
||||||
AWhere := AWhere + '''' + ACentrosList[i] + '''';
|
|
||||||
end;
|
|
||||||
AWhere := AWhere + ')';
|
|
||||||
AddText(AWhere, False);
|
|
||||||
end;
|
|
||||||
Items.DataTable.Active := True;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
HideHourglassCursor;
|
|
||||||
FreeAndNIL(ACentrosList);
|
|
||||||
end;
|
|
||||||
|
|
||||||
inherited;
|
1 : begin
|
||||||
|
Items := dmRecepciones.GetItems(tirAprobado);
|
||||||
ViewGrid.ExpandirTodo;
|
(ViewGrid as IViewListaRecepciones).VerAprobados;
|
||||||
ViewGrid.GotoFirst;
|
end;
|
||||||
|
|
||||||
|
2 : begin
|
||||||
|
Items := dmRecepciones.GetItems;
|
||||||
|
(ViewGrid as IViewListaRecepciones).VerTodos;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
frViewListaRecepciones1.Refresh;
|
||||||
|
inherited;
|
||||||
|
finally
|
||||||
|
ViewGrid._FocusedView.EndUpdate;
|
||||||
|
HideHourglassCursor;
|
||||||
|
ViewGrid.ExpandirTodo;
|
||||||
|
ViewGrid.GotoFirst;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaRecepciones.actPendienteExecute(
|
procedure TfEditorListaRecepciones.actPendienteExecute(
|
||||||
@ -339,8 +288,8 @@ begin
|
|||||||
finally
|
finally
|
||||||
FItems.DataTable.FreeBookMark(BM);
|
FItems.DataTable.FreeBookMark(BM);
|
||||||
//FItems.DataTable.EnableControls; <- No descomentar
|
//FItems.DataTable.EnableControls; <- No descomentar
|
||||||
ViewGrid._FocusedView.EndUpdate;
|
|
||||||
ViewGrid._FocusedView.Controller.ClearSelection;
|
ViewGrid._FocusedView.Controller.ClearSelection;
|
||||||
|
ViewGrid._FocusedView.EndUpdate;
|
||||||
PostMessage(Handle, CM_SETFOCUSEDRECORD, Integer(ViewGrid._FocusedView),
|
PostMessage(Handle, CM_SETFOCUSEDRECORD, Integer(ViewGrid._FocusedView),
|
||||||
MakeLParam(ViewGrid._FocusedView.Controller.FocusedRowIndex,
|
MakeLParam(ViewGrid._FocusedView.Controller.FocusedRowIndex,
|
||||||
ViewGrid._FocusedView.Controller.TopRowIndex));
|
ViewGrid._FocusedView.Controller.TopRowIndex));
|
||||||
|
|||||||
@ -1,21 +1,27 @@
|
|||||||
inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran
|
inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran
|
||||||
Left = 286
|
Left = 286
|
||||||
Top = 168
|
Top = 168
|
||||||
Width = 850
|
|
||||||
Height = 671
|
|
||||||
Caption = 'Control de '#225'lbaranes'
|
Caption = 'Control de '#225'lbaranes'
|
||||||
|
ClientHeight = 637
|
||||||
|
ClientWidth = 842
|
||||||
|
ExplicitWidth = 850
|
||||||
|
ExplicitHeight = 671
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 842
|
Width = 842
|
||||||
Caption = 'Control de albaranes'
|
Caption = 'Control de albaranes'
|
||||||
|
ExplicitWidth = 842
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 815
|
Left = 815
|
||||||
|
ExplicitLeft = 815
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 842
|
Width = 842
|
||||||
|
ExplicitWidth = 842
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
|
ExplicitWidth = 344
|
||||||
object TBXSeparatorItem16: TTBXSeparatorItem [7]
|
object TBXSeparatorItem16: TTBXSeparatorItem [7]
|
||||||
end
|
end
|
||||||
object tbxiExpandir: TTBXItem [15]
|
object tbxiExpandir: TTBXItem [15]
|
||||||
@ -29,14 +35,20 @@ inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran
|
|||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
ExplicitWidth = 842
|
||||||
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TTBXToolbar
|
||||||
Left = 344
|
Left = 344
|
||||||
DockPos = 344
|
DockPos = 344
|
||||||
|
ExplicitLeft = 344
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TStatusBar
|
inherited StatusBar: TStatusBar
|
||||||
Top = 618
|
Top = 618
|
||||||
Width = 842
|
Width = 842
|
||||||
|
ExplicitTop = 618
|
||||||
|
ExplicitWidth = 842
|
||||||
end
|
end
|
||||||
object JvTabBar1: TJvTabBar [3]
|
object JvTabBar1: TJvTabBar [3]
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -76,9 +88,15 @@ inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
|
ExplicitTop = 105
|
||||||
|
ExplicitWidth = 842
|
||||||
|
ExplicitHeight = 513
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 842
|
Width = 842
|
||||||
Height = 513
|
Height = 453
|
||||||
|
ExplicitTop = 60
|
||||||
|
ExplicitWidth = 842
|
||||||
|
ExplicitHeight = 453
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
inherited cxGridViewESTADOPRODUCTO: TcxGridDBColumn
|
inherited cxGridViewESTADOPRODUCTO: TcxGridDBColumn
|
||||||
Caption = 'Situaci'#243'n'
|
Caption = 'Situaci'#243'n'
|
||||||
@ -94,6 +112,31 @@ inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
ExplicitWidth = 842
|
||||||
|
inherited frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
|
ExplicitHeight = 41
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
inherited ccbCentro: TJvCheckedComboBox
|
||||||
|
Width = 392
|
||||||
|
ExplicitWidth = 392
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXLabel1: TTBXLabel
|
||||||
|
Width = 842
|
||||||
|
ExplicitWidth = 842
|
||||||
|
ExplicitHeight = 19
|
||||||
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
|
Width = 417
|
||||||
|
ExplicitWidth = 417
|
||||||
|
ExplicitHeight = 41
|
||||||
|
inherited TBXButton3: TTBXButton
|
||||||
|
Action = actRefrescar
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
inherited dxComponentPrinterLink1: TdxGridReportLink
|
inherited dxComponentPrinterLink1: TdxGridReportLink
|
||||||
BuiltInReportLink = True
|
BuiltInReportLink = True
|
||||||
|
|||||||
@ -17,7 +17,7 @@ uses
|
|||||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||||
StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock,
|
StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock,
|
||||||
TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, StdCtrls,
|
TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, StdCtrls,
|
||||||
uViewListaRecepcionesAlbaran;
|
uViewListaRecepcionesAlbaran, uDAInterfaces;
|
||||||
|
|
||||||
|
|
||||||
type
|
type
|
||||||
@ -77,10 +77,8 @@ begin
|
|||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
dsDataTable.DataTable := FItems.DataTable;
|
dsDataTable.DataTable := FItems.DataTable;
|
||||||
frViewListaRecepcionesAlbaran1.dsDataSource.DataTable := FItems.DataTable;
|
frViewListaRecepcionesAlbaran1.Items := FItems;
|
||||||
|
|
||||||
if not FItems.DataTable.Active then
|
|
||||||
FItems.DataTable.Active := True;
|
|
||||||
finally
|
finally
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
end;
|
end;
|
||||||
@ -104,41 +102,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaRecepcionesAlbaran.JvTabBar1TabSelected(
|
procedure TfEditorListaRecepcionesAlbaran.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
||||||
Sender: TObject; Item: TJvTabBarItem);
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
ShowHourglassCursor;
|
if Items.DataTable.Active then
|
||||||
Items.DataTable.Active := False;
|
Items.DataTable.Active := False;
|
||||||
Application.ProcessMessages;
|
frViewListaRecepcionesAlbaran1.frViewParametrosCentro1.LimpiarSeleccion;
|
||||||
ViewGrid._FocusedView.BeginUpdate;
|
|
||||||
Application.ProcessMessages;
|
|
||||||
try
|
|
||||||
case Item.Index of
|
|
||||||
0 : begin
|
|
||||||
Items := dmRecepciones.GetItemsAlbaran(tiraPendiente);
|
|
||||||
end;
|
|
||||||
|
|
||||||
1 : begin
|
|
||||||
Items := dmRecepciones.GetItemsAlbaran(tiraRecibido);
|
|
||||||
end;
|
|
||||||
|
|
||||||
2 : begin
|
|
||||||
Items := dmRecepciones.GetItemsAlbaran;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
dsDataTable.DataTable := Items.DataTable;
|
|
||||||
with (ViewGrid as IViewListaRecepcionesAlbaran) do
|
|
||||||
begin
|
|
||||||
ExpandirTodo;
|
|
||||||
AjustarAncho;
|
|
||||||
ContraerTodo;
|
|
||||||
_FocusedView.EndUpdate;
|
|
||||||
GotoFirst;
|
|
||||||
end;
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaRecepcionesAlbaran.actExpandirExecute(
|
procedure TfEditorListaRecepcionesAlbaran.actExpandirExecute(
|
||||||
@ -173,12 +142,41 @@ begin
|
|||||||
(Sender as TAction).Enabled := False;
|
(Sender as TAction).Enabled := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaRecepcionesAlbaran.actRefrescarExecute(
|
procedure TfEditorListaRecepcionesAlbaran.actRefrescarExecute(Sender: TObject);
|
||||||
Sender: TObject);
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
ShowHourglassCursor;
|
||||||
ViewGrid.ContraerTodo;
|
Items.DataTable.Active := False;
|
||||||
ViewGrid.GotoFirst;
|
Application.ProcessMessages;
|
||||||
|
ViewGrid._FocusedView.BeginUpdate;
|
||||||
|
Application.ProcessMessages;
|
||||||
|
try
|
||||||
|
case JvTabBar1.SelectedTab.Index of
|
||||||
|
0 : begin
|
||||||
|
Items := dmRecepciones.GetItemsAlbaran(tiraPendiente);
|
||||||
|
end;
|
||||||
|
|
||||||
|
1 : begin
|
||||||
|
Items := dmRecepciones.GetItemsAlbaran(tiraRecibido);
|
||||||
|
end;
|
||||||
|
|
||||||
|
2 : begin
|
||||||
|
Items := dmRecepciones.GetItemsAlbaran;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
frViewListaRecepcionesAlbaran1.Refresh;
|
||||||
|
inherited;
|
||||||
|
finally
|
||||||
|
with (ViewGrid as IViewListaRecepcionesAlbaran) do
|
||||||
|
begin
|
||||||
|
ExpandirTodo;
|
||||||
|
AjustarAncho;
|
||||||
|
ContraerTodo;
|
||||||
|
_FocusedView.EndUpdate;
|
||||||
|
GotoFirst;
|
||||||
|
end;
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -4,8 +4,9 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
|
|||||||
ExplicitWidth = 695
|
ExplicitWidth = 695
|
||||||
ExplicitHeight = 477
|
ExplicitHeight = 477
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
|
Top = 61
|
||||||
Width = 695
|
Width = 695
|
||||||
Height = 477
|
Height = 416
|
||||||
ExplicitWidth = 695
|
ExplicitWidth = 695
|
||||||
ExplicitHeight = 477
|
ExplicitHeight = 477
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
@ -328,6 +329,83 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object TBXDockablePanel1: TTBXDockablePanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
MaxClientHeight = 61
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'TBXDockablePanel1'
|
||||||
|
FloatingWidth = 128
|
||||||
|
FloatingHeight = 128
|
||||||
|
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||||
|
TabOrder = 1
|
||||||
|
ExplicitTop = 76
|
||||||
|
ExplicitWidth = 128
|
||||||
|
ExplicitHeight = 128
|
||||||
|
inline frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
|
Left = 0
|
||||||
|
Top = 19
|
||||||
|
Width = 425
|
||||||
|
Height = 42
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 0
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 19
|
||||||
|
ExplicitWidth = 425
|
||||||
|
ExplicitHeight = 109
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 425
|
||||||
|
ExplicitWidth = 425
|
||||||
|
inherited ccbCentro: TJvCheckedComboBox
|
||||||
|
Width = 392
|
||||||
|
ExplicitWidth = 392
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object TBXLabel1: TTBXLabel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 695
|
||||||
|
Height = 19
|
||||||
|
Margins.Left = 5
|
||||||
|
Margins.Top = 5
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Par'#225'metros de consulta'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = True
|
||||||
|
ParentFont = False
|
||||||
|
Underline = True
|
||||||
|
ExplicitWidth = 128
|
||||||
|
ExplicitHeight = 32
|
||||||
|
end
|
||||||
|
object pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
|
Left = 425
|
||||||
|
Top = 19
|
||||||
|
Width = 270
|
||||||
|
Height = 42
|
||||||
|
Align = alClient
|
||||||
|
AutoSize = True
|
||||||
|
TabOrder = 2
|
||||||
|
ExplicitWidth = 391
|
||||||
|
ExplicitHeight = 109
|
||||||
|
object TBXButton3: TTBXButton
|
||||||
|
Tag = 3
|
||||||
|
Left = 8
|
||||||
|
Top = 10
|
||||||
|
Width = 90
|
||||||
|
Height = 21
|
||||||
|
AutoSize = False
|
||||||
|
Caption = 'Consultar'
|
||||||
|
ImageIndex = 0
|
||||||
|
TabOrder = 0
|
||||||
|
Wrapping = twEndEllipsis
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited dsDataSource: TDADataSource
|
inherited dsDataSource: TDADataSource
|
||||||
Top = 120
|
Top = 120
|
||||||
end
|
end
|
||||||
|
|||||||
@ -20,7 +20,8 @@ uses
|
|||||||
dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit,
|
dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit,
|
||||||
cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView,
|
cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView,
|
||||||
cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList,
|
cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList,
|
||||||
dxPScxCommon, dxPScxGridLnk, cxMemo, uDAInterfaces;
|
dxPScxCommon, dxPScxGridLnk, cxMemo, uDAInterfaces, TBXDkPanels, uCustomView,
|
||||||
|
uViewBase, uViewParametrosControlGrid, uViewParametrosCentro, TB2Dock;
|
||||||
|
|
||||||
type
|
type
|
||||||
TvRecepcionVistaActiva = (trvaPendiente, trvaAprobado, trvaTodos);
|
TvRecepcionVistaActiva = (trvaPendiente, trvaAprobado, trvaTodos);
|
||||||
@ -33,6 +34,10 @@ type
|
|||||||
|
|
||||||
function GetVistaActiva : TvRecepcionVistaActiva;
|
function GetVistaActiva : TvRecepcionVistaActiva;
|
||||||
property VistaActiva : TvRecepcionVistaActiva read GetVistaActiva;
|
property VistaActiva : TvRecepcionVistaActiva read GetVistaActiva;
|
||||||
|
|
||||||
|
function GetItems: IBizRecepciones;
|
||||||
|
procedure SetItems(const Value: IBizRecepciones);
|
||||||
|
property Items: IBizRecepciones read GetItems write SetItems;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewListaRecepciones = class(TfrViewGrid, IViewListaRecepciones)
|
TfrViewListaRecepciones = class(TfrViewGrid, IViewListaRecepciones)
|
||||||
@ -83,6 +88,11 @@ type
|
|||||||
cxStyleHeaderInforme: TcxStyle;
|
cxStyleHeaderInforme: TcxStyle;
|
||||||
cxStyleSelectionInforme: TcxStyle;
|
cxStyleSelectionInforme: TcxStyle;
|
||||||
cxGridViewColumnOBSERVACIONES: TcxGridDBColumn;
|
cxGridViewColumnOBSERVACIONES: TcxGridDBColumn;
|
||||||
|
TBXDockablePanel1: TTBXDockablePanel;
|
||||||
|
frViewParametrosCentro1: TfrViewParametrosCentro;
|
||||||
|
TBXLabel1: TTBXLabel;
|
||||||
|
pnlAgrupaciones: TTBXAlignmentPanel;
|
||||||
|
TBXButton3: TTBXButton;
|
||||||
procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton;
|
procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton;
|
||||||
Shift: TShiftState; X, Y: Integer);
|
Shift: TShiftState; X, Y: Integer);
|
||||||
procedure cxGridBandedViewRR38GetDisplayText(
|
procedure cxGridBandedViewRR38GetDisplayText(
|
||||||
@ -150,18 +160,27 @@ type
|
|||||||
ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn;
|
ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn;
|
||||||
AnItem: TAbstractdxReportCellData);
|
AnItem: TAbstractdxReportCellData);
|
||||||
protected
|
protected
|
||||||
|
FItems : IBizRecepciones;
|
||||||
FTipo : String;
|
FTipo : String;
|
||||||
FNivelFiltrado : TcxFilterCriteriaItemList;
|
FNivelFiltrado : TcxFilterCriteriaItemList;
|
||||||
procedure FilterChanged(Sender: TObject); override;
|
procedure FilterChanged(Sender: TObject); override;
|
||||||
function GetVistaActiva : TvRecepcionVistaActiva;
|
function GetVistaActiva : TvRecepcionVistaActiva;
|
||||||
|
function GetItems: IBizRecepciones;
|
||||||
|
procedure SetItems(const Value: IBizRecepciones);
|
||||||
|
|
||||||
public
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
property Items: IBizRecepciones read GetItems write SetItems;
|
||||||
|
property VistaActiva : TvRecepcionVistaActiva read GetVistaActiva;
|
||||||
|
procedure Refresh;
|
||||||
procedure Preview; override;
|
procedure Preview; override;
|
||||||
procedure Print; override;
|
procedure Print; override;
|
||||||
procedure PrintSetup; override;
|
procedure PrintSetup; override;
|
||||||
procedure VerPendientes;
|
procedure VerPendientes;
|
||||||
procedure VerAprobados;
|
procedure VerAprobados;
|
||||||
procedure VerTodos;
|
procedure VerTodos;
|
||||||
property VistaActiva : TvRecepcionVistaActiva read GetVistaActiva;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -211,6 +230,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewListaRecepciones.Destroy;
|
||||||
|
begin
|
||||||
|
FItems := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaRecepciones.VerAprobados;
|
procedure TfrViewListaRecepciones.VerAprobados;
|
||||||
begin
|
begin
|
||||||
FTipo := 'S';
|
FTipo := 'S';
|
||||||
@ -233,6 +258,13 @@ begin
|
|||||||
cxGridBandedViewAPROBADO.Visible := True;
|
cxGridBandedViewAPROBADO.Visible := True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewListaRecepciones.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FItems := Nil;
|
||||||
|
frViewParametrosCentro1.Refresh;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaRecepciones.cxGridBandedViewALBARANGetDisplayText(
|
procedure TfrViewListaRecepciones.cxGridBandedViewALBARANGetDisplayText(
|
||||||
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
||||||
var AText: String);
|
var AText: String);
|
||||||
@ -497,6 +529,64 @@ begin
|
|||||||
dxComponentPrinterLink1.PageSetup;
|
dxComponentPrinterLink1.PageSetup;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaRecepciones.Refresh;
|
||||||
|
var
|
||||||
|
ACentrosList : TStringList;
|
||||||
|
AWhereCentro : String;
|
||||||
|
AWhere : String;
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
ACentrosList := Nil;
|
||||||
|
|
||||||
|
if Assigned(FItems) then
|
||||||
|
Items.DataTable.Active := False;
|
||||||
|
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if Assigned(ACentrosList) then
|
||||||
|
begin
|
||||||
|
AWhereCentro := '';
|
||||||
|
if ACentrosList.Count = 0 then
|
||||||
|
begin
|
||||||
|
ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.');
|
||||||
|
Exit;
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
AWhereCentro := AWhereCentro + ' FILIAL in (';
|
||||||
|
for i := 0 to ACentrosList.Count - 1 do
|
||||||
|
begin
|
||||||
|
if i > 0 then
|
||||||
|
AWhereCentro := AWhereCentro + ', ';
|
||||||
|
AWhereCentro := AWhereCentro + '''' + ACentrosList[i] + '''';
|
||||||
|
end;
|
||||||
|
AWhereCentro := AWhereCentro + ')';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
AWhere := '';
|
||||||
|
if AWhereCentro <> '' then
|
||||||
|
begin
|
||||||
|
AWhere := AWhere + AWhereCentro;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Items.DataTable.Where.Clear;
|
||||||
|
Items.DataTable.Where.AddText(AWhere, False);
|
||||||
|
Items.DataTable.Active := True;
|
||||||
|
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
FreeAndNIL(ACentrosList);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaRecepciones.SetItems(const Value: IBizRecepciones);
|
||||||
|
begin
|
||||||
|
FItems := Value;
|
||||||
|
if Assigned(FItems) then
|
||||||
|
dsDataSource.DataTable := FItems.DataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaRecepciones.cxGridBandedViewCODIGOGetDisplayText(
|
procedure TfrViewListaRecepciones.cxGridBandedViewCODIGOGetDisplayText(
|
||||||
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
||||||
var AText: String);
|
var AText: String);
|
||||||
@ -582,6 +672,11 @@ begin
|
|||||||
cxGridView.DataController.Filter.EndUpdate;
|
cxGridView.DataController.Filter.EndUpdate;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TfrViewListaRecepciones.GetItems: IBizRecepciones;
|
||||||
|
begin
|
||||||
|
Result := FItems;
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrViewListaRecepciones.GetVistaActiva: TvRecepcionVistaActiva;
|
function TfrViewListaRecepciones.GetVistaActiva: TvRecepcionVistaActiva;
|
||||||
begin
|
begin
|
||||||
if FTipo = 'N' then
|
if FTipo = 'N' then
|
||||||
|
|||||||
@ -1,9 +1,14 @@
|
|||||||
inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran
|
inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran
|
||||||
Width = 695
|
Width = 695
|
||||||
Height = 477
|
Height = 477
|
||||||
|
ExplicitWidth = 695
|
||||||
|
ExplicitHeight = 477
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
|
Top = 60
|
||||||
Width = 695
|
Width = 695
|
||||||
Height = 477
|
Height = 417
|
||||||
|
ExplicitWidth = 695
|
||||||
|
ExplicitHeight = 477
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
FilterBox.Visible = fvNever
|
FilterBox.Visible = fvNever
|
||||||
DataController.KeyFieldNames = 'Albaran;Codigo;Color'
|
DataController.KeyFieldNames = 'Albaran;Codigo;Color'
|
||||||
@ -77,6 +82,81 @@ inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object TBXDockablePanel1: TTBXDockablePanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
MaxClientHeight = 61
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'TBXDockablePanel1'
|
||||||
|
DockedWidth = 32
|
||||||
|
DockedHeight = 32
|
||||||
|
FloatingWidth = 128
|
||||||
|
FloatingHeight = 60
|
||||||
|
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||||
|
TabOrder = 1
|
||||||
|
inline frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
|
Left = 0
|
||||||
|
Top = 19
|
||||||
|
Width = 425
|
||||||
|
Height = 41
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 0
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 19
|
||||||
|
ExplicitWidth = 425
|
||||||
|
ExplicitHeight = 109
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 425
|
||||||
|
ExplicitWidth = 425
|
||||||
|
inherited ccbCentro: TJvCheckedComboBox
|
||||||
|
Width = 392
|
||||||
|
ExplicitWidth = 392
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object TBXLabel1: TTBXLabel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 695
|
||||||
|
Height = 19
|
||||||
|
Margins.Left = 5
|
||||||
|
Margins.Top = 5
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Par'#225'metros de consulta'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = True
|
||||||
|
ParentFont = False
|
||||||
|
Underline = True
|
||||||
|
ExplicitWidth = 128
|
||||||
|
ExplicitHeight = 32
|
||||||
|
end
|
||||||
|
object pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
|
Left = 425
|
||||||
|
Top = 19
|
||||||
|
Width = 270
|
||||||
|
Height = 41
|
||||||
|
Align = alClient
|
||||||
|
AutoSize = True
|
||||||
|
TabOrder = 2
|
||||||
|
ExplicitHeight = 109
|
||||||
|
object TBXButton3: TTBXButton
|
||||||
|
Tag = 3
|
||||||
|
Left = 8
|
||||||
|
Top = 10
|
||||||
|
Width = 90
|
||||||
|
Height = 21
|
||||||
|
AutoSize = False
|
||||||
|
Caption = 'Consultar'
|
||||||
|
ImageIndex = 0
|
||||||
|
TabOrder = 0
|
||||||
|
Wrapping = twEndEllipsis
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited dsDataSource: TDADataSource
|
inherited dsDataSource: TDADataSource
|
||||||
Top = 120
|
Top = 120
|
||||||
end
|
end
|
||||||
|
|||||||
@ -20,11 +20,15 @@ uses
|
|||||||
dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit,
|
dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit,
|
||||||
cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView,
|
cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView,
|
||||||
cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList,
|
cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList,
|
||||||
dxPScxCommon, dxPScxGridLnk, cxMemo;
|
dxPScxCommon, dxPScxGridLnk, cxMemo, uDAInterfaces, TBXDkPanels, uCustomView,
|
||||||
|
uViewBase, uViewParametrosControlGrid, uViewParametrosCentro, TB2Dock;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewListaRecepcionesAlbaran = interface(IViewGrid)
|
IViewListaRecepcionesAlbaran = interface(IViewGrid)
|
||||||
['{F0B4B97B-158B-4FD8-B3F1-8ECAC7AE40D5}']
|
['{F0B4B97B-158B-4FD8-B3F1-8ECAC7AE40D5}']
|
||||||
|
function GetItems: IBizRecepcionesAlbaran;
|
||||||
|
procedure SetItems(const Value: IBizRecepcionesAlbaran);
|
||||||
|
property Items: IBizRecepcionesAlbaran read GetItems write SetItems;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewListaRecepcionesAlbaran = class(TfrViewGrid, IViewListaRecepcionesAlbaran)
|
TfrViewListaRecepcionesAlbaran = class(TfrViewGrid, IViewListaRecepcionesAlbaran)
|
||||||
@ -56,12 +60,27 @@ type
|
|||||||
cxGridViewE44: TcxGridDBColumn;
|
cxGridViewE44: TcxGridDBColumn;
|
||||||
cxGridViewE46: TcxGridDBColumn;
|
cxGridViewE46: TcxGridDBColumn;
|
||||||
cxGridViewE48: TcxGridDBColumn;
|
cxGridViewE48: TcxGridDBColumn;
|
||||||
|
TBXDockablePanel1: TTBXDockablePanel;
|
||||||
|
frViewParametrosCentro1: TfrViewParametrosCentro;
|
||||||
|
TBXLabel1: TTBXLabel;
|
||||||
|
pnlAgrupaciones: TTBXAlignmentPanel;
|
||||||
|
TBXButton3: TTBXButton;
|
||||||
procedure cxGridViewALBARANGetDataText(Sender: TcxCustomGridTableItem;
|
procedure cxGridViewALBARANGetDataText(Sender: TcxCustomGridTableItem;
|
||||||
ARecordIndex: Integer; var AText: String);
|
ARecordIndex: Integer; var AText: String);
|
||||||
|
protected
|
||||||
|
FItems: IBizRecepcionesAlbaran;
|
||||||
|
function GetItems: IBizRecepcionesAlbaran;
|
||||||
|
procedure SetItems(const Value: IBizRecepcionesAlbaran);
|
||||||
|
|
||||||
public
|
public
|
||||||
|
property Items: IBizRecepcionesAlbaran read GetItems write SetItems;
|
||||||
|
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
procedure Preview; override;
|
procedure Preview; override;
|
||||||
procedure Print; override;
|
procedure Print; override;
|
||||||
procedure PrintSetup; override;
|
procedure PrintSetup; override;
|
||||||
|
procedure Refresh;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -72,6 +91,11 @@ uses
|
|||||||
uViewGridBase, cxGridRows;
|
uViewGridBase, cxGridRows;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
function TfrViewListaRecepcionesAlbaran.GetItems: IBizRecepcionesAlbaran;
|
||||||
|
begin
|
||||||
|
Result := FItems;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaRecepcionesAlbaran.Preview;
|
procedure TfrViewListaRecepcionesAlbaran.Preview;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
@ -90,6 +114,75 @@ begin
|
|||||||
dxComponentPrinterLink1.PageSetup;
|
dxComponentPrinterLink1.PageSetup;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaRecepcionesAlbaran.Refresh;
|
||||||
|
var
|
||||||
|
ACentrosList : TStringList;
|
||||||
|
AWhereCentro : String;
|
||||||
|
AWhere : String;
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
ACentrosList := Nil;
|
||||||
|
|
||||||
|
if Assigned(FItems) then
|
||||||
|
Items.DataTable.Active := False;
|
||||||
|
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if Assigned(ACentrosList) then
|
||||||
|
begin
|
||||||
|
AWhereCentro := '';
|
||||||
|
if ACentrosList.Count = 0 then
|
||||||
|
begin
|
||||||
|
ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.');
|
||||||
|
Exit;
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
AWhereCentro := AWhereCentro + ' FILIAL in (';
|
||||||
|
for i := 0 to ACentrosList.Count - 1 do
|
||||||
|
begin
|
||||||
|
if i > 0 then
|
||||||
|
AWhereCentro := AWhereCentro + ', ';
|
||||||
|
AWhereCentro := AWhereCentro + '''' + ACentrosList[i] + '''';
|
||||||
|
end;
|
||||||
|
AWhereCentro := AWhereCentro + ')';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
AWhere := '';
|
||||||
|
if AWhereCentro <> '' then
|
||||||
|
begin
|
||||||
|
AWhere := AWhere + AWhereCentro;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//No hacemos clear porque en este caso la aprobación o no del albaran no viene dado por la where desde el editor
|
||||||
|
// Items.DataTable.Where.Clear;
|
||||||
|
if not Items.DataTable.Where.Empty then
|
||||||
|
AWhere := 'AND ' + AWhere;
|
||||||
|
|
||||||
|
Items.DataTable.Where.AddText(AWhere, False);
|
||||||
|
Items.DataTable.Active := True;
|
||||||
|
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
FreeAndNIL(ACentrosList);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaRecepcionesAlbaran.SetItems(const Value: IBizRecepcionesAlbaran);
|
||||||
|
begin
|
||||||
|
FItems := Value;
|
||||||
|
if Assigned(FItems) then
|
||||||
|
dsDataSource.DataTable := FItems.DataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewListaRecepcionesAlbaran.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FItems := Nil;
|
||||||
|
frViewParametrosCentro1.Refresh;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaRecepcionesAlbaran.cxGridViewALBARANGetDataText(
|
procedure TfrViewListaRecepcionesAlbaran.cxGridViewALBARANGetDataText(
|
||||||
Sender: TcxCustomGridTableItem; ARecordIndex: Integer;
|
Sender: TcxCustomGridTableItem; ARecordIndex: Integer;
|
||||||
var AText: String);
|
var AText: String);
|
||||||
@ -108,4 +201,10 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewListaRecepcionesAlbaran.Destroy;
|
||||||
|
begin
|
||||||
|
FItems := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -61,7 +61,8 @@ requires
|
|||||||
cxExtEditorsD10,
|
cxExtEditorsD10,
|
||||||
dxPSCoreD10,
|
dxPSCoreD10,
|
||||||
dxComnD10,
|
dxComnD10,
|
||||||
JvCustomD10R;
|
JvCustomD10R,
|
||||||
|
Parametros;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uPluginControllerReferenciaGenerica in 'uPluginControllerReferenciaGenerica.pas' {ModuleReferenciaGenerica: TModuleController},
|
uPluginControllerReferenciaGenerica in 'uPluginControllerReferenciaGenerica.pas' {ModuleReferenciaGenerica: TModuleController},
|
||||||
|
|||||||
@ -1,4 +1,5 @@
|
|||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{d34ce1e7-d660-436d-a982-7683ff67eecd}</ProjectGuid>
|
<ProjectGuid>{d34ce1e7-d660-436d-a982-7683ff67eecd}</ProjectGuid>
|
||||||
<MainSource>ReferenciaGenerica.dpk</MainSource>
|
<MainSource>ReferenciaGenerica.dpk</MainSource>
|
||||||
@ -52,45 +53,46 @@
|
|||||||
<DelphiCompile Include="ReferenciaGenerica.dpk">
|
<DelphiCompile Include="ReferenciaGenerica.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\..\Lib\adortl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\BaseD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\ControlesBaseD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxDataD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxEditorsD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxExportD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxExtEditorsD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxGridD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxLibraryD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxPageControlD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxTreeListD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dbrtl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dsnap.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dxComnD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dxPSCoreD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dxThemeD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\GUISDK_D10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Jcl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JclVcl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvCoreD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvCustomD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvGlobusD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvPageCompsD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvStdCtrlsD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvSystemD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Parametros.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\PluginSDK_D10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\rtl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\tb2k_D10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\tbx_D10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vcl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vclx.dcp" />
|
||||||
<DCCReference Include="..\Reglas\schReferenciaGenericaClient_Intf.pas" />
|
<DCCReference Include="..\Reglas\schReferenciaGenericaClient_Intf.pas" />
|
||||||
<DCCReference Include="..\Reglas\schReferenciaGenericaServer_Intf.pas" />
|
<DCCReference Include="..\Reglas\schReferenciaGenericaServer_Intf.pas" />
|
||||||
<DCCReference Include="..\Reglas\uBizReferenciaGenerica.pas" />
|
<DCCReference Include="..\Reglas\uBizReferenciaGenerica.pas" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\BaseD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\ControlesBaseD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCustomD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_D10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_D10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
|
||||||
<DCCReference Include="uDataModuleReferenciaGenerica.pas">
|
<DCCReference Include="uDataModuleReferenciaGenerica.pas">
|
||||||
<Form>dmReferenciaGenerica</Form>
|
<Form>dmReferenciaGenerica</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
|||||||
@ -22,9 +22,11 @@ object dmReferenciaGenerica: TdmReferenciaGenerica
|
|||||||
Name = 'Result'
|
Name = 'Result'
|
||||||
DataType = rtString
|
DataType = rtString
|
||||||
Flag = fResult
|
Flag = fResult
|
||||||
|
Value = Null
|
||||||
end>
|
end>
|
||||||
GetSchemaCall.Default = False
|
GetSchemaCall.Default = False
|
||||||
GetSchemaCall.IncomingSchemaParameter = 'Result'
|
GetSchemaCall.IncomingSchemaParameter = 'Result'
|
||||||
|
GetSchemaCall.OutgoingFilterParameter = 'aFilter'
|
||||||
GetDataCall.RemoteService = RORemoteService
|
GetDataCall.RemoteService = RORemoteService
|
||||||
GetDataCall.MethodName = 'GetDatasetData'
|
GetDataCall.MethodName = 'GetDatasetData'
|
||||||
GetDataCall.Params = <
|
GetDataCall.Params = <
|
||||||
|
|||||||
@ -81,9 +81,9 @@ inherited fEditorListaReferenciaGenerica: TfEditorListaReferenciaGenerica
|
|||||||
ExplicitHeight = 513
|
ExplicitHeight = 513
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 901
|
Width = 901
|
||||||
Height = 513
|
Height = 453
|
||||||
ExplicitWidth = 901
|
ExplicitWidth = 901
|
||||||
ExplicitHeight = 513
|
ExplicitHeight = 453
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
DataController.Summary.DefaultGroupSummaryItems = <
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
item
|
item
|
||||||
@ -94,6 +94,28 @@ inherited fEditorListaReferenciaGenerica: TfEditorListaReferenciaGenerica
|
|||||||
end>
|
end>
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
ExplicitLeft = 0
|
||||||
|
ExplicitTop = 0
|
||||||
|
ExplicitWidth = 901
|
||||||
|
inherited frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
inherited ccbCentro: TJvCheckedComboBox
|
||||||
|
Width = 525
|
||||||
|
ExplicitWidth = 525
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXLabel1: TTBXLabel
|
||||||
|
Width = 901
|
||||||
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
|
Width = 476
|
||||||
|
inherited TBXButton3: TTBXButton
|
||||||
|
Action = actRefrescar
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object JvTabBar1: TJvTabBar [4]
|
object JvTabBar1: TJvTabBar [4]
|
||||||
Left = 0
|
Left = 0
|
||||||
|
|||||||
@ -46,7 +46,6 @@ type
|
|||||||
actEspera: TAction;
|
actEspera: TAction;
|
||||||
actResuelto: TAction;
|
actResuelto: TAction;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
|
||||||
procedure actModificarExecute(Sender: TObject);
|
procedure actModificarExecute(Sender: TObject);
|
||||||
procedure actExpandirExecute(Sender: TObject);
|
procedure actExpandirExecute(Sender: TObject);
|
||||||
procedure actContraerExecute(Sender: TObject);
|
procedure actContraerExecute(Sender: TObject);
|
||||||
@ -66,6 +65,7 @@ type
|
|||||||
procedure actResueltoUpdate(Sender: TObject);
|
procedure actResueltoUpdate(Sender: TObject);
|
||||||
procedure actResueltoExecute(Sender: TObject);
|
procedure actResueltoExecute(Sender: TObject);
|
||||||
procedure actEliminarExecute(Sender: TObject);
|
procedure actEliminarExecute(Sender: TObject);
|
||||||
|
procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
||||||
protected
|
protected
|
||||||
FItems : IBizReferenciaGenerica;
|
FItems : IBizReferenciaGenerica;
|
||||||
function GetItems: IBizReferenciaGenerica;
|
function GetItems: IBizReferenciaGenerica;
|
||||||
@ -98,14 +98,20 @@ begin
|
|||||||
Result := FItems;
|
Result := FItems;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaReferenciaGenerica.SetItems(
|
procedure TfEditorListaReferenciaGenerica.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
||||||
const Value: IBizReferenciaGenerica);
|
begin
|
||||||
|
if Items.DataTable.Active then
|
||||||
|
Items.DataTable.Active := False;
|
||||||
|
frViewListaReferenciaGenerica1.frViewParametrosCentro1.LimpiarSeleccion;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorListaReferenciaGenerica.SetItems(const Value: IBizReferenciaGenerica);
|
||||||
begin
|
begin
|
||||||
FItems := Value;
|
FItems := Value;
|
||||||
if Assigned(FItems) then
|
if Assigned(FItems) then
|
||||||
begin
|
begin
|
||||||
dsDataTable.DataTable := FItems.DataTable;
|
dsDataTable.DataTable := FItems.DataTable;
|
||||||
frViewListaReferenciaGenerica1.dsDataSource.DataTable := FItems.DataTable;
|
frViewListaReferenciaGenerica1.Items := FItems;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -118,8 +124,6 @@ begin
|
|||||||
if not Assigned(ViewGrid) then
|
if not Assigned(ViewGrid) then
|
||||||
raise Exception.Create('No hay una vista asignada');
|
raise Exception.Create('No hay una vista asignada');
|
||||||
|
|
||||||
FItems.DataTable.Active := True;
|
|
||||||
Items.VerPendientes;
|
|
||||||
with (ViewGrid as IViewListaReferenciaGenerica) do
|
with (ViewGrid as IViewListaReferenciaGenerica) do
|
||||||
begin
|
begin
|
||||||
VerPendientes;
|
VerPendientes;
|
||||||
@ -128,30 +132,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaReferenciaGenerica.JvTabBar1TabSelected(
|
|
||||||
Sender: TObject; Item: TJvTabBarItem);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
case Item.Index of
|
|
||||||
0 : begin
|
|
||||||
Items.VerPendientes;
|
|
||||||
(ViewGrid as IViewListaReferenciaGenerica).VerPendientes;
|
|
||||||
end;
|
|
||||||
|
|
||||||
1 : begin
|
|
||||||
Items.VerEnEspera;
|
|
||||||
(ViewGrid as IViewListaReferenciaGenerica).VerEnEspera;
|
|
||||||
end;
|
|
||||||
|
|
||||||
2 : begin
|
|
||||||
Items.VerResueltos;
|
|
||||||
(ViewGrid as IViewListaReferenciaGenerica).VerResueltos
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
ViewGrid.ExpandirTodo;
|
|
||||||
ViewGrid.GotoFirst;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorListaReferenciaGenerica.actModificarExecute(
|
procedure TfEditorListaReferenciaGenerica.actModificarExecute(
|
||||||
Sender: TObject);
|
Sender: TObject);
|
||||||
var
|
var
|
||||||
@ -329,12 +309,42 @@ begin
|
|||||||
(ViewGrid._FocusedView.Controller.SelectedRecordCount > 0)
|
(ViewGrid._FocusedView.Controller.SelectedRecordCount > 0)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaReferenciaGenerica.actRefrescarExecute(
|
procedure TfEditorListaReferenciaGenerica.actRefrescarExecute(Sender: TObject);
|
||||||
Sender: TObject);
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
ShowHourglassCursor;
|
||||||
ViewGrid.ExpandirTodo;
|
Items.DataTable.Active := False;
|
||||||
ViewGrid.GotoFirst;
|
Application.ProcessMessages;
|
||||||
|
ViewGrid._FocusedView.BeginUpdate;
|
||||||
|
Application.ProcessMessages;
|
||||||
|
try
|
||||||
|
case JvTabBar1.SelectedTab.Index of
|
||||||
|
0 : begin
|
||||||
|
Items.VerPendientes;
|
||||||
|
(ViewGrid as IViewListaReferenciaGenerica).VerPendientes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
1 : begin
|
||||||
|
Items.VerEnEspera;
|
||||||
|
(ViewGrid as IViewListaReferenciaGenerica).VerEnEspera;
|
||||||
|
end;
|
||||||
|
|
||||||
|
2 : begin
|
||||||
|
Items.VerResueltos;
|
||||||
|
(ViewGrid as IViewListaReferenciaGenerica).VerResueltos
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
frViewListaReferenciaGenerica1.Refresh;
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
finally
|
||||||
|
dsDataTable.DataTable := Items.DataTable;
|
||||||
|
ViewGrid._FocusedView.EndUpdate;
|
||||||
|
Items.DataTable.Active := True;
|
||||||
|
ViewGrid.ContraerTodo;
|
||||||
|
ViewGrid.GotoFirst;
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaReferenciaGenerica.actPendienteExecute(
|
procedure TfEditorListaReferenciaGenerica.actPendienteExecute(
|
||||||
|
|||||||
@ -2,7 +2,9 @@ inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica
|
|||||||
Width = 504
|
Width = 504
|
||||||
ExplicitWidth = 504
|
ExplicitWidth = 504
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
|
Top = 60
|
||||||
Width = 504
|
Width = 504
|
||||||
|
Height = 208
|
||||||
ExplicitWidth = 504
|
ExplicitWidth = 504
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
OnMouseDown = cxGridViewMouseDown
|
OnMouseDown = cxGridViewMouseDown
|
||||||
@ -118,6 +120,84 @@ inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object TBXDockablePanel1: TTBXDockablePanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
MaxClientHeight = 61
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'TBXDockablePanel1'
|
||||||
|
DockedWidth = 32
|
||||||
|
DockedHeight = 32
|
||||||
|
FloatingWidth = 128
|
||||||
|
FloatingHeight = 60
|
||||||
|
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||||
|
TabOrder = 1
|
||||||
|
ExplicitLeft = 8
|
||||||
|
ExplicitTop = 8
|
||||||
|
ExplicitWidth = 128
|
||||||
|
inline frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
|
Left = 0
|
||||||
|
Top = 19
|
||||||
|
Width = 425
|
||||||
|
Height = 41
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 0
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 19
|
||||||
|
ExplicitWidth = 425
|
||||||
|
ExplicitHeight = 41
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 425
|
||||||
|
ExplicitWidth = 425
|
||||||
|
inherited ccbCentro: TJvCheckedComboBox
|
||||||
|
Width = 392
|
||||||
|
ExplicitWidth = 392
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object TBXLabel1: TTBXLabel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 504
|
||||||
|
Height = 19
|
||||||
|
Margins.Left = 5
|
||||||
|
Margins.Top = 5
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Par'#225'metros de consulta'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = True
|
||||||
|
ParentFont = False
|
||||||
|
Underline = True
|
||||||
|
ExplicitWidth = 128
|
||||||
|
ExplicitHeight = 32
|
||||||
|
end
|
||||||
|
object pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
|
Left = 425
|
||||||
|
Top = 19
|
||||||
|
Width = 79
|
||||||
|
Height = 41
|
||||||
|
Align = alClient
|
||||||
|
AutoSize = True
|
||||||
|
TabOrder = 2
|
||||||
|
ExplicitWidth = 251
|
||||||
|
object TBXButton3: TTBXButton
|
||||||
|
Tag = 3
|
||||||
|
Left = 8
|
||||||
|
Top = 10
|
||||||
|
Width = 90
|
||||||
|
Height = 21
|
||||||
|
AutoSize = False
|
||||||
|
Caption = 'Consultar'
|
||||||
|
ImageIndex = 0
|
||||||
|
TabOrder = 0
|
||||||
|
Wrapping = twEndEllipsis
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited cxStyleRepository1: TcxStyleRepository
|
inherited cxStyleRepository1: TcxStyleRepository
|
||||||
object cxStyleResuelto: TcxStyle
|
object cxStyleResuelto: TcxStyle
|
||||||
AssignedValues = [svTextColor]
|
AssignedValues = [svTextColor]
|
||||||
|
|||||||
@ -18,7 +18,9 @@ uses
|
|||||||
cxControls, cxGridCustomView, cxGrid, uBizReferenciaGenerica, dxPSGlbl,
|
cxControls, cxGridCustomView, cxGrid, uBizReferenciaGenerica, dxPSGlbl,
|
||||||
dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
|
dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
|
||||||
dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit,
|
dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit,
|
||||||
cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, uDAInterfaces;
|
cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, uDAInterfaces, TBXDkPanels,
|
||||||
|
uCustomView, uViewBase, uViewParametrosControlGrid, uViewParametrosCentro,
|
||||||
|
TB2Dock;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewListaReferenciaGenerica = interface(IViewGrid)
|
IViewListaReferenciaGenerica = interface(IViewGrid)
|
||||||
@ -26,6 +28,10 @@ type
|
|||||||
procedure VerPendientes;
|
procedure VerPendientes;
|
||||||
procedure VerEnEspera;
|
procedure VerEnEspera;
|
||||||
procedure VerResueltos;
|
procedure VerResueltos;
|
||||||
|
|
||||||
|
function GetItems: IBizReferenciaGenerica;
|
||||||
|
procedure SetItems(const Value: IBizReferenciaGenerica);
|
||||||
|
property Items: IBizReferenciaGenerica read GetItems write SetItems;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewListaReferenciaGenerica = class(TfrViewGrid, IViewListaReferenciaGenerica)
|
TfrViewListaReferenciaGenerica = class(TfrViewGrid, IViewListaReferenciaGenerica)
|
||||||
@ -48,6 +54,11 @@ type
|
|||||||
cxStyleEnEspera1semana: TcxStyle;
|
cxStyleEnEspera1semana: TcxStyle;
|
||||||
cxStyleResueltoRectificado: TcxStyle;
|
cxStyleResueltoRectificado: TcxStyle;
|
||||||
cxGridViewColumn1: TcxGridDBColumn;
|
cxGridViewColumn1: TcxGridDBColumn;
|
||||||
|
TBXDockablePanel1: TTBXDockablePanel;
|
||||||
|
frViewParametrosCentro1: TfrViewParametrosCentro;
|
||||||
|
TBXLabel1: TTBXLabel;
|
||||||
|
pnlAgrupaciones: TTBXAlignmentPanel;
|
||||||
|
TBXButton3: TTBXButton;
|
||||||
procedure cxGridViewCellDblClick(Sender: TcxCustomGridTableView;
|
procedure cxGridViewCellDblClick(Sender: TcxCustomGridTableView;
|
||||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||||
AShift: TShiftState; var AHandled: Boolean);
|
AShift: TShiftState; var AHandled: Boolean);
|
||||||
@ -58,10 +69,20 @@ type
|
|||||||
Shift: TShiftState; X, Y: Integer);
|
Shift: TShiftState; X, Y: Integer);
|
||||||
private
|
private
|
||||||
FEstado : TRefGenEstado;
|
FEstado : TRefGenEstado;
|
||||||
|
protected
|
||||||
|
FItems: IBizReferenciaGenerica;
|
||||||
|
function GetItems: IBizReferenciaGenerica;
|
||||||
|
procedure SetItems(const Value: IBizReferenciaGenerica);
|
||||||
|
|
||||||
public
|
public
|
||||||
|
property Items: IBizReferenciaGenerica read GetItems write SetItems;
|
||||||
|
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
procedure VerPendientes;
|
procedure VerPendientes;
|
||||||
procedure VerEnEspera;
|
procedure VerEnEspera;
|
||||||
procedure VerResueltos;
|
procedure VerResueltos;
|
||||||
|
procedure Refresh;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -71,6 +92,13 @@ uses uDataModuleReferenciaGenerica, DateUtils, cxGridDBDataDefinitions;
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
|
constructor TfrViewListaReferenciaGenerica.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FItems := Nil;
|
||||||
|
frViewParametrosCentro1.Refresh;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaReferenciaGenerica.cxGridViewCellDblClick(
|
procedure TfrViewListaReferenciaGenerica.cxGridViewCellDblClick(
|
||||||
Sender: TcxCustomGridTableView;
|
Sender: TcxCustomGridTableView;
|
||||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||||
@ -142,6 +170,75 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewListaReferenciaGenerica.Destroy;
|
||||||
|
begin
|
||||||
|
FItems := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewListaReferenciaGenerica.GetItems: IBizReferenciaGenerica;
|
||||||
|
begin
|
||||||
|
Result := FItems;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaReferenciaGenerica.Refresh;
|
||||||
|
var
|
||||||
|
ACentrosList : TStringList;
|
||||||
|
AWhereCentro : String;
|
||||||
|
AWhere : String;
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
ACentrosList := Nil;
|
||||||
|
|
||||||
|
if Assigned(FItems) then
|
||||||
|
Items.DataTable.Active := False;
|
||||||
|
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if Assigned(ACentrosList) then
|
||||||
|
begin
|
||||||
|
AWhereCentro := '';
|
||||||
|
if ACentrosList.Count = 0 then
|
||||||
|
begin
|
||||||
|
ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.');
|
||||||
|
Exit;
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
AWhereCentro := AWhereCentro + ' FILIAL in (';
|
||||||
|
for i := 0 to ACentrosList.Count - 1 do
|
||||||
|
begin
|
||||||
|
if i > 0 then
|
||||||
|
AWhereCentro := AWhereCentro + ', ';
|
||||||
|
AWhereCentro := AWhereCentro + '''' + ACentrosList[i] + '''';
|
||||||
|
end;
|
||||||
|
AWhereCentro := AWhereCentro + ')';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
AWhere := '';
|
||||||
|
if AWhereCentro <> '' then
|
||||||
|
begin
|
||||||
|
AWhere := AWhere + AWhereCentro;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Items.DataTable.Where.Clear;
|
||||||
|
// Items.DataTable.Where.AddText(AWhere, False);
|
||||||
|
Items.DataTable.Active := True;
|
||||||
|
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
FreeAndNIL(ACentrosList);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaReferenciaGenerica.SetItems(const Value: IBizReferenciaGenerica);
|
||||||
|
begin
|
||||||
|
FItems := Value;
|
||||||
|
if Assigned(FItems) then
|
||||||
|
dsDataSource.DataTable := FItems.DataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaReferenciaGenerica.cxGridViewMouseDown(
|
procedure TfrViewListaReferenciaGenerica.cxGridViewMouseDown(
|
||||||
Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
|
Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
|
||||||
Y: Integer);
|
Y: Integer);
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -20,31 +20,26 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Params = <
|
Params = <
|
||||||
item
|
item
|
||||||
Name = 'NUMINF'
|
Name = 'NUMINF'
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE1'
|
Name = 'CLAVE1'
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE2'
|
Name = 'CLAVE2'
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE3'
|
Name = 'CLAVE3'
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NUMCON'
|
Name = 'NUMCON'
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end>
|
end>
|
||||||
@ -85,65 +80,23 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'NUMINF'
|
Name = 'NUMINF'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 35
|
Size = 35
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE1'
|
Name = 'CLAVE1'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE2'
|
Name = 'CLAVE2'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE3'
|
Name = 'CLAVE3'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NUMCON'
|
Name = 'NUMCON'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end>
|
end>
|
||||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
||||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Params = <>
|
Params = <>
|
||||||
@ -209,124 +162,55 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'CODCENTRO'
|
Name = 'CODCENTRO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 17
|
Size = 17
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CENTRO'
|
Name = 'CENTRO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CODVENDEDOR'
|
Name = 'CODVENDEDOR'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 17
|
Size = 17
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VENDEDOR'
|
Name = 'VENDEDOR'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA'
|
Name = 'FECHA'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NUMTALON'
|
Name = 'NUMTALON'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 35
|
Size = 35
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CANTIDAD'
|
Name = 'CANTIDAD'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 8000
|
Size = 8000
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALTOT'
|
Name = 'VALTOT'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end>
|
end>
|
||||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
||||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Params = <
|
Params = <
|
||||||
item
|
item
|
||||||
Name = 'CODIGO'
|
Name = 'CODIGO'
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'TALLA'
|
Name = 'TALLA'
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'COLOR'
|
Name = 'COLOR'
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end>
|
end>
|
||||||
@ -370,69 +254,27 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'CODIGO_BARRA'
|
Name = 'CODIGO_BARRA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 25
|
Size = 25
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'COR_PRODUTO'
|
Name = 'COR_PRODUTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 10
|
Size = 10
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESC_PRODUTO'
|
Name = 'DESC_PRODUTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 40
|
Size = 40
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'PRODUTO'
|
Name = 'PRODUTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 12
|
Size = 12
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'GRADE'
|
Name = 'GRADE'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 8
|
Size = 8
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end>
|
end>
|
||||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
||||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Params = <>
|
Params = <>
|
||||||
@ -451,7 +293,7 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
' END,'#10' NUMTALON, CODIGO_BARRA, CODIGO, PRODUCTO, COLOR, TA' +
|
' END,'#10' NUMTALON, CODIGO_BARRA, CODIGO, PRODUCTO, COLOR, TA' +
|
||||||
'LLA, VTAPROCESO,'#10' VTAFINAL, VTATERM, VALTOT, ESTADO, FECHACAM' +
|
'LLA, VTAPROCESO,'#10' VTAFINAL, VTATERM, VALTOT, ESTADO, FECHACAM' +
|
||||||
'BIO'#10' FROM'#10' RDX_V_REFERENCIA_GENERICA'#10'ORDER BY CENTRO, VENDED' +
|
'BIO'#10' FROM'#10' RDX_V_REFERENCIA_GENERICA'#10'ORDER BY CENTRO, VENDED' +
|
||||||
'OR, FECHA'
|
'OR, FECHA'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -549,280 +391,106 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'NUMINF'
|
Name = 'NUMINF'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 35
|
Size = 35
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = True
|
InPrimaryKey = True
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE1'
|
Name = 'CLAVE1'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = True
|
InPrimaryKey = True
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE2'
|
Name = 'CLAVE2'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = True
|
InPrimaryKey = True
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE3'
|
Name = 'CLAVE3'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = True
|
InPrimaryKey = True
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NUMCON'
|
Name = 'NUMCON'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA'
|
Name = 'FECHA'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CODCENTRO'
|
Name = 'CODCENTRO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 17
|
Size = 17
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CENTRO'
|
Name = 'CENTRO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 45
|
Size = 45
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CODVENDEDOR'
|
Name = 'CODVENDEDOR'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 17
|
Size = 17
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VENDEDOR'
|
Name = 'VENDEDOR'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 86
|
Size = 86
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NUMTALON'
|
Name = 'NUMTALON'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 35
|
Size = 35
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CODIGO_BARRA'
|
Name = 'CODIGO_BARRA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 25
|
Size = 25
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CODIGO'
|
Name = 'CODIGO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 12
|
Size = 12
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'PRODUCTO'
|
Name = 'PRODUCTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 40
|
Size = 40
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'COLOR'
|
Name = 'COLOR'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 10
|
Size = 10
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'TALLA'
|
Name = 'TALLA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 8
|
Size = 8
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VTAPROCESO'
|
Name = 'VTAPROCESO'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VTAFINAL'
|
Name = 'VTAFINAL'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VTATERM'
|
Name = 'VTATERM'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALTOT'
|
Name = 'VALTOT'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'ESTADO'
|
Name = 'ESTADO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 1
|
Size = 1
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHACAMBIO'
|
Name = 'FECHACAMBIO'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end>
|
end>
|
||||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
||||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
||||||
end>
|
end>
|
||||||
JoinDataTables = <>
|
JoinDataTables = <>
|
||||||
UnionDataTables = <>
|
UnionDataTables = <>
|
||||||
@ -833,14 +501,12 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'ESTADO'
|
Name = 'ESTADO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 1
|
Size = 1
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHACAMBIO'
|
Name = 'FECHACAMBIO'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
@ -848,35 +514,30 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'CODIGO_BARRA'
|
Name = 'CODIGO_BARRA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 25
|
Size = 25
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VTAPROCESO'
|
Name = 'VTAPROCESO'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VTAFINAL'
|
Name = 'VTAFINAL'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VTATERM'
|
Name = 'VTATERM'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALTOT'
|
Name = 'VALTOT'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
@ -884,35 +545,30 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'OLD_NUMINF'
|
Name = 'OLD_NUMINF'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 35
|
Size = 35
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_CLAVE1'
|
Name = 'OLD_CLAVE1'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_CLAVE2'
|
Name = 'OLD_CLAVE2'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_CLAVE3'
|
Name = 'OLD_CLAVE3'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_NUMCON'
|
Name = 'OLD_NUMCON'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end>
|
end>
|
||||||
@ -938,7 +594,6 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'ESTADO'
|
Name = 'ESTADO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 1
|
Size = 1
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end>
|
end>
|
||||||
@ -962,28 +617,24 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'NUMINF'
|
Name = 'NUMINF'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 35
|
Size = 35
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE1'
|
Name = 'CLAVE1'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE2'
|
Name = 'CLAVE2'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CLAVE3'
|
Name = 'CLAVE3'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
@ -991,14 +642,12 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'ESTADO'
|
Name = 'ESTADO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 1
|
Size = 1
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHACAMBIO'
|
Name = 'FECHACAMBIO'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
@ -1006,35 +655,30 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'CODIGO_BARRA'
|
Name = 'CODIGO_BARRA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 25
|
Size = 25
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VTATERM'
|
Name = 'VTATERM'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VTAPROCESO'
|
Name = 'VTAPROCESO'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VTAFINAL'
|
Name = 'VTAFINAL'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALTOT'
|
Name = 'VALTOT'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end>
|
end>
|
||||||
@ -1075,35 +719,30 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Name = 'OLD_NUMINF'
|
Name = 'OLD_NUMINF'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 35
|
Size = 35
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_CLAVE1'
|
Name = 'OLD_CLAVE1'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_CLAVE2'
|
Name = 'OLD_CLAVE2'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_CLAVE3'
|
Name = 'OLD_CLAVE3'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_NUMCON'
|
Name = 'OLD_NUMCON'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end>
|
end>
|
||||||
@ -1228,7 +867,6 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
MasterMappingMode = mmDataRequest
|
MasterMappingMode = mmDataRequest
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteFetchEnabled = False
|
RemoteFetchEnabled = False
|
||||||
ReadOnly = False
|
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
@ -1294,8 +932,6 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
|
|||||||
Top = 144
|
Top = 144
|
||||||
end
|
end
|
||||||
object DABINAdapter: TDABINAdapter
|
object DABINAdapter: TDABINAdapter
|
||||||
BufferSize = 262144
|
|
||||||
IsCompatibleV4 = True
|
|
||||||
Left = 336
|
Left = 336
|
||||||
Top = 32
|
Top = 32
|
||||||
end
|
end
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -11,7 +11,7 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA
|
|||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 720
|
Width = 720
|
||||||
Caption = 'Control de stock de almac'#233'n'
|
Caption = 'Control de stock de almac'#233'n'
|
||||||
ExplicitWidth = 1071
|
ExplicitWidth = 720
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 693
|
Left = 693
|
||||||
Picture.Data = {
|
Picture.Data = {
|
||||||
@ -127,22 +127,35 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA
|
|||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 720
|
Width = 720
|
||||||
|
ExplicitWidth = 720
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 256
|
ExplicitWidth = 331
|
||||||
|
object TBXSeparatorItem16: TTBXSeparatorItem [13]
|
||||||
|
end
|
||||||
|
object TBXItem35: TTBXItem [14]
|
||||||
|
Action = actExpandir
|
||||||
|
end
|
||||||
|
object TBXItem36: TTBXItem [15]
|
||||||
|
Action = actContraer
|
||||||
|
end
|
||||||
|
object TBXItem37: TTBXItem [16]
|
||||||
|
Action = actAnchoAuto
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 720
|
ExplicitWidth = 720
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TTBXToolbar
|
||||||
Left = 392
|
Left = 337
|
||||||
ExplicitLeft = 392
|
DockPos = 337
|
||||||
|
ExplicitLeft = 337
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TStatusBar
|
inherited StatusBar: TStatusBar
|
||||||
Top = 554
|
Top = 554
|
||||||
Width = 720
|
Width = 720
|
||||||
ExplicitTop = 554
|
ExplicitTop = 554
|
||||||
ExplicitWidth = 1071
|
ExplicitWidth = 720
|
||||||
end
|
end
|
||||||
inline frViewControlGridStockVARELA1: TfrViewControlGridStockVARELA [3]
|
inline frViewControlGridStockVARELA1: TfrViewControlGridStockVARELA [3]
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -158,14 +171,14 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = -111
|
ExplicitTop = 76
|
||||||
ExplicitTop = 223
|
ExplicitWidth = 720
|
||||||
|
ExplicitHeight = 478
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 720
|
Width = 720
|
||||||
Height = 418
|
Height = 418
|
||||||
ExplicitTop = 60
|
ExplicitWidth = 720
|
||||||
ExplicitWidth = 831
|
ExplicitHeight = 418
|
||||||
ExplicitHeight = 290
|
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
DataController.Summary.DefaultGroupSummaryItems = <
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
item
|
item
|
||||||
@ -260,27 +273,25 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
ExplicitWidth = 720
|
||||||
inherited frViewParametrosColeccion1: TfrViewParametrosColeccion
|
inherited frViewParametrosColeccion1: TfrViewParametrosColeccion
|
||||||
ExplicitHeight = 41
|
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
ExplicitHeight = 41
|
|
||||||
inherited ccbColeccion: TJvCheckedComboBox
|
inherited ccbColeccion: TJvCheckedComboBox
|
||||||
Width = 512
|
Width = 513
|
||||||
ExplicitWidth = 512
|
ExplicitWidth = 513
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pnlAgrupaciones: TTBXAlignmentPanel
|
inherited pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
Width = 399
|
Width = 399
|
||||||
ExplicitWidth = 510
|
ExplicitWidth = 399
|
||||||
ExplicitHeight = 41
|
|
||||||
inherited TBXButton3: TTBXButton
|
inherited TBXButton3: TTBXButton
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXLabel1: TTBXLabel
|
inherited TBXLabel1: TTBXLabel
|
||||||
Width = 720
|
Width = 720
|
||||||
ExplicitWidth = 831
|
ExplicitWidth = 720
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
|
|||||||
@ -28,6 +28,10 @@ type
|
|||||||
actContraer: TAction;
|
actContraer: TAction;
|
||||||
actAnchoAuto: TAction;
|
actAnchoAuto: TAction;
|
||||||
frViewControlGridStockVARELA1: TfrViewControlGridStockVARELA;
|
frViewControlGridStockVARELA1: TfrViewControlGridStockVARELA;
|
||||||
|
TBXSeparatorItem16: TTBXSeparatorItem;
|
||||||
|
TBXItem35: TTBXItem;
|
||||||
|
TBXItem36: TTBXItem;
|
||||||
|
TBXItem37: TTBXItem;
|
||||||
procedure actAnchoAutoExecute(Sender: TObject);
|
procedure actAnchoAutoExecute(Sender: TObject);
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure actPrevisualizarExecute(Sender: TObject);
|
procedure actPrevisualizarExecute(Sender: TObject);
|
||||||
|
|||||||
@ -7,9 +7,9 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
|
|||||||
Top = 60
|
Top = 60
|
||||||
Width = 553
|
Width = 553
|
||||||
Height = 417
|
Height = 417
|
||||||
ExplicitTop = 128
|
ExplicitTop = 60
|
||||||
ExplicitWidth = 553
|
ExplicitWidth = 553
|
||||||
ExplicitHeight = 349
|
ExplicitHeight = 417
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
FilterBox.Visible = fvNever
|
FilterBox.Visible = fvNever
|
||||||
DataController.Summary.DefaultGroupSummaryItems = <
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
@ -259,7 +259,7 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
|
|||||||
end
|
end
|
||||||
object cxGridViewCENTRO: TcxGridDBColumn
|
object cxGridViewCENTRO: TcxGridDBColumn
|
||||||
Caption = 'Centro'
|
Caption = 'Centro'
|
||||||
DataBinding.FieldName = 'CENTRO'
|
DataBinding.FieldName = 'FILIAL'
|
||||||
Visible = False
|
Visible = False
|
||||||
GroupIndex = 1
|
GroupIndex = 1
|
||||||
end
|
end
|
||||||
@ -474,14 +474,10 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
|
|||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 19
|
ExplicitTop = 19
|
||||||
ExplicitWidth = 321
|
ExplicitWidth = 321
|
||||||
ExplicitHeight = 109
|
ExplicitHeight = 41
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 321
|
Width = 321
|
||||||
ExplicitWidth = 321
|
ExplicitWidth = 321
|
||||||
inherited ccbColeccion: TJvCheckedComboBox
|
|
||||||
Width = 512
|
|
||||||
ExplicitWidth = 512
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inline frViewParametrosCentro1: TfrViewParametrosCentro
|
inline frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
@ -496,14 +492,10 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
|
|||||||
ExplicitLeft = 321
|
ExplicitLeft = 321
|
||||||
ExplicitTop = 19
|
ExplicitTop = 19
|
||||||
ExplicitWidth = 400
|
ExplicitWidth = 400
|
||||||
ExplicitHeight = 109
|
ExplicitHeight = 41
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 400
|
Width = 400
|
||||||
ExplicitWidth = 400
|
ExplicitWidth = 400
|
||||||
inherited ccbCentro: TJvCheckedComboBox
|
|
||||||
Width = 392
|
|
||||||
ExplicitWidth = 392
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
@ -514,7 +506,6 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
|
|||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
ExplicitHeight = 109
|
|
||||||
object TBXButton1: TTBXButton
|
object TBXButton1: TTBXButton
|
||||||
Tag = 3
|
Tag = 3
|
||||||
Left = 8
|
Left = 8
|
||||||
@ -572,7 +563,7 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
|
|||||||
PrinterPage._dxMeasurementUnits_ = 0
|
PrinterPage._dxMeasurementUnits_ = 0
|
||||||
PrinterPage._dxLastMU_ = 2
|
PrinterPage._dxLastMU_ = 2
|
||||||
ReportDocument.Caption = 'Venta mensual'
|
ReportDocument.Caption = 'Venta mensual'
|
||||||
ReportDocument.CreationDate = 39343.811115983790000000
|
ReportDocument.CreationDate = 39346.803634976850000000
|
||||||
ReportTitle.Text = 'Venta mensual'
|
ReportTitle.Text = 'Venta mensual'
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clBlack
|
Font.Color = clBlack
|
||||||
|
|||||||
@ -109,14 +109,14 @@ uses uViewGridBase;
|
|||||||
procedure TfrViewControlGridStockEDI.Preview;
|
procedure TfrViewControlGridStockEDI.Preview;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
// dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text;
|
dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock de colección ' + frViewParametrosColeccion1.ccbColeccion.Text + ' en centro(s) ' + frViewParametrosCentro1.ccbCentro.Text;
|
||||||
dxComponentPrinterLink1.Preview;
|
dxComponentPrinterLink1.Preview;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewControlGridStockEDI.Print;
|
procedure TfrViewControlGridStockEDI.Print;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
// dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text;
|
dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock de colección ' + frViewParametrosColeccion1.ccbColeccion.Text + ' en centro(s) ' + frViewParametrosCentro1.ccbCentro.Text;
|
||||||
dxComponentPrinterLink1.Print(True, Nil);
|
dxComponentPrinterLink1.Print(True, Nil);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -195,7 +195,7 @@ begin
|
|||||||
if Assigned(FItems) then
|
if Assigned(FItems) then
|
||||||
Items.DataTable.Active := False;
|
Items.DataTable.Active := False;
|
||||||
AColeccionesList := frViewParametrosColeccion1.ColeccionesSeleccionadas;
|
AColeccionesList := frViewParametrosColeccion1.ColeccionesSeleccionadas;
|
||||||
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
|
ACentrosList := frViewParametrosCentro1.CodigoCentrosSeleccionados;
|
||||||
|
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
|
|||||||
@ -7,9 +7,9 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
|
|||||||
Top = 60
|
Top = 60
|
||||||
Width = 553
|
Width = 553
|
||||||
Height = 417
|
Height = 417
|
||||||
ExplicitTop = 128
|
ExplicitTop = 60
|
||||||
ExplicitWidth = 553
|
ExplicitWidth = 553
|
||||||
ExplicitHeight = 349
|
ExplicitHeight = 417
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
FilterBox.Visible = fvNever
|
FilterBox.Visible = fvNever
|
||||||
DataController.Summary.DefaultGroupSummaryItems = <
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
@ -259,7 +259,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
|
|||||||
end
|
end
|
||||||
object cxGridViewCENTRO: TcxGridDBColumn
|
object cxGridViewCENTRO: TcxGridDBColumn
|
||||||
Caption = 'Centro'
|
Caption = 'Centro'
|
||||||
DataBinding.FieldName = 'CENTRO'
|
DataBinding.FieldName = 'FILIAL'
|
||||||
Visible = False
|
Visible = False
|
||||||
GroupIndex = 1
|
GroupIndex = 1
|
||||||
end
|
end
|
||||||
@ -474,7 +474,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
|
|||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 19
|
ExplicitTop = 19
|
||||||
ExplicitWidth = 321
|
ExplicitWidth = 321
|
||||||
ExplicitHeight = 109
|
ExplicitHeight = 41
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 321
|
Width = 321
|
||||||
ExplicitWidth = 321
|
ExplicitWidth = 321
|
||||||
@ -496,7 +496,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
|
|||||||
ExplicitLeft = 321
|
ExplicitLeft = 321
|
||||||
ExplicitTop = 19
|
ExplicitTop = 19
|
||||||
ExplicitWidth = 400
|
ExplicitWidth = 400
|
||||||
ExplicitHeight = 109
|
ExplicitHeight = 41
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 400
|
Width = 400
|
||||||
ExplicitWidth = 400
|
ExplicitWidth = 400
|
||||||
@ -514,7 +514,6 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
|
|||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
ExplicitHeight = 109
|
|
||||||
object TBXButton3: TTBXButton
|
object TBXButton3: TTBXButton
|
||||||
Tag = 3
|
Tag = 3
|
||||||
Left = 8
|
Left = 8
|
||||||
@ -572,7 +571,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
|
|||||||
PrinterPage._dxMeasurementUnits_ = 0
|
PrinterPage._dxMeasurementUnits_ = 0
|
||||||
PrinterPage._dxLastMU_ = 2
|
PrinterPage._dxLastMU_ = 2
|
||||||
ReportDocument.Caption = 'Venta mensual'
|
ReportDocument.Caption = 'Venta mensual'
|
||||||
ReportDocument.CreationDate = 39343.811842083330000000
|
ReportDocument.CreationDate = 39346.818025173610000000
|
||||||
ReportTitle.Text = 'Venta mensual'
|
ReportTitle.Text = 'Venta mensual'
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clBlack
|
Font.Color = clBlack
|
||||||
|
|||||||
@ -109,14 +109,14 @@ uses
|
|||||||
procedure TfrViewControlGridStockEDIInventario.Preview;
|
procedure TfrViewControlGridStockEDIInventario.Preview;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
// dxComponentPrinterLink1.ReportTitle.Text := 'Diferencias con último inventario de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text;
|
dxComponentPrinterLink1.ReportTitle.Text := 'Diferencias con último inventario de colección ' + frViewParametrosColeccion1.ccbColeccion.Text + ' en centro(s) ' + frViewParametrosCentro1.ccbCentro.Text;
|
||||||
dxComponentPrinterLink1.Preview;
|
dxComponentPrinterLink1.Preview;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewControlGridStockEDIInventario.Print;
|
procedure TfrViewControlGridStockEDIInventario.Print;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
// dxComponentPrinterLink1.ReportTitle.Text := 'Diferencias con último inventario de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text;
|
dxComponentPrinterLink1.ReportTitle.Text := 'Diferencias con último inventario de colección ' + frViewParametrosColeccion1.ccbColeccion.Text + ' en centro(s) ' + frViewParametrosCentro1.ccbCentro.Text;
|
||||||
dxComponentPrinterLink1.Print(True, Nil);
|
dxComponentPrinterLink1.Print(True, Nil);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -195,7 +195,7 @@ begin
|
|||||||
if Assigned(FItems) then
|
if Assigned(FItems) then
|
||||||
Items.DataTable.Active := False;
|
Items.DataTable.Active := False;
|
||||||
AColeccionesList := frViewParametrosColeccion1.ColeccionesSeleccionadas;
|
AColeccionesList := frViewParametrosColeccion1.ColeccionesSeleccionadas;
|
||||||
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
|
ACentrosList := frViewParametrosCentro1.CodigoCentrosSeleccionados;
|
||||||
|
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
@ -252,7 +252,7 @@ begin
|
|||||||
|
|
||||||
|
|
||||||
Items.DataTable.Where.Clear;
|
Items.DataTable.Where.Clear;
|
||||||
Items.DataTable.Where.AddText(AWhere, False);
|
// Items.DataTable.Where.AddText(AWhere, False);
|
||||||
Items.DataTable.Active := True;
|
Items.DataTable.Active := True;
|
||||||
|
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -7,9 +7,9 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
|
|||||||
Top = 60
|
Top = 60
|
||||||
Width = 621
|
Width = 621
|
||||||
Height = 399
|
Height = 399
|
||||||
ExplicitTop = 128
|
ExplicitTop = 60
|
||||||
ExplicitWidth = 621
|
ExplicitWidth = 621
|
||||||
ExplicitHeight = 331
|
ExplicitHeight = 399
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
FilterBox.Visible = fvNever
|
FilterBox.Visible = fvNever
|
||||||
DataController.Summary.DefaultGroupSummaryItems = <
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
@ -218,7 +218,7 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
|
|||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 19
|
ExplicitTop = 19
|
||||||
ExplicitWidth = 321
|
ExplicitWidth = 321
|
||||||
ExplicitHeight = 109
|
ExplicitHeight = 41
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 321
|
Width = 321
|
||||||
ExplicitWidth = 321
|
ExplicitWidth = 321
|
||||||
@ -236,7 +236,6 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
|
|||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitHeight = 109
|
|
||||||
object TBXButton3: TTBXButton
|
object TBXButton3: TTBXButton
|
||||||
Tag = 3
|
Tag = 3
|
||||||
Left = 8
|
Left = 8
|
||||||
@ -296,7 +295,7 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
|
|||||||
PrinterPage.PageSize.Y = 297000
|
PrinterPage.PageSize.Y = 297000
|
||||||
PrinterPage._dxMeasurementUnits_ = 0
|
PrinterPage._dxMeasurementUnits_ = 0
|
||||||
PrinterPage._dxLastMU_ = 2
|
PrinterPage._dxLastMU_ = 2
|
||||||
ReportDocument.CreationDate = 39343.812036666670000000
|
ReportDocument.CreationDate = 39346.696871921300000000
|
||||||
ReportDocument.IsCaptionAssigned = True
|
ReportDocument.IsCaptionAssigned = True
|
||||||
ReportTitle.AdjustOnReportScale = True
|
ReportTitle.AdjustOnReportScale = True
|
||||||
ReportTitle.Text = 'Venta mensual'
|
ReportTitle.Text = 'Venta mensual'
|
||||||
|
|||||||
@ -186,7 +186,7 @@ begin
|
|||||||
AWhere := AWhere + AWhereColeccion;
|
AWhere := AWhere + AWhereColeccion;
|
||||||
|
|
||||||
Items.DataTable.Where.Clear;
|
Items.DataTable.Where.Clear;
|
||||||
Items.DataTable.Where.AddText(AWhere, False);
|
// Items.DataTable.Where.AddText(AWhere, False);
|
||||||
Items.DataTable.Active := True;
|
Items.DataTable.Active := True;
|
||||||
|
|
||||||
finally
|
finally
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -70,7 +70,8 @@ requires
|
|||||||
vclshlctrls,
|
vclshlctrls,
|
||||||
dxPScxGridLnkD10,
|
dxPScxGridLnkD10,
|
||||||
dclcxLibraryD10,
|
dclcxLibraryD10,
|
||||||
dxLayoutControlD10;
|
dxLayoutControlD10,
|
||||||
|
Parametros;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uDataModuleTraspasos in 'uDataModuleTraspasos.pas' {dmTraspasos: TDAClientDataModule},
|
uDataModuleTraspasos in 'uDataModuleTraspasos.pas' {dmTraspasos: TDAClientDataModule},
|
||||||
|
|||||||
@ -1,4 +1,5 @@
|
|||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{8271ac21-0741-43b7-8373-432a0bf0ec7a}</ProjectGuid>
|
<ProjectGuid>{8271ac21-0741-43b7-8373-432a0bf0ec7a}</ProjectGuid>
|
||||||
<MainSource>Traspasos.dpk</MainSource>
|
<MainSource>Traspasos.dpk</MainSource>
|
||||||
@ -52,52 +53,53 @@
|
|||||||
<DelphiCompile Include="Traspasos.dpk">
|
<DelphiCompile Include="Traspasos.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\..\Lib\adortl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\BaseD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\bdertl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\ControlesBaseD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxDataD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxEditorsD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxExportD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxExtEditorsD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxGridD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxLibraryD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxPageControlD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\cxTreeListD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dbrtl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dclcxLibraryD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\designide.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dsnap.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dxComnD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dxLayoutControlD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dxPSCoreD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dxPScxCommonD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dxPScxGridLnkD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dxPSLnksD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\dxThemeD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\GUISDK_D10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Jcl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JclVcl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvCoreD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvCustomD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvGlobusD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvPageCompsD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvStdCtrlsD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\JvSystemD10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Parametros.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\PluginSDK_D10R.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\rtl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\tb2k_D10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\tbx_D10.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vcl.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vclshlctrls.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\VclSmp.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\vclx.dcp" />
|
||||||
<DCCReference Include="..\Reglas\uBizTraspasos.pas" />
|
<DCCReference Include="..\Reglas\uBizTraspasos.pas" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\BaseD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\ControlesBaseD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGridLnkD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCustomD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_D10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_D10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
|
||||||
<DCCReference Include="uDataModuleTraspasos.pas">
|
<DCCReference Include="uDataModuleTraspasos.pas">
|
||||||
<Form>dmTraspasos</Form>
|
<Form>dmTraspasos</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -56,11 +56,9 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TdmTraspasos.GetItems(
|
function TdmTraspasos.GetItems(const AEstado: TInvTraspasoEstado): IBizTraspasos;
|
||||||
const AEstado: TInvTraspasoEstado): IBizTraspasos;
|
|
||||||
var
|
var
|
||||||
dtLista: TDACDSDataTable;
|
dtLista: TDACDSDataTable;
|
||||||
AStr : String;
|
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
|
|||||||
@ -1,21 +1,27 @@
|
|||||||
inherited fEditorListaTraspasos: TfEditorListaTraspasos
|
inherited fEditorListaTraspasos: TfEditorListaTraspasos
|
||||||
Left = 271
|
Left = 271
|
||||||
Top = 250
|
Top = 250
|
||||||
Width = 909
|
|
||||||
Height = 659
|
|
||||||
Caption = 'Control de traspasos'
|
Caption = 'Control de traspasos'
|
||||||
|
ClientHeight = 625
|
||||||
|
ClientWidth = 901
|
||||||
|
ExplicitWidth = 909
|
||||||
|
ExplicitHeight = 659
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 901
|
Width = 901
|
||||||
Caption = 'Control de traspasos'
|
Caption = 'Control de traspasos'
|
||||||
|
ExplicitWidth = 901
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 874
|
Left = 874
|
||||||
|
ExplicitLeft = 874
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 901
|
Width = 901
|
||||||
|
ExplicitWidth = 901
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
|
ExplicitWidth = 571
|
||||||
object TBXSubmenuItem2: TTBXSubmenuItem [5]
|
object TBXSubmenuItem2: TTBXSubmenuItem [5]
|
||||||
Caption = 'Cambiar el estado'
|
Caption = 'Cambiar el estado'
|
||||||
DropdownCombo = True
|
DropdownCombo = True
|
||||||
@ -39,13 +45,19 @@ inherited fEditorListaTraspasos: TfEditorListaTraspasos
|
|||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
ExplicitWidth = 901
|
||||||
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TTBXToolbar
|
||||||
Left = 571
|
Left = 571
|
||||||
|
ExplicitLeft = 571
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TStatusBar
|
inherited StatusBar: TStatusBar
|
||||||
Top = 606
|
Top = 606
|
||||||
Width = 901
|
Width = 901
|
||||||
|
ExplicitTop = 606
|
||||||
|
ExplicitWidth = 901
|
||||||
end
|
end
|
||||||
object JvTabBar1: TJvTabBar [3]
|
object JvTabBar1: TJvTabBar [3]
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -85,15 +97,43 @@ inherited fEditorListaTraspasos: TfEditorListaTraspasos
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
|
ExplicitTop = 105
|
||||||
|
ExplicitWidth = 901
|
||||||
|
ExplicitHeight = 501
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 901
|
Width = 901
|
||||||
Height = 501
|
Height = 441
|
||||||
|
ExplicitWidth = 901
|
||||||
|
ExplicitHeight = 441
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
inherited cxGridViewAPROBADO: TcxGridDBColumn
|
inherited cxGridViewAPROBADO: TcxGridDBColumn
|
||||||
IsCaptionAssigned = True
|
IsCaptionAssigned = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
ExplicitWidth = 901
|
||||||
|
inherited frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
inherited ccbCentro: TJvCheckedComboBox
|
||||||
|
Width = 392
|
||||||
|
ExplicitWidth = 392
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXLabel1: TTBXLabel
|
||||||
|
Width = 901
|
||||||
|
ExplicitWidth = 901
|
||||||
|
ExplicitHeight = 19
|
||||||
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
|
Width = 476
|
||||||
|
ExplicitWidth = 476
|
||||||
|
inherited TBXButton3: TTBXButton
|
||||||
|
Action = actRefrescar
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
inherited dxComponentPrinterLink1: TdxGridReportLink
|
inherited dxComponentPrinterLink1: TdxGridReportLink
|
||||||
BuiltInReportLink = True
|
BuiltInReportLink = True
|
||||||
|
|||||||
@ -18,16 +18,17 @@ uses
|
|||||||
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
||||||
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls,
|
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls,
|
||||||
JvExControls, JvComponent, JvNavigationPane, StdCtrls,
|
JvExControls, JvComponent, JvNavigationPane, StdCtrls,
|
||||||
uViewListaTraspasos, uBizTraspasos;
|
uViewListaTraspasos, uBizTraspasos, uDAInterfaces;
|
||||||
|
|
||||||
|
const
|
||||||
|
CM_SETFOCUSEDRECORD = WM_USER + 1002;
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorListaTraspasos = interface(IEditorGridBase)
|
IEditorListaTraspasos = interface(IEditorGridBase)
|
||||||
['{729D3CD7-88E7-4D97-A9A0-8E0E1CF74716}']
|
['{729D3CD7-88E7-4D97-A9A0-8E0E1CF74716}']
|
||||||
function GetItems: IBizTraspasos;
|
function GetItems: IBizTraspasos;
|
||||||
procedure SetItems(const Value: IBizTraspasos);
|
procedure SetItems(const Value: IBizTraspasos);
|
||||||
property Items: IBizTraspasos read GetItems
|
property Items: IBizTraspasos read GetItems write SetItems;
|
||||||
write SetItems;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfEditorListaTraspasos = class(TfEditorGridBase, IEditorListaTraspasos)
|
TfEditorListaTraspasos = class(TfEditorGridBase, IEditorListaTraspasos)
|
||||||
@ -62,7 +63,7 @@ type
|
|||||||
function GetItems: IBizTraspasos;
|
function GetItems: IBizTraspasos;
|
||||||
procedure SetItems(const Value: IBizTraspasos);
|
procedure SetItems(const Value: IBizTraspasos);
|
||||||
procedure CambiarEstado(const NuevoEstado: TInvTraspasoEstado);
|
procedure CambiarEstado(const NuevoEstado: TInvTraspasoEstado);
|
||||||
function GetModified: Boolean; override;
|
function GetModified: Boolean; override;
|
||||||
public
|
public
|
||||||
property Items: IBizTraspasos read GetItems write SetItems;
|
property Items: IBizTraspasos read GetItems write SetItems;
|
||||||
constructor Create(AOwner: TComponent); override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
@ -95,7 +96,7 @@ begin
|
|||||||
if Assigned(FItems) then
|
if Assigned(FItems) then
|
||||||
begin
|
begin
|
||||||
dsDataTable.DataTable := FItems.DataTable;
|
dsDataTable.DataTable := FItems.DataTable;
|
||||||
frViewListaTraspasos1.dsDataSource.DataTable := FItems.DataTable;
|
frViewListaTraspasos1.Items := FItems;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -108,8 +109,6 @@ begin
|
|||||||
if not Assigned(ViewGrid) then
|
if not Assigned(ViewGrid) then
|
||||||
raise Exception.Create('No hay una vista asignada');
|
raise Exception.Create('No hay una vista asignada');
|
||||||
|
|
||||||
FItems.DataTable.Active := True;
|
|
||||||
|
|
||||||
with (ViewGrid as IViewListaTraspasos) do
|
with (ViewGrid as IViewListaTraspasos) do
|
||||||
begin
|
begin
|
||||||
VerPendientes;
|
VerPendientes;
|
||||||
@ -118,40 +117,11 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaTraspasos.JvTabBar1TabSelected(
|
procedure TfEditorListaTraspasos.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
|
||||||
Sender: TObject; Item: TJvTabBarItem);
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
if Items.DataTable.Active then
|
||||||
ShowHourglassCursor;
|
Items.DataTable.Active := False;
|
||||||
Items.DataTable.Active := False;
|
frViewListaTraspasos1.frViewParametrosCentro1.LimpiarSeleccion;
|
||||||
Application.ProcessMessages;
|
|
||||||
ViewGrid._FocusedView.BeginUpdate;
|
|
||||||
Application.ProcessMessages;
|
|
||||||
try
|
|
||||||
case Item.Index of
|
|
||||||
0 : begin
|
|
||||||
Items := dmTraspasos.GetItems(titPendiente);
|
|
||||||
(ViewGrid as IViewListaTraspasos).VerPendientes;
|
|
||||||
end;
|
|
||||||
|
|
||||||
1 : begin
|
|
||||||
Items := dmTraspasos.GetItems(titAprobado);
|
|
||||||
(ViewGrid as IViewListaTraspasos).VerAprobados;
|
|
||||||
end;
|
|
||||||
|
|
||||||
2 : begin
|
|
||||||
Items := dmTraspasos.GetItems;
|
|
||||||
(ViewGrid as IViewListaTraspasos).VerTodos;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
dsDataTable.DataTable := Items.DataTable;
|
|
||||||
ViewGrid._FocusedView.EndUpdate;
|
|
||||||
Items.DataTable.Active := True;
|
|
||||||
ViewGrid.ContraerTodo;
|
|
||||||
ViewGrid.GotoFirst;
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaTraspasos.actModificarExecute(
|
procedure TfEditorListaTraspasos.actModificarExecute(
|
||||||
@ -216,11 +186,42 @@ begin
|
|||||||
not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable))
|
not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable))
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaTraspasos.actRefrescarExecute(
|
procedure TfEditorListaTraspasos.actRefrescarExecute(Sender: TObject);
|
||||||
Sender: TObject);
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
ShowHourglassCursor;
|
||||||
ViewGrid.GotoFirst;
|
Items.DataTable.Active := False;
|
||||||
|
Application.ProcessMessages;
|
||||||
|
ViewGrid._FocusedView.BeginUpdate;
|
||||||
|
Application.ProcessMessages;
|
||||||
|
try
|
||||||
|
case JvTabBar1.SelectedTab.Index of
|
||||||
|
0 : begin
|
||||||
|
Items := dmTraspasos.GetItems(titPendiente);
|
||||||
|
(ViewGrid as IViewListaTraspasos).VerPendientes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
1 : begin
|
||||||
|
Items := dmTraspasos.GetItems(titAprobado);
|
||||||
|
(ViewGrid as IViewListaTraspasos).VerAprobados;
|
||||||
|
end;
|
||||||
|
|
||||||
|
2 : begin
|
||||||
|
Items := dmTraspasos.GetItems;
|
||||||
|
(ViewGrid as IViewListaTraspasos).VerTodos;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
frViewListaTraspasos1.Refresh;
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
finally
|
||||||
|
dsDataTable.DataTable := Items.DataTable;
|
||||||
|
ViewGrid._FocusedView.EndUpdate;
|
||||||
|
Items.DataTable.Active := True;
|
||||||
|
ViewGrid.ContraerTodo;
|
||||||
|
ViewGrid.GotoFirst;
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorListaTraspasos.actPendienteExecute(
|
procedure TfEditorListaTraspasos.actPendienteExecute(
|
||||||
@ -269,7 +270,8 @@ begin
|
|||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
bm := FItems.DataTable.GetBookMark;
|
bm := FItems.DataTable.GetBookMark;
|
||||||
FItems.DataTable.DisableControls;
|
// FItems.DataTable.DisableControls;
|
||||||
|
ViewGrid._FocusedView.BeginUpdate;
|
||||||
try
|
try
|
||||||
for i := 0 to ViewGrid._FocusedView.Controller.SelectedRecordCount-1 do
|
for i := 0 to ViewGrid._FocusedView.Controller.SelectedRecordCount-1 do
|
||||||
begin
|
begin
|
||||||
@ -286,8 +288,12 @@ begin
|
|||||||
FItems.DataTable.GotoBookMark(bm);
|
FItems.DataTable.GotoBookMark(bm);
|
||||||
finally
|
finally
|
||||||
FItems.DataTable.FreeBookMark(BM);
|
FItems.DataTable.FreeBookMark(BM);
|
||||||
FItems.DataTable.EnableControls;
|
// FItems.DataTable.EnableControls;
|
||||||
ViewGrid._FocusedView.Controller.ClearSelection;
|
ViewGrid._FocusedView.Controller.ClearSelection;
|
||||||
|
ViewGrid._FocusedView.EndUpdate;
|
||||||
|
PostMessage(Handle, CM_SETFOCUSEDRECORD, Integer(ViewGrid._FocusedView),
|
||||||
|
MakeLParam(ViewGrid._FocusedView.Controller.FocusedRowIndex,
|
||||||
|
ViewGrid._FocusedView.Controller.TopRowIndex));
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -1,9 +1,14 @@
|
|||||||
inherited frViewListaTraspasos: TfrViewListaTraspasos
|
inherited frViewListaTraspasos: TfrViewListaTraspasos
|
||||||
Width = 676
|
Width = 676
|
||||||
Height = 486
|
Height = 486
|
||||||
|
ExplicitWidth = 676
|
||||||
|
ExplicitHeight = 486
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
|
Top = 60
|
||||||
Width = 676
|
Width = 676
|
||||||
Height = 486
|
Height = 426
|
||||||
|
ExplicitWidth = 676
|
||||||
|
ExplicitHeight = 486
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
OnMouseDown = cxGridViewMouseDown
|
OnMouseDown = cxGridViewMouseDown
|
||||||
FilterBox.Visible = fvNever
|
FilterBox.Visible = fvNever
|
||||||
@ -199,7 +204,86 @@ inherited frViewListaTraspasos: TfrViewListaTraspasos
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object TBXDockablePanel1: TTBXDockablePanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
MaxClientHeight = 61
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'TBXDockablePanel1'
|
||||||
|
DockedWidth = 32
|
||||||
|
DockedHeight = 32
|
||||||
|
FloatingWidth = 128
|
||||||
|
FloatingHeight = 60
|
||||||
|
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||||
|
TabOrder = 1
|
||||||
|
ExplicitLeft = 8
|
||||||
|
ExplicitTop = 8
|
||||||
|
ExplicitWidth = 128
|
||||||
|
inline frViewParametrosCentro1: TfrViewParametrosCentro
|
||||||
|
Left = 0
|
||||||
|
Top = 19
|
||||||
|
Width = 425
|
||||||
|
Height = 41
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 0
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 19
|
||||||
|
ExplicitWidth = 425
|
||||||
|
ExplicitHeight = 41
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 425
|
||||||
|
ExplicitWidth = 425
|
||||||
|
inherited ccbCentro: TJvCheckedComboBox
|
||||||
|
Width = 392
|
||||||
|
ExplicitWidth = 392
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object TBXLabel1: TTBXLabel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 676
|
||||||
|
Height = 19
|
||||||
|
Margins.Left = 5
|
||||||
|
Margins.Top = 5
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Par'#225'metros de consulta'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = True
|
||||||
|
ParentFont = False
|
||||||
|
Underline = True
|
||||||
|
ExplicitWidth = 128
|
||||||
|
ExplicitHeight = 32
|
||||||
|
end
|
||||||
|
object pnlAgrupaciones: TTBXAlignmentPanel
|
||||||
|
Left = 425
|
||||||
|
Top = 19
|
||||||
|
Width = 251
|
||||||
|
Height = 41
|
||||||
|
Align = alClient
|
||||||
|
AutoSize = True
|
||||||
|
TabOrder = 2
|
||||||
|
ExplicitWidth = 41
|
||||||
|
object TBXButton3: TTBXButton
|
||||||
|
Tag = 3
|
||||||
|
Left = 8
|
||||||
|
Top = 10
|
||||||
|
Width = 90
|
||||||
|
Height = 21
|
||||||
|
AutoSize = False
|
||||||
|
Caption = 'Consultar'
|
||||||
|
ImageIndex = 0
|
||||||
|
TabOrder = 0
|
||||||
|
Wrapping = twEndEllipsis
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited dsDataSource: TDADataSource
|
inherited dsDataSource: TDADataSource
|
||||||
|
DataSet = tbl_TraspasosPendientes.Dataset
|
||||||
DataTable = dmTraspasos.tbl_TraspasosPendientes
|
DataTable = dmTraspasos.tbl_TraspasosPendientes
|
||||||
Top = 120
|
Top = 120
|
||||||
end
|
end
|
||||||
|
|||||||
@ -20,7 +20,8 @@ uses
|
|||||||
dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit,
|
dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit,
|
||||||
cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView,
|
cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView,
|
||||||
cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList,
|
cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList,
|
||||||
dxPScxCommon, dxPScxGridLnk, cxMemo;
|
dxPScxCommon, dxPScxGridLnk, cxMemo, TBXDkPanels, uCustomView, uViewBase,
|
||||||
|
uViewParametrosCentro, TB2Dock, uDAInterfaces, uViewParametrosControlGrid;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewListaTraspasos = interface(IViewGrid)
|
IViewListaTraspasos = interface(IViewGrid)
|
||||||
@ -28,6 +29,10 @@ type
|
|||||||
procedure VerPendientes;
|
procedure VerPendientes;
|
||||||
procedure VerAprobados;
|
procedure VerAprobados;
|
||||||
procedure VerTodos;
|
procedure VerTodos;
|
||||||
|
|
||||||
|
function GetItems: IBizTraspasos;
|
||||||
|
procedure SetItems(const Value: IBizTraspasos);
|
||||||
|
property Items: IBizTraspasos read GetItems write SetItems;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewListaTraspasos = class(TfrViewGrid, IViewListaTraspasos)
|
TfrViewListaTraspasos = class(TfrViewGrid, IViewListaTraspasos)
|
||||||
@ -73,6 +78,11 @@ type
|
|||||||
cxStyleCentro2: TcxStyle;
|
cxStyleCentro2: TcxStyle;
|
||||||
cxGridViewObservaciones: TcxGridDBColumn;
|
cxGridViewObservaciones: TcxGridDBColumn;
|
||||||
cxStyleObservacionesInforme: TcxStyle;
|
cxStyleObservacionesInforme: TcxStyle;
|
||||||
|
TBXDockablePanel1: TTBXDockablePanel;
|
||||||
|
frViewParametrosCentro1: TfrViewParametrosCentro;
|
||||||
|
TBXLabel1: TTBXLabel;
|
||||||
|
pnlAgrupaciones: TTBXAlignmentPanel;
|
||||||
|
TBXButton3: TTBXButton;
|
||||||
procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton;
|
procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton;
|
||||||
Shift: TShiftState; X, Y: Integer);
|
Shift: TShiftState; X, Y: Integer);
|
||||||
procedure cxGridBandedViewRR38GetDisplayText(
|
procedure cxGridBandedViewRR38GetDisplayText(
|
||||||
@ -130,16 +140,24 @@ type
|
|||||||
ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn;
|
ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn;
|
||||||
AnItem: TAbstractdxReportCellData);
|
AnItem: TAbstractdxReportCellData);
|
||||||
protected
|
protected
|
||||||
|
FItems: IBizTraspasos;
|
||||||
FTipo : String;
|
FTipo : String;
|
||||||
FNivelFiltrado : TcxFilterCriteriaItemList;
|
FNivelFiltrado : TcxFilterCriteriaItemList;
|
||||||
procedure FilterChanged(Sender: TObject); override;
|
procedure FilterChanged(Sender: TObject); override;
|
||||||
|
function GetItems: IBizTraspasos;
|
||||||
|
procedure SetItems(const Value: IBizTraspasos);
|
||||||
|
|
||||||
public
|
public
|
||||||
|
property Items: IBizTraspasos read GetItems write SetItems;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
procedure Preview; override;
|
procedure Preview; override;
|
||||||
procedure Print; override;
|
procedure Print; override;
|
||||||
procedure PrintSetup; override;
|
procedure PrintSetup; override;
|
||||||
procedure VerPendientes;
|
procedure VerPendientes;
|
||||||
procedure VerAprobados;
|
procedure VerAprobados;
|
||||||
procedure VerTodos;
|
procedure VerTodos;
|
||||||
|
procedure Refresh;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -259,6 +277,79 @@ begin
|
|||||||
dxComponentPrinterLink1.PageSetup;
|
dxComponentPrinterLink1.PageSetup;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaTraspasos.Refresh;
|
||||||
|
var
|
||||||
|
ACentrosList : TStringList;
|
||||||
|
AWhereCentro : String;
|
||||||
|
AWhereCentro2 : String;
|
||||||
|
AWhere : String;
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
ACentrosList := Nil;
|
||||||
|
|
||||||
|
if Assigned(FItems) then
|
||||||
|
Items.DataTable.Active := False;
|
||||||
|
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if Assigned(ACentrosList) then
|
||||||
|
begin
|
||||||
|
AWhereCentro := '';
|
||||||
|
AWhereCentro2 := '';
|
||||||
|
if ACentrosList.Count = 0 then
|
||||||
|
begin
|
||||||
|
ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.');
|
||||||
|
Exit;
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
AWhereCentro := AWhereCentro + ' FILIAL in (';
|
||||||
|
AWhereCentro2 := AWhereCentro2 + ' FILIAL2 in (';
|
||||||
|
for i := 0 to ACentrosList.Count - 1 do
|
||||||
|
begin
|
||||||
|
if i > 0 then
|
||||||
|
begin
|
||||||
|
AWhereCentro := AWhereCentro + ', ';
|
||||||
|
AWhereCentro2 := AWhereCentro2 + ', ';
|
||||||
|
end;
|
||||||
|
AWhereCentro := AWhereCentro + '''' + ACentrosList[i] + '''';
|
||||||
|
AWhereCentro2 := AWhereCentro2 + '''' + ACentrosList[i] + '''';
|
||||||
|
end;
|
||||||
|
AWhereCentro := AWhereCentro + ')';
|
||||||
|
AWhereCentro2 := AWhereCentro2 + ')';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
AWhere := '';
|
||||||
|
if AWhereCentro <> '' then
|
||||||
|
begin
|
||||||
|
AWhere := AWhere + AWhereCentro + ' OR ' + AWhereCentro2;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Items.DataTable.Where.Clear;
|
||||||
|
Items.DataTable.Where.AddText(AWhere, False);
|
||||||
|
Items.DataTable.Active := True;
|
||||||
|
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
FreeAndNIL(ACentrosList);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewListaTraspasos.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FItems := Nil;
|
||||||
|
frViewParametrosCentro1.Refresh;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaTraspasos.SetItems(const Value: IBizTraspasos);
|
||||||
|
begin
|
||||||
|
FItems := Value;
|
||||||
|
if Assigned(FItems) then
|
||||||
|
dsDataSource.DataTable := FItems.DataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaTraspasos.cxGridBandedViewCODIGOGetDisplayText(
|
procedure TfrViewListaTraspasos.cxGridBandedViewCODIGOGetDisplayText(
|
||||||
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
||||||
var AText: String);
|
var AText: String);
|
||||||
@ -453,6 +544,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewListaTraspasos.Destroy;
|
||||||
|
begin
|
||||||
|
FItems := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewListaTraspasos.cxGridViewCODIGOGetDataText(
|
procedure TfrViewListaTraspasos.cxGridViewCODIGOGetDataText(
|
||||||
Sender: TcxCustomGridTableItem; ARecordIndex: Integer;
|
Sender: TcxCustomGridTableItem; ARecordIndex: Integer;
|
||||||
var AText: String);
|
var AText: String);
|
||||||
@ -551,4 +648,9 @@ begin
|
|||||||
cxGridView.DataController.Filter.EndUpdate;
|
cxGridView.DataController.Filter.EndUpdate;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TfrViewListaTraspasos.GetItems: IBizTraspasos;
|
||||||
|
begin
|
||||||
|
Result := FItems;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -523,31 +523,36 @@ object dmVentasTerminadas: TdmVentasTerminadas
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALTERMDEV'
|
Name = 'VALTERMDEV'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 2
|
||||||
DisplayLabel = 'Val.Term/Dev'
|
DisplayLabel = 'Val.Term/Dev'
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALFINALRESC'
|
Name = 'VALFINALRESC'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 2
|
||||||
DisplayLabel = 'Val.Final/Resc'
|
DisplayLabel = 'Val.Final/Resc'
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALVEN'
|
Name = 'VALVEN'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 2
|
||||||
DisplayLabel = 'Imp. ventas'
|
DisplayLabel = 'Imp. ventas'
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALDEV'
|
Name = 'VALDEV'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 2
|
||||||
DisplayLabel = 'Imp. devoluciones'
|
DisplayLabel = 'Imp. devoluciones'
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALTOT'
|
Name = 'VALTOT'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 2
|
||||||
DisplayLabel = 'Imp. Total'
|
DisplayLabel = 'Imp. Total'
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
end>
|
end>
|
||||||
|
|||||||
@ -9,8 +9,8 @@ const
|
|||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_VentasTerminadasCrossTab = '{2E68D174-CE7E-4597-A951-7670FA84D874}';
|
RID_VentasTerminadasCrossTab = '{E35531EF-55AE-4A00-823F-5B7AD2AC3170}';
|
||||||
RID_VentasTerminadas = '{F20667F0-C1D2-4500-8E10-1B8577467C80}';
|
RID_VentasTerminadas = '{D098E936-4B28-485D-8B90-913C71342300}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_VentasTerminadasCrossTab = 'VentasTerminadasCrossTab';
|
nme_VentasTerminadasCrossTab = 'VentasTerminadasCrossTab';
|
||||||
@ -97,7 +97,7 @@ const
|
|||||||
type
|
type
|
||||||
{ IVentasTerminadasCrossTab }
|
{ IVentasTerminadasCrossTab }
|
||||||
IVentasTerminadasCrossTab = interface(IDAStronglyTypedDataTable)
|
IVentasTerminadasCrossTab = interface(IDAStronglyTypedDataTable)
|
||||||
['{F1FA92FE-5A97-4645-A93A-CAFA9775A238}']
|
['{7F43FB66-B68A-4E2E-BF67-E314FDE24117}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
|
|
||||||
|
|
||||||
@ -120,7 +120,7 @@ type
|
|||||||
|
|
||||||
{ IVentasTerminadas }
|
{ IVentasTerminadas }
|
||||||
IVentasTerminadas = interface(IDAStronglyTypedDataTable)
|
IVentasTerminadas = interface(IDAStronglyTypedDataTable)
|
||||||
['{78DAAFC9-9EAE-4237-B301-3103B6C18EF2}']
|
['{6861A381-9EBD-4816-8EAC-5B2EDB0ED191}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetNUMINFValue: String;
|
function GetNUMINFValue: String;
|
||||||
procedure SetNUMINFValue(const aValue: String);
|
procedure SetNUMINFValue(const aValue: String);
|
||||||
@ -242,24 +242,24 @@ type
|
|||||||
procedure SetTOTALValue(const aValue: TBcd);
|
procedure SetTOTALValue(const aValue: TBcd);
|
||||||
function GetTOTALIsNull: Boolean;
|
function GetTOTALIsNull: Boolean;
|
||||||
procedure SetTOTALIsNull(const aValue: Boolean);
|
procedure SetTOTALIsNull(const aValue: Boolean);
|
||||||
function GetVALTERMDEVValue: TBcd;
|
function GetVALTERMDEVValue: Currency;
|
||||||
procedure SetVALTERMDEVValue(const aValue: TBcd);
|
procedure SetVALTERMDEVValue(const aValue: Currency);
|
||||||
function GetVALTERMDEVIsNull: Boolean;
|
function GetVALTERMDEVIsNull: Boolean;
|
||||||
procedure SetVALTERMDEVIsNull(const aValue: Boolean);
|
procedure SetVALTERMDEVIsNull(const aValue: Boolean);
|
||||||
function GetVALFINALRESCValue: TBcd;
|
function GetVALFINALRESCValue: Currency;
|
||||||
procedure SetVALFINALRESCValue(const aValue: TBcd);
|
procedure SetVALFINALRESCValue(const aValue: Currency);
|
||||||
function GetVALFINALRESCIsNull: Boolean;
|
function GetVALFINALRESCIsNull: Boolean;
|
||||||
procedure SetVALFINALRESCIsNull(const aValue: Boolean);
|
procedure SetVALFINALRESCIsNull(const aValue: Boolean);
|
||||||
function GetVALVENValue: TBcd;
|
function GetVALVENValue: Currency;
|
||||||
procedure SetVALVENValue(const aValue: TBcd);
|
procedure SetVALVENValue(const aValue: Currency);
|
||||||
function GetVALVENIsNull: Boolean;
|
function GetVALVENIsNull: Boolean;
|
||||||
procedure SetVALVENIsNull(const aValue: Boolean);
|
procedure SetVALVENIsNull(const aValue: Boolean);
|
||||||
function GetVALDEVValue: TBcd;
|
function GetVALDEVValue: Currency;
|
||||||
procedure SetVALDEVValue(const aValue: TBcd);
|
procedure SetVALDEVValue(const aValue: Currency);
|
||||||
function GetVALDEVIsNull: Boolean;
|
function GetVALDEVIsNull: Boolean;
|
||||||
procedure SetVALDEVIsNull(const aValue: Boolean);
|
procedure SetVALDEVIsNull(const aValue: Boolean);
|
||||||
function GetVALTOTValue: TBcd;
|
function GetVALTOTValue: Currency;
|
||||||
procedure SetVALTOTValue(const aValue: TBcd);
|
procedure SetVALTOTValue(const aValue: Currency);
|
||||||
function GetVALTOTIsNull: Boolean;
|
function GetVALTOTIsNull: Boolean;
|
||||||
procedure SetVALTOTIsNull(const aValue: Boolean);
|
procedure SetVALTOTIsNull(const aValue: Boolean);
|
||||||
|
|
||||||
@ -325,15 +325,15 @@ type
|
|||||||
property DEVOLUCIONESIsNull: Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull;
|
property DEVOLUCIONESIsNull: Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull;
|
||||||
property TOTAL: TBcd read GetTOTALValue write SetTOTALValue;
|
property TOTAL: TBcd read GetTOTALValue write SetTOTALValue;
|
||||||
property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull;
|
property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull;
|
||||||
property VALTERMDEV: TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue;
|
property VALTERMDEV: Currency read GetVALTERMDEVValue write SetVALTERMDEVValue;
|
||||||
property VALTERMDEVIsNull: Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull;
|
property VALTERMDEVIsNull: Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull;
|
||||||
property VALFINALRESC: TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue;
|
property VALFINALRESC: Currency read GetVALFINALRESCValue write SetVALFINALRESCValue;
|
||||||
property VALFINALRESCIsNull: Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull;
|
property VALFINALRESCIsNull: Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull;
|
||||||
property VALVEN: TBcd read GetVALVENValue write SetVALVENValue;
|
property VALVEN: Currency read GetVALVENValue write SetVALVENValue;
|
||||||
property VALVENIsNull: Boolean read GetVALVENIsNull write SetVALVENIsNull;
|
property VALVENIsNull: Boolean read GetVALVENIsNull write SetVALVENIsNull;
|
||||||
property VALDEV: TBcd read GetVALDEVValue write SetVALDEVValue;
|
property VALDEV: Currency read GetVALDEVValue write SetVALDEVValue;
|
||||||
property VALDEVIsNull: Boolean read GetVALDEVIsNull write SetVALDEVIsNull;
|
property VALDEVIsNull: Boolean read GetVALDEVIsNull write SetVALDEVIsNull;
|
||||||
property VALTOT: TBcd read GetVALTOTValue write SetVALTOTValue;
|
property VALTOT: Currency read GetVALTOTValue write SetVALTOTValue;
|
||||||
property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull;
|
property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -462,24 +462,24 @@ type
|
|||||||
procedure SetTOTALValue(const aValue: TBcd); virtual;
|
procedure SetTOTALValue(const aValue: TBcd); virtual;
|
||||||
function GetTOTALIsNull: Boolean; virtual;
|
function GetTOTALIsNull: Boolean; virtual;
|
||||||
procedure SetTOTALIsNull(const aValue: Boolean); virtual;
|
procedure SetTOTALIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALTERMDEVValue: TBcd; virtual;
|
function GetVALTERMDEVValue: Currency; virtual;
|
||||||
procedure SetVALTERMDEVValue(const aValue: TBcd); virtual;
|
procedure SetVALTERMDEVValue(const aValue: Currency); virtual;
|
||||||
function GetVALTERMDEVIsNull: Boolean; virtual;
|
function GetVALTERMDEVIsNull: Boolean; virtual;
|
||||||
procedure SetVALTERMDEVIsNull(const aValue: Boolean); virtual;
|
procedure SetVALTERMDEVIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALFINALRESCValue: TBcd; virtual;
|
function GetVALFINALRESCValue: Currency; virtual;
|
||||||
procedure SetVALFINALRESCValue(const aValue: TBcd); virtual;
|
procedure SetVALFINALRESCValue(const aValue: Currency); virtual;
|
||||||
function GetVALFINALRESCIsNull: Boolean; virtual;
|
function GetVALFINALRESCIsNull: Boolean; virtual;
|
||||||
procedure SetVALFINALRESCIsNull(const aValue: Boolean); virtual;
|
procedure SetVALFINALRESCIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALVENValue: TBcd; virtual;
|
function GetVALVENValue: Currency; virtual;
|
||||||
procedure SetVALVENValue(const aValue: TBcd); virtual;
|
procedure SetVALVENValue(const aValue: Currency); virtual;
|
||||||
function GetVALVENIsNull: Boolean; virtual;
|
function GetVALVENIsNull: Boolean; virtual;
|
||||||
procedure SetVALVENIsNull(const aValue: Boolean); virtual;
|
procedure SetVALVENIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALDEVValue: TBcd; virtual;
|
function GetVALDEVValue: Currency; virtual;
|
||||||
procedure SetVALDEVValue(const aValue: TBcd); virtual;
|
procedure SetVALDEVValue(const aValue: Currency); virtual;
|
||||||
function GetVALDEVIsNull: Boolean; virtual;
|
function GetVALDEVIsNull: Boolean; virtual;
|
||||||
procedure SetVALDEVIsNull(const aValue: Boolean); virtual;
|
procedure SetVALDEVIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALTOTValue: TBcd; virtual;
|
function GetVALTOTValue: Currency; virtual;
|
||||||
procedure SetVALTOTValue(const aValue: TBcd); virtual;
|
procedure SetVALTOTValue(const aValue: Currency); virtual;
|
||||||
function GetVALTOTIsNull: Boolean; virtual;
|
function GetVALTOTIsNull: Boolean; virtual;
|
||||||
procedure SetVALTOTIsNull(const aValue: Boolean); virtual;
|
procedure SetVALTOTIsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
@ -544,15 +544,15 @@ type
|
|||||||
property DEVOLUCIONESIsNull: Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull;
|
property DEVOLUCIONESIsNull: Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull;
|
||||||
property TOTAL: TBcd read GetTOTALValue write SetTOTALValue;
|
property TOTAL: TBcd read GetTOTALValue write SetTOTALValue;
|
||||||
property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull;
|
property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull;
|
||||||
property VALTERMDEV: TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue;
|
property VALTERMDEV: Currency read GetVALTERMDEVValue write SetVALTERMDEVValue;
|
||||||
property VALTERMDEVIsNull: Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull;
|
property VALTERMDEVIsNull: Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull;
|
||||||
property VALFINALRESC: TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue;
|
property VALFINALRESC: Currency read GetVALFINALRESCValue write SetVALFINALRESCValue;
|
||||||
property VALFINALRESCIsNull: Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull;
|
property VALFINALRESCIsNull: Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull;
|
||||||
property VALVEN: TBcd read GetVALVENValue write SetVALVENValue;
|
property VALVEN: Currency read GetVALVENValue write SetVALVENValue;
|
||||||
property VALVENIsNull: Boolean read GetVALVENIsNull write SetVALVENIsNull;
|
property VALVENIsNull: Boolean read GetVALVENIsNull write SetVALVENIsNull;
|
||||||
property VALDEV: TBcd read GetVALDEVValue write SetVALDEVValue;
|
property VALDEV: Currency read GetVALDEVValue write SetVALDEVValue;
|
||||||
property VALDEVIsNull: Boolean read GetVALDEVIsNull write SetVALDEVIsNull;
|
property VALDEVIsNull: Boolean read GetVALDEVIsNull write SetVALDEVIsNull;
|
||||||
property VALTOT: TBcd read GetVALTOTValue write SetVALTOTValue;
|
property VALTOT: Currency read GetVALTOTValue write SetVALTOTValue;
|
||||||
property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull;
|
property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull;
|
||||||
|
|
||||||
public
|
public
|
||||||
@ -1218,14 +1218,14 @@ begin
|
|||||||
DataTable.Fields[idx_VentasTerminadasTOTAL].AsVariant := Null;
|
DataTable.Fields[idx_VentasTerminadasTOTAL].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasDataTableRules.GetVALTERMDEVValue: TBcd;
|
function TVentasTerminadasDataTableRules.GetVALTERMDEVValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsDecimal;
|
result := DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsCurrency;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasDataTableRules.SetVALTERMDEVValue(const aValue: TBcd);
|
procedure TVentasTerminadasDataTableRules.SetVALTERMDEVValue(const aValue: Currency);
|
||||||
begin
|
begin
|
||||||
DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsDecimal := aValue;
|
DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsCurrency := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasDataTableRules.GetVALTERMDEVIsNull: boolean;
|
function TVentasTerminadasDataTableRules.GetVALTERMDEVIsNull: boolean;
|
||||||
@ -1239,14 +1239,14 @@ begin
|
|||||||
DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsVariant := Null;
|
DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasDataTableRules.GetVALFINALRESCValue: TBcd;
|
function TVentasTerminadasDataTableRules.GetVALFINALRESCValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsDecimal;
|
result := DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsCurrency;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasDataTableRules.SetVALFINALRESCValue(const aValue: TBcd);
|
procedure TVentasTerminadasDataTableRules.SetVALFINALRESCValue(const aValue: Currency);
|
||||||
begin
|
begin
|
||||||
DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsDecimal := aValue;
|
DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsCurrency := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasDataTableRules.GetVALFINALRESCIsNull: boolean;
|
function TVentasTerminadasDataTableRules.GetVALFINALRESCIsNull: boolean;
|
||||||
@ -1260,14 +1260,14 @@ begin
|
|||||||
DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsVariant := Null;
|
DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasDataTableRules.GetVALVENValue: TBcd;
|
function TVentasTerminadasDataTableRules.GetVALVENValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_VentasTerminadasVALVEN].AsDecimal;
|
result := DataTable.Fields[idx_VentasTerminadasVALVEN].AsCurrency;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasDataTableRules.SetVALVENValue(const aValue: TBcd);
|
procedure TVentasTerminadasDataTableRules.SetVALVENValue(const aValue: Currency);
|
||||||
begin
|
begin
|
||||||
DataTable.Fields[idx_VentasTerminadasVALVEN].AsDecimal := aValue;
|
DataTable.Fields[idx_VentasTerminadasVALVEN].AsCurrency := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasDataTableRules.GetVALVENIsNull: boolean;
|
function TVentasTerminadasDataTableRules.GetVALVENIsNull: boolean;
|
||||||
@ -1281,14 +1281,14 @@ begin
|
|||||||
DataTable.Fields[idx_VentasTerminadasVALVEN].AsVariant := Null;
|
DataTable.Fields[idx_VentasTerminadasVALVEN].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasDataTableRules.GetVALDEVValue: TBcd;
|
function TVentasTerminadasDataTableRules.GetVALDEVValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_VentasTerminadasVALDEV].AsDecimal;
|
result := DataTable.Fields[idx_VentasTerminadasVALDEV].AsCurrency;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasDataTableRules.SetVALDEVValue(const aValue: TBcd);
|
procedure TVentasTerminadasDataTableRules.SetVALDEVValue(const aValue: Currency);
|
||||||
begin
|
begin
|
||||||
DataTable.Fields[idx_VentasTerminadasVALDEV].AsDecimal := aValue;
|
DataTable.Fields[idx_VentasTerminadasVALDEV].AsCurrency := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasDataTableRules.GetVALDEVIsNull: boolean;
|
function TVentasTerminadasDataTableRules.GetVALDEVIsNull: boolean;
|
||||||
@ -1302,14 +1302,14 @@ begin
|
|||||||
DataTable.Fields[idx_VentasTerminadasVALDEV].AsVariant := Null;
|
DataTable.Fields[idx_VentasTerminadasVALDEV].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasDataTableRules.GetVALTOTValue: TBcd;
|
function TVentasTerminadasDataTableRules.GetVALTOTValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_VentasTerminadasVALTOT].AsDecimal;
|
result := DataTable.Fields[idx_VentasTerminadasVALTOT].AsCurrency;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasDataTableRules.SetVALTOTValue(const aValue: TBcd);
|
procedure TVentasTerminadasDataTableRules.SetVALTOTValue(const aValue: Currency);
|
||||||
begin
|
begin
|
||||||
DataTable.Fields[idx_VentasTerminadasVALTOT].AsDecimal := aValue;
|
DataTable.Fields[idx_VentasTerminadasVALTOT].AsCurrency := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasDataTableRules.GetVALTOTIsNull: boolean;
|
function TVentasTerminadasDataTableRules.GetVALTOTIsNull: boolean;
|
||||||
|
|||||||
@ -9,13 +9,13 @@ const
|
|||||||
{ Delta rules ids
|
{ Delta rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_VentasTerminadasCrossTabDelta = '{450CE6EB-71EE-4A59-9D2A-558F4D5346A3}';
|
RID_VentasTerminadasCrossTabDelta = '{D13D1DE1-ED2A-4146-8D79-6B99529AC6CB}';
|
||||||
RID_VentasTerminadasDelta = '{05A89678-2248-4B09-9BEC-354E07FD2CE5}';
|
RID_VentasTerminadasDelta = '{D00EC469-4C92-48AF-BDC3-D946B20C1A47}';
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IVentasTerminadasCrossTabDelta }
|
{ IVentasTerminadasCrossTabDelta }
|
||||||
IVentasTerminadasCrossTabDelta = interface(IVentasTerminadasCrossTab)
|
IVentasTerminadasCrossTabDelta = interface(IVentasTerminadasCrossTab)
|
||||||
['{450CE6EB-71EE-4A59-9D2A-558F4D5346A3}']
|
['{D13D1DE1-ED2A-4146-8D79-6B99529AC6CB}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
@ -37,7 +37,7 @@ type
|
|||||||
|
|
||||||
{ IVentasTerminadasDelta }
|
{ IVentasTerminadasDelta }
|
||||||
IVentasTerminadasDelta = interface(IVentasTerminadas)
|
IVentasTerminadasDelta = interface(IVentasTerminadas)
|
||||||
['{05A89678-2248-4B09-9BEC-354E07FD2CE5}']
|
['{D00EC469-4C92-48AF-BDC3-D946B20C1A47}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldNUMINFValue : String;
|
function GetOldNUMINFValue : String;
|
||||||
function GetOldCLAVE1Value : TBcd;
|
function GetOldCLAVE1Value : TBcd;
|
||||||
@ -69,11 +69,11 @@ type
|
|||||||
function GetOldVENTASValue : TBcd;
|
function GetOldVENTASValue : TBcd;
|
||||||
function GetOldDEVOLUCIONESValue : TBcd;
|
function GetOldDEVOLUCIONESValue : TBcd;
|
||||||
function GetOldTOTALValue : TBcd;
|
function GetOldTOTALValue : TBcd;
|
||||||
function GetOldVALTERMDEVValue : TBcd;
|
function GetOldVALTERMDEVValue : Currency;
|
||||||
function GetOldVALFINALRESCValue : TBcd;
|
function GetOldVALFINALRESCValue : Currency;
|
||||||
function GetOldVALVENValue : TBcd;
|
function GetOldVALVENValue : Currency;
|
||||||
function GetOldVALDEVValue : TBcd;
|
function GetOldVALDEVValue : Currency;
|
||||||
function GetOldVALTOTValue : TBcd;
|
function GetOldVALTOTValue : Currency;
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property OldNUMINF : String read GetOldNUMINFValue;
|
property OldNUMINF : String read GetOldNUMINFValue;
|
||||||
@ -106,11 +106,11 @@ type
|
|||||||
property OldVENTAS : TBcd read GetOldVENTASValue;
|
property OldVENTAS : TBcd read GetOldVENTASValue;
|
||||||
property OldDEVOLUCIONES : TBcd read GetOldDEVOLUCIONESValue;
|
property OldDEVOLUCIONES : TBcd read GetOldDEVOLUCIONESValue;
|
||||||
property OldTOTAL : TBcd read GetOldTOTALValue;
|
property OldTOTAL : TBcd read GetOldTOTALValue;
|
||||||
property OldVALTERMDEV : TBcd read GetOldVALTERMDEVValue;
|
property OldVALTERMDEV : Currency read GetOldVALTERMDEVValue;
|
||||||
property OldVALFINALRESC : TBcd read GetOldVALFINALRESCValue;
|
property OldVALFINALRESC : Currency read GetOldVALFINALRESCValue;
|
||||||
property OldVALVEN : TBcd read GetOldVALVENValue;
|
property OldVALVEN : Currency read GetOldVALVENValue;
|
||||||
property OldVALDEV : TBcd read GetOldVALDEVValue;
|
property OldVALDEV : Currency read GetOldVALDEVValue;
|
||||||
property OldVALTOT : TBcd read GetOldVALTOTValue;
|
property OldVALTOT : Currency read GetOldVALTOTValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ TVentasTerminadasBusinessProcessorRules }
|
{ TVentasTerminadasBusinessProcessorRules }
|
||||||
@ -298,35 +298,35 @@ type
|
|||||||
function GetOldTOTALIsNull: Boolean; virtual;
|
function GetOldTOTALIsNull: Boolean; virtual;
|
||||||
procedure SetTOTALValue(const aValue: TBcd); virtual;
|
procedure SetTOTALValue(const aValue: TBcd); virtual;
|
||||||
procedure SetTOTALIsNull(const aValue: Boolean); virtual;
|
procedure SetTOTALIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALTERMDEVValue: TBcd; virtual;
|
function GetVALTERMDEVValue: Currency; virtual;
|
||||||
function GetVALTERMDEVIsNull: Boolean; virtual;
|
function GetVALTERMDEVIsNull: Boolean; virtual;
|
||||||
function GetOldVALTERMDEVValue: TBcd; virtual;
|
function GetOldVALTERMDEVValue: Currency; virtual;
|
||||||
function GetOldVALTERMDEVIsNull: Boolean; virtual;
|
function GetOldVALTERMDEVIsNull: Boolean; virtual;
|
||||||
procedure SetVALTERMDEVValue(const aValue: TBcd); virtual;
|
procedure SetVALTERMDEVValue(const aValue: Currency); virtual;
|
||||||
procedure SetVALTERMDEVIsNull(const aValue: Boolean); virtual;
|
procedure SetVALTERMDEVIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALFINALRESCValue: TBcd; virtual;
|
function GetVALFINALRESCValue: Currency; virtual;
|
||||||
function GetVALFINALRESCIsNull: Boolean; virtual;
|
function GetVALFINALRESCIsNull: Boolean; virtual;
|
||||||
function GetOldVALFINALRESCValue: TBcd; virtual;
|
function GetOldVALFINALRESCValue: Currency; virtual;
|
||||||
function GetOldVALFINALRESCIsNull: Boolean; virtual;
|
function GetOldVALFINALRESCIsNull: Boolean; virtual;
|
||||||
procedure SetVALFINALRESCValue(const aValue: TBcd); virtual;
|
procedure SetVALFINALRESCValue(const aValue: Currency); virtual;
|
||||||
procedure SetVALFINALRESCIsNull(const aValue: Boolean); virtual;
|
procedure SetVALFINALRESCIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALVENValue: TBcd; virtual;
|
function GetVALVENValue: Currency; virtual;
|
||||||
function GetVALVENIsNull: Boolean; virtual;
|
function GetVALVENIsNull: Boolean; virtual;
|
||||||
function GetOldVALVENValue: TBcd; virtual;
|
function GetOldVALVENValue: Currency; virtual;
|
||||||
function GetOldVALVENIsNull: Boolean; virtual;
|
function GetOldVALVENIsNull: Boolean; virtual;
|
||||||
procedure SetVALVENValue(const aValue: TBcd); virtual;
|
procedure SetVALVENValue(const aValue: Currency); virtual;
|
||||||
procedure SetVALVENIsNull(const aValue: Boolean); virtual;
|
procedure SetVALVENIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALDEVValue: TBcd; virtual;
|
function GetVALDEVValue: Currency; virtual;
|
||||||
function GetVALDEVIsNull: Boolean; virtual;
|
function GetVALDEVIsNull: Boolean; virtual;
|
||||||
function GetOldVALDEVValue: TBcd; virtual;
|
function GetOldVALDEVValue: Currency; virtual;
|
||||||
function GetOldVALDEVIsNull: Boolean; virtual;
|
function GetOldVALDEVIsNull: Boolean; virtual;
|
||||||
procedure SetVALDEVValue(const aValue: TBcd); virtual;
|
procedure SetVALDEVValue(const aValue: Currency); virtual;
|
||||||
procedure SetVALDEVIsNull(const aValue: Boolean); virtual;
|
procedure SetVALDEVIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALTOTValue: TBcd; virtual;
|
function GetVALTOTValue: Currency; virtual;
|
||||||
function GetVALTOTIsNull: Boolean; virtual;
|
function GetVALTOTIsNull: Boolean; virtual;
|
||||||
function GetOldVALTOTValue: TBcd; virtual;
|
function GetOldVALTOTValue: Currency; virtual;
|
||||||
function GetOldVALTOTIsNull: Boolean; virtual;
|
function GetOldVALTOTIsNull: Boolean; virtual;
|
||||||
procedure SetVALTOTValue(const aValue: TBcd); virtual;
|
procedure SetVALTOTValue(const aValue: Currency); virtual;
|
||||||
procedure SetVALTOTIsNull(const aValue: Boolean); virtual;
|
procedure SetVALTOTIsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
@ -450,25 +450,25 @@ type
|
|||||||
property TOTALIsNull : Boolean read GetTOTALIsNull write SetTOTALIsNull;
|
property TOTALIsNull : Boolean read GetTOTALIsNull write SetTOTALIsNull;
|
||||||
property OldTOTAL : TBcd read GetOldTOTALValue;
|
property OldTOTAL : TBcd read GetOldTOTALValue;
|
||||||
property OldTOTALIsNull : Boolean read GetOldTOTALIsNull;
|
property OldTOTALIsNull : Boolean read GetOldTOTALIsNull;
|
||||||
property VALTERMDEV : TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue;
|
property VALTERMDEV : Currency read GetVALTERMDEVValue write SetVALTERMDEVValue;
|
||||||
property VALTERMDEVIsNull : Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull;
|
property VALTERMDEVIsNull : Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull;
|
||||||
property OldVALTERMDEV : TBcd read GetOldVALTERMDEVValue;
|
property OldVALTERMDEV : Currency read GetOldVALTERMDEVValue;
|
||||||
property OldVALTERMDEVIsNull : Boolean read GetOldVALTERMDEVIsNull;
|
property OldVALTERMDEVIsNull : Boolean read GetOldVALTERMDEVIsNull;
|
||||||
property VALFINALRESC : TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue;
|
property VALFINALRESC : Currency read GetVALFINALRESCValue write SetVALFINALRESCValue;
|
||||||
property VALFINALRESCIsNull : Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull;
|
property VALFINALRESCIsNull : Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull;
|
||||||
property OldVALFINALRESC : TBcd read GetOldVALFINALRESCValue;
|
property OldVALFINALRESC : Currency read GetOldVALFINALRESCValue;
|
||||||
property OldVALFINALRESCIsNull : Boolean read GetOldVALFINALRESCIsNull;
|
property OldVALFINALRESCIsNull : Boolean read GetOldVALFINALRESCIsNull;
|
||||||
property VALVEN : TBcd read GetVALVENValue write SetVALVENValue;
|
property VALVEN : Currency read GetVALVENValue write SetVALVENValue;
|
||||||
property VALVENIsNull : Boolean read GetVALVENIsNull write SetVALVENIsNull;
|
property VALVENIsNull : Boolean read GetVALVENIsNull write SetVALVENIsNull;
|
||||||
property OldVALVEN : TBcd read GetOldVALVENValue;
|
property OldVALVEN : Currency read GetOldVALVENValue;
|
||||||
property OldVALVENIsNull : Boolean read GetOldVALVENIsNull;
|
property OldVALVENIsNull : Boolean read GetOldVALVENIsNull;
|
||||||
property VALDEV : TBcd read GetVALDEVValue write SetVALDEVValue;
|
property VALDEV : Currency read GetVALDEVValue write SetVALDEVValue;
|
||||||
property VALDEVIsNull : Boolean read GetVALDEVIsNull write SetVALDEVIsNull;
|
property VALDEVIsNull : Boolean read GetVALDEVIsNull write SetVALDEVIsNull;
|
||||||
property OldVALDEV : TBcd read GetOldVALDEVValue;
|
property OldVALDEV : Currency read GetOldVALDEVValue;
|
||||||
property OldVALDEVIsNull : Boolean read GetOldVALDEVIsNull;
|
property OldVALDEVIsNull : Boolean read GetOldVALDEVIsNull;
|
||||||
property VALTOT : TBcd read GetVALTOTValue write SetVALTOTValue;
|
property VALTOT : Currency read GetVALTOTValue write SetVALTOTValue;
|
||||||
property VALTOTIsNull : Boolean read GetVALTOTIsNull write SetVALTOTIsNull;
|
property VALTOTIsNull : Boolean read GetVALTOTIsNull write SetVALTOTIsNull;
|
||||||
property OldVALTOT : TBcd read GetOldVALTOTValue;
|
property OldVALTOT : Currency read GetOldVALTOTValue;
|
||||||
property OldVALTOTIsNull : Boolean read GetOldVALTOTIsNull;
|
property OldVALTOTIsNull : Boolean read GetOldVALTOTIsNull;
|
||||||
|
|
||||||
public
|
public
|
||||||
@ -1435,9 +1435,9 @@ begin
|
|||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTOTAL] := Null;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTOTAL] := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetVALTERMDEVValue: TBcd;
|
function TVentasTerminadasBusinessProcessorRules.GetVALTERMDEVValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV]);
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetVALTERMDEVIsNull: Boolean;
|
function TVentasTerminadasBusinessProcessorRules.GetVALTERMDEVIsNull: Boolean;
|
||||||
@ -1445,9 +1445,9 @@ begin
|
|||||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV]);
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetOldVALTERMDEVValue: TBcd;
|
function TVentasTerminadasBusinessProcessorRules.GetOldVALTERMDEVValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTERMDEV]);
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTERMDEV];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetOldVALTERMDEVIsNull: Boolean;
|
function TVentasTerminadasBusinessProcessorRules.GetOldVALTERMDEVIsNull: Boolean;
|
||||||
@ -1455,9 +1455,9 @@ begin
|
|||||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTERMDEV]);
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTERMDEV]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasBusinessProcessorRules.SetVALTERMDEVValue(const aValue: TBcd);
|
procedure TVentasTerminadasBusinessProcessorRules.SetVALTERMDEVValue(const aValue: Currency);
|
||||||
begin
|
begin
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV] := BCDToVariant(aValue);
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV] := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasBusinessProcessorRules.SetVALTERMDEVIsNull(const aValue: Boolean);
|
procedure TVentasTerminadasBusinessProcessorRules.SetVALTERMDEVIsNull(const aValue: Boolean);
|
||||||
@ -1466,9 +1466,9 @@ begin
|
|||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV] := Null;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV] := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetVALFINALRESCValue: TBcd;
|
function TVentasTerminadasBusinessProcessorRules.GetVALFINALRESCValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC]);
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetVALFINALRESCIsNull: Boolean;
|
function TVentasTerminadasBusinessProcessorRules.GetVALFINALRESCIsNull: Boolean;
|
||||||
@ -1476,9 +1476,9 @@ begin
|
|||||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC]);
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetOldVALFINALRESCValue: TBcd;
|
function TVentasTerminadasBusinessProcessorRules.GetOldVALFINALRESCValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALFINALRESC]);
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALFINALRESC];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetOldVALFINALRESCIsNull: Boolean;
|
function TVentasTerminadasBusinessProcessorRules.GetOldVALFINALRESCIsNull: Boolean;
|
||||||
@ -1486,9 +1486,9 @@ begin
|
|||||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALFINALRESC]);
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALFINALRESC]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasBusinessProcessorRules.SetVALFINALRESCValue(const aValue: TBcd);
|
procedure TVentasTerminadasBusinessProcessorRules.SetVALFINALRESCValue(const aValue: Currency);
|
||||||
begin
|
begin
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC] := BCDToVariant(aValue);
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC] := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasBusinessProcessorRules.SetVALFINALRESCIsNull(const aValue: Boolean);
|
procedure TVentasTerminadasBusinessProcessorRules.SetVALFINALRESCIsNull(const aValue: Boolean);
|
||||||
@ -1497,9 +1497,9 @@ begin
|
|||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC] := Null;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC] := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetVALVENValue: TBcd;
|
function TVentasTerminadasBusinessProcessorRules.GetVALVENValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN]);
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetVALVENIsNull: Boolean;
|
function TVentasTerminadasBusinessProcessorRules.GetVALVENIsNull: Boolean;
|
||||||
@ -1507,9 +1507,9 @@ begin
|
|||||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN]);
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetOldVALVENValue: TBcd;
|
function TVentasTerminadasBusinessProcessorRules.GetOldVALVENValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALVEN]);
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALVEN];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetOldVALVENIsNull: Boolean;
|
function TVentasTerminadasBusinessProcessorRules.GetOldVALVENIsNull: Boolean;
|
||||||
@ -1517,9 +1517,9 @@ begin
|
|||||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALVEN]);
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALVEN]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasBusinessProcessorRules.SetVALVENValue(const aValue: TBcd);
|
procedure TVentasTerminadasBusinessProcessorRules.SetVALVENValue(const aValue: Currency);
|
||||||
begin
|
begin
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN] := BCDToVariant(aValue);
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN] := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasBusinessProcessorRules.SetVALVENIsNull(const aValue: Boolean);
|
procedure TVentasTerminadasBusinessProcessorRules.SetVALVENIsNull(const aValue: Boolean);
|
||||||
@ -1528,9 +1528,9 @@ begin
|
|||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN] := Null;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN] := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetVALDEVValue: TBcd;
|
function TVentasTerminadasBusinessProcessorRules.GetVALDEVValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV]);
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetVALDEVIsNull: Boolean;
|
function TVentasTerminadasBusinessProcessorRules.GetVALDEVIsNull: Boolean;
|
||||||
@ -1538,9 +1538,9 @@ begin
|
|||||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV]);
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetOldVALDEVValue: TBcd;
|
function TVentasTerminadasBusinessProcessorRules.GetOldVALDEVValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALDEV]);
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALDEV];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetOldVALDEVIsNull: Boolean;
|
function TVentasTerminadasBusinessProcessorRules.GetOldVALDEVIsNull: Boolean;
|
||||||
@ -1548,9 +1548,9 @@ begin
|
|||||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALDEV]);
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALDEV]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasBusinessProcessorRules.SetVALDEVValue(const aValue: TBcd);
|
procedure TVentasTerminadasBusinessProcessorRules.SetVALDEVValue(const aValue: Currency);
|
||||||
begin
|
begin
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV] := BCDToVariant(aValue);
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV] := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasBusinessProcessorRules.SetVALDEVIsNull(const aValue: Boolean);
|
procedure TVentasTerminadasBusinessProcessorRules.SetVALDEVIsNull(const aValue: Boolean);
|
||||||
@ -1559,9 +1559,9 @@ begin
|
|||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV] := Null;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV] := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetVALTOTValue: TBcd;
|
function TVentasTerminadasBusinessProcessorRules.GetVALTOTValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT]);
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetVALTOTIsNull: Boolean;
|
function TVentasTerminadasBusinessProcessorRules.GetVALTOTIsNull: Boolean;
|
||||||
@ -1569,9 +1569,9 @@ begin
|
|||||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT]);
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetOldVALTOTValue: TBcd;
|
function TVentasTerminadasBusinessProcessorRules.GetOldVALTOTValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTOT]);
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTOT];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TVentasTerminadasBusinessProcessorRules.GetOldVALTOTIsNull: Boolean;
|
function TVentasTerminadasBusinessProcessorRules.GetOldVALTOTIsNull: Boolean;
|
||||||
@ -1579,9 +1579,9 @@ begin
|
|||||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTOT]);
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTOT]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasBusinessProcessorRules.SetVALTOTValue(const aValue: TBcd);
|
procedure TVentasTerminadasBusinessProcessorRules.SetVALTOTValue(const aValue: Currency);
|
||||||
begin
|
begin
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT] := BCDToVariant(aValue);
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT] := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TVentasTerminadasBusinessProcessorRules.SetVALTOTIsNull(const aValue: Boolean);
|
procedure TVentasTerminadasBusinessProcessorRules.SetVALTOTIsNull(const aValue: Boolean);
|
||||||
|
|||||||
@ -400,31 +400,39 @@ object srvVentasTerminadas: TsrvVentasTerminadas
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALTERMDEV'
|
Name = 'VALTERMDEV'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 2
|
||||||
DisplayLabel = 'Val.Term/Dev'
|
DisplayLabel = 'Val.Term/Dev'
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALFINALRESC'
|
Name = 'VALFINALRESC'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 2
|
||||||
|
LogChanges = False
|
||||||
DisplayLabel = 'Val.Final/Resc'
|
DisplayLabel = 'Val.Final/Resc'
|
||||||
|
ReadOnly = True
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
|
ServerCalculated = True
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALVEN'
|
Name = 'VALVEN'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 2
|
||||||
DisplayLabel = 'Imp. ventas'
|
DisplayLabel = 'Imp. ventas'
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALDEV'
|
Name = 'VALDEV'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 2
|
||||||
DisplayLabel = 'Imp. devoluciones'
|
DisplayLabel = 'Imp. devoluciones'
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALTOT'
|
Name = 'VALTOT'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 2
|
||||||
DisplayLabel = 'Imp. Total'
|
DisplayLabel = 'Imp. Total'
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
end>
|
end>
|
||||||
|
|||||||
@ -3,6 +3,8 @@ program AdminPV_Server;
|
|||||||
{#ROGEN:VARELA.rodl} // RemObjects: Careful, do not remove!
|
{#ROGEN:VARELA.rodl} // RemObjects: Careful, do not remove!
|
||||||
|
|
||||||
uses
|
uses
|
||||||
|
uROComInit,
|
||||||
|
ExceptionLog,
|
||||||
Forms,
|
Forms,
|
||||||
fServerForm in 'fServerForm.pas' {ServerForm},
|
fServerForm in 'fServerForm.pas' {ServerForm},
|
||||||
VARELA_Intf in 'VARELA_Intf.pas',
|
VARELA_Intf in 'VARELA_Intf.pas',
|
||||||
@ -32,11 +34,7 @@ uses
|
|||||||
schVentasEnProcesoServer_Intf in '..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas',
|
schVentasEnProcesoServer_Intf in '..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas',
|
||||||
uSchemaUtilsServer in 'uSchemaUtilsServer.pas',
|
uSchemaUtilsServer in 'uSchemaUtilsServer.pas',
|
||||||
srvVentasTerminadas_Impl in '..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas' {srvVentasTerminadas: TDARemoteService},
|
srvVentasTerminadas_Impl in '..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas' {srvVentasTerminadas: TDARemoteService},
|
||||||
schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas',
|
|
||||||
schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas',
|
|
||||||
srvReferenciaGenerica_Impl in '..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas' {srvReferenciaGenerica: TDARemoteService},
|
srvReferenciaGenerica_Impl in '..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas' {srvReferenciaGenerica: TDARemoteService},
|
||||||
schReferenciaGenericaClient_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas',
|
|
||||||
schReferenciaGenericaServer_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas',
|
|
||||||
uBizReferenciaGenericaServer in '..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas',
|
uBizReferenciaGenericaServer in '..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas',
|
||||||
uDataModuleEDI_Inventary in 'Services\EDI_Inventary\uDataModuleEDI_Inventary.pas' {dmEDIInventary: TDataModule},
|
uDataModuleEDI_Inventary in 'Services\EDI_Inventary\uDataModuleEDI_Inventary.pas' {dmEDIInventary: TDataModule},
|
||||||
schEDIInventaryClient_Intf in 'Services\EDI_Inventary\schEDIInventaryClient_Intf.pas',
|
schEDIInventaryClient_Intf in 'Services\EDI_Inventary\schEDIInventaryClient_Intf.pas',
|
||||||
@ -47,8 +45,6 @@ uses
|
|||||||
srvDevoluciones_Impl in '..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas' {srvDevoluciones: TDARemoteService},
|
srvDevoluciones_Impl in '..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas' {srvDevoluciones: TDARemoteService},
|
||||||
srvTraspasos_Impl in '..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas' {srvTraspasos: TDARemoteService},
|
srvTraspasos_Impl in '..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas' {srvTraspasos: TDARemoteService},
|
||||||
srvStock_Impl in '..\Modulos\Stock\Servidor\srvStock_Impl.pas' {srvStock: TDARemoteService},
|
srvStock_Impl in '..\Modulos\Stock\Servidor\srvStock_Impl.pas' {srvStock: TDARemoteService},
|
||||||
schStockClient_Intf in '..\Modulos\Stock\Reglas\schStockClient_Intf.pas',
|
|
||||||
schStockServer_Intf in '..\Modulos\Stock\Reglas\schStockServer_Intf.pas',
|
|
||||||
uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
|
uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
|
||||||
srvParametros_Impl in '..\Modulos\Parametros\Servidor\srvParametros_Impl.pas' {srvParametros: TDARemoteService},
|
srvParametros_Impl in '..\Modulos\Parametros\Servidor\srvParametros_Impl.pas' {srvParametros: TDARemoteService},
|
||||||
schParametrosClient_Intf in '..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas',
|
schParametrosClient_Intf in '..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas',
|
||||||
@ -60,7 +56,13 @@ uses
|
|||||||
schControlesServer_Intf in '..\ControlesBase\Reglas\schControlesServer_Intf.pas',
|
schControlesServer_Intf in '..\ControlesBase\Reglas\schControlesServer_Intf.pas',
|
||||||
RegExpr in 'RegExpr.pas',
|
RegExpr in 'RegExpr.pas',
|
||||||
uDBSelectionList in '..\Base\uDBSelectionList.pas',
|
uDBSelectionList in '..\Base\uDBSelectionList.pas',
|
||||||
uIntegerList in '..\Base\uIntegerList.pas';
|
schReferenciaGenericaClient_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas',
|
||||||
|
schReferenciaGenericaServer_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas',
|
||||||
|
schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas',
|
||||||
|
schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas',
|
||||||
|
uIntegerList in '..\Base\uIntegerList.pas',
|
||||||
|
schStockClient_Intf in '..\Modulos\Stock\Reglas\schStockClient_Intf.pas',
|
||||||
|
schStockServer_Intf in '..\Modulos\Stock\Reglas\schStockServer_Intf.pas';
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
{$R RODLFile.res}
|
{$R RODLFile.res}
|
||||||
|
|||||||
@ -38,7 +38,7 @@
|
|||||||
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
|
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
|
||||||
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
|
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
|
||||||
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
|
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
|
||||||
<DCC_Define>DEBUG</DCC_Define>
|
<DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ProjectExtensions>
|
<ProjectExtensions>
|
||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
@ -51,6 +51,20 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="C:\Varela_D2007\Lib\DevExpressVCL\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
<Excluded_Packages Name="C:\Varela_D2007\Lib\DevExpressVCL\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||||
@ -172,12 +186,12 @@
|
|||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=6006
|
EurekaLog Version=6006
|
||||||
Activate=0
|
Activate=1
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
Foreground Tab=0
|
Foreground Tab=0
|
||||||
Freeze Activate=0
|
Freeze Activate=0
|
||||||
Freeze Timeout=0
|
Freeze Timeout=1
|
||||||
SMTP From=eurekalog@email.com
|
SMTP From=eurekalog@email.com
|
||||||
SMTP Host=
|
SMTP Host=
|
||||||
SMTP Port=25
|
SMTP Port=25
|
||||||
@ -324,7 +338,7 @@ boSaveCompressedCopyInCaseOfError=0
|
|||||||
boHandleSafeCallExceptions=1
|
boHandleSafeCallExceptions=1
|
||||||
boCallRTLExceptionEvent=0
|
boCallRTLExceptionEvent=0
|
||||||
boCatchHandledExceptions=0
|
boCatchHandledExceptions=0
|
||||||
loCatchLeaks=0
|
loCatchLeaks=1
|
||||||
loGroupsSonLeaks=1
|
loGroupsSonLeaks=1
|
||||||
loHideBorlandLeaks=1
|
loHideBorlandLeaks=1
|
||||||
loFreeAllLeaks=1
|
loFreeAllLeaks=1
|
||||||
@ -650,5 +664,5 @@ Count mtException_AntiFreeze=1
|
|||||||
mtException_AntiFreeze0="The application seems to be frozen."
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
Count mtInvalidEmailMsg=1
|
Count mtInvalidEmailMsg=1
|
||||||
mtInvalidEmailMsg0="Invalid email."
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
TextsCollection=English
|
TextsCollection=
|
||||||
EurekaLog Last Line -->
|
EurekaLog Last Line -->
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@ -19,14 +19,12 @@ object srvLogin: TsrvLogin
|
|||||||
item
|
item
|
||||||
Name = 'USERID'
|
Name = 'USERID'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = 'zeus'
|
Value = 'zeus'
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'PASSWORD'
|
Name = 'PASSWORD'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = 'zvg'
|
Value = 'zvg'
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end>
|
end>
|
||||||
@ -56,30 +54,13 @@ object srvLogin: TsrvLogin
|
|||||||
Name = 'ID'
|
Name = 'ID'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 12
|
Size = 12
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = True
|
InPrimaryKey = True
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'PASS'
|
Name = 'PASS'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 12
|
Size = 12
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
ServerCalculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end>
|
end>
|
||||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
||||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
||||||
end>
|
end>
|
||||||
JoinDataTables = <>
|
JoinDataTables = <>
|
||||||
UnionDataTables = <>
|
UnionDataTables = <>
|
||||||
@ -91,8 +72,6 @@ object srvLogin: TsrvLogin
|
|||||||
Top = 24
|
Top = 24
|
||||||
end
|
end
|
||||||
object DABINAdapter: TDABINAdapter
|
object DABINAdapter: TDABINAdapter
|
||||||
BufferSize = 262144
|
|
||||||
IsCompatibleV4 = True
|
|
||||||
Left = 56
|
Left = 56
|
||||||
Top = 96
|
Top = 96
|
||||||
end
|
end
|
||||||
|
|||||||
@ -1056,6 +1056,12 @@ object ServerForm: TServerForm
|
|||||||
Left = 40
|
Left = 40
|
||||||
Top = 16
|
Top = 16
|
||||||
end
|
end
|
||||||
|
object TrayIcon1: TTrayIcon
|
||||||
|
PopupMenu = PopupMenu1
|
||||||
|
Visible = True
|
||||||
|
Left = 144
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
object JvTrayIcon: TJvTrayIcon
|
object JvTrayIcon: TJvTrayIcon
|
||||||
IconIndex = 0
|
IconIndex = 0
|
||||||
DropDownMenu = PopupMenu1
|
DropDownMenu = PopupMenu1
|
||||||
|
|||||||
@ -23,7 +23,6 @@ type
|
|||||||
Refrescarconexin1: TMenuItem;
|
Refrescarconexin1: TMenuItem;
|
||||||
N2: TMenuItem;
|
N2: TMenuItem;
|
||||||
XPManifest1: TXPManifest;
|
XPManifest1: TXPManifest;
|
||||||
JvTrayIcon: TJvTrayIcon;
|
|
||||||
Panel1: TPanel;
|
Panel1: TPanel;
|
||||||
Image1: TImage;
|
Image1: TImage;
|
||||||
JvGradient1: TJvGradient;
|
JvGradient1: TJvGradient;
|
||||||
@ -31,6 +30,8 @@ type
|
|||||||
actAcerca: TAction;
|
actAcerca: TAction;
|
||||||
Acercade1: TMenuItem;
|
Acercade1: TMenuItem;
|
||||||
N1: TMenuItem;
|
N1: TMenuItem;
|
||||||
|
TrayIcon1: TTrayIcon;
|
||||||
|
JvTrayIcon: TJvTrayIcon;
|
||||||
procedure actCerrarExecute(Sender: TObject);
|
procedure actCerrarExecute(Sender: TObject);
|
||||||
procedure actRestartExecute(Sender: TObject);
|
procedure actRestartExecute(Sender: TObject);
|
||||||
procedure actOpcionesExecute(Sender: TObject);
|
procedure actOpcionesExecute(Sender: TObject);
|
||||||
@ -79,10 +80,16 @@ end;
|
|||||||
|
|
||||||
procedure TServerForm.FormCreate(Sender: TObject);
|
procedure TServerForm.FormCreate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
JvTrayIcon.HideApplication;
|
{ JvTrayIcon.HideApplication;
|
||||||
JvTrayIcon.Hint := 'Administración de puntos de venta (Servidor)' +
|
JvTrayIcon.Hint := 'Administración de puntos de venta (Servidor)' +
|
||||||
#10#13 + dmServer.ConnectionName;
|
#10#13 + dmServer.ConnectionName;
|
||||||
JvTrayIcon.Active := True;
|
JvTrayIcon.Active := True;
|
||||||
|
}
|
||||||
|
|
||||||
|
{ JvTrayIcon.Hint := 'Administración de puntos de venta (Servidor)' +
|
||||||
|
#10#13 + dmServer.ConnectionName;
|
||||||
|
JvTrayIcon.Active := True;
|
||||||
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TServerForm.FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure TServerForm.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
|||||||
@ -37,9 +37,16 @@ object dmServer: TdmServer
|
|||||||
item
|
item
|
||||||
Name = 'GFT_VARELA'
|
Name = 'GFT_VARELA'
|
||||||
ConnectionString =
|
ConnectionString =
|
||||||
'ADO?AuxDriver=SQLOLEDB.1;Server=david;Database=GFT_VARELA;UserID' +
|
'SDAC?Server=roberto;Database=GFT_VARELA_NUEVA_QUE_FALLA;UserID=s' +
|
||||||
'=sa;Password=123456;Integrated Security=SSPI;'
|
'a;Password=123456;Schemas=1;'
|
||||||
|
ConnectionType = 'MSSQL'
|
||||||
Default = True
|
Default = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'GFT_VARELA_ADO'
|
||||||
|
ConnectionString =
|
||||||
|
'ADO?AuxDriver=SQLOLEDB.1;Server=ROBERTO;Database=GFT_VARELA_NUEV' +
|
||||||
|
'A_QUE_FALLA;UserID=sa;Password=123456;'
|
||||||
end>
|
end>
|
||||||
DriverManager = DriverManager
|
DriverManager = DriverManager
|
||||||
PoolingEnabled = True
|
PoolingEnabled = True
|
||||||
@ -93,4 +100,8 @@ object dmServer: TdmServer
|
|||||||
Left = 224
|
Left = 224
|
||||||
Top = 144
|
Top = 144
|
||||||
end
|
end
|
||||||
|
object DASDACDriver: TDASDACDriver
|
||||||
|
Left = 304
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -8,7 +8,8 @@ uses
|
|||||||
uROSessions, uDADataTable, uDABINAdapter, IBSQLMonitor, JvComponent,
|
uROSessions, uDADataTable, uDABINAdapter, IBSQLMonitor, JvComponent,
|
||||||
JvAppStorage, JvAppRegistryStorage, uDAInterfaces,
|
JvAppStorage, JvAppRegistryStorage, uDAInterfaces,
|
||||||
JvComponentBase, uDAADODriver, uROEventRepository, uDAServerLog,
|
JvComponentBase, uDAADODriver, uROEventRepository, uDAServerLog,
|
||||||
JvLogFile, SyncObjs;
|
JvLogFile, SyncObjs, uDASQLiteDriver, uDABDEDriver, uDADBXDriver,
|
||||||
|
uDASDACDriver;
|
||||||
|
|
||||||
const
|
const
|
||||||
SERVER_PORT = '8099';
|
SERVER_PORT = '8099';
|
||||||
@ -25,6 +26,7 @@ type
|
|||||||
ConnectionManager: TDAConnectionManager;
|
ConnectionManager: TDAConnectionManager;
|
||||||
DAServerLog1: TDAServerLog;
|
DAServerLog1: TDAServerLog;
|
||||||
JvLogFile1: TJvLogFile;
|
JvLogFile1: TJvLogFile;
|
||||||
|
DASDACDriver: TDASDACDriver;
|
||||||
DataDictionary: TDADataDictionary;
|
DataDictionary: TDADataDictionary;
|
||||||
procedure DataModuleCreate(Sender: TObject);
|
procedure DataModuleCreate(Sender: TObject);
|
||||||
procedure DataModuleDestroy(Sender: TObject);
|
procedure DataModuleDestroy(Sender: TObject);
|
||||||
@ -292,7 +294,7 @@ begin
|
|||||||
|
|
||||||
ConnectionName := ConnectionManager.GetDefaultConnectionName;
|
ConnectionName := ConnectionManager.GetDefaultConnectionName;
|
||||||
ConnectionManager.Connections.GetDefaultConnection.ConnectionString := GetConnectionString;
|
ConnectionManager.Connections.GetDefaultConnection.ConnectionString := GetConnectionString;
|
||||||
CoInitialize(nil);
|
|
||||||
HTTPServer.Active := TRUE;
|
HTTPServer.Active := TRUE;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user