diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB index ab60a2f5..cb912598 100644 Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ diff --git a/Source/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj index 96def8c3..9ba135a0 100644 --- a/Source/Cliente/FactuGES.bdsproj +++ b/Source/Cliente/FactuGES.bdsproj @@ -149,7 +149,7 @@ False 3 0 - 1 + 2 0 False False @@ -162,13 +162,13 @@ Rodax Software S.L. - 3.0.1.0 + 3.0.2.0 FactuGES - 3.0.1.0 + 3.0.2.0 Muststang Peak EasyListview Runtime Package diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index d4af8f56..06939c5d 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Banca electronica/Controller/View/uIEditorExportacionNorma19.pas b/Source/Modulos/Banca electronica/Controller/View/uIEditorExportacionNorma19.pas index dfb4c8a9..561a7565 100644 --- a/Source/Modulos/Banca electronica/Controller/View/uIEditorExportacionNorma19.pas +++ b/Source/Modulos/Banca electronica/Controller/View/uIEditorExportacionNorma19.pas @@ -6,13 +6,13 @@ type IEditorExportacionNorma19 = interface ['{FED1E69E-99F3-408E-9CA8-FADEF2E01726}'] - procedure SetCodigoEntidad(const AValue: Integer); - function GetCodigoEntidad : Integer; - property CodigoEntidad : Integer read GetCodigoEntidad write SetCodigoEntidad; + procedure SetCodigoEntidad(const AValue: String); + function GetCodigoEntidad : String; + property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad; - procedure SetCodigoAgencia(const AValue: Integer); - function GetCodigoAgencia : Integer; - property CodigoAgencia : Integer read GetCodigoAgencia write SetCodigoAgencia; + procedure SetCodigoAgencia(const AValue: String); + function GetCodigoAgencia : String; + property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia; procedure SetFechaCargo(const AValue: TDateTime); function GetFechaCargo : TDateTime; diff --git a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas index f6a2918c..acbe292a 100644 --- a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas +++ b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas @@ -37,7 +37,7 @@ type TBancaElectronicaController = class(TInterfacedObject, IBancaElectronicaController) private - function VerEditorNorma19(var Entidad : Integer; var Oficina : Integer; + function VerEditorNorma19(var Entidad : String; var Oficina : String; var AFechaCargo : TDateTime; var AFileName : String): Boolean; function VerEditorNorma32(var Identificador : String; @@ -60,7 +60,7 @@ uses uBizRemesasCliente, uRemesasClienteController, schRemesasClienteClient_Intf, schRecibosClienteClient_Intf, Dialogs, uIEditorExportacionNorma19, uIEditorExportacionNorma32, uBizRecibosCliente, - schContactosClient_Intf; + schContactosClient_Intf, schEmpresasClient_Intf; { TBancaElectronicaController } @@ -78,8 +78,8 @@ var ANorma19 : TCVBNorma1958CSB; I: integer; - AEntidad : Integer; - AOficina : Integer; + AEntidad : String; + AOficina : String; begin ARemesasController := TRemesasClienteController.Create; AEmpresasController := TEmpresasController.Create; @@ -104,11 +104,22 @@ begin ANorma19.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C19'; ANorma19.FecAbono := ARemesa.FECHA_REMESA; + // Buscar los datos bancarios + with AEmpresa.DatosBancarios do + begin + First; + if Locate('ID', ARemesa.ID_DATOS_BANCO, []) then + begin + AEntidad := ENTIDAD; + AOficina := SUCURSAL; + end; + end; + if not VerEditorNorma19(AEntidad, AOficina, ANorma19.FecAbono, ANorma19.FNomFic) then Exit; - ANorma19.EntRecepPres := IntToStr(AEntidad); - ANorma19.OfiRecepPres := IntToStr(AOficina); + ANorma19.EntRecepPres := AEntidad; + ANorma19.OfiRecepPres := AOficina; with ANorma19 do begin @@ -224,6 +235,17 @@ begin ANorma32.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C32'; ANorma32.FechaFichero := Date; + // Buscar los datos bancarios + with AEmpresa.DatosBancarios do + begin + First; + if Locate('ID', ARemesa.ID_DATOS_BANCO, []) then + begin + AEntidad := ENTIDAD; + AOficina := SUCURSAL; + end; + end; + if not VerEditorNorma32(ANorma32.IdCedente, ACodINE, AEntidad, AOficina, ANorma32.FNomFic) then Exit; @@ -309,7 +331,7 @@ begin end; function TBancaElectronicaController.VerEditorNorma19 ( - var Entidad : Integer; var Oficina : Integer; var AFechaCargo : TDateTime; + var Entidad : String; var Oficina : String; var AFechaCargo : TDateTime; var AFileName : String): Boolean; var AEditor : IEditorExportacionNorma19; diff --git a/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm b/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm index 1cd2b439..4db8a8ea 100644 --- a/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm +++ b/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm @@ -163,7 +163,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19 TabOrder = 2 Width = 167 end - object edtCodEntidad: TcxMaskEdit + object edtCodEntidad: TcxTextEdit Left = 120 Top = 93 Properties.BeepOnError = True @@ -180,7 +180,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19 Text = ' ' Width = 73 end - object edtCodAgencia: TcxMaskEdit + object edtCodAgencia: TcxTextEdit Left = 120 Top = 120 Properties.BeepOnError = True @@ -208,7 +208,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19 ModalResult = 2 TabOrder = 4 OnClick = CancelBtnClick - ExplicitTop = 265 end object OKBtn: TButton Left = 202 @@ -218,7 +217,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19 Action = actVolcar Anchors = [akLeft, akRight, akBottom] TabOrder = 3 - ExplicitTop = 265 end object JvFilenameEdit1: TJvFilenameEdit Left = 24 @@ -226,7 +224,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19 Width = 349 Height = 21 Flat = False - ParentCtl3D = False + ParentFlat = False Filter = 'Ficheros de norma 19 (*.C19)|*.C19' DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] DialogTitle = 'Volcar a disco la remesa' @@ -236,9 +234,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19 AppStorage = JvAppRegistryStorage AppStoragePath = 'fEditorBase\' VersionCheck = fpvcNocheck - StoredProps.Strings = ( - 'edtCodAgencia.Text' - 'edtCodEntidad.Text') StoredValues = <> Left = 80 Top = 64 diff --git a/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas b/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas index bd720887..e388526d 100644 --- a/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas +++ b/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas @@ -19,8 +19,8 @@ type Label2: TLabel; Label3: TLabel; Label4: TLabel; - edtCodEntidad: TcxMaskEdit; - edtCodAgencia: TcxMaskEdit; + edtCodEntidad: TcxTextEdit; + edtCodAgencia: TcxTextEdit; JvgWizardHeader1: TJvgWizardHeader; Bevel1: TBevel; JvFormStorage: TJvFormStorage; @@ -40,11 +40,11 @@ type private FFichero : String; protected - procedure SetCodigoEntidad(const AValue: Integer); - function GetCodigoEntidad : Integer; + procedure SetCodigoEntidad(const AValue: String); + function GetCodigoEntidad : String; - procedure SetCodigoAgencia(const AValue: Integer); - function GetCodigoAgencia : Integer; + procedure SetCodigoAgencia(const AValue: String); + function GetCodigoAgencia : String; procedure SetFechaCargo(const AValue: TDateTime); function GetFechaCargo : TDateTime; @@ -52,8 +52,8 @@ type procedure SetFichero(const AValue: String); function GetFichero : String; public - property CodigoEntidad : Integer read GetCodigoEntidad write SetCodigoEntidad; - property CodigoAgencia : Integer read GetCodigoAgencia write SetCodigoAgencia; + property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad; + property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia; property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo; property Fichero : String read GetFichero write SetFichero; end; @@ -103,14 +103,14 @@ begin edtFechaCargo.Date := Now; end; -function TfEditorExportacionNorma19.GetCodigoAgencia: Integer; +function TfEditorExportacionNorma19.GetCodigoAgencia: String; begin - Result := StrToInt(edtCodAgencia.Text); + Result := edtCodAgencia.Text; end; -function TfEditorExportacionNorma19.GetCodigoEntidad: Integer; +function TfEditorExportacionNorma19.GetCodigoEntidad: String; begin - Result := StrToInt(edtCodEntidad.Text); + Result := edtCodEntidad.Text; end; function TfEditorExportacionNorma19.GetFechaCargo: TDateTime; @@ -170,14 +170,14 @@ begin end; -procedure TfEditorExportacionNorma19.SetCodigoAgencia(const AValue: Integer); +procedure TfEditorExportacionNorma19.SetCodigoAgencia(const AValue: String); begin - edtCodAgencia.Text := IntToStr(AValue); + edtCodAgencia.Text := AValue; end; -procedure TfEditorExportacionNorma19.SetCodigoEntidad(const AValue: Integer); +procedure TfEditorExportacionNorma19.SetCodigoEntidad(const AValue: String); begin - edtCodEntidad.Text := IntToStr(AValue); + edtCodEntidad.Text := AValue; end; procedure TfEditorExportacionNorma19.SetFechaCargo(const AValue: TDateTime); diff --git a/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma32.dfm b/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma32.dfm index c7585d1a..cd5694d9 100644 --- a/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma32.dfm +++ b/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma32.dfm @@ -307,8 +307,6 @@ object fEditorExportacionNorma32: TfEditorExportacionNorma32 AppStoragePath = 'fEditorBase\' VersionCheck = fpvcNocheck StoredProps.Strings = ( - 'edtCodAgencia.Text' - 'edtCodEntidad.Text' 'edtCodigoIdentif.Text' 'edtINE.Text') StoredValues = <> diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj index 7e4bcb77..003abe94 100644 --- a/Source/Servidor/FactuGES_Server.bdsproj +++ b/Source/Servidor/FactuGES_Server.bdsproj @@ -154,7 +154,7 @@ False 3 0 - 1 + 2 0 False False @@ -167,15 +167,15 @@ Rodax Software S.L. - 3.0.1.0 + 3.0.2.0 FactuGES Server - 3.0.1.0 + 3.0.2.0 - lunes, 16 de junio de 2008 19:42 + RemObjects Pascal Script - RemObjects SDK 3.0 Integration diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index acf56fc8..65f00a0a 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ