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@72 1c943782-d109-9647-9548-93b3ac332352

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Cliente/AdminPV.drc
View File

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

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

@ -188,16 +188,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
TabHeight = 10 TabHeight = 10
TabOrder = 3 TabOrder = 3
TabPosition = tpLeft TabPosition = tpLeft
OnChange = PageControl1Change
ExplicitTop = 102
ExplicitHeight = 452
object tabResumen: TTabSheet object tabResumen: TTabSheet
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
Margins.Bottom = 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
@ -213,12 +209,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 444 ExplicitHeight = 441
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 846 Width = 846
Height = 381 Height = 381
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 384 ExplicitHeight = 381
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -265,14 +261,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 846 ExplicitWidth = 846
inherited frViewParametrosColeccion1: TfrViewParametrosColeccion
inherited dxLayoutControl1: TdxLayoutControl
inherited ccbColeccion: TJvCheckedComboBox
Width = 512
ExplicitWidth = 512
end
end
end
inherited pnlAgrupaciones: TTBXAlignmentPanel inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 525 Width = 525
ExplicitWidth = 525 ExplicitWidth = 525
@ -305,7 +293,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Margins.Bottom = 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
@ -321,12 +308,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 444 ExplicitHeight = 441
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 846 Width = 846
Height = 381 Height = 381
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 384 ExplicitHeight = 381
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
PopupMenu = GridPopupMenu PopupMenu = GridPopupMenu
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -566,22 +553,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 846 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 inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 125 Width = 125
ExplicitWidth = 125 ExplicitWidth = 125
@ -609,7 +580,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Margins.Bottom = 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
@ -625,12 +595,12 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 444 ExplicitHeight = 441
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 846 Width = 846
Height = 381 Height = 381
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 384 ExplicitHeight = 381
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -869,22 +839,6 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 846 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 inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 125 Width = 125
ExplicitWidth = 125 ExplicitWidth = 125

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

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