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>
<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>
<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>

6
Source/Base/Base.drc
View File

@ -15,10 +15,10 @@ BEGIN
END
/* 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\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\uEditorItem.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\uViewGrid.dfm */
/* 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
ShowHourglassCursor;
Application.ProcessMessages;
// BeginUpdate;
BeginUpdate;
try
Options := [fcoCaseInsensitive, fcoSoftCompare];
Root.Clear;
@ -297,7 +297,7 @@ begin
else
Active := False;
finally
// EndUpdate;
EndUpdate;
HideHourglassCursor;
Application.ProcessMessages;
end;

8
Source/CargaEDI/CargaEDI.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\CargaEDI.ico"
1 VERSIONINFO
FILEVERSION 2,1,1,0
PRODUCTVERSION 2,1,1,0
FILEVERSION 2,1,2,0
PRODUCTVERSION 2,1,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,8 +12,8 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "2.1.1.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "FileVersion", "2.1.2.0\0"
VALUE "ProductVersion", "2.1.2.0\0"
END
END
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">
<PropertyGroup>
<ProjectGuid>{c1d52109-a098-45a1-97ed-37902144cf8a}</ProjectGuid>
<MainSource>AdminPV.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Cliente\AdminPV.exe</DCC_DependencyCheckOutputName>
<DCC_EnabledPackages>true</DCC_EnabledPackages>
<DCC_UsePackage>Base;ControlesBase;Parametros;ApplicationBase;FicherosEDI</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE</DCC_Define>
<DCC_ExeOutput>..\..\Output\Release\Cliente</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\Lib</DCC_IncludePath>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_ExeOutput>..\..\Output\Debug\Cliente</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\Lib</DCC_IncludePath>
<DCC_MapFile>3</DCC_MapFile>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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>
<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><Source><Source Name="MainSource">AdminPV.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="AdminPV.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uBootStrap.pas" />
<DCCReference Include="uMainMenuController.pas" />
<DCCReference Include="uNavPaneController.pas" />
<DCCReference Include="uPantallaPrincipal.pas">
<Form>fPantallaPrincipal</Form>
</DCCReference>
<DCCReference Include="uSplash.pas">
<Form>AppSplashForm</Form>
</DCCReference>
<DCCReference Include="Utiles\uClienteUtils.pas" />
<DCCReference Include="Utiles\uMenuUtils.pas" />
<DCCReference Include="Utiles\uNavPaneUtils.pas" />
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{c1d52109-a098-45a1-97ed-37902144cf8a}</ProjectGuid>
<MainSource>AdminPV.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Cliente\AdminPV.exe</DCC_DependencyCheckOutputName>
<DCC_EnabledPackages>true</DCC_EnabledPackages>
<DCC_UsePackage>Base;ControlesBase;Parametros;ApplicationBase;FicherosEDI</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE</DCC_Define>
<DCC_ExeOutput>..\..\Output\Release\Cliente</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\Lib</DCC_IncludePath>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_ExeOutput>..\..\Output\Debug\Cliente</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\Lib</DCC_IncludePath>
<DCC_MapFile>3</DCC_MapFile>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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>
<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><Source><Source Name="MainSource">AdminPV.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="AdminPV.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uBootStrap.pas"/>
<DCCReference Include="uMainMenuController.pas"/>
<DCCReference Include="uNavPaneController.pas"/>
<DCCReference Include="uPantallaPrincipal.pas">
<Form>fPantallaPrincipal</Form>
</DCCReference>
<DCCReference Include="uSplash.pas">
<Form>AppSplashForm</Form>
</DCCReference>
<DCCReference Include="Utiles\uClienteUtils.pas"/>
<DCCReference Include="Utiles\uMenuUtils.pas"/>
<DCCReference Include="Utiles\uNavPaneUtils.pas"/>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

10
Source/Cliente/AdminPV.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Cliente.ico"
1 VERSIONINFO
FILEVERSION 2,1,1,0
PRODUCTVERSION 2,1,1,0
FILEVERSION 2,1,2,0
PRODUCTVERSION 2,1,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,11 +13,11 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductName", "Administración de puntos de venta\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "lunes, 28 de abril de 2008 18:21\0"
VALUE "ProductVersion", "2.1.2.0\0"
VALUE "CompileDate", "martes, 06 de mayo de 2008 16:51\0"
END
END
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
Width = 228
Height = 396
ExplicitWidth = 228
ExplicitHeight = 396
object TBXLabel1: TTBXLabel
Left = 0
Top = 0
Width = 228
Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop
Caption = 'Agrupaciones'
Font.Charset = DEFAULT_CHARSET
@ -13,8 +17,6 @@ inherited frViewAgrupaciones: TfrViewAgrupaciones
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Margins.Top = 5
Margins.Bottom = 10
ParentColor = True
ParentFont = False
Underline = True
@ -33,7 +35,7 @@ inherited frViewAgrupaciones: TfrViewAgrupaciones
object Label3: TLabel
Left = 7
Top = 60
Width = 74
Width = 79
Height = 13
Caption = 'y por '#250'ltimo por:'
Transparent = True
@ -41,7 +43,7 @@ inherited frViewAgrupaciones: TfrViewAgrupaciones
object Label2: TLabel
Left = 7
Top = 32
Width = 61
Width = 63
Height = 13
Caption = 'despu'#233's por:'
Transparent = True
@ -49,7 +51,7 @@ inherited frViewAgrupaciones: TfrViewAgrupaciones
object Label1: TLabel
Left = 7
Top = 4
Width = 95
Width = 101
Height = 13
Caption = 'Agrupar primero por:'
Transparent = True

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

@ -251,12 +251,18 @@ begin
PopupMenu2.Items.Add(DarItem(SIN_AGRUPACION));
PopupMenu3.Items.Add(DarItem(SIN_AGRUPACION));
for i := 0 to ViewControlGrid.ColumnCount - 1 do
begin
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));
FColumns.BeginUpdate;
try
FColumns.Clear;
for i := 0 to ViewControlGrid.ColumnCount - 1 do
begin
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;

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\uViewControlesBase.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\uViewParametrosControlGrid.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\uViewPeriodoFechas.dfm */
/* 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
/* 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\uEditorHistorialCargasEDI.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.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
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\uViewParametrosColeccion.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.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
Size = 10
end
item
Name = 'E36'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'E38'
DataType = datFloat
@ -88,6 +93,11 @@ object dmStock: TdmStock
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'S36'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'S38'
DataType = datFloat
@ -123,6 +133,11 @@ object dmStock: TdmStock
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'K36'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'K38'
DataType = datFloat
@ -207,6 +222,11 @@ object dmStock: TdmStock
DataType = datString
Size = 40
end
item
Name = 'K36'
DataType = datInteger
Alignment = taRightJustify
end
item
Name = 'K38'
DataType = datInteger
@ -292,6 +312,12 @@ object dmStock: TdmStock
Size = 10
DisplayLabel = 'Color'
end
item
Name = 'T36'
DataType = datFloat
DisplayLabel = '36'
Alignment = taRightJustify
end
item
Name = 'T38'
DataType = datFloat
@ -394,6 +420,10 @@ object dmStock: TdmStock
DataType = datString
Size = 6
end
item
Name = 'I36'
DataType = datFloat
end
item
Name = 'I38'
DataType = datFloat
@ -422,6 +452,10 @@ object dmStock: TdmStock
Name = 'TI'
DataType = datFloat
end
item
Name = 'K36'
DataType = datFloat
end
item
Name = 'K38'
DataType = datFloat
@ -450,6 +484,10 @@ object dmStock: TdmStock
Name = 'TK'
DataType = datFloat
end
item
Name = 'D36'
DataType = datFloat
end
item
Name = 'D38'
DataType = datFloat

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

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

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

@ -5,7 +5,7 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA
ClientHeight = 573
ClientWidth = 720
ExplicitWidth = 728
ExplicitHeight = 607
ExplicitHeight = 600
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -180,96 +180,6 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA
ExplicitWidth = 720
ExplicitHeight = 418
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
inherited TBXDockablePanel1: TTBXDockablePanel
@ -1702,7 +1612,7 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
end
inherited GridPopupMenu: TPopupMenu
inherited GridPopupMenu: TPopupMenu [10]
Left = 64
Top = 152
inherited Duplicar1: TMenuItem

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -60,6 +60,12 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
Kind = skSum
Position = spFooter
Column = cxGridViewKT
end
item
Format = '#,##0'
Kind = skSum
Position = spFooter
Column = cxGridViewK36
end>
DataController.Summary.FooterSummaryItems = <
item
@ -101,6 +107,11 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
Format = '#,##0'
Kind = skSum
Column = cxGridViewKT
end
item
Format = '#,##0'
Kind = skSum
Column = cxGridViewK36
end>
OptionsView.GridLineColor = clDefault
OptionsView.GridLines = glHorizontal
@ -144,6 +155,15 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
Visible = False
GroupIndex = 0
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
Caption = 'K38/S'
DataBinding.FieldName = 'K38'
@ -312,7 +332,7 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
PrinterPage.PageSize.Y = 297000
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39478.735610347220000000
ReportDocument.CreationDate = 39574.504253645840000000
ReportDocument.IsCaptionAssigned = True
ReportTitle.AdjustOnReportScale = True
ReportTitle.Text = 'Venta mensual'

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

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

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

@ -46,12 +46,6 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<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>
<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>
@ -65,16 +59,16 @@
<DelphiCompile Include="VentasTerminadas.dpk">
<MainSource>MainSource</MainSource>
</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\schVentasTerminadasServer_Intf.pas" />
<DCCReference Include="..\Reglas\uBizControlVentasTerminadas.pas" />
<DCCReference Include="..\Reglas\uBizVentasTerminadas.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.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="..\Reglas\vcl.dcp" />
<DCCReference Include="uDataModuleVentasTerminadas.pas">
<Form>dmVentasTerminadas</Form>
<DesignClass>TDAClientDataModule</DesignClass>

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

@ -44,19 +44,22 @@ object dmVentasTerminadas: TdmVentasTerminadas
item
Name = 'fechaini'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end
item
Name = 'fechafin'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end
item
Name = 'coleccion'
DataType = datString
Value = '%'
Size = 10
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest
@ -89,18 +92,19 @@ object dmVentasTerminadas: TdmVentasTerminadas
Name = 'FechaIni'
DataType = rtString
Flag = fIn
Value = '01/01/2007'
Value = Null
end
item
Name = 'FechaFin'
DataType = rtString
Flag = fIn
Value = '31/01/2007'
Value = Null
end
item
Name = 'Coleccion'
DataType = rtString
Flag = fIn
Value = Null
end>
GetSchemaCall.Default = False
GetSchemaCall.IncomingSchemaParameter = 'Result'
@ -118,18 +122,19 @@ object dmVentasTerminadas: TdmVentasTerminadas
Name = 'FechaIni'
DataType = rtString
Flag = fIn
Value = '01/01/2007'
Value = Null
end
item
Name = 'FechaFin'
DataType = rtString
Flag = fIn
Value = '31/01/2007'
Value = Null
end
item
Name = 'Coleccion'
DataType = rtString
Flag = fIn
Value = Null
end>
GetDataCall.Default = False
GetDataCall.OutgoingTableNamesParameter = 'DatasetName'
@ -171,7 +176,7 @@ object dmVentasTerminadas: TdmVentasTerminadas
GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
GetScriptsCall.IncomingScriptParameter = 'Result'
RemoteService = RORemoteService
DataStreamer = dmBase.DABINAdapter
DataStreamer = DABinDataStreamer1
Left = 216
Top = 168
end
@ -455,6 +460,12 @@ object dmVentasTerminadas: TdmVentasTerminadas
DisplayLabel = 'Talla'
Alignment = taRightJustify
end
item
Name = 'TALLA36'
DataType = datDecimal
DisplayLabel = '36'
Alignment = taRightJustify
end
item
Name = 'TALLA38'
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
ClientWidth = 679
ExplicitWidth = 687
ExplicitHeight = 607
ExplicitHeight = 600
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -265,12 +265,12 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
ReadOnly = False
ExplicitTop = 76
ExplicitWidth = 679
ExplicitHeight = 284
ExplicitHeight = 478
inherited cxGrid: TcxGrid
Width = 679
Height = 478
ExplicitWidth = 679
ExplicitHeight = 284
ExplicitHeight = 478
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink1: TdxGridReportLink
@ -1679,6 +1679,8 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
end
inherited GridPopupMenu: TPopupMenu [10]
end
object dsVentasTerminadas: TDADataSource
Left = 320
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('FECHAFIN').AsString := DateToStr(EndOfTheMonth(AuxDate));
DataTable.ParamByName('COLECCION').AsString := edtColeccion.Text;
DataTable.ParamByName('COLECCION').Value := edtColeccion.Text;
if not DataTable.Active then
DataTable.Active := True;

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

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

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

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

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

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

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

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

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

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

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

@ -9,13 +9,13 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_VentasTerminadasCrossTabDelta = '{D13D1DE1-ED2A-4146-8D79-6B99529AC6CB}';
RID_VentasTerminadasDelta = '{D00EC469-4C92-48AF-BDC3-D946B20C1A47}';
RID_VentasTerminadasCrossTabDelta = '{600EDA9B-7BBF-489E-A2F4-9BD9A69ED3FE}';
RID_VentasTerminadasDelta = '{EE9C0087-D490-4928-9408-6E4C8234E380}';
type
{ IVentasTerminadasCrossTabDelta }
IVentasTerminadasCrossTabDelta = interface(IVentasTerminadasCrossTab)
['{D13D1DE1-ED2A-4146-8D79-6B99529AC6CB}']
['{600EDA9B-7BBF-489E-A2F4-9BD9A69ED3FE}']
{ Property getters and setters }
{ Properties }
@ -37,7 +37,7 @@ type
{ IVentasTerminadasDelta }
IVentasTerminadasDelta = interface(IVentasTerminadas)
['{D00EC469-4C92-48AF-BDC3-D946B20C1A47}']
['{EE9C0087-D490-4928-9408-6E4C8234E380}']
{ Property getters and setters }
function GetOldNUMINFValue : String;
function GetOldCLAVE1Value : TBcd;
@ -58,6 +58,7 @@ type
function GetOldCOLECCIONValue : String;
function GetOldCOLORValue : String;
function GetOldTALLAValue : String;
function GetOldTALLA36Value : TBcd;
function GetOldTALLA38Value : TBcd;
function GetOldTALLA40Value : TBcd;
function GetOldTALLA42Value : TBcd;
@ -95,6 +96,7 @@ type
property OldCOLECCION : String read GetOldCOLECCIONValue;
property OldCOLOR : String read GetOldCOLORValue;
property OldTALLA : String read GetOldTALLAValue;
property OldTALLA36 : TBcd read GetOldTALLA36Value;
property OldTALLA38 : TBcd read GetOldTALLA38Value;
property OldTALLA40 : TBcd read GetOldTALLA40Value;
property OldTALLA42 : TBcd read GetOldTALLA42Value;
@ -232,6 +234,12 @@ type
function GetOldTALLAIsNull: Boolean; virtual;
procedure SetTALLAValue(const aValue: String); 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 GetTALLA38IsNull: Boolean; virtual;
function GetOldTALLA38Value: TBcd; virtual;
@ -406,6 +414,10 @@ type
property TALLAIsNull : Boolean read GetTALLAIsNull write SetTALLAIsNull;
property OldTALLA : String read GetOldTALLAValue;
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 TALLA38IsNull : Boolean read GetTALLA38IsNull write SetTALLA38IsNull;
property OldTALLA38 : TBcd read GetOldTALLA38Value;
@ -1094,6 +1106,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA] := Null;
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;
begin
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
Request.ParamByName('FechaIni').AsString := DataTable.ParamByName('FechaIni').AsString;
Request.ParamByName('FechaFin').AsString := DataTable.ParamByName('FechaFin').AsString;
Request.ParamByName('Coleccion').AsString := DataTable.ParamByName('Coleccion').AsString;
end;
procedure TBizResumenVentasDataTableRules.OnBeforeSchemaCall(
@ -146,6 +147,7 @@ procedure TBizResumenVentasDataTableRules.OnBeforeSchemaCall(
begin
Request.ParamByName('FechaIni').AsString := DataTable.ParamByName('FechaIni').AsString;
Request.ParamByName('FechaFin').AsString := DataTable.ParamByName('FechaFin').AsString;
Request.ParamByName('Coleccion').AsString := DataTable.ParamByName('Coleccion').AsString;
end;
initialization

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

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

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

@ -39,7 +39,7 @@ uses
{Generated:} VARELA_Invk, uSchemaUtilsServer, dialogs;
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);
begin

6
Source/Servidor/AdminPV_Server.dpr
View File

@ -55,8 +55,6 @@ uses
schReferenciaGenericaServer_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas',
schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas',
schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas',
schStockClient_Intf in '..\Modulos\Stock\Reglas\schStockClient_Intf.pas',
schStockServer_Intf in '..\Modulos\Stock\Reglas\schStockServer_Intf.pas',
Login_Impl in 'Login_Impl.pas',
VARELA_Invk in '..\Servicios\VARELA_Invk.pas',
VARELA_Intf in '..\Servicios\VARELA_Intf.pas',
@ -65,7 +63,9 @@ uses
uDataTableUtils in '..\Base\Utiles\uDataTableUtils.pas',
uDBSelectionList in '..\Base\Utiles\uDBSelectionList.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 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="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap 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"
1 VERSIONINFO
FILEVERSION 2,1,1,0
PRODUCTVERSION 2,1,1,0
FILEVERSION 2,1,2,0
PRODUCTVERSION 2,1,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "2.1.1.0\0"
VALUE "CompileDate", "lunes, 28 de abril de 2008 18:21\0"
VALUE "ProductVersion", "2.1.2.0\0"
VALUE "CompileDate", "martes, 06 de mayo de 2008 16:51\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/AdminPV_Server.res
View File

Binary file not shown.