Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Al generar los ficheros de norma 19 y 32, coger en entidad y la oficina del código de cuenta asociada a la remesa.

Browse Source 
- Incremento de versión: 3.0.2

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@252 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2008-06-17 16:52:11 +00:00
parent c956c231cb
commit 762c3c5ddb
10 changed files with 61 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

6
Source/Cliente/FactuGES.bdsproj
View File

@ -149,7 +149,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo> <VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">1</VersionInfo> <VersionInfo Name="Release">2</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.1.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">3.0.2.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys> <VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.1.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">3.0.2.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages> </VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

12
Source/Modulos/Banca electronica/Controller/View/uIEditorExportacionNorma19.pas
View File

@ -6,13 +6,13 @@ type
IEditorExportacionNorma19 = interface IEditorExportacionNorma19 = interface
['{FED1E69E-99F3-408E-9CA8-FADEF2E01726}'] ['{FED1E69E-99F3-408E-9CA8-FADEF2E01726}']
procedure SetCodigoEntidad(const AValue: Integer); procedure SetCodigoEntidad(const AValue: String);
function GetCodigoEntidad : Integer; function GetCodigoEntidad : String;
property CodigoEntidad : Integer read GetCodigoEntidad write SetCodigoEntidad; property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
procedure SetCodigoAgencia(const AValue: Integer); procedure SetCodigoAgencia(const AValue: String);
function GetCodigoAgencia : Integer; function GetCodigoAgencia : String;
property CodigoAgencia : Integer read GetCodigoAgencia write SetCodigoAgencia; property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
procedure SetFechaCargo(const AValue: TDateTime); procedure SetFechaCargo(const AValue: TDateTime);
function GetFechaCargo : TDateTime; function GetFechaCargo : TDateTime;

36
Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas
View File

@ -37,7 +37,7 @@ type
TBancaElectronicaController = class(TInterfacedObject, IBancaElectronicaController) TBancaElectronicaController = class(TInterfacedObject, IBancaElectronicaController)
private private
function VerEditorNorma19(var Entidad : Integer; var Oficina : Integer; function VerEditorNorma19(var Entidad : String; var Oficina : String;
var AFechaCargo : TDateTime; var AFileName : String): Boolean; var AFechaCargo : TDateTime; var AFileName : String): Boolean;
function VerEditorNorma32(var Identificador : String; function VerEditorNorma32(var Identificador : String;
@ -60,7 +60,7 @@ uses
uBizRemesasCliente, uRemesasClienteController, schRemesasClienteClient_Intf, uBizRemesasCliente, uRemesasClienteController, schRemesasClienteClient_Intf,
schRecibosClienteClient_Intf, Dialogs, schRecibosClienteClient_Intf, Dialogs,
uIEditorExportacionNorma19, uIEditorExportacionNorma32, uBizRecibosCliente, uIEditorExportacionNorma19, uIEditorExportacionNorma32, uBizRecibosCliente,
schContactosClient_Intf; schContactosClient_Intf, schEmpresasClient_Intf;
{ TBancaElectronicaController } { TBancaElectronicaController }
@ -78,8 +78,8 @@ var
ANorma19 : TCVBNorma1958CSB; ANorma19 : TCVBNorma1958CSB;
I: integer; I: integer;
AEntidad : Integer; AEntidad : String;
AOficina : Integer; AOficina : String;
begin begin
ARemesasController := TRemesasClienteController.Create; ARemesasController := TRemesasClienteController.Create;
AEmpresasController := TEmpresasController.Create; AEmpresasController := TEmpresasController.Create;
@ -104,11 +104,22 @@ begin
ANorma19.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C19'; ANorma19.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C19';
ANorma19.FecAbono := ARemesa.FECHA_REMESA; 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 if not VerEditorNorma19(AEntidad, AOficina, ANorma19.FecAbono, ANorma19.FNomFic) then
Exit; Exit;
ANorma19.EntRecepPres := IntToStr(AEntidad); ANorma19.EntRecepPres := AEntidad;
ANorma19.OfiRecepPres := IntToStr(AOficina); ANorma19.OfiRecepPres := AOficina;
with ANorma19 do with ANorma19 do
begin begin
@ -224,6 +235,17 @@ begin
ANorma32.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C32'; ANorma32.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C32';
ANorma32.FechaFichero := Date; 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, if not VerEditorNorma32(ANorma32.IdCedente, ACodINE, AEntidad,
AOficina, ANorma32.FNomFic) then AOficina, ANorma32.FNomFic) then
Exit; Exit;
@ -309,7 +331,7 @@ begin
end; end;
function TBancaElectronicaController.VerEditorNorma19 ( 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 AFileName : String): Boolean;
var var
AEditor : IEditorExportacionNorma19; AEditor : IEditorExportacionNorma19;

11
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm
View File

@ -163,7 +163,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
TabOrder = 2 TabOrder = 2
Width = 167 Width = 167
end end
object edtCodEntidad: TcxMaskEdit object edtCodEntidad: TcxTextEdit
Left = 120 Left = 120
Top = 93 Top = 93
Properties.BeepOnError = True Properties.BeepOnError = True
@ -180,7 +180,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
Text = ' ' Text = ' '
Width = 73 Width = 73
end end
object edtCodAgencia: TcxMaskEdit object edtCodAgencia: TcxTextEdit
Left = 120 Left = 120
Top = 120 Top = 120
Properties.BeepOnError = True Properties.BeepOnError = True
@ -208,7 +208,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
ModalResult = 2 ModalResult = 2
TabOrder = 4 TabOrder = 4
OnClick = CancelBtnClick OnClick = CancelBtnClick
ExplicitTop = 265
end end
object OKBtn: TButton object OKBtn: TButton
Left = 202 Left = 202
@ -218,7 +217,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
Action = actVolcar Action = actVolcar
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
TabOrder = 3 TabOrder = 3
ExplicitTop = 265
end end
object JvFilenameEdit1: TJvFilenameEdit object JvFilenameEdit1: TJvFilenameEdit
Left = 24 Left = 24
@ -226,7 +224,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
Width = 349 Width = 349
Height = 21 Height = 21
Flat = False Flat = False
ParentCtl3D = False ParentFlat = False
Filter = 'Ficheros de norma 19 (*.C19)|*.C19' Filter = 'Ficheros de norma 19 (*.C19)|*.C19'
DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
DialogTitle = 'Volcar a disco la remesa' DialogTitle = 'Volcar a disco la remesa'
@ -236,9 +234,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
AppStorage = JvAppRegistryStorage AppStorage = JvAppRegistryStorage
AppStoragePath = 'fEditorBase\' AppStoragePath = 'fEditorBase\'
VersionCheck = fpvcNocheck VersionCheck = fpvcNocheck
StoredProps.Strings = (
'edtCodAgencia.Text'
'edtCodEntidad.Text')
StoredValues = <> StoredValues = <>
Left = 80 Left = 80
Top = 64 Top = 64

32
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas
View File

@ -19,8 +19,8 @@ type
Label2: TLabel; Label2: TLabel;
Label3: TLabel; Label3: TLabel;
Label4: TLabel; Label4: TLabel;
edtCodEntidad: TcxMaskEdit; edtCodEntidad: TcxTextEdit;
edtCodAgencia: TcxMaskEdit; edtCodAgencia: TcxTextEdit;
JvgWizardHeader1: TJvgWizardHeader; JvgWizardHeader1: TJvgWizardHeader;
Bevel1: TBevel; Bevel1: TBevel;
JvFormStorage: TJvFormStorage; JvFormStorage: TJvFormStorage;
@ -40,11 +40,11 @@ type
private private
FFichero : String; FFichero : String;
protected protected
procedure SetCodigoEntidad(const AValue: Integer); procedure SetCodigoEntidad(const AValue: String);
function GetCodigoEntidad : Integer; function GetCodigoEntidad : String;
procedure SetCodigoAgencia(const AValue: Integer); procedure SetCodigoAgencia(const AValue: String);
function GetCodigoAgencia : Integer; function GetCodigoAgencia : String;
procedure SetFechaCargo(const AValue: TDateTime); procedure SetFechaCargo(const AValue: TDateTime);
function GetFechaCargo : TDateTime; function GetFechaCargo : TDateTime;
@ -52,8 +52,8 @@ type
procedure SetFichero(const AValue: String); procedure SetFichero(const AValue: String);
function GetFichero : String; function GetFichero : String;
public public
property CodigoEntidad : Integer read GetCodigoEntidad write SetCodigoEntidad; property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
property CodigoAgencia : Integer read GetCodigoAgencia write SetCodigoAgencia; property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo; property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo;
property Fichero : String read GetFichero write SetFichero; property Fichero : String read GetFichero write SetFichero;
end; end;
@ -103,14 +103,14 @@ begin
edtFechaCargo.Date := Now; edtFechaCargo.Date := Now;
end; end;
function TfEditorExportacionNorma19.GetCodigoAgencia: Integer; function TfEditorExportacionNorma19.GetCodigoAgencia: String;
begin begin
Result := StrToInt(edtCodAgencia.Text); Result := edtCodAgencia.Text;
end; end;
function TfEditorExportacionNorma19.GetCodigoEntidad: Integer; function TfEditorExportacionNorma19.GetCodigoEntidad: String;
begin begin
Result := StrToInt(edtCodEntidad.Text); Result := edtCodEntidad.Text;
end; end;
function TfEditorExportacionNorma19.GetFechaCargo: TDateTime; function TfEditorExportacionNorma19.GetFechaCargo: TDateTime;
@ -170,14 +170,14 @@ begin
end; end;
procedure TfEditorExportacionNorma19.SetCodigoAgencia(const AValue: Integer); procedure TfEditorExportacionNorma19.SetCodigoAgencia(const AValue: String);
begin begin
edtCodAgencia.Text := IntToStr(AValue); edtCodAgencia.Text := AValue;
end; end;
procedure TfEditorExportacionNorma19.SetCodigoEntidad(const AValue: Integer); procedure TfEditorExportacionNorma19.SetCodigoEntidad(const AValue: String);
begin begin
edtCodEntidad.Text := IntToStr(AValue); edtCodEntidad.Text := AValue;
end; end;
procedure TfEditorExportacionNorma19.SetFechaCargo(const AValue: TDateTime); procedure TfEditorExportacionNorma19.SetFechaCargo(const AValue: TDateTime);

2
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma32.dfm
View File

@ -307,8 +307,6 @@ object fEditorExportacionNorma32: TfEditorExportacionNorma32
AppStoragePath = 'fEditorBase\' AppStoragePath = 'fEditorBase\'
VersionCheck = fpvcNocheck VersionCheck = fpvcNocheck
StoredProps.Strings = ( StoredProps.Strings = (
'edtCodAgencia.Text'
'edtCodEntidad.Text'
'edtCodigoIdentif.Text' 'edtCodigoIdentif.Text'
'edtINE.Text') 'edtINE.Text')
StoredValues = <> StoredValues = <>

8
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo> <VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">1</VersionInfo> <VersionInfo Name="Release">2</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,15 +167,15 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.1.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">3.0.2.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys> <VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.1.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">3.0.2.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">lunes, 16 de junio de 2008 19:42</VersionInfoKeys></VersionInfoKeys> <Excluded_Packages> <VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages>
</Delphi.Personality> </Delphi.Personality>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.