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 ToStringList(AEmpresa : IBizEmpresa) : TStringList;
function DarListaCuentasBancarias(AEmpresa : IBizEmpresa): TStringList;
function DarListaCuentasBancariasIBAN(AEmpresa : IBizEmpresa): TStringList;
end;
TEmpresasController = class(TControllerBase, IEmpresasController)
@ -47,6 +48,7 @@ type
procedure VerTodos(AEmpresas: IBizEmpresa); virtual;
function ToStringList(AEmpresa : IBizEmpresa) : TStringList; virtual;
function DarListaCuentasBancarias(AEmpresa : IBizEmpresa): TStringList;
function DarListaCuentasBancariasIBAN(AEmpresa : IBizEmpresa): TStringList;
end;
implementation
@ -109,6 +111,36 @@ begin
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);
begin
if not Assigned(AEmpresa) then

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

@ -3,7 +3,7 @@ unit schEmpresasClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -239,7 +239,7 @@ type
end;
{ TEmpresasDataTableRules }
TEmpresasDataTableRules = class(TDADataTableRules, IEmpresas)
TEmpresasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresas)
private
f_NOTAS: IROStrings;
f_LOGOTIPO: IROStream;
@ -468,7 +468,7 @@ type
end;
{ TEmpresasDatosBancoDataTableRules }
TEmpresasDatosBancoDataTableRules = class(TDADataTableRules, IEmpresasDatosBanco)
TEmpresasDatosBancoDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasDatosBanco)
private
protected
{ 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="..\Albaranes de cliente\Views\AlbaranesCliente_view.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="..\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="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="Controller\FacturasCliente_controller.dproj" />
@ -54,6 +58,24 @@
<Target Name="ApplicationBase:Make">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
</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">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target>
@ -72,6 +94,24 @@
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</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">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="" />
</Target>
@ -172,13 +212,13 @@
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target>
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

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

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

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

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

@ -8,7 +8,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ClientWidth = 676
Scaled = False
OnClose = CustomEditorClose
ExplicitLeft = -49
ExplicitWidth = 684
ExplicitHeight = 617
PixelsPerInch = 96
@ -143,46 +142,26 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
662
160)
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 326
Width = 326
ExplicitWidth = 292
Width = 292
end
inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 540
Width = 540
ExplicitWidth = 530
Width = 530
end
inherited edtFechaRemesa: TcxDBDateEdit
Left = 491
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491
ExplicitWidth = 170
Width = 170
ExplicitWidth = 149
Width = 149
end
inherited cbCuentaBancaria: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 39
Width = 39
ExplicitWidth = 530
Width = 530
end
inherited cbTipo: TcxDBImageComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
ExplicitWidth = 530
Width = 530
end
end
inherited dsDataTable: TDADataSource
@ -218,14 +197,19 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 632
Height = 223
ExplicitLeft = 15
ExplicitWidth = 638
ExplicitHeight = 208
ExplicitWidth = 632
ExplicitHeight = 223
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewRecibosRemesaCliente1.cxGridViewIMPORTE_TOTAL
end
item
Format = '0 Recibos'
Kind = skCount
Column = frViewRecibosRemesaCliente1.cxGridViewREFERENCIA
end>
DataController.Summary.OnAfterSummary = frViewRecibosRemesaCliente1cxGridViewDataControllerSummaryAfterSummary
inherited cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
@ -237,19 +221,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 15
Width = 632
ExplicitLeft = 15
ExplicitWidth = 638
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
ExplicitWidth = 632
end
end
end
@ -261,7 +233,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
item
Width = 200
end>
ExplicitTop = 519
ExplicitTop = 564
ExplicitWidth = 676
end
inline frViewTotales1: TfrViewTotales [4]
@ -278,7 +250,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitTop = 473
ExplicitTop = 518
ExplicitWidth = 676
ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl
@ -312,52 +284,36 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 163
Top = 111
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163
ExplicitTop = 111
ExplicitWidth = 93
Width = 93
ExplicitWidth = 157
Width = 157
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 519
Top = 37
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 519
ExplicitTop = 37
ExplicitWidth = 137
Width = 137
ExplicitWidth = 147
Width = 147
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 449
Top = 111
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 449
ExplicitTop = 111
ExplicitWidth = 137
Width = 137
ExplicitWidth = 217
Width = 217
end
inherited edtDescuento: TcxDBSpinEdit
Left = 92
Top = 111
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 111
end
@ -365,11 +321,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 448
Top = 37
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 448
ExplicitTop = 37
end
@ -377,25 +329,17 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 448
Top = 10
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 448
ExplicitTop = 10
ExplicitWidth = 92
Width = 92
ExplicitWidth = 218
Width = 218
end
inherited edtRE: TcxDBSpinEdit
Left = 448
Top = 64
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 448
ExplicitTop = 64
end
@ -403,56 +347,40 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 519
Top = 64
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 519
ExplicitTop = 64
ExplicitWidth = 56
Width = 56
ExplicitWidth = 147
Width = 147
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 92
Top = 10
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 10
ExplicitWidth = 147
Width = 147
ExplicitWidth = 228
Width = 228
end
inherited ePorte: TcxDBCurrencyEdit
Left = 92
Top = 138
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 138
ExplicitWidth = 147
Width = 147
ExplicitWidth = 228
Width = 228
end
inherited eIVA: TcxDBLookupComboBox
Left = 92
Top = 37
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 37
ExplicitWidth = 81
Width = 81
ExplicitWidth = 90
Width = 90
end
inherited bTiposIVA: TButton
Left = 188
@ -464,14 +392,10 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 92
Top = 64
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 64
ExplicitWidth = 219
Width = 219
ExplicitWidth = 228
Width = 228
end
inherited dxLayoutControl1Group_Root: 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
Width = 690
Caption = 'Remesa de pago'
ExplicitWidth = 676
ExplicitWidth = 690
inherited Image1: TImage
Left = 663
Picture.Data = {
@ -47,7 +47,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end
inherited TBXDock: TTBXDock
Width = 690
ExplicitWidth = 676
ExplicitWidth = 690
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
@ -136,33 +136,26 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited cxGrid: TcxGrid
Width = 676
Height = 249
ExplicitWidth = 668
ExplicitHeight = 199
ExplicitWidth = 676
ExplicitHeight = 249
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewRecibosRemesaProveedor1.cxGridViewIMPORTE_TOTAL
end
item
Format = '0 Recibos'
Kind = skCount
Column = frViewRecibosRemesaProveedor1.cxGridViewREFERENCIA
end>
DataController.Summary.OnAfterSummary = frViewRecibosRemesaProveedor1cxGridViewDataControllerSummaryAfterSummary
end
end
inherited ToolBar1: TToolBar
Width = 676
ExplicitWidth = 668
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
ExplicitWidth = 676
end
end
inline frViewRemesaProveedor1: TfrViewRemesaProveedor
@ -187,44 +180,26 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitWidth = 676
ExplicitHeight = 155
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 164
Width = 164
ExplicitWidth = 224
Width = 224
end
inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 108
Width = 108
ExplicitWidth = 544
Width = 544
end
inherited edtFechaRemesa: TcxDBDateEdit
Left = 423
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 423
ExplicitWidth = 170
Width = 170
ExplicitWidth = 231
Width = 231
end
inherited cbCuentaBancaria: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 39
Width = 39
ExplicitWidth = 544
Width = 544
end
inherited cbTipo: TcxDBImageComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 544
Width = 544
end
end
end
@ -237,8 +212,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
item
Width = 200
end>
ExplicitTop = 519
ExplicitWidth = 676
ExplicitTop = 585
ExplicitWidth = 690
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
@ -254,12 +229,12 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitTop = 473
ExplicitWidth = 676
ExplicitTop = 539
ExplicitWidth = 690
ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl
Width = 690
ExplicitWidth = 676
ExplicitWidth = 690
inherited Bevel1: TBevel
Left = 92
Top = 91
@ -288,52 +263,36 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 163
Top = 111
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163
ExplicitTop = 111
ExplicitWidth = 93
Width = 93
ExplicitWidth = 164
Width = 164
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 526
Top = 37
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 526
ExplicitTop = 37
ExplicitWidth = 137
Width = 137
ExplicitWidth = 154
Width = 154
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 456
Top = 111
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 456
ExplicitTop = 111
ExplicitWidth = 137
Width = 137
ExplicitWidth = 224
Width = 224
end
inherited edtDescuento: TcxDBSpinEdit
Left = 92
Top = 111
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 111
end
@ -341,11 +300,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 455
Top = 37
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 455
ExplicitTop = 37
end
@ -353,25 +308,17 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 455
Top = 10
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 455
ExplicitTop = 10
ExplicitWidth = 92
Width = 92
ExplicitWidth = 225
Width = 225
end
inherited edtRE: TcxDBSpinEdit
Left = 455
Top = 64
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 455
ExplicitTop = 64
end
@ -379,56 +326,40 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 526
Top = 64
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 526
ExplicitTop = 64
ExplicitWidth = 56
Width = 56
ExplicitWidth = 154
Width = 154
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 92
Top = 10
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 10
ExplicitWidth = 147
Width = 147
ExplicitWidth = 235
Width = 235
end
inherited ePorte: TcxDBCurrencyEdit
Left = 92
Top = 138
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 138
ExplicitWidth = 147
Width = 147
ExplicitWidth = 235
Width = 235
end
inherited eIVA: TcxDBLookupComboBox
Left = 92
Top = 37
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 37
ExplicitWidth = 81
Width = 81
ExplicitWidth = 97
Width = 97
end
inherited bTiposIVA: TButton
Left = 195
@ -440,14 +371,10 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 92
Top = 64
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 64
ExplicitWidth = 219
Width = 219
ExplicitWidth = 235
Width = 235
end
inherited dxLayoutControl1Group_Root: 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">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "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
BLOCK "VarFileInfo"