Archivado/Varela_PuntosVenta
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Ajustes para nuevas tallas 'jeans' 36-46 en ventas

Browse Source 
- Repaso general

git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@116 1c943782-d109-9647-9548-93b3ac332352
This commit is contained in:
David Arranz 2008-05-06 17:55:55 +00:00
parent bc2ba9eb56
commit 4e7f349b52
46 changed files with 1560 additions and 5983 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Source/Base/Base.dproj
View File

@ -40,24 +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>

6
Source/Base/Base.drc
View File

@ -15,10 +15,10 @@ BEGIN
END END
/* C:\Varela_D2007\Source\Base\uConfigurarConexion.dfm */ /* C:\Varela_D2007\Source\Base\uConfigurarConexion.dfm */
/* C:\Varela_D2007\Source\Base\uDMBase.DFM */ /* C:\Varela_D2007\Source\Base\uDMBase.dfm */
/* C:\Varela_D2007\Source\Base\uViewBase.dfm */ /* C:\Varela_D2007\Source\Base\uViewBase.dfm */
/* C:\Varela_D2007\Source\Base\uEditorBase.dfm */ /* C:\Varela_D2007\Source\Base\uEditorBase.dfm */
/* C:\Varela_D2007\Source\Base\uDataModuleBase.DFM */ /* C:\Varela_D2007\Source\Base\uDataModuleBase.dfm */
/* C:\Varela_D2007\Source\Base\uViewGridBase.dfm */ /* C:\Varela_D2007\Source\Base\uViewGridBase.dfm */
/* C:\Varela_D2007\Source\Base\uEditorItem.dfm */ /* C:\Varela_D2007\Source\Base\uEditorItem.dfm */
/* C:\Varela_D2007\Source\Base\uEditorDBBase.dfm */ /* C:\Varela_D2007\Source\Base\uEditorDBBase.dfm */
@ -29,4 +29,4 @@ END
/* C:\Varela_D2007\Source\Base\uViewBarraSeleccion.dfm */ /* C:\Varela_D2007\Source\Base\uViewBarraSeleccion.dfm */
/* C:\Varela_D2007\Source\Base\uViewGrid.dfm */ /* C:\Varela_D2007\Source\Base\uViewGrid.dfm */
/* C:\Varela_D2007\Source\Base\Base.res */ /* C:\Varela_D2007\Source\Base\Base.res */
/* C:\Varela_D2007\Source\Base\Base.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8F.tmp */

4
Source/Base/uViewGridBase.pas
View File

@ -278,7 +278,7 @@ begin
begin begin
ShowHourglassCursor; ShowHourglassCursor;
Application.ProcessMessages; Application.ProcessMessages;
// BeginUpdate; BeginUpdate;
try try
Options := [fcoCaseInsensitive, fcoSoftCompare]; Options := [fcoCaseInsensitive, fcoSoftCompare];
Root.Clear; Root.Clear;
@ -297,7 +297,7 @@ begin
else else
Active := False; Active := False;
finally finally
// EndUpdate; EndUpdate;
HideHourglassCursor; HideHourglassCursor;
Application.ProcessMessages; Application.ProcessMessages;
end; end;

8
Source/CargaEDI/CargaEDI.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\CargaEDI.ico" MAINICON ICON "C:\Varela_D2007\Resources\Iconos\CargaEDI.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,1,1,0 FILEVERSION 2,1,2,0
PRODUCTVERSION 2,1,1,0 PRODUCTVERSION 2,1,2,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,8 +12,8 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "2.1.1.0\0" VALUE "FileVersion", "2.1.2.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "2.1.2.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/CargaEDI/CargaEDI.res
View File

Binary file not shown.

149
Source/Cliente/AdminPV.dproj
View File

@ -1,81 +1,76 @@
<?xml version="1.0" encoding="utf-8"?> <?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>Base;ControlesBase;Parametros;ApplicationBase;FicherosEDI</DCC_UsePackage> <DCC_UsePackage>Base;ControlesBase;Parametros;ApplicationBase;FicherosEDI</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;</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>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<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">1</VersionInfo><VersionInfo Name="Release">2</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.1.2.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">2.1.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys><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">1</VersionInfo><VersionInfo Name="Release">2</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.1.2.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">2.1.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys><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\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web 9.0 Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> </Excluded_Packages><Source><Source Name="MainSource">AdminPV.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> </ProjectExtensions>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web 9.0 Design Package for CodeGear RAD Studio</Excluded_Packages> <ItemGroup>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <DelphiCompile Include="AdminPV.dpr">
</Excluded_Packages><Source><Source Name="MainSource">AdminPV.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <MainSource>MainSource</MainSource>
</ProjectExtensions> </DelphiCompile>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <DCCReference Include="uAcercaDe.pas">
<ItemGroup> <Form>fAcercaDe</Form>
<DelphiCompile Include="AdminPV.dpr"> </DCCReference>
<MainSource>MainSource</MainSource> <DCCReference Include="uBootStrap.pas"/>
</DelphiCompile> <DCCReference Include="uMainMenuController.pas"/>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uNavPaneController.pas"/>
<Form>fAcercaDe</Form> <DCCReference Include="uPantallaPrincipal.pas">
</DCCReference> <Form>fPantallaPrincipal</Form>
<DCCReference Include="uBootStrap.pas" /> </DCCReference>
<DCCReference Include="uMainMenuController.pas" /> <DCCReference Include="uSplash.pas">
<DCCReference Include="uNavPaneController.pas" /> <Form>AppSplashForm</Form>
<DCCReference Include="uPantallaPrincipal.pas"> </DCCReference>
<Form>fPantallaPrincipal</Form> <DCCReference Include="Utiles\uClienteUtils.pas"/>
</DCCReference> <DCCReference Include="Utiles\uMenuUtils.pas"/>
<DCCReference Include="uSplash.pas"> <DCCReference Include="Utiles\uNavPaneUtils.pas"/>
<Form>AppSplashForm</Form> </ItemGroup>
</DCCReference>
<DCCReference Include="Utiles\uClienteUtils.pas" />
<DCCReference Include="Utiles\uMenuUtils.pas" />
<DCCReference Include="Utiles\uNavPaneUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

10
Source/Cliente/AdminPV.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Cliente.ico" MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Cliente.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,1,1,0 FILEVERSION 2,1,2,0
PRODUCTVERSION 2,1,1,0 PRODUCTVERSION 2,1,2,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,11 +13,11 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.1.0\0" VALUE "FileVersion", "2.1.2.0\0"
VALUE "InternalName", "Administración de puntos de venta\0" VALUE "InternalName", "Administración de puntos de venta\0"
VALUE "ProductName", "Administración de puntos de venta\0" VALUE "ProductName", "Administración de puntos de venta\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "2.1.2.0\0"
VALUE "CompileDate", "lunes, 28 de abril de 2008 18:21\0" VALUE "CompileDate", "martes, 06 de mayo de 2008 16:51\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/AdminPV.res
View File

Binary file not shown.

12
Source/ControlesBase/Cliente/uViewAgrupaciones.dfm
View File

@ -1,11 +1,15 @@
inherited frViewAgrupaciones: TfrViewAgrupaciones inherited frViewAgrupaciones: TfrViewAgrupaciones
Width = 228 Width = 228
Height = 396 Height = 396
ExplicitWidth = 228
ExplicitHeight = 396
object TBXLabel1: TTBXLabel object TBXLabel1: TTBXLabel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 228 Width = 228
Height = 29 Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop Align = alTop
Caption = 'Agrupaciones' Caption = 'Agrupaciones'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -13,8 +17,6 @@ inherited frViewAgrupaciones: TfrViewAgrupaciones
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [fsBold] Font.Style = [fsBold]
Margins.Top = 5
Margins.Bottom = 10
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Underline = True Underline = True
@ -33,7 +35,7 @@ inherited frViewAgrupaciones: TfrViewAgrupaciones
object Label3: TLabel object Label3: TLabel
Left = 7 Left = 7
Top = 60 Top = 60
Width = 74 Width = 79
Height = 13 Height = 13
Caption = 'y por '#250'ltimo por:' Caption = 'y por '#250'ltimo por:'
Transparent = True Transparent = True
@ -41,7 +43,7 @@ inherited frViewAgrupaciones: TfrViewAgrupaciones
object Label2: TLabel object Label2: TLabel
Left = 7 Left = 7
Top = 32 Top = 32
Width = 61 Width = 63
Height = 13 Height = 13
Caption = 'despu'#233's por:' Caption = 'despu'#233's por:'
Transparent = True Transparent = True
@ -49,7 +51,7 @@ inherited frViewAgrupaciones: TfrViewAgrupaciones
object Label1: TLabel object Label1: TLabel
Left = 7 Left = 7
Top = 4 Top = 4
Width = 95 Width = 101
Height = 13 Height = 13
Caption = 'Agrupar primero por:' Caption = 'Agrupar primero por:'
Transparent = True Transparent = True

18
Source/ControlesBase/Cliente/uViewAgrupaciones.pas
View File

@ -251,12 +251,18 @@ begin
PopupMenu2.Items.Add(DarItem(SIN_AGRUPACION)); PopupMenu2.Items.Add(DarItem(SIN_AGRUPACION));
PopupMenu3.Items.Add(DarItem(SIN_AGRUPACION)); PopupMenu3.Items.Add(DarItem(SIN_AGRUPACION));
for i := 0 to ViewControlGrid.ColumnCount - 1 do FColumns.BeginUpdate;
begin try
FColumns.AddObject(ViewControlGrid.Columns[i].Caption, ViewControlGrid.Columns[i]); FColumns.Clear;
PopupMenu1.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption)); for i := 0 to ViewControlGrid.ColumnCount - 1 do
PopupMenu2.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption)); begin
PopupMenu3.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption)); FColumns.AddObject(ViewControlGrid.Columns[i].Caption, ViewControlGrid.Columns[i]);
PopupMenu1.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption));
PopupMenu2.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption));
PopupMenu3.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption));
end;
finally
FColumns.EndUpdate;
end; end;
end; end;

4
Source/ControlesBase/ControlesBase.drc
View File

@ -15,7 +15,7 @@ END
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uFormPropiedadesControl.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uFormPropiedadesControl.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlesBase.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlesBase.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlesBase.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlesBase.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uDataModuleControles.DFM */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uDataModuleControles.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlGrid.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlGrid.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewParametrosControlGrid.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewParametrosControlGrid.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewAgrupaciones.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewAgrupaciones.dfm */
@ -26,4 +26,4 @@ END
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlBase.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlBase.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewPeriodoFechas.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewPeriodoFechas.dfm */
/* C:\Varela_D2007\Source\ControlesBase\ControlesBase.res */ /* C:\Varela_D2007\Source\ControlesBase\ControlesBase.res */
/* C:\Varela_D2007\Source\ControlesBase\ControlesBase.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf91.tmp */

4
Source/Modulos/FicherosEDI/Cliente/FicherosEDI.drc
View File

@ -13,9 +13,9 @@ BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uAsistenteCargaFicheros.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uAsistenteCargaFicheros.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uDataModuleFicherosEDI.DFM */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uDataModuleFicherosEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uViewHistorialCargasEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uViewHistorialCargasEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uEditorHistorialCargasEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uEditorHistorialCargasEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uPluginControllerFicherosEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uPluginControllerFicherosEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.res */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.res */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf97.tmp */

4
Source/Modulos/Parametros/Cliente/Parametros.drc
View File

@ -12,9 +12,9 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uDataModuleParametros.DFM */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uDataModuleParametros.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosCentro.dfm */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosCentro.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosColeccion.dfm */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosColeccion.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosFecha.dfm */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosFecha.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.res */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.res */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf93.tmp */

38
Source/Modulos/Stock/Cliente/uDataModuleStock.dfm
View File

@ -53,6 +53,11 @@ object dmStock: TdmStock
DataType = datString DataType = datString
Size = 10 Size = 10
end end
item
Name = 'E36'
DataType = datFloat
Alignment = taRightJustify
end
item item
Name = 'E38' Name = 'E38'
DataType = datFloat DataType = datFloat
@ -88,6 +93,11 @@ object dmStock: TdmStock
DataType = datFloat DataType = datFloat
Alignment = taRightJustify Alignment = taRightJustify
end end
item
Name = 'S36'
DataType = datFloat
Alignment = taRightJustify
end
item item
Name = 'S38' Name = 'S38'
DataType = datFloat DataType = datFloat
@ -123,6 +133,11 @@ object dmStock: TdmStock
DataType = datFloat DataType = datFloat
Alignment = taRightJustify Alignment = taRightJustify
end end
item
Name = 'K36'
DataType = datFloat
Alignment = taRightJustify
end
item item
Name = 'K38' Name = 'K38'
DataType = datFloat DataType = datFloat
@ -207,6 +222,11 @@ object dmStock: TdmStock
DataType = datString DataType = datString
Size = 40 Size = 40
end end
item
Name = 'K36'
DataType = datInteger
Alignment = taRightJustify
end
item item
Name = 'K38' Name = 'K38'
DataType = datInteger DataType = datInteger
@ -292,6 +312,12 @@ object dmStock: TdmStock
Size = 10 Size = 10
DisplayLabel = 'Color' DisplayLabel = 'Color'
end end
item
Name = 'T36'
DataType = datFloat
DisplayLabel = '36'
Alignment = taRightJustify
end
item item
Name = 'T38' Name = 'T38'
DataType = datFloat DataType = datFloat
@ -394,6 +420,10 @@ object dmStock: TdmStock
DataType = datString DataType = datString
Size = 6 Size = 6
end end
item
Name = 'I36'
DataType = datFloat
end
item item
Name = 'I38' Name = 'I38'
DataType = datFloat DataType = datFloat
@ -422,6 +452,10 @@ object dmStock: TdmStock
Name = 'TI' Name = 'TI'
DataType = datFloat DataType = datFloat
end end
item
Name = 'K36'
DataType = datFloat
end
item item
Name = 'K38' Name = 'K38'
DataType = datFloat DataType = datFloat
@ -450,6 +484,10 @@ object dmStock: TdmStock
Name = 'TK' Name = 'TK'
DataType = datFloat DataType = datFloat
end end
item
Name = 'D36'
DataType = datFloat
end
item item
Name = 'D38' Name = 'D38'
DataType = datFloat DataType = datFloat

149
Source/Modulos/Stock/Cliente/uEditorControlStockEDI.dfm
View File

@ -182,7 +182,7 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
Margins.Bottom = 0 Margins.Bottom = 0
ActivePage = tabResumen ActivePage = tabInventario
Align = alClient Align = alClient
MultiLine = True MultiLine = True
TabHeight = 10 TabHeight = 10
@ -216,6 +216,61 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 381 ExplicitHeight = 381
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0 referencias'
Kind = skCount
Position = spFooter
Column = frViewControlGridStockPrendasCentros1.cxGridViewPRODUCTO
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockPrendasCentros1.cxGridView36
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockPrendasCentros1.cxGridView38
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockPrendasCentros1.cxGridView40
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockPrendasCentros1.cxGridView42
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockPrendasCentros1.cxGridView44
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockPrendasCentros1.cxGridView46
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockPrendasCentros1.cxGridView48
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockPrendasCentros1.cxGridViewTOTAL
end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 referencias' Format = '0 referencias'
@ -256,6 +311,11 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
Column = frViewControlGridStockPrendasCentros1.cxGridViewTOTAL Column = frViewControlGridStockPrendasCentros1.cxGridViewTOTAL
end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockPrendasCentros1.cxGridView36
end> end>
end end
end end
@ -270,8 +330,8 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited pnlAgrupaciones: TTBXAlignmentPanel inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 346 Width = 376
ExplicitWidth = 346 ExplicitWidth = 376
inherited TBXButton3: TTBXButton inherited TBXButton3: TTBXButton
Action = actRefrescar Action = actRefrescar
end end
@ -333,6 +393,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
PopupMenu = GridPopupMenu PopupMenu = GridPopupMenu
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockEDI1.cxGridViewE36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -375,6 +441,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Position = spFooter Position = spFooter
Column = frViewControlGridStockEDI1.cxGridViewTE Column = frViewControlGridStockEDI1.cxGridViewTE
end end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockEDI1.cxGridViewS36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -417,6 +489,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Position = spFooter Position = spFooter
Column = frViewControlGridStockEDI1.cxGridViewTS Column = frViewControlGridStockEDI1.cxGridViewTS
end end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockEDI1.cxGridViewK36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -460,6 +538,11 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Column = frViewControlGridStockEDI1.cxGridViewKT Column = frViewControlGridStockEDI1.cxGridViewKT
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockEDI1.cxGridViewE36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -495,6 +578,11 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Kind = skSum Kind = skSum
Column = frViewControlGridStockEDI1.cxGridViewTE Column = frViewControlGridStockEDI1.cxGridViewTE
end end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockEDI1.cxGridViewS36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -530,6 +618,11 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Kind = skSum Kind = skSum
Column = frViewControlGridStockEDI1.cxGridViewTS Column = frViewControlGridStockEDI1.cxGridViewTS
end end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockEDI1.cxGridViewK36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -586,8 +679,8 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 16 Width = 76
ExplicitWidth = 125 ExplicitWidth = 76
inherited TBXButton1: TTBXButton inherited TBXButton1: TTBXButton
Action = actRefrescar Action = actRefrescar
end end
@ -643,6 +736,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
ExplicitHeight = 381 ExplicitHeight = 381
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockEDIInventario1.cxGridViewI36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -685,6 +784,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Position = spFooter Position = spFooter
Column = frViewControlGridStockEDIInventario1.cxGridViewTI Column = frViewControlGridStockEDIInventario1.cxGridViewTI
end end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockEDIInventario1.cxGridViewK36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -727,6 +832,17 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Position = spFooter Position = spFooter
Column = frViewControlGridStockEDIInventario1.cxGridViewTK Column = frViewControlGridStockEDIInventario1.cxGridViewTK
end end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockEDIInventario1.cxGridViewD36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -770,6 +886,11 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Column = frViewControlGridStockEDIInventario1.cxGridViewDT Column = frViewControlGridStockEDIInventario1.cxGridViewDT
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockEDIInventario1.cxGridViewI36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -805,6 +926,11 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Kind = skSum Kind = skSum
Column = frViewControlGridStockEDIInventario1.cxGridViewTI Column = frViewControlGridStockEDIInventario1.cxGridViewTI
end end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockEDIInventario1.cxGridViewK36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -840,6 +966,11 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Kind = skSum Kind = skSum
Column = frViewControlGridStockEDIInventario1.cxGridViewTK Column = frViewControlGridStockEDIInventario1.cxGridViewTK
end end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockEDIInventario1.cxGridViewD36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -896,8 +1027,8 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited pnlAgrupaciones: TTBXAlignmentPanel inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 16 Width = 76
ExplicitWidth = 125 ExplicitWidth = 76
inherited TBXButton3: TTBXButton inherited TBXButton3: TTBXButton
Action = actRefrescar Action = actRefrescar
end end
@ -2342,8 +2473,8 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Bitmap = {} Bitmap = {}
end end
inherited dsDataTable: TDADataSource [9] inherited dsDataTable: TDADataSource [9]
Left = 8 Left = 64
Top = 208 Top = 264
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
end end

94
Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA
ClientHeight = 573 ClientHeight = 573
ClientWidth = 720 ClientWidth = 720
ExplicitWidth = 728 ExplicitWidth = 728
ExplicitHeight = 607 ExplicitHeight = 600
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -180,96 +180,6 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA
ExplicitWidth = 720 ExplicitWidth = 720
ExplicitHeight = 418 ExplicitHeight = 418
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0 referencias'
Kind = skCount
Position = spFooter
Column = frViewControlGridStockVARELA1.cxGridViewPRODUCTO
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockVARELA1.cxGridViewK38
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockVARELA1.cxGridViewK40
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockVARELA1.cxGridViewK42
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockVARELA1.cxGridViewK44
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockVARELA1.cxGridViewK46
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockVARELA1.cxGridViewK48
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = frViewControlGridStockVARELA1.cxGridViewKT
end>
DataController.Summary.FooterSummaryItems = <
item
Format = '0 referencias'
Kind = skCount
Column = frViewControlGridStockVARELA1.cxGridViewPRODUCTO
end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockVARELA1.cxGridViewK38
end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockVARELA1.cxGridViewK40
end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockVARELA1.cxGridViewK42
end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockVARELA1.cxGridViewK44
end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockVARELA1.cxGridViewK46
end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockVARELA1.cxGridViewK48
end
item
Format = '#,##0'
Kind = skSum
Column = frViewControlGridStockVARELA1.cxGridViewKT
end>
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
@ -1702,7 +1612,7 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
end end
inherited GridPopupMenu: TPopupMenu inherited GridPopupMenu: TPopupMenu [10]
Left = 64 Left = 64
Top = 152 Top = 152
inherited Duplicar1: TMenuItem inherited Duplicar1: TMenuItem

67
Source/Modulos/Stock/Cliente/uViewControGridStockEDI.dfm
View File

@ -13,6 +13,12 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
FilterBox.Visible = fvNever FilterBox.Visible = fvNever
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = cxGridViewE36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -55,6 +61,12 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
Position = spFooter Position = spFooter
Column = cxGridViewTE Column = cxGridViewTE
end end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = cxGridViewS36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -97,6 +109,12 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
Position = spFooter Position = spFooter
Column = cxGridViewTS Column = cxGridViewTS
end end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = cxGridViewK36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -140,6 +158,11 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
Column = cxGridViewKT Column = cxGridViewKT
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item
Format = '#,##0'
Kind = skSum
Column = cxGridViewE36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -175,6 +198,11 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
Kind = skSum Kind = skSum
Column = cxGridViewTE Column = cxGridViewTE
end end
item
Format = '#,##0'
Kind = skSum
Column = cxGridViewS36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -210,6 +238,11 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
Kind = skSum Kind = skSum
Column = cxGridViewTS Column = cxGridViewTS
end end
item
Format = '#,##0'
Kind = skSum
Column = cxGridViewK36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -289,6 +322,15 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
Caption = 'Color' Caption = 'Color'
DataBinding.FieldName = 'COLOR' DataBinding.FieldName = 'COLOR'
end end
object cxGridViewE36: TcxGridDBColumn
Caption = 'E36'
DataBinding.FieldName = 'E36'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
OnGetDataText = cxGridViewE38GetDataText
HeaderAlignmentHorz = taRightJustify
Styles.Content = cxStyleEntrada
end
object cxGridViewE38: TcxGridDBColumn object cxGridViewE38: TcxGridDBColumn
Caption = 'E38/S' Caption = 'E38/S'
DataBinding.FieldName = 'E38' DataBinding.FieldName = 'E38'
@ -349,6 +391,15 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Styles.OnGetContentStyle = cxGridViewTEStylesGetContentStyle Styles.OnGetContentStyle = cxGridViewTEStylesGetContentStyle
end end
object cxGridViewS36: TcxGridDBColumn
Caption = 'S36'
DataBinding.FieldName = 'S36'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
OnGetDataText = cxGridViewE38GetDataText
HeaderAlignmentHorz = taRightJustify
Styles.Content = cxStyleSalida
end
object cxGridViewS38: TcxGridDBColumn object cxGridViewS38: TcxGridDBColumn
Caption = 'S38/S' Caption = 'S38/S'
DataBinding.FieldName = 'S38' DataBinding.FieldName = 'S38'
@ -408,6 +459,14 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
OnGetDataText = cxGridViewE38GetDataText OnGetDataText = cxGridViewE38GetDataText
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewK36: TcxGridDBColumn
Caption = 'K36'
DataBinding.FieldName = 'K36'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
OnGetDataText = cxGridViewE38GetDataText
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewK38: TcxGridDBColumn object cxGridViewK38: TcxGridDBColumn
Caption = 'K38/S' Caption = 'K38/S'
DataBinding.FieldName = 'K38' DataBinding.FieldName = 'K38'
@ -524,8 +583,6 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
Align = alClient Align = alClient
AutoSize = True AutoSize = True
TabOrder = 2 TabOrder = 2
ExplicitLeft = 730
ExplicitWidth = 200
object TBXButton1: TTBXButton object TBXButton1: TTBXButton
Tag = 3 Tag = 3
Left = 8 Left = 8
@ -572,9 +629,7 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 220 Width = 220
Height = 41 Height = 41
ExplicitLeft = 6 ExplicitWidth = 220
ExplicitTop = -6
ExplicitWidth = 180
ExplicitHeight = 41 ExplicitHeight = 41
inherited eFecha: TcxDateEdit inherited eFecha: TcxDateEdit
ExplicitWidth = 231 ExplicitWidth = 231
@ -608,7 +663,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 = 39478.750675266200000000 ReportDocument.CreationDate = 39574.507181342590000000
ReportTitle.Text = 'Venta mensual' ReportTitle.Text = 'Venta mensual'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack

3
Source/Modulos/Stock/Cliente/uViewControGridStockEDI.pas
View File

@ -74,6 +74,9 @@ type
TBXButton1: TTBXButton; TBXButton1: TTBXButton;
TBXLabel2: TTBXLabel; TBXLabel2: TTBXLabel;
frViewParametrosFecha1: TfrViewParametrosFecha; frViewParametrosFecha1: TfrViewParametrosFecha;
cxGridViewK36: TcxGridDBColumn;
cxGridViewE36: TcxGridDBColumn;
cxGridViewS36: TcxGridDBColumn;
procedure cxGridViewKTCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewKTCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean); var ADone: Boolean);

72
Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.dfm
View File

@ -13,6 +13,12 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
FilterBox.Visible = fvNever FilterBox.Visible = fvNever
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = cxGridViewI36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -55,6 +61,12 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
Position = spFooter Position = spFooter
Column = cxGridViewTI Column = cxGridViewTI
end end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = cxGridViewK36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -97,6 +109,17 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
Position = spFooter Position = spFooter
Column = cxGridViewTK Column = cxGridViewTK
end end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = cxGridViewD36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -140,6 +163,11 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
Column = cxGridViewDT Column = cxGridViewDT
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item
Format = '#,##0'
Kind = skSum
Column = cxGridViewI36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -175,6 +203,11 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
Kind = skSum Kind = skSum
Column = cxGridViewTI Column = cxGridViewTI
end end
item
Format = '#,##0'
Kind = skSum
Column = cxGridViewK36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -210,6 +243,11 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
Kind = skSum Kind = skSum
Column = cxGridViewTK Column = cxGridViewTK
end end
item
Format = '#,##0'
Kind = skSum
Column = cxGridViewD36
end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
@ -289,6 +327,14 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
Caption = 'Color' Caption = 'Color'
DataBinding.FieldName = 'COLOR' DataBinding.FieldName = 'COLOR'
end end
object cxGridViewI36: TcxGridDBColumn
DataBinding.FieldName = 'I36'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
OnGetDataText = cxGridViewI38GetDataText
HeaderAlignmentHorz = taRightJustify
Styles.Content = cxStyleEntrada
end
object cxGridViewI38: TcxGridDBColumn object cxGridViewI38: TcxGridDBColumn
Caption = 'I38/S' Caption = 'I38/S'
DataBinding.FieldName = 'I38' DataBinding.FieldName = 'I38'
@ -349,6 +395,14 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Styles.OnGetContentStyle = cxGridViewTEStylesGetContentStyle Styles.OnGetContentStyle = cxGridViewTEStylesGetContentStyle
end end
object cxGridViewK36: TcxGridDBColumn
DataBinding.FieldName = 'K36'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
OnGetDataText = cxGridViewI38GetDataText
HeaderAlignmentHorz = taRightJustify
Styles.Content = cxStyleSalida
end
object cxGridViewK38: TcxGridDBColumn object cxGridViewK38: TcxGridDBColumn
Caption = 'K38/S' Caption = 'K38/S'
DataBinding.FieldName = 'K38' DataBinding.FieldName = 'K38'
@ -408,8 +462,14 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
OnGetDataText = cxGridViewI38GetDataText OnGetDataText = cxGridViewI38GetDataText
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewD36: TcxGridDBColumn
DataBinding.FieldName = 'D36'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
OnGetDataText = cxGridViewI38GetDataText
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewD38: TcxGridDBColumn object cxGridViewD38: TcxGridDBColumn
Caption = 'D38/S'
DataBinding.FieldName = 'D38' DataBinding.FieldName = 'D38'
PropertiesClassName = 'TcxSpinEditProperties' PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
@ -488,7 +548,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
ExplicitHeight = 41 ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 250 Width = 250
ExplicitWidth = 300 ExplicitWidth = 250
inherited ccbColeccion: TJvCheckedComboBox inherited ccbColeccion: TJvCheckedComboBox
Width = 512 Width = 512
ExplicitWidth = 512 ExplicitWidth = 512
@ -509,7 +569,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
ExplicitHeight = 41 ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 300 Width = 300
ExplicitWidth = 350 ExplicitWidth = 300
inherited ccbCentro: TJvCheckedComboBox inherited ccbCentro: TJvCheckedComboBox
Width = 392 Width = 392
ExplicitWidth = 392 ExplicitWidth = 392
@ -524,8 +584,6 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
Align = alClient Align = alClient
AutoSize = True AutoSize = True
TabOrder = 2 TabOrder = 2
ExplicitLeft = 830
ExplicitWidth = 237
object TBXButton3: TTBXButton object TBXButton3: TTBXButton
Tag = 3 Tag = 3
Left = 8 Left = 8
@ -572,7 +630,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 220 Width = 220
Height = 41 Height = 41
ExplicitWidth = 180 ExplicitWidth = 220
ExplicitHeight = 41 ExplicitHeight = 41
inherited eFecha: TcxDateEdit inherited eFecha: TcxDateEdit
ExplicitWidth = 122 ExplicitWidth = 122
@ -606,7 +664,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 = 39478.742396006940000000 ReportDocument.CreationDate = 39574.511203333340000000
ReportTitle.Text = 'Venta mensual' ReportTitle.Text = 'Venta mensual'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack

3
Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.pas
View File

@ -37,6 +37,7 @@ type
cxGridViewGRUPO_PRODUCTO: TcxGridDBColumn; cxGridViewGRUPO_PRODUCTO: TcxGridDBColumn;
cxGridViewCOLECCION: TcxGridDBColumn; cxGridViewCOLECCION: TcxGridDBColumn;
cxGridViewCOLOR: TcxGridDBColumn; cxGridViewCOLOR: TcxGridDBColumn;
cxGridViewI36: TcxGridDBColumn;
cxGridViewI38: TcxGridDBColumn; cxGridViewI38: TcxGridDBColumn;
cxGridViewI40: TcxGridDBColumn; cxGridViewI40: TcxGridDBColumn;
cxGridViewI42: TcxGridDBColumn; cxGridViewI42: TcxGridDBColumn;
@ -44,6 +45,7 @@ type
cxGridViewI46: TcxGridDBColumn; cxGridViewI46: TcxGridDBColumn;
cxGridViewI48: TcxGridDBColumn; cxGridViewI48: TcxGridDBColumn;
cxGridViewTI: TcxGridDBColumn; cxGridViewTI: TcxGridDBColumn;
cxGridViewK36: TcxGridDBColumn;
cxGridViewK38: TcxGridDBColumn; cxGridViewK38: TcxGridDBColumn;
cxGridViewK40: TcxGridDBColumn; cxGridViewK40: TcxGridDBColumn;
cxGridViewK42: TcxGridDBColumn; cxGridViewK42: TcxGridDBColumn;
@ -51,6 +53,7 @@ type
cxGridViewK46: TcxGridDBColumn; cxGridViewK46: TcxGridDBColumn;
cxGridViewK48: TcxGridDBColumn; cxGridViewK48: TcxGridDBColumn;
cxGridViewTK: TcxGridDBColumn; cxGridViewTK: TcxGridDBColumn;
cxGridViewD36: TcxGridDBColumn;
cxGridViewD38: TcxGridDBColumn; cxGridViewD38: TcxGridDBColumn;
cxGridViewD40: TcxGridDBColumn; cxGridViewD40: TcxGridDBColumn;
cxGridViewD42: TcxGridDBColumn; cxGridViewD42: TcxGridDBColumn;

37
Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.dfm
View File

@ -17,41 +17,55 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
Format = '0 referencias' Format = '0 referencias'
Kind = skCount Kind = skCount
Position = spFooter Position = spFooter
Column = cxGridViewPRODUCTO
end end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridView36
end end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridView38
end end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridView40
end end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridView42
end end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridView44
end end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridView46
end end
item item
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridView48
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = cxGridViewTOTAL
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -93,6 +107,11 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
Column = cxGridViewTOTAL Column = cxGridViewTOTAL
end
item
Format = '#,##0'
Kind = skSum
Column = cxGridView36
end> end>
OptionsView.GridLineColor = clDefault OptionsView.GridLineColor = clDefault
OptionsView.GridLines = glHorizontal OptionsView.GridLines = glHorizontal
@ -123,6 +142,16 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
object cxGridViewCOLOR: TcxGridDBColumn object cxGridViewCOLOR: TcxGridDBColumn
DataBinding.FieldName = 'COLOR' DataBinding.FieldName = 'COLOR'
end end
object cxGridView36: TcxGridDBColumn
DataBinding.FieldName = 'T36'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '#,###'
OnCustomDrawCell = cxGridViewKTCustomDrawCell
OnGetDataText = cxGridView38GetDataText
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridView38: TcxGridDBColumn object cxGridView38: TcxGridDBColumn
Caption = 'T38/S' Caption = 'T38/S'
DataBinding.FieldName = 'T38' DataBinding.FieldName = 'T38'
@ -224,7 +253,7 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
ExplicitHeight = 41 ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 250 Width = 250
ExplicitWidth = 300 ExplicitWidth = 250
inherited ccbColeccion: TJvCheckedComboBox inherited ccbColeccion: TJvCheckedComboBox
Width = 512 Width = 512
ExplicitWidth = 512 ExplicitWidth = 512
@ -239,8 +268,6 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
Align = alClient Align = alClient
AutoSize = True AutoSize = True
TabOrder = 1 TabOrder = 1
ExplicitLeft = 500
ExplicitWidth = 121
object TBXButton3: TTBXButton object TBXButton3: TTBXButton
Tag = 3 Tag = 3
Left = 8 Left = 8
@ -287,7 +314,7 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 220 Width = 220
Height = 41 Height = 41
ExplicitWidth = 200 ExplicitWidth = 220
ExplicitHeight = 41 ExplicitHeight = 41
inherited eFecha: TcxDateEdit inherited eFecha: TcxDateEdit
ExplicitWidth = 231 ExplicitWidth = 231
@ -323,7 +350,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 = 39478.749355277770000000 ReportDocument.CreationDate = 39574.506484548610000000
ReportDocument.IsCaptionAssigned = True ReportDocument.IsCaptionAssigned = True
ReportTitle.AdjustOnReportScale = True ReportTitle.AdjustOnReportScale = True
ReportTitle.Text = 'Venta mensual' ReportTitle.Text = 'Venta mensual'

1
Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.pas
View File

@ -55,6 +55,7 @@ type
TBXButton3: TTBXButton; TBXButton3: TTBXButton;
TBXLabel1: TTBXLabel; TBXLabel1: TTBXLabel;
frViewParametrosFecha1: TfrViewParametrosFecha; frViewParametrosFecha1: TfrViewParametrosFecha;
cxGridView36: TcxGridDBColumn;
procedure cxGridViewKTCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewKTCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean); var ADone: Boolean);

22
Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.dfm
View File

@ -60,6 +60,12 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridViewKT Column = cxGridViewKT
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = cxGridViewK36
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -101,6 +107,11 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
Format = '#,##0' Format = '#,##0'
Kind = skSum Kind = skSum
Column = cxGridViewKT Column = cxGridViewKT
end
item
Format = '#,##0'
Kind = skSum
Column = cxGridViewK36
end> end>
OptionsView.GridLineColor = clDefault OptionsView.GridLineColor = clDefault
OptionsView.GridLines = glHorizontal OptionsView.GridLines = glHorizontal
@ -144,6 +155,15 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
Visible = False Visible = False
GroupIndex = 0 GroupIndex = 0
end end
object cxGridViewK36: TcxGridDBColumn
DataBinding.FieldName = 'K36'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '#,##0'
Properties.ValueType = vtInt
OnGetDataText = cxGridViewK38GetDataText
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewK38: TcxGridDBColumn object cxGridViewK38: TcxGridDBColumn
Caption = 'K38/S' Caption = 'K38/S'
DataBinding.FieldName = 'K38' DataBinding.FieldName = 'K38'
@ -312,7 +332,7 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
PrinterPage.PageSize.Y = 297000 PrinterPage.PageSize.Y = 297000
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39478.735610347220000000 ReportDocument.CreationDate = 39574.504253645840000000
ReportDocument.IsCaptionAssigned = True ReportDocument.IsCaptionAssigned = True
ReportTitle.AdjustOnReportScale = True ReportTitle.AdjustOnReportScale = True
ReportTitle.Text = 'Venta mensual' ReportTitle.Text = 'Venta mensual'

2
Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.pas
View File

@ -55,6 +55,7 @@ type
pnlAgrupaciones: TTBXAlignmentPanel; pnlAgrupaciones: TTBXAlignmentPanel;
TBXButton3: TTBXButton; TBXButton3: TTBXButton;
TBXLabel1: TTBXLabel; TBXLabel1: TTBXLabel;
cxGridViewK36: TcxGridDBColumn;
procedure cxGridViewKTCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewKTCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean); var ADone: Boolean);
@ -175,7 +176,6 @@ procedure TfrViewControlGridStockVARELA.cxGridViewK38GetDataText(
var AText: String); var AText: String);
begin begin
inherited; inherited;
// ShowMessage(AText);
if AText = '0' then if AText = '0' then
AText := ''; AText := '';
end; end;

1465
Source/Modulos/Stock/Reglas/schStockClient_Intf.pas
View File

File diff suppressed because it is too large Load Diff

1643
Source/Modulos/Stock/Reglas/schStockServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

484
Source/Modulos/Stock/Servidor/srvStock_Impl.dfm
View File

@ -27,12 +27,12 @@ object srvStock: TsrvStock
Connection = 'GFT_VARELA' Connection = 'GFT_VARELA'
SQL = SQL =
'SELECT'#10' CODIGO,'#10' PRODUCTO,'#10' TIPO_PRODUCTO,'#10' ' + 'SELECT'#10' CODIGO,'#10' PRODUCTO,'#10' TIPO_PRODUCTO,'#10' ' +
'GRUPO_PRODUCTO,'#10' COLECCION,'#10' COLOR,'#10' SUM(K38) AS ' + 'GRUPO_PRODUCTO,'#10' COLECCION,'#10' COLOR,'#10' SUM(K36) AS ' +
'T38,'#10' SUM(K40) AS T40,'#10' SUM(K42) AS T42,'#10' SUM(K44' + 'T36,'#10' SUM(K38) AS T38,'#10' SUM(K40) AS T40,'#10' SUM(K42' +
') AS T44,'#10' SUM(K46) AS T46,'#10' SUM(K48) AS T48,'#10' SU' + ') AS T42,'#10' SUM(K44) AS T44,'#10' SUM(K46) AS T46,'#10' SU' +
'M(KT) AS TOTAL'#10'FROM RDX_V_STOCK_CALCULADO'#10'GROUP BY CODIGO,'#10' ' + 'M(K48) AS T48,'#10' SUM(KT) AS TOTAL'#10'FROM RDX_V_STOCK_CALCULADO' +
' PRODUCTO,'#10' TIPO_PRODUCTO,'#10' GRUPO_PRODUCTO,'#10' COLE' + #10'GROUP BY CODIGO,'#10' PRODUCTO,'#10' TIPO_PRODUCTO,'#10' GRU' +
'CCION,'#10' COLOR' 'PO_PRODUCTO,'#10' COLECCION,'#10' COLOR'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -59,6 +59,10 @@ object srvStock: TsrvStock
DatasetField = 'COLOR' DatasetField = 'COLOR'
TableField = 'COLOR' TableField = 'COLOR'
end end
item
DatasetField = 'T36'
TableField = 'T36'
end
item item
DatasetField = 'T38' DatasetField = 'T38'
TableField = 'T38' TableField = 'T38'
@ -126,6 +130,12 @@ object srvStock: TsrvStock
Size = 10 Size = 10
DisplayLabel = 'Color' DisplayLabel = 'Color'
end end
item
Name = 'T36'
DataType = datFloat
DisplayLabel = '36'
Alignment = taRightJustify
end
item item
Name = 'T38' Name = 'T38'
DataType = datFloat DataType = datFloat
@ -176,25 +186,27 @@ object srvStock: TsrvStock
Connection = 'GFT_VARELA' Connection = 'GFT_VARELA'
SQL = SQL =
'SELECT'#10#10' CENTRO, FILIAL, CODIGO, PRODUCTO, TIPO_PRODUCTO, GRU' + 'SELECT'#10#10' CENTRO, FILIAL, CODIGO, PRODUCTO, TIPO_PRODUCTO, GRU' +
'PO_PRODUCTO, COLECCION, COLOR,'#10#10' SUM(E38) as E38,'#10' SUM(E40' + 'PO_PRODUCTO, COLECCION, COLOR,'#10#10' SUM(E36) as E36,'#10' SUM(E38' +
') as E40,'#10' SUM(E42) as E42,'#10' SUM(E44) as E44,'#10' SUM(E46)' + ') as E38,'#10' SUM(E40) as E40,'#10' SUM(E42) as E42,'#10' SUM(E44)' +
' as E46,'#10' SUM(E48) as E48,'#10' (SUM(ISNULL(E38,0)) + SUM(ISNU' + ' as E44,'#10' SUM(E46) as E46,'#10' SUM(E48) as E48,'#10' (SUM(ISNU' +
'LL(E40,0)) + SUM(ISNULL(E42,0)) + SUM(ISNULL(E44,0)) + SUM(ISNUL' + 'LL(E36,0)) + SUM(ISNULL(E38,0)) + SUM(ISNULL(E40,0)) + SUM(ISNUL' +
'L(E46,0)) + SUM(ISNULL(E48,0))) as TE,'#10' SUM(S38) as S38,'#10' ' + 'L(E42,0)) + SUM(ISNULL(E44,0)) + SUM(ISNULL(E46,0)) + SUM(ISNULL' +
'(E48,0))) as TE,'#10#10' SUM(S36) as S36,'#10' SUM(S38) as S38,'#10' ' +
'SUM(S40) as S40,'#10' SUM(S42) as S42,'#10' SUM(S44) as S44,'#10' S' + 'SUM(S40) as S40,'#10' SUM(S42) as S42,'#10' SUM(S44) as S44,'#10' S' +
'UM(S46) as S46,'#10' SUM(S48) as S48,'#10' (SUM(ISNULL(S38,0)) + S' + 'UM(S46) as S46,'#10' SUM(S48) as S48,'#10' (SUM(ISNULL(S36,0)) + S' +
'UM(ISNULL(S40,0)) + SUM(ISNULL(S42,0)) + SUM(ISNULL(S44,0)) + SU' + 'UM(ISNULL(S38,0)) + SUM(ISNULL(S40,0)) + SUM(ISNULL(S42,0)) + SU' +
'M(ISNULL(S46,0)) + SUM(ISNULL(S48,0))) as TS,'#10#10' (SUM(E38) + S' + 'M(ISNULL(S44,0)) + SUM(ISNULL(S46,0)) + SUM(ISNULL(S48,0))) as T' +
'UM(S38)) as K38,'#10' (SUM(E40) + SUM(S40)) as K40,'#10' (SUM(E42)' + 'S,'#10#10' (SUM(E36) + SUM(S36)) as K36,'#10' (SUM(E38) + SUM(S38)) ' +
' + SUM(S42)) as K42,'#10' (SUM(E44) + SUM(S44)) as K44,'#10' (SUM(' + 'as K38,'#10' (SUM(E40) + SUM(S40)) as K40,'#10' (SUM(E42) + SUM(S4' +
'E46) + SUM(S46)) as K46,'#10' (SUM(E48) + SUM(S48)) as K48,'#10#10' ' + '2)) as K42,'#10' (SUM(E44) + SUM(S44)) as K44,'#10' (SUM(E46) + SU' +
'((SUM(ISNULL(E38,0)) + SUM(ISNULL(S38,0))) + (SUM(ISNULL(E40,0))' + 'M(S46)) as K46,'#10' (SUM(E48) + SUM(S48)) as K48,'#10#10' ((SUM(ISN' +
' + SUM(ISNULL(S40,0))) + (SUM(ISNULL(E42,0)) + SUM(ISNULL(S42,0)' + 'ULL(E36,0)) + SUM(ISNULL(S36,0))) + (SUM(ISNULL(E38,0)) + SUM(IS' +
')) + (SUM(ISNULL(E44,0)) + SUM(ISNULL(S44,0))) + (SUM(ISNULL(E46' + 'NULL(S38,0))) + (SUM(ISNULL(E40,0)) + SUM(ISNULL(S40,0))) + (SUM' +
',0)) + SUM(ISNULL(S46,0))) + (SUM(ISNULL(E48,0)) + SUM(ISNULL(S4' + '(ISNULL(E42,0)) + SUM(ISNULL(S42,0))) + (SUM(ISNULL(E44,0)) + SU' +
'8,0)))) as KT'#10#10' FROM'#10' RDX_V_STOCK_CALCULADO'#10#10#10'GROUP BY CENTR' + 'M(ISNULL(S44,0))) + (SUM(ISNULL(E46,0)) + SUM(ISNULL(S46,0))) + ' +
'O, FILIAL, CODIGO, PRODUCTO, TIPO_PRODUCTO, GRUPO_PRODUCTO, COLE' + '(SUM(ISNULL(E48,0)) + SUM(ISNULL(S48,0)))) as KT'#10#10' FROM'#10' RDX' +
'CCION, COLOR'#10#10 '_V_STOCK_CALCULADO'#10#10#10'GROUP BY CENTRO, FILIAL, CODIGO, PRODUCTO, ' +
'TIPO_PRODUCTO, GRUPO_PRODUCTO, COLECCION, COLOR'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -229,6 +241,10 @@ object srvStock: TsrvStock
DatasetField = 'COLOR' DatasetField = 'COLOR'
TableField = 'COLOR' TableField = 'COLOR'
end end
item
DatasetField = 'E36'
TableField = 'E36'
end
item item
DatasetField = 'E38' DatasetField = 'E38'
TableField = 'E38' TableField = 'E38'
@ -257,6 +273,10 @@ object srvStock: TsrvStock
DatasetField = 'TE' DatasetField = 'TE'
TableField = 'TE' TableField = 'TE'
end end
item
DatasetField = 'S36'
TableField = 'S36'
end
item item
DatasetField = 'S38' DatasetField = 'S38'
TableField = 'S38' TableField = 'S38'
@ -285,6 +305,10 @@ object srvStock: TsrvStock
DatasetField = 'TS' DatasetField = 'TS'
TableField = 'TS' TableField = 'TS'
end end
item
DatasetField = 'K36'
TableField = 'K36'
end
item item
DatasetField = 'K38' DatasetField = 'K38'
TableField = 'K38' TableField = 'K38'
@ -356,6 +380,11 @@ object srvStock: TsrvStock
DataType = datString DataType = datString
Size = 10 Size = 10
end end
item
Name = 'E36'
DataType = datFloat
Alignment = taRightJustify
end
item item
Name = 'E38' Name = 'E38'
DataType = datFloat DataType = datFloat
@ -391,6 +420,11 @@ object srvStock: TsrvStock
DataType = datFloat DataType = datFloat
Alignment = taRightJustify Alignment = taRightJustify
end end
item
Name = 'S36'
DataType = datFloat
Alignment = taRightJustify
end
item item
Name = 'S38' Name = 'S38'
DataType = datFloat DataType = datFloat
@ -426,6 +460,11 @@ object srvStock: TsrvStock
DataType = datFloat DataType = datFloat
Alignment = taRightJustify Alignment = taRightJustify
end end
item
Name = 'K36'
DataType = datFloat
Alignment = taRightJustify
end
item item
Name = 'K38' Name = 'K38'
DataType = datFloat DataType = datFloat
@ -469,26 +508,42 @@ object srvStock: TsrvStock
Connection = 'GFT_VARELA' Connection = 'GFT_VARELA'
SQL = SQL =
'SELECT FILIAL, CODIGO, COLOR, PRODUCTO, TIPO_PRODUTO, GRUPO_PROD' + 'SELECT FILIAL, CODIGO, COLOR, PRODUCTO, TIPO_PRODUTO, GRUPO_PROD' +
'UTO,'#10' COLECCION, K38, K40, K42, K44, K46, K48, KT'#10' '#10'F' + 'UTO,'#10' COLECCION, K36, K38, K40, K42, K44, K46, K48, KT'#10' ' +
'ROM RDX_V_STOCK_VARELA' ' '#10'FROM RDX_V_STOCK_VARELA'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'PRODUCTO' DatasetField = 'FILIAL'
TableField = 'PRODUCTO' TableField = 'FILIAL'
end
item
DatasetField = 'COLOR'
TableField = 'COLOR'
end end
item item
DatasetField = 'CODIGO' DatasetField = 'CODIGO'
TableField = 'CODIGO' TableField = 'CODIGO'
end end
item
DatasetField = 'COLOR'
TableField = 'COLOR'
end
item
DatasetField = 'PRODUCTO'
TableField = 'PRODUCTO'
end
item
DatasetField = 'TIPO_PRODUTO'
TableField = 'TIPO_PRODUTO'
end
item
DatasetField = 'GRUPO_PRODUTO'
TableField = 'GRUPO_PRODUTO'
end
item item
DatasetField = 'COLECCION' DatasetField = 'COLECCION'
TableField = 'COLECCION' TableField = 'COLECCION'
end end
item
DatasetField = 'K36'
TableField = 'K36'
end
item item
DatasetField = 'K38' DatasetField = 'K38'
TableField = 'K38' TableField = 'K38'
@ -513,18 +568,6 @@ object srvStock: TsrvStock
DatasetField = 'K48' DatasetField = 'K48'
TableField = 'K48' TableField = 'K48'
end end
item
DatasetField = 'FILIAL'
TableField = 'FILIAL'
end
item
DatasetField = 'TIPO_PRODUTO'
TableField = 'TIPO_PRODUTO'
end
item
DatasetField = 'GRUPO_PRODUTO'
TableField = 'GRUPO_PRODUTO'
end
item item
DatasetField = 'KT' DatasetField = 'KT'
TableField = 'KT' TableField = 'KT'
@ -567,6 +610,11 @@ object srvStock: TsrvStock
DataType = datString DataType = datString
Size = 40 Size = 40
end end
item
Name = 'K36'
DataType = datInteger
Alignment = taRightJustify
end
item item
Name = 'K38' Name = 'K38'
DataType = datInteger DataType = datInteger
@ -603,263 +651,6 @@ object srvStock: TsrvStock
Alignment = taRightJustify Alignment = taRightJustify
end> end>
end end
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_V_CONTROL_INVENTARIO'
SQL =
'SELECT '#10' CENTRO, FILIAL, CODIGO, PRODUCTO, COLOR, TIPO_PRODUC' +
'TO, GRUPO_PRODUCTO,'#10' COLECCION, I38, I40, I42, I44, I46, I48,' +
' TI, K38, K40, '#10' K42, K44, K46, K48, TK, D38, D40, D42, D44, ' +
'D46, D48, '#10' DT'#10' FROM'#10' RDX_V_CONTROL_INVENTARIO'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CENTRO'
TableField = 'CENTRO'
end
item
DatasetField = 'FILIAL'
TableField = 'FILIAL'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'PRODUCTO'
TableField = 'PRODUCTO'
end
item
DatasetField = 'COLOR'
TableField = 'COLOR'
end
item
DatasetField = 'TIPO_PRODUCTO'
TableField = 'TIPO_PRODUCTO'
end
item
DatasetField = 'GRUPO_PRODUCTO'
TableField = 'GRUPO_PRODUCTO'
end
item
DatasetField = 'COLECCION'
TableField = 'COLECCION'
end
item
DatasetField = 'I38'
TableField = 'I38'
end
item
DatasetField = 'I40'
TableField = 'I40'
end
item
DatasetField = 'I42'
TableField = 'I42'
end
item
DatasetField = 'I44'
TableField = 'I44'
end
item
DatasetField = 'I46'
TableField = 'I46'
end
item
DatasetField = 'I48'
TableField = 'I48'
end
item
DatasetField = 'TI'
TableField = 'TI'
end
item
DatasetField = 'K38'
TableField = 'K38'
end
item
DatasetField = 'K40'
TableField = 'K40'
end
item
DatasetField = 'K42'
TableField = 'K42'
end
item
DatasetField = 'K44'
TableField = 'K44'
end
item
DatasetField = 'K46'
TableField = 'K46'
end
item
DatasetField = 'K48'
TableField = 'K48'
end
item
DatasetField = 'TK'
TableField = 'TK'
end
item
DatasetField = 'D38'
TableField = 'D38'
end
item
DatasetField = 'D40'
TableField = 'D40'
end
item
DatasetField = 'D42'
TableField = 'D42'
end
item
DatasetField = 'D44'
TableField = 'D44'
end
item
DatasetField = 'D46'
TableField = 'D46'
end
item
DatasetField = 'D48'
TableField = 'D48'
end
item
DatasetField = 'DT'
TableField = 'DT'
end>
end>
Name = 'StockEDIInventario2'
Fields = <
item
Name = 'CENTRO'
DataType = datString
Size = 17
end
item
Name = 'FILIAL'
DataType = datString
Size = 25
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
end
item
Name = 'PRODUCTO'
DataType = datString
Size = 40
end
item
Name = 'COLOR'
DataType = datString
Size = 10
end
item
Name = 'TIPO_PRODUCTO'
DataType = datString
Size = 25
end
item
Name = 'GRUPO_PRODUCTO'
DataType = datString
Size = 25
end
item
Name = 'COLECCION'
DataType = datString
Size = 6
end
item
Name = 'I38'
DataType = datFloat
end
item
Name = 'I40'
DataType = datFloat
end
item
Name = 'I42'
DataType = datFloat
end
item
Name = 'I44'
DataType = datFloat
end
item
Name = 'I46'
DataType = datFloat
end
item
Name = 'I48'
DataType = datFloat
end
item
Name = 'TI'
DataType = datFloat
end
item
Name = 'K38'
DataType = datFloat
end
item
Name = 'K40'
DataType = datFloat
end
item
Name = 'K42'
DataType = datFloat
end
item
Name = 'K44'
DataType = datFloat
end
item
Name = 'K46'
DataType = datFloat
end
item
Name = 'K48'
DataType = datFloat
end
item
Name = 'TK'
DataType = datFloat
end
item
Name = 'D38'
DataType = datFloat
end
item
Name = 'D40'
DataType = datFloat
end
item
Name = 'D42'
DataType = datFloat
end
item
Name = 'D44'
DataType = datFloat
end
item
Name = 'D46'
DataType = datFloat
end
item
Name = 'D48'
DataType = datFloat
end
item
Name = 'DT'
DataType = datFloat
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <
@ -868,24 +659,26 @@ object srvStock: TsrvStock
TargetTable = 'RDX_V_CONTROL_INVENTARIO' TargetTable = 'RDX_V_CONTROL_INVENTARIO'
SQL = SQL =
'SELECT'#10' CENTRO, FILIAL, CODIGO, PRODUCTO, COLOR, TIPO_PRODUCT' + 'SELECT'#10' CENTRO, FILIAL, CODIGO, PRODUCTO, COLOR, TIPO_PRODUCT' +
'O, GRUPO_PRODUCTO, COLECCION,'#10#10' SUM(I38) as I38,'#10' SUM(I40)' + 'O, GRUPO_PRODUCTO, COLECCION,'#10#10' SUM(I36) as I36,'#10' SUM(I38)' +
' as I40,'#10' SUM(I42) as I42,'#10' SUM(I44) as I44,'#10' SUM(I46) ' + ' as I38,'#10' SUM(I40) as I40,'#10' SUM(I42) as I42,'#10' SUM(I44) ' +
'as I46,'#10' SUM(I48) as I48,'#10' (SUM(I38) + SUM(I40) + SUM(I42)' + 'as I44,'#10' SUM(I46) as I46,'#10' SUM(I48) as I48,'#10' (SUM(I36) ' +
' + SUM(I44) + SUM(I46) + SUM(I48)) as TI,'#10' SUM(K38) as K38,'#10' ' + '+ SUM(I38) + SUM(I40) + SUM(I42) + SUM(I44) + SUM(I46) + SUM(I48' +
' SUM(K40) as K40,'#10' SUM(K42) as K42,'#10' SUM(K44) as K44,'#10' ' + ')) as TI,'#10#10' SUM(K36) as K36,'#10' SUM(K38) as K38,'#10' SUM(K40' +
' SUM(K46) as K46,'#10' SUM(K48) as K48,'#10' (SUM(K38) + SUM(K40)' + ') as K40,'#10' SUM(K42) as K42,'#10' SUM(K44) as K44,'#10' SUM(K46)' +
' + SUM(K42) + SUM(K44) + SUM(K46) + SUM(K48)) as TK,'#10#10' (SUM(I' + ' as K46,'#10' SUM(K48) as K48,'#10' (SUM(K36) + SUM(K38) + SUM(K40' +
'38) - SUM(K38)) as D38,'#10' (SUM(I40) - SUM(K40)) as D40,'#10' (S' + ') + SUM(K42) + SUM(K44) + SUM(K46) + SUM(K48)) as TK,'#10#10' (SUM(' +
'UM(I42) - SUM(K42)) as D42,'#10' (SUM(I44) - SUM(K44)) as D44,'#10' ' + 'I36) - SUM(K36)) as D36,'#10' (SUM(I38) - SUM(K38)) as D38,'#10' (' +
' (SUM(I46) - SUM(K46)) as D46,'#10' (SUM(I48) - SUM(K48)) as D48' + 'SUM(I40) - SUM(K40)) as D40,'#10' (SUM(I42) - SUM(K42)) as D42,'#10' ' +
','#10#10' ((SUM(I38) - SUM(K38)) + (SUM(I40) - SUM(K40)) + (SUM(I42' + ' (SUM(I44) - SUM(K44)) as D44,'#10' (SUM(I46) - SUM(K46)) as D4' +
') - SUM(K42)) + (SUM(I44) - SUM(K44)) + (SUM(I46) - SUM(K46)) + ' + '6,'#10' (SUM(I48) - SUM(K48)) as D48,'#10#10' ((SUM(I36) - SUM(K36))' +
'(SUM(I48) - SUM(K48))) as DT'#10#10' FROM'#10' RDX_V_CONTROL_INVENTARI' + ' + (SUM(I38) - SUM(K38)) + (SUM(I40) - SUM(K40)) + (SUM(I42) - S' +
'O'#10#10'GROUP BY CENTRO, FILIAL, CODIGO, PRODUCTO, COLOR, TIPO_PRODUC' + 'UM(K42)) + (SUM(I44) - SUM(K44)) + (SUM(I46) - SUM(K46)) + (SUM(' +
'TO, GRUPO_PRODUCTO, COLECCION'#10#10'having ((SUM(I38) - SUM(K38)) + (' + 'I48) - SUM(K48))) as DT'#10#10' FROM'#10' RDX_V_CONTROL_INVENTARIO'#10#10'GR' +
'SUM(I40) - SUM(K40)) +'#10' (SUM(I42) - SUM(K42)) + (SUM(I44) ' + 'OUP BY CENTRO, FILIAL, CODIGO, PRODUCTO, COLOR, TIPO_PRODUCTO, G' +
'- SUM(K44)) +'#10' (SUM(I46) - SUM(K46)) + (SUM(I48) - SUM(K48' + 'RUPO_PRODUCTO, COLECCION'#10#10'having ((SUM(I36) - SUM(K36)) + (SUM(I' +
')) <> 0)'#10 '38) - SUM(K38)) + (SUM(I40) - SUM(K40)) +'#10' (SUM(I42) - SUM' +
'(K42)) + (SUM(I44) - SUM(K44)) +'#10' (SUM(I46) - SUM(K46)) + ' +
'(SUM(I48) - SUM(K48)) <> 0)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -920,6 +713,10 @@ object srvStock: TsrvStock
DatasetField = 'COLECCION' DatasetField = 'COLECCION'
TableField = 'COLECCION' TableField = 'COLECCION'
end end
item
DatasetField = 'I36'
TableField = 'I36'
end
item item
DatasetField = 'I38' DatasetField = 'I38'
TableField = 'I38' TableField = 'I38'
@ -946,7 +743,12 @@ object srvStock: TsrvStock
end end
item item
DatasetField = 'TI' DatasetField = 'TI'
TableField = 'TI' TableField = '<unknown>'
SQLOrigin = 'TI'
end
item
DatasetField = 'K36'
TableField = 'K36'
end end
item item
DatasetField = 'K38' DatasetField = 'K38'
@ -974,35 +776,48 @@ object srvStock: TsrvStock
end end
item item
DatasetField = 'TK' DatasetField = 'TK'
TableField = 'TK' TableField = '<unknown>'
SQLOrigin = 'TK'
end
item
DatasetField = 'D36'
TableField = '<unknown>'
SQLOrigin = 'D36'
end end
item item
DatasetField = 'D38' DatasetField = 'D38'
TableField = 'D38' TableField = '<unknown>'
SQLOrigin = 'D38'
end end
item item
DatasetField = 'D40' DatasetField = 'D40'
TableField = 'D40' TableField = '<unknown>'
SQLOrigin = 'D40'
end end
item item
DatasetField = 'D42' DatasetField = 'D42'
TableField = 'D42' TableField = '<unknown>'
SQLOrigin = 'D42'
end end
item item
DatasetField = 'D44' DatasetField = 'D44'
TableField = 'D44' TableField = '<unknown>'
SQLOrigin = 'D44'
end end
item item
DatasetField = 'D46' DatasetField = 'D46'
TableField = 'D46' TableField = '<unknown>'
SQLOrigin = 'D46'
end end
item item
DatasetField = 'D48' DatasetField = 'D48'
TableField = 'D48' TableField = '<unknown>'
SQLOrigin = 'D48'
end end
item item
DatasetField = 'DT' DatasetField = 'DT'
TableField = 'DT' TableField = '<unknown>'
SQLOrigin = 'DT'
end> end>
end> end>
Name = 'StockEDIInventario' Name = 'StockEDIInventario'
@ -1047,6 +862,10 @@ object srvStock: TsrvStock
DataType = datString DataType = datString
Size = 6 Size = 6
end end
item
Name = 'I36'
DataType = datFloat
end
item item
Name = 'I38' Name = 'I38'
DataType = datFloat DataType = datFloat
@ -1075,6 +894,11 @@ object srvStock: TsrvStock
Name = 'TI' Name = 'TI'
DataType = datFloat DataType = datFloat
end end
item
Name = 'K36'
DataType = datFloat
ServerAutoRefresh = True
end
item item
Name = 'K38' Name = 'K38'
DataType = datFloat DataType = datFloat
@ -1103,6 +927,10 @@ object srvStock: TsrvStock
Name = 'TK' Name = 'TK'
DataType = datFloat DataType = datFloat
end end
item
Name = 'D36'
DataType = datFloat
end
item item
Name = 'D38' Name = 'D38'
DataType = datFloat DataType = datFloat

18
Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.dproj
View File

@ -46,12 +46,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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</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">1.0.3.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><Source><Source Name="MainSource">VentasTerminadas.dpk</Source></Source><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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</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">1.0.3.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><Source><Source Name="MainSource">VentasTerminadas.dpk</Source></Source><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>
@ -65,16 +59,16 @@
<DelphiCompile Include="VentasTerminadas.dpk"> <DelphiCompile Include="VentasTerminadas.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Reglas\ApplicationBase.dcp" />
<DCCReference Include="..\Reglas\Base.dcp" />
<DCCReference Include="..\Reglas\ControlesBase.dcp" />
<DCCReference Include="..\Reglas\Parametros.dcp" />
<DCCReference Include="..\Reglas\rtl.dcp" />
<DCCReference Include="..\Reglas\schVentasTerminadasClient_Intf.pas" /> <DCCReference Include="..\Reglas\schVentasTerminadasClient_Intf.pas" />
<DCCReference Include="..\Reglas\schVentasTerminadasServer_Intf.pas" /> <DCCReference Include="..\Reglas\schVentasTerminadasServer_Intf.pas" />
<DCCReference Include="..\Reglas\uBizControlVentasTerminadas.pas" /> <DCCReference Include="..\Reglas\uBizControlVentasTerminadas.pas" />
<DCCReference Include="..\Reglas\uBizVentasTerminadas.pas" /> <DCCReference Include="..\Reglas\uBizVentasTerminadas.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\Reglas\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ControlesBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Parametros.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="uDataModuleVentasTerminadas.pas"> <DCCReference Include="uDataModuleVentasTerminadas.pas">
<Form>dmVentasTerminadas</Form> <Form>dmVentasTerminadas</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>

23
Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.dfm
View File

@ -44,19 +44,22 @@ object dmVentasTerminadas: TdmVentasTerminadas
item item
Name = 'fechaini' Name = 'fechaini'
DataType = datString DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'fechafin' Name = 'fechafin'
DataType = datString DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'coleccion' Name = 'coleccion'
DataType = datString DataType = datString
Value = '%' Size = 10
Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
@ -89,18 +92,19 @@ object dmVentasTerminadas: TdmVentasTerminadas
Name = 'FechaIni' Name = 'FechaIni'
DataType = rtString DataType = rtString
Flag = fIn Flag = fIn
Value = '01/01/2007' Value = Null
end end
item item
Name = 'FechaFin' Name = 'FechaFin'
DataType = rtString DataType = rtString
Flag = fIn Flag = fIn
Value = '31/01/2007' Value = Null
end end
item item
Name = 'Coleccion' Name = 'Coleccion'
DataType = rtString DataType = rtString
Flag = fIn Flag = fIn
Value = Null
end> end>
GetSchemaCall.Default = False GetSchemaCall.Default = False
GetSchemaCall.IncomingSchemaParameter = 'Result' GetSchemaCall.IncomingSchemaParameter = 'Result'
@ -118,18 +122,19 @@ object dmVentasTerminadas: TdmVentasTerminadas
Name = 'FechaIni' Name = 'FechaIni'
DataType = rtString DataType = rtString
Flag = fIn Flag = fIn
Value = '01/01/2007' Value = Null
end end
item item
Name = 'FechaFin' Name = 'FechaFin'
DataType = rtString DataType = rtString
Flag = fIn Flag = fIn
Value = '31/01/2007' Value = Null
end end
item item
Name = 'Coleccion' Name = 'Coleccion'
DataType = rtString DataType = rtString
Flag = fIn Flag = fIn
Value = Null
end> end>
GetDataCall.Default = False GetDataCall.Default = False
GetDataCall.OutgoingTableNamesParameter = 'DatasetName' GetDataCall.OutgoingTableNamesParameter = 'DatasetName'
@ -171,7 +176,7 @@ object dmVentasTerminadas: TdmVentasTerminadas
GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
GetScriptsCall.IncomingScriptParameter = 'Result' GetScriptsCall.IncomingScriptParameter = 'Result'
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = dmBase.DABINAdapter DataStreamer = DABinDataStreamer1
Left = 216 Left = 216
Top = 168 Top = 168
end end
@ -455,6 +460,12 @@ object dmVentasTerminadas: TdmVentasTerminadas
DisplayLabel = 'Talla' DisplayLabel = 'Talla'
Alignment = taRightJustify Alignment = taRightJustify
end end
item
Name = 'TALLA36'
DataType = datDecimal
DisplayLabel = '36'
Alignment = taRightJustify
end
item item
Name = 'TALLA38' Name = 'TALLA38'
DataType = datDecimal DataType = datDecimal

BIN
Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.pas
View File

Binary file not shown.

8
Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
ClientHeight = 573 ClientHeight = 573
ClientWidth = 679 ClientWidth = 679
ExplicitWidth = 687 ExplicitWidth = 687
ExplicitHeight = 607 ExplicitHeight = 600
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -265,12 +265,12 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
ReadOnly = False ReadOnly = False
ExplicitTop = 76 ExplicitTop = 76
ExplicitWidth = 679 ExplicitWidth = 679
ExplicitHeight = 284 ExplicitHeight = 478
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 679 Width = 679
Height = 478 Height = 478
ExplicitWidth = 679 ExplicitWidth = 679
ExplicitHeight = 284 ExplicitHeight = 478
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink1: TdxGridReportLink inherited dxComponentPrinterLink1: TdxGridReportLink
@ -1679,6 +1679,8 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
end end
inherited GridPopupMenu: TPopupMenu [10]
end
object dsVentasTerminadas: TDADataSource object dsVentasTerminadas: TDADataSource
Left = 320 Left = 320
Top = 232 Top = 232

2
Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.pas
View File

@ -136,7 +136,7 @@ begin
DataTable.ParamByName('FECHAINI').AsString := DateToStr(StartOfTheMonth(AuxDate)); DataTable.ParamByName('FECHAINI').AsString := DateToStr(StartOfTheMonth(AuxDate));
DataTable.ParamByName('FECHAFIN').AsString := DateToStr(EndOfTheMonth(AuxDate)); DataTable.ParamByName('FECHAFIN').AsString := DateToStr(EndOfTheMonth(AuxDate));
DataTable.ParamByName('COLECCION').AsString := edtColeccion.Text; DataTable.ParamByName('COLECCION').Value := edtColeccion.Text;
if not DataTable.Active then if not DataTable.Active then
DataTable.Active := True; DataTable.Active := True;

16
Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.dfm
View File

@ -1,5 +1,14 @@
inherited frViewControlGridResumenVentas: TfrViewControlGridResumenVentas inherited frViewControlGridResumenVentas: TfrViewControlGridResumenVentas
Width = 558
Height = 445
OnCreate = CustomViewCreate
ExplicitWidth = 558
ExplicitHeight = 445
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 558
Height = 445
ExplicitWidth = 558
ExplicitHeight = 445
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OnCustomDrawCell = cxGridViewCustomDrawCell OnCustomDrawCell = cxGridViewCustomDrawCell
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -140,6 +149,11 @@ inherited frViewControlGridResumenVentas: TfrViewControlGridResumenVentas
Preview.AutoHeight = False Preview.AutoHeight = False
end end
end end
inherited dsDataSource: TDADataSource
OnStateChange = dsDataSourceStateChange
Left = 16
Top = 40
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
CurrentLink = dxComponentPrinterLink1 CurrentLink = dxComponentPrinterLink1
object dxComponentPrinterLink1: TdxGridReportLink object dxComponentPrinterLink1: TdxGridReportLink
@ -158,7 +172,7 @@ inherited frViewControlGridResumenVentas: TfrViewControlGridResumenVentas
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.Caption = 'Venta mensual' ReportDocument.Caption = 'Venta mensual'
ReportDocument.CreationDate = 39546.826296111110000000 ReportDocument.CreationDate = 39574.761130821760000000
ReportTitle.Text = 'Venta mensual' ReportTitle.Text = 'Venta mensual'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack

7
Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.pas
View File

@ -31,6 +31,7 @@ type
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean); var ADone: Boolean);
procedure dsDataSourceStateChange(Sender: TObject); procedure dsDataSourceStateChange(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
private private
procedure LimpiarGrid; procedure LimpiarGrid;
procedure GenerarGrid; procedure GenerarGrid;
@ -53,6 +54,12 @@ begin
dxComponentPrinterLink1.Preview; dxComponentPrinterLink1.Preview;
end; end;
procedure TfrViewControlGridResumenVentas.CustomViewCreate(Sender: TObject);
begin
inherited;
dsDataSource.OnStateChange := dsDataSourceStateChange;
end;
procedure TfrViewControlGridResumenVentas.cxGridViewCustomDrawCell( procedure TfrViewControlGridResumenVentas.cxGridViewCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin begin

7
Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.dfm
View File

@ -128,6 +128,13 @@ inherited frViewControlGridVentasTerminadas: TfrViewControlGridVentasTerminadas
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewTALLA36: TcxGridDBColumn
Caption = '36'
DataBinding.FieldName = 'TALLA36'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewTALLA38: TcxGridDBColumn object cxGridViewTALLA38: TcxGridDBColumn
Caption = '38/S' Caption = '38/S'
DataBinding.FieldName = 'TALLA38' DataBinding.FieldName = 'TALLA38'

1
Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.pas
View File

@ -57,6 +57,7 @@ type
cxGridViewVTAFINALRESC: TcxGridDBColumn; cxGridViewVTAFINALRESC: TcxGridDBColumn;
cxGridViewVALTERMDEV: TcxGridDBColumn; cxGridViewVALTERMDEV: TcxGridDBColumn;
cxGridViewVALFINALRESC: TcxGridDBColumn; cxGridViewVALFINALRESC: TcxGridDBColumn;
cxGridViewTALLA36: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle( procedure cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

75
Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasClient_Intf.pas
View File

@ -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 = '{E35531EF-55AE-4A00-823F-5B7AD2AC3170}'; RID_VentasTerminadasCrossTab = '{9CBC8F86-903D-4F26-9DD6-57E9A83D5D8E}';
RID_VentasTerminadas = '{D098E936-4B28-485D-8B90-913C71342300}'; RID_VentasTerminadas = '{818AE078-EC37-4E33-B6D3-E515F92B6FCA}';
{ Data table names } { Data table names }
nme_VentasTerminadasCrossTab = 'VentasTerminadasCrossTab'; nme_VentasTerminadasCrossTab = 'VentasTerminadasCrossTab';
@ -40,6 +40,7 @@ const
fld_VentasTerminadasCOLECCION = 'COLECCION'; fld_VentasTerminadasCOLECCION = 'COLECCION';
fld_VentasTerminadasCOLOR = 'COLOR'; fld_VentasTerminadasCOLOR = 'COLOR';
fld_VentasTerminadasTALLA = 'TALLA'; fld_VentasTerminadasTALLA = 'TALLA';
fld_VentasTerminadasTALLA36 = 'TALLA36';
fld_VentasTerminadasTALLA38 = 'TALLA38'; fld_VentasTerminadasTALLA38 = 'TALLA38';
fld_VentasTerminadasTALLA40 = 'TALLA40'; fld_VentasTerminadasTALLA40 = 'TALLA40';
fld_VentasTerminadasTALLA42 = 'TALLA42'; fld_VentasTerminadasTALLA42 = 'TALLA42';
@ -77,27 +78,28 @@ const
idx_VentasTerminadasCOLECCION = 16; idx_VentasTerminadasCOLECCION = 16;
idx_VentasTerminadasCOLOR = 17; idx_VentasTerminadasCOLOR = 17;
idx_VentasTerminadasTALLA = 18; idx_VentasTerminadasTALLA = 18;
idx_VentasTerminadasTALLA38 = 19; idx_VentasTerminadasTALLA36 = 19;
idx_VentasTerminadasTALLA40 = 20; idx_VentasTerminadasTALLA38 = 20;
idx_VentasTerminadasTALLA42 = 21; idx_VentasTerminadasTALLA40 = 21;
idx_VentasTerminadasTALLA44 = 22; idx_VentasTerminadasTALLA42 = 22;
idx_VentasTerminadasTALLA46 = 23; idx_VentasTerminadasTALLA44 = 23;
idx_VentasTerminadasTALLA48 = 24; idx_VentasTerminadasTALLA46 = 24;
idx_VentasTerminadasVTATERMDEV = 25; idx_VentasTerminadasTALLA48 = 25;
idx_VentasTerminadasVTAFINALRESC = 26; idx_VentasTerminadasVTATERMDEV = 26;
idx_VentasTerminadasVENTAS = 27; idx_VentasTerminadasVTAFINALRESC = 27;
idx_VentasTerminadasDEVOLUCIONES = 28; idx_VentasTerminadasVENTAS = 28;
idx_VentasTerminadasTOTAL = 29; idx_VentasTerminadasDEVOLUCIONES = 29;
idx_VentasTerminadasVALTERMDEV = 30; idx_VentasTerminadasTOTAL = 30;
idx_VentasTerminadasVALFINALRESC = 31; idx_VentasTerminadasVALTERMDEV = 31;
idx_VentasTerminadasVALVEN = 32; idx_VentasTerminadasVALFINALRESC = 32;
idx_VentasTerminadasVALDEV = 33; idx_VentasTerminadasVALVEN = 33;
idx_VentasTerminadasVALTOT = 34; idx_VentasTerminadasVALDEV = 34;
idx_VentasTerminadasVALTOT = 35;
type type
{ IVentasTerminadasCrossTab } { IVentasTerminadasCrossTab }
IVentasTerminadasCrossTab = interface(IDAStronglyTypedDataTable) IVentasTerminadasCrossTab = interface(IDAStronglyTypedDataTable)
['{7F43FB66-B68A-4E2E-BF67-E314FDE24117}'] ['{B88F7802-3048-4EF5-B762-2FDAD9FF9E97}']
{ Property getters and setters } { Property getters and setters }
@ -120,7 +122,7 @@ type
{ IVentasTerminadas } { IVentasTerminadas }
IVentasTerminadas = interface(IDAStronglyTypedDataTable) IVentasTerminadas = interface(IDAStronglyTypedDataTable)
['{6861A381-9EBD-4816-8EAC-5B2EDB0ED191}'] ['{13493D25-7D50-4AF5-8C37-168CAC3E56D0}']
{ Property getters and setters } { Property getters and setters }
function GetNUMINFValue: String; function GetNUMINFValue: String;
procedure SetNUMINFValue(const aValue: String); procedure SetNUMINFValue(const aValue: String);
@ -198,6 +200,10 @@ type
procedure SetTALLAValue(const aValue: String); procedure SetTALLAValue(const aValue: String);
function GetTALLAIsNull: Boolean; function GetTALLAIsNull: Boolean;
procedure SetTALLAIsNull(const aValue: Boolean); procedure SetTALLAIsNull(const aValue: Boolean);
function GetTALLA36Value: TBcd;
procedure SetTALLA36Value(const aValue: TBcd);
function GetTALLA36IsNull: Boolean;
procedure SetTALLA36IsNull(const aValue: Boolean);
function GetTALLA38Value: TBcd; function GetTALLA38Value: TBcd;
procedure SetTALLA38Value(const aValue: TBcd); procedure SetTALLA38Value(const aValue: TBcd);
function GetTALLA38IsNull: Boolean; function GetTALLA38IsNull: Boolean;
@ -303,6 +309,8 @@ type
property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull;
property TALLA: String read GetTALLAValue write SetTALLAValue; property TALLA: String read GetTALLAValue write SetTALLAValue;
property TALLAIsNull: Boolean read GetTALLAIsNull write SetTALLAIsNull; property TALLAIsNull: Boolean read GetTALLAIsNull write SetTALLAIsNull;
property TALLA36: TBcd read GetTALLA36Value write SetTALLA36Value;
property TALLA36IsNull: Boolean read GetTALLA36IsNull write SetTALLA36IsNull;
property TALLA38: TBcd read GetTALLA38Value write SetTALLA38Value; property TALLA38: TBcd read GetTALLA38Value write SetTALLA38Value;
property TALLA38IsNull: Boolean read GetTALLA38IsNull write SetTALLA38IsNull; property TALLA38IsNull: Boolean read GetTALLA38IsNull write SetTALLA38IsNull;
property TALLA40: TBcd read GetTALLA40Value write SetTALLA40Value; property TALLA40: TBcd read GetTALLA40Value write SetTALLA40Value;
@ -418,6 +426,10 @@ type
procedure SetTALLAValue(const aValue: String); virtual; procedure SetTALLAValue(const aValue: String); virtual;
function GetTALLAIsNull: Boolean; virtual; function GetTALLAIsNull: Boolean; virtual;
procedure SetTALLAIsNull(const aValue: Boolean); virtual; procedure SetTALLAIsNull(const aValue: Boolean); virtual;
function GetTALLA36Value: TBcd; virtual;
procedure SetTALLA36Value(const aValue: TBcd); virtual;
function GetTALLA36IsNull: Boolean; virtual;
procedure SetTALLA36IsNull(const aValue: Boolean); virtual;
function GetTALLA38Value: TBcd; virtual; function GetTALLA38Value: TBcd; virtual;
procedure SetTALLA38Value(const aValue: TBcd); virtual; procedure SetTALLA38Value(const aValue: TBcd); virtual;
function GetTALLA38IsNull: Boolean; virtual; function GetTALLA38IsNull: Boolean; virtual;
@ -522,6 +534,8 @@ type
property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull;
property TALLA: String read GetTALLAValue write SetTALLAValue; property TALLA: String read GetTALLAValue write SetTALLAValue;
property TALLAIsNull: Boolean read GetTALLAIsNull write SetTALLAIsNull; property TALLAIsNull: Boolean read GetTALLAIsNull write SetTALLAIsNull;
property TALLA36: TBcd read GetTALLA36Value write SetTALLA36Value;
property TALLA36IsNull: Boolean read GetTALLA36IsNull write SetTALLA36IsNull;
property TALLA38: TBcd read GetTALLA38Value write SetTALLA38Value; property TALLA38: TBcd read GetTALLA38Value write SetTALLA38Value;
property TALLA38IsNull: Boolean read GetTALLA38IsNull write SetTALLA38IsNull; property TALLA38IsNull: Boolean read GetTALLA38IsNull write SetTALLA38IsNull;
property TALLA40: TBcd read GetTALLA40Value write SetTALLA40Value; property TALLA40: TBcd read GetTALLA40Value write SetTALLA40Value;
@ -987,6 +1001,27 @@ begin
DataTable.Fields[idx_VentasTerminadasTALLA].AsVariant := Null; DataTable.Fields[idx_VentasTerminadasTALLA].AsVariant := Null;
end; end;
function TVentasTerminadasDataTableRules.GetTALLA36Value: TBcd;
begin
result := DataTable.Fields[idx_VentasTerminadasTALLA36].AsDecimal;
end;
procedure TVentasTerminadasDataTableRules.SetTALLA36Value(const aValue: TBcd);
begin
DataTable.Fields[idx_VentasTerminadasTALLA36].AsDecimal := aValue;
end;
function TVentasTerminadasDataTableRules.GetTALLA36IsNull: boolean;
begin
result := DataTable.Fields[idx_VentasTerminadasTALLA36].IsNull;
end;
procedure TVentasTerminadasDataTableRules.SetTALLA36IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VentasTerminadasTALLA36].AsVariant := Null;
end;
function TVentasTerminadasDataTableRules.GetTALLA38Value: TBcd; function TVentasTerminadasDataTableRules.GetTALLA38Value: TBcd;
begin begin
result := DataTable.Fields[idx_VentasTerminadasTALLA38].AsDecimal; result := DataTable.Fields[idx_VentasTerminadasTALLA38].AsDecimal;

51
Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasServer_Intf.pas
View File

@ -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 = '{D13D1DE1-ED2A-4146-8D79-6B99529AC6CB}'; RID_VentasTerminadasCrossTabDelta = '{600EDA9B-7BBF-489E-A2F4-9BD9A69ED3FE}';
RID_VentasTerminadasDelta = '{D00EC469-4C92-48AF-BDC3-D946B20C1A47}'; RID_VentasTerminadasDelta = '{EE9C0087-D490-4928-9408-6E4C8234E380}';
type type
{ IVentasTerminadasCrossTabDelta } { IVentasTerminadasCrossTabDelta }
IVentasTerminadasCrossTabDelta = interface(IVentasTerminadasCrossTab) IVentasTerminadasCrossTabDelta = interface(IVentasTerminadasCrossTab)
['{D13D1DE1-ED2A-4146-8D79-6B99529AC6CB}'] ['{600EDA9B-7BBF-489E-A2F4-9BD9A69ED3FE}']
{ Property getters and setters } { Property getters and setters }
{ Properties } { Properties }
@ -37,7 +37,7 @@ type
{ IVentasTerminadasDelta } { IVentasTerminadasDelta }
IVentasTerminadasDelta = interface(IVentasTerminadas) IVentasTerminadasDelta = interface(IVentasTerminadas)
['{D00EC469-4C92-48AF-BDC3-D946B20C1A47}'] ['{EE9C0087-D490-4928-9408-6E4C8234E380}']
{ Property getters and setters } { Property getters and setters }
function GetOldNUMINFValue : String; function GetOldNUMINFValue : String;
function GetOldCLAVE1Value : TBcd; function GetOldCLAVE1Value : TBcd;
@ -58,6 +58,7 @@ type
function GetOldCOLECCIONValue : String; function GetOldCOLECCIONValue : String;
function GetOldCOLORValue : String; function GetOldCOLORValue : String;
function GetOldTALLAValue : String; function GetOldTALLAValue : String;
function GetOldTALLA36Value : TBcd;
function GetOldTALLA38Value : TBcd; function GetOldTALLA38Value : TBcd;
function GetOldTALLA40Value : TBcd; function GetOldTALLA40Value : TBcd;
function GetOldTALLA42Value : TBcd; function GetOldTALLA42Value : TBcd;
@ -95,6 +96,7 @@ type
property OldCOLECCION : String read GetOldCOLECCIONValue; property OldCOLECCION : String read GetOldCOLECCIONValue;
property OldCOLOR : String read GetOldCOLORValue; property OldCOLOR : String read GetOldCOLORValue;
property OldTALLA : String read GetOldTALLAValue; property OldTALLA : String read GetOldTALLAValue;
property OldTALLA36 : TBcd read GetOldTALLA36Value;
property OldTALLA38 : TBcd read GetOldTALLA38Value; property OldTALLA38 : TBcd read GetOldTALLA38Value;
property OldTALLA40 : TBcd read GetOldTALLA40Value; property OldTALLA40 : TBcd read GetOldTALLA40Value;
property OldTALLA42 : TBcd read GetOldTALLA42Value; property OldTALLA42 : TBcd read GetOldTALLA42Value;
@ -232,6 +234,12 @@ type
function GetOldTALLAIsNull: Boolean; virtual; function GetOldTALLAIsNull: Boolean; virtual;
procedure SetTALLAValue(const aValue: String); virtual; procedure SetTALLAValue(const aValue: String); virtual;
procedure SetTALLAIsNull(const aValue: Boolean); virtual; procedure SetTALLAIsNull(const aValue: Boolean); virtual;
function GetTALLA36Value: TBcd; virtual;
function GetTALLA36IsNull: Boolean; virtual;
function GetOldTALLA36Value: TBcd; virtual;
function GetOldTALLA36IsNull: Boolean; virtual;
procedure SetTALLA36Value(const aValue: TBcd); virtual;
procedure SetTALLA36IsNull(const aValue: Boolean); virtual;
function GetTALLA38Value: TBcd; virtual; function GetTALLA38Value: TBcd; virtual;
function GetTALLA38IsNull: Boolean; virtual; function GetTALLA38IsNull: Boolean; virtual;
function GetOldTALLA38Value: TBcd; virtual; function GetOldTALLA38Value: TBcd; virtual;
@ -406,6 +414,10 @@ type
property TALLAIsNull : Boolean read GetTALLAIsNull write SetTALLAIsNull; property TALLAIsNull : Boolean read GetTALLAIsNull write SetTALLAIsNull;
property OldTALLA : String read GetOldTALLAValue; property OldTALLA : String read GetOldTALLAValue;
property OldTALLAIsNull : Boolean read GetOldTALLAIsNull; property OldTALLAIsNull : Boolean read GetOldTALLAIsNull;
property TALLA36 : TBcd read GetTALLA36Value write SetTALLA36Value;
property TALLA36IsNull : Boolean read GetTALLA36IsNull write SetTALLA36IsNull;
property OldTALLA36 : TBcd read GetOldTALLA36Value;
property OldTALLA36IsNull : Boolean read GetOldTALLA36IsNull;
property TALLA38 : TBcd read GetTALLA38Value write SetTALLA38Value; property TALLA38 : TBcd read GetTALLA38Value write SetTALLA38Value;
property TALLA38IsNull : Boolean read GetTALLA38IsNull write SetTALLA38IsNull; property TALLA38IsNull : Boolean read GetTALLA38IsNull write SetTALLA38IsNull;
property OldTALLA38 : TBcd read GetOldTALLA38Value; property OldTALLA38 : TBcd read GetOldTALLA38Value;
@ -1094,6 +1106,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA] := Null;
end; end;
function TVentasTerminadasBusinessProcessorRules.GetTALLA36Value: TBcd;
begin
result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA36]);
end;
function TVentasTerminadasBusinessProcessorRules.GetTALLA36IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA36]);
end;
function TVentasTerminadasBusinessProcessorRules.GetOldTALLA36Value: TBcd;
begin
result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA36]);
end;
function TVentasTerminadasBusinessProcessorRules.GetOldTALLA36IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA36]);
end;
procedure TVentasTerminadasBusinessProcessorRules.SetTALLA36Value(const aValue: TBcd);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA36] := BCDToVariant(aValue);
end;
procedure TVentasTerminadasBusinessProcessorRules.SetTALLA36IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA36] := Null;
end;
function TVentasTerminadasBusinessProcessorRules.GetTALLA38Value: TBcd; function TVentasTerminadasBusinessProcessorRules.GetTALLA38Value: TBcd;
begin begin
result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA38]); result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA38]);

2
Source/Modulos/VentasTerminadas/Reglas/uBizVentasTerminadas.pas
View File

@ -139,6 +139,7 @@ procedure TBizResumenVentasDataTableRules.OnBeforeDataRequestCall(DataTable: TDA
begin begin
Request.ParamByName('FechaIni').AsString := DataTable.ParamByName('FechaIni').AsString; Request.ParamByName('FechaIni').AsString := DataTable.ParamByName('FechaIni').AsString;
Request.ParamByName('FechaFin').AsString := DataTable.ParamByName('FechaFin').AsString; Request.ParamByName('FechaFin').AsString := DataTable.ParamByName('FechaFin').AsString;
Request.ParamByName('Coleccion').AsString := DataTable.ParamByName('Coleccion').AsString;
end; end;
procedure TBizResumenVentasDataTableRules.OnBeforeSchemaCall( procedure TBizResumenVentasDataTableRules.OnBeforeSchemaCall(
@ -146,6 +147,7 @@ procedure TBizResumenVentasDataTableRules.OnBeforeSchemaCall(
begin begin
Request.ParamByName('FechaIni').AsString := DataTable.ParamByName('FechaIni').AsString; Request.ParamByName('FechaIni').AsString := DataTable.ParamByName('FechaIni').AsString;
Request.ParamByName('FechaFin').AsString := DataTable.ParamByName('FechaFin').AsString; Request.ParamByName('FechaFin').AsString := DataTable.ParamByName('FechaFin').AsString;
Request.ParamByName('Coleccion').AsString := DataTable.ParamByName('Coleccion').AsString;
end; end;
initialization initialization

43
Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.dfm
View File

@ -20,18 +20,21 @@ object srvVentasTerminadas: TsrvVentasTerminadas
item item
Name = 'fechaini' Name = 'fechaini'
DataType = datString DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'fechafin' Name = 'fechafin'
DataType = datString DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'coleccion' Name = 'coleccion'
DataType = datString DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -42,13 +45,17 @@ object srvVentasTerminadas: TsrvVentasTerminadas
'begin'#10' declare @fechaini varchar(10)'#10' declare @fechafin ' + 'begin'#10' declare @fechaini varchar(10)'#10' declare @fechafin ' +
'varchar(10)'#10' declare @coleccion varchar(10)'#10' declare @sq' + 'varchar(10)'#10' declare @coleccion varchar(10)'#10' declare @sq' +
'l varchar(8000)'#10#10' set @fechaini = :fechaini'#10' set @fechaf' + 'l varchar(8000)'#10#10' set @fechaini = :fechaini'#10' set @fechaf' +
'in = :fechafin'#10' set @coleccion = :coleccion'#10#10' select @sq' + 'in = :fechafin'#10' set @coleccion = :coleccion'#10#10' if @colecc' +
'l = '#39'SELECT DIA, SUM(VALTOT) AS TOTAL FROM RDX_V_VENTASTERMINADA' + 'ion = '#39'%'#39#10' select @sql = '#39'SELECT DIA, SUM(VALTOT) AS TOTAL' +
'S WHERE FECHA BETWEEN CONVERT(DATETIME, '#39#39#39' + @FECHAINI + '#39#39#39', 1' + ' FROM RDX_V_VENTASTERMINADAS WHERE FECHA BETWEEN CONVERT(DATETIM' +
'03) AND CONVERT(DATETIME, '#39#39#39' + @FECHAFIN + '#39#39#39', 103) AND COLECC' + 'E, '#39#39#39' + @FECHAINI + '#39#39#39', 103) AND CONVERT(DATETIME, '#39#39#39' + @FECH' +
'ION LIKE '#39#39#39' + @COLECCION + '#39#39#39' GROUP BY DIA'#39#10#10' EXECUTE cros' + 'AFIN + '#39#39#39', 103) GROUP BY DIA'#39#10' else'#10' select @sql = '#39'S' +
'stab @sql,'#10' '#39'SUM(VALTOT)'#39','#10' '#39'CENTRO'#39','#10' ' + 'ELECT DIA, SUM(VALTOT) AS TOTAL FROM RDX_V_VENTASTERMINADAS WHER' +
' '#39'RDX_V_VENTASTERMINADAS'#39#10'end'#10 'E FECHA BETWEEN CONVERT(DATETIME, '#39#39#39' + @FECHAINI + '#39#39#39', 103) AN' +
'D CONVERT(DATETIME, '#39#39#39' + @FECHAFIN + '#39#39#39', 103) AND COLECCION LI' +
'KE '#39#39#39' + @COLECCION + '#39#39#39' GROUP BY DIA'#39#10#10' EXECUTE crosstab @' +
'sql,'#10' '#39'SUM(VALTOT)'#39','#10' '#39'CENTRO'#39','#10' ' +
' '#39'RDX_V_VENTASTERMINADAS'#39#10'end'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -59,12 +66,12 @@ object srvVentasTerminadas: TsrvVentasTerminadas
Params = < Params = <
item item
Name = 'FECHAINI' Name = 'FECHAINI'
Value = '' Value = '02/02/2008'
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'FECHAFIN' Name = 'FECHAFIN'
Value = '' Value = '03/03/2008'
ParamType = daptInput ParamType = daptInput
end> end>
Statements = < Statements = <
@ -75,10 +82,10 @@ object srvVentasTerminadas: TsrvVentasTerminadas
'SELECT '#10' NUMINF, CLAVE1, CLAVE2, CLAVE3, FECHA, DIA, DIASEMAN' + 'SELECT '#10' NUMINF, CLAVE1, CLAVE2, CLAVE3, FECHA, DIA, DIASEMAN' +
'A, '#10' MES, ANO, CENTRO, VENDEDOR, NUMTALON, CODIGO, PRODUCTO,'#10 + 'A, '#10' MES, ANO, CENTRO, VENDEDOR, NUMTALON, CODIGO, PRODUCTO,'#10 +
' GRUPOPRODUCTO, TIPOPRODUCTO, COLECCION, COLOR,'#10' TALLA, TA' + ' GRUPOPRODUCTO, TIPOPRODUCTO, COLECCION, COLOR,'#10' TALLA, TA' +
'LLA38, TALLA40, TALLA42, TALLA44, TALLA46, '#10' TALLA48, VTATERM' + 'LLA36, TALLA38, TALLA40, TALLA42, TALLA44, TALLA46,'#10' TALLA48,' +
'DEV, VTAFINALRESC, VENTAS, DEVOLUCIONES, TOTAL,'#10' VALTERMDEV, ' + ' VTATERMDEV, VTAFINALRESC, VENTAS, DEVOLUCIONES, TOTAL,'#10' VALT' +
'VALFINALRESC, VALVEN, VALDEV, VALTOT'#10' FROM'#10' RDX_V_VENTASTERM' + 'ERMDEV, VALFINALRESC, VALVEN, VALDEV, VALTOT'#10' FROM'#10' RDX_V_VE' +
'INADAS'#10' WHERE FECHA BETWEEN :FECHAINI AND :FECHAFIN' 'NTASTERMINADAS'#10' WHERE FECHA BETWEEN :FECHAINI AND :FECHAFIN'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -220,6 +227,10 @@ object srvVentasTerminadas: TsrvVentasTerminadas
item item
DatasetField = 'VALTOT' DatasetField = 'VALTOT'
TableField = 'VALTOT' TableField = 'VALTOT'
end
item
DatasetField = 'TALLA36'
TableField = 'TALLA36'
end> end>
end> end>
Name = 'VentasTerminadas' Name = 'VentasTerminadas'
@ -332,6 +343,12 @@ object srvVentasTerminadas: TsrvVentasTerminadas
DisplayLabel = 'Talla' DisplayLabel = 'Talla'
Alignment = taRightJustify Alignment = taRightJustify
end end
item
Name = 'TALLA36'
DataType = datDecimal
DisplayLabel = '36'
Alignment = taRightJustify
end
item item
Name = 'TALLA38' Name = 'TALLA38'
DataType = datDecimal DataType = datDecimal

2
Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.pas
View File

@ -39,7 +39,7 @@ uses
{Generated:} VARELA_Invk, uSchemaUtilsServer, dialogs; {Generated:} VARELA_Invk, uSchemaUtilsServer, dialogs;
const const
CAMPOS_SUMA = '#TALLA38#TALLA40#TALLA42#TALLA44#TALLA46#TALLA48#VENTAS#DEVOLUCIONES#TOTAL#VALVEN#VALDEV#VALTOT#VTATERMDEV#VTAFINALRESC#VALTERMDEV#VALFINALRESC#'; CAMPOS_SUMA = '#TALLA36#TALLA38#TALLA40#TALLA42#TALLA44#TALLA46#TALLA48#VENTAS#DEVOLUCIONES#TOTAL#VALVEN#VALDEV#VALTOT#VTATERMDEV#VTAFINALRESC#VALTERMDEV#VALFINALRESC#';
procedure Create_srvVentasTerminadas(out anInstance : IUnknown); procedure Create_srvVentasTerminadas(out anInstance : IUnknown);
begin begin

6
Source/Servidor/AdminPV_Server.dpr
View File

@ -55,8 +55,6 @@ uses
schReferenciaGenericaServer_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas', schReferenciaGenericaServer_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas',
schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas', schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas',
schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas', schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas',
schStockClient_Intf in '..\Modulos\Stock\Reglas\schStockClient_Intf.pas',
schStockServer_Intf in '..\Modulos\Stock\Reglas\schStockServer_Intf.pas',
Login_Impl in 'Login_Impl.pas', Login_Impl in 'Login_Impl.pas',
VARELA_Invk in '..\Servicios\VARELA_Invk.pas', VARELA_Invk in '..\Servicios\VARELA_Invk.pas',
VARELA_Intf in '..\Servicios\VARELA_Intf.pas', VARELA_Intf in '..\Servicios\VARELA_Intf.pas',
@ -65,7 +63,9 @@ uses
uDataTableUtils in '..\Base\Utiles\uDataTableUtils.pas', uDataTableUtils in '..\Base\Utiles\uDataTableUtils.pas',
uDBSelectionList in '..\Base\Utiles\uDBSelectionList.pas', uDBSelectionList in '..\Base\Utiles\uDBSelectionList.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas', schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas'; schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.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}

28
Source/Servidor/AdminPV_Server.dproj
View File

@ -52,6 +52,34 @@
<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>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>

2927
Source/Servidor/AdminPV_Server.drc
View File

File diff suppressed because it is too large Load Diff

10
Source/Servidor/AdminPV_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,1,1,0 FILEVERSION 2,1,2,0
PRODUCTVERSION 2,1,1,0 PRODUCTVERSION 2,1,2,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.1.0\0" VALUE "FileVersion", "2.1.2.0\0"
VALUE "ProductName", "AdminPV_Server\0" VALUE "ProductName", "AdminPV_Server\0"
VALUE "ProductVersion", "2.1.1.0\0" VALUE "ProductVersion", "2.1.2.0\0"
VALUE "CompileDate", "lunes, 28 de abril de 2008 18:21\0" VALUE "CompileDate", "martes, 06 de mayo de 2008 16:51\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/AdminPV_Server.res
View File

Binary file not shown.