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="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">1</VersionInfo>
<VersionInfo Name="Release">2</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</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="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></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> <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
['{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;

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

@ -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;

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

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

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

@ -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);

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

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

8
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">1</VersionInfo>
<VersionInfo Name="Release">2</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,15 +167,15 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</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="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></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="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>
</Delphi.Personality>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.