Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Contactos: poder tener varias cuentas bancarias en un contacto.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@287 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-21 10:06:02 +00:00
parent dac778f62a
commit 266745ac19
32 changed files with 983 additions and 408 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Build/Build.fbp5
View File

@ -625,9 +625,9 @@ LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=
ProductVersion=1.0.0.0
Comments=
CompileDate=
CompileDate=domingo, 10 de febrero de 2008 12:11
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>

100
Source/Base/Base.dproj
View File

@ -53,57 +53,57 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Familias\adortl.dcp" />
<DCCReference Include="..\Modulos\Familias\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Familias\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Familias\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Familias\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Familias\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Familias\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Familias\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Familias\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Familias\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Familias\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Familias\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Familias\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Familias\designide.dcp" />
<DCCReference Include="..\Modulos\Familias\dsnap.dcp" />
<DCCReference Include="..\Modulos\Familias\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Familias\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Familias\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Familias\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Familias\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Familias\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Familias\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Familias\Jcl.dcp" />
<DCCReference Include="..\Modulos\Familias\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Familias\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Familias\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Familias\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Familias\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Familias\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Familias\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Familias\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Familias\rtl.dcp" />
<DCCReference Include="..\Modulos\Familias\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Familias\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Familias\vcl.dcp" />
<DCCReference Include="..\Modulos\Familias\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Familias\vcldb.dcp" />
<DCCReference Include="..\Modulos\Familias\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Familias\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Familias\vclx.dcp" />
<DCCReference Include="..\Modulos\Familias\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

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

@ -61,6 +61,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',
uDatosBancariosContactoController in 'uDatosBancariosContactoController.pas',
uIEditorDatoBancarioContacto in 'View\uIEditorDatoBancarioContacto.pas';
end.

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

@ -43,6 +43,33 @@
<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,15 +80,9 @@
<DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_data.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDatosBancariosContactoController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" />
<DCCReference Include="uEmpleadosController.pas" />
<DCCReference Include="uEtiquetasContactosReportController.pas" />
@ -70,10 +91,17 @@
<DCCReference Include="uGruposEmpleadoController.pas" />
<DCCReference Include="uGruposProveedorController.pas" />
<DCCReference Include="uProveedoresController.pas" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\Contactos_data.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorCliente.pas" />
<DCCReference Include="View\uIEditorClientes.pas" />
<DCCReference Include="View\uIEditorContacto.pas" />
<DCCReference Include="View\uIEditorContactos.pas" />
<DCCReference Include="View\uIEditorDatoBancarioContacto.pas" />
<DCCReference Include="View\uIEditorDireccionContacto.pas" />
<DCCReference Include="View\uIEditorElegirClientes.pas" />
<DCCReference Include="View\uIEditorElegirContactos.pas" />
@ -88,12 +116,13 @@
<DCCReference Include="View\uIEditorGruposProveedor.pas" />
<DCCReference Include="View\uIEditorProveedor.pas" />
<DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\vcl.dcp" />
<None Include="ModelSupport_Contactos_controller\default.txaPackage" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1

28
Source/Modulos/Contactos/Controller/View/uIEditorDatoBancarioContacto.pas Normal file
View File

@ -0,0 +1,28 @@
unit uIEditorDatoBancarioContacto;
interface
uses
uBizContactosDatosBancarios, uDatosBancariosContactoController;
type
IEditorDatoBancarioContacto = interface
['{BDFD97C4-7054-40E5-A7DA-1A3AD1E13673}']
function GetController : IDatosBancariosContactoController;
procedure SetController (const Value : IDatosBancariosContactoController);
property Controller : IDatosBancariosContactoController read GetController
write SetController;
function GetDatoBancario: IBizContactosDatosBancarios;
procedure SetDatoBancario(const Value: IBizContactosDatosBancarios);
property DatoBancario: IBizContactosDatosBancarios read GetDatoBancario write SetDatoBancario;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

7
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -5,10 +5,11 @@ interface
uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos;
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
uControllerBase;
type
IContactosController = interface
IContactosController = interface(IControllerBase)
['{43F9A4ED-6563-4F95-9A56-330CF9C66731}']
function Buscar(const ID: Integer): IBizContacto;
function BuscarTodos: IBizContacto;
@ -29,7 +30,7 @@ type
function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
end;
TContactosController = class(TInterfacedObject, IContactosController)
TContactosController = class(TControllerBase, IContactosController)
protected
FDataModule : IDataModuleContactos;
procedure FiltrarEmpresa(AContacto : IBizContacto); virtual;

90
Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas Normal file
View File

@ -0,0 +1,90 @@
unit uDatosBancariosContactoController;
interface
uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
uControllerBase;
type
IDatosBancariosContactoController = interface(IControllerBase)
['{2E1C410A-B11D-4E1C-A7DF-9321BAEA5952}']
procedure Ver(ADatoBancario : IBizContactosDatosBancarios);
function Localizar(ADatosBancarios: IBizContactosDatosBancarios; const ID : Integer): Boolean;
end;
TDatosBancariosContactoController = class(TControllerBase, IDatosBancariosContactoController)
private
FDataModule : IDataModuleContactos;
public
procedure Ver(ADatoBancario : IBizContactosDatosBancarios);
function Localizar(ADatosBancarios: IBizContactosDatosBancarios; const ID : Integer): Boolean;
constructor Create; virtual;
destructor Destroy; override;
end;
implementation
{ TDatosBancariosContactoController }
uses
uDataModuleContactos, schContactosClient_Intf,
uEditorRegistryUtils, cxControls, uIEditorDatoBancarioContacto;
constructor TDatosBancariosContactoController.Create;
begin
inherited;
FDataModule := TDataModuleContactos.Create(Nil);
end;
destructor TDatosBancariosContactoController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TDatosBancariosContactoController.Localizar(
ADatosBancarios: IBizContactosDatosBancarios; const ID : Integer): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with ADatosBancarios.DataTable do
begin
DisableControls;
First;
if not Locate(fld_DatosBancariosID, ID, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
procedure TDatosBancariosContactoController.Ver(
ADatoBancario : IBizContactosDatosBancarios);
var
AEditor : IEditorDatoBancarioContacto;
begin
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorDatoBancarioContacto', IEditorDatoBancarioContacto, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
DatoBancario := ADatoBancario;
Controller := Self;
ShowModal;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
end.

7
Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
View File

@ -4,17 +4,18 @@ interface
uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizDireccionesContacto, uIDataModuleContactos;
uBizContactos, uBizDireccionesContacto, uIDataModuleContactos,
uControllerBase;
type
IDireccionesContactoController = interface
IDireccionesContactoController = interface(IControllerBase)
['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}']
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
procedure Ver(ADireccion : IBizDireccionesContacto);
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
end;
TDireccionesContactoController = class(TInterfacedObject, IDireccionesContactoController)
TDireccionesContactoController = class(TControllerBase, IDireccionesContactoController)
private
FDataModule : IDataModuleContactos;
public

4
Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
View File

@ -7,13 +7,13 @@ uses
uEmpleadosController;
type
IEtiquetasContactosReportController = interface
IEtiquetasContactosReportController = interface(IControllerBase)
['{76BB35E3-554E-4D30-8D3E-54E488EF82E2}']
procedure Preview(const AContactosID : String);
procedure Print(const AContactosID : String);
end;
TEtiquetasContactosReportController = class(TInterfacedObject, IEtiquetasContactosReportController)
TEtiquetasContactosReportController = class(TControllerBase, IEtiquetasContactosReportController)
private
FDataModule : IDataModuleEtiquetasContactosReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

4
Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
View File

@ -7,13 +7,13 @@ uses
uEmpleadosController;
type
IFichasEmpleadoReportController = interface
IFichasEmpleadoReportController = interface(IControllerBase)
['{8E43F55F-7D5A-4778-8523-7C105EAEB1AB}']
procedure Preview(const AFichaID : String);
procedure Print(const AFichaID : String);
end;
TFichasEmpleadoReportController = class(TInterfacedObject, IFichasEmpleadoReportController)
TFichasEmpleadoReportController = class(TControllerBase, IFichasEmpleadoReportController)
private
FDataModule : IDataModuleFichasEmpleadoReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

4
Source/Modulos/Contactos/Controller/uGruposClienteController.pas
View File

@ -8,7 +8,7 @@ uses
uIDataModuleClientes, uBizGruposCliente;
type
IGruposClienteController = interface(IObservador)
IGruposClienteController = interface(IControllerBase)
['{32D31B02-76A6-4C9B-85D4-3C632969AC79}']
function BuscarTodos: IBizGrupoCliente;
procedure VerTodos(AGruposCliente: IBizGrupoCliente);
@ -20,7 +20,7 @@ type
function DarListaGruposCliente: TStringList;
end;
TGruposClienteController = class(TObservador, IGruposClienteController)
TGruposClienteController = class(TControllerBase, IGruposClienteController)
protected
FDataModule : IDataModuleClientes;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;

4
Source/Modulos/Contactos/Controller/uGruposEmpleadoController.pas
View File

@ -8,7 +8,7 @@ uses
uIDataModuleEmpleados, uBizGruposEmpleado;
type
IGruposEmpleadoController = interface(IObservador)
IGruposEmpleadoController = interface(IControllerBase)
['{6820BA19-5E5E-459F-9001-FB4A712ACC4C}']
function BuscarTodos: IBizGrupoEmpleado;
procedure VerTodos(AGruposEmpleado: IBizGrupoEmpleado);
@ -20,7 +20,7 @@ type
function DarListaGruposEmpleado: TStringList;
end;
TGruposEmpleadoController = class(TObservador, IGruposEmpleadoController)
TGruposEmpleadoController = class(TControllerBase, IGruposEmpleadoController)
protected
FDataModule : IDataModuleEmpleados;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;

4
Source/Modulos/Contactos/Controller/uGruposProveedorController.pas
View File

@ -8,7 +8,7 @@ uses
uIDataModuleProveedores, uBizGruposProveedor;
type
IGruposProveedorController = interface(IObservador)
IGruposProveedorController = interface(IControllerBase)
['{20B27FB1-ECEA-40B6-9869-5F5EC700EEDD}']
function BuscarTodos: IBizGrupoProveedor;
procedure VerTodos(AGruposProveedor: IBizGrupoProveedor);
@ -20,7 +20,7 @@ type
function DarListaGruposProveedor: TStringList;
end;
TGruposProveedorController = class(TObservador, IGruposProveedorController)
TGruposProveedorController = class(TControllerBase, IGruposProveedorController)
protected
FDataModule : IDataModuleProveedores;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;

12
Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
View File

@ -188,6 +188,7 @@ inherited DataModuleContactos: TDataModuleContactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Contactos'
IndexDefs = <>
Left = 176
Top = 16
end
@ -314,6 +315,7 @@ inherited DataModuleContactos: TDataModuleContactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DireccionesContacto'
IndexDefs = <>
Left = 448
Top = 16
end
@ -330,6 +332,7 @@ inherited DataModuleContactos: TDataModuleContactos
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
ServerAutoRefresh = True
DictionaryEntry = 'DatosBancarios_ID'
InPrimaryKey = True
end
@ -349,28 +352,28 @@ inherited DataModuleContactos: TDataModuleContactos
Name = 'ENTIDAD'
DataType = datString
Size = 15
DisplayLabel = 'C'#195#179'digo de entidad'
DisplayLabel = 'C'#243'digo de entidad'
DictionaryEntry = 'DatosBancarios_ENTIDAD'
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
DisplayLabel = 'C'#195#179'digo de sucursal'
DisplayLabel = 'C'#243'digo de sucursal'
DictionaryEntry = 'DatosBancarios_SUCURSAL'
end
item
Name = 'DC'
DataType = datString
Size = 15
DisplayLabel = 'D'#195#173'gito de control'
DisplayLabel = 'D'#237'gito de control'
DictionaryEntry = 'DatosBancarios_DC'
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
DisplayLabel = 'C'#195#179'digo de cuenta'
DisplayLabel = 'C'#243'digo de cuenta'
DictionaryEntry = 'DatosBancarios_CUENTA'
end
item
@ -392,6 +395,7 @@ inherited DataModuleContactos: TDataModuleContactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DatosBancarios'
IndexDefs = <>
Left = 176
Top = 168
end

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

@ -48,7 +48,7 @@ end;
procedure TBizContactosDatosBancarios.OnNewRecord(Sender: TDADataTable);
begin
inherited;
ID := GetRecNo; // -1, -2, -3...
//
end;
initialization

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

@ -36,7 +36,27 @@ requires
TiposIVA_controller,
Contactos_model,
Contactos_controller,
JvGlobusD11R;
JvGlobusD11R,
dbrtl,
DataAbstract_Core_D11,
vcldb,
dsnap,
adortl,
RemObjects_Core_D11,
PngComponentsD10,
PNG_D10,
vclactnband,
vclx,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
cxEditorsD11,
cxDataD11,
vcljpg,
cxGridD11,
cxPageControlD11,
cxExtEditorsD11,
cxExportD11;
contains
uContactosViewRegister in 'uContactosViewRegister.pas',
@ -53,6 +73,7 @@ contains
uViewEmpleados in 'uViewEmpleados.pas' {frViewEmpleados: TCustomView},
uEditorProveedores in 'uEditorProveedores.pas' {fEditorProveedores: TCustomEditor},
uViewProveedor in 'uViewProveedor.pas' {frViewProveedor: TCustomView},
uViewContactoListaDatosBancarios in 'uViewContactoListaDatosBancarios.pas' {frViewListaDatosBancarios: TFrame},
uViewEmpleado in 'uViewEmpleado.pas' {frViewEmpleado: TCustomView},
uEditorProveedor in 'uEditorProveedor.pas' {fEditorProveedor: TCustomEditor},
uEditorElegirClientes in 'uEditorElegirClientes.pas' {fEditorElegirClientes: TCustomEditor},
@ -60,7 +81,7 @@ contains
uEditorElegirProveedores in 'uEditorElegirProveedores.pas' {fEditorElegirProveedores: TCustomEditor},
uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame},
uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame},
uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion},
uEditorDatoBancario in 'uEditorDatoBancario.pas' {fEditorDatoBancario},
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega},
uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame},
uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame},
@ -71,6 +92,7 @@ contains
uEditorGruposProveedor in 'uEditorGruposProveedor.pas' {fEditorGruposProveedor: TCustomEditor},
uEditorGruposEmpleado in 'uEditorGruposEmpleado.pas' {fEditorGruposEmpleado: TCustomEditor},
uEditorFichasEmpleadoReport in 'uEditorFichasEmpleadoReport.pas' {fEditorFichasEmpleadoReport: TCustomEditor},
uEditorEtiquetasContactosReport in 'uEditorEtiquetasContactosReport.pas' {fEditorEtiquetasContactosReport: TCustomEditor};
uEditorEtiquetasContactosReport in 'uEditorEtiquetasContactosReport.pas' {fEditorEtiquetasContactosReport: TCustomEditor},
uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion: TForm};
end.

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

@ -49,18 +49,33 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Model\ApplicationBase.dcp" />
<DCCReference Include="..\Model\Base.dcp" />
<DCCReference Include="..\Model\Contactos_controller.dcp" />
<DCCReference Include="..\Model\Contactos_model.dcp" />
<DCCReference Include="..\Model\FormasPago_controller.dcp" />
<DCCReference Include="..\Model\FormasPago_model.dcp" />
<DCCReference Include="..\Model\GUIBase.dcp" />
<DCCReference Include="..\Model\JvGlobusD11R.dcp" />
<DCCReference Include="..\Model\rtl.dcp" />
<DCCReference Include="..\Model\TiposIVA_controller.dcp" />
<DCCReference Include="..\Model\TiposIVA_model.dcp" />
<DCCReference Include="..\Model\vcl.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.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>
@ -78,8 +93,12 @@
<Form>fEditorContactos</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorDatoBancario.pas">
<Form>fEditorDatoBancario</Form>
</DCCReference>
<DCCReference Include="uEditorDireccion.pas">
<Form>fEditorDireccion</Form>
<Form>fEditorDireccio</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirClientes.pas">
<Form>fEditorElegirClientes</Form>
@ -153,6 +172,10 @@
<Form>frViewClienteDatosBancarios</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewContactoListaDatosBancarios.pas">
<Form>frViewListaDatosBancarios</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewContactos.pas">
<Form>frViewContactos</Form>
<DesignClass>TCustomView</DesignClass>
@ -189,6 +212,11 @@
<Form>frViewProveedores</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

@ -14,7 +14,8 @@ uses
uEditorCliente, uEditorProveedor,
uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorGruposProveedor, uEditorGruposEmpleado,
uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport;
uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport,
uEditorDatoBancario;
procedure RegisterViews;
begin
@ -36,6 +37,8 @@ begin
EditorRegistry.RegisterClass(TfEditorGruposProveedor, 'EditorGruposProveedor');
EditorRegistry.RegisterClass(TfEditorGruposEmpleado, 'EditorGruposEmpleado');
EditorRegistry.RegisterClass(TfEditorDatoBancario, 'EditorDatoBancarioContacto');
EditorRegistry.RegisterClass(TfEditorFichasEmpleadoPreview, 'EditorFichasEmpleadoPreview');
EditorRegistry.RegisterClass(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview');
end;
@ -60,6 +63,8 @@ begin
EditorRegistry.UnRegisterClass(TfEditorGruposProveedor);
EditorRegistry.UnRegisterClass(TfEditorGruposEmpleado);
EditorRegistry.UnRegisterClass(TfEditorDatoBancario);
EditorRegistry.UnRegisterClass(TfEditorFichasEmpleadoPreview);
EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);
end;

124
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -2,10 +2,10 @@ inherited fEditorCliente: TfEditorCliente
Left = 387
Top = 297
Caption = 'Ficha de cliente'
ClientHeight = 585
ClientHeight = 484
ClientWidth = 656
ExplicitWidth = 664
ExplicitHeight = 612
ExplicitHeight = 511
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -64,8 +64,7 @@ inherited fEditorCliente: TfEditorCliente
end
inherited pgPaginas: TPageControl
Width = 650
Height = 484
ActivePage = pagDescuentos
Height = 383
ExplicitWidth = 650
ExplicitHeight = 484
inherited pagGeneral: TTabSheet
@ -75,7 +74,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 642
Height = 456
Height = 355
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -89,33 +88,33 @@ inherited fEditorCliente: TfEditorCliente
ExplicitHeight = 456
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 642
Height = 456
Height = 355
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 642
ExplicitHeight = 456
inherited PngSpeedButton1: TPngSpeedButton
Left = 597
Left = 581
Top = 218
ExplicitLeft = 597
ExplicitLeft = 581
ExplicitTop = 218
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 597
Left = 581
Top = 190
ExplicitLeft = 597
ExplicitLeft = 581
ExplicitTop = 190
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 597
Left = 581
Top = 162
ExplicitLeft = 597
ExplicitLeft = 581
ExplicitTop = 162
end
inherited Label1: TLabel
Left = 431
Left = 420
Top = 270
Width = 269
ExplicitLeft = 431
ExplicitLeft = 420
ExplicitTop = 270
ExplicitWidth = 269
end
@ -138,9 +137,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 78
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 338
Left = 327
Top = 294
ExplicitLeft = 338
ExplicitLeft = 327
ExplicitTop = 294
end
inherited eObservaciones: TcxDBMemo
@ -176,42 +175,42 @@ inherited fEditorCliente: TfEditorCliente
Width = 205
end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 431
Left = 420
Top = 315
ExplicitLeft = 431
ExplicitLeft = 420
ExplicitTop = 315
ExplicitWidth = 189
ExplicitHeight = 34
Width = 189
end
inherited eTlfParticular: TcxDBTextEdit
Left = 526
Left = 515
Top = 57
ExplicitLeft = 526
ExplicitLeft = 515
ExplicitTop = 57
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 526
Left = 515
Top = 30
ExplicitLeft = 526
ExplicitLeft = 515
ExplicitTop = 30
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
Left = 526
Left = 515
Top = 84
ExplicitLeft = 526
ExplicitLeft = 515
ExplicitTop = 84
ExplicitWidth = 140
Width = 140
end
inherited eFax: TcxDBTextEdit
Left = 526
Left = 515
Top = 111
ExplicitLeft = 526
ExplicitLeft = 515
ExplicitTop = 111
ExplicitWidth = 121
Width = 121
@ -229,35 +228,35 @@ inherited fEditorCliente: TfEditorCliente
Width = 227
end
inherited eNIFCIF: TcxDBTextEdit
Left = 226
Left = 221
Top = 30
ExplicitLeft = 226
ExplicitLeft = 221
ExplicitTop = 30
ExplicitWidth = 268
Width = 268
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 526
Left = 515
Top = 162
Properties.Prefix = 'mailto:'
ExplicitLeft = 526
ExplicitLeft = 515
ExplicitTop = 162
ExplicitWidth = 121
Width = 121
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 526
Left = 515
Top = 190
Properties.Prefix = 'mailto:'
ExplicitLeft = 526
ExplicitLeft = 515
ExplicitTop = 190
ExplicitWidth = 121
Width = 121
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 526
Left = 515
Top = 217
ExplicitLeft = 526
ExplicitLeft = 515
ExplicitTop = 217
ExplicitWidth = 121
Width = 121
@ -284,39 +283,28 @@ inherited fEditorCliente: TfEditorCliente
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 642
ExplicitHeight = 456
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
Width = 642
Height = 456
Height = 355
ExplicitTop = 0
ExplicitWidth = 642
ExplicitHeight = 456
inherited dxLayoutControl1: TdxLayoutControl
inherited cxGrid: TcxGrid
Width = 642
Height = 330
ExplicitWidth = 642
ExplicitHeight = 431
end
inherited ToolBar1: TToolBar
Width = 642
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 642
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 415
ExplicitLeft = 415
ExplicitWidth = 112
Width = 112
end
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
end
end
end
object pagDatosComerciales: TTabSheet
Caption = 'Datos comerciales'
ImageIndex = 4
ExplicitHeight = 456
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
Left = 0
Top = 0
@ -405,11 +393,12 @@ inherited fEditorCliente: TfEditorCliente
object pagDirecciones: TTabSheet
Caption = 'Direcciones'
ImageIndex = 1
ExplicitHeight = 456
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0
Top = 0
Width = 642
Height = 456
Height = 355
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -423,7 +412,7 @@ inherited fEditorCliente: TfEditorCliente
ExplicitHeight = 456
inherited cxGrid: TcxGrid
Width = 642
Height = 431
Height = 330
ExplicitWidth = 642
ExplicitHeight = 431
inherited cxGridView: TcxGridDBTableView
@ -436,17 +425,30 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 642
ExplicitWidth = 642
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end
object pagDescuentos: TTabSheet
Caption = 'Descuentos'
ImageIndex = 2
ExplicitHeight = 456
inline frViewClienteDescuentos1: TfrViewClienteDescuentos
Left = 0
Top = 0
Width = 642
Height = 456
Height = 355
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -460,7 +462,7 @@ inherited fEditorCliente: TfEditorCliente
ExplicitHeight = 456
inherited cxGrid: TcxGrid
Width = 642
Height = 431
Height = 330
ExplicitWidth = 642
ExplicitHeight = 431
end
@ -500,7 +502,7 @@ inherited fEditorCliente: TfEditorCliente
end
end
inherited StatusBar: TJvStatusBar
Top = 566
Top = 465
Width = 656
ExplicitTop = 566
ExplicitWidth = 656

2
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -14,7 +14,7 @@ uses
uIEditorCliente, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewEmpleado,
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
uViewClienteDatosComerciales, uDAInterfaces;
uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios;
type
TfEditorCliente = class(TfEditorContacto, IEditorCliente)

49
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -69,6 +69,7 @@ inherited fEditorContacto: TfEditorContacto
end
inherited pgPaginas: TPageControl
Width = 626
ActivePage = pagDatosBancarios
ExplicitWidth = 626
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
@ -79,7 +80,7 @@ inherited fEditorContacto: TfEditorContacto
object pagDatosBancarios: TTabSheet
Caption = 'Datos bancarios'
ImageIndex = 1
inline frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
inline frViewListaDatosBancarios: TfrViewListaDatosBancarios
Left = 0
Top = 0
Width = 618
@ -93,41 +94,29 @@ inherited fEditorContacto: TfEditorContacto
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitTop = 113
ExplicitWidth = 618
ExplicitHeight = 332
inherited dxLayoutControl1: TdxLayoutControl
ExplicitHeight = 219
inherited cxGrid: TcxGrid
Width = 618
LookAndFeel = dxLayoutOfficeLookAndFeel
Height = 307
ExplicitWidth = 618
inherited eEntidad: TcxDBTextEdit
Top = 57
ExplicitTop = 57
ExplicitWidth = 114
Width = 114
ExplicitHeight = 194
end
inherited ToolBar1: TToolBar
Width = 618
ExplicitWidth = 618
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited eSucursal: TcxDBTextEdit
Left = 403
Top = 57
ExplicitLeft = 403
ExplicitTop = 57
ExplicitWidth = 112
Width = 112
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited eCuenta: TcxDBTextEdit
Top = 84
ExplicitTop = 84
ExplicitWidth = 194
Width = 194
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited eDC: TcxDBTextEdit
Top = 84
ExplicitTop = 84
end
inherited eTitular: TcxDBTextEdit
Top = 30
ExplicitTop = 30
ExplicitWidth = 194
Width = 194
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end

11
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -14,14 +14,14 @@ uses
uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls,
JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel,
uDAInterfaces;
uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios;
type
TfEditorContacto = class(TfEditorDBItem, IEditorContacto)
pagDatosBancarios: TTabSheet;
frViewClienteDatosBancarios: TfrViewClienteDatosBancarios;
dxLayoutLookAndFeel: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel: TdxLayoutOfficeLookAndFeel;
frViewListaDatosBancarios: TfrViewListaDatosBancarios;
procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
protected
@ -114,10 +114,11 @@ begin
if Assigned(FViewContacto) and Assigned(Contacto) then
begin
FViewContacto.Contacto := Contacto;
frViewClienteDatosBancarios.dsDatosBancarios.DataTable := FContacto.DatosBancarios.DataTable;
frViewListaDatosBancarios.dsDetalles.DataTable := FContacto.DatosBancarios.DataTable;
end
else
frViewClienteDatosBancarios.dsDatosBancarios.DataTable := NIL;
else begin
frViewListaDatosBancarios.dsDetalles.DataTable := NIL;
end;
end;
procedure TfEditorContacto.SetController(const Value: IContactosController);

136
Source/Modulos/Contactos/Views/uEditorDatoBancario.dfm Normal file
View File

@ -0,0 +1,136 @@
object fEditorDatoBancario: TfEditorDatoBancario
Left = 227
Top = 108
ActiveControl = eTitular
BorderStyle = bsDialog
Caption = 'Cambiar datos bancarios'
ClientHeight = 193
ClientWidth = 426
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
DesignSize = (
426
193)
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 8
Width = 329
Height = 177
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
end
object Label2: TLabel
Left = 20
Top = 71
Width = 110
Height = 13
AutoSize = False
Caption = 'C'#243'digo de entidad:'
end
object Label3: TLabel
Left = 20
Top = 98
Width = 110
Height = 13
AutoSize = False
Caption = 'C'#243'digo de sucursal:'
end
object Label4: TLabel
Left = 20
Top = 125
Width = 110
Height = 13
AutoSize = False
Caption = 'D'#237'gito de control:'
end
object Label5: TLabel
Left = 20
Top = 27
Width = 110
Height = 13
AutoSize = False
Caption = 'Nombre descriptivo:'
end
object Label6: TLabel
Left = 20
Top = 152
Width = 109
Height = 13
AutoSize = False
Caption = 'C'#243'digo de cuenta:'
end
object OKBtn: TButton
Left = 343
Top = 7
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = '&Aceptar'
ModalResult = 1
TabOrder = 0
end
object CancelBtn: TButton
Left = 343
Top = 38
Width = 75
Height = 25
Anchors = [akTop, akRight]
Cancel = True
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 1
end
object eEntidad: TDBEdit
Left = 136
Top = 67
Width = 94
Height = 21
DataField = 'ENTIDAD'
DataSource = dsDatosBancarios
TabOrder = 3
end
object eSucursal: TDBEdit
Left = 136
Top = 94
Width = 95
Height = 21
DataField = 'SUCURSAL'
DataSource = dsDatosBancarios
TabOrder = 4
end
object eDC: TDBEdit
Left = 136
Top = 121
Width = 41
Height = 21
DataField = 'DC'
DataSource = dsDatosBancarios
TabOrder = 5
end
object eTitular: TDBEdit
Left = 135
Top = 24
Width = 191
Height = 21
DataField = 'TITULAR'
DataSource = dsDatosBancarios
TabOrder = 2
end
object eCuenta: TDBEdit
Left = 136
Top = 148
Width = 191
Height = 21
DataField = 'CUENTA'
DataSource = dsDatosBancarios
TabOrder = 6
end
object dsDatosBancarios: TDADataSource
Left = 352
Top = 72
end
end

89
Source/Modulos/Contactos/Views/uEditorDatoBancario.pas Normal file
View File

@ -0,0 +1,89 @@
unit uEditorDatoBancario;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDAInterfaces, uDADataTable,
uBizContactosDatosBancarios, uIEditorDatoBancarioContacto,
uDatosBancariosContactoController;
type
TfEditorDatoBancario = class(TForm, IEditorDatoBancarioContacto)
OKBtn: TButton;
CancelBtn: TButton;
Bevel1: TBevel;
eEntidad: TDBEdit;
eSucursal: TDBEdit;
eDC: TDBEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
dsDatosBancarios: TDADataSource;
Label5: TLabel;
eTitular: TDBEdit;
Label6: TLabel;
eCuenta: TDBEdit;
protected
FController : IDatosBancariosContactoController;
FDatosBanco : IBizContactosDatosBancarios;
function GetController : IDatosBancariosContactoController;
procedure SetController (const Value : IDatosBancariosContactoController);
function GetDatoBancario: IBizContactosDatosBancarios;
procedure SetDatoBancario(const Value: IBizContactosDatosBancarios);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Controller : IDatosBancariosContactoController read GetController
write SetController;
property DatoBancario: IBizContactosDatosBancarios read GetDatoBancario write SetDatoBancario;
end;
implementation
uses
Variants;
{$R *.dfm}
{ TfEditorDireccion }
constructor TfEditorDatoBancario.Create(AOwner: TComponent);
begin
inherited;
FController := NIL;
end;
destructor TfEditorDatoBancario.Destroy;
begin
FController := NIL;
inherited;
end;
function TfEditorDatoBancario.GetController: IDatosBancariosContactoController;
begin
Result := FController;
end;
function TfEditorDatoBancario.GetDatoBancario: IBizContactosDatosBancarios;
begin
Result := FDatosBanco;
end;
procedure TfEditorDatoBancario.SetController(
const Value: IDatosBancariosContactoController);
begin
FController := Value;
end;
procedure TfEditorDatoBancario.SetDatoBancario(
const Value: IBizContactosDatosBancarios);
begin
FDatosBanco := Value;
if Assigned(FDatosBanco) then
dsDatosBancarios.DataTable := FDatosBanco.DataTable
else
dsDatosBancarios.DataTable := NIL;
end;
end.

199
Source/Modulos/Contactos/Views/uEditorEmpleado.dfm
View File

@ -1,16 +1,17 @@
inherited fEditorEmpleado: TfEditorEmpleado
Caption = 'fEditorEmpleado'
ClientHeight = 576
ClientWidth = 676
ExplicitWidth = 684
ExplicitHeight = 603
ClientHeight = 583
ClientWidth = 929
ExplicitTop = -46
ExplicitWidth = 937
ExplicitHeight = 610
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 676
ExplicitWidth = 676
Width = 929
ExplicitWidth = 929
inherited Image1: TImage
Left = 649
Left = 902
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -51,28 +52,28 @@ inherited fEditorEmpleado: TfEditorEmpleado
end
end
inherited TBXDock: TTBXDock
Width = 676
ExplicitWidth = 676
Width = 929
ExplicitWidth = 929
inherited tbxMain: TTBXToolbar
DockPos = 0
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 676
ExplicitWidth = 929
end
end
inherited pgPaginas: TPageControl
Width = 670
Height = 475
ExplicitWidth = 670
ExplicitHeight = 475
Width = 923
Height = 482
ExplicitWidth = 923
ExplicitHeight = 601
inherited pagGeneral: TTabSheet
ExplicitWidth = 662
ExplicitHeight = 447
ExplicitWidth = 915
ExplicitHeight = 573
inline frViewEmpleado1: TfrViewEmpleado
Left = 0
Top = 0
Width = 662
Height = 447
Width = 915
Height = 454
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -82,30 +83,30 @@ inherited fEditorEmpleado: TfEditorEmpleado
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 662
ExplicitHeight = 447
ExplicitWidth = 915
ExplicitHeight = 573
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 662
Height = 447
Width = 915
Height = 454
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 662
ExplicitHeight = 447
ExplicitWidth = 915
ExplicitHeight = 573
inherited PngSpeedButton1: TPngSpeedButton
Left = 617
Left = 870
Top = 218
ExplicitLeft = 617
ExplicitLeft = 870
ExplicitTop = 218
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 617
Left = 870
Top = 190
ExplicitLeft = 617
ExplicitLeft = 870
ExplicitTop = 190
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 617
Left = 870
Top = 162
ExplicitLeft = 617
ExplicitLeft = 870
ExplicitTop = 162
end
inherited eCalle: TcxDBTextEdit
@ -127,9 +128,9 @@ inherited fEditorEmpleado: TfEditorEmpleado
Width = 108
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 265
Left = 397
Top = 243
ExplicitLeft = 265
ExplicitLeft = 397
ExplicitTop = 243
end
inherited eObservaciones: TcxDBMemo
@ -159,33 +160,41 @@ inherited fEditorEmpleado: TfEditorEmpleado
Width = 225
end
inherited eTlfParticular: TcxDBTextEdit
Left = 453
Left = 585
Top = 57
ExplicitLeft = 453
ExplicitLeft = 585
ExplicitTop = 57
ExplicitWidth = 172
Width = 172
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 453
Left = 585
Top = 30
ExplicitLeft = 453
ExplicitLeft = 585
ExplicitTop = 30
ExplicitWidth = 172
Width = 172
end
inherited cbContrato: TcxDBComboBox
Left = 585
Top = 270
ExplicitLeft = 585
ExplicitTop = 270
ExplicitWidth = 292
Width = 292
end
inherited eTlfMovil: TcxDBTextEdit
Left = 453
Left = 585
Top = 84
ExplicitLeft = 453
ExplicitLeft = 585
ExplicitTop = 84
ExplicitWidth = 172
Width = 172
end
inherited eFax: TcxDBTextEdit
Left = 453
Left = 585
Top = 111
ExplicitLeft = 453
ExplicitLeft = 585
ExplicitTop = 111
ExplicitWidth = 172
Width = 172
@ -196,44 +205,44 @@ inherited fEditorEmpleado: TfEditorEmpleado
ExplicitWidth = 263
Width = 263
end
inherited cbContrato: TcxDBComboBox
Left = 453
Top = 270
ExplicitLeft = 453
ExplicitTop = 270
ExplicitWidth = 292
Width = 292
end
inherited eNIFCIF: TcxDBTextEdit
Left = 197
Left = 259
Top = 30
ExplicitLeft = 197
ExplicitLeft = 259
ExplicitTop = 30
ExplicitWidth = 194
Width = 194
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 453
Left = 585
Top = 162
Properties.Prefix = 'mailto:'
ExplicitLeft = 453
ExplicitLeft = 585
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 453
Left = 585
Top = 190
Properties.Prefix = 'mailto:'
ExplicitLeft = 453
ExplicitLeft = 585
ExplicitTop = 190
ExplicitWidth = 165
Width = 165
end
inherited eDuracionContrato: TcxDBTextEdit
Left = 585
Top = 297
ExplicitLeft = 585
ExplicitTop = 297
ExplicitWidth = 114
Width = 114
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 453
Left = 585
Top = 217
ExplicitLeft = 453
ExplicitLeft = 585
ExplicitTop = 217
ExplicitWidth = 165
Width = 165
@ -250,14 +259,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
ExplicitWidth = 256
Width = 256
end
inherited eDuracionContrato: TcxDBTextEdit
Left = 453
Top = 297
ExplicitLeft = 453
ExplicitTop = 297
ExplicitWidth = 114
Width = 114
end
end
inherited dsContacto: TDADataSource
Left = 8
@ -266,51 +267,41 @@ inherited fEditorEmpleado: TfEditorEmpleado
end
end
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 662
ExplicitHeight = 447
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 662
Height = 447
ExplicitWidth = 662
ExplicitHeight = 447
inherited dxLayoutControl1: TdxLayoutControl
Width = 662
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 662
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 426
ExplicitLeft = 426
ExplicitWidth = 112
Width = 112
end
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
ExplicitWidth = 915
ExplicitHeight = 573
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
Width = 915
Height = 454
ExplicitTop = 0
ExplicitWidth = 915
ExplicitHeight = 573
inherited cxGrid: TcxGrid
Width = 915
Height = 429
ExplicitWidth = 915
ExplicitHeight = 548
end
inherited ToolBar1: TToolBar
Width = 915
ExplicitWidth = 915
end
end
end
object pagFormacion: TTabSheet
Caption = 'Formaci'#243'n'
ImageIndex = 2
ExplicitHeight = 573
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 662
Height = 447
Width = 915
Height = 454
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitHeight = 573
object eFormacionBasica: TcxDBMemo
Left = 22
Top = 30
@ -334,7 +325,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
end
object eFormacionComplementaria: TcxDBMemo
Left = 22
Top = 174
Top = 176
DataBinding.DataField = 'FORMACION_COMPLE'
DataBinding.DataSource = frViewEmpleado1.dsContacto
Properties.ScrollBars = ssVertical
@ -355,7 +346,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
end
object eFormacionRecibida: TcxDBMemo
Left = 22
Top = 318
Top = 322
DataBinding.DataField = 'FORMACION_RECIBIDA'
DataBinding.DataSource = frViewEmpleado1.dsContacto
Properties.ScrollBars = ssVertical
@ -418,16 +409,18 @@ inherited fEditorEmpleado: TfEditorEmpleado
object pagExperiencia: TTabSheet
Caption = 'Experiencia'
ImageIndex = 3
ExplicitHeight = 573
object dxLayoutControl2: TdxLayoutControl
Left = 0
Top = 0
Width = 662
Height = 447
Width = 915
Height = 454
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitHeight = 573
object eExperiencia: TcxDBMemo
Left = 22
Top = 30
@ -471,10 +464,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
end
end
inherited StatusBar: TJvStatusBar
Top = 557
Width = 676
ExplicitTop = 557
ExplicitWidth = 676
Top = 564
Width = 929
ExplicitTop = 683
ExplicitWidth = 929
end
inherited EditorActionList: TActionList
object actGruposEmpleado: TAction

2
Source/Modulos/Contactos/Views/uEditorEmpleado.pas
View File

@ -12,7 +12,7 @@ uses
uIEditorEmpleado, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls,
uDAInterfaces;
uDAInterfaces, uViewContactoListaDatosBancarios;
type
TfEditorEmpleado = class(TfEditorContacto, IEditorEmpleado)

217
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -1,16 +1,17 @@
inherited fEditorProveedor: TfEditorProveedor
Caption = 'fEditorProveedor'
ClientHeight = 590
ClientWidth = 648
ExplicitWidth = 656
ExplicitHeight = 617
ClientHeight = 552
ClientWidth = 839
ExplicitTop = -15
ExplicitWidth = 847
ExplicitHeight = 579
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 648
ExplicitWidth = 648
Width = 839
ExplicitWidth = 839
inherited Image1: TImage
Left = 621
Left = 812
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -46,28 +47,28 @@ inherited fEditorProveedor: TfEditorProveedor
end
end
inherited TBXDock: TTBXDock
Width = 648
ExplicitWidth = 648
Width = 839
ExplicitWidth = 839
inherited tbxMain: TTBXToolbar
ExplicitWidth = 330
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 648
ExplicitWidth = 839
end
end
inherited pgPaginas: TPageControl
Width = 642
Height = 489
ExplicitWidth = 642
ExplicitHeight = 489
Width = 833
Height = 451
ExplicitWidth = 833
ExplicitHeight = 564
inherited pagGeneral: TTabSheet
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitWidth = 825
ExplicitHeight = 536
inline frViewProveedor1: TfrViewProveedor
Left = 0
Top = 0
Width = 634
Height = 461
Width = 825
Height = 423
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -77,37 +78,37 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitWidth = 825
ExplicitHeight = 536
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 634
Height = 461
Width = 825
Height = 423
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitWidth = 825
ExplicitHeight = 536
inherited PngSpeedButton1: TPngSpeedButton
Left = 589
Left = 764
Top = 218
ExplicitLeft = 589
ExplicitLeft = 764
ExplicitTop = 218
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 589
Left = 764
Top = 190
ExplicitLeft = 589
ExplicitLeft = 764
ExplicitTop = 190
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 589
Left = 764
Top = 162
ExplicitLeft = 589
ExplicitLeft = 764
ExplicitTop = 162
end
inherited Label1: TLabel
Left = 390
Left = 495
Top = 297
Width = 342
ExplicitLeft = 390
ExplicitLeft = 495
ExplicitTop = 297
ExplicitWidth = 342
end
@ -130,9 +131,9 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 108
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 297
Left = 402
Top = 294
ExplicitLeft = 297
ExplicitLeft = 402
ExplicitTop = 294
end
inherited eObservaciones: TcxDBMemo
@ -144,9 +145,9 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 580
end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 390
Left = 495
Top = 270
ExplicitLeft = 390
ExplicitLeft = 495
ExplicitTop = 270
ExplicitWidth = 310
Width = 310
@ -182,33 +183,33 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 221
end
inherited eTlfParticular: TcxDBTextEdit
Left = 485
Left = 590
Top = 57
ExplicitLeft = 485
ExplicitLeft = 590
ExplicitTop = 57
ExplicitWidth = 172
Width = 172
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 485
Left = 590
Top = 30
ExplicitLeft = 485
ExplicitLeft = 590
ExplicitTop = 30
ExplicitWidth = 172
Width = 172
end
inherited eTlfMovil: TcxDBTextEdit
Left = 485
Left = 590
Top = 84
ExplicitLeft = 485
ExplicitLeft = 590
ExplicitTop = 84
ExplicitWidth = 172
Width = 172
end
inherited eFax: TcxDBTextEdit
Left = 485
Left = 590
Top = 111
ExplicitLeft = 485
ExplicitLeft = 590
ExplicitTop = 111
ExplicitWidth = 172
Width = 172
@ -220,35 +221,35 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 263
end
inherited eNIFCIF: TcxDBTextEdit
Left = 213
Left = 256
Top = 30
ExplicitLeft = 213
ExplicitLeft = 256
ExplicitTop = 30
ExplicitWidth = 254
Width = 254
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 485
Left = 590
Top = 162
Properties.Prefix = 'mailto:'
ExplicitLeft = 485
ExplicitLeft = 590
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 485
Left = 590
Top = 190
Properties.Prefix = 'mailto:'
ExplicitLeft = 485
ExplicitLeft = 590
ExplicitTop = 190
ExplicitWidth = 165
Width = 165
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 485
Left = 590
Top = 217
ExplicitLeft = 485
ExplicitLeft = 590
ExplicitTop = 217
ExplicitWidth = 165
Width = 165
@ -269,45 +270,34 @@ inherited fEditorProveedor: TfEditorProveedor
end
end
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 634
ExplicitHeight = 461
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 634
Height = 461
ExplicitWidth = 634
ExplicitHeight = 461
inherited dxLayoutControl1: TdxLayoutControl
Width = 634
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 323
ExplicitLeft = 323
ExplicitWidth = 270
Width = 270
end
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 242
Width = 242
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 363
Width = 363
end
ExplicitWidth = 825
ExplicitHeight = 536
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
Width = 825
Height = 423
ExplicitTop = 0
ExplicitWidth = 825
ExplicitHeight = 536
inherited cxGrid: TcxGrid
Width = 825
Height = 398
ExplicitWidth = 825
ExplicitHeight = 511
end
inherited ToolBar1: TToolBar
Width = 825
ExplicitWidth = 825
end
end
end
object pagDatosComerciales: TTabSheet
Caption = 'Datos comerciales'
ImageIndex = 2
ExplicitHeight = 536
inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
Left = 0
Top = 0
Width = 634
Width = 825
Height = 121
Align = alTop
Font.Charset = DEFAULT_CHARSET
@ -318,17 +308,17 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 634
ExplicitWidth = 825
ExplicitHeight = 121
inherited dxLayoutControl1: TdxLayoutControl
Width = 634
Width = 825
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634
ExplicitWidth = 825
inherited Label1: TLabel
Left = 412
Left = 533
Top = 30
Width = 190
ExplicitLeft = 412
ExplicitLeft = 533
ExplicitTop = 30
ExplicitWidth = 190
end
@ -345,9 +335,9 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 121
end
inherited bFormasPago: TButton
Left = 252
Left = 373
Top = 57
ExplicitLeft = 252
ExplicitLeft = 373
ExplicitTop = 57
end
inherited eIVA: TcxDBLookupComboBox
@ -357,15 +347,15 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 121
end
inherited bTiposIVA: TButton
Left = 252
Left = 373
Top = 84
ExplicitLeft = 252
ExplicitLeft = 373
ExplicitTop = 84
end
inherited eDescuento: TcxDBSpinEdit
Left = 456
Left = 577
Top = 62
ExplicitLeft = 456
ExplicitLeft = 577
ExplicitTop = 62
ExplicitWidth = 73
Width = 73
@ -376,11 +366,12 @@ inherited fEditorProveedor: TfEditorProveedor
object pagDirecciones: TTabSheet
Caption = 'Direcciones'
ImageIndex = 3
ExplicitHeight = 536
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0
Top = 0
Width = 634
Height = 461
Width = 825
Height = 423
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -390,26 +381,38 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitWidth = 825
ExplicitHeight = 536
inherited cxGrid: TcxGrid
Width = 634
Height = 436
ExplicitWidth = 634
ExplicitHeight = 436
Width = 825
Height = 398
ExplicitWidth = 825
ExplicitHeight = 511
end
inherited ToolBar1: TToolBar
Width = 634
ExplicitWidth = 634
Width = 825
ExplicitWidth = 825
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end
end
inherited StatusBar: TJvStatusBar
Top = 571
Width = 648
ExplicitTop = 571
ExplicitWidth = 648
Top = 533
Width = 839
ExplicitTop = 646
ExplicitWidth = 839
end
inherited EditorActionList: TActionList
Left = 32

2
Source/Modulos/Contactos/Views/uEditorProveedor.pas
View File

@ -14,7 +14,7 @@ uses
cxSpinEdit, cxDBEdit, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
uDAInterfaces;
uDAInterfaces, uViewContactoListaDatosBancarios;
type
TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)

76
Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.dfm Normal file
View File

@ -0,0 +1,76 @@
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
OnCellDblClick = cxGridViewCellDblClick
OptionsData.Appending = False
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsData.Inserting = False
inherited cxGridViewID: TcxGridDBColumn
VisibleForCustomization = False
end
object cxGridViewTITULAR: TcxGridDBColumn
DataBinding.FieldName = 'TITULAR'
PropertiesClassName = 'TcxTextEditProperties'
Width = 80
end
object cxGridViewENTIDAD: TcxGridDBColumn
DataBinding.FieldName = 'ENTIDAD'
PropertiesClassName = 'TcxTextEditProperties'
BestFitMaxWidth = 45
Width = 45
end
object cxGridViewSUCURSAL: TcxGridDBColumn
DataBinding.FieldName = 'SUCURSAL'
PropertiesClassName = 'TcxTextEditProperties'
BestFitMaxWidth = 45
Width = 45
end
object cxGridViewDC: TcxGridDBColumn
DataBinding.FieldName = 'DC'
PropertiesClassName = 'TcxTextEditProperties'
BestFitMaxWidth = 30
Width = 30
end
object cxGridViewCUENTA: TcxGridDBColumn
DataBinding.FieldName = 'CUENTA'
PropertiesClassName = 'TcxTextEditProperties'
Width = 80
end
end
end
inherited ToolBar1: TToolBar
inherited ToolButton1: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 74
end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 67
end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 117
end
end
inherited dsDetalles: TDADataSource
DataSet = tbl_Contactos.Dataset
DataTable = DataModuleContactos.tbl_Contactos
end
end

76
Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.pas Normal file
View File

@ -0,0 +1,76 @@
unit uViewContactoListaDatosBancarios;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList,
uDAInterfaces, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, cxTextEdit;
type
IViewListaDatosBancarios = interface(IViewDetallesGenerico)
['{E6489FBE-C472-494A-AA04-7B63B3262521}']
end;
TfrViewListaDatosBancarios = class(TfrViewDetallesGenerico, IViewListaDatosBancarios)
cxGridViewTITULAR: TcxGridDBColumn;
cxGridViewENTIDAD: TcxGridDBColumn;
cxGridViewSUCURSAL: TcxGridDBColumn;
cxGridViewDC: TcxGridDBColumn;
cxGridViewCUENTA: TcxGridDBColumn;
procedure cxGridViewCellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure actEliminarExecute(Sender: TObject);
protected
procedure AnadirInterno; override;
procedure ModificarInterno; override;
end;
implementation
uses
uDataModuleContactos, uBizContactosDatosBancarios,
uDatosBancariosContactoController, uDialogUtils;
{$R *.dfm}
{ TfrViewListaDatosBancarios }
procedure TfrViewListaDatosBancarios.actEliminarExecute(Sender: TObject);
begin
if (ShowConfirmMessage('Eliminar una cuenta bancaria', '¿Desea eliminar esta cuenta bancaria?') = IDYES) then
inherited;
end;
procedure TfrViewListaDatosBancarios.AnadirInterno;
begin
inherited;
try
with TDatosBancariosContactoController.Create do
Ver((dsDetalles.DataTable) as IBizContactosDatosBancarios);
finally
if (dsDetalles.DataTable.State in dsEditModes) then
dsDetalles.DataTable.Post;
end;
end;
procedure TfrViewListaDatosBancarios.cxGridViewCellDblClick(
Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
inherited;
actModificar.Execute;
end;
procedure TfrViewListaDatosBancarios.ModificarInterno;
begin
inherited;
with TDatosBancariosContactoController.Create do
Ver((dsDetalles.DataTable) as IBizContactosDatosBancarios);
end;
end.