Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se arreglan algunos detalles de nombres

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1033 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2011-02-09 18:50:25 +00:00
parent 022e5c1980
commit b3c8e0cb28
16 changed files with 403 additions and 418 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,8,7,0 FILEVERSION 1,8,8,0
PRODUCTVERSION 1,8,7,0 PRODUCTVERSION 1,8,8,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.8.7.0\0" VALUE "FileVersion", "1.8.8.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.8.7.0\0" VALUE "ProductVersion", "1.8.8.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.res
View File

Binary file not shown.

10
Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
View File

@ -24,6 +24,7 @@ type
procedure VerInformeListadoFacturasCli; procedure VerInformeListadoFacturasCli;
procedure VerInformeListadoFacturasCliPendientes; procedure VerInformeListadoFacturasCliPendientes;
procedure VerInformeFacturasCliGrafComp; procedure VerInformeFacturasCliGrafComp;
function DarListaAnosFacturasCli: TStringList;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
procedure VerInformeListadoRecibosCliPendientes; procedure VerInformeListadoRecibosCliPendientes;
@ -67,6 +68,7 @@ type
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
} }
property DataModule: IDataModuleGestorInformes read GetDataModule; property DataModule: IDataModuleGestorInformes read GetDataModule;
function DarListaIntervalos: TStringList;
//MODULO PRESUPUESTOS DE CLIENTE //MODULO PRESUPUESTOS DE CLIENTE
procedure VerInformeListadoPresupuestos; procedure VerInformeListadoPresupuestos;
@ -76,6 +78,7 @@ type
procedure VerInformeListadoFacturasCli; procedure VerInformeListadoFacturasCli;
procedure VerInformeListadoFacturasCliPendientes; procedure VerInformeListadoFacturasCliPendientes;
procedure VerInformeFacturasCliGrafComp; procedure VerInformeFacturasCliGrafComp;
function DarListaAnosFacturasCli: TStringList;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
procedure VerInformeListadoRecibosCliPendientes; procedure VerInformeListadoRecibosCliPendientes;
@ -89,9 +92,7 @@ type
procedure VerInformeListadoFacturasProv; procedure VerInformeListadoFacturasProv;
procedure VerInformeListadoFacturasProvPendientes; procedure VerInformeListadoFacturasProvPendientes;
procedure VerInformeFacturasProvGrafComp; procedure VerInformeFacturasProvGrafComp;
function DarListaAnosFacturasProv: TStringList; function DarListaAnosFacturasProv: TStringList;
function DarListaIntervalos: TStringList;
//MODULO RECIBOS DE PROVEEDOR //MODULO RECIBOS DE PROVEEDOR
procedure VerInformeListadoRecibosProvPendientes; procedure VerInformeListadoRecibosProvPendientes;
@ -275,6 +276,11 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end; end;
function TGestorInformesController.DarListaAnosFacturasCli: TStringList;
begin
Result := FDataModule.DarListaAnosFacturasCli;
end;
function TGestorInformesController.DarListaAnosFacturasProv: TStringList; function TGestorInformesController.DarListaAnosFacturasProv: TStringList;
begin begin
Result := FDataModule.DarListaAnosFacturasProv; Result := FDataModule.DarListaAnosFacturasProv;

2
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk
View File

@ -89,7 +89,7 @@ contains
uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm}, uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm},
uEditorInformePresupuestosReport in 'uEditorInformePresupuestosReport.pas' {fEditorInformePresupuestosReport: TForm}, uEditorInformePresupuestosReport in 'uEditorInformePresupuestosReport.pas' {fEditorInformePresupuestosReport: TForm},
uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame}, uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame},
uViewIntervaloComparativo in 'uViewIntervaloComparativo.pas' {TfrViewIntervaloComparativo: TFrame}, uViewIntervaloComparativo in 'uViewIntervaloComparativo.pas' {frViewIntervaloComparativo: TFrame},
uEditorInformeFacturasClienteReportGrafComp in 'uEditorInformeFacturasClienteReportGrafComp.pas' {fEditorInformeFacturasClienteReportGrafComp: TForm}, uEditorInformeFacturasClienteReportGrafComp in 'uEditorInformeFacturasClienteReportGrafComp.pas' {fEditorInformeFacturasClienteReportGrafComp: TForm},
uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm}; uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm};

7
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj
View File

@ -99,7 +99,10 @@
<Form>fEditorInformeFacturasProveedorReport</Form> <Form>fEditorInformeFacturasProveedorReport</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorInformeFacturasProveedorReportGrafComp.pas" /> <DCCReference Include="uEditorInformeFacturasProveedorReportGrafComp.pas">
<Form>fEditorInformeFacturasProveedorReportGrafComp</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeIVAClientesReport.pas"> <DCCReference Include="uEditorInformeIVAClientesReport.pas">
<Form>fEditorInformeIVAClientesReport</Form> <Form>fEditorInformeIVAClientesReport</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
@ -146,7 +149,7 @@
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewIntervaloComparativo.pas"> <DCCReference Include="uViewIntervaloComparativo.pas">
<Form>TfrViewIntervaloComparativo</Form> <Form>frViewIntervaloComparativo</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewParametrosInforme.pas"> <DCCReference Include="uViewParametrosInforme.pas">

15
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReportGrafComp.dfm
View File

@ -71,7 +71,7 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline TfrViewIntervaloComparativo1: TTfrViewIntervaloComparativo inline frViewIntervaloComparativo1: TfrViewIntervaloComparativo
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 188
@ -85,10 +85,9 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitTop = 195
inherited TBXAlignmentPanel2: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 172
end end
@ -97,17 +96,14 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166 Width = 166
end end
end end
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182
inherited lis: TLabel inherited lis: TLabel
Width = 172 Width = 172
end end
@ -116,13 +112,11 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166 Width = 166
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182
inherited Label1: TLabel inherited Label1: TLabel
Width = 172 Width = 172
end end
@ -131,7 +125,6 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166 Width = 166
end end
end end
@ -151,21 +144,17 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
TabOrder = 2 TabOrder = 2
ReadOnly = False ReadOnly = False
ExplicitTop = 182 ExplicitTop = 182
ExplicitWidth = 188
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirCliente: TBitBtn inherited bElegirCliente: TBitBtn
Width = 119 Width = 119
ExplicitWidth = 119
end end
inherited edtCliente: TcxTextEdit inherited edtCliente: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 152
Width = 152 Width = 152
end end
end end

38
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReportGrafComp.pas
View File

@ -20,7 +20,7 @@ uses
type type
TfEditorInformeFacturasClienteReportGrafComp = class(TfEditorInformeBase, IEditorInformeFacturasClienteReportGrafComp) TfEditorInformeFacturasClienteReportGrafComp = class(TfEditorInformeBase, IEditorInformeFacturasClienteReportGrafComp)
TBXItem58: TTBXItem; TBXItem58: TTBXItem;
TfrViewIntervaloComparativo1: TTfrViewIntervaloComparativo; frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
frViewFiltroClientes1: TfrViewFiltroClientes; frViewFiltroClientes1: TfrViewFiltroClientes;
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -84,17 +84,17 @@ end;
function TfEditorInformeFacturasClienteReportGrafComp.GetIntervalo: Variant; function TfEditorInformeFacturasClienteReportGrafComp.GetIntervalo: Variant;
begin begin
Result := TfrViewIntervaloComparativo1.cbIntervalo.EditValue; Result := frViewIntervaloComparativo1.cbIntervalo.EditValue;
end; end;
function TfEditorInformeFacturasClienteReportGrafComp.GetAno1: Variant; function TfEditorInformeFacturasClienteReportGrafComp.GetAno1: Variant;
begin begin
Result := TfrViewIntervaloComparativo1.cbAno1.EditValue; Result := frViewIntervaloComparativo1.cbAno1.EditValue;
end; end;
function TfEditorInformeFacturasClienteReportGrafComp.GetAno2: Variant; function TfEditorInformeFacturasClienteReportGrafComp.GetAno2: Variant;
begin begin
Result := TfrViewIntervaloComparativo1.cbAno2.EditValue; Result := frViewIntervaloComparativo1.cbAno2.EditValue;
end; end;
function TfEditorInformeFacturasClienteReportGrafComp.GetListaIDClientes: TIntegerArray; function TfEditorInformeFacturasClienteReportGrafComp.GetListaIDClientes: TIntegerArray;
@ -145,34 +145,34 @@ begin
inherited; inherited;
AListaIntervalos := (Controller as IGestorInformesController).DarListaIntervalos; AListaIntervalos := (Controller as IGestorInformesController).DarListaIntervalos;
AListaAnos := (Controller as IGestorInformesController).DarListaAnosFacturasProv; AListaAnos := (Controller as IGestorInformesController).DarListaAnosFacturasCli;
if Assigned(AListaIntervalos) then if Assigned(AListaIntervalos) then
begin begin
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate; frViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear; frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear;
for i := 0 to AListaIntervalos.Count - 1 do for i := 0 to AListaIntervalos.Count - 1 do
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]); frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]);
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate; frViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate;
end; end;
if Assigned(AListaAnos) then if Assigned(AListaAnos) then
begin begin
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate; frViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate; frViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.Clear; frViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.Clear; frViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
for i := 0 to AListaAnos.Count - 1 do for i := 0 to AListaAnos.Count - 1 do
begin begin
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]); frViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]); frViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);
end; end;
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate; frViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate; frViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate;
end; end;
TfrViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0; frViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0;
TfrViewIntervaloComparativo1.cbAno1.ItemIndex := 0; frViewIntervaloComparativo1.cbAno1.ItemIndex := 0;
end; end;
end. end.

16
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReportGrafComp.dfm
View File

@ -71,7 +71,7 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline TfrViewIntervaloComparativo1: TTfrViewIntervaloComparativo inline frViewIntervaloComparativo1: TfrViewIntervaloComparativo
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 188
@ -85,10 +85,9 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitTop = 195
inherited TBXAlignmentPanel2: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 172
end end
@ -97,17 +96,14 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166 Width = 166
end end
end end
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182
inherited lis: TLabel inherited lis: TLabel
Width = 172 Width = 172
end end
@ -116,13 +112,11 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166 Width = 166
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182
inherited Label1: TLabel inherited Label1: TLabel
Width = 172 Width = 172
end end
@ -131,7 +125,6 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166 Width = 166
end end
end end
@ -149,24 +142,19 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Visible = False
ReadOnly = False ReadOnly = False
ExplicitTop = 182 ExplicitTop = 182
ExplicitWidth = 188
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirProveedor: TBitBtn inherited bElegirProveedor: TBitBtn
Width = 119 Width = 119
ExplicitWidth = 119
end end
inherited edtProveedor: TcxTextEdit inherited edtProveedor: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 152
Width = 152 Width = 152
end end
end end

36
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReportGrafComp.pas
View File

@ -20,7 +20,7 @@ uses
type type
TfEditorInformeFacturasProveedorReportGrafComp = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReportGrafComp) TfEditorInformeFacturasProveedorReportGrafComp = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReportGrafComp)
TBXItem58: TTBXItem; TBXItem58: TTBXItem;
TfrViewIntervaloComparativo1: TTfrViewIntervaloComparativo; frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
frViewFiltroProveedores1: TfrViewFiltroProveedores; frViewFiltroProveedores1: TfrViewFiltroProveedores;
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -85,17 +85,17 @@ end;
function TfEditorInformeFacturasProveedorReportGrafComp.GetIntervalo: Variant; function TfEditorInformeFacturasProveedorReportGrafComp.GetIntervalo: Variant;
begin begin
Result := TfrViewIntervaloComparativo1.cbIntervalo.EditValue; Result := frViewIntervaloComparativo1.cbIntervalo.EditValue;
end; end;
function TfEditorInformeFacturasProveedorReportGrafComp.GetAno1: Variant; function TfEditorInformeFacturasProveedorReportGrafComp.GetAno1: Variant;
begin begin
Result := TfrViewIntervaloComparativo1.cbAno1.EditValue; Result := frViewIntervaloComparativo1.cbAno1.EditValue;
end; end;
function TfEditorInformeFacturasProveedorReportGrafComp.GetAno2: Variant; function TfEditorInformeFacturasProveedorReportGrafComp.GetAno2: Variant;
begin begin
Result := TfrViewIntervaloComparativo1.cbAno2.EditValue; Result := frViewIntervaloComparativo1.cbAno2.EditValue;
end; end;
function TfEditorInformeFacturasProveedorReportGrafComp.GetListaIDProveedores: TIntegerArray; function TfEditorInformeFacturasProveedorReportGrafComp.GetListaIDProveedores: TIntegerArray;
@ -150,30 +150,30 @@ begin
if Assigned(AListaIntervalos) then if Assigned(AListaIntervalos) then
begin begin
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate; frViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear; frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear;
for i := 0 to AListaIntervalos.Count - 1 do for i := 0 to AListaIntervalos.Count - 1 do
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]); frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]);
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate; frViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate;
end; end;
if Assigned(AListaAnos) then if Assigned(AListaAnos) then
begin begin
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate; frViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate; frViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.Clear; frViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.Clear; frViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
for i := 0 to AListaAnos.Count - 1 do for i := 0 to AListaAnos.Count - 1 do
begin begin
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]); frViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]); frViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);
end; end;
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate; frViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate; frViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate;
end; end;
TfrViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0; frViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0;
TfrViewIntervaloComparativo1.cbAno1.ItemIndex := 0; frViewIntervaloComparativo1.cbAno1.ItemIndex := 0;
end; end;
end. end.

2
Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.dfm
View File

@ -1,4 +1,4 @@
inherited TfrViewIntervaloComparativo: TTfrViewIntervaloComparativo inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
Width = 451 Width = 451
Height = 182 Height = 182
Align = alTop Align = alTop

16
Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.pas
View File

@ -14,7 +14,7 @@ type
['{793084E2-873E-4C57-8BD6-9087816CCF3A}'] ['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
end; end;
TTfrViewIntervaloComparativo = class(TfrViewParametrosInforme, IViewPeriodoFechas) TfrViewIntervaloComparativo = class(TfrViewParametrosInforme, IViewPeriodoFechas)
TBXLabel2: TTBXLabel; TBXLabel2: TTBXLabel;
TBXAlignmentPanel2: TTBXAlignmentPanel; TBXAlignmentPanel2: TTBXAlignmentPanel;
Label3: TLabel; Label3: TLabel;
@ -49,37 +49,37 @@ uses DateUtils;
function TTfrViewIntervaloComparativo.GetIntervalo: Variant; function TfrViewIntervaloComparativo.GetIntervalo: Variant;
begin begin
Result := cbIntervalo.EditValue; Result := cbIntervalo.EditValue;
end; end;
function TTfrViewIntervaloComparativo.GetAno1: Variant; function TfrViewIntervaloComparativo.GetAno1: Variant;
begin begin
Result := cbAno1.EditValue; Result := cbAno1.EditValue;
end; end;
function TTfrViewIntervaloComparativo.GetAno2: Variant; function TfrViewIntervaloComparativo.GetAno2: Variant;
begin begin
Result := cbAno2.EditValue; Result := cbAno2.EditValue;
end; end;
procedure TTfrViewIntervaloComparativo.SetIntervalo(const Value: Variant); procedure TfrViewIntervaloComparativo.SetIntervalo(const Value: Variant);
begin begin
cbIntervalo.EditValue := Value; cbIntervalo.EditValue := Value;
end; end;
procedure TTfrViewIntervaloComparativo.SetAno1(const Value: Variant); procedure TfrViewIntervaloComparativo.SetAno1(const Value: Variant);
begin begin
cbAno1.EditValue := Value; cbAno1.EditValue := Value;
end; end;
procedure TTfrViewIntervaloComparativo.SetAno2(const Value: Variant); procedure TfrViewIntervaloComparativo.SetAno2(const Value: Variant);
begin begin
cbAno2.EditValue := Value; cbAno2.EditValue := Value;
end; end;
constructor TTfrViewIntervaloComparativo.Create(AOwner: TComponent); constructor TfrViewIntervaloComparativo.Create(AOwner: TComponent);
begin begin
inherited; inherited;
// cbPeriodo.ItemIndex := 0; // cbPeriodo.ItemIndex := 0;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

3
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -36,7 +36,6 @@
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.8.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.8.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 19 de enero de 2011 18:10</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.8.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.8.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 19 de enero de 2011 18:10</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,8,7,0 FILEVERSION 1,8,8,0
PRODUCTVERSION 1,8,7,0 PRODUCTVERSION 1,8,8,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "1.8.7.0\0" VALUE "FileVersion", "1.8.8.0\0"
VALUE "ProductVersion", "1.8.7.0\0" VALUE "ProductVersion", "1.8.8.0\0"
VALUE "CompileDate", "miércoles, 19 de enero de 2011 18:10\0" VALUE "CompileDate", "viernes, 04 de febrero de 2011 13:14\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"