From 00a38645f68d37c187600fe7553dfcf7ef7edfdb Mon Sep 17 00:00:00 2001 From: david Date: Tue, 25 Sep 2007 12:02:55 +0000 Subject: [PATCH] git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@72 1c943782-d109-9647-9548-93b3ac332352 --- Source/Cliente/AdminPV.drc | 8 +-- .../Stock/Cliente/uEditorControlStockEDI.dfm | 58 ++----------------- .../Stock/Cliente/uEditorControlStockEDI.pas | 6 +- 3 files changed, 14 insertions(+), 58 deletions(-) diff --git a/Source/Cliente/AdminPV.drc b/Source/Cliente/AdminPV.drc index c1d862c..56109cf 100644 --- a/Source/Cliente/AdminPV.drc +++ b/Source/Cliente/AdminPV.drc @@ -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 */ diff --git a/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.dfm b/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.dfm index 157d420..3b24867 100644 --- a/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.dfm +++ b/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.dfm @@ -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 diff --git a/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.pas b/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.pas index 6fdfe2d..0171d2c 100644 --- a/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.pas +++ b/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.pas @@ -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;