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

Se modifica la opción de expandir las filas del grupo siempre que se imprima, para que los informes salgan igual que el los ve. Se ñaaden ordenes de grupo en los informes de margen

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@283 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-09-22 10:15:39 +00:00
parent d1ff7c3690
commit 929485d207
5 changed files with 105 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/GUIBase/GUIBase.res
View File

Binary file not shown.

13
Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.dfm
View File

@ -366,9 +366,11 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
end
inherited cxGridViewIMP_MARGEN_ULT_VENT_ULT_COMP: TcxGridDBColumn
Width = 32
OnHeaderClick = frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_ULT_VENT_ULT_COMPHeaderClick
end
inherited cxGridViewPOR_MARGEN_ULT_VENT_ULT_COMP: TcxGridDBColumn
Width = 32
OnHeaderClick = frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_ULT_VENT_ULT_COMPHeaderClick
end
inherited cxGridViewIMP_MARGEN_ULT_VENT_PRO_COMP: TcxGridDBColumn
Width = 32
@ -390,13 +392,24 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
end
inherited cxGridViewIMP_MARGEN_PRO_VENT_PRO_COMP: TcxGridDBColumn
Width = 31
OnHeaderClick = frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_PRO_VENT_PRO_COMPHeaderClick
end
inherited cxGridViewPOR_MARGEN_PRO_VENT_PRO_COMP: TcxGridDBColumn
Width = 33
OnHeaderClick = frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_PRO_VENT_PRO_COMPHeaderClick
end
inherited cxGridViewPOR_MARGEN_PRO_COMP: TcxGridDBColumn
OnHeaderClick = frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_PRO_COMPHeaderClick
end
inherited cxGridViewID_DETALLE: TcxGridDBColumn
Caption = '-'
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
OnHeaderClick = frViewInfMargenArticuloGrid1cxGridViewCANTIDADHeaderClick
end
inherited cxGridViewIMP_MARGEN_PRO_COMP_TOTAL: TcxGridDBColumn
OnHeaderClick = frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_PRO_COMP_TOTALHeaderClick
end
end
end
inherited dxPrintStyleManager1: TdxPrintStyleManager

89
Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.pas
View File

@ -29,6 +29,20 @@ type
frViewPeriodoFechas1: TfrViewPeriodoFechas;
procedure actRefrescarExecute(Sender: TObject);
procedure actPeriodoFechasExecute(Sender: TObject);
procedure frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_PRO_COMPHeaderClick(
Sender: TObject);
procedure frViewInfMargenArticuloGrid1cxGridViewCANTIDADHeaderClick(
Sender: TObject);
procedure frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_PRO_COMP_TOTALHeaderClick(
Sender: TObject);
procedure frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_ULT_VENT_ULT_COMPHeaderClick(
Sender: TObject);
procedure frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_ULT_VENT_ULT_COMPHeaderClick(
Sender: TObject);
procedure frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_PRO_VENT_PRO_COMPHeaderClick(
Sender: TObject);
procedure frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_PRO_VENT_PRO_COMPHeaderClick(
Sender: TObject);
protected
FDatos : IBizInfMargenArticulo;
@ -47,11 +61,14 @@ type
end;
implementation
{$R *.dfm}
uses schInfMargenArticuloClient_Intf;
const
PERIODO = 0;
{$R *.dfm}
{ TfrViewInfMargenArticulo }
@ -68,6 +85,76 @@ begin
end;
procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewCANTIDADHeaderClick(
Sender: TObject);
begin
inherited;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaCANTIDAD).SortOrder := soAscending;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaCANTIDAD).Summary.SortByGroupFooterSummary := True;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;
procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_PRO_COMP_TOTALHeaderClick(
Sender: TObject);
begin
inherited;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL).SortOrder := soAscending;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL).Summary.SortByGroupFooterSummary := True;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;
procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_PRO_VENT_PRO_COMPHeaderClick(
Sender: TObject);
begin
inherited;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP).SortOrder := soAscending;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP).Summary.SortByGroupFooterSummary := True;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;
procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_ULT_VENT_ULT_COMPHeaderClick(
Sender: TObject);
begin
inherited;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP).SortOrder := soAscending;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP).Summary.SortByGroupFooterSummary := True;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;
procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_PRO_COMPHeaderClick(
Sender: TObject);
begin
inherited;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaPOR_MARGEN_PRO_COMP).SortOrder := soAscending;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaPOR_MARGEN_PRO_COMP).Summary.SortByGroupFooterSummary := True;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;
procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_PRO_VENT_PRO_COMPHeaderClick(
Sender: TObject);
begin
inherited;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP).SortOrder := soAscending;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP).Summary.SortByGroupFooterSummary := True;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;
procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_ULT_VENT_ULT_COMPHeaderClick(
Sender: TObject);
begin
inherited;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP).SortOrder := soAscending;
frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP).Summary.SortByGroupFooterSummary := True;
frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;
function TfrViewInfMargenArticulo.GetDatos: IBizInfMargenArticulo;
begin
Result := FDatos;

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

@ -28,11 +28,8 @@ type
frViewInfVentasArticuloGrid1: TfrViewInfVentasArticuloGrid;
procedure actRefrescarExecute(Sender: TObject);
procedure actPeriodoFechasExecute(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure frViewInfVentasArticuloGrid1cxGridViewIMPORTE_TOTAL_VENTAHeaderClick(
Sender: TObject);
procedure frViewInfVentasArticuloGrid1cxGridViewCANTIDADHeaderClick(
Sender: TObject);
procedure frViewInfVentasArticuloGrid1cxGridViewIMPORTE_TOTAL_VENTAHeaderClick(Sender: TObject);
procedure frViewInfVentasArticuloGrid1cxGridViewCANTIDADHeaderClick(Sender: TObject);
protected
FDatos : IBizInfVentasArticulo;
FModificado : Boolean;
@ -70,8 +67,7 @@ begin
pcParametros.ActivePage := TabSheet5;
end;
procedure TfrViewInfVentasArticulo.frViewInfVentasArticuloGrid1cxGridViewCANTIDADHeaderClick(
Sender: TObject);
procedure TfrViewInfVentasArticulo.frViewInfVentasArticuloGrid1cxGridViewCANTIDADHeaderClick(Sender: TObject);
begin
inherited;
frViewInfVentasArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
@ -174,12 +170,6 @@ begin
Refresh;
end;
procedure TfrViewInfVentasArticulo.Button1Click(Sender: TObject);
begin
inherited;
//
end;
procedure TfrViewInfVentasArticulo.OnViewInformeBaseGridChanged(
Sender: TObject);
begin

2
Source/Modulos/Informes base/Views/uViewInformeBaseGrid.dfm
View File

@ -73,7 +73,6 @@ inherited frViewInformeBaseGrid: TfrViewInformeBaseGrid
ReportDocument.CreationDate = 38877.461868113420000000
StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True
OptionsFormatting.SuppressBackgroundBitmaps = True
OptionsFormatting.UseNativeStyles = True
OptionsFormatting.ConsumeSelectionStyle = True
@ -95,6 +94,7 @@ inherited frViewInformeBaseGrid: TfrViewInformeBaseGrid
object cxStyleRepositoryInforme: TcxStyleRepository
Left = 112
Top = 48
PixelsPerInch = 96
object cxStyleContentInforme: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clWhite