Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adaptan los informes para que se ordenen por los importes y cantidades de los sumarys de las agrupaciones

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@278 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-09-15 12:03:57 +00:00
parent 3e0bcba9e4
commit 99410f0272
5 changed files with 120 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

87
Source/Modulos/Informe ventas por articulo/Views/uEditorInfVentasArticulo.dfm
View File

@ -6,8 +6,9 @@ inherited fEditorInfVentasArticulo: TfEditorInfVentasArticulo
ClientWidth = 899 ClientWidth = 899
OnCreate = CustomEditorCreate OnCreate = CustomEditorCreate
OnGetModified = CustomEditorGetModified OnGetModified = CustomEditorGetModified
ExplicitTop = -35
ExplicitWidth = 907 ExplicitWidth = 907
ExplicitHeight = 705 ExplicitHeight = 698
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -191,39 +192,36 @@ inherited fEditorInfVentasArticulo: TfEditorInfVentasArticulo
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitWidth = 891 ExplicitTop = 102
ExplicitHeight = 522 ExplicitWidth = 899
ExplicitHeight = 550
inherited TBXMultiDock1: TTBXMultiDock inherited TBXMultiDock1: TTBXMultiDock
Height = 440 Height = 440
ExplicitTop = 110 ExplicitHeight = 440
ExplicitHeight = 412
inherited pnlParametros: TTBXDockablePanel inherited pnlParametros: TTBXDockablePanel
ExplicitHeight = 205 ExplicitHeight = 205
inherited pcParametros: TPageControl inherited pcParametros: TPageControl
Height = 116 Height = 118
ExplicitHeight = 102 ExplicitHeight = 118
inherited TabSheet5: TTabSheet inherited TabSheet5: TTabSheet
ExplicitLeft = 0 ExplicitHeight = 31
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 29
end end
inherited tsColumnas: TTabSheet inherited tsColumnas: TTabSheet
ExplicitHeight = 92 ExplicitHeight = 108
inherited frViewColumnas1: TfrViewColumnas inherited frViewColumnas1: TfrViewColumnas
Height = 106 Height = 108
ExplicitHeight = 92 ExplicitHeight = 108
inherited lbColumnas: TcxCheckListBox inherited lbColumnas: TcxCheckListBox
Height = 77 Height = 79
ExplicitHeight = 63 ExplicitHeight = 79
end end
end end
end end
inherited tsAgrupacion: TTabSheet inherited tsAgrupacion: TTabSheet
ExplicitHeight = 29 ExplicitHeight = 31
inherited frViewAgrupaciones1: TfrViewAgrupaciones inherited frViewAgrupaciones1: TfrViewAgrupaciones
Height = 29 Height = 31
ExplicitHeight = 29 ExplicitHeight = 31
end end
end end
end end
@ -234,34 +232,34 @@ inherited fEditorInfVentasArticulo: TfEditorInfVentasArticulo
ExplicitTop = 205 ExplicitTop = 205
ExplicitHeight = 219 ExplicitHeight = 219
inherited TBXPageScroller1: TTBXPageScroller inherited TBXPageScroller1: TTBXPageScroller
Height = 197 Height = 199
ExplicitHeight = 183 ExplicitHeight = 199
inherited pcTareas: TPageControl inherited pcTareas: TPageControl
Height = 149 Height = 151
ExplicitHeight = 135 ExplicitHeight = 151
inherited tsSumarios: TTabSheet inherited tsSumarios: TTabSheet
ExplicitHeight = 48 ExplicitHeight = 50
inherited frViewSumarios1: TfrViewSumarios inherited frViewSumarios1: TfrViewSumarios
Height = 48 Height = 50
ExplicitHeight = 48 ExplicitHeight = 50
inherited vgSumarios: TcxVerticalGrid inherited vgSumarios: TcxVerticalGrid
Height = 19 Height = 21
ExplicitHeight = 19 ExplicitHeight = 21
end end
end end
end end
inherited tsFiltros: TTabSheet inherited tsFiltros: TTabSheet
ExplicitHeight = 125 ExplicitHeight = 141
inherited frViewFiltros1: TfrViewFiltros inherited frViewFiltros1: TfrViewFiltros
Height = 139 Height = 141
ExplicitHeight = 125 ExplicitHeight = 141
inherited cxFilterControl1: TcxFilterControl inherited cxFilterControl1: TcxFilterControl
Height = 80 Height = 82
ExplicitHeight = 66 ExplicitHeight = 82
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 109 Top = 111
ExplicitTop = 95 ExplicitTop = 111
end end
end end
end end
@ -272,13 +270,13 @@ inherited fEditorInfVentasArticulo: TfEditorInfVentasArticulo
inherited frViewInfVentasArticuloGrid1: TfrViewInfVentasArticuloGrid inherited frViewInfVentasArticuloGrid1: TfrViewInfVentasArticuloGrid
Width = 677 Width = 677
Height = 440 Height = 440
ExplicitWidth = 669 ExplicitWidth = 677
ExplicitHeight = 412 ExplicitHeight = 440
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 677 Width = 677
Height = 440 Height = 440
ExplicitWidth = 669 ExplicitWidth = 677
ExplicitHeight = 412 ExplicitHeight = 440
end end
inherited dxPrintStyleManager1: TdxPrintStyleManager inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
@ -293,22 +291,21 @@ inherited fEditorInfVentasArticulo: TfEditorInfVentasArticulo
end end
inherited TBXMultiDock2: TTBXMultiDock inherited TBXMultiDock2: TTBXMultiDock
Width = 899 Width = 899
ExplicitWidth = 891 ExplicitWidth = 899
inherited pnlIntervaloFechas: TTBXDockablePanel inherited pnlIntervaloFechas: TTBXDockablePanel
ExplicitWidth = 883 ExplicitWidth = 883
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 879 Width = 879
ExplicitTop = 76 ExplicitWidth = 879
ExplicitWidth = 871
end end
inherited frViewPeriodoFechas1: TfrViewPeriodoFechas inherited frViewPeriodoFechas1: TfrViewPeriodoFechas
Width = 879 Width = 879
ExplicitWidth = 871 ExplicitWidth = 879
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 871 ExplicitWidth = 879
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 879 Width = 879
ExplicitWidth = 871 ExplicitWidth = 879
end end
end end
end end

8
Source/Modulos/Informe ventas por articulo/Views/uEditorInfVentasArticulo.pas
View File

@ -42,7 +42,6 @@ type
procedure actPrevisualizarExecute(Sender: TObject); procedure actPrevisualizarExecute(Sender: TObject);
procedure actImprimirExecute(Sender: TObject); procedure actImprimirExecute(Sender: TObject);
procedure actConfPaginaExecute(Sender: TObject); procedure actConfPaginaExecute(Sender: TObject);
procedure frViewInfVentasArticulo1bRefrescarClick(Sender: TObject);
private private
FInformesController: IInformesController; FInformesController: IInformesController;
procedure RestaurarConfiguracion; procedure RestaurarConfiguracion;
@ -297,13 +296,6 @@ begin
frViewInfVentasArticulo1.frViewInfVentasArticuloGrid1.PrintSetup; frViewInfVentasArticulo1.frViewInfVentasArticuloGrid1.PrintSetup;
end; end;
procedure TfEditorInfVentasArticulo.frViewInfVentasArticulo1bRefrescarClick(
Sender: TObject);
begin
inherited;
frViewInfVentasArticulo1.actRefrescarExecute(Sender);
end;
constructor TfEditorInfVentasArticulo.Create(AOwner: TComponent); constructor TfEditorInfVentasArticulo.Create(AOwner: TComponent);
begin begin
inherited; inherited;

80
Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticulo.dfm
View File

@ -4,35 +4,35 @@ inherited frViewInfVentasArticulo: TfrViewInfVentasArticulo
inherited TBXMultiDock1: TTBXMultiDock inherited TBXMultiDock1: TTBXMultiDock
Top = 110 Top = 110
Height = 399 Height = 399
ExplicitTop = 170 ExplicitTop = 110
ExplicitHeight = 339 ExplicitHeight = 399
inherited pnlParametros: TTBXDockablePanel inherited pnlParametros: TTBXDockablePanel
ExplicitHeight = 184 ExplicitHeight = 184
inherited pcParametros: TPageControl inherited pcParametros: TPageControl
Height = 95 Height = 97
ExplicitHeight = 65 ExplicitHeight = 97
inherited TabSheet5: TTabSheet inherited TabSheet5: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 6 ExplicitTop = 6
ExplicitWidth = 210 ExplicitWidth = 210
ExplicitHeight = 55 ExplicitHeight = 87
end end
inherited tsColumnas: TTabSheet inherited tsColumnas: TTabSheet
ExplicitHeight = 55 ExplicitHeight = 87
inherited frViewColumnas1: TfrViewColumnas inherited frViewColumnas1: TfrViewColumnas
Height = 85 Height = 87
ExplicitHeight = 55 ExplicitHeight = 87
inherited lbColumnas: TcxCheckListBox inherited lbColumnas: TcxCheckListBox
Height = 56 Height = 58
ExplicitHeight = 26 ExplicitHeight = 58
end end
end end
end end
inherited tsAgrupacion: TTabSheet inherited tsAgrupacion: TTabSheet
ExplicitHeight = 55 ExplicitHeight = 87
inherited frViewAgrupaciones1: TfrViewAgrupaciones inherited frViewAgrupaciones1: TfrViewAgrupaciones
Height = 85 Height = 87
ExplicitHeight = 55 ExplicitHeight = 87
end end
end end
end end
@ -43,34 +43,34 @@ inherited frViewInfVentasArticulo: TfrViewInfVentasArticulo
ExplicitTop = 184 ExplicitTop = 184
ExplicitHeight = 199 ExplicitHeight = 199
inherited TBXPageScroller1: TTBXPageScroller inherited TBXPageScroller1: TTBXPageScroller
Height = 177 Height = 179
ExplicitHeight = 147 ExplicitHeight = 179
inherited pcTareas: TPageControl inherited pcTareas: TPageControl
Height = 129 Height = 131
ExplicitHeight = 99 ExplicitHeight = 131
inherited tsSumarios: TTabSheet inherited tsSumarios: TTabSheet
ExplicitHeight = 89 ExplicitHeight = 121
inherited frViewSumarios1: TfrViewSumarios inherited frViewSumarios1: TfrViewSumarios
Height = 119 Height = 121
ExplicitHeight = 89 ExplicitHeight = 121
inherited vgSumarios: TcxVerticalGrid inherited vgSumarios: TcxVerticalGrid
Height = 90 Height = 92
ExplicitHeight = 60 ExplicitHeight = 92
end end
end end
end end
inherited tsFiltros: TTabSheet inherited tsFiltros: TTabSheet
ExplicitHeight = 89 ExplicitHeight = 121
inherited frViewFiltros1: TfrViewFiltros inherited frViewFiltros1: TfrViewFiltros
Height = 119 Height = 121
ExplicitHeight = 89 ExplicitHeight = 121
inherited cxFilterControl1: TcxFilterControl inherited cxFilterControl1: TcxFilterControl
Height = 60 Height = 62
ExplicitHeight = 30 ExplicitHeight = 62
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 89 Top = 91
ExplicitTop = 59 ExplicitTop = 91
end end
end end
end end
@ -93,14 +93,22 @@ inherited frViewInfVentasArticulo: TfrViewInfVentasArticulo
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitLeft = 222 ExplicitLeft = 222
ExplicitTop = 170 ExplicitTop = 110
ExplicitWidth = 477 ExplicitWidth = 477
ExplicitHeight = 339 ExplicitHeight = 399
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 477 Width = 477
Height = 399 Height = 399
ExplicitWidth = 477 ExplicitWidth = 477
ExplicitHeight = 339 ExplicitHeight = 399
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewCANTIDAD: TcxGridDBColumn
OnHeaderClick = frViewInfVentasArticuloGrid1cxGridViewCANTIDADHeaderClick
end
inherited cxGridViewIMPORTE_TOTAL_VENTA: TcxGridDBColumn
OnHeaderClick = frViewInfVentasArticuloGrid1cxGridViewIMPORTE_TOTAL_VENTAHeaderClick
end
end
end end
inherited dxPrintStyleManager1: TdxPrintStyleManager inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
@ -124,7 +132,7 @@ inherited frViewInfVentasArticulo: TfrViewInfVentasArticulo
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 76 Top = 76
Width = 679 Width = 679
ExplicitTop = 136 ExplicitTop = 76
ExplicitWidth = 679 ExplicitWidth = 679
end end
inline frViewPeriodoFechas1: TfrViewPeriodoFechas inline frViewPeriodoFechas1: TfrViewPeriodoFechas
@ -142,15 +150,15 @@ inherited frViewInfVentasArticulo: TfrViewInfVentasArticulo
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitWidth = 679 ExplicitWidth = 679
ExplicitHeight = 66 ExplicitHeight = 76
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 679 ExplicitWidth = 679
ExplicitHeight = 136 ExplicitHeight = 76
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 679 Width = 679
Height = 76 Height = 76
ExplicitWidth = 679 ExplicitWidth = 679
ExplicitHeight = 136 ExplicitHeight = 76
inherited cbPeriodo: TcxComboBox inherited cbPeriodo: TcxComboBox
Left = 54 Left = 54
ExplicitLeft = 54 ExplicitLeft = 54

38
Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticulo.pas
View File

@ -28,6 +28,11 @@ type
frViewInfVentasArticuloGrid1: TfrViewInfVentasArticuloGrid; frViewInfVentasArticuloGrid1: TfrViewInfVentasArticuloGrid;
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
procedure actPeriodoFechasExecute(Sender: TObject); procedure actPeriodoFechasExecute(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure frViewInfVentasArticuloGrid1cxGridViewIMPORTE_TOTAL_VENTAHeaderClick(
Sender: TObject);
procedure frViewInfVentasArticuloGrid1cxGridViewCANTIDADHeaderClick(
Sender: TObject);
protected protected
FDatos : IBizInfVentasArticulo; FDatos : IBizInfVentasArticulo;
FModificado : Boolean; FModificado : Boolean;
@ -45,14 +50,14 @@ type
end; end;
implementation implementation
{$R *.dfm}
{ TfrViewInfVentasArticulo }
uses schInfVentasArticuloClient_Intf;
const const
PERIODO = 0; PERIODO = 0;
{$R *.dfm}
{ TfrViewInfVentasArticulo }
constructor TfrViewInfVentasArticulo.Create(AOwner: TComponent); constructor TfrViewInfVentasArticulo.Create(AOwner: TComponent);
begin begin
inherited; inherited;
@ -65,6 +70,25 @@ begin
pcParametros.ActivePage := TabSheet5; pcParametros.ActivePage := TabSheet5;
end; end;
procedure TfrViewInfVentasArticulo.frViewInfVentasArticuloGrid1cxGridViewCANTIDADHeaderClick(
Sender: TObject);
begin
inherited;
frViewInfVentasArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
frViewInfVentasArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfVentasArticuloCANTIDAD).SortIndex := 1;
frViewInfVentasArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfVentasArticuloCANTIDAD).Summary.SortByGroupFooterSummary := True;
frViewInfVentasArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;
procedure TfrViewInfVentasArticulo.frViewInfVentasArticuloGrid1cxGridViewIMPORTE_TOTAL_VENTAHeaderClick(Sender: TObject);
begin
inherited;
frViewInfVentasArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
frViewInfVentasArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfVentasArticuloIMPORTE_TOTAL_VENTA).SortOrder := soAscending;
frViewInfVentasArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfVentasArticuloIMPORTE_TOTAL_VENTA).Summary.SortByGroupFooterSummary := True;
frViewInfVentasArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;
function TfrViewInfVentasArticulo.GetDatos: IBizInfVentasArticulo; function TfrViewInfVentasArticulo.GetDatos: IBizInfVentasArticulo;
begin begin
Result := FDatos; Result := FDatos;
@ -150,6 +174,12 @@ begin
Refresh; Refresh;
end; end;
procedure TfrViewInfVentasArticulo.Button1Click(Sender: TObject);
begin
inherited;
//
end;
procedure TfrViewInfVentasArticulo.OnViewInformeBaseGridChanged( procedure TfrViewInfVentasArticulo.OnViewInformeBaseGridChanged(
Sender: TObject); Sender: TObject);
begin begin