david
bd7a099c7d
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES/trunk@4 b68bf8ae-e977-074f-a058-3cfd71dd8f45
930 lines
32 KiB
ObjectPascal
930 lines
32 KiB
ObjectPascal
unit InformeEstBeneficios;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||
InformeEstadistico, Db, RxMemDS, StdCtrls, RdxComboBox, dxCntner, dxTL,
|
||
dxDBCtrl, dxDBGrid, ExtCtrls, RdxTitulos, RdxPaneles,
|
||
|
||
IBCustomDataSet, BaseDatos, IBSQL, IB, Excepciones, TeEngine, TeeFunci,
|
||
Series, TeeProcs, Chart, DBChart, IBDatabase, Grids, DBGrids, RdxBotones,
|
||
RdxBarras;
|
||
|
||
type
|
||
TfrInformeEstBeneficios = class(TfrInformeEstadistico)
|
||
DBChart1: TDBChart;
|
||
Series1: TBarSeries;
|
||
Series2: TBarSeries;
|
||
Series3: TBarSeries;
|
||
IBDatabase1: TIBDatabase;
|
||
IBTransaction1: TIBTransaction;
|
||
DataSource1: TDataSource;
|
||
IBDataSet1: TIBDataSet;
|
||
IBDataSet3: TIBDataSet;
|
||
IBDataSet2: TIBDataSet;
|
||
Series4: TBarSeries;
|
||
Series5: TBarSeries;
|
||
Series6: TBarSeries;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
Label10: TLabel;
|
||
pnlA1T1: TLabel;
|
||
pnlA1T2: TLabel;
|
||
pnlA1T3: TLabel;
|
||
Label11: TLabel;
|
||
Label27: TLabel;
|
||
pnlA1T4: TLabel;
|
||
pnlA3T1: TLabel;
|
||
pnlA3T2: TLabel;
|
||
pnlA3T3: TLabel;
|
||
Panel1: TPanel;
|
||
Label17: TLabel;
|
||
cbxFiltroGrafico: TRdxComboBox;
|
||
Label8: TLabel;
|
||
Label9: TLabel;
|
||
Label15: TLabel;
|
||
pnlA2T1: TLabel;
|
||
pnlA2T2: TLabel;
|
||
pnlA2T3: TLabel;
|
||
pnlA2T4: TLabel;
|
||
Label4: TLabel;
|
||
Label5: TLabel;
|
||
Label6: TLabel;
|
||
Label7: TLabel;
|
||
Label12: TLabel;
|
||
Label13: TLabel;
|
||
etiComp: TLabel;
|
||
|
||
procedure gridCustomDrawCell(Sender: TObject; ACanvas: TCanvas;
|
||
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
|
||
ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
|
||
var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
|
||
var ADone: Boolean); override;
|
||
|
||
procedure bCancelarClick(Sender: TObject);
|
||
procedure bImprimirClick(Sender: TObject);
|
||
procedure cbxFiltroGraficoChange(Sender: TObject);
|
||
|
||
private
|
||
FTotAno11: Double;
|
||
FTotAno12: Double;
|
||
FTotAno13: Double;
|
||
FTotAno14: Double;
|
||
FTotAno21: Double;
|
||
FTotAno22: Double;
|
||
FTotAno23: Double;
|
||
FTotAno24: Double;
|
||
FTotAno31: Double;
|
||
FTotAno32: Double;
|
||
FTotAno33: Double;
|
||
FTotAno34: Double;
|
||
|
||
procedure LimpiarTotales;
|
||
function CalcularPre(const pSituacion: String; var TotalAno1: Double; var TotalAno2: Double): Boolean;
|
||
function CalcularDifPor: Boolean;
|
||
function GenerarTablaInforme: TRxMemoryData;
|
||
|
||
protected
|
||
function InicializarFiltros: Boolean; override;
|
||
function InicializarCamposTMem: Boolean; override;
|
||
function InicializarGrids: Boolean; override;
|
||
function CalcularDatos: Boolean; override;
|
||
|
||
function InicializarResumenes: Boolean; override;
|
||
function RefrescarResumenes: Boolean; override;
|
||
function FinalizarResumenes: Boolean; override;
|
||
|
||
procedure SetAno2(const Value: Variant); override;
|
||
public
|
||
constructor Create (AOwner : TComponent); override;
|
||
end;
|
||
|
||
var
|
||
frInformeEstBeneficios: TfrInformeEstBeneficios;
|
||
|
||
implementation
|
||
|
||
uses Tipos, Literales, Constantes, dxGrClms, Mensajes, TablaPresupuestos, RdxEmpresaActiva,
|
||
StrFunc, InfEstReportBeneficios, TablaFacturasCliente, Configuracion, SysFunc;
|
||
|
||
{$R *.DFM}
|
||
|
||
{ TfrInformeEstPresupuestos }
|
||
|
||
|
||
{ TfrInformeEstPresupuestos }
|
||
|
||
function TfrInformeEstBeneficios.CalcularDatos: Boolean;
|
||
var
|
||
Aux: Double;
|
||
i: Integer;
|
||
Aux2: String;
|
||
|
||
begin
|
||
LimpiarTotales;
|
||
FTotAno11:= 0;
|
||
FTotAno12:= 0;
|
||
FTotAno13:= 0;
|
||
FTotAno14:= 0;
|
||
FTotAno21:= 0;
|
||
FTotAno22:= 0;
|
||
FTotAno23:= 0;
|
||
FTotAno24:= 0;
|
||
FTotAno31:= 0;
|
||
FTotAno32:= 0;
|
||
FTotAno33:= 0;
|
||
FTotAno34:= 0;
|
||
CalcularPre('INGRESOS',FTotAno11,FTotAno21);
|
||
CalcularPre('GASTOS',FTotAno12,FTotAno22);
|
||
CalcularDifPor;
|
||
|
||
if FTotAno11 <> 0 then
|
||
pnlA1T1.Caption := FormatFloat(DISPLAY_EUROS2, FTotAno11);
|
||
if FTotAno12 <> 0 then
|
||
pnlA1T2.Caption := FormatFloat(DISPLAY_EUROS2, FTotAno12);
|
||
|
||
FTotAno13 := CalcularResta(FTotAno11, FTotAno12);
|
||
if FTotAno13 < 0 then
|
||
pnlA1T3.Font.Color := COLOR_NEGATIVO
|
||
else
|
||
pnlA1T3.Font.Color := COLOR_POSITIVO;
|
||
if FTotAno13 <> 0 then
|
||
pnlA1T3.Caption := FormatFloat(DISPLAY_EUROS2, FTotAno13);
|
||
|
||
FTotAno14 := CalcularPorcentaje(FTotAno11, FTotAno13, False);
|
||
if FTotAno14 < 0 then
|
||
pnlA1T4.Font.Color := COLOR_PORCENTAJENEG
|
||
else
|
||
pnlA1T4.Font.Color := COLOR_PORCENTAJEPOS;
|
||
if FTotAno14 <> 0 then
|
||
pnlA1T4.Caption := FormatFloat(DISPLAY_PORCENTAJE, FTotAno14);
|
||
|
||
//Solo calculamos totales en el caso de que se comparen dos a<>os
|
||
if not varIsNull(Ano2) then
|
||
begin
|
||
if FTotAno21 <> 0 then
|
||
pnlA2T1.Caption := FormatFloat(DISPLAY_EUROS2, FTotAno21);
|
||
if FTotAno22 <> 0 then
|
||
pnlA2T2.Caption := FormatFloat(DISPLAY_EUROS2, FTotAno22);
|
||
|
||
FTotAno23 := CalcularResta(FTotAno21, FTotAno22);
|
||
if FTotAno23 < 0 then
|
||
pnlA2T3.Font.Color := COLOR_NEGATIVO
|
||
else
|
||
pnlA2T3.Font.Color := COLOR_POSITIVO;
|
||
if FTotAno23 <> 0 then
|
||
pnlA2T3.Caption := FormatFloat(DISPLAY_EUROS2, FTotAno23);
|
||
|
||
FTotAno24 := CalcularPorcentaje(FTotAno21, FTotAno23, False);
|
||
if FTotAno24 < 0 then
|
||
pnlA2T4.Font.Color := COLOR_PORCENTAJENEG
|
||
else
|
||
pnlA2T4.Font.Color := COLOR_PORCENTAJEPOS;
|
||
if FTotAno24 <> 0 then
|
||
pnlA2T4.Caption := FormatFloat(DISPLAY_PORCENTAJE, FTotAno24);
|
||
|
||
FTotAno31 := CalcularResta(FTotAno11, FTotAno21);
|
||
if FTotAno31 < 0 then
|
||
pnlA3T1.Font.Color := COLOR_NEGATIVO
|
||
else
|
||
pnlA3T1.Font.Color := COLOR_POSITIVO;
|
||
if FTotAno31 <> 0 then
|
||
pnlA3T1.Caption := FormatFloat(DISPLAY_EUROS2, FTotAno31);
|
||
|
||
FTotAno32 := CalcularResta(FTotAno12, FTotAno22);
|
||
if FTotAno32 < 0 then
|
||
pnlA3T2.Font.Color := COLOR_NEGATIVO
|
||
else
|
||
pnlA3T2.Font.Color := COLOR_POSITIVO;
|
||
if FTotAno32 <> 0 then
|
||
pnlA3T2.Caption := FormatFloat(DISPLAY_EUROS2, FTotAno32);
|
||
|
||
FTotAno33 := CalcularResta(FTotAno13, FTotAno23);
|
||
if FTotAno33 < 0 then
|
||
pnlA3T3.Font.Color := COLOR_NEGATIVO
|
||
else
|
||
pnlA3T3.Font.Color := COLOR_POSITIVO;
|
||
if FTotAno33 <> 0 then
|
||
pnlA3T3.Caption := FormatFloat(DISPLAY_EUROS2, FTotAno33);
|
||
end;
|
||
|
||
for i:=0 to DBChart1.SeriesList.CountActive-1 do
|
||
begin
|
||
Aux2 := DBChart1.SeriesList.Series[i].Title;
|
||
case i of
|
||
0,3: begin
|
||
if i=0
|
||
then DBChart1.SeriesList.Series[i].Title := (CTE_ING + ' ' + cbxFiltro2.Text)
|
||
else DBChart1.SeriesList.Series[i].Title := (CTE_ING + ' ' + cbxFiltro3.Text);
|
||
DBChart1.SeriesList.Series[i].XLabelsSource := CTE_CAMPO2;
|
||
DBChart1.SeriesList.Series[i].XValues.ValueSource := CTE_CAMPO1;
|
||
DBChart1.SeriesList.Series[i].YValues.ValueSource := 'INGRESOS';
|
||
end;
|
||
1,4: begin
|
||
if i=1
|
||
then DBChart1.SeriesList.Series[i].Title := (CTE_GAS + ' ' + cbxFiltro2.Text)
|
||
else DBChart1.SeriesList.Series[i].Title := (CTE_GAS + ' ' + cbxFiltro3.Text);
|
||
DBChart1.SeriesList.Series[i].XLabelsSource := CTE_CAMPO2;
|
||
DBChart1.SeriesList.Series[i].XValues.ValueSource := CTE_CAMPO1;
|
||
DBChart1.SeriesList.Series[i].YValues.ValueSource := 'GASTOS';
|
||
end;
|
||
2,5: begin
|
||
if i=2
|
||
then DBChart1.SeriesList.Series[i].Title := (CTE_BEN + ' ' + cbxFiltro2.Text)
|
||
else DBChart1.SeriesList.Series[i].Title := (CTE_BEN + ' ' + cbxFiltro3.Text);
|
||
DBChart1.SeriesList.Series[i].XLabelsSource := CTE_CAMPO2;
|
||
DBChart1.SeriesList.Series[i].XValues.ValueSource := CTE_CAMPO1;
|
||
DBChart1.SeriesList.Series[i].YValues.ValueSource := 'BENEFICIOS';
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
function TfrInformeEstBeneficios.CalcularPre(const pSituacion: String; var TotalAno1: Double;
|
||
var TotalAno2: Double): Boolean;
|
||
var
|
||
oSQL: TIBSQL;
|
||
Semaforo: Boolean; //Semaforo para controlar la pasada del Ano2 y asi empezar
|
||
Contador: Integer; //a compara con los datos de la tabla de memoria en lugar de
|
||
//el recordset
|
||
begin
|
||
Result := False;
|
||
Semaforo := False;
|
||
|
||
//PREPARAMOS LA SENTENCIA SQL A LANZAR
|
||
oSQL := TIBSQL.Create(Self);
|
||
with oSQL do
|
||
begin
|
||
Database := dmBaseDatos.BD;
|
||
Transaction := dmBaseDatos.Transaccion;
|
||
|
||
SQL.Add('select EXTRACT(YEAR FROM P.FECHAALTA) as ANO');
|
||
//Calculamos el intervalo correspondiente a cada una de las posibilidades
|
||
Case Intervalo of
|
||
tiMensual : SQL.Add(',EXTRACT(MONTH FROM FECHAALTA) as NFILA');
|
||
tiTrimestral : SQL.Add(',CAST((DIV(EXTRACT(MONTH FROM FECHAALTA),4)+1) AS SMALLINT) as NFILA');
|
||
tiSemestral : SQL.Add(',CAST((DIV(EXTRACT(MONTH FROM FECHAALTA),8)+1) AS SMALLINT) as NFILA');
|
||
end;
|
||
|
||
if pSituacion = 'INGRESOS' then
|
||
begin
|
||
SQL.Add(',SUM(P.IMPORTETOTAL) as INGRESOS');
|
||
SQL.Add('from FACTURASCLIENTE P');
|
||
end
|
||
else
|
||
begin
|
||
SQL.Add(',SUM(P.IMPORTETOTAL) as GASTOS');
|
||
SQL.Add('from FACTURASPROVEEDOR P');
|
||
end;
|
||
|
||
SQL.Add('where P.CODIGOEMPRESA = :CODIGOEMPRESA');
|
||
SQL.Add('and (EXTRACT(YEAR FROM P.FECHAALTA) = :ANO1');
|
||
SQL.Add('or EXTRACT(YEAR FROM P.FECHAALTA) = :ANO2)');
|
||
SQL.Add('group by 1,2');
|
||
|
||
if (not VarIsNull(Ano2)) and (Ano1 < Ano2)
|
||
then SQL.Add('order by 1,2 asc')
|
||
else SQL.Add('order by 1 desc,2 asc');
|
||
try
|
||
ParamByName('CODIGOEMPRESA').AsString := EmpresaActiva.Codigo;
|
||
ParamByName('ANO1').AsString := Ano1;
|
||
//En el caso de no compara con otro a<>o se busca solo el a<>o1
|
||
if VarIsNull(Ano2)
|
||
then ParamByName('ANO2').AsString := Ano1
|
||
else ParamByName('ANO2').AsString := Ano2;
|
||
Prepare;
|
||
ExecQuery;
|
||
|
||
//Rellenamos los grid resultado
|
||
TMemAnoCom1.First;
|
||
TMemAnoCom2.First;
|
||
TMemComparativa.First;
|
||
TMemGraficoAno1.First;
|
||
TMemGraficoAno2.First;
|
||
|
||
//Inicio de recorrido del resultado
|
||
while not EOF do begin
|
||
|
||
//Rellenamos los datos del A<>o1
|
||
if (FieldByName('ANO').AsString = Ano1) then
|
||
begin
|
||
//En el caso de solo tener datos en ciertos intervalos, los que no tienen datos los
|
||
//rellenamos no los rellenamos
|
||
while TMemAnoCom1.FieldByName(CTE_CAMPO1).AsInteger <> FieldByName(CTE_CAMPO1).AsInteger do
|
||
begin
|
||
TMemAnoCom1.Next;
|
||
TMemGraficoAno1.Next;
|
||
end;
|
||
//Metemos el dato obtenido en la sql en su intervalo correspondiente
|
||
TMemAnoCom1.Edit;
|
||
TMemAnoCom1.FieldByName(pSituacion).AsFloat := FieldByName(pSituacion).AsFloat;
|
||
TMemAnoCom1.Post;
|
||
TMemGraficoAno1.Edit;
|
||
TMemGraficoAno1.FieldByName(pSituacion).AsFloat := FieldByName(pSituacion).AsFloat;
|
||
TMemGraficoAno1.Post;
|
||
//Vamos incrementando la suma total
|
||
TotalAno1 := TotalAno1 + FieldByName(pSituacion).AsFloat;
|
||
TMemAnoCom1.Next;
|
||
TMemGraficoAno1.Next;
|
||
end
|
||
|
||
//Rellenamos los datos del A<>o2
|
||
else
|
||
begin
|
||
//Si es la primera tupla del recordset de este a<>o establecemos el semaforo
|
||
//y la tabla de datos del A<>o1 en el primer elemento para tener en cuenta los
|
||
//datos de dicha tabla en lugar de los del recordset para el A<>o1
|
||
if not Semaforo then
|
||
begin
|
||
TMemAnoCom1.First;
|
||
Semaforo := True;
|
||
end
|
||
else
|
||
TMemAnoCom1.Next;
|
||
|
||
//En el caso de solo tener datos en ciertos intervalos, los que no tienen datos los
|
||
//no los rellenamos
|
||
while TMemAnoCom2.FieldByName(CTE_CAMPO1).AsInteger <> FieldByName(CTE_CAMPO1).AsInteger do
|
||
begin
|
||
//Calculamos TablaComaprativa
|
||
//En el caso de no existir el valor en A<>o1 o A<>o2 de este determinado intervalo
|
||
//no rellenariamos calculo ninguno
|
||
if (not VarIsNull(TMemAnoCom1.FieldByName(pSituacion).AsVariant))
|
||
and (not VarIsNull(TMemAnoCom2.FieldByName(pSituacion).AsVariant)) then
|
||
begin
|
||
TMemComparativa.Edit;
|
||
TMemComparativa.FieldByName(pSituacion).AsFloat := TMemAnoCom1.FieldByName(pSituacion).AsFloat;
|
||
TMemComparativa.Post;
|
||
end;
|
||
TMemComparativa.Next;
|
||
TMemAnoCom2.Next;
|
||
TMemAnoCom1.Next;
|
||
TMemGraficoAno2.Next;
|
||
end;
|
||
|
||
//Metemos el dato obtenido en la sql en su intervalo correspondiente y calculamos
|
||
TMemAnoCom2.Edit;
|
||
TMemAnoCom2.FieldByName(pSituacion).AsFloat := FieldByName(pSituacion).AsFloat;
|
||
TMemAnoCom2.Post;
|
||
TMemGraficoAno2.Edit;
|
||
TMemGraficoAno2.FieldByName(pSituacion).AsFloat := FieldByName(pSituacion).AsFloat;
|
||
TMemGraficoAno2.Post;
|
||
//Calculamos TablaComaprativa
|
||
//En el caso de no existir el valor en A<>o1 o A<>o2 de este determinado intervalo
|
||
//no rellenariamos calculo ninguno
|
||
if (not VarIsNull(TMemAnoCom1.FieldByName(pSituacion).AsVariant))
|
||
and (not VarIsNull(TMemAnoCom2.FieldByName(pSituacion).AsVariant)) then
|
||
begin
|
||
TMemComparativa.Edit;
|
||
TMemComparativa.FieldByName(pSituacion).AsFloat := CalcularResta(TMemAnoCom1.FieldByName(pSituacion).AsFloat, TMemAnoCom2.FieldByName(pSituacion).AsFloat);
|
||
TMemComparativa.Post;
|
||
end;
|
||
//Vamos incrementando la suma total
|
||
TotalAno2 := TotalAno2 + FieldByName(pSituacion).AsFloat;
|
||
TMemComparativa.Next;
|
||
TMemAnoCom2.Next;
|
||
TMemGraficoAno2.Next;
|
||
end;
|
||
|
||
Next;
|
||
end;
|
||
//Fin de recorrido del resultado
|
||
Result := True;
|
||
finally
|
||
Close;
|
||
Transaction := NIL;
|
||
Free;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
function TfrInformeEstBeneficios.FinalizarResumenes: Boolean;
|
||
begin
|
||
//
|
||
end;
|
||
|
||
procedure TfrInformeEstBeneficios.gridCustomDrawCell(Sender: TObject;
|
||
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
||
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
|
||
var AText: String; var AColor: TColor; AFont: TFont;
|
||
var AAlignment: TAlignment; var ADone: Boolean);
|
||
var
|
||
IndiceCol: Integer;
|
||
|
||
begin
|
||
inherited;
|
||
|
||
if ((Sender as TdxDBGrid).Name = gridAnoCom1.Name)
|
||
or ((Sender as TdxDBGrid).Name = gridAnoCom2.Name)
|
||
or ((Sender as TdxDBGrid).Name = gridComparativa.Name) then
|
||
begin
|
||
if (AColumn.Caption = 'INGRESOS') then
|
||
begin
|
||
IndiceCol := (Sender as TdxDBGrid).ColumnByFieldName('INGRESOS').Index;
|
||
if (ANode.Values[IndiceCol] < 0) then
|
||
AFont.Color := COLOR_NEGATIVO
|
||
else
|
||
AFont.Color := COLOR_POSITIVO;
|
||
end;
|
||
|
||
if (AColumn.Caption = 'GASTOS') then
|
||
begin
|
||
IndiceCol := (Sender as TdxDBGrid).ColumnByFieldName('GASTOS').Index;
|
||
if (ANode.Values[IndiceCol] < 0) then
|
||
AFont.Color := COLOR_NEGATIVO
|
||
else
|
||
AFont.Color := COLOR_POSITIVO;
|
||
end;
|
||
|
||
if (AColumn.Caption = 'BENEFICIOS') then
|
||
begin
|
||
IndiceCol := (Sender as TdxDBGrid).ColumnByFieldName('BENEFICIOS').Index;
|
||
if (ANode.Values[IndiceCol] < 0) then
|
||
AFont.Color := COLOR_NEGATIVO
|
||
else
|
||
AFont.Color := COLOR_POSITIVO;
|
||
end;
|
||
|
||
if (AColumn.Caption = 'PORCENTAJE') then
|
||
begin
|
||
IndiceCol := (Sender as TdxDBGrid).ColumnByFieldName('PORCENTAJE').Index;
|
||
if (ANode.Values[IndiceCol] < 0) then
|
||
AFont.Color := COLOR_PORCENTAJENEG
|
||
else
|
||
AFont.Color := COLOR_PORCENTAJEPOS;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
function TfrInformeEstBeneficios.InicializarCamposTMem: Boolean;
|
||
begin
|
||
inherited InicializarCamposTMem;
|
||
|
||
//ANO1
|
||
TMemAnoCom1.FieldDefs.Add('INGRESOS',ftFloat);
|
||
TMemAnoCom1.FieldDefs.Items[TMemAnoCom1.FieldDefs.IndexOf('INGRESOS')].CreateField(Self);
|
||
TMemAnoCom1.FieldDefs.Add('GASTOS',ftFloat);
|
||
TMemAnoCom1.FieldDefs.Items[TMemAnoCom1.FieldDefs.IndexOf('GASTOS')].CreateField(Self);
|
||
TMemAnoCom1.FieldDefs.Add('BENEFICIOS',ftFloat);
|
||
TMemAnoCom1.FieldDefs.Items[TMemAnoCom1.FieldDefs.IndexOf('BENEFICIOS')].CreateField(Self);
|
||
TMemAnoCom1.FieldDefs.Add('PORCENTAJE',ftFloat);
|
||
TMemAnoCom1.FieldDefs.Items[TMemAnoCom1.FieldDefs.IndexOf('PORCENTAJE')].CreateField(Self);
|
||
|
||
//ANO2
|
||
TMemAnoCom2.FieldDefs.Add('INGRESOS',ftFloat);
|
||
TMemAnoCom2.FieldDefs.Items[TMemAnoCom2.FieldDefs.IndexOf('INGRESOS')].CreateField(Self);
|
||
TMemAnoCom2.FieldDefs.Add('GASTOS',ftFloat);
|
||
TMemAnoCom2.FieldDefs.Items[TMemAnoCom2.FieldDefs.IndexOf('GASTOS')].CreateField(Self);
|
||
TMemAnoCom2.FieldDefs.Add('BENEFICIOS',ftFloat);
|
||
TMemAnoCom2.FieldDefs.Items[TMemAnoCom2.FieldDefs.IndexOf('BENEFICIOS')].CreateField(Self);
|
||
TMemAnoCom2.FieldDefs.Add('PORCENTAJE',ftFloat);
|
||
TMemAnoCom2.FieldDefs.Items[TMemAnoCom2.FieldDefs.IndexOf('PORCENTAJE')].CreateField(Self);
|
||
|
||
//COMPARATIVA
|
||
TMemComparativa.FieldDefs.Add('INGRESOS',ftFloat);
|
||
TMemComparativa.FieldDefs.Items[TMemComparativa.FieldDefs.IndexOf('INGRESOS')].CreateField(Self);
|
||
TMemComparativa.FieldDefs.Add('GASTOS',ftFloat);
|
||
TMemComparativa.FieldDefs.Items[TMemComparativa.FieldDefs.IndexOf('GASTOS')].CreateField(Self);
|
||
TMemComparativa.FieldDefs.Add('BENEFICIOS',ftFloat);
|
||
TMemComparativa.FieldDefs.Items[TMemComparativa.FieldDefs.IndexOf('BENEFICIOS')].CreateField(Self);
|
||
|
||
//Grafico
|
||
TMemGraficoAno1.FieldDefs.Add('INGRESOS',ftFloat);
|
||
TMemGraficoAno1.FieldDefs.Items[TMemGraficoAno1.FieldDefs.IndexOf('INGRESOS')].CreateField(Self);
|
||
TMemGraficoAno1.FieldDefs.Add('GASTOS',ftFloat);
|
||
TMemGraficoAno1.FieldDefs.Items[TMemGraficoAno1.FieldDefs.IndexOf('GASTOS')].CreateField(Self);
|
||
TMemGraficoAno1.FieldDefs.Add('BENEFICIOS',ftFloat);
|
||
TMemGraficoAno1.FieldDefs.Items[TMemGraficoAno1.FieldDefs.IndexOf('BENEFICIOS')].CreateField(Self);
|
||
|
||
TMemGraficoAno2.FieldDefs.Add('INGRESOS',ftFloat);
|
||
TMemGraficoAno2.FieldDefs.Items[TMemGraficoAno2.FieldDefs.IndexOf('INGRESOS')].CreateField(Self);
|
||
TMemGraficoAno2.FieldDefs.Add('GASTOS',ftFloat);
|
||
TMemGraficoAno2.FieldDefs.Items[TMemGraficoAno2.FieldDefs.IndexOf('GASTOS')].CreateField(Self);
|
||
TMemGraficoAno2.FieldDefs.Add('BENEFICIOS',ftFloat);
|
||
TMemGraficoAno2.FieldDefs.Items[TMemGraficoAno1.FieldDefs.IndexOf('BENEFICIOS')].CreateField(Self);
|
||
end;
|
||
|
||
function TfrInformeEstBeneficios.InicializarFiltros: Boolean;
|
||
begin
|
||
inherited InicializarFiltros;
|
||
AnosMem := dmTablaFacturasCliente.DarListaAnos(EmpresaActiva.Codigo, False);
|
||
|
||
cbxFiltroGrafico.Items.Append(CTE_TODOS);
|
||
cbxFiltroGrafico.Items.Append(CTE_ING);
|
||
cbxFiltroGrafico.Items.Append(CTE_GAS);
|
||
cbxFiltroGrafico.Items.Append(CTE_BEN);
|
||
cbxFiltroGrafico.ItemIndex := 0;
|
||
DBChart1.Title.Text.Text := CTE_TODOS;
|
||
end;
|
||
|
||
function TfrInformeEstBeneficios.InicializarGrids: Boolean;
|
||
var
|
||
Columna : TdxDBTreeListColumn;
|
||
|
||
begin
|
||
inherited InicializarGrids;
|
||
|
||
//Titulo general
|
||
cGeneral.Caption := msgInfEstBeneficios;
|
||
|
||
//ANO1
|
||
Columna := gridAnoCom1.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'INGRESOS';
|
||
Columna.Caption := 'INGRESOS';
|
||
Columna.Width := tamColPrecio5;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_EUROS2;
|
||
|
||
Columna := gridAnoCom1.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'GASTOS';
|
||
Columna.Caption := 'GASTOS';
|
||
Columna.Width := tamColPrecio5;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_EUROS2;
|
||
|
||
Columna := gridAnoCom1.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'BENEFICIOS';
|
||
Columna.Caption := 'BENEFICIOS';
|
||
Columna.Width := tamColPrecio5;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_EUROS2;
|
||
|
||
Columna := gridAnoCom1.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'PORCENTAJE';
|
||
Columna.Caption := 'PORCENTAJE';
|
||
Columna.Width := tamColPorcentaje3;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_PORCENTAJE;
|
||
|
||
//ANO2
|
||
Columna := gridAnoCom2.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'INGRESOS';
|
||
Columna.Caption := 'INGRESOS';
|
||
Columna.Width := tamColPrecio5;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_EUROS2;
|
||
|
||
Columna := gridAnoCom2.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'GASTOS';
|
||
Columna.Caption := 'GASTOS';
|
||
Columna.Width := tamColPrecio5;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_EUROS2;
|
||
|
||
Columna := gridAnoCom2.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'BENEFICIOS';
|
||
Columna.Caption := 'BENEFICIOS';
|
||
Columna.Width := tamColPrecio5;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_EUROS2;
|
||
|
||
Columna := gridAnoCom2.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'PORCENTAJE';
|
||
Columna.Caption := 'PORCENTAJE';
|
||
Columna.Width := tamColPorcentaje3;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_PORCENTAJE;
|
||
|
||
//COMPARATIVA
|
||
Columna := gridComparativa.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'INGRESOS';
|
||
Columna.Caption := 'INGRESOS';
|
||
Columna.Width := tamColPrecio5;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_EUROS2;
|
||
|
||
Columna := gridComparativa.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'GASTOS';
|
||
Columna.Caption := 'GASTOS';
|
||
Columna.Width := tamColPrecio5;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_EUROS2;
|
||
|
||
Columna := gridComparativa.CreateColumn(TdxDBGridCurrencyColumn);
|
||
Columna.FieldName := 'BENEFICIOS';
|
||
Columna.Caption := 'BENEFICIOS';
|
||
Columna.Width := tamColPrecio5;
|
||
(Columna as TdxDBGridCurrencyColumn).DisplayFormat := DISPLAY_EUROS2;
|
||
|
||
gridIntervalo.ShowHeader := False;
|
||
gridAnoCom1.ShowHeader := False;
|
||
gridAnoCom2.ShowHeader := False;
|
||
gridComparativa.ShowHeader := False;
|
||
end;
|
||
|
||
function TfrInformeEstBeneficios.InicializarResumenes: Boolean;
|
||
begin
|
||
//
|
||
end;
|
||
|
||
procedure TfrInformeEstBeneficios.limpiarTotales;
|
||
begin
|
||
pnlA1T1.Caption := '';
|
||
pnlA1T2.Caption := '';
|
||
pnlA1T3.Caption := '';
|
||
pnlA1T4.Caption := '';
|
||
pnlA2T1.Caption := '';
|
||
pnlA2T2.Caption := '';
|
||
pnlA2T3.Caption := '';
|
||
pnlA2T4.Caption := '';
|
||
pnlA3T1.Caption := '';
|
||
pnlA3T2.Caption := '';
|
||
pnlA3T3.Caption := '';
|
||
end;
|
||
|
||
function TfrInformeEstBeneficios.RefrescarResumenes: Boolean;
|
||
begin
|
||
//
|
||
end;
|
||
|
||
procedure TfrInformeEstBeneficios.bCancelarClick(Sender: TObject);
|
||
begin
|
||
CloseFrame;
|
||
end;
|
||
|
||
procedure TfrInformeEstBeneficios.bImprimirClick(Sender: TObject);
|
||
var
|
||
lInforme: TdmInfEstReportBeneficios;
|
||
DatosGenerales: TRxMemoryData;
|
||
|
||
begin
|
||
try
|
||
//Creamos informe
|
||
lInforme:= TdmInfEstReportBeneficios.Create(Self);
|
||
|
||
//Asignamos la informaci<63>n al informe
|
||
lInforme.Ano1 := Ano1;
|
||
lInforme.Ano2 := Ano2;
|
||
//Creamos una tabla con todos los datos del informe general, y la pasamos
|
||
//al informe para que la copie, luego los destruimos
|
||
DatosGenerales := GenerarTablaInforme;
|
||
lInforme.setDatosGeneral(DatosGenerales);
|
||
lInforme.A1T1 := pnlA1T1.Caption;
|
||
lInforme.A1T2 := pnlA1T2.Caption;
|
||
lInforme.A1T3 := pnlA1T3.Caption;
|
||
lInforme.A1T4 := pnlA1T4.Caption;
|
||
lInforme.A2T1 := pnlA2T1.Caption;
|
||
lInforme.A2T2 := pnlA2T2.Caption;
|
||
lInforme.A2T3 := pnlA2T3.Caption;
|
||
lInforme.A2T4 := pnlA2T4.Caption;
|
||
lInforme.A3T1 := pnlA3T1.Caption;
|
||
lInforme.A3T2 := pnlA3T2.Caption;
|
||
lInforme.A3T3 := pnlA3T3.Caption;
|
||
|
||
//Creamos una imagen del grafico para luego insertarla en el informe
|
||
lInforme.Fichero := DarFicheroBMPTemporal;
|
||
DBChart1.SaveToBitmapFile(lInforme.Fichero);
|
||
|
||
//Imprimimos
|
||
// lInforme.Previsualizar;
|
||
lInforme.Imprimir;
|
||
finally
|
||
FreeAndNil(DatosGenerales);
|
||
DeleteFile(lInforme.Fichero);
|
||
FreeAndNil(lInforme);
|
||
end;
|
||
end;
|
||
|
||
function TfrInformeEstBeneficios.GenerarTablaInforme: TRxMemoryData;
|
||
var
|
||
TablaAux: TRxMemoryData;
|
||
begin
|
||
//Creamos la tabla con los campos que vamos a tener
|
||
TablaAux:= TRxMemoryData.Create(Self);
|
||
with TablaAux do
|
||
begin
|
||
FieldDefs.Add('TITINTERVALO',ftString,20);
|
||
FieldDefs.Items[FieldDefs.IndexOf('TITINTERVALO')].CreateField(Self);
|
||
FieldDefs.Add('ANO1INGRESOS',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO1INGRESOS')].CreateField(Self);
|
||
FieldDefs.Add('ANO1GASTOS',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO1GASTOS')].CreateField(Self);
|
||
FieldDefs.Add('ANO1BENEFICIOS',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO1BENEFICIOS')].CreateField(Self);
|
||
FieldDefs.Add('ANO1PORCENTAJE',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO1PORCENTAJE')].CreateField(Self);
|
||
|
||
FieldDefs.Add('ANO2INGRESOS',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO2INGRESOS')].CreateField(Self);
|
||
FieldDefs.Add('ANO2GASTOS',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO2GASTOS')].CreateField(Self);
|
||
FieldDefs.Add('ANO2BENEFICIOS',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO2BENEFICIOS')].CreateField(Self);
|
||
FieldDefs.Add('ANO2PORCENTAJE',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO2PORCENTAJE')].CreateField(Self);
|
||
|
||
FieldDefs.Add('ANO3INGRESOS',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO3INGRESOS')].CreateField(Self);
|
||
FieldDefs.Add('ANO3GASTOS',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO3GASTOS')].CreateField(Self);
|
||
FieldDefs.Add('ANO3BENEFICIOS',ftString,50);
|
||
FieldDefs.Items[FieldDefs.IndexOf('ANO3BENEFICIOS')].CreateField(Self);
|
||
end;
|
||
|
||
TablaAux.Open;
|
||
|
||
//Rellenamos el campo TITINTERVALO
|
||
with TMemIntervalo do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
TablaAux.Append;
|
||
TablaAux.FieldByName('TITINTERVALO').AsString := FieldByName('TITINTERVALO').AsString;
|
||
TablaAux.Post;
|
||
Next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
|
||
//Rellenamos los campos ANO1INGRESOS, ANO1GASTOS, ANO1BENEFICIOS, ANO1PORCENTAJE
|
||
with TMemAnoCom1 do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
TablaAux.First;
|
||
while not Eof do
|
||
begin
|
||
TablaAux.Edit;
|
||
TablaAux.FieldByName('ANO1INGRESOS').AsString := FieldByName('INGRESOS').AsString;
|
||
TablaAux.FieldByName('ANO1GASTOS').AsString := FieldByName('GASTOS').AsString;
|
||
TablaAux.FieldByName('ANO1BENEFICIOS').AsString := FieldByName('BENEFICIOS').AsString;
|
||
TablaAux.FieldByName('ANO1PORCENTAJE').AsString := FieldByName('PORCENTAJE').AsString;
|
||
TablaAux.Post;
|
||
TablaAux.Next;
|
||
Next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
|
||
//Rellenamos los campos ANO2INGRESOS, ANO2GASTOS, ANO2BENEFICIOS, ANO2PORCENTAJE
|
||
with TMemAnoCom2 do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
TablaAux.First;
|
||
while not Eof do
|
||
begin
|
||
TablaAux.Edit;
|
||
TablaAux.FieldByName('ANO2INGRESOS').AsString := FieldByName('INGRESOS').AsString;
|
||
TablaAux.FieldByName('ANO2GASTOS').AsString := FieldByName('GASTOS').AsString;
|
||
TablaAux.FieldByName('ANO2BENEFICIOS').AsString := FieldByName('BENEFICIOS').AsString;
|
||
TablaAux.FieldByName('ANO2PORCENTAJE').AsString := FieldByName('PORCENTAJE').AsString;
|
||
TablaAux.Post;
|
||
TablaAux.Next;
|
||
Next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
|
||
//Rellenamos los campos ANO3INGRESOS, ANO3GASTOS, ANO3BENEFICIOS
|
||
with TMemComparativa do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
TablaAux.First;
|
||
while not Eof do
|
||
begin
|
||
TablaAux.Edit;
|
||
TablaAux.FieldByName('ANO3INGRESOS').AsString := FieldByName('INGRESOS').AsString;
|
||
TablaAux.FieldByName('ANO3GASTOS').AsString := FieldByName('GASTOS').AsString;
|
||
TablaAux.FieldByName('ANO3BENEFICIOS').AsString := FieldByName('BENEFICIOS').AsString;
|
||
TablaAux.Post;
|
||
TablaAux.Next;
|
||
Next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
|
||
Result:= TablaAux;
|
||
end;
|
||
|
||
function TfrInformeEstBeneficios.CalcularDifPor: Boolean;
|
||
begin
|
||
//Calculamos Beneficios y porcentajes de A<>o1
|
||
with TMemAnoCom1 do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
TMemGraficoAno1.First;
|
||
while not EOF do
|
||
begin
|
||
if (not VarIsNull(FieldByName('INGRESOS').AsVariant)) then
|
||
begin
|
||
Edit;
|
||
FieldByName('BENEFICIOS').AsFloat := CalcularResta(FieldByName('INGRESOS').AsFloat, FieldByName('GASTOS').AsFloat);
|
||
FieldByName('PORCENTAJE').AsFloat := CalcularPorcentaje(FieldByName('INGRESOS').AsFloat,FieldByName('BENEFICIOS').AsFloat, False);
|
||
Post;
|
||
TMemGraficoAno1.Edit;
|
||
TMemGraficoAno1.FieldByName('BENEFICIOS').AsFloat := FieldByName('BENEFICIOS').AsFloat;
|
||
TMemGraficoAno1.Post;
|
||
end;
|
||
Next;
|
||
TMemGraficoAno1.Next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
|
||
//Calculamos Beneficios y porcentajes de A<>o2
|
||
with TMemAnoCom2 do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
TMemGraficoAno2.First;
|
||
while not EOF do
|
||
begin
|
||
if (not VarIsNull(FieldByName('INGRESOS').AsVariant)) then
|
||
begin
|
||
Edit;
|
||
FieldByName('BENEFICIOS').AsFloat := CalcularResta(FieldByName('INGRESOS').AsFloat, FieldByName('GASTOS').AsFloat);
|
||
FieldByName('PORCENTAJE').AsFloat := CalcularPorcentaje(FieldByName('INGRESOS').AsFloat,FieldByName('BENEFICIOS').AsFloat, False);
|
||
Post;
|
||
TMemGraficoAno2.Edit;
|
||
TMemGraficoAno2.FieldByName('BENEFICIOS').AsFloat := FieldByName('BENEFICIOS').AsFloat;
|
||
TMemGraficoAno2.Post;
|
||
end;
|
||
Next;
|
||
TMemGraficoAno2.Next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
|
||
//Calculamos Beneficios y porcentajes de Comparativa
|
||
with TMemComparativa do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
TMemAnoCom1.First;
|
||
TMemAnoCom2.First;
|
||
while not EOF do
|
||
begin
|
||
if (not VarIsNull(TMemAnoCom1.FieldByName('BENEFICIOS').AsVariant))
|
||
and (not VarIsNull(TMemAnoCom2.FieldByName('BENEFICIOS').AsVariant)) then
|
||
begin
|
||
Edit;
|
||
FieldByName('BENEFICIOS').AsFloat := CalcularResta(TMemAnoCom1.FieldByName('BENEFICIOS').AsFloat, TMemAnoCom2.FieldByName('BENEFICIOS').AsFloat);
|
||
Post;
|
||
end;
|
||
Next;
|
||
TMemAnoCom1.Next;
|
||
TMemAnoCom2.Next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrInformeEstBeneficios.cbxFiltroGraficoChange(Sender: TObject);
|
||
begin
|
||
if cbxFiltroGrafico.Text = CTE_TODOS then
|
||
begin
|
||
DBChart1.SeriesList.Series[0].Active := True;
|
||
DBChart1.SeriesList.Series[1].Active := True;
|
||
DBChart1.SeriesList.Series[2].Active := True;
|
||
DBChart1.SeriesList.Series[3].Active := True;
|
||
DBChart1.SeriesList.Series[4].Active := True;
|
||
DBChart1.SeriesList.Series[5].Active := True;
|
||
DBChart1.Title.Text.Text := CTE_TODOS;
|
||
end
|
||
else if cbxFiltroGrafico.Text = CTE_ING then
|
||
begin
|
||
DBChart1.SeriesList.Series[0].Active := True;
|
||
DBChart1.SeriesList.Series[1].Active := False;
|
||
DBChart1.SeriesList.Series[2].Active := False;
|
||
DBChart1.SeriesList.Series[3].Active := True;
|
||
DBChart1.SeriesList.Series[4].Active := False;
|
||
DBChart1.SeriesList.Series[5].Active := False;
|
||
DBChart1.Title.Text.Text := CTE_ING;
|
||
end
|
||
else if cbxFiltroGrafico.Text = CTE_GAS then
|
||
begin
|
||
DBChart1.SeriesList.Series[0].Active := False;
|
||
DBChart1.SeriesList.Series[1].Active := True;
|
||
DBChart1.SeriesList.Series[2].Active := False;
|
||
DBChart1.SeriesList.Series[3].Active := False;
|
||
DBChart1.SeriesList.Series[4].Active := True;
|
||
DBChart1.SeriesList.Series[5].Active := False;
|
||
DBChart1.Title.Text.Text := CTE_GAS;
|
||
end
|
||
else if cbxFiltroGrafico.Text = CTE_BEN then
|
||
begin
|
||
DBChart1.SeriesList.Series[0].Active := False;
|
||
DBChart1.SeriesList.Series[1].Active := False;
|
||
DBChart1.SeriesList.Series[2].Active := True;
|
||
DBChart1.SeriesList.Series[3].Active := False;
|
||
DBChart1.SeriesList.Series[4].Active := False;
|
||
DBChart1.SeriesList.Series[5].Active := True;
|
||
DBChart1.Title.Text.Text := CTE_BEN;
|
||
end;
|
||
end;
|
||
|
||
constructor TfrInformeEstBeneficios.Create(AOwner: TComponent);
|
||
begin
|
||
inherited;
|
||
Entidad := entInfEstBeneficios;
|
||
ConfigurarFrame(Self, Self.Entidad);
|
||
end;
|
||
|
||
procedure TfrInformeEstBeneficios.SetAno2(const Value: Variant);
|
||
begin
|
||
inherited;
|
||
if not VarIsNull(Ano2) then
|
||
etiComp.Caption := msgInfEstTit31 + IntToStr(Ano1) + msgInfEstTit32 + IntToStr(Ano2)
|
||
else
|
||
etiComp.Caption := '';
|
||
end;
|
||
|
||
end.
|