- Generar y comprobar los códigos IBAN en empresas y contactos.

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@205 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas

@@ -10,6 +10,9 @@ uses
 type
   IDatosBancariosEmpresaController = interface(IControllerBase)
   ['{E9B0313E-7B16-420A-B47E-20E42E96BAC6}']
+    function GenerarCodigoIBAN (ADatosBancarios : IBizEmpresasDatosBancarios) : string;
+    function ValidarCodigoIBAN (AIBAN : string) : boolean;
+    function ValidarDatosBancarios(ADatosBancarios : IBizEmpresasDatosBancarios; AEmpresa : IBizEmpresa): Boolean;
     procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
   end;
 
@@ -18,6 +21,8 @@ type
     FDataModule : IDataModuleEmpresas;
   protected
   public
+    function GenerarCodigoIBAN (ADatosBancarios : IBizEmpresasDatosBancarios) : string;
+    function ValidarCodigoIBAN (AIBAN : string) : boolean;
     function ValidarDatosBancarios(ADatosBancarios : IBizEmpresasDatosBancarios; AEmpresa : IBizEmpresa): Boolean; virtual;
     procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
     constructor Create; override;
@@ -30,7 +35,7 @@ implementation
 
 uses
   uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa,
-  uEditorRegistryUtils, cxControls, uIBANUtils;
+  uEditorRegistryUtils, cxControls, uIBANUtils, uStringsUtils;
 
 constructor TDatosBancariosEmpresaController.Create;
 begin
@@ -44,38 +49,58 @@ begin
   inherited;
 end;
 
+function TDatosBancariosEmpresaController.GenerarCodigoIBAN(
+  ADatosBancarios: IBizEmpresasDatosBancarios): string;
+begin
+  Result := uIBANUtils.GenerarCodigoIBAN(ADatosBancarios.ENTIDAD,
+        ADatosBancarios.SUCURSAL, ADatosBancarios.DC, ADatosBancarios.CUENTA);
+end;
+
+function TDatosBancariosEmpresaController.ValidarCodigoIBAN(
+  AIBAN: string): boolean;
+begin
+  result := EsCodigoIBANValido(AIBAN)
+end;
+
 function TDatosBancariosEmpresaController.ValidarDatosBancarios(
   ADatosBancarios: IBizEmpresasDatosBancarios; AEmpresa : IBizEmpresa): Boolean;
 begin
   ADatosBancarios.DataTable.Edit;
 
   try
-    if not ADatosBancarios.IBANIsNull then
+    if not EsCadenaVacia(ADatosBancarios.IBAN) then
     begin
       ADatosBancarios.IBAN := StringReplace(ADatosBancarios.IBAN, ' ', '', [rfReplaceAll]); // Quitar espacios
-      if EsCodigoIBANValido(ADatosBancarios.IBAN) then
+      if not ValidarCodigoIBAN(ADatosBancarios.IBAN) then
-        raise Exception.Create('Comprueba que el código IBAN indicado es correcto.');
+        raise Exception.Create(Format('Compruebe que el código IBAN de la cuenta %s es correcto.', [ADatosBancarios.NOMBRE]));
+    end
+    else begin
+      if not EsCadenaVacia(ADatosBancarios.ENTIDAD) and
+         not EsCadenaVacia(ADatosBancarios.SUCURSAL) and
+         not EsCadenaVacia(ADatosBancarios.DC) and
+         not EsCadenaVacia(ADatosBancarios.CUENTA) then
+      ADatosBancarios.IBAN := GenerarCodigoIBAN(ADatosBancarios);
     end;
 
-    if ADatosBancarios.SUFIJO_PRESENTADORIsNull then
+    if not EsCadenaVacia(ADatosBancarios.SUFIJO_PRESENTADOR) then
       ADatosBancarios.SUFIJO_PRESENTADOR := ADatosBancarios.SUFIJO_ACREEDOR;
 
-    if ADatosBancarios.ENTIDAD_PRESENTADORIsNull then
+    if not EsCadenaVacia(ADatosBancarios.ENTIDAD_PRESENTADOR) then
       ADatosBancarios.ENTIDAD_PRESENTADOR := ADatosBancarios.ENTIDAD;
 
-    if ADatosBancarios.SUCURSAL_PRESENTADORIsNull then
+    if not EsCadenaVacia(ADatosBancarios.SUCURSAL_PRESENTADOR) then
       ADatosBancarios.SUCURSAL_PRESENTADOR := ADatosBancarios.SUCURSAL;
 
-    if ADatosBancarios.NIF_CIF_PRESENTADORIsNull then
+    if not EsCadenaVacia(ADatosBancarios.NIF_CIF_PRESENTADOR) then
       ADatosBancarios.NIF_CIF_PRESENTADOR := AEmpresa.NIF_CIF;
 
-    if ADatosBancarios.NOMBRE_PRESENTADORIsNull then
+    if not EsCadenaVacia(ADatosBancarios.NOMBRE_PRESENTADOR) then
       ADatosBancarios.NOMBRE_PRESENTADOR := AEmpresa.NOMBRE;
 
   finally
     ADatosBancarios.DataTable.Post;
-    Result := True;
   end;
+  Result := True;
 end;
 
 procedure TDatosBancariosEmpresaController.Ver(ADatosBancarios : IBizEmpresasDatosBancarios);

Source/ApplicationBase/Empresas/Views/uEditorDatosBancariosEmpresa.dfm

@@ -9,6 +9,7 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
   ParentFont = True
   OldCreateOrder = True
   Position = poOwnerFormCenter
+  OnCloseQuery = FormCloseQuery
   DesignSize = (
     449
     469)
@@ -117,6 +118,7 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
       DataSource = dsDatosBancarios
       MaxLength = 4
       TabOrder = 1
+      OnExit = eCodEntidadExit
     end
     object eCodSucursal: TDBEdit
       Left = 109
@@ -127,6 +129,7 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
       DataSource = dsDatosBancarios
       MaxLength = 4
       TabOrder = 2
+      OnExit = eCodSucursalExit
     end
     object eDC: TDBEdit
       Left = 109
@@ -137,6 +140,7 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
       DataSource = dsDatosBancarios
       MaxLength = 2
       TabOrder = 3
+      OnExit = eDCExit
     end
     object eCuenta: TDBEdit
       Left = 109
@@ -146,6 +150,7 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
       DataField = 'CUENTA'
       DataSource = dsDatosBancarios
       TabOrder = 4
+      OnExit = eCuentaExit
     end
     object eSWIFT: TDBEdit
       Left = 109
@@ -154,17 +159,18 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
       Height = 21
       DataField = 'SWIFT'
       DataSource = dsDatosBancarios
-      TabOrder = 5
+      TabOrder = 6
-    end
     end
     object eIBAN: TDBEdit
-    Left = 117
+      Left = 109
-    Top = 178
+      Top = 170
       Width = 204
       Height = 21
       DataField = 'IBAN'
       DataSource = dsDatosBancarios
-    TabOrder = 3
+      TabOrder = 5
+      OnExit = eIBANExit
+    end
   end
   object GroupBox3: TGroupBox
     Left = 8
@@ -172,7 +178,7 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
     Width = 433
     Height = 215
     Caption = 'Configuraci'#243'n de norma SEPA'
-    TabOrder = 4
+    TabOrder = 3
     object Label10: TLabel
       Left = 12
       Top = 28

Source/ApplicationBase/Empresas/Views/uEditorDatosBancariosEmpresa.pas

@@ -45,6 +45,12 @@ type
     eCodEntidadPresentador: TDBEdit;
     Label18: TLabel;
     eCodSucursalPresentador: TDBEdit;
+    procedure eCodEntidadExit(Sender: TObject);
+    procedure eCodSucursalExit(Sender: TObject);
+    procedure eDCExit(Sender: TObject);
+    procedure eCuentaExit(Sender: TObject);
+    procedure eIBANExit(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   protected
     FController : IDatosBancariosEmpresaController;
     FDatosBancarios: IBizEmpresasDatosBancarios;
@@ -54,6 +60,8 @@ type
 
     function GetDatosBancarios: IBizEmpresasDatosBancarios;
     procedure SetDatosBancarios(const Value: IBizEmpresasDatosBancarios);
+
+    procedure CalcularCodigoIBAN();
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -65,12 +73,24 @@ type
 implementation
 
 uses
-  Variants;
+  Variants, uStringsUtils;
 
 {$R *.dfm}
 
 { TfEditorDireccion }
 
+procedure TfEditorDatosBancariosEmpresa.CalcularCodigoIBAN;
+begin
+  if not EsCadenaVacia(FDatosBancarios.ENTIDAD) and
+     not EsCadenaVacia(FDatosBancarios.SUCURSAL) and
+     not EsCadenaVacia(FDatosBancarios.DC) and
+     not EsCadenaVacia(FDatosBancarios.CUENTA) then
+     begin
+      FDatosBancarios.Edit;
+      FDatosBancarios.IBAN := FController.GenerarCodigoIBAN(FDatosBancarios);
+     end;
+end;
+
 constructor TfEditorDatosBancariosEmpresa.Create(AOwner: TComponent);
 begin
   inherited;
@@ -83,6 +103,43 @@ begin
   inherited;
 end;
 
+procedure TfEditorDatosBancariosEmpresa.eCodEntidadExit(Sender: TObject);
+begin
+  CalcularCodigoIBAN();
+end;
+
+procedure TfEditorDatosBancariosEmpresa.eCodSucursalExit(Sender: TObject);
+begin
+  CalcularCodigoIBAN();
+end;
+
+procedure TfEditorDatosBancariosEmpresa.eCuentaExit(Sender: TObject);
+begin
+  CalcularCodigoIBAN();
+end;
+
+procedure TfEditorDatosBancariosEmpresa.eDCExit(Sender: TObject);
+begin
+  CalcularCodigoIBAN();
+end;
+
+procedure TfEditorDatosBancariosEmpresa.eIBANExit(Sender: TObject);
+begin
+  if not EsCadenaVacia(eIBAN.Text) and not FController.ValidarCodigoIBAN(eIBAN.Text) then
+  begin
+    raise Exception.Create('Compruebe que el código IBAN indicado es correcto.');
+  end;
+end;
+
+procedure TfEditorDatosBancariosEmpresa.FormCloseQuery(Sender: TObject;
+  var CanClose: Boolean);
+begin
+  if not EsCadenaVacia(eIBAN.Text) and not FController.ValidarCodigoIBAN(eIBAN.Text) then
+  begin
+    raise Exception.Create('Compruebe que el código IBAN indicado es correcto.');
+  end;
+end;
+
 function TfEditorDatosBancariosEmpresa.GetController: IDatosBancariosEmpresaController;
 begin
   Result := FController;

Source/Base/Base.dproj

@@ -53,30 +53,6 @@
       
       
       
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -95,6 +71,58 @@
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>
@@ -118,59 +146,14 @@
       <Form>dmBase</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
-    <DCCReference Include="Utiles\adortl.dcp" />
     <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClipboardUtils.pas" />
     <DCCReference Include="Utiles\Ctltortf.pas" />
-    <DCCReference Include="Utiles\cxDataD11.dcp" />
-    <DCCReference Include="Utiles\cxEditorsD11.dcp" />
-    <DCCReference Include="Utiles\cxExportD11.dcp" />
-    <DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
-    <DCCReference Include="Utiles\cxGridD11.dcp" />
-    <DCCReference Include="Utiles\cxIntl6D11.dcp" />
-    <DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="Utiles\cxLibraryD11.dcp" />
-    <DCCReference Include="Utiles\cxPageControlD11.dcp" />
-    <DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="Utiles\dbrtl.dcp" />
-    <DCCReference Include="Utiles\dclIndyCore.dcp" />
-    <DCCReference Include="Utiles\designide.dcp" />
-    <DCCReference Include="Utiles\dsnap.dcp" />
-    <DCCReference Include="Utiles\dxCoreD11.dcp" />
-    <DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
-    <DCCReference Include="Utiles\dxPSCoreD11.dcp" />
-    <DCCReference Include="Utiles\dxThemeD11.dcp" />
-    <DCCReference Include="Utiles\GUISDK_D11R.dcp" />
-    <DCCReference Include="Utiles\IndyCore.dcp" />
-    <DCCReference Include="Utiles\IndyProtocols.dcp" />
-    <DCCReference Include="Utiles\IndySystem.dcp" />
-    <DCCReference Include="Utiles\Jcl.dcp" />
-    <DCCReference Include="Utiles\JclVcl.dcp" />
-    <DCCReference Include="Utiles\JSDialog100.dcp" />
-    <DCCReference Include="Utiles\JvCmpD11R.dcp" />
-    <DCCReference Include="Utiles\JvCoreD11R.dcp" />
-    <DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
-    <DCCReference Include="Utiles\JvDlgsD11R.dcp" />
-    <DCCReference Include="Utiles\JvMMD11R.dcp" />
-    <DCCReference Include="Utiles\JvNetD11R.dcp" />
-    <DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
-    <DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="Utiles\JvSystemD11R.dcp" />
     <DCCReference Include="Utiles\MidasSpeedFix.pas" />
-    <DCCReference Include="Utiles\pckMD5.dcp" />
-    <DCCReference Include="Utiles\pckUCDataConnector.dcp" />
-    <DCCReference Include="Utiles\pckUserControl_RT.dcp" />
-    <DCCReference Include="Utiles\PngComponentsD10.dcp" />
-    <DCCReference Include="Utiles\PNG_D10.dcp" />
     <DCCReference Include="Utiles\RegExpr.pas" />
-    <DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="Utiles\rtl.dcp" />
-    <DCCReference Include="Utiles\TB2k_D10.dcp" />
-    <DCCReference Include="Utiles\tbx_d10.dcp" />
     <DCCReference Include="Utiles\TIBAN\IBAN.pas" />
     <DCCReference Include="Utiles\TIBAN\IBANMetrics.pas" />
     <DCCReference Include="Utiles\uAppInfoUtils.pas" />
@@ -194,13 +177,6 @@
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
     <DCCReference Include="Utiles\uStringsUtils.pas" />
     <DCCReference Include="Utiles\uValidacionUtils.pas" />
-    <DCCReference Include="Utiles\vcl.dcp" />
-    <DCCReference Include="Utiles\vclactnband.dcp" />
-    <DCCReference Include="Utiles\vcldb.dcp" />
-    <DCCReference Include="Utiles\vcljpg.dcp" />
-    <DCCReference Include="Utiles\VclSmp.dcp" />
-    <DCCReference Include="Utiles\vclx.dcp" />
-    <DCCReference Include="Utiles\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Base/Utiles/uIBANUtils.pas

@@ -6,6 +6,7 @@ uses
   SysUtils, Classes, IBAN;
 
 function EsCodigoIBANValido(AIBAN : string): boolean;
+function GenerarCodigoIBAN(CodEntidad, CodOficina, DC, CodCuenta : string): string;
 
 implementation
 
@@ -13,14 +14,26 @@ function EsCodigoIBANValido(AIBAN : string): boolean;
 var
   auxIBAN : TIBAN;
 begin
-  auxIBAN.Create;
+  auxIBAN := TIBAN.Create;
   try
-    auxIBAN.IBAN := AIBAN;
+    Result := auxIBAN.checkIBANCode(AIBAN);
-    Result := auxIBAN.Valid;
   finally
     FreeAndNil(auxIBAN);
   end;
+end;
 
+function GenerarCodigoIBAN(CodEntidad, CodOficina, DC, CodCuenta : string): string;
+var
+  auxIBAN : TIBAN;
+begin
+  auxIBAN := TIBAN.Create;
+  try
+    auxIBAN.Country := 'ES';
+    auxIBAN.BankCode := CodEntidad + CodOficina + DC + CodCuenta;
+    Result := auxIBAN.IBAN;
+  finally
+    FreeAndNil(auxIBAN);
+  end;
 end;
 
 end.

Source/Modulos/Contactos/Controller/uContactosController.pas

@@ -319,7 +319,7 @@ begin
     try
       for i := 0 to AContacto.DatosBancarios.RecordCount - 1 do
         if not ValidarDatosBancarios(AContacto.DatosBancarios) then
-          raise Exception.Create('Debe indicar una fecha de vencimiento para esta factura');
+          raise Exception.Create('Compruebe los datos bancarios de este contacto.');
     finally
       Free;
     end;

Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas

@@ -17,13 +17,16 @@ type
   TDatosBancariosContactoController = class(TControllerBase, IDatosBancariosContactoController)
   private
     FDataModule : IDataModuleContactos;
+    function GenerarCodigoIBAN(
+      ADatosBancarios: IBizContactosDatosBancarios): string;
   protected
   public
+    function ValidarCodigoIBAN(AIBAN: string): boolean;
     procedure Ver(ADatoBancario : IBizContactosDatosBancarios);
     function Localizar(ADatosBancarios: IBizContactosDatosBancarios; const ID : Integer): Boolean;
     constructor Create; override;
     destructor Destroy; override;
-    function ValidarDatosBancarios(ADatoBancario : IBizContactosDatosBancarios): Boolean; virtual;
+    function ValidarDatosBancarios(ADatosBancarios : IBizContactosDatosBancarios): Boolean; virtual;
   end;
 
 implementation
@@ -31,7 +34,7 @@ implementation
 { TDatosBancariosContactoController }
 
 uses
-  uDataModuleContactos, schContactosClient_Intf, uIBANUtils,
+  uDataModuleContactos, schContactosClient_Intf, uIBANUtils, uStringsUtils,
   uEditorRegistryUtils, cxControls, uIEditorDatoBancarioContacto;
 
 
@@ -66,18 +69,41 @@ begin
   end;
 end;
 
-function TDatosBancariosContactoController.ValidarDatosBancarios(
+function TDatosBancariosContactoController.ValidarCodigoIBAN(
-  ADatoBancario: IBizContactosDatosBancarios): Boolean;
+  AIBAN: string): boolean;
 begin
-  if not ADatoBancario.IBANIsNull then
+  result := EsCodigoIBANValido(AIBAN)
-  begin
+end;
-    ADatoBancario.DataTable.Edit;
-    ADatoBancario.IBAN := StringReplace(ADatoBancario.IBAN, ' ', '', [rfReplaceAll]); // Quitar espacios
-    ADatoBancario.DataTable.Post;
 
-    if not EsCodigoIBANValido(ADatoBancario.IBAN) then
+function TDatosBancariosContactoController.GenerarCodigoIBAN(
-        raise Exception.Create('Comprueba que el código IBAN indicado es correcto.');
+  ADatosBancarios: IBizContactosDatosBancarios): string;
+begin
+  Result := uIBANUtils.GenerarCodigoIBAN(ADatosBancarios.ENTIDAD,
+        ADatosBancarios.SUCURSAL, ADatosBancarios.DC, ADatosBancarios.CUENTA);
+end;
+
+function TDatosBancariosContactoController.ValidarDatosBancarios(
+  ADatosBancarios: IBizContactosDatosBancarios): Boolean;
+begin
+    ADatosBancarios.DataTable.Edit;
+    try
+      if not EsCadenaVacia(ADatosBancarios.IBAN) then
+      begin
+        ADatosBancarios.IBAN := StringReplace(ADatosBancarios.IBAN, ' ', '', [rfReplaceAll]); // Quitar espacios
+        if not ValidarCodigoIBAN(ADatosBancarios.IBAN) then
+          raise Exception.Create('Compruebe que el código IBAN es correcto.');
+      end
+      else begin
+        if not EsCadenaVacia(ADatosBancarios.ENTIDAD) and
+           not EsCadenaVacia(ADatosBancarios.SUCURSAL) and
+           not EsCadenaVacia(ADatosBancarios.DC) and
+           not EsCadenaVacia(ADatosBancarios.CUENTA) then
+        ADatosBancarios.IBAN := GenerarCodigoIBAN(ADatosBancarios);
       end;
+    finally
+      ADatosBancarios.Post;
+    end;
+    Result := True;
 end;
 
 procedure TDatosBancariosContactoController.Ver(

Source/Servidor/FactuGES_Server.dproj

@@ -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>
@@ -33,20 +33,21 @@
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
-		<Borland.ProjectType/>
+    <Borland.ProjectType />
     <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">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">4</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">4.3.4.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">4.3.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 04 de diciembre de 2013 17:44</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">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">4</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">4.3.4.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">4.3.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 04 de diciembre de 2013 17:44</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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="FactuGES_Server.dpr">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
     <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
       <Form>srvEmpresas</Form>
       <DesignClass>TDARemoteService</DesignClass>
@@ -55,18 +56,18 @@
       <Form>srvProvinciasPoblaciones_Impl</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
     <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
       <Form>srvUsuarios</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
+    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
-		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
+    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
     <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
       <Form>RptAlbaranesCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -79,9 +80,9 @@
       <Form>srvAlbaranesCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
     <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
       <Form>RptAlbaranesProveedor</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -94,22 +95,22 @@
       <Form>srvAlbaranesProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
       <Form>srvAlmacenes</Form>
       <DesignClass>TDARemoteService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
     <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
       <Form>srvArticulos</Form>
       <DesignClass>TDARemoteService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
+    <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
     <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
       <Form>RptComisiones</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -118,13 +119,13 @@
       <Form>srvComisiones</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
     <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
       <Form>RptEtiquetasContacto</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -137,15 +138,15 @@
       <Form>srvContactos</Form>
       <DesignClass>TDARemoteService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
       <Form>srvFabricantes</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
     <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
       <Form>RptFacturasCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -158,9 +159,9 @@
       <Form>srvFacturasCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
     <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
       <Form>RptFacturasProveedor</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -169,9 +170,9 @@
       <Form>srvFacturasProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas" />
     <DCCReference Include="..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas">
       <Form>RptFacturasProforma</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -180,14 +181,14 @@
       <Form>srvFacturasProforma</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
       <Form>srvFamilias</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
       <Form>srvFormasPago</Form>
       <DesignClass>TDataAbstractService</DesignClass>
@@ -200,14 +201,14 @@
       <Form>srvGestorInformes</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
       <Form>srvHistoricoMovimientos</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
       <Form>srvImpresiones</Form>
       <DesignClass>TDARemoteService</DesignClass>
@@ -216,34 +217,34 @@
       <Form>srvInfMargenArticulo</Form>
       <DesignClass>TDARemoteService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
       <Form>srvInfVentasArticulo</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
       <Form>srvInformes</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
       <Form>srvInventario</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
     <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
       <Form>srvObras</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
     <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
       <Form>RptPedidosProveedor</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -256,9 +257,9 @@
       <Form>srvPedidosProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
     <DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
       <Form>RptPedidosCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -267,9 +268,9 @@
       <Form>srvPedidosCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
     <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
       <Form>RptPresupuestosCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -286,8 +287,8 @@
       <Form>srvPresupuestosCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
       <Form>RptRecibosCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -296,8 +297,8 @@
       <Form>srvRecibosCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
       <Form>RptRecibosProveedor</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -306,8 +307,8 @@
       <Form>srvRecibosProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
       <Form>srvReferencias</Form>
       <DesignClass>TDataAbstractService</DesignClass>
@@ -316,9 +317,9 @@
       <Form>srvRegistroCorreos</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
     <DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
       <Form>RptRemesasCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -327,9 +328,9 @@
       <Form>srvRemesasCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
     <DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
       <Form>RptRemesasProveedor</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -338,32 +339,32 @@
       <Form>srvRemesasProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas" />
     <DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
       <Form>srvTiendaWeb</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
       <Form>srvTiposIVA</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
       <Form>srvUnidadesMedida</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
     <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
       <Form>srvConfiguracion</Form>
       <DesignClass>TDataAbstractService</DesignClass>
@@ -402,16 +403,16 @@
     <DCCReference Include="uServerMainForm.pas">
       <Form>fServerForm</Form>
     </DCCReference>
-		<DCCReference Include="Utiles\AHWord97.pas"/>
+    <DCCReference Include="Utiles\AHWord97.pas" />
-		<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
+    <DCCReference Include="Utiles\MidasSpeedFix.pas" />
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
-		<DCCReference Include="Utiles\uTiendaWebUtils.pas"/>
+    <DCCReference Include="Utiles\uTiendaWebUtils.pas" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "4.3.4.0\0"
               VALUE "ProductVersion", "4.3.4.0\0"
-              VALUE "CompileDate", "viernes, 13 de diciembre de 2013 12:30\0"
+              VALUE "CompileDate", "viernes, 13 de diciembre de 2013 12:45\0"
          END
     END
     BLOCK "VarFileInfo"