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

Subida de procedencias de cliente para las fichas de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@94 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-01-04 15:58:34 +00:00
parent 248afaa492
commit 2d1957540b
31 changed files with 1518 additions and 410 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/FactuGES.inc Normal file
View File

@ -0,0 +1 @@
{DEFINE ALMACEN}

15
Source/Modulos/Contactos/Controller/Contactos_controller.dpk
View File

@ -32,7 +32,16 @@ requires
ApplicationBase,
Contactos_model,
Contactos_data,
Contabilidad_controller;
Contabilidad_controller,
dbrtl,
RemObjects_Core_D11,
DataAbstract_Core_D11,
vcldb,
dsnap,
adortl,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11;
contains
uContactosController in 'uContactosController.pas',
@ -62,6 +71,8 @@ contains
uFichasEmpleadoReportController in 'uFichasEmpleadoReportController.pas',
uIEditorFichasEmpleadoPreview in 'View\uIEditorFichasEmpleadoPreview.pas',
uEtiquetasContactosReportController in 'uEtiquetasContactosReportController.pas',
uIEditorEtiquetasContactosPreview in 'View\uIEditorEtiquetasContactosPreview.pas';
uIEditorEtiquetasContactosPreview in 'View\uIEditorEtiquetasContactosPreview.pas',
uProcedenciasClienteController in 'uProcedenciasClienteController.pas',
uIEditorProcedenciasCliente in 'View\uIEditorProcedenciasCliente.pas';
end.

36
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -43,6 +43,15 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@ -53,14 +62,6 @@
<DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_data.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" />
@ -70,7 +71,23 @@
<DCCReference Include="uGruposClienteController.pas" />
<DCCReference Include="uGruposEmpleadoController.pas" />
<DCCReference Include="uGruposProveedorController.pas" />
<DCCReference Include="uProcedenciasClienteController.pas" />
<DCCReference Include="uProveedoresController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\Contabilidad_controller.dcp" />
<DCCReference Include="View\Contactos_data.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxGDIPlusD11.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorCliente.pas" />
<DCCReference Include="View\uIEditorClientes.pas" />
<DCCReference Include="View\uIEditorContacto.pas" />
@ -87,8 +104,11 @@
<DCCReference Include="View\uIEditorGruposCliente.pas" />
<DCCReference Include="View\uIEditorGruposEmpleado.pas" />
<DCCReference Include="View\uIEditorGruposProveedor.pas" />
<DCCReference Include="View\uIEditorProcedenciasCliente.pas" />
<DCCReference Include="View\uIEditorProveedor.pas" />
<DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<None Include="ModelSupport_Contactos_controller\default.txaPackage" />
</ItemGroup>
</Project>

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.res
View File

Binary file not shown.

23
Source/Modulos/Contactos/Controller/View/uIEditorProcedenciasCliente.pas Normal file
View File

@ -0,0 +1,23 @@
unit uIEditorProcedenciasCliente;
interface
uses
uEditorDBBase, uBizProcedenciasCliente, uProcedenciasClienteController;
type
IEditorProcedenciasCliente = interface(IEditorDBBase)
['{E4FD5FEA-9771-40FD-AC69-600BE859ECCE}']
function GetProcedenciasCliente: IBizProcedenciaCliente;
procedure SetProcedenciasCliente(const Value: IBizProcedenciaCliente);
property ProcedenciasCliente: IBizProcedenciaCliente read GetProcedenciasCliente write SetProcedenciasCliente;
function GetController : IProcedenciasClienteController;
procedure SetController (const Value : IProcedenciasClienteController);
property Controller : IProcedenciasClienteController read GetController write SetController;
end;
implementation
end.

227
Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas Normal file
View File

@ -0,0 +1,227 @@
unit uProcedenciasClienteController;
interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
uIDataModuleClientes, uBizProcedenciasCliente;
type
IProcedenciasClienteController = interface(IObservador)
['{C2D71CED-DCD6-47F1-8BCA-1027DA4A6385}']
function BuscarTodos: IBizProcedenciaCliente;
procedure VerTodos(AProcedenciasCliente: IBizProcedenciaCliente);
procedure Anadir(AProcedenciaCliente : IBizProcedenciaCliente);
function Eliminar(AProcedenciaCliente : IBizProcedenciaCliente): Boolean;
function Guardar(AProcedenciaCliente : IBizProcedenciaCliente): Boolean;
procedure DescartarCambios(AProcedenciaCliente : IBizProcedenciaCliente);
function Localizar(AProcedenciasCliente: IBizProcedenciaCliente; ADescripcion:String): Boolean;
function DarListaProcedenciasCliente: TStringList;
end;
TProcedenciasClienteController = class(TObservador, IProcedenciasClienteController)
protected
FDataModule : IDataModuleClientes;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
function ValidarProcedenciaCliente(AProcedenciaCliente: IBizProcedenciaCliente): Boolean;
procedure AsignarDataModule; virtual;
public
constructor Create; override;
destructor Destroy; override;
function Eliminar(AProcedenciaCliente : IBizProcedenciaCliente): Boolean;
function Guardar(AProcedenciaCliente : IBizProcedenciaCliente): Boolean;
procedure DescartarCambios(AProcedenciaCliente : IBizProcedenciaCliente); virtual;
procedure Anadir(AProcedenciaCliente : IBizProcedenciaCliente);
function BuscarTodos: IBizProcedenciaCliente;
procedure VerTodos(AProcedenciasCliente: IBizProcedenciaCliente);
function Localizar(AProcedenciasCliente: IBizProcedenciaCliente; ADescripcion:String): Boolean;
function DarListaProcedenciasCliente: TStringList;
end;
implementation
uses
cxControls, DB, uEditorRegistryUtils,
uIEditorProcedenciasCliente, uDataModuleClientes,
uDAInterfaces, uDataTableUtils,
uDateUtils, uROTypes, DateUtils, Controls, Windows, schContactosClient_Intf;
{ TProcedenciasClienteController }
procedure TProcedenciasClienteController.Anadir(AProcedenciaCliente: IBizProcedenciaCliente);
begin
AProcedenciaCliente.Insert;
end;
procedure TProcedenciasClienteController.AsignarDataModule;
begin
FDataModule := TDataModuleClientes.Create(Nil);
end;
function TProcedenciasClienteController.BuscarTodos: IBizProcedenciaCliente;
begin
Result := FDataModule.GetProcedenciasCliente;
end;
constructor TProcedenciasClienteController.Create;
begin
inherited;
AsignarDataModule;
end;
function TProcedenciasClienteController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TProcedenciasClienteController.DarListaProcedenciasCliente: TStringList;
var
AProcedenciasCliente: IBizProcedenciaCliente;
begin
AProcedenciasCliente := BuscarTodos;
AProcedenciasCliente.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
AProcedenciasCliente.DataTable.First;
while not AProcedenciasCliente.DataTable.EOF do
begin
Add(AProcedenciasCliente.DESCRIPCION);
AProcedenciasCliente.DataTable.Next;
end;
end;
finally
AProcedenciasCliente := NIL;
end;
end;
procedure TProcedenciasClienteController.DescartarCambios(AProcedenciaCliente: IBizProcedenciaCliente);
begin
if not Assigned(AProcedenciaCliente) then
raise Exception.Create ('ProcedenciaCliente no asignado');
ShowHourglassCursor;
try
if (AProcedenciaCliente.State in dsEditModes) then
AProcedenciaCliente.Cancel;
AProcedenciaCliente.DataTable.CancelUpdates;
finally
HideHourglassCursor;
end;
end;
destructor TProcedenciasClienteController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TProcedenciasClienteController.ValidarProcedenciaCliente(AProcedenciaCliente: IBizProcedenciaCliente): Boolean;
begin
Result := False;
if not Assigned(AProcedenciaCliente) then
raise Exception.Create ('ProcedenciaCliente no asignada');
if (AProcedenciaCliente.DataTable.State in dsEditModes) then
AProcedenciaCliente.DataTable.Post;
if Length(AProcedenciaCliente.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar al menos la descripción de esta procedencia.');
Result := True;
end;
procedure TProcedenciasClienteController.VerTodos(AProcedenciasCliente: IBizProcedenciaCliente);
var
AEditor : IEditorProcedenciasCliente;
begin
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorProcedenciasCliente', IEditorProcedenciasCliente, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
ProcedenciasCliente := AProcedenciasCliente;
ShowModal;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
function TProcedenciasClienteController.Eliminar(AProcedenciaCliente: IBizProcedenciaCliente): Boolean;
begin
Result := False;
if not Assigned(AProcedenciaCliente) then
raise Exception.Create ('ProcedenciaCliente no asignada');
ShowHourglassCursor;
try
if (AProcedenciaCliente.State in dsEditModes) then
AProcedenciaCliente.Cancel;
AProcedenciaCliente.Delete;
AProcedenciaCliente.DataTable.ApplyUpdates;
HideHourglassCursor;
Result := True;
finally
HideHourglassCursor;
end;
end;
procedure TProcedenciasClienteController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
begin
inherited;
//
end;
function TProcedenciasClienteController.Guardar(AProcedenciaCliente: IBizProcedenciaCliente): Boolean;
begin
Result := False;
if ValidarProcedenciaCliente(AProcedenciaCliente) then
begin
ShowHourglassCursor;
try
if (AProcedenciaCliente.DataTable.State in dsEditModes) then
AProcedenciaCliente.DataTable.Post;
AProcedenciaCliente.DataTable.ApplyUpdates;
Result := True;
finally
HideHourglassCursor;
end;
end;
end;
function TProcedenciasClienteController.Localizar(AProcedenciasCliente: IBizProcedenciaCliente; ADescripcion: String): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with AProcedenciasCliente.DataTable do
begin
DisableControls;
First;
if not Locate(fld_ProcedenciasClienteDESCRIPCION, ADescripcion, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
end.

33
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -1,6 +1,6 @@
inherited DataModuleClientes: TDataModuleClientes
Height = 325
Width = 701
Width = 738
inherited rda_Contactos: TDARemoteDataAdapter
Top = 79
end
@ -249,6 +249,13 @@ inherited DataModuleClientes: TDataModuleClientes
DataType = datInteger
DisplayLabel = 'Clientes_IGNORAR_CONTABILIDAD'
DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD'
end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'Clientes_PROCEDENCIA_CLIENTE'
DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -414,4 +421,28 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 600
Top = 16
end
object tbl_ProcedenciasCliente: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ProcedenciasCliente'
IndexDefs = <>
Left = 648
Top = 168
end
object ds_ProcedenciasCliente: TDADataSource
DataSet = tbl_ProcedenciasCliente.Dataset
DataTable = tbl_ProcedenciasCliente
Left = 648
Top = 224
end
end

21
Source/Modulos/Contactos/Data/uDataModuleClientes.pas
View File

@ -7,8 +7,8 @@ uses
DB, uDADataTable, uDAScriptingProvider,
uDACDSDataTable, uDABINAdapter, uROServiceComponent, uRORemoteService,
uROClient, uROBinMessage, uROWinInetHttpChannel, uBizClientesDescuentos,
uBizGruposCliente, uBizContactos, uBizSubCuentasContacto, uDataModuleContactos,
uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
uBizGruposCliente, uBizProcedenciasCliente, uBizContactos, uBizSubCuentasContacto,
uDataModuleContactos, uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable,
uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios,
uIDataModuleContactos;
@ -23,6 +23,8 @@ type
ds_GruposCliente: TDADataSource;
tbl_SubCuentasContacto: TDAMemDataTable;
ds_SubCuentasContacto: TDADataSource;
tbl_ProcedenciasCliente: TDAMemDataTable;
ds_ProcedenciasCliente: TDADataSource;
protected
function _GetDescuentos: IBizClienteDescuentos;
function _GetSubCuentas: IBizSubCuentasContacto;
@ -32,6 +34,7 @@ type
function GetItems : IBizCliente;
function GetItemsTiendaWeb : IBizCliente;
function GetGruposCliente : IBizGrupoCliente;
function GetProcedenciasCliente : IBizProcedenciaCliente;
end;
implementation
@ -127,6 +130,20 @@ begin
end;
end;
function TDataModuleClientes.GetProcedenciasCliente: IBizProcedenciaCliente;
var
AProcedenciaCliente : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AProcedenciaCliente := CloneDataTable(tbl_ProcedenciasCliente);
AProcedenciaCliente.BusinessRulesID := BIZ_CLIENT_PROCEDENCIASCLIENTE;
Result := (AProcedenciaCliente as IBizProcedenciaCliente);
finally
HideHourglassCursor;
end;
end;
function TDataModuleClientes.NewItem: IBizCliente;
begin
Result := GetItem(ID_NULO)

1
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -220,6 +220,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
item
Name = 'GRUPO_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Grupo proveedor'
DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
end

3
Source/Modulos/Contactos/Model/Contactos_model.dpk
View File

@ -54,6 +54,7 @@ contains
uIDataModuleEtiquetasContactosReport in 'Data\uIDataModuleEtiquetasContactosReport.pas',
schContactosClient_Intf in 'schContactosClient_Intf.pas',
schContactosServer_Intf in 'schContactosServer_Intf.pas',
uBizSubCuentasContacto in 'uBizSubCuentasContacto.pas';
uBizSubCuentasContacto in 'uBizSubCuentasContacto.pas',
uBizProcedenciasCliente in 'uBizProcedenciasCliente.pas';
end.

1
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -74,6 +74,7 @@
<DCCReference Include="uBizGruposCliente.pas" />
<DCCReference Include="uBizGruposEmpleado.pas" />
<DCCReference Include="uBizGruposProveedor.pas" />
<DCCReference Include="uBizProcedenciasCliente.pas" />
<DCCReference Include="uBizSubCuentasContacto.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />

BIN
Source/Modulos/Contactos/Model/Contactos_model.res
View File

Binary file not shown.

4
Source/Modulos/Contactos/Model/Data/uIDataModuleClientes.pas
View File

@ -3,7 +3,8 @@ unit uIDataModuleClientes;
interface
uses
uBizContactos, uIDataModuleContactos, uBizGruposCliente, uBizContactosDatosBancarios;
uBizContactos, uIDataModuleContactos, uBizGruposCliente, uBizProcedenciasCliente,
uBizContactosDatosBancarios;
type
IDataModuleClientes = interface(IDataModuleContactos)
@ -16,6 +17,7 @@ type
function GetItems : IBizCliente;
function GetItemsTiendaWeb : IBizCliente;
function GetGruposCliente : IBizGrupoCliente;
function GetProcedenciasCliente : IBizProcedenciaCliente;
end;

186
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -3,24 +3,25 @@ unit schContactosClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_SubCuentasContacto = '{4E9A4351-6088-4C3D-89BE-5C2045F3142E}';
RID_Contactos = '{7488A5BA-619B-4BAB-A118-BCED33A85729}';
RID_GruposCliente = '{3581CC88-21B9-4C30-A3AE-7565C18C3290}';
RID_DatosBancarios = '{039C7134-AC7B-45EE-B678-BF31C4266A3E}';
RID_Clientes = '{39651BB6-A46C-4E18-8370-B7E381F5E438}';
RID_Proveedores = '{4E9E99D2-0F82-481A-9BD2-6178349034A0}';
RID_Empleados = '{C0B6AA11-68AE-4658-9308-8C29C5F0936D}';
RID_DireccionesContacto = '{EF3A2758-0CBE-4482-8770-91AD4F993A04}';
RID_ClientesDescuentos = '{D64874F0-7499-4AC8-B3F1-DC1D63923CE9}';
RID_GruposProveedor = '{86B9993A-ECB2-43E3-BA37-2C8DD53497A8}';
RID_GruposEmpleado = '{877D71DA-AE8B-4B26-969F-AAA4DB1405D1}';
RID_Contactos_Refresh = '{8758F490-8118-4E61-AC27-3925D66A739C}';
RID_SubCuentasContacto = '{453B7BA1-323F-417A-8B42-F56AAB9BC9ED}';
RID_Contactos = '{6EA22F95-6490-4206-AEFC-464E2445D2F6}';
RID_GruposCliente = '{51F47DED-0BF8-43BE-AF8B-BEB6D5C15CE9}';
RID_DatosBancarios = '{674DE4ED-7DD8-4D41-BE3C-622E01369871}';
RID_Clientes = '{9FB6B0C3-74B1-4017-BAB3-8C34BA5188D9}';
RID_Proveedores = '{C7CA7A82-6DFA-4038-B95F-FFF7029458A1}';
RID_Empleados = '{01B148F8-50BB-4463-97A0-AF187AEDB96E}';
RID_DireccionesContacto = '{2359A18E-A102-43D1-9921-22654D3DC341}';
RID_ClientesDescuentos = '{29CCEAE4-2C27-4206-8993-DBBE74270B7C}';
RID_ProcedenciasCliente = '{E5CFB5E4-8EC2-406C-91D7-F1228EE19FF9}';
RID_GruposProveedor = '{61FBEB42-8215-4F10-A664-73961B921082}';
RID_GruposEmpleado = '{1CDC7280-FFB2-4288-AEE4-D80883BD9E17}';
RID_Contactos_Refresh = '{52B9CB54-1DF8-4CC7-ACB7-E52676886614}';
{ Data table names }
nme_SubCuentasContacto = 'SubCuentasContacto';
@ -32,6 +33,7 @@ const
nme_Empleados = 'Empleados';
nme_DireccionesContacto = 'DireccionesContacto';
nme_ClientesDescuentos = 'ClientesDescuentos';
nme_ProcedenciasCliente = 'ProcedenciasCliente';
nme_GruposProveedor = 'GruposProveedor';
nme_GruposEmpleado = 'GruposEmpleado';
nme_Contactos_Refresh = 'Contactos_Refresh';
@ -166,6 +168,7 @@ const
fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
fld_ClientesIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_ClientesPROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
{ Clientes field indexes }
idx_ClientesID = 0;
@ -203,6 +206,7 @@ const
idx_ClientesTIENDA_WEB = 32;
idx_ClientesCODIGO_ASIGNADO = 33;
idx_ClientesIGNORAR_CONTABILIDAD = 34;
idx_ClientesPROCEDENCIA_CLIENTE = 35;
{ Proveedores fields }
fld_ProveedoresID = 'ID';
@ -390,6 +394,12 @@ const
idx_ClientesDescuentosNOMBRE = 3;
idx_ClientesDescuentosDESCUENTO = 4;
{ ProcedenciasCliente fields }
fld_ProcedenciasClienteDESCRIPCION = 'DESCRIPCION';
{ ProcedenciasCliente field indexes }
idx_ProcedenciasClienteDESCRIPCION = 0;
{ GruposProveedor fields }
fld_GruposProveedorDESCRIPCION = 'DESCRIPCION';
@ -451,7 +461,7 @@ const
type
{ ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{67E58E93-5163-41A9-86BD-6D2721F65D18}']
['{636CE6F2-F39C-4581-B6EE-74C8DC674858}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -495,7 +505,7 @@ type
end;
{ TSubCuentasContactoDataTableRules }
TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
private
protected
{ Property getters and setters }
@ -546,7 +556,7 @@ type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{FCE955D0-D867-4E9E-AEF2-9CAEA0B6E1DC}']
['{F8E773E0-524E-471D-9D40-E2E1F76CEB23}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -691,7 +701,7 @@ type
end;
{ TContactosDataTableRules }
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
TContactosDataTableRules = class(TDADataTableRules, IContactos)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -845,7 +855,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{A2060827-0FC3-452C-9EC0-A58E54F95402}']
['{57B3966E-B7C9-4DBF-8ADE-A988221D08FB}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -859,7 +869,7 @@ type
end;
{ TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
private
protected
{ Property getters and setters }
@ -880,7 +890,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{91DB169A-8525-43B6-BCA9-DED818C22BFF}']
['{C11E1061-38CA-4050-843F-A4BCA66BB16A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -942,7 +952,7 @@ type
end;
{ TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
private
protected
{ Property getters and setters }
@ -1011,7 +1021,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{EEA29F68-9A96-461E-9D7B-1AA1D0E26123}']
['{4BE233B1-CAA0-4046-90DD-AE98874CA216}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1152,6 +1162,10 @@ type
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
function GetPROCEDENCIA_CLIENTEValue: String;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
{ Properties }
@ -1225,10 +1239,12 @@ type
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
end;
{ TClientesDataTableRules }
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
TClientesDataTableRules = class(TDADataTableRules, IClientes)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1373,6 +1389,10 @@ type
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1445,6 +1465,8 @@ type
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1454,7 +1476,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{9EFD8DE5-E98C-4071-8CF6-E75A9AA9E3C3}']
['{78D65CFD-5B95-4EBB-B4D6-AE67A41A26DC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1665,7 +1687,7 @@ type
end;
{ TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1885,7 +1907,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{6A39017E-6CFF-4DA5-9685-9CA1F72AD052}']
['{BABFCBDE-10A2-4F2F-8C00-FA5F273552BB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2068,7 +2090,7 @@ type
end;
{ TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
private
f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings;
@ -2268,7 +2290,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{FC464110-B68D-47F7-B110-E8F0CAB02469}']
['{A1E4440E-7C2B-47D0-9F5B-1C05EA949260}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2371,7 +2393,7 @@ type
end;
{ TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2483,7 +2505,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{E18F5CD7-822B-48C7-9C22-A13591398D44}']
['{36595819-5873-4417-861E-965E05572490}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2521,7 +2543,7 @@ type
end;
{ TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
private
protected
{ Property getters and setters }
@ -2564,9 +2586,44 @@ type
end;
{ IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{B40342B9-D515-44CE-B625-AB2A28D1A492}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TProcedenciasClienteDataTableRules }
TProcedenciasClienteDataTableRules = class(TDADataTableRules, IProcedenciasCliente)
private
protected
{ Property getters and setters }
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{CA3DAC4A-3007-47A3-89C2-B8D256F3302E}']
['{D71CE338-57E9-4A9F-9FDF-930F8A604CC2}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2580,7 +2637,7 @@ type
end;
{ TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
private
protected
{ Property getters and setters }
@ -2601,7 +2658,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{69A5969A-4106-4587-BAED-06541567A599}']
['{9D1C5665-2840-4EC1-B63D-341C8A2D30DC}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2615,7 +2672,7 @@ type
end;
{ TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
private
protected
{ Property getters and setters }
@ -2636,7 +2693,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{862C6067-8EDC-4805-8BA3-3131D61764C6}']
['{8411F090-017B-41A0-814D-1AB25F794BA4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2769,7 +2826,7 @@ type
end;
{ TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -4540,6 +4597,27 @@ begin
DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsVariant := Null;
end;
function TClientesDataTableRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString;
end;
procedure TClientesDataTableRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString := aValue;
end;
function TClientesDataTableRules.GetPROCEDENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].IsNull;
end;
procedure TClientesDataTableRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsVariant := Null;
end;
{ TProveedoresDataTableRules }
constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
@ -6415,6 +6493,39 @@ begin
end;
{ TProcedenciasClienteDataTableRules }
constructor TProcedenciasClienteDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TProcedenciasClienteDataTableRules.Destroy;
begin
inherited;
end;
function TProcedenciasClienteDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].AsString;
end;
procedure TProcedenciasClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].AsString := aValue;
end;
function TProcedenciasClienteDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].IsNull;
end;
procedure TProcedenciasClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].AsVariant := Null;
end;
{ TGruposProveedorDataTableRules }
constructor TGruposProveedorDataTableRules.Create(aDataTable: TDADataTable);
begin
@ -6951,6 +7062,7 @@ initialization
RegisterDataTableRules(RID_Empleados, TEmpleadosDataTableRules);
RegisterDataTableRules(RID_DireccionesContacto, TDireccionesContactoDataTableRules);
RegisterDataTableRules(RID_ClientesDescuentos, TClientesDescuentosDataTableRules);
RegisterDataTableRules(RID_ProcedenciasCliente, TProcedenciasClienteDataTableRules);
RegisterDataTableRules(RID_GruposProveedor, TGruposProveedorDataTableRules);
RegisterDataTableRules(RID_GruposEmpleado, TGruposEmpleadoDataTableRules);
RegisterDataTableRules(RID_Contactos_Refresh, TContactos_RefreshDataTableRules);

170
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,23 +9,24 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_SubCuentasContactoDelta = '{C61B54E1-F314-4542-997D-397E249D61FA}';
RID_ContactosDelta = '{D3E2A0CE-96A3-41A9-85B4-7BE8CFA3C79A}';
RID_GruposClienteDelta = '{F5B47AD6-5B43-4FE1-9607-5CB39CB79A21}';
RID_DatosBancariosDelta = '{C2A910E1-08F1-49F7-B0E9-85C448A3FA78}';
RID_ClientesDelta = '{DB2F0740-6510-4933-8319-A6C42A41B1D3}';
RID_ProveedoresDelta = '{4F4D8353-5DFD-493F-98A7-098340C343A0}';
RID_EmpleadosDelta = '{D89254AA-A456-4113-9356-87878DD0342B}';
RID_DireccionesContactoDelta = '{488B60E5-27F3-4A85-B8CF-A78A05CE3555}';
RID_ClientesDescuentosDelta = '{0E2CBA43-B994-4B22-9560-96C73CE304F3}';
RID_GruposProveedorDelta = '{EFF7AA25-B5B3-41EE-AB8F-2E889A72B8E6}';
RID_GruposEmpleadoDelta = '{784E3585-2E4F-441F-9B7C-ACF190737701}';
RID_Contactos_RefreshDelta = '{141705B2-3547-40A3-B6B9-4ABFDE30CD10}';
RID_SubCuentasContactoDelta = '{176D6032-77EB-42E3-B00D-A36F39E7FADA}';
RID_ContactosDelta = '{1750564A-A0EB-447F-85D4-974BE7F93A1B}';
RID_GruposClienteDelta = '{70646CE7-C62A-4D10-BCF5-245AAB51EE1B}';
RID_DatosBancariosDelta = '{85AE58EF-3FF7-4F77-A94B-55AD73296126}';
RID_ClientesDelta = '{7FB0E1AC-84E2-4C85-BDA4-EF7AEA8F3061}';
RID_ProveedoresDelta = '{B54B8DC8-4564-46C3-8400-19DDCF3B2BF0}';
RID_EmpleadosDelta = '{FE0C063A-18A0-4DBA-BC6A-2323006103FE}';
RID_DireccionesContactoDelta = '{150BDD77-02FA-4D7C-BD7A-601E2080A0D5}';
RID_ClientesDescuentosDelta = '{DB9B02CC-FD38-44BC-AEF1-D290B33ECDF3}';
RID_ProcedenciasClienteDelta = '{7250F4FB-83DB-46E7-9A36-A9428DDDB86C}';
RID_GruposProveedorDelta = '{80F30B7C-3451-4673-BF93-149065EC9D11}';
RID_GruposEmpleadoDelta = '{94F7258A-EF0A-4E0F-BD2B-EB41E541A86B}';
RID_Contactos_RefreshDelta = '{4C6D6C3E-4B74-4B9A-A59E-B640D3DB0415}';
type
{ ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{C61B54E1-F314-4542-997D-397E249D61FA}']
['{176D6032-77EB-42E3-B00D-A36F39E7FADA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
@ -119,7 +120,7 @@ type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{D3E2A0CE-96A3-41A9-85B4-7BE8CFA3C79A}']
['{1750564A-A0EB-447F-85D4-974BE7F93A1B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -418,7 +419,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{F5B47AD6-5B43-4FE1-9607-5CB39CB79A21}']
['{70646CE7-C62A-4D10-BCF5-245AAB51EE1B}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -452,7 +453,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{C2A910E1-08F1-49F7-B0E9-85C448A3FA78}']
['{85AE58EF-3FF7-4F77-A94B-55AD73296126}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -582,7 +583,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{DB2F0740-6510-4933-8319-A6C42A41B1D3}']
['{7FB0E1AC-84E2-4C85-BDA4-EF7AEA8F3061}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -619,6 +620,7 @@ type
function GetOldTIENDA_WEBValue : SmallInt;
function GetOldCODIGO_ASIGNADOValue : String;
function GetOldIGNORAR_CONTABILIDADValue : Integer;
function GetOldPROCEDENCIA_CLIENTEValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -656,6 +658,7 @@ type
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
end;
{ TClientesBusinessProcessorRules }
@ -874,6 +877,12 @@ type
function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldPROCEDENCIA_CLIENTEValue: String; virtual;
function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1016,6 +1025,10 @@ type
property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
property PROCEDENCIA_CLIENTE : String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1025,7 +1038,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{4F4D8353-5DFD-493F-98A7-098340C343A0}']
['{B54B8DC8-4564-46C3-8400-19DDCF3B2BF0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1456,7 +1469,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{D89254AA-A456-4113-9356-87878DD0342B}']
['{FE0C063A-18A0-4DBA-BC6A-2323006103FE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1843,7 +1856,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{488B60E5-27F3-4A85-B8CF-A78A05CE3555}']
['{150BDD77-02FA-4D7C-BD7A-601E2080A0D5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2058,7 +2071,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{0E2CBA43-B994-4B22-9560-96C73CE304F3}']
['{DB9B02CC-FD38-44BC-AEF1-D290B33ECDF3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2138,9 +2151,43 @@ type
end;
{ IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{7250F4FB-83DB-46E7-9A36-A9428DDDB86C}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
{ TProcedenciasClienteBusinessProcessorRules }
TProcedenciasClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IProcedenciasCliente, IProcedenciasClienteDelta)
private
protected
{ Property getters and setters }
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{EFF7AA25-B5B3-41EE-AB8F-2E889A72B8E6}']
['{80F30B7C-3451-4673-BF93-149065EC9D11}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2174,7 +2221,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{784E3585-2E4F-441F-9B7C-ACF190737701}']
['{94F7258A-EF0A-4E0F-BD2B-EB41E541A86B}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2208,7 +2255,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{141705B2-3547-40A3-B6B9-4ABFDE30CD10}']
['{4C6D6C3E-4B74-4B9A-A59E-B640D3DB0415}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -4855,6 +4902,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] := Null;
end;
function TClientesBusinessProcessorRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
end;
function TClientesBusinessProcessorRules.GetPROCEDENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE]);
end;
function TClientesBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
end;
function TClientesBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROCEDENCIA_CLIENTE]);
end;
procedure TClientesBusinessProcessorRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE] := Null;
end;
{ TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -7587,6 +7665,49 @@ begin
end;
{ TProcedenciasClienteBusinessProcessorRules }
constructor TProcedenciasClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TProcedenciasClienteBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TProcedenciasClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION];
end;
function TProcedenciasClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION]);
end;
function TProcedenciasClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProcedenciasClienteDESCRIPCION];
end;
function TProcedenciasClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProcedenciasClienteDESCRIPCION]);
end;
procedure TProcedenciasClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION] := aValue;
end;
procedure TProcedenciasClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION] := Null;
end;
{ TGruposProveedorBusinessProcessorRules }
constructor TGruposProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
@ -8354,6 +8475,7 @@ initialization
RegisterBusinessProcessorRules(RID_EmpleadosDelta, TEmpleadosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DireccionesContactoDelta, TDireccionesContactoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ClientesDescuentosDelta, TClientesDescuentosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ProcedenciasClienteDelta, TProcedenciasClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposProveedorDelta, TGruposProveedorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposEmpleadoDelta, TGruposEmpleadoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_Contactos_RefreshDelta, TContactos_RefreshBusinessProcessorRules);

2
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -77,6 +77,7 @@ begin
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
Execute;
end;
finally
@ -115,6 +116,7 @@ begin
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
Execute;
end;
finally

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

@ -47,6 +47,9 @@ type
function GetGRUPO_CLIENTEValue: String;
procedure SetGRUPO_CLIENTEValue(const aValue: String);
function GetPROCEDENCIA_CLIENTEValue: String;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
@ -58,7 +61,7 @@ type
function GetMOTIVO_BLOQUEOValue: String;
procedure SetMOTIVO_BLOQUEOValue(const aValue: String);
function GetRECARGO_EQUIVALENCIAValue: Integer;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
@ -79,7 +82,7 @@ type
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
@ -231,6 +234,9 @@ type
function GetGRUPO_CLIENTEValue: String;
procedure SetGRUPO_CLIENTEValue(const aValue: String);
function GetPROCEDENCIA_CLIENTEValue: String;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
@ -273,6 +279,7 @@ type
destructor Destroy; override;
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
@ -527,6 +534,11 @@ begin
result := DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString;
end;
function TBizCliente.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString;
end;
procedure TBizCliente.SetBLOQUEADOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue;
@ -568,6 +580,11 @@ begin
DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString := aValue;
end;
procedure TBizCliente.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString := aValue;
end;
function TBizCliente.GetRECARGO_EQUIVALENCIAValue: Integer;
begin
Result := DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsInteger;

27
Source/Modulos/Contactos/Model/uBizProcedenciasCliente.pas Normal file
View File

@ -0,0 +1,27 @@
unit uBizProcedenciasCliente;
interface
uses
uDAInterfaces, uDADataTable, schContactosClient_Intf;
const
BIZ_CLIENT_PROCEDENCIASCLIENTE = 'Client.ProcedenciaCliente';
type
IBizProcedenciaCliente = interface(IProcedenciasCliente)
['{305E0EFE-D650-447A-BF9A-8B5A89AED057}']
end;
TBizProcedenciaCliente = class(TProcedenciasClienteDataTableRules, IBizProcedenciaCliente)
end;
implementation
initialization
RegisterDataTableRules(BIZ_CLIENT_PROCEDENCIASCLIENTE, TBizProcedenciaCliente);
finalization
end.

8
Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
View File

@ -249,6 +249,10 @@ object PluginContactos: TPluginContactos
ImageIndex = 4
OnExecute = actGruposEmpleadoExecute
end
object actProcedenciasCliente: TAction
Caption = 'Procedencias de cliente'
OnExecute = actProcedenciasClienteExecute
end
end
object MainMenu: TMainMenu
Images = SmallImages
@ -269,6 +273,10 @@ object PluginContactos: TPluginContactos
Tag = 103
Action = actGruposEmpleado
end
object Procedenciasdecliente1: TMenuItem
Tag = 104
Action = actProcedenciasCliente
end
end
object Compras1: TMenuItem
Caption = '&Compras'

21
Source/Modulos/Contactos/Plugin/uPluginContactos.pas
View File

@ -32,17 +32,20 @@ type
Categoriasdeempleado1: TMenuItem;
Gruposdeproveedor1: TMenuItem;
Da1: TMenuItem;
actProcedenciasCliente: TAction;
Procedenciasdecliente1: TMenuItem;
procedure actClientesExecute(Sender: TObject);
procedure actProveedoresExecute(Sender: TObject);
procedure actEmpleadosExecute(Sender: TObject);
procedure actGruposClienteExecute(Sender: TObject);
procedure actGruposProveedorExecute(Sender: TObject);
procedure actGruposEmpleadoExecute(Sender: TObject);
procedure actProcedenciasClienteExecute(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
@ -50,9 +53,9 @@ implementation
uses
Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
uClientesController, uProveedoresController, uEmpleadosController,
uGruposClienteController, uBizGruposCliente, uGruposProveedorController,
uBizGruposProveedor, uGruposEmpleadoController, uBizGruposEmpleado,
uContactosViewRegister, uBizContactos;
uGruposClienteController, uProcedenciasClienteController, uBizGruposCliente,
uGruposProveedorController, uBizGruposProveedor, uBizProcedenciasCliente,
uGruposEmpleadoController, uBizGruposEmpleado, uContactosViewRegister, uBizContactos;
function GetModule : TModuleController;
begin
@ -110,6 +113,16 @@ begin
AGruposProveedorController.VerTodos(AGruposProveedor);
end;
procedure TPluginContactos.actProcedenciasClienteExecute(Sender: TObject);
var
AProcedenciasClienteController : IProcedenciasClienteController;
AProcedenciasCliente : IBizProcedenciaCliente;
begin
AProcedenciasClienteController := TProcedenciasClienteController.Create;
AProcedenciasCliente := (AProcedenciasClienteController.BuscarTodos as IBizProcedenciaCliente);
AProcedenciasClienteController.VerTodos(AProcedenciasCliente);
end;
procedure TPluginContactos.actProveedoresExecute(Sender: TObject);
var
AProveedoresController : IProveedoresController;

64
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -594,6 +594,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD'
end
item
DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE'
end>
end>
Name = 'Clientes'
@ -799,6 +803,12 @@ object srvContactos: TsrvContactos
Name = 'IGNORAR_CONTABILIDAD'
DataType = datInteger
DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD'
end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE'
end>
end
item
@ -1105,6 +1115,7 @@ object srvContactos: TsrvContactos
item
Name = 'GRUPO_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
end
item
@ -1620,6 +1631,7 @@ object srvContactos: TsrvContactos
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DTOS_PROVEEDORES'
SQL =
'SELECT '#10' CLIENTES_DTOS_PROVEEDORES.ID,'#10' CLIENTES_DTOS_PROV' +
'EEDORES.ID_CLIENTE,'#10' CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR,'#10 +
@ -1683,6 +1695,30 @@ object srvContactos: TsrvContactos
DictionaryEntry = 'ClientesDescuentos_DESCUENTO'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CLIENTES_PROCEDENCIAS'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'ProcedenciasCliente'
Fields = <
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end>
end
item
Params = <>
Statements = <
@ -2642,6 +2678,10 @@ object srvContactos: TsrvContactos
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end
item
Name = 'PROCEDENCIA_CLIENTE'
Value = ''
end>
Statements = <
item
@ -2651,11 +2691,12 @@ object srvContactos: TsrvContactos
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' +
'ARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' +
'BLOQUEADO, MOTIVO_BLOQUEO,'#10' REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' +
'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO, IGNORAR_CONTABILIDAD)'#10' VA' +
'LUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' ' +
' :NOMBRE_COMERCIAL, :VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :M' +
'OTIVO_BLOQUEO, :REGIMEN_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, ' +
':TIENDA_WEB, :CODIGO_ASIGNADO, :IGNORAR_CONTABILIDAD)'#10
'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO, IGNORAR_CONTABILIDAD,'#10' ' +
' PROCEDENCIA_CLIENTE)'#10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE,' +
' :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL, :VENCIMIENTO_FAC' +
'TURAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA,'#10' :ID_' +
'TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_ASIGNADO, :IGNORA' +
'R_CONTABILIDAD,'#10' :PROCEDENCIA_CLIENTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2735,6 +2776,10 @@ object srvContactos: TsrvContactos
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end
item
Name = 'PROCEDENCIA_CLIENTE'
Value = ''
end
item
Name = 'OLD_ID_CLIENTE'
Value = ''
@ -2752,7 +2797,8 @@ object srvContactos: TsrvContactos
'= :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAG' +
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' +
'GNADO = :CODIGO_ASIGNADO,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CO' +
'NTABILIDAD'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
'NTABILIDAD,'#10' PROCEDENCIA_CLIENTE = :PROCEDENCIA_CLIENTE'#10' WHE' +
'RE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -4202,6 +4248,7 @@ object srvContactos: TsrvContactos
item
Name = 'Proveedores_GRUPO_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Grupo proveedor'
end
item
@ -4333,6 +4380,11 @@ object srvContactos: TsrvContactos
item
Name = 'Clientes_IGNORAR_CONTABILIDAD'
DataType = datInteger
end
item
Name = 'Clientes_PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end>
Left = 126
Top = 14

1
Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
View File

@ -67,6 +67,7 @@ procedure TsrvContactos.DARemoteServiceBeforeGetDatasetData(
begin
if (DataSet.Name <> nme_DatosBancarios) and
(DataSet.Name <> nme_DireccionesContacto) and
(DataSet.Name <> nme_ProcedenciasCliente) and
(DataSet.Name <> nme_GruposCliente) and
(DataSet.Name <> nme_GruposProveedor) and
(DataSet.Name <> nme_GruposEmpleado) and

BIN
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

Binary file not shown.

41
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,18 +49,26 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>
@ -121,6 +129,10 @@
<Form>fEditorGruposProveedor</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorProcedenciasCliente.pas">
<Form>fEditorProcedenciasCliente</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorProveedor.pas">
<Form>fEditorProveedor</Form>
<DesignClass>TCustomEditor</DesignClass>
@ -193,6 +205,11 @@
<Form>frViewSubCuentaContacto</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

7
Source/Modulos/Contactos/Views/uContactosViewRegister.pas
View File

@ -13,7 +13,8 @@ uses
uEditorEmpleados, uEditorElegirCLientes,
uEditorCliente, uEditorProveedor,
uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorGruposProveedor, uEditorGruposEmpleado,
uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorProcedenciasCliente,
uEditorGruposProveedor, uEditorGruposEmpleado,
uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport;
procedure RegisterViews;
@ -33,6 +34,7 @@ begin
EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega');
EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente');
EditorRegistry.RegisterClass(TfEditorProcedenciasCliente, 'EditorProcedenciasCliente');
EditorRegistry.RegisterClass(TfEditorGruposProveedor, 'EditorGruposProveedor');
EditorRegistry.RegisterClass(TfEditorGruposEmpleado, 'EditorGruposEmpleado');
@ -57,11 +59,12 @@ begin
EditorRegistry.UnRegisterClass(TfEditorElegirDireccionEntrega);
EditorRegistry.UnRegisterClass(TfEditorGruposCliente);
EditorRegistry.UnRegisterClass(TfEditorProcedenciasCliente);
EditorRegistry.UnRegisterClass(TfEditorGruposProveedor);
EditorRegistry.UnRegisterClass(TfEditorGruposEmpleado);
EditorRegistry.UnRegisterClass(TfEditorFichasEmpleadoPreview);
EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);
EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);
end;
end.

138
Source/Modulos/Contactos/Views/uEditorProcedenciasCliente.dfm Normal file
View File

@ -0,0 +1,138 @@
object fEditorProcedenciasCliente: TfEditorProcedenciasCliente
Left = 453
Top = 234
ActiveControl = ListaProcedenciasCliente
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Administraci'#243'n de procedencias de clientes'
ClientHeight = 499
ClientWidth = 404
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = CustomEditorClose
OnShow = FormShow
InstanceID = 0
ReadOnly = False
PixelsPerInch = 96
TextHeight = 13
object bAceptar: TButton
Left = 226
Top = 464
Width = 75
Height = 25
Action = actAceptar
Default = True
TabOrder = 1
end
object bCancelar: TButton
Left = 314
Top = 464
Width = 75
Height = 25
Action = actCancelar
Cancel = True
TabOrder = 2
end
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 390
Height = 442
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Procedencias de cliente'
object Label1: TLabel
Left = 10
Top = 12
Width = 153
Height = 13
Caption = 'Lista de procedencias de cliente'
end
object ListaProcedenciasCliente: TDBLookupListBox
Left = 8
Top = 31
Width = 281
Height = 277
KeyField = 'RecID'
ListField = 'DESCRIPCION'
ListSource = DADataSource
TabOrder = 0
end
object bEliminar: TButton
Left = 304
Top = 31
Width = 75
Height = 25
Action = actEliminar
TabOrder = 1
end
object GroupBox1: TGroupBox
Left = 6
Top = 318
Width = 369
Height = 84
Caption = 'A'#241'adir una nueva procedencia de cliente'
TabOrder = 2
object eCategoria: TLabel
Left = 18
Top = 20
Width = 128
Height = 13
Caption = 'Nombre de la procedencia:'
end
object bAnadir: TButton
Left = 282
Top = 38
Width = 75
Height = 25
Action = actAnadir
TabOrder = 1
end
object editProcedenciaCliente: TEdit
Left = 18
Top = 40
Width = 255
Height = 21
TabOrder = 0
end
end
end
end
object ActionList1: TActionList
Left = 144
Top = 16
object actAnadir: TAction
Caption = '&A'#241'adir'
OnExecute = actAnadirExecute
OnUpdate = actAnadirUpdate
end
object actEliminar: TAction
Caption = '&Eliminar'
OnExecute = actEliminarExecute
OnUpdate = actEliminarUpdate
end
object actAceptar: TAction
Caption = 'A&ceptar'
OnExecute = actAceptarExecute
end
object actCancelar: TAction
Caption = '&Cancelar'
OnExecute = actCancelarExecute
end
object actCerrar: TAction
Caption = 'actCerrar'
OnExecute = actCerrarExecute
end
end
object DADataSource: TDADataSource
Left = 168
Top = 16
end
end

179
Source/Modulos/Contactos/Views/uEditorProcedenciasCliente.pas Normal file
View File

@ -0,0 +1,179 @@
{
===============================================================================
Copyright (©) 2006. Rodax Software.
===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
bajo el que se suministra.
-----------------------------------------------------------------------------
Web: www.rodax-software.com
===============================================================================
Fecha primera versión: 22-05-2006
Versión actual: 1.0.0
Fecha versión actual: 22-05-2006
===============================================================================
Modificaciones:
Fecha Comentarios
---------------------------------------------------------------------------
===============================================================================
}
unit uEditorProcedenciasCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
uIEditorProcedenciasCliente, uCustomEditor, uGUIBase, ExtCtrls,
ComCtrls, uBizProcedenciasCliente, uProcedenciasClienteController, uDAInterfaces;
type
TfEditorProcedenciasCliente = class(TCustomEditor, IEditorProcedenciasCliente)
ActionList1: TActionList;
DADataSource: TDADataSource;
ListaProcedenciasCliente: TDBLookupListBox;
editProcedenciaCliente: TEdit;
bAnadir: TButton;
actAnadir: TAction;
actEliminar: TAction;
bEliminar: TButton;
actAceptar: TAction;
actCancelar: TAction;
bAceptar: TButton;
bCancelar: TButton;
actCerrar: TAction;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure actCerrarExecute(Sender: TObject);
procedure actAnadirUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
protected
FProcedenciasCliente: IBizProcedenciaCliente;
FController: IProcedenciasClienteController;
function GetProcedenciasCliente: IBizProcedenciaCliente;
procedure SetProcedenciasCliente(const Value: IBizProcedenciaCliente);
function GetController : IProcedenciasClienteController;
procedure SetController (const Value : IProcedenciasClienteController);
public
property ProcedenciasCliente: IBizProcedenciaCliente read GetProcedenciasCliente write SetProcedenciasCliente;
property Controller : IProcedenciasClienteController read GetController write SetController;
end;
implementation
{$R *.dfm}
{ TfEditorProcedenciasCliente }
uses
uDialogUtils;
function TfEditorProcedenciasCliente.GetController: IProcedenciasClienteController;
begin
Result := FController;
end;
function TfEditorProcedenciasCliente.GetProcedenciasCliente: IBizProcedenciaCliente;
begin
Result := FProcedenciasCliente;
end;
procedure TfEditorProcedenciasCliente.SetController(const Value: IProcedenciasClienteController);
begin
FController := Value;
end;
procedure TfEditorProcedenciasCliente.SetProcedenciasCliente(const Value: IBizProcedenciaCliente);
begin
FProcedenciasCliente := Value;
DADataSource.DataTable := (FProcedenciasCliente as IBizProcedenciaCliente).DataTable;
DADataSource.DataTable.Open;
end;
procedure TfEditorProcedenciasCliente.actAnadirExecute(Sender: TObject);
begin
if not FController.Localizar(ProcedenciasCliente, editProcedenciaCliente.Text) then
begin
ProcedenciasCliente.Append;
ProcedenciasCliente.DESCRIPCION := editProcedenciaCliente.Text;
ProcedenciasCliente.Post;
editProcedenciaCliente.Clear;
ListaProcedenciasCliente.SetFocus;
end
else
ShowErrorMessage('Ya existe la procedencia ' + editProcedenciaCliente.Text,
'Ya existe la procedencia de cliente ''' + editProcedenciaCliente.Text + ''' en la lista.');
end;
procedure TfEditorProcedenciasCliente.actEliminarExecute(Sender: TObject);
begin
ProcedenciasCliente.Delete;
ListaProcedenciasCliente.SetFocus;
end;
procedure TfEditorProcedenciasCliente.actEliminarUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (FProcedenciasCliente.DataTable.RecordCount > 0) and
(Length(ListaProcedenciasCliente.SelectedItem) > 0);
end;
procedure TfEditorProcedenciasCliente.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
begin
FProcedenciasCliente := Nil;
FController := Nil;
end;
procedure TfEditorProcedenciasCliente.actAceptarExecute(Sender: TObject);
begin
try
ProcedenciasCliente.DataTable.ApplyUpdates;
except
on E : Exception do begin
ProcedenciasCliente.DataTable.CancelUpdates;
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
exit;
end;
end;
actCerrar.Execute;
end;
procedure TfEditorProcedenciasCliente.actCancelarExecute(Sender: TObject);
begin
ProcedenciasCliente.DataTable.CancelUpdates;
actCerrar.Execute;
end;
procedure TfEditorProcedenciasCliente.actCerrarExecute(Sender: TObject);
begin
Close;
end;
procedure TfEditorProcedenciasCliente.actAnadirUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (Length(editProcedenciaCliente.Text) > 0)
end;
procedure TfEditorProcedenciasCliente.FormShow(Sender: TObject);
begin
if not FProcedenciasCliente.DataTable.Active then
FProcedenciasCliente.DataTable.Active := true;
editProcedenciaCliente.SetFocus;
end;
end.

179
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -1,29 +1,29 @@
inherited frViewCliente: TfrViewCliente
Width = 646
Height = 470
Height = 534
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 646
ExplicitHeight = 470
ExplicitHeight = 534
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 646
Height = 470
Height = 534
ExplicitWidth = 646
ExplicitHeight = 470
inherited PngSpeedButton1: TPngSpeedButton
Left = 585
ExplicitLeft = 585
Left = 601
ExplicitLeft = 601
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 585
ExplicitLeft = 585
Left = 601
ExplicitLeft = 601
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 585
ExplicitLeft = 585
Left = 601
ExplicitLeft = 601
end
object Label1: TLabel [3]
Left = 372
Left = 382
Top = 280
Width = 269
Height = 39
@ -35,42 +35,42 @@ inherited frViewCliente: TfrViewCliente
end
inherited eCalle: TcxDBTextEdit
Left = 132
Top = 220
TabOrder = 7
Top = 247
TabOrder = 8
ExplicitLeft = 132
ExplicitTop = 220
ExplicitTop = 247
ExplicitWidth = 175
Width = 175
end
inherited eProvincia: TcxDBTextEdit
Left = 132
Top = 274
TabOrder = 10
Top = 301
TabOrder = 11
ExplicitLeft = 132
ExplicitTop = 274
ExplicitTop = 301
ExplicitWidth = 167
Width = 167
end
inherited ePoblacion: TcxDBTextEdit
Left = 132
Top = 247
TabOrder = 8
Top = 274
TabOrder = 9
ExplicitLeft = 132
ExplicitTop = 247
ExplicitTop = 274
ExplicitWidth = 71
Width = 71
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 277
Top = 247
TabOrder = 9
ExplicitLeft = 277
ExplicitTop = 247
Left = 287
Top = 274
TabOrder = 10
ExplicitLeft = 287
ExplicitTop = 274
end
inherited eObservaciones: TcxDBMemo
Top = 415
TabOrder = 21
ExplicitTop = 415
Top = 442
TabOrder = 22
ExplicitTop = 442
ExplicitWidth = 609
ExplicitHeight = 42
Height = 42
@ -98,7 +98,7 @@ inherited frViewCliente: TfrViewCliente
end
object cbClienteBloqueado: TcxDBCheckBox [10]
Left = 22
Top = 331
Top = 358
Action = actBloqueoCliente
DataBinding.DataField = 'BLOQUEADO'
DataBinding.DataSource = dsContacto
@ -117,7 +117,7 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
TabOrder = 12
Width = 163
end
object cbGrupoCliente: TcxDBComboBox [11]
@ -146,7 +146,7 @@ inherited frViewCliente: TfrViewCliente
end
object eBloqueo: TcxDBTextEdit [12]
Left = 132
Top = 358
Top = 385
DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -160,11 +160,11 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
TabOrder = 13
Width = 113
end
object cxDBCheckBox1: TcxDBCheckBox [13]
Left = 372
Left = 382
Top = 325
Caption = 'Permitir el acceso de este cliente a la tienda web'
DataBinding.DataField = 'TIENDA_WEB'
@ -185,44 +185,24 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 20
TabOrder = 21
Width = 236
end
inherited eTlfParticular: TcxDBTextEdit
Left = 467
TabOrder = 14
ExplicitLeft = 467
Left = 477
TabOrder = 15
ExplicitLeft = 477
ExplicitWidth = 157
Width = 157
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 467
TabOrder = 13
ExplicitLeft = 467
Left = 477
TabOrder = 14
ExplicitLeft = 477
ExplicitWidth = 157
Width = 157
end
inherited eTlfMovil: TcxDBTextEdit
Left = 467
TabOrder = 15
ExplicitLeft = 467
ExplicitWidth = 157
Width = 157
end
inherited eFax: TcxDBTextEdit
Left = 467
TabOrder = 16
ExplicitLeft = 467
ExplicitWidth = 157
Width = 157
end
inherited eNombre: TcxDBTextEdit
Left = 132
ExplicitLeft = 132
ExplicitWidth = 135
Width = 135
end
object eCodigoAsignado: TcxDBTextEdit [19]
object eCodigoAsignado: TcxDBTextEdit [16]
Left = 132
Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO'
@ -242,45 +222,91 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 4
Width = 227
end
inherited eTlfMovil: TcxDBTextEdit
Left = 477
TabOrder = 16
ExplicitLeft = 477
ExplicitWidth = 157
Width = 157
end
inherited eFax: TcxDBTextEdit
Left = 477
TabOrder = 17
ExplicitLeft = 477
ExplicitWidth = 157
Width = 157
end
inherited eNombre: TcxDBTextEdit
Left = 132
ExplicitLeft = 132
ExplicitWidth = 135
Width = 135
end
inherited eNIFCIF: TcxDBTextEdit
Left = 283
ExplicitLeft = 283
ExplicitWidth = 58
Width = 58
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 467
Left = 477
Properties.Prefix = 'mailto:'
TabOrder = 17
ExplicitLeft = 467
TabOrder = 18
ExplicitLeft = 477
ExplicitWidth = 128
Width = 128
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 467
Left = 477
Properties.Prefix = 'mailto:'
TabOrder = 18
ExplicitLeft = 467
TabOrder = 19
ExplicitLeft = 477
ExplicitWidth = 128
Width = 128
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 467
TabOrder = 19
ExplicitLeft = 467
Left = 477
TabOrder = 20
ExplicitLeft = 477
ExplicitWidth = 128
Width = 128
end
inherited eReferencia: TcxDBTextEdit
Left = 132
ExplicitLeft = 132
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 132
Top = 193
TabOrder = 6
Top = 220
TabOrder = 7
ExplicitLeft = 132
ExplicitTop = 193
ExplicitTop = 220
ExplicitWidth = 256
Width = 256
end
object cbProcedenciaCliente: TcxDBComboBox [26]
Left = 132
Top = 163
DataBinding.DataField = 'PROCEDENCIA_CLIENTE'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.OnInitPopup = cbProcedenciaClientePropertiesInitPopup
Properties.OnValidate = cbProcedenciaClientePropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
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 = 6
Width = 211
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal]
@ -307,6 +333,11 @@ inherited frViewCliente: TfrViewCliente
Control = cbGrupoCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem23: TdxLayoutItem
Caption = 'Procedencia cliente:'
Control = cbProcedenciaCliente
ControlOptions.ShowBorder = False
end
end
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
Caption = 'Domicilio fiscal'

53
Source/Modulos/Contactos/Views/uViewCliente.pas
View File

@ -11,7 +11,7 @@ uses
dxLayoutControl, cxMemo, cxHyperLinkEdit, ImgList, ActnList, Buttons,
PngSpeedButton, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uGruposClienteController,
cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces;
uProcedenciasClienteController, cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces;
type
IViewCliente = interface(IViewContacto)
@ -36,14 +36,20 @@ type
Label1: TLabel;
dxLayoutControlContactoItem22: TdxLayoutItem;
eCodigoAsignado: TcxDBTextEdit;
dxLayoutControlContactoItem23: TdxLayoutItem;
cbProcedenciaCliente: TcxDBComboBox;
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
procedure cbGrupoClientePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actBloqueoClienteExecute(Sender: TObject);
procedure cbProcedenciaClientePropertiesInitPopup(Sender: TObject);
procedure cbProcedenciaClientePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
protected
FGrupoController: IGruposClienteController;
FProcedenciaController: IProcedenciasClienteController;
procedure SetContacto(const Value: IBizContacto); override;
end;
@ -52,7 +58,7 @@ implementation
{$R *.dfm}
uses
uBizGruposCliente;
uBizGruposCliente, uBizProcedenciasCliente;
{ TfrViewCliente }
@ -104,15 +110,58 @@ begin
end;
end;
procedure TfrViewCliente.cbProcedenciaClientePropertiesInitPopup(Sender: TObject);
begin
inherited;
with cbProcedenciaCliente.Properties.Items do
begin
BeginUpdate;
try
Clear;
AddStrings(FProcedenciaController.DarListaProcedenciasCliente);
finally
EndUpdate;
end;
end;
end;
procedure TfrViewCliente.cbProcedenciaClientePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
AProcedencia : IBizProcedenciaCliente;
begin
inherited;
with (Sender as TcxDBComboBox) do
begin
if (Length(DisplayValue) > 0) and (DisplayValue <> (Contacto as IBizCliente).PROCEDENCIA_CLIENTE) then
if Properties.LookupItems.IndexOf(DisplayValue) < 0 then
begin
Properties.LookupItems.BeginUpdate;
AProcedencia := FProcedenciaController.BuscarTodos;
AProcedencia.DataTable.Active := True;
try
FProcedenciaController.Anadir(AProcedencia);
AProcedencia.DESCRIPCION := DisplayValue;
FProcedenciaController.Guardar(AProcedencia);
Properties.LookupItems.Add(DisplayValue);
finally
Properties.LookupItems.EndUpdate;
AProcedencia := NIL;
end;
end;
end;
end;
procedure TfrViewCliente.CustomViewCreate(Sender: TObject);
begin
inherited;
FGrupoController := TGruposClienteController.Create;
FProcedenciaController := TProcedenciasClienteController.Create;
end;
procedure TfrViewCliente.CustomViewDestroy(Sender: TObject);
begin
FGrupoController := NIL;
FProcedenciaController := NIL;
inherited;
end;

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -81,8 +81,6 @@ uses
schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService},
uBizPagosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
@ -110,7 +108,9 @@ uses
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_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',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

460
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,233 +1,235 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]