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

Se incluye en las cuentas de la empresa los campos IBAN y SWIFT, para que en la lista de cuentas a elegir nos salgan con y sin IBAN para que el usuario elija el que quiere poner en la factura, se incluye la firma en los presupuesos exportados a word

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@455 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-12 17:24:02 +00:00
parent 8225265f89
commit e6c68aeffa
12 changed files with 447 additions and 518 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/ApplicationBase/ApplicationBase.res
View File

Binary file not shown.

32
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -23,6 +23,7 @@ type
function Existe(const ID: Integer) : Boolean; function Existe(const ID: Integer) : Boolean;
function ToStringList(AEmpresa : IBizEmpresa) : TStringList; function ToStringList(AEmpresa : IBizEmpresa) : TStringList;
function DarListaCuentasBancarias(AEmpresa : IBizEmpresa): TStringList; function DarListaCuentasBancarias(AEmpresa : IBizEmpresa): TStringList;
function DarListaCuentasBancariasIBAN(AEmpresa : IBizEmpresa): TStringList;
end; end;
TEmpresasController = class(TControllerBase, IEmpresasController) TEmpresasController = class(TControllerBase, IEmpresasController)
@ -47,6 +48,7 @@ type
procedure VerTodos(AEmpresas: IBizEmpresa); virtual; procedure VerTodos(AEmpresas: IBizEmpresa); virtual;
function ToStringList(AEmpresa : IBizEmpresa) : TStringList; virtual; function ToStringList(AEmpresa : IBizEmpresa) : TStringList; virtual;
function DarListaCuentasBancarias(AEmpresa : IBizEmpresa): TStringList; function DarListaCuentasBancarias(AEmpresa : IBizEmpresa): TStringList;
function DarListaCuentasBancariasIBAN(AEmpresa : IBizEmpresa): TStringList;
end; end;
implementation implementation
@ -109,6 +111,36 @@ begin
end; end;
end; end;
function TEmpresasController.DarListaCuentasBancariasIBAN(AEmpresa: IBizEmpresa): TStringList;
var
ADatosBancarios: IBizEmpresasDatosBancarios;
Aux : String;
begin
if not Assigned(AEmpresa) then
raise Exception.Create ('Empresa no asignada (DarListaCuentasBancariasIBAN)');
ADatosBancarios := AEmpresa.DatosBancarios;
ADatosBancarios.DataTable.Active := True;
Result := TStringList.Create;
ShowHourglassCursor;
try
with Result do
begin
ADatosBancarios.DataTable.First;
while not ADatosBancarios.DataTable.EOF do
begin
Aux := Format('%s - %s', [ADatosBancarios.IBAN, ADatosBancarios.SWIFT]);
Add(Format('%s=%d', [Aux, ADatosBancarios.ID]));
ADatosBancarios.DataTable.Next;
end;
end;
finally
ADatosBancarios := NIL;
HideHourglassCursor;
end;
end;
procedure TEmpresasController.DescartarCambios(AEmpresa: IBizEmpresa); procedure TEmpresasController.DescartarCambios(AEmpresa: IBizEmpresa);
begin begin
if not Assigned(AEmpresa) then if not Assigned(AEmpresa) then

6
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schEmpresasClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -239,7 +239,7 @@ type
end; end;
{ TEmpresasDataTableRules } { TEmpresasDataTableRules }
TEmpresasDataTableRules = class(TDADataTableRules, IEmpresas) TEmpresasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresas)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
f_LOGOTIPO: IROStream; f_LOGOTIPO: IROStream;
@ -468,7 +468,7 @@ type
end; end;
{ TEmpresasDatosBancoDataTableRules } { TEmpresasDatosBancoDataTableRules }
TEmpresasDatosBancoDataTableRules = class(TDADataTableRules, IEmpresasDatosBanco) TEmpresasDatosBancoDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasDatosBanco)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

BIN
Source/Informes/Presupuesto.rdx
View File

Binary file not shown.

46
Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
View File

@ -11,8 +11,12 @@
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" /> <Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" /> <Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Data\Articulos_data.dproj" />
<Projects Include="..\Articulos\Model\Articulos_model.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" /> <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="Controller\FacturasCliente_controller.dproj" /> <Projects Include="Controller\FacturasCliente_controller.dproj" />
@ -54,6 +58,24 @@
<Target Name="ApplicationBase:Make"> <Target Name="ApplicationBase:Make">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" /> <MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_model">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
</Target>
<Target Name="Contactos_model:Clean">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_model:Make">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_data">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="" />
</Target>
<Target Name="Contactos_data:Clean">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_data:Make">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_controller"> <Target Name="Contactos_controller">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" /> <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target> </Target>
@ -72,6 +94,24 @@
<Target Name="Contactos_view:Make"> <Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" /> <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Articulos_model">
<MSBuild Projects="..\Articulos\Model\Articulos_model.dproj" Targets="" />
</Target>
<Target Name="Articulos_model:Clean">
<MSBuild Projects="..\Articulos\Model\Articulos_model.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_model:Make">
<MSBuild Projects="..\Articulos\Model\Articulos_model.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_data">
<MSBuild Projects="..\Articulos\Data\Articulos_data.dproj" Targets="" />
</Target>
<Target Name="Articulos_data:Clean">
<MSBuild Projects="..\Articulos\Data\Articulos_data.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_data:Make">
<MSBuild Projects="..\Articulos\Data\Articulos_data.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_controller"> <Target Name="Articulos_controller">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="" /> <MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="" />
</Target> </Target>
@ -172,13 +212,13 @@
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;AlbCli_FacCli_relation;AlbaranesCliente_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;AlbCli_FacCli_relation;AlbaranesCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

2
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -100,7 +100,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 112 Width = 112
Height = 215 Height = 215
ExplicitWidth = 270 ExplicitWidth = 112
ExplicitHeight = 215 ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource

6
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -107,11 +107,13 @@ procedure TfrViewFacturaCliente.RellenarCuentasBancarias;
var var
AController : IEmpresasController; AController : IEmpresasController;
ALista : TStringList; ALista : TStringList;
AListaIBAN : TStringList;
i : integer; i : integer;
begin begin
AController := TEmpresasController.Create; AController := TEmpresasController.Create;
try try
ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva); ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
try try
with cbCuentaBancaria.Properties.Items do with cbCuentaBancaria.Properties.Items do
begin begin
@ -120,13 +122,17 @@ begin
Clear; Clear;
Add(''); Add('');
for i := 0 to ALista.Count - 1 do for i := 0 to ALista.Count - 1 do
begin
Add(ALista.Names[i]); Add(ALista.Names[i]);
Add(AListaIBAN.Names[i]);
end;
finally finally
EndUpdate; EndUpdate;
end; end;
end; end;
finally finally
FreeANDNIL(ALista); FreeANDNIL(ALista);
FreeANDNIL(AListaIBAN);
end; end;
finally finally
AController := NIL; AController := NIL;

152
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm
View File

@ -8,7 +8,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ClientWidth = 676 ClientWidth = 676
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitLeft = -49
ExplicitWidth = 684 ExplicitWidth = 684
ExplicitHeight = 617 ExplicitHeight = 617
PixelsPerInch = 96 PixelsPerInch = 96
@ -143,46 +142,26 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
662 662
160) 160)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 292
StyleDisabled.LookAndFeel.SkinName = '' Width = 292
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 326
Width = 326
end end
inherited eDescripcion: TcxDBTextEdit inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 530
StyleDisabled.LookAndFeel.SkinName = '' Width = 530
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 540
Width = 540
end end
inherited edtFechaRemesa: TcxDBDateEdit inherited edtFechaRemesa: TcxDBDateEdit
Left = 491 Left = 491
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 491
ExplicitWidth = 170 ExplicitWidth = 149
Width = 170 Width = 149
end end
inherited cbCuentaBancaria: TcxDBLookupComboBox inherited cbCuentaBancaria: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = '' ExplicitWidth = 530
StyleDisabled.LookAndFeel.SkinName = '' Width = 530
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 39
Width = 39
end end
inherited cbTipo: TcxDBImageComboBox inherited cbTipo: TcxDBImageComboBox
Style.LookAndFeel.SkinName = '' ExplicitWidth = 530
StyleDisabled.LookAndFeel.SkinName = '' Width = 530
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end end
end end
inherited dsDataTable: TDADataSource inherited dsDataTable: TDADataSource
@ -218,14 +197,19 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 632 Width = 632
Height = 223 Height = 223
ExplicitLeft = 15 ExplicitLeft = 15
ExplicitWidth = 638 ExplicitWidth = 632
ExplicitHeight = 208 ExplicitHeight = 223
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = frViewRecibosRemesaCliente1.cxGridViewIMPORTE_TOTAL Column = frViewRecibosRemesaCliente1.cxGridViewIMPORTE_TOTAL
end
item
Format = '0 Recibos'
Kind = skCount
Column = frViewRecibosRemesaCliente1.cxGridViewREFERENCIA
end> end>
DataController.Summary.OnAfterSummary = frViewRecibosRemesaCliente1cxGridViewDataControllerSummaryAfterSummary DataController.Summary.OnAfterSummary = frViewRecibosRemesaCliente1cxGridViewDataControllerSummaryAfterSummary
inherited cxGridViewIMPORTE_TOTAL: TcxGridDBColumn inherited cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
@ -237,19 +221,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 15 Left = 15
Width = 632 Width = 632
ExplicitLeft = 15 ExplicitLeft = 15
ExplicitWidth = 638 ExplicitWidth = 632
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -261,7 +233,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 519 ExplicitTop = 564
ExplicitWidth = 676 ExplicitWidth = 676
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
@ -278,7 +250,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 473 ExplicitTop = 518
ExplicitWidth = 676 ExplicitWidth = 676
ExplicitHeight = 46 ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -312,52 +284,36 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 163 Left = 163
Top = 111 Top = 111
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163 ExplicitLeft = 163
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 93 ExplicitWidth = 157
Width = 93 Width = 157
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 519 Left = 519
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 519 ExplicitLeft = 519
ExplicitTop = 37 ExplicitTop = 37
ExplicitWidth = 137 ExplicitWidth = 147
Width = 137 Width = 147
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 449 Left = 449
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 449 ExplicitLeft = 449
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 137 ExplicitWidth = 217
Width = 137 Width = 217
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 92 Left = 92
Top = 111 Top = 111
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 111 ExplicitTop = 111
end end
@ -365,11 +321,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 448 Left = 448
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 448 ExplicitLeft = 448
ExplicitTop = 37 ExplicitTop = 37
end end
@ -377,25 +329,17 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 448 Left = 448
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 448 ExplicitLeft = 448
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 92 ExplicitWidth = 218
Width = 92 Width = 218
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 448 Left = 448
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 448 ExplicitLeft = 448
ExplicitTop = 64 ExplicitTop = 64
end end
@ -403,56 +347,40 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 519 Left = 519
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 519 ExplicitLeft = 519
ExplicitTop = 64 ExplicitTop = 64
ExplicitWidth = 56 ExplicitWidth = 147
Width = 56 Width = 147
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 92 Left = 92
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 147 ExplicitWidth = 228
Width = 147 Width = 228
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 92 Left = 92
Top = 138 Top = 138
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 147 ExplicitWidth = 228
Width = 147 Width = 228
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 92 Left = 92
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 37 ExplicitTop = 37
ExplicitWidth = 81 ExplicitWidth = 90
Width = 81 Width = 90
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 188 Left = 188
@ -464,14 +392,10 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 92 Left = 92
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 64 ExplicitTop = 64
ExplicitWidth = 219 ExplicitWidth = 228
Width = 219 Width = 228
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

159
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm
View File

@ -15,7 +15,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 690 Width = 690
Caption = 'Remesa de pago' Caption = 'Remesa de pago'
ExplicitWidth = 676 ExplicitWidth = 690
inherited Image1: TImage inherited Image1: TImage
Left = 663 Left = 663
Picture.Data = { Picture.Data = {
@ -47,7 +47,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 690 Width = 690
ExplicitWidth = 676 ExplicitWidth = 690
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -136,33 +136,26 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 676 Width = 676
Height = 249 Height = 249
ExplicitWidth = 668 ExplicitWidth = 676
ExplicitHeight = 199 ExplicitHeight = 249
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = frViewRecibosRemesaProveedor1.cxGridViewIMPORTE_TOTAL Column = frViewRecibosRemesaProveedor1.cxGridViewIMPORTE_TOTAL
end
item
Format = '0 Recibos'
Kind = skCount
Column = frViewRecibosRemesaProveedor1.cxGridViewREFERENCIA
end> end>
DataController.Summary.OnAfterSummary = frViewRecibosRemesaProveedor1cxGridViewDataControllerSummaryAfterSummary DataController.Summary.OnAfterSummary = frViewRecibosRemesaProveedor1cxGridViewDataControllerSummaryAfterSummary
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 676 Width = 676
ExplicitWidth = 668 ExplicitWidth = 676
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
inline frViewRemesaProveedor1: TfrViewRemesaProveedor inline frViewRemesaProveedor1: TfrViewRemesaProveedor
@ -187,44 +180,26 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitWidth = 676 ExplicitWidth = 676
ExplicitHeight = 155 ExplicitHeight = 155
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 224
StyleDisabled.LookAndFeel.SkinName = '' Width = 224
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 164
Width = 164
end end
inherited eDescripcion: TcxDBTextEdit inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 544
StyleDisabled.LookAndFeel.SkinName = '' Width = 544
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 108
Width = 108
end end
inherited edtFechaRemesa: TcxDBDateEdit inherited edtFechaRemesa: TcxDBDateEdit
Left = 423 Left = 423
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 423 ExplicitLeft = 423
ExplicitWidth = 170 ExplicitWidth = 231
Width = 170 Width = 231
end end
inherited cbCuentaBancaria: TcxDBLookupComboBox inherited cbCuentaBancaria: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = '' ExplicitWidth = 544
StyleDisabled.LookAndFeel.SkinName = '' Width = 544
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 39
Width = 39
end end
inherited cbTipo: TcxDBImageComboBox inherited cbTipo: TcxDBImageComboBox
Style.LookAndFeel.SkinName = '' ExplicitWidth = 544
StyleDisabled.LookAndFeel.SkinName = '' Width = 544
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
end end
end end
@ -237,8 +212,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 519 ExplicitTop = 585
ExplicitWidth = 676 ExplicitWidth = 690
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
@ -254,12 +229,12 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 473 ExplicitTop = 539
ExplicitWidth = 676 ExplicitWidth = 690
ExplicitHeight = 46 ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 690 Width = 690
ExplicitWidth = 676 ExplicitWidth = 690
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 92 Left = 92
Top = 91 Top = 91
@ -288,52 +263,36 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 163 Left = 163
Top = 111 Top = 111
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163 ExplicitLeft = 163
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 93 ExplicitWidth = 164
Width = 93 Width = 164
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 526 Left = 526
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 526 ExplicitLeft = 526
ExplicitTop = 37 ExplicitTop = 37
ExplicitWidth = 137 ExplicitWidth = 154
Width = 137 Width = 154
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 456 Left = 456
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 456 ExplicitLeft = 456
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 137 ExplicitWidth = 224
Width = 137 Width = 224
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 92 Left = 92
Top = 111 Top = 111
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 111 ExplicitTop = 111
end end
@ -341,11 +300,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 455 Left = 455
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 455 ExplicitLeft = 455
ExplicitTop = 37 ExplicitTop = 37
end end
@ -353,25 +308,17 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 455 Left = 455
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 455 ExplicitLeft = 455
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 92 ExplicitWidth = 225
Width = 92 Width = 225
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 455 Left = 455
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 455 ExplicitLeft = 455
ExplicitTop = 64 ExplicitTop = 64
end end
@ -379,56 +326,40 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 526 Left = 526
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 526 ExplicitLeft = 526
ExplicitTop = 64 ExplicitTop = 64
ExplicitWidth = 56 ExplicitWidth = 154
Width = 56 Width = 154
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 92 Left = 92
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 147 ExplicitWidth = 235
Width = 147 Width = 235
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 92 Left = 92
Top = 138 Top = 138
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 147 ExplicitWidth = 235
Width = 147 Width = 235
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 92 Left = 92
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 37 ExplicitTop = 37
ExplicitWidth = 81 ExplicitWidth = 97
Width = 81 Width = 97
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 195 Left = 195
@ -440,14 +371,10 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 92 Left = 92
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 64 ExplicitTop = 64
ExplicitWidth = 219 ExplicitWidth = 235
Width = 219 Width = 235
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
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>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.7.0\0" VALUE "FileVersion", "1.0.7.0\0"
VALUE "ProductVersion", "1.0.7.0\0" VALUE "ProductVersion", "1.0.7.0\0"
VALUE "CompileDate", "miércoles, 11 de junio de 2008 18:15\0" VALUE "CompileDate", "jueves, 12 de junio de 2008 19:15\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"