This commit is contained in:
David Arranz 2007-09-25 12:02:55 +00:00
parent 65fb6bff77
commit 00a38645f6
3 changed files with 14 additions and 58 deletions

View File

@ -12,11 +12,11 @@ STRINGTABLE
BEGIN
END
/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
/* c:\varela_d2007\lib\jvcl\JvXPCore.res */
/* c:\varela_d2007\lib\jvcl\JvXPBar.res */
/* C:\Varela_D2007\Source\Cliente\uSplash.dfm */
/* C:\Varela_D2007\Source\Cliente\uAcercaDe.dfm */
/* C:\Varela_D2007\Source\Cliente\uPantallaPrincipal.dfm */
/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
/* uAcercaDe.dfm */
/* uSplash.dfm */
/* uPantallaPrincipal.dfm */
/* C:\Varela_D2007\Source\Cliente\AdminPV.res */
/* C:\Varela_D2007\Source\Cliente\AdminPV.drf */

View File

@ -188,16 +188,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
TabHeight = 10
TabOrder = 3
TabPosition = tpLeft
OnChange = PageControl1Change
ExplicitTop = 102
ExplicitHeight = 452
object tabResumen: TTabSheet
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Caption = 'Resumido por prendas'
ExplicitHeight = 444
inline frViewControlGridStockPrendasCentros1: TfrViewControlGridStockPrendasCentros
Left = 0
Top = 0
@ -213,12 +209,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
TabOrder = 0
ReadOnly = False
ExplicitWidth = 846
ExplicitHeight = 444
ExplicitHeight = 441
inherited cxGrid: TcxGrid
Width = 846
Height = 381
ExplicitWidth = 846
ExplicitHeight = 384
ExplicitHeight = 381
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -265,14 +261,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 846
inherited frViewParametrosColeccion1: TfrViewParametrosColeccion
inherited dxLayoutControl1: TdxLayoutControl
inherited ccbColeccion: TJvCheckedComboBox
Width = 512
ExplicitWidth = 512
end
end
end
inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 525
ExplicitWidth = 525
@ -305,7 +293,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Margins.Bottom = 0
Caption = 'Detallado por centros'
ImageIndex = 1
ExplicitHeight = 444
inline frViewControlGridStockEDI1: TfrViewControlGridStockEDI
Left = 0
Top = 0
@ -321,12 +308,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
TabOrder = 0
ReadOnly = False
ExplicitWidth = 846
ExplicitHeight = 444
ExplicitHeight = 441
inherited cxGrid: TcxGrid
Width = 846
Height = 381
ExplicitWidth = 846
ExplicitHeight = 384
ExplicitHeight = 381
inherited cxGridView: TcxGridDBTableView
PopupMenu = GridPopupMenu
DataController.Summary.DefaultGroupSummaryItems = <
@ -566,22 +553,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 846
inherited frViewParametrosColeccion1: TfrViewParametrosColeccion
inherited dxLayoutControl1: TdxLayoutControl
inherited ccbColeccion: TJvCheckedComboBox
Width = 512
ExplicitWidth = 512
end
end
end
inherited frViewParametrosCentro1: TfrViewParametrosCentro
inherited dxLayoutControl1: TdxLayoutControl
inherited ccbCentro: TJvCheckedComboBox
Width = 392
ExplicitWidth = 392
end
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 125
ExplicitWidth = 125
@ -609,7 +580,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Margins.Bottom = 0
Caption = 'Diferencias con '#250'ltimo inventario'
ImageIndex = 2
ExplicitHeight = 444
inline frViewControlGridStockEDIInventario1: TfrViewControlGridStockEDIInventario
Left = 0
Top = 0
@ -625,12 +595,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
TabOrder = 0
ReadOnly = False
ExplicitWidth = 846
ExplicitHeight = 444
ExplicitHeight = 441
inherited cxGrid: TcxGrid
Width = 846
Height = 381
ExplicitWidth = 846
ExplicitHeight = 384
ExplicitHeight = 381
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -869,22 +839,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 846
inherited frViewParametrosColeccion1: TfrViewParametrosColeccion
inherited dxLayoutControl1: TdxLayoutControl
inherited ccbColeccion: TJvCheckedComboBox
Width = 512
ExplicitWidth = 512
end
end
end
inherited frViewParametrosCentro1: TfrViewParametrosCentro
inherited dxLayoutControl1: TdxLayoutControl
inherited ccbCentro: TJvCheckedComboBox
Width = 392
ExplicitWidth = 392
end
end
end
inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 125
ExplicitWidth = 125

View File

@ -48,9 +48,10 @@ type
procedure FormShow(Sender: TObject); override;
procedure actExpandirExecute(Sender: TObject);
procedure actContraerExecute(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure actRefrescarExecute(Sender: TObject);
procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem);
private
procedure AsignarItems;
protected
FDesglose : IBizStockEDI;
FInventario : IBizStockEDIInventario;
@ -180,6 +181,7 @@ procedure TfEditorControlStockEDI.JvTabBar1TabSelected(Sender: TObject; Item: TJ
begin
inherited;
PageControl1.ActivePageIndex := Item.Index;
AsignarItems;
end;
procedure TfEditorControlStockEDI.SetItemsDesglose(const Value: IBizStockEDI);
@ -222,7 +224,7 @@ begin
end;
end;
procedure TfEditorControlStockEDI.PageControl1Change(Sender: TObject);
procedure TfEditorControlStockEDI.AsignarItems;
begin
inherited;
Self.Update;