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

git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@66 1c943782-d109-9647-9548-93b3ac332352

Browse Source
This commit is contained in:
David Arranz 2007-09-24 18:08:48 +00:00
parent b83dbf1281
commit 42aefd478e
12 changed files with 205 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.dfm
View File

@ -82,6 +82,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
Caption = 'Todos' Caption = 'Todos'
end> end>
OnTabSelected = JvTabBar1TabSelected OnTabSelected = JvTabBar1TabSelected
ExplicitTop = 70
end end
inline frViewListaRecepciones1: TfrViewListaRecepciones [4] inline frViewListaRecepciones1: TfrViewListaRecepciones [4]
Left = 0 Left = 0
@ -135,10 +136,17 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
inherited frViewParametrosCentro1: TfrViewParametrosCentro inherited frViewParametrosCentro1: TfrViewParametrosCentro
Height = 41 Height = 41
ExplicitHeight = 41 ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl
inherited ccbCentro: TJvCheckedComboBox
Width = 392
ExplicitWidth = 392
end
end
end end
inherited TBXLabel1: TTBXLabel inherited TBXLabel1: TTBXLabel
Width = 816 Width = 816
ExplicitWidth = 816 ExplicitWidth = 816
ExplicitHeight = 19
end end
inherited pnlAgrupaciones: TTBXAlignmentPanel inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 391 Width = 391

3
Source/Modulos/Stock/Cliente/Stock.dpk
View File

@ -65,7 +65,8 @@ requires
JvSystemD10R, JvSystemD10R,
JvPageCompsD10R, JvPageCompsD10R,
JvStdCtrlsD10R, JvStdCtrlsD10R,
Parametros; Parametros,
JvCustomD10R;
contains contains
uPluginControllerStock in 'uPluginControllerStock.pas' {ModuleStock: TModuleController}, uPluginControllerStock in 'uPluginControllerStock.pas' {ModuleStock: TModuleController},

81
Source/Modulos/Stock/Cliente/Stock.dproj
View File

@ -50,46 +50,41 @@
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Reglas\uBizStock.pas" /> <DCCReference Include="..\Reglas\uBizStock.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\BaseD10.dcp" /> <DCCReference Include="BaseD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ControlesBaseD10.dcp" /> <DCCReference Include="ControlesBaseD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" /> <DCCReference Include="cxDataD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" /> <DCCReference Include="cxEditorsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" /> <DCCReference Include="cxExportD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" /> <DCCReference Include="cxExtEditorsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" /> <DCCReference Include="cxGridD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" /> <DCCReference Include="cxLibraryD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" /> <DCCReference Include="cxPageControlD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD10.dcp" /> <DCCReference Include="dclcxLibraryD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" /> <DCCReference Include="designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" /> <DCCReference Include="dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD10.dcp" /> <DCCReference Include="dxComnD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" /> <DCCReference Include="dxPSCoreD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD10.dcp" /> <DCCReference Include="dxPScxCommonD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGridLnkD10.dcp" /> <DCCReference Include="dxPScxGridLnkD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD10.dcp" /> <DCCReference Include="dxPSLnksD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" /> <DCCReference Include="dxThemeD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D10.dcp" /> <DCCReference Include="GUISDK_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" /> <DCCReference Include="Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" /> <DCCReference Include="JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD10R.dcp" /> <DCCReference Include="JvCoreD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD10R.dcp" /> <DCCReference Include="JvCustomD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD10R.dcp" /> <DCCReference Include="JvPageCompsD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD10R.dcp" /> <DCCReference Include="JvStdCtrlsD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Parametros.dcp" /> <DCCReference Include="JvSystemD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" /> <DCCReference Include="Parametros.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_D10.dcp" /> <DCCReference Include="rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_D10.dcp" /> <DCCReference Include="tb2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="tbx_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDataModuleStock.pas"> <DCCReference Include="uDataModuleStock.pas">
<Form>dmStock</Form> <Form>dmStock</Form>
</DCCReference> </DCCReference>
@ -114,6 +109,12 @@
<DCCReference Include="uViewControGridStockVARELA.pas"> <DCCReference Include="uViewControGridStockVARELA.pas">
<Form>frViewControlGridStockVARELA</Form> <Form>frViewControlGridStockVARELA</Form>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

@ -175,20 +175,34 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
object PageControl1: TPageControl [3] object PageControl1: TPageControl [3]
Left = 0 Left = 0
Top = 76 Top = 105
Width = 864 Width = 864
Height = 478 Height = 449
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
ActivePage = tabResumen ActivePage = tabResumen
Align = alClient Align = alClient
MultiLine = True
TabHeight = 10
TabOrder = 3 TabOrder = 3
TabPosition = tpLeft
OnChange = PageControl1Change OnChange = PageControl1Change
ExplicitTop = 102
ExplicitHeight = 452
object tabResumen: TTabSheet object tabResumen: TTabSheet
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Caption = 'Resumido por prendas' Caption = 'Resumido por prendas'
ExplicitHeight = 444
inline frViewControlGridStockPrendasCentros1: TfrViewControlGridStockPrendasCentros inline frViewControlGridStockPrendasCentros1: TfrViewControlGridStockPrendasCentros
Left = 0 Left = 0
Top = 0 Top = 0
Width = 856 Width = 846
Height = 450 Height = 441
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -198,14 +212,13 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 856 ExplicitWidth = 846
ExplicitHeight = 450 ExplicitHeight = 444
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 856 Width = 846
Height = 390 Height = 381
ExplicitTop = 60 ExplicitWidth = 846
ExplicitWidth = 856 ExplicitHeight = 384
ExplicitHeight = 390
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -251,9 +264,8 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 856 ExplicitWidth = 846
inherited frViewParametrosColeccion1: TfrViewParametrosColeccion inherited frViewParametrosColeccion1: TfrViewParametrosColeccion
ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited ccbColeccion: TJvCheckedComboBox inherited ccbColeccion: TJvCheckedComboBox
Width = 512 Width = 512
@ -262,16 +274,15 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited pnlAgrupaciones: TTBXAlignmentPanel inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 535 Width = 525
ExplicitWidth = 535 ExplicitWidth = 525
ExplicitHeight = 41
inherited TBXButton3: TTBXButton inherited TBXButton3: TTBXButton
Action = actRefrescar Action = actRefrescar
end end
end end
inherited TBXLabel1: TTBXLabel inherited TBXLabel1: TTBXLabel
Width = 856 Width = 846
ExplicitWidth = 856 ExplicitWidth = 846
end end
end end
inherited dsDataSource: TDADataSource inherited dsDataSource: TDADataSource
@ -288,13 +299,18 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
object tabDesglose: TTabSheet object tabDesglose: TTabSheet
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Caption = 'Detallado por centros' Caption = 'Detallado por centros'
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 444
inline frViewControlGridStockEDI1: TfrViewControlGridStockEDI inline frViewControlGridStockEDI1: TfrViewControlGridStockEDI
Left = 0 Left = 0
Top = 0 Top = 0
Width = 856 Width = 846
Height = 450 Height = 441
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -304,14 +320,13 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 856 ExplicitWidth = 846
ExplicitHeight = 450 ExplicitHeight = 444
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 856 Width = 846
Height = 390 Height = 381
ExplicitTop = 60 ExplicitWidth = 846
ExplicitWidth = 856 ExplicitHeight = 384
ExplicitHeight = 390
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
PopupMenu = GridPopupMenu PopupMenu = GridPopupMenu
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -550,9 +565,8 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 856 ExplicitWidth = 846
inherited frViewParametrosColeccion1: TfrViewParametrosColeccion inherited frViewParametrosColeccion1: TfrViewParametrosColeccion
ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited ccbColeccion: TJvCheckedComboBox inherited ccbColeccion: TJvCheckedComboBox
Width = 512 Width = 512
@ -561,7 +575,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited frViewParametrosCentro1: TfrViewParametrosCentro inherited frViewParametrosCentro1: TfrViewParametrosCentro
ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited ccbCentro: TJvCheckedComboBox inherited ccbCentro: TJvCheckedComboBox
Width = 392 Width = 392
@ -570,16 +583,15 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 135 Width = 125
ExplicitWidth = 135 ExplicitWidth = 125
ExplicitHeight = 41
inherited TBXButton1: TTBXButton inherited TBXButton1: TTBXButton
Action = actRefrescar Action = actRefrescar
end end
end end
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 856 Width = 846
ExplicitWidth = 856 ExplicitWidth = 846
end end
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
@ -591,13 +603,18 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
object tabInventario: TTabSheet object tabInventario: TTabSheet
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Caption = 'Diferencias con '#250'ltimo inventario' Caption = 'Diferencias con '#250'ltimo inventario'
ImageIndex = 2 ImageIndex = 2
ExplicitHeight = 444
inline frViewControlGridStockEDIInventario1: TfrViewControlGridStockEDIInventario inline frViewControlGridStockEDIInventario1: TfrViewControlGridStockEDIInventario
Left = 0 Left = 0
Top = 0 Top = 0
Width = 856 Width = 846
Height = 450 Height = 441
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -607,14 +624,13 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 856 ExplicitWidth = 846
ExplicitHeight = 450 ExplicitHeight = 444
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 856 Width = 846
Height = 390 Height = 381
ExplicitTop = 60 ExplicitWidth = 846
ExplicitWidth = 856 ExplicitHeight = 384
ExplicitHeight = 390
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -852,9 +868,8 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 856 ExplicitWidth = 846
inherited frViewParametrosColeccion1: TfrViewParametrosColeccion inherited frViewParametrosColeccion1: TfrViewParametrosColeccion
ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited ccbColeccion: TJvCheckedComboBox inherited ccbColeccion: TJvCheckedComboBox
Width = 512 Width = 512
@ -863,7 +878,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited frViewParametrosCentro1: TfrViewParametrosCentro inherited frViewParametrosCentro1: TfrViewParametrosCentro
ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited ccbCentro: TJvCheckedComboBox inherited ccbCentro: TJvCheckedComboBox
Width = 392 Width = 392
@ -872,16 +886,15 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
inherited pnlAgrupaciones: TTBXAlignmentPanel inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 135 Width = 125
ExplicitWidth = 135 ExplicitWidth = 125
ExplicitHeight = 41
inherited TBXButton3: TTBXButton inherited TBXButton3: TTBXButton
Action = actRefrescar Action = actRefrescar
end end
end end
inherited TBXLabel1: TTBXLabel inherited TBXLabel1: TTBXLabel
Width = 856 Width = 846
ExplicitWidth = 856 ExplicitWidth = 846
end end
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
@ -893,6 +906,30 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
end end
end end
object JvTabBar1: TJvTabBar [4]
Left = 0
Top = 76
Width = 864
Height = 29
Cursor = crHandPoint
CloseButton = False
Painter = JvModernTabBarPainter1
Images = SmallImages
Tabs = <
item
Caption = 'Resumido por prendas'
Selected = True
end
item
Caption = 'Detallado por centros'
Tag = 1
end
item
Caption = 'Diferencias con '#250'ltimo inventario'
Tag = 2
end>
OnTabSelected = JvTabBar1TabSelected
end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Top = 208 Top = 208
inherited actNuevo: TAction inherited actNuevo: TAction
@ -2286,11 +2323,11 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end> end>
Bitmap = {} Bitmap = {}
end end
inherited dsDataTable: TDADataSource [8] inherited dsDataTable: TDADataSource [9]
Left = 8 Left = 8
Top = 208 Top = 208
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
end end
inherited GridPopupMenu: TPopupMenu inherited GridPopupMenu: TPopupMenu
Left = 40 Left = 40
@ -2303,4 +2340,26 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Left = 320 Left = 320
Top = 232 Top = 232
end end
object JvModernTabBarPainter1: TJvModernTabBarPainter
BorderColor = clWindow
ControlDivideColor = cl3DDkShadow
DividerColor = clBtnShadow
Font.Charset = DEFAULT_CHARSET
Font.Color = clHighlight
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
DisabledFont.Charset = DEFAULT_CHARSET
DisabledFont.Color = clGrayText
DisabledFont.Height = -11
DisabledFont.Name = 'MS Sans Serif'
DisabledFont.Style = []
SelectedFont.Charset = DEFAULT_CHARSET
SelectedFont.Color = clHighlight
SelectedFont.Height = -11
SelectedFont.Name = 'MS Sans Serif'
SelectedFont.Style = [fsBold]
Left = 320
Top = 128
end
end end

20
Source/Modulos/Stock/Cliente/uEditorControlStockEDI.pas
View File

@ -12,7 +12,7 @@ uses
uEditorGridBase, uViewGridBase, uViewGrid, Menus, TB2ExtItems, TBXExtItems, uEditorGridBase, uViewGridBase, uViewGrid, Menus, TB2ExtItems, TBXExtItems,
uBizStock,uViewControGridStockEDI, uViewControGridStockPrendasCentros, uBizStock,uViewControGridStockEDI, uViewControGridStockPrendasCentros,
uViewControGridStockEDIInventario, uDAInterfaces; uViewControGridStockEDIInventario, uDAInterfaces, JvTabBar;
type type
IEditorControlStockEDI = interface(IEditorGridBase) IEditorControlStockEDI = interface(IEditorGridBase)
@ -42,12 +42,15 @@ type
frViewControlGridStockPrendasCentros1: TfrViewControlGridStockPrendasCentros; frViewControlGridStockPrendasCentros1: TfrViewControlGridStockPrendasCentros;
tabInventario: TTabSheet; tabInventario: TTabSheet;
frViewControlGridStockEDIInventario1: TfrViewControlGridStockEDIInventario; frViewControlGridStockEDIInventario1: TfrViewControlGridStockEDIInventario;
JvTabBar1: TJvTabBar;
JvModernTabBarPainter1: TJvModernTabBarPainter;
procedure actAnchoAutoExecute(Sender: TObject); procedure actAnchoAutoExecute(Sender: TObject);
procedure FormShow(Sender: TObject); override; procedure FormShow(Sender: TObject); override;
procedure actExpandirExecute(Sender: TObject); procedure actExpandirExecute(Sender: TObject);
procedure actContraerExecute(Sender: TObject); procedure actContraerExecute(Sender: TObject);
procedure PageControl1Change(Sender: TObject); procedure PageControl1Change(Sender: TObject);
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
protected protected
FDesglose : IBizStockEDI; FDesglose : IBizStockEDI;
FInventario : IBizStockEDIInventario; FInventario : IBizStockEDIInventario;
@ -106,6 +109,9 @@ begin
end; end;
constructor TfEditorControlStockEDI.Create(AOwner: TComponent); constructor TfEditorControlStockEDI.Create(AOwner: TComponent);
var
i:Integer;
begin begin
inherited; inherited;
FResumen := nil; FResumen := nil;
@ -114,6 +120,12 @@ begin
Self.Caption := 'Control de stock en centros'; Self.Caption := 'Control de stock en centros';
JvNavPanelHeader.Caption := Self.Caption; JvNavPanelHeader.Caption := Self.Caption;
//Para ocultar las pestañas y dejar que se encargue del cambio el componente de jv
for i := 0 to PageControl1.PageCount - 1 do
begin
PageControl1.Pages[i].TabVisible := false;
end;
PageControl1.ActivePageIndex := 0; PageControl1.ActivePageIndex := 0;
if not Assigned(FResumen) then if not Assigned(FResumen) then
@ -164,6 +176,12 @@ begin
Result := FResumen; Result := FResumen;
end; end;
procedure TfEditorControlStockEDI.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
begin
inherited;
PageControl1.ActivePageIndex := Item.Index;
end;
procedure TfEditorControlStockEDI.SetItemsDesglose(const Value: IBizStockEDI); procedure TfEditorControlStockEDI.SetItemsDesglose(const Value: IBizStockEDI);
begin begin
FDesglose := Value; FDesglose := Value;

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

@ -571,7 +571,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.Caption = 'Venta mensual' ReportDocument.Caption = 'Venta mensual'
ReportDocument.CreationDate = 39346.818025173610000000 ReportDocument.CreationDate = 39349.452629837960000000
ReportTitle.Text = 'Venta mensual' ReportTitle.Text = 'Venta mensual'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack

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

@ -252,7 +252,7 @@ begin
Items.DataTable.Where.Clear; Items.DataTable.Where.Clear;
// Items.DataTable.Where.AddText(AWhere, False); Items.DataTable.Where.AddText(AWhere, False);
Items.DataTable.Active := True; Items.DataTable.Active := True;
finally finally

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

@ -205,7 +205,7 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
DockedHeight = 32 DockedHeight = 32
FloatingWidth = 128 FloatingWidth = 128
FloatingHeight = 60 FloatingHeight = 60
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = []
TabOrder = 1 TabOrder = 1
inline frViewParametrosColeccion1: TfrViewParametrosColeccion inline frViewParametrosColeccion1: TfrViewParametrosColeccion
Left = 0 Left = 0
@ -295,7 +295,7 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe
PrinterPage.PageSize.Y = 297000 PrinterPage.PageSize.Y = 297000
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39346.696871921300000000 ReportDocument.CreationDate = 39349.452622245370000000
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/uViewControGridStockPrendasCentros.pas
View File

@ -186,7 +186,7 @@ begin
AWhere := AWhere + AWhereColeccion; AWhere := AWhere + AWhereColeccion;
Items.DataTable.Where.Clear; Items.DataTable.Where.Clear;
// Items.DataTable.Where.AddText(AWhere, False); Items.DataTable.Where.AddText(AWhere, False);
Items.DataTable.Active := True; Items.DataTable.Active := True;
finally finally

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

@ -7,9 +7,9 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
Top = 60 Top = 60
Width = 831 Width = 831
Height = 290 Height = 290
ExplicitTop = 128 ExplicitTop = 60
ExplicitWidth = 621 ExplicitWidth = 831
ExplicitHeight = 331 ExplicitHeight = 290
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
FilterBox.Visible = fvNever FilterBox.Visible = fvNever
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -232,13 +232,14 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
ReadOnly = False ReadOnly = False
ExplicitTop = 19 ExplicitTop = 19
ExplicitWidth = 321 ExplicitWidth = 321
ExplicitHeight = 109 ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 321 Width = 321
Height = 41 Height = 41
Align = alClient Align = alClient
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 321 ExplicitWidth = 321
ExplicitHeight = 41
inherited ccbColeccion: TJvCheckedComboBox inherited ccbColeccion: TJvCheckedComboBox
Width = 512 Width = 512
ExplicitWidth = 512 ExplicitWidth = 512
@ -252,8 +253,6 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
Height = 41 Height = 41
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitWidth = 300
ExplicitHeight = 109
object TBXButton3: TTBXButton object TBXButton3: TTBXButton
Tag = 3 Tag = 3
Left = 8 Left = 8
@ -284,7 +283,6 @@ inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Underline = True Underline = True
ExplicitWidth = 621
end end
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
@ -310,7 +308,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 = 39343.812229085650000000 ReportDocument.CreationDate = 39349.529536493060000000
ReportDocument.IsCaptionAssigned = True ReportDocument.IsCaptionAssigned = True
ReportTitle.AdjustOnReportScale = True ReportTitle.AdjustOnReportScale = True
ReportTitle.Text = 'Venta mensual' ReportTitle.Text = 'Venta mensual'

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

@ -253,7 +253,7 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
Left = 0 Left = 0
Top = 76 Top = 76
Width = 679 Width = 679
Height = 284 Height = 478
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -265,12 +265,12 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
ReadOnly = False ReadOnly = False
ExplicitTop = 76 ExplicitTop = 76
ExplicitWidth = 679 ExplicitWidth = 679
ExplicitHeight = 478 ExplicitHeight = 284
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 679 Width = 679
Height = 284 Height = 478
ExplicitWidth = 679 ExplicitWidth = 679
ExplicitHeight = 478 ExplicitHeight = 284
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink1: TdxGridReportLink inherited dxComponentPrinterLink1: TdxGridReportLink
@ -279,21 +279,7 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
end end
end end
end end
object DBGrid1: TDBGrid [4] inherited EditorActionList: TActionList [4]
Left = 0
Top = 360
Width = 679
Height = 194
Align = alBottom
DataSource = dsDataTable
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
inherited EditorActionList: TActionList [5]
inherited actNuevo: TAction inherited actNuevo: TAction
Visible = False Visible = False
end end
@ -326,7 +312,7 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
OnExecute = actAnchoAutoExecute OnExecute = actAnchoAutoExecute
end end
end end
inherited SmallImages: TPngImageList [6] inherited SmallImages: TPngImageList [5]
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
@ -859,7 +845,7 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
end> end>
Bitmap = {} Bitmap = {}
end end
inherited LargeImages: TPngImageList [7] inherited LargeImages: TPngImageList [6]
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
@ -1689,9 +1675,9 @@ inherited fEditorControlResumenVentas: TfEditorControlResumenVentas
end> end>
Bitmap = {} Bitmap = {}
end end
inherited JvFormStorage: TJvFormStorage [8] inherited JvFormStorage: TJvFormStorage [7]
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
end end
object dsVentasTerminadas: TDADataSource object dsVentasTerminadas: TDADataSource
Left = 320 Left = 320

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

@ -43,7 +43,6 @@ type
edtColeccion: TTBXEditItem; edtColeccion: TTBXEditItem;
TBXLabelItem4: TTBXLabelItem; TBXLabelItem4: TTBXLabelItem;
TBXSeparatorItem19: TTBXSeparatorItem; TBXSeparatorItem19: TTBXSeparatorItem;
DBGrid1: TDBGrid;
procedure actAnchoAutoExecute(Sender: TObject); procedure actAnchoAutoExecute(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);