Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se pone en empresa ID_TIPO_IVA por defecto y ID_FORMA_PAGO por defecto, para en el resto de la aplicacion tirar de ellos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@335 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-11-20 19:50:24 +00:00
parent 0d7bc310cd
commit dbb37beb37
34 changed files with 961 additions and 228 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -29,6 +29,11 @@ type
function GetTiendasController : ITiendasEmpresaController; function GetTiendasController : ITiendasEmpresaController;
property TiendasController : ITiendasEmpresaController read GetTiendasController; property TiendasController : ITiendasEmpresaController read GetTiendasController;
function DarListaFormasPago: TStringList;
function DarListaTiposIVA: TStringList;
Procedure AsignarIDFormaPago(AEmpresa: IBizEmpresa; const IDFormaPago: Variant);
Procedure AsignarIDTipoIVA(AEmpresa: IBizEmpresa; const IDTipoIVA: Variant);
end; end;
TEmpresasController = class(TControllerBase, IEmpresasController) TEmpresasController = class(TControllerBase, IEmpresasController)
@ -57,6 +62,10 @@ type
function DarListaTiendas(AEmpresa : IBizEmpresa): TStringList; function DarListaTiendas(AEmpresa : IBizEmpresa): TStringList;
function DarTiendaUsuario(AEmpresa: IBizEmpresa; const ID_USUARIO: Integer): IBizEmpresaTienda; function DarTiendaUsuario(AEmpresa: IBizEmpresa; const ID_USUARIO: Integer): IBizEmpresaTienda;
function DarListaFormasPago: TStringList;
function DarListaTiposIVA: TStringList;
Procedure AsignarIDFormaPago(AEmpresa: IBizEmpresa; const IDFormaPago: Variant);
Procedure AsignarIDTipoIVA(AEmpresa: IBizEmpresa; const IDTipoIVA: Variant);
property TiendasController : ITiendasEmpresaController read GetTiendasController; property TiendasController : ITiendasEmpresaController read GetTiendasController;
end; end;
@ -65,7 +74,7 @@ implementation
uses uses
uEditorRegistryUtils, cxControls, DB, uFactuGES_App, uEditorRegistryUtils, cxControls, DB, uFactuGES_App,
uDataModuleEmpresas, uIEditorEmpresa; uDataModuleEmpresas, uIEditorEmpresa, uStringsUtils;
{ TEmpresasController } { TEmpresasController }
@ -74,6 +83,39 @@ begin
AEmpresa.Insert; AEmpresa.Insert;
end; end;
procedure TEmpresasController.AsignarIDFormaPago(AEmpresa: IBizEmpresa; const IDFormaPago: Variant);
begin
if Assigned(AEmpresa) then
begin
if not AEmpresa.DataTable.Editing then
AEmpresa.DataTable.Edit;
if EsCadenaVacia(IDFormaPago) then
AEmpresa.ID_FORMA_PAGOIsNull := true
else
AEmpresa.ID_FORMA_PAGO := IDFormaPago;
AEmpresa.DataTable.Post;
end;
end;
procedure TEmpresasController.AsignarIDTipoIVA(AEmpresa: IBizEmpresa;
const IDTipoIVA: Variant);
begin
if Assigned(AEmpresa) then
begin
if not AEmpresa.DataTable.Editing then
AEmpresa.DataTable.Edit;
if EsCadenaVacia(IDTipoIVA) then
AEmpresa.ID_TIPO_IVAIsNull := true
else
AEmpresa.ID_TIPO_IVA := IDTipoIVA;
AEmpresa.DataTable.Post;
end;
end;
function TEmpresasController.Buscar(const ID: Integer): IBizEmpresa; function TEmpresasController.Buscar(const ID: Integer): IBizEmpresa;
begin begin
Result := FDataModule.GetItem(ID) Result := FDataModule.GetItem(ID)
@ -91,6 +133,16 @@ begin
FTiendasController := TTiendasEmpresaController.Create; FTiendasController := TTiendasEmpresaController.Create;
end; end;
function TEmpresasController.DarListaFormasPago: TStringList;
begin
ShowHourglassCursor;
try
Result := FDataModule.DarListaFormasPago;
finally
HideHourglassCursor;
end;
end;
function TEmpresasController.DarListaTiendas( function TEmpresasController.DarListaTiendas(
AEmpresa: IBizEmpresa): TStringList; AEmpresa: IBizEmpresa): TStringList;
var var
@ -120,6 +172,16 @@ begin
end; end;
end; end;
function TEmpresasController.DarListaTiposIVA: TStringList;
begin
ShowHourglassCursor;
try
Result := FDataModule.DarListaTiposIVA;
finally
HideHourglassCursor;
end;
end;
function TEmpresasController.DarTiendaUsuario(AEmpresa: IBizEmpresa; const ID_USUARIO: Integer): IBizEmpresaTienda; function TEmpresasController.DarTiendaUsuario(AEmpresa: IBizEmpresa; const ID_USUARIO: Integer): IBizEmpresaTienda;
var var
AIDTienda : Integer; AIDTienda : Integer;

9
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
View File

@ -181,9 +181,12 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
DictionaryEntry = 'Empresas_REGISTRO_MERCANTIL' DictionaryEntry = 'Empresas_REGISTRO_MERCANTIL'
end end
item item
Name = 'IVA' Name = 'ID_TIPO_IVA'
DataType = datFloat DataType = datSmallInt
DictionaryEntry = 'Empresas_IVA' end
item
Name = 'ID_FORMA_PAGO'
DataType = datSmallInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

23
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.pas
View File

@ -34,6 +34,9 @@ type
function NewTienda : IBizEmpresaTienda; function NewTienda : IBizEmpresaTienda;
function GetTiendas : IBizEmpresaTienda; function GetTiendas : IBizEmpresaTienda;
function GetTienda(const ID : Integer) : IBizEmpresaTienda; function GetTienda(const ID : Integer) : IBizEmpresaTienda;
function DarListaFormasPago: TStringList;
function DarListaTiposIVA: TStringList;
end; end;
implementation implementation
@ -41,7 +44,7 @@ implementation
{$R *.DFM} {$R *.DFM}
uses uses
uDataModuleConexion, uDataTableUtils, Dialogs, uDataModuleConexion, uDataTableUtils, Dialogs, uROTypes,
FactuGES_Intf, schEmpresasClient_Intf, cxControls; FactuGES_Intf, schEmpresasClient_Intf, cxControls;
procedure TDataModuleEmpresas.DAClientDataModuleCreate(Sender: TObject); procedure TDataModuleEmpresas.DAClientDataModuleCreate(Sender: TObject);
@ -50,6 +53,24 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TDataModuleEmpresas.DarListaFormasPago: TStringList;
var
ABinary : Binary;
begin
ABinary := (RORemoteService as IsrvEmpresas).DarListaFormasPago;
Result := TStringList.Create;
Result.LoadFromStream(ABinary);
end;
function TDataModuleEmpresas.DarListaTiposIVA: TStringList;
var
ABinary : Binary;
begin
ABinary := (RORemoteService as IsrvEmpresas).DarListaTiposIVA;
Result := TStringList.Create;
Result.LoadFromStream(ABinary);
end;
function TDataModuleEmpresas.DarTiendaUsuario(const ID_EMPRESA, function TDataModuleEmpresas.DarTiendaUsuario(const ID_EMPRESA,
ID_USUARIO: Integer): Integer; ID_USUARIO: Integer): Integer;
begin begin

2
Source/ApplicationBase/Empresas/Model/Data/uIDataModuleEmpresas.pas
View File

@ -17,6 +17,8 @@ type
function GetTiendas : IBizEmpresaTienda; function GetTiendas : IBizEmpresaTienda;
function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer; function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer;
function DarListaFormasPago: TStringList;
function DarListaTiposIVA: TStringList;
end; end;
implementation implementation

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

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_EmpresasTiendas = '{7691DBC8-C1A5-4495-B66F-FADD68AF373A}'; RID_EmpresasTiendas = '{DE2F56B7-FF02-42DD-81B1-9CAE8180FB62}';
RID_Empresas = '{591782AE-DFE0-4EF5-9F14-6C24F113B6C6}'; RID_Empresas = '{548CF5B0-8BA0-4404-8921-5B9A812E898A}';
RID_EmpresasDatosBanco = '{770FD731-3914-4222-8C72-DE644036A8FD}'; RID_EmpresasDatosBanco = '{2FB999FE-08AA-4D00-90BA-17B16C1A09F3}';
{ Data table names } { Data table names }
nme_EmpresasTiendas = 'EmpresasTiendas'; nme_EmpresasTiendas = 'EmpresasTiendas';
@ -77,7 +77,8 @@ const
fld_EmpresasUSUARIO = 'USUARIO'; fld_EmpresasUSUARIO = 'USUARIO';
fld_EmpresasLOGOTIPO = 'LOGOTIPO'; fld_EmpresasLOGOTIPO = 'LOGOTIPO';
fld_EmpresasREGISTRO_MERCANTIL = 'REGISTRO_MERCANTIL'; fld_EmpresasREGISTRO_MERCANTIL = 'REGISTRO_MERCANTIL';
fld_EmpresasIVA = 'IVA'; fld_EmpresasID_TIPO_IVA = 'ID_TIPO_IVA';
fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO';
{ Empresas field indexes } { Empresas field indexes }
idx_EmpresasID = 0; idx_EmpresasID = 0;
@ -102,7 +103,8 @@ const
idx_EmpresasUSUARIO = 19; idx_EmpresasUSUARIO = 19;
idx_EmpresasLOGOTIPO = 20; idx_EmpresasLOGOTIPO = 20;
idx_EmpresasREGISTRO_MERCANTIL = 21; idx_EmpresasREGISTRO_MERCANTIL = 21;
idx_EmpresasIVA = 22; idx_EmpresasID_TIPO_IVA = 22;
idx_EmpresasID_FORMA_PAGO = 23;
{ EmpresasDatosBanco fields } { EmpresasDatosBanco fields }
fld_EmpresasDatosBancoID = 'ID'; fld_EmpresasDatosBancoID = 'ID';
@ -129,7 +131,7 @@ const
type type
{ IEmpresasTiendas } { IEmpresasTiendas }
IEmpresasTiendas = interface(IDAStronglyTypedDataTable) IEmpresasTiendas = interface(IDAStronglyTypedDataTable)
['{5AB99CD0-0101-4D3C-B829-F8FA2D78ABA0}'] ['{FC8CABB4-BBDD-4DBC-80E9-A06BB22A7D5D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -344,7 +346,7 @@ type
{ IEmpresas } { IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable) IEmpresas = interface(IDAStronglyTypedDataTable)
['{A5EABBE6-C793-4CBD-B0D7-E460BACC895D}'] ['{8A1D6090-A739-40B1-8D56-B2C0247C5CA4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -432,10 +434,14 @@ type
procedure SetREGISTRO_MERCANTILValue(const aValue: String); procedure SetREGISTRO_MERCANTILValue(const aValue: String);
function GetREGISTRO_MERCANTILIsNull: Boolean; function GetREGISTRO_MERCANTILIsNull: Boolean;
procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean);
function GetIVAValue: Float; function GetID_TIPO_IVAValue: SmallInt;
procedure SetIVAValue(const aValue: Float); procedure SetID_TIPO_IVAValue(const aValue: SmallInt);
function GetIVAIsNull: Boolean; function GetID_TIPO_IVAIsNull: Boolean;
procedure SetIVAIsNull(const aValue: Boolean); procedure SetID_TIPO_IVAIsNull(const aValue: Boolean);
function GetID_FORMA_PAGOValue: SmallInt;
procedure SetID_FORMA_PAGOValue(const aValue: SmallInt);
function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -483,8 +489,10 @@ type
property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull; property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull;
property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue; property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
property IVA: Float read GetIVAValue write SetIVAValue; property ID_TIPO_IVA: SmallInt read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
property ID_FORMA_PAGO: SmallInt read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
end; end;
{ TEmpresasDataTableRules } { TEmpresasDataTableRules }
@ -582,10 +590,14 @@ type
procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual; procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
function GetREGISTRO_MERCANTILIsNull: Boolean; virtual; function GetREGISTRO_MERCANTILIsNull: Boolean; virtual;
procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual; procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual;
function GetIVAValue: Float; virtual; function GetID_TIPO_IVAValue: SmallInt; virtual;
procedure SetIVAValue(const aValue: Float); virtual; procedure SetID_TIPO_IVAValue(const aValue: SmallInt); virtual;
function GetIVAIsNull: Boolean; virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual;
procedure SetIVAIsNull(const aValue: Boolean); virtual; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
function GetID_FORMA_PAGOValue: SmallInt; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: SmallInt); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -632,8 +644,10 @@ type
property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull; property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull;
property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue; property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
property IVA: Float read GetIVAValue write SetIVAValue; property ID_TIPO_IVA: SmallInt read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
property ID_FORMA_PAGO: SmallInt read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -643,7 +657,7 @@ type
{ IEmpresasDatosBanco } { IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{CE9EA55E-D8DD-458D-99E0-65D68127E258}'] ['{097616F3-E8C0-400E-AB29-23A93A6D79B1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1621,25 +1635,46 @@ begin
DataTable.Fields[idx_EmpresasREGISTRO_MERCANTIL].AsVariant := Null; DataTable.Fields[idx_EmpresasREGISTRO_MERCANTIL].AsVariant := Null;
end; end;
function TEmpresasDataTableRules.GetIVAValue: Float; function TEmpresasDataTableRules.GetID_TIPO_IVAValue: SmallInt;
begin begin
result := DataTable.Fields[idx_EmpresasIVA].AsFloat; result := DataTable.Fields[idx_EmpresasID_TIPO_IVA].AsSmallInt;
end; end;
procedure TEmpresasDataTableRules.SetIVAValue(const aValue: Float); procedure TEmpresasDataTableRules.SetID_TIPO_IVAValue(const aValue: SmallInt);
begin begin
DataTable.Fields[idx_EmpresasIVA].AsFloat := aValue; DataTable.Fields[idx_EmpresasID_TIPO_IVA].AsSmallInt := aValue;
end; end;
function TEmpresasDataTableRules.GetIVAIsNull: boolean; function TEmpresasDataTableRules.GetID_TIPO_IVAIsNull: boolean;
begin begin
result := DataTable.Fields[idx_EmpresasIVA].IsNull; result := DataTable.Fields[idx_EmpresasID_TIPO_IVA].IsNull;
end; end;
procedure TEmpresasDataTableRules.SetIVAIsNull(const aValue: Boolean); procedure TEmpresasDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_EmpresasIVA].AsVariant := Null; DataTable.Fields[idx_EmpresasID_TIPO_IVA].AsVariant := Null;
end;
function TEmpresasDataTableRules.GetID_FORMA_PAGOValue: SmallInt;
begin
result := DataTable.Fields[idx_EmpresasID_FORMA_PAGO].AsSmallInt;
end;
procedure TEmpresasDataTableRules.SetID_FORMA_PAGOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_EmpresasID_FORMA_PAGO].AsSmallInt := aValue;
end;
function TEmpresasDataTableRules.GetID_FORMA_PAGOIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpresasID_FORMA_PAGO].IsNull;
end;
procedure TEmpresasDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpresasID_FORMA_PAGO].AsVariant := Null;
end; end;

103
Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_EmpresasTiendasDelta = '{DCB989E4-D085-4440-B7AA-43454431AB6E}'; RID_EmpresasTiendasDelta = '{E92D2312-CB08-4084-81FE-BD86F002599A}';
RID_EmpresasDelta = '{FE56DEB0-3242-4852-8C8C-68B235BBB329}'; RID_EmpresasDelta = '{1E6C02A3-0E3A-4BF4-BE56-C4C03528B23F}';
RID_EmpresasDatosBancoDelta = '{89B3E6FF-5C24-4695-ADBD-2899BCA0879D}'; RID_EmpresasDatosBancoDelta = '{59FD85FC-B04A-4FAB-BC2A-193DEF12B97F}';
type type
{ IEmpresasTiendasDelta } { IEmpresasTiendasDelta }
IEmpresasTiendasDelta = interface(IEmpresasTiendas) IEmpresasTiendasDelta = interface(IEmpresasTiendas)
['{DCB989E4-D085-4440-B7AA-43454431AB6E}'] ['{E92D2312-CB08-4084-81FE-BD86F002599A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -231,7 +231,7 @@ type
{ IEmpresasDelta } { IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas) IEmpresasDelta = interface(IEmpresas)
['{FE56DEB0-3242-4852-8C8C-68B235BBB329}'] ['{1E6C02A3-0E3A-4BF4-BE56-C4C03528B23F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -255,7 +255,8 @@ type
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldLOGOTIPOValue : IROStream; function GetOldLOGOTIPOValue : IROStream;
function GetOldREGISTRO_MERCANTILValue : String; function GetOldREGISTRO_MERCANTILValue : String;
function GetOldIVAValue : Float; function GetOldID_TIPO_IVAValue : SmallInt;
function GetOldID_FORMA_PAGOValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -280,7 +281,8 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue; property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue;
property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue; property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
property OldIVA : Float read GetOldIVAValue; property OldID_TIPO_IVA : SmallInt read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue;
end; end;
{ TEmpresasBusinessProcessorRules } { TEmpresasBusinessProcessorRules }
@ -422,12 +424,18 @@ type
function GetOldREGISTRO_MERCANTILIsNull: Boolean; virtual; function GetOldREGISTRO_MERCANTILIsNull: Boolean; virtual;
procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual; procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual; procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual;
function GetIVAValue: Float; virtual; function GetID_TIPO_IVAValue: SmallInt; virtual;
function GetIVAIsNull: Boolean; virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual;
function GetOldIVAValue: Float; virtual; function GetOldID_TIPO_IVAValue: SmallInt; virtual;
function GetOldIVAIsNull: Boolean; virtual; function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
procedure SetIVAValue(const aValue: Float); virtual; procedure SetID_TIPO_IVAValue(const aValue: SmallInt); virtual;
procedure SetIVAIsNull(const aValue: Boolean); virtual; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
function GetID_FORMA_PAGOValue: SmallInt; virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
function GetOldID_FORMA_PAGOValue: SmallInt; virtual;
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: SmallInt); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -518,10 +526,14 @@ type
property REGISTRO_MERCANTILIsNull : Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; property REGISTRO_MERCANTILIsNull : Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue; property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
property OldREGISTRO_MERCANTILIsNull : Boolean read GetOldREGISTRO_MERCANTILIsNull; property OldREGISTRO_MERCANTILIsNull : Boolean read GetOldREGISTRO_MERCANTILIsNull;
property IVA : Float read GetIVAValue write SetIVAValue; property ID_TIPO_IVA : SmallInt read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull; property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
property OldIVA : Float read GetOldIVAValue; property OldID_TIPO_IVA : SmallInt read GetOldID_TIPO_IVAValue;
property OldIVAIsNull : Boolean read GetOldIVAIsNull; property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
property ID_FORMA_PAGO : SmallInt read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -531,7 +543,7 @@ type
{ IEmpresasDatosBancoDelta } { IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{89B3E6FF-5C24-4695-ADBD-2899BCA0879D}'] ['{59FD85FC-B04A-4FAB-BC2A-193DEF12B97F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -1892,35 +1904,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL] := Null;
end; end;
function TEmpresasBusinessProcessorRules.GetIVAValue: Float; function TEmpresasBusinessProcessorRules.GetID_TIPO_IVAValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_TIPO_IVA];
end; end;
function TEmpresasBusinessProcessorRules.GetIVAIsNull: Boolean; function TEmpresasBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_TIPO_IVA]);
end; end;
function TEmpresasBusinessProcessorRules.GetOldIVAValue: Float; function TEmpresasBusinessProcessorRules.GetOldID_TIPO_IVAValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasIVA]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_TIPO_IVA];
end; end;
function TEmpresasBusinessProcessorRules.GetOldIVAIsNull: Boolean; function TEmpresasBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasIVA]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_TIPO_IVA]);
end; end;
procedure TEmpresasBusinessProcessorRules.SetIVAValue(const aValue: Float); procedure TEmpresasBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: SmallInt);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_TIPO_IVA] := aValue;
end; end;
procedure TEmpresasBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean); procedure TEmpresasBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_TIPO_IVA] := Null;
end;
function TEmpresasBusinessProcessorRules.GetID_FORMA_PAGOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO];
end;
function TEmpresasBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO]);
end;
function TEmpresasBusinessProcessorRules.GetOldID_FORMA_PAGOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_FORMA_PAGO];
end;
function TEmpresasBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_FORMA_PAGO]);
end;
procedure TEmpresasBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO] := aValue;
end;
procedure TEmpresasBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO] := Null;
end; end;

17
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -286,8 +286,12 @@ object srvEmpresas: TsrvEmpresas
TableField = 'REGISTRO_MERCANTIL' TableField = 'REGISTRO_MERCANTIL'
end end
item item
DatasetField = 'IVA' DatasetField = 'ID_TIPO_IVA'
TableField = 'IVA' TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end> end>
end> end>
Name = 'Empresas' Name = 'Empresas'
@ -424,9 +428,12 @@ object srvEmpresas: TsrvEmpresas
DictionaryEntry = 'Empresas_REGISTRO_MERCANTIL' DictionaryEntry = 'Empresas_REGISTRO_MERCANTIL'
end end
item item
Name = 'IVA' Name = 'ID_TIPO_IVA'
DataType = datFloat DataType = datSmallInt
DictionaryEntry = 'Empresas_IVA' end
item
Name = 'ID_FORMA_PAGO'
DataType = datSmallInt
end> end>
end end
item item

28
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
View File

@ -33,6 +33,8 @@ type
private private
protected protected
function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer; function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer;
function DarListaFormasPago: Binary;
function DarListaTiposIVA: Binary;
end; end;
implementation implementation
@ -42,7 +44,7 @@ uses
{Generated:} FactuGES_Invk, uDataModuleServer, uRORemoteDataModule, {Generated:} FactuGES_Invk, uDataModuleServer, uRORemoteDataModule,
uDatabaseUtils, Dialogs, Variants, uROStreamSerializer, uROBinaryHelpers, uDatabaseUtils, Dialogs, Variants, uROStreamSerializer, uROBinaryHelpers,
uSesionesUtils, schEmpresasClient_Intf, uUsersManager, uSesionesUtils, schEmpresasClient_Intf, uUsersManager,
uRestriccionesUsuarioUtils; uRestriccionesUsuarioUtils, srvFormasPago_Impl, srvTiposIva_Impl;
procedure Create_srvEmpresas(out anInstance : IUnknown); procedure Create_srvEmpresas(out anInstance : IUnknown);
begin begin
@ -55,6 +57,30 @@ begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
end; end;
function TsrvEmpresas.DarListaFormasPago: Binary;
var
AFormasPagoServer : TsrvFormasPago;
begin
AFormasPagoServer := TsrvFormasPago.Create(nil);
try
Result := AFormasPagoServer.DarListaFormasPago;
finally
FreeAndNIL(AFormasPagoServer);
end;
end;
function TsrvEmpresas.DarListaTiposIVA: Binary;
var
ATiposIVAServer : TsrvTiposIVA;
begin
ATiposIVAServer := TsrvTiposIVA.Create(nil);
try
Result := ATiposIVAServer.DarListaTiposIVA;
finally
FreeAndNIL(ATiposIVAServer);
end;
end;
function TsrvEmpresas.DarTiendaUsuario(const ID_EMPRESA, ID_USUARIO: Integer): Integer; function TsrvEmpresas.DarTiendaUsuario(const ID_EMPRESA, ID_USUARIO: Integer): Integer;
var var
AContactosService : IsrvContactos; AContactosService : IsrvContactos;

126
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -122,54 +122,86 @@ inherited fEditorEmpresa: TfEditorEmpresa
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 189 Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 189 ExplicitTop = 189
ExplicitWidth = 84 ExplicitWidth = 84
Width = 84 Width = 84
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 216 Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 106 ExplicitWidth = 106
Width = 106 Width = 106
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 243 Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243 ExplicitTop = 243
ExplicitWidth = 100 ExplicitWidth = 100
Width = 100 Width = 100
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 289 Left = 345
Top = 216 Top = 216
ExplicitLeft = 289 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 345
ExplicitTop = 216 ExplicitTop = 216
end end
inherited ePaginaWeb: TcxDBTextEdit inherited ePaginaWeb: TcxDBTextEdit
Left = 477 Left = 533
Top = 216 Top = 216
ExplicitLeft = 477 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited eMailParticular: TcxDBTextEdit inherited eMailParticular: TcxDBTextEdit
Left = 477 Left = 533
Top = 189 Top = 189
ExplicitLeft = 477 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitTop = 189 ExplicitTop = 189
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited eMailTrabajo: TcxDBTextEdit inherited eMailTrabajo: TcxDBTextEdit
Left = 477 Left = 533
Top = 162 Top = 162
ExplicitLeft = 477 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited cxDBMemo1: TcxDBMemo inherited cxDBMemo1: TcxDBMemo
Top = 294 Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 294 ExplicitTop = 294
ExplicitWidth = 107 ExplicitWidth = 107
ExplicitHeight = 234 ExplicitHeight = 234
@ -177,69 +209,107 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 107 Width = 107
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 477 Left = 533
Top = 57 Top = 57
ExplicitLeft = 477 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 477 Left = 533
Top = 30 Top = 30
ExplicitLeft = 477 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 477 Left = 533
Top = 84 Top = 84
ExplicitLeft = 477 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 155 ExplicitWidth = 155
Width = 155 Width = 155
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 477 Left = 533
Top = 111 Top = 111
ExplicitLeft = 477 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 108 ExplicitWidth = 108
Width = 108 Width = 108
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 108 ExplicitWidth = 108
Width = 108 Width = 108
end end
inherited memRegistroMercantil: TcxDBMemo inherited memRegistroMercantil: TcxDBMemo
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 76 ExplicitWidth = 76
Width = 76 Width = 76
end end
inherited cxDBSpinEdit1: TcxDBSpinEdit
Top = 138
ExplicitTop = 138
end
inherited cxDBImage1: TcxDBImage inherited cxDBImage1: TcxDBImage
Left = 382 Left = 438
Top = 267 Top = 267
ExplicitLeft = 382 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 438
ExplicitTop = 267 ExplicitTop = 267
ExplicitWidth = 140 ExplicitWidth = 140
ExplicitHeight = 100 ExplicitHeight = 100
Height = 100 Height = 100
Width = 140 Width = 140
end end
inherited cbFormaPago: TcxComboBox
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitWidth = 359
Width = 359
end
end end
end end
end end
@ -319,6 +389,18 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 660 Width = 660
ExplicitWidth = 660 ExplicitWidth = 660
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end

3
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.pas
View File

@ -121,6 +121,8 @@ end;
procedure TfEditorEmpresa.SetController(const Value: IEmpresasController); procedure TfEditorEmpresa.SetController(const Value: IEmpresasController);
begin begin
FController := Value; FController := Value;
if Assigned(FController) then
ViewEmpresa.Controller := FController;
end; end;
procedure TfEditorEmpresa.SetViewEmpresa(const Value: IViewEmpresa); procedure TfEditorEmpresa.SetViewEmpresa(const Value: IViewEmpresa);
@ -143,6 +145,7 @@ begin
Empresa.DataTable.Active := True; Empresa.DataTable.Active := True;
pgPaginas.ActivePage := pagGeneral; pgPaginas.ActivePage := pagGeneral;
// frViewEmpresa1.cbFormaPago.Properties.OnEditValueChanged := frViewEmpresa1.FormaPagoEditValueChanged;
FViewEmpresa.SetFocus; FViewEmpresa.SetFocus;
end; end;

221
Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
View File

@ -1,6 +1,7 @@
inherited frViewEmpresa: TfrViewEmpresa inherited frViewEmpresa: TfrViewEmpresa
Width = 590 Width = 590
Height = 385 Height = 385
OnShow = CustomViewShow
ExplicitWidth = 590 ExplicitWidth = 590
ExplicitHeight = 385 ExplicitHeight = 385
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
@ -11,7 +12,11 @@ inherited frViewEmpresa: TfrViewEmpresa
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
590
385)
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 545 Left = 545
Top = 305 Top = 305
@ -29,26 +34,30 @@ inherited frViewEmpresa: TfrViewEmpresa
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 117 Left = 162
Top = 193 Top = 220
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 84 Width = 84
end end
object cbProvincia: TcxDBComboBox object cbProvincia: TcxDBComboBox
Left = 117 Left = 162
Top = 220 Top = 247
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.OnInitPopup = eProvinciaPropertiesInitPopup Properties.OnInitPopup = eProvinciaPropertiesInitPopup
@ -56,18 +65,24 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Width = 106 Width = 106
end end
object cbPoblacion: TcxDBComboBox object cbPoblacion: TcxDBComboBox
Left = 117 Left = 162
Top = 247 Top = 274
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.OnInitPopup = ePoblacionPropertiesInitPopup Properties.OnInitPopup = ePoblacionPropertiesInitPopup
@ -75,35 +90,45 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 100 Width = 100
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 248 Left = 299
Top = 220 Top = 247
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 65 Width = 65
end end
object ePaginaWeb: TcxDBTextEdit object ePaginaWeb: TcxDBTextEdit
Left = 438 Left = 489
Top = 220 Top = 220
DataBinding.DataField = 'PAGINA_WEB' DataBinding.DataField = 'PAGINA_WEB'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -111,17 +136,21 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
Width = 165 Width = 165
end end
object eMailParticular: TcxDBTextEdit object eMailParticular: TcxDBTextEdit
Left = 438 Left = 489
Top = 193 Top = 193
DataBinding.DataField = 'EMAIL_2' DataBinding.DataField = 'EMAIL_2'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -129,17 +158,21 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
Width = 165 Width = 165
end end
object eMailTrabajo: TcxDBTextEdit object eMailTrabajo: TcxDBTextEdit
Left = 438 Left = 489
Top = 166 Top = 166
DataBinding.DataField = 'EMAIL_1' DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -147,36 +180,44 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
Width = 129 Width = 129
end end
object cxDBMemo1: TcxDBMemo object cxDBMemo1: TcxDBMemo
Left = 22 Left = 22
Top = 304 Top = 331
DataBinding.DataField = 'NOTAS' DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
Height = 234 Height = 234
Width = 107 Width = 107
end end
object eTlfParticular: TcxDBTextEdit object eTlfParticular: TcxDBTextEdit
Left = 438 Left = 489
Top = 55 Top = 55
DataBinding.DataField = 'TELEFONO_2' DataBinding.DataField = 'TELEFONO_2'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -184,17 +225,21 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
Width = 91 Width = 91
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 438 Left = 489
Top = 28 Top = 28
DataBinding.DataField = 'TELEFONO_1' DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -202,17 +247,21 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
Width = 127 Width = 127
end end
object eTlfMovil: TcxDBTextEdit object eTlfMovil: TcxDBTextEdit
Left = 438 Left = 489
Top = 82 Top = 82
DataBinding.DataField = 'MOVIL_1' DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -220,17 +269,21 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
Width = 155 Width = 155
end end
object eFax: TcxDBTextEdit object eFax: TcxDBTextEdit
Left = 438 Left = 489
Top = 109 Top = 109
DataBinding.DataField = 'FAX' DataBinding.DataField = 'FAX'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -238,17 +291,21 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
Width = 121 Width = 121
end end
object eNombre: TcxDBTextEdit object eNombre: TcxDBTextEdit
Left = 117 Left = 162
Top = 28 Top = 28
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -257,17 +314,21 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 108 Width = 108
end end
object eNIFCIF: TcxDBTextEdit object eNIFCIF: TcxDBTextEdit
Left = 117 Left = 162
Top = 55 Top = 55
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -276,17 +337,21 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 108 Width = 108
end end
object memRegistroMercantil: TcxDBMemo object memRegistroMercantil: TcxDBMemo
Left = 117 Left = 162
Top = 82 Top = 82
DataBinding.DataField = 'REGISTRO_MERCANTIL' DataBinding.DataField = 'REGISTRO_MERCANTIL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -295,38 +360,22 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Height = 48 Height = 48
Width = 76 Width = 76
end end
object cxDBSpinEdit1: TcxDBSpinEdit
Left = 117
Top = 136
DataBinding.DataField = 'IVA'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 60
end
object cxDBImage1: TcxDBImage object cxDBImage1: TcxDBImage
Left = 343 Left = 394
Top = 277 Top = 277
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.Stretch = True Properties.Stretch = True
@ -334,13 +383,71 @@ inherited frViewEmpresa: TfrViewEmpresa
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 16 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
Height = 100 Height = 100
Width = 140 Width = 140
end end
object cbFormaPago: TcxComboBox
Left = 162
Top = 163
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 359
end
object cbTipoIVA: TcxComboBox
Left = 162
Top = 136
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 202
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -374,9 +481,13 @@ inherited frViewEmpresa: TfrViewEmpresa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item16: TdxLayoutItem object dxLayoutControl1Item16: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'IVA por defecto:' Caption = 'IVA por defecto:'
Control = cxDBSpinEdit1 Control = cbTipoIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item18: TdxLayoutItem
Caption = 'Forma de pago por defecto:'
Control = cbFormaPago
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end

123
Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
View File

@ -10,7 +10,7 @@ uses
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit, cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList, cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces, PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
cxGraphics, cxDropDownEdit; cxGraphics, cxDropDownEdit, uEmpresasController;
type type
IViewEmpresa = interface(IViewBase) IViewEmpresa = interface(IViewBase)
@ -18,6 +18,9 @@ type
function GetEmpresa: IBizEmpresa; function GetEmpresa: IBizEmpresa;
procedure SetEmpresa(const Value: IBizEmpresa); procedure SetEmpresa(const Value: IBizEmpresa);
property Empresa: IBizEmpresa read GetEmpresa write SetEmpresa; property Empresa: IBizEmpresa read GetEmpresa write SetEmpresa;
function GetController : IEmpresasController;
procedure SetController (const Value : IEmpresasController);
property Controller : IEmpresasController read GetController write SetController;
end; end;
TfrViewEmpresa = class(TfrViewBase, IViewEmpresa) TfrViewEmpresa = class(TfrViewBase, IViewEmpresa)
@ -64,8 +67,6 @@ type
dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup;
cxDBSpinEdit1: TcxDBSpinEdit;
dxLayoutControl1Item16: TdxLayoutItem;
ActionList1: TActionList; ActionList1: TActionList;
actAnadir: TAction; actAnadir: TAction;
actEliminar: TAction; actEliminar: TAction;
@ -79,22 +80,36 @@ type
dxLayoutControl1Item20: TdxLayoutItem; dxLayoutControl1Item20: TdxLayoutItem;
dxLayoutControl1Group12: TdxLayoutGroup; dxLayoutControl1Group12: TdxLayoutGroup;
dxLayoutControl1Group13: TdxLayoutGroup; dxLayoutControl1Group13: TdxLayoutGroup;
dxLayoutControl1Item18: TdxLayoutItem;
cbFormaPago: TcxComboBox;
dxLayoutControl1Item16: TdxLayoutItem;
cbTipoIVA: TcxComboBox;
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actAnadirUpdate(Sender: TObject); procedure actAnadirUpdate(Sender: TObject);
procedure eProvinciaPropertiesInitPopup(Sender: TObject); procedure eProvinciaPropertiesInitPopup(Sender: TObject);
procedure ePoblacionPropertiesInitPopup(Sender: TObject); procedure ePoblacionPropertiesInitPopup(Sender: TObject);
procedure FormaPagoEditValueChanged(Sender: TObject);
procedure TipoIVAEditValueChanged(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
private private
FEmpresa: IBizEmpresa; FEmpresa: IBizEmpresa;
FController : IEmpresasController;
FProvincias : TStringList; FProvincias : TStringList;
FPoblaciones : TStringList; FPoblaciones : TStringList;
procedure CargarProvincias; FFormasPago: TStringList;
procedure CargarPoblaciones; FTiposIVA: TStringList;
protected
function GetEmpresa: IBizEmpresa; function GetEmpresa: IBizEmpresa;
procedure SetEmpresa(const Value: IBizEmpresa); procedure SetEmpresa(const Value: IBizEmpresa);
function GetController : IEmpresasController;
procedure SetController (const Value : IEmpresasController);
procedure CargarProvincias;
procedure CargarPoblaciones;
public public
property Controller : IEmpresasController read GetController write SetController;
constructor Create(AOwner : TComponent); override; constructor Create(AOwner : TComponent); override;
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -218,8 +233,39 @@ begin
FPoblaciones := NIL; FPoblaciones := NIL;
end; end;
procedure TfrViewEmpresa.CustomViewShow(Sender: TObject);
var
i: Integer;
begin
inherited;
//Activamos la forma de pago que tenga la empresa
cbFormaPago.ItemIndex := 0;
for i := 0 to FFormasPago.Count - 1 do
if IntToStr(FEmpresa.ID_FORMA_PAGO) = FFormasPago.Values[FFormasPago.Names[i]] then
cbFormaPago.ItemIndex := i;
cbFormaPago.Properties.OnEditValueChanged := FormaPagoEditValueChanged;
//Activamos el tipo iva que tenga la empresa
cbTipoIVA.ItemIndex := 0;
for i := 0 to FTiposIVA.Count - 1 do
if IntToStr(FEmpresa.ID_TIPO_IVA) = FTiposIVA.Values[FTiposIVA.Names[i]] then
cbTipoIVA.ItemIndex := i;
cbTipoIVA.Properties.OnEditValueChanged := TipoIVAEditValueChanged;
end;
destructor TfrViewEmpresa.Destroy; destructor TfrViewEmpresa.Destroy;
begin begin
FController := Nil;
if Assigned(FTiposIVA) then
FreeANDNIL(FTiposIVA);
if Assigned(FFormasPago) then
FreeANDNIL(FFormasPago);
if Assigned(FProvincias) then if Assigned(FProvincias) then
FreeANDNIL(FProvincias); FreeANDNIL(FProvincias);
@ -254,11 +300,65 @@ begin
end; end;
end; end;
procedure TfrViewEmpresa.FormaPagoEditValueChanged(Sender: TObject);
var
IDFormaPago: String;
begin
IDFormaPago := '';
if Assigned(FFormasPago) then
IDFormaPago := FFormasPago.Values[cbFormaPago.EditValue];
Controller.AsignarIDFormaPago(FEmpresa, IDFormaPago);
end;
function TfrViewEmpresa.GetController: IEmpresasController;
begin
Result := FController;
end;
function TfrViewEmpresa.GetEmpresa: IBizEmpresa; function TfrViewEmpresa.GetEmpresa: IBizEmpresa;
begin begin
Result := FEmpresa; Result := FEmpresa;
end; end;
procedure TfrViewEmpresa.SetController(const Value: IEmpresasController);
var
i: Integer;
begin
FController := Value;
if Assigned(FController) then
begin
FFormasPago := FController.DarListaFormasPago;
if Assigned(FFormasPago) then
with cbFormaPago.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FFormasPago.Count - 1 do
Add(FFormasPago.Names[i]);
finally
EndUpdate;
end;
end;
FTiposIVA := FController.DarListaTiposIVA;
if Assigned(FTiposIVA) then
with cbTipoIVA.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FTiposIVA.Count - 1 do
Add(FTiposIVA.Names[i]);
finally
EndUpdate;
end;
end;
end;
end;
procedure TfrViewEmpresa.SetEmpresa(const Value: IBizEmpresa); procedure TfrViewEmpresa.SetEmpresa(const Value: IBizEmpresa);
begin begin
FEmpresa := Value; FEmpresa := Value;
@ -268,6 +368,17 @@ begin
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;
end; end;
procedure TfrViewEmpresa.TipoIVAEditValueChanged(Sender: TObject);
var
IDTipoIVA: String;
begin
IDTipoIVA := '';
if Assigned(FTiposIVA) then
IDTipoIVA := FTiposIVA.Values[cbTipoIVA.EditValue];
Controller.AsignarIDTipoIVA(FEmpresa, IDTipoIVA);
end;
initialization initialization
RegisterClass(TfrViewEmpresa); RegisterClass(TfrViewEmpresa);

39
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -383,8 +383,7 @@ implementation
uses uses
uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App, uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App,
uBizEmpresasTiendas, uTiposIVAController, uBizTiposIVA, uBizEmpresasTiendas, uBizTiposIVA, uBizFormasPago;
uFormasPagoController, uBizFormasPago;
const const
PROVEEDOR_REGIMEN_IVA = 'General'; PROVEEDOR_REGIMEN_IVA = 'General';
@ -647,9 +646,6 @@ begin
end; end;
procedure TBizCliente.IniciarValoresContactoNuevo; procedure TBizCliente.IniciarValoresContactoNuevo;
var
AFormaPagoController: IFormasPagoController;
ATiposIVAController: ITiposIVAController;
begin begin
inherited; inherited;
ID_CATEGORIA := CATEGORIA_CLIENTE; ID_CATEGORIA := CATEGORIA_CLIENTE;
@ -665,19 +661,8 @@ begin
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
TIENE_SUBCUENTA := 0; TIENE_SUBCUENTA := 0;
AFormaPagoController := TFormasPagoController.Create; ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
try ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
ID_FORMA_PAGO := AFormaPagoController.BuscarID(AppFactuGES.Configuracion.GetSettingAsString('Clientes.FormaPago'))
finally
AFormaPagoController := NIL;
end;
ATiposIVAController := TTiposIVAController.Create;
try
ID_TIPO_IVA := ATiposIVAController.BuscarID(AppFactuGES.Configuracion.GetSettingAsString('Clientes.TipoIVA'))
finally
ATiposIVAController := NIL;
end;
end; end;
@ -734,9 +719,6 @@ begin
end; end;
procedure TBizProveedor.IniciarValoresContactoNuevo; procedure TBizProveedor.IniciarValoresContactoNuevo;
var
AFormaPagoController: IFormasPagoController;
ATiposIVAController: ITiposIVAController;
begin begin
inherited; inherited;
ID_CATEGORIA := CATEGORIA_PROVEEDOR; ID_CATEGORIA := CATEGORIA_PROVEEDOR;
@ -750,19 +732,8 @@ begin
TIENE_SUBCUENTA := 0; TIENE_SUBCUENTA := 0;
ES_ACREEDOR := 0; ES_ACREEDOR := 0;
AFormaPagoController := TFormasPagoController.Create; ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
try ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
ID_FORMA_PAGO := AFormaPagoController.BuscarID(AppFactuGES.Configuracion.GetSettingAsString('Proveedores.FormaPago'))
finally
AFormaPagoController := NIL;
end;
ATiposIVAController := TTiposIVAController.Create;
try
ID_TIPO_IVA := ATiposIVAController.BuscarID(AppFactuGES.Configuracion.GetSettingAsString('Proveedores.TipoIVA'))
finally
ATiposIVAController := NIL;
end;
end; end;
constructor TBizProveedor.Create(aDataTable: TDADataTable); constructor TBizProveedor.Create(aDataTable: TDADataTable);

12
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -651,16 +651,18 @@ begin
if (AFactura.IGNORAR_CONTABILIDAD = 0) and (AFactura.Cliente.SubCuentas.ID < 1) then if (AFactura.IGNORAR_CONTABILIDAD = 0) and (AFactura.Cliente.SubCuentas.ID < 1) then
raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta'); raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta');
{ Esta validación puede saltar cuando se generan facturas automáticamente
por albaranes o pedidos y el cliente no tiene Tipo de IVA puesto. }
{ if (AFactura.ID_TIPO_IVA = 0) then
raise Exception.Create('Debe indicar un tipo de IVA para esta factura');}
//En caso de ser un Abono no podra tener un importe total positivo //En caso de ser un Abono no podra tener un importe total positivo
if (AFactura.TIPO = CTE_TIPO_ABONO) then if (AFactura.TIPO = CTE_TIPO_ABONO) then
if (AFactura.IMPORTE_TOTAL > 0) then if (AFactura.IMPORTE_TOTAL > 0) then
raise Exception.Create('Un abono nunca no puede tener un importe positivo, asegurese que las cantidades sean negativas'); raise Exception.Create('Un abono nunca no puede tener un importe positivo, asegurese que las cantidades sean negativas');
{ Esta validación puede saltar cuando se generan facturas automáticamente
por albaranes o pedidos y el cliente no tiene Tipo de IVA puesto, se cambia,
para signar automáticamente por defecto a la factura la primera forma de pago,
e iva disponible (CONTADO, IVA16), en la clase de negocio }
{ if (AFactura.ID_TIPO_IVA = 0) then
raise Exception.Create('Debe indicar un tipo de IVA para esta factura');}
{ Asegurarse de valores en campos "automáticos" tanto { Asegurarse de valores en campos "automáticos" tanto
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
AFactura.Edit; AFactura.Edit;

12
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -255,12 +255,20 @@ begin
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
TIPO := CTE_TIPO_FACTURA; TIPO := CTE_TIPO_FACTURA;
ID_CLIENTE := ID_NULO; ID_CLIENTE := ID_NULO;
IVA := AppFactuGES.EmpresaActiva.IVA;
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
RE := 0; RE := 0;
SITUACION := CTE_PENDIENTE; SITUACION := CTE_PENDIENTE;
ID_TIENDA := AppFactuGES.TiendaActiva.ID; ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE; TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
IGNORAR_CONTABILIDAD := 0;
//CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then
IGNORAR_CONTABILIDAD := 0
else
IGNORAR_CONTABILIDAD := 1;
end; end;
procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField); procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField);

5
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -454,14 +454,13 @@ begin
end; end;
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD; // frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD;
frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA); // frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA);
{$ENDIF} {$ENDIF}
end end
else begin else begin
frViewFacturaCliente1.frViewClienteFactura1.OnClienteChanged := NIL; frViewFacturaCliente1.frViewClienteFactura1.OnClienteChanged := NIL;
frViewFacturaCliente1.frViewClienteFactura1.Cliente := NIL;
dsDataTable.DataTable := NIL; dsDataTable.DataTable := NIL;
frViewTotales1.DADataSource.DataTable := NIL; frViewTotales1.DADataSource.DataTable := NIL;
frViewTotales1.dsTiposIVA.DataTable := NIL; frViewTotales1.dsTiposIVA.DataTable := NIL;

5
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -261,7 +261,10 @@ begin
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
ID_PROVEEDOR := ID_NULO; ID_PROVEEDOR := ID_NULO;
TIPO := CTE_TIPO_FACTURA; TIPO := CTE_TIPO_FACTURA;
IVA := AppFactuGES.EmpresaActiva.IVA;
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
RE := 0; RE := 0;
SITUACION := CTE_PENDIENTE; SITUACION := CTE_PENDIENTE;
ID_TIENDA := AppFactuGES.TiendaActiva.ID; ID_TIENDA := AppFactuGES.TiendaActiva.ID;

38
Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm
View File

@ -13,9 +13,9 @@ object srvFormasPago: TsrvFormasPago
Top = 90 Top = 90
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' + '<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="FormasPagoPlazos" Le' + 'idth="400" Height="300">'#13#10' <Entity Name="FormasPago" Left="0,' +
'ft="394,00" Top="98,00" />'#13#10' <Entity Name="FormasPago" Left="' + '00" Top="0,00" />'#13#10' <Entity Name="FormasPagoPlazos" Left="393' +
'0,00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10 ',00" Top="97,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end end
object DataDictionary: TDADataDictionary object DataDictionary: TDADataDictionary
Fields = < Fields = <
@ -100,6 +100,38 @@ object srvFormasPago: TsrvFormasPago
DataDictionary = DataDictionary DataDictionary = DataDictionary
Diagrams = Diagrams Diagrams = Diagrams
Datasets = < Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL = 'Select ID, DESCRIPCION'#10'from FORMAS_PAGO'#10'order by DESCRIPCION'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'ListaFormasPago'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <

46
Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.pas
View File

@ -28,10 +28,11 @@ type
schFormasPago: TDASchema; schFormasPago: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
var aConnectionName: string);
private public
protected function DarListaFormasPago: Binary;
end; end;
implementation implementation
@ -39,7 +40,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
{Generated:} FactuGES_Invk, uDataModuleServer, {Generated:} FactuGES_Invk, uDataModuleServer,
uDatabaseUtils; uDatabaseUtils, uDAInterfaces, uROClasses;
procedure Create_srvFormasPago(out anInstance : IUnknown); procedure Create_srvFormasPago(out anInstance : IUnknown);
begin begin
@ -52,6 +53,41 @@ begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
end; end;
function TsrvFormasPago.DarListaFormasPago: Binary;
var
ASchema : TDASchema;
AConn : IDAConnection;
dsData: IDADataset;
ALista : TStringList;
begin
Result := Binary.Create;
ASchema := schFormasPago;
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
try
dsData := ASchema.NewDataset(AConn, 'ListaFormasPago');
except
RaiseError('No existe la tabla FORMAS_PAGO');
end;
ALista := TStringList.Create;
try
dsData.Active := True;
while not dsData.EOF do
begin
ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger]));
dsData.Next;
end;
ALista.SaveToStream(Result);
finally
FreeANDNIL(ALista);
dsData := NIL;
AConn := NIL;
end;
end;
procedure TsrvFormasPago.DataAbstractServiceBeforeAcquireConnection( procedure TsrvFormasPago.DataAbstractServiceBeforeAcquireConnection(
aSender: TObject; var aConnectionName: string); aSender: TObject; var aConnectionName: string);
begin begin

2
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */ /* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf5F.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf3BC.tmp */

2
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */ /* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */ /* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf5D.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf3BA.tmp */

8
Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas
View File

@ -50,7 +50,7 @@ type
implementation implementation
uses uses
DB; DB, uFactuGES_App;
{ TBizPagosCliente } { TBizPagosCliente }
@ -66,7 +66,11 @@ end;
procedure TBizPagosCliente.IniciarValoresIBizPagosClienteNuevo; procedure TBizPagosCliente.IniciarValoresIBizPagosClienteNuevo;
begin begin
IGNORAR_CONTABILIDAD := 0; //CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then
IGNORAR_CONTABILIDAD := 0
else
IGNORAR_CONTABILIDAD := 1;
end; end;
procedure TBizPagosCliente.OnNewRecord(Sender: TDADataTable); procedure TBizPagosCliente.OnNewRecord(Sender: TDADataTable);

8
Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.pas
View File

@ -50,7 +50,7 @@ type
implementation implementation
uses uses
DB; DB, uFactuGES_App;
{ TBizPagosProveedor } { TBizPagosProveedor }
@ -66,7 +66,11 @@ end;
procedure TBizPagosProveedor.IniciarValoresPagosProveedorNuevo; procedure TBizPagosProveedor.IniciarValoresPagosProveedorNuevo;
begin begin
IGNORAR_CONTABILIDAD := 0; //CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then
IGNORAR_CONTABILIDAD := 0
else
IGNORAR_CONTABILIDAD := 1;
end; end;
procedure TBizPagosProveedor.OnNewRecord(Sender: TDADataTable); procedure TBizPagosProveedor.OnNewRecord(Sender: TDADataTable);

4
Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas
View File

@ -9,7 +9,7 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RemesasCliente = '{A346376B-965B-4865-A253-9DDF4D88E9C5}'; RID_RemesasCliente = '{DE6CB3E1-9C21-44E9-827D-18877E6C8E67}';
{ Data table names } { Data table names }
nme_RemesasCliente = 'RemesasCliente'; nme_RemesasCliente = 'RemesasCliente';
@ -57,7 +57,7 @@ const
type type
{ IRemesasCliente } { IRemesasCliente }
IRemesasCliente = interface(IDAStronglyTypedDataTable) IRemesasCliente = interface(IDAStronglyTypedDataTable)
['{FDEB4748-8F61-4BFF-BED3-8A4904D1F593}'] ['{2D9ED2DE-5E2C-4014-BFC9-C7D6A770217A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

4
Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RemesasClienteDelta = '{F8C1BED7-3DDB-4A8B-9E23-7ACFF1822443}'; RID_RemesasClienteDelta = '{7503D9C6-5E94-46CA-BFCA-2C514AA6E464}';
type type
{ IRemesasClienteDelta } { IRemesasClienteDelta }
IRemesasClienteDelta = interface(IRemesasCliente) IRemesasClienteDelta = interface(IRemesasCliente)
['{F8C1BED7-3DDB-4A8B-9E23-7ACFF1822443}'] ['{7503D9C6-5E94-46CA-BFCA-2C514AA6E464}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;

33
Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm
View File

@ -55,6 +55,39 @@ object srvTiposIVA: TsrvTiposIVA
DataDictionary = DataDictionary DataDictionary = DataDictionary
Diagrams = Diagrams Diagrams = Diagrams
Datasets = < Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'TIPOS_IVA'
Name = 'IBX'
SQL = 'Select ID, DESCRIPCION'#10'from TIPOS_IVA'#10'order by DESCRIPCION'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'ListaTiposIVA'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <

41
Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas
View File

@ -28,15 +28,15 @@ type
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string); var aConnectionName: string);
private public
protected function DarListaTiposIVA: Binary;
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
uses uses
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils; {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, uROClasses;
procedure Create_srvTiposIVA(out anInstance : IUnknown); procedure Create_srvTiposIVA(out anInstance : IUnknown);
begin begin
@ -49,6 +49,41 @@ begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
end; end;
function TsrvTiposIVA.DarListaTiposIVA: Binary;
var
ASchema : TDASchema;
AConn : IDAConnection;
dsData: IDADataset;
ALista : TStringList;
begin
Result := Binary.Create;
ASchema := schTiposIVA;
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
try
dsData := ASchema.NewDataset(AConn, 'ListaTiposIVA');
except
RaiseError('No existe la tabla TIPOS_IVA');
end;
ALista := TStringList.Create;
try
dsData.Active := True;
while not dsData.EOF do
begin
ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger]));
dsData.Next;
end;
ALista.SaveToStream(Result);
finally
FreeANDNIL(ALista);
dsData := NIL;
AConn := NIL;
end;
end;
procedure TsrvTiposIVA.DataAbstractServiceBeforeAcquireConnection( procedure TsrvTiposIVA.DataAbstractServiceBeforeAcquireConnection(
aSender: TObject; var aConnectionName: string); aSender: TObject; var aConnectionName: string);
begin begin

12
Source/Servicios/FactuGES.RODL
View File

@ -103,6 +103,18 @@
</Parameter> </Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="DarListaFormasPago" UID="{742F964F-226C-4C34-BE08-962337A9E99D}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
</Parameters>
</Operation>
<Operation Name="DarListaTiposIVA" UID="{6C8811C0-02B7-4EB0-9665-C62C9384156D}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
</Parameters>
</Operation>
</Operations> </Operations>
</Interface> </Interface>
</Interfaces> </Interfaces>

36
Source/Servicios/FactuGES_Intf.pas
View File

@ -285,6 +285,8 @@ type
IsrvEmpresas = interface(IDataAbstractService) IsrvEmpresas = interface(IDataAbstractService)
['{590F06D1-26B4-435B-B636-50CB8FFE6353}'] ['{590F06D1-26B4-435B-B636-50CB8FFE6353}']
function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer; function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer;
function DarListaFormasPago: Binary;
function DarListaTiposIVA: Binary;
end; end;
{ CosrvEmpresas } { CosrvEmpresas }
@ -298,6 +300,8 @@ type
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer; function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer;
function DarListaFormasPago: Binary;
function DarListaTiposIVA: Binary;
end; end;
{ IsrvConfiguracion } { IsrvConfiguracion }
@ -1418,6 +1422,38 @@ begin
end end
end; end;
function TsrvEmpresas_Proxy.DarListaFormasPago: Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaFormasPago');
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvEmpresas_Proxy.DarListaTiposIVA: Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaTiposIVA');
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvConfiguracion } { CosrvConfiguracion }
class function CosrvConfiguracion.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvConfiguracion; class function CosrvConfiguracion.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvConfiguracion;

52
Source/Servicios/FactuGES_Invk.pas
View File

@ -55,6 +55,8 @@ type
protected protected
published published
procedure Invoke_DarTiendaUsuario(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_DarTiendaUsuario(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarListaFormasPago(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarListaTiposIVA(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
TsrvConfiguracion_Invoker = class(TDataAbstractService_Invoker) TsrvConfiguracion_Invoker = class(TDataAbstractService_Invoker)
@ -416,6 +418,56 @@ begin
end; end;
end; end;
procedure TsrvEmpresas_Invoker.Invoke_DarListaFormasPago(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaFormasPago: Binary; }
var
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
lResult := (__Instance as IsrvEmpresas).DarListaFormasPago;
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvEmpresas', 'DarListaFormasPagoResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TsrvEmpresas_Invoker.Invoke_DarListaTiposIVA(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaTiposIVA: Binary; }
var
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
lResult := (__Instance as IsrvEmpresas).DarListaTiposIVA;
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvEmpresas', 'DarListaTiposIVAResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
{ TsrvConfiguracion_Invoker } { TsrvConfiguracion_Invoker }
procedure TsrvConfiguracion_Invoker.Invoke_darValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvConfiguracion_Invoker.Invoke_darValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -73,8 +73,6 @@ uses
uBizEjerciciosServer in '..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas', uBizEjerciciosServer in '..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas',
srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService}, srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService},
uBizPagosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas', uBizPagosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
uBizRemesasClienteServer in '..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas', uBizRemesasClienteServer in '..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas',
uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas', uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas',
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas', schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
@ -114,8 +112,6 @@ uses
schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas', schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas',
uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule}, uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule},
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas' {srvProvinciasPoblaciones: TRORemoteDataModule}, srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas' {srvProvinciasPoblaciones: TRORemoteDataModule},
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas', schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
schEjerciciosServer_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas', schEjerciciosServer_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas', schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
@ -131,7 +127,11 @@ uses
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas'; schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.4.0\0" VALUE "FileVersion", "2.2.4.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.4.0\0" VALUE "ProductVersion", "2.2.4.0\0"
VALUE "CompileDate", "jueves, 20 de noviembre de 2008 12:46\0" VALUE "CompileDate", "jueves, 20 de noviembre de 2008 20:19\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"