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= LegalTrademarks=
OriginalFilename= OriginalFilename=
ProductName= ProductName=
ProductVersion= ProductVersion=1.0.0.0
Comments= Comments=
CompileDate= CompileDate=domingo, 10 de febrero de 2008 12:11
]]> ]]>
</Property> </Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property> <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>

100
Source/Base/Base.dproj
View File

@ -53,57 +53,57 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </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="..\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"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <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', uFichasEmpleadoReportController in 'uFichasEmpleadoReportController.pas',
uIEditorFichasEmpleadoPreview in 'View\uIEditorFichasEmpleadoPreview.pas', uIEditorFichasEmpleadoPreview in 'View\uIEditorFichasEmpleadoPreview.pas',
uEtiquetasContactosReportController in 'uEtiquetasContactosReportController.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. end.

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

@ -43,6 +43,33 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <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> <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\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\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> <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"> <DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </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="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" /> <DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDatosBancariosContactoController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" /> <DCCReference Include="uDireccionesContactoController.pas" />
<DCCReference Include="uEmpleadosController.pas" /> <DCCReference Include="uEmpleadosController.pas" />
<DCCReference Include="uEtiquetasContactosReportController.pas" /> <DCCReference Include="uEtiquetasContactosReportController.pas" />
@ -70,10 +91,17 @@
<DCCReference Include="uGruposEmpleadoController.pas" /> <DCCReference Include="uGruposEmpleadoController.pas" />
<DCCReference Include="uGruposProveedorController.pas" /> <DCCReference Include="uGruposProveedorController.pas" />
<DCCReference Include="uProveedoresController.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\uIEditorCliente.pas" />
<DCCReference Include="View\uIEditorClientes.pas" /> <DCCReference Include="View\uIEditorClientes.pas" />
<DCCReference Include="View\uIEditorContacto.pas" /> <DCCReference Include="View\uIEditorContacto.pas" />
<DCCReference Include="View\uIEditorContactos.pas" /> <DCCReference Include="View\uIEditorContactos.pas" />
<DCCReference Include="View\uIEditorDatoBancarioContacto.pas" />
<DCCReference Include="View\uIEditorDireccionContacto.pas" /> <DCCReference Include="View\uIEditorDireccionContacto.pas" />
<DCCReference Include="View\uIEditorElegirClientes.pas" /> <DCCReference Include="View\uIEditorElegirClientes.pas" />
<DCCReference Include="View\uIEditorElegirContactos.pas" /> <DCCReference Include="View\uIEditorElegirContactos.pas" />
@ -88,12 +116,13 @@
<DCCReference Include="View\uIEditorGruposProveedor.pas" /> <DCCReference Include="View\uIEditorGruposProveedor.pas" />
<DCCReference Include="View\uIEditorProveedor.pas" /> <DCCReference Include="View\uIEditorProveedor.pas" />
<DCCReference Include="View\uIEditorProveedores.pas" /> <DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\vcl.dcp" />
<None Include="ModelSupport_Contactos_controller\default.txaPackage" /> <None Include="ModelSupport_Contactos_controller\default.txaPackage" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=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 uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos; uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
uControllerBase;
type type
IContactosController = interface IContactosController = interface(IControllerBase)
['{43F9A4ED-6563-4F95-9A56-330CF9C66731}'] ['{43F9A4ED-6563-4F95-9A56-330CF9C66731}']
function Buscar(const ID: Integer): IBizContacto; function Buscar(const ID: Integer): IBizContacto;
function BuscarTodos: IBizContacto; function BuscarTodos: IBizContacto;
@ -29,7 +30,7 @@ type
function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto; function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
end; end;
TContactosController = class(TInterfacedObject, IContactosController) TContactosController = class(TControllerBase, IContactosController)
protected protected
FDataModule : IDataModuleContactos; FDataModule : IDataModuleContactos;
procedure FiltrarEmpresa(AContacto : IBizContacto); virtual; 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 uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizDireccionesContacto, uIDataModuleContactos; uBizContactos, uBizDireccionesContacto, uIDataModuleContactos,
uControllerBase;
type type
IDireccionesContactoController = interface IDireccionesContactoController = interface(IControllerBase)
['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}'] ['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}']
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True); procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
procedure Ver(ADireccion : IBizDireccionesContacto); procedure Ver(ADireccion : IBizDireccionesContacto);
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean; function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
end; end;
TDireccionesContactoController = class(TInterfacedObject, IDireccionesContactoController) TDireccionesContactoController = class(TControllerBase, IDireccionesContactoController)
private private
FDataModule : IDataModuleContactos; FDataModule : IDataModuleContactos;
public public

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

@ -7,13 +7,13 @@ uses
uEmpleadosController; uEmpleadosController;
type type
IEtiquetasContactosReportController = interface IEtiquetasContactosReportController = interface(IControllerBase)
['{76BB35E3-554E-4D30-8D3E-54E488EF82E2}'] ['{76BB35E3-554E-4D30-8D3E-54E488EF82E2}']
procedure Preview(const AContactosID : String); procedure Preview(const AContactosID : String);
procedure Print(const AContactosID : String); procedure Print(const AContactosID : String);
end; end;
TEtiquetasContactosReportController = class(TInterfacedObject, IEtiquetasContactosReportController) TEtiquetasContactosReportController = class(TControllerBase, IEtiquetasContactosReportController)
private private
FDataModule : IDataModuleEtiquetasContactosReport; FDataModule : IDataModuleEtiquetasContactosReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; 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; uEmpleadosController;
type type
IFichasEmpleadoReportController = interface IFichasEmpleadoReportController = interface(IControllerBase)
['{8E43F55F-7D5A-4778-8523-7C105EAEB1AB}'] ['{8E43F55F-7D5A-4778-8523-7C105EAEB1AB}']
procedure Preview(const AFichaID : String); procedure Preview(const AFichaID : String);
procedure Print(const AFichaID : String); procedure Print(const AFichaID : String);
end; end;
TFichasEmpleadoReportController = class(TInterfacedObject, IFichasEmpleadoReportController) TFichasEmpleadoReportController = class(TControllerBase, IFichasEmpleadoReportController)
private private
FDataModule : IDataModuleFichasEmpleadoReport; FDataModule : IDataModuleFichasEmpleadoReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; 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; uIDataModuleClientes, uBizGruposCliente;
type type
IGruposClienteController = interface(IObservador) IGruposClienteController = interface(IControllerBase)
['{32D31B02-76A6-4C9B-85D4-3C632969AC79}'] ['{32D31B02-76A6-4C9B-85D4-3C632969AC79}']
function BuscarTodos: IBizGrupoCliente; function BuscarTodos: IBizGrupoCliente;
procedure VerTodos(AGruposCliente: IBizGrupoCliente); procedure VerTodos(AGruposCliente: IBizGrupoCliente);
@ -20,7 +20,7 @@ type
function DarListaGruposCliente: TStringList; function DarListaGruposCliente: TStringList;
end; end;
TGruposClienteController = class(TObservador, IGruposClienteController) TGruposClienteController = class(TControllerBase, IGruposClienteController)
protected protected
FDataModule : IDataModuleClientes; FDataModule : IDataModuleClientes;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;

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

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

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

@ -8,7 +8,7 @@ uses
uIDataModuleProveedores, uBizGruposProveedor; uIDataModuleProveedores, uBizGruposProveedor;
type type
IGruposProveedorController = interface(IObservador) IGruposProveedorController = interface(IControllerBase)
['{20B27FB1-ECEA-40B6-9869-5F5EC700EEDD}'] ['{20B27FB1-ECEA-40B6-9869-5F5EC700EEDD}']
function BuscarTodos: IBizGrupoProveedor; function BuscarTodos: IBizGrupoProveedor;
procedure VerTodos(AGruposProveedor: IBizGrupoProveedor); procedure VerTodos(AGruposProveedor: IBizGrupoProveedor);
@ -20,7 +20,7 @@ type
function DarListaGruposProveedor: TStringList; function DarListaGruposProveedor: TStringList;
end; end;
TGruposProveedorController = class(TObservador, IGruposProveedorController) TGruposProveedorController = class(TControllerBase, IGruposProveedorController)
protected protected
FDataModule : IDataModuleProveedores; FDataModule : IDataModuleProveedores;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; 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] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Contactos' LogicalName = 'Contactos'
IndexDefs = <>
Left = 176 Left = 176
Top = 16 Top = 16
end end
@ -314,6 +315,7 @@ inherited DataModuleContactos: TDataModuleContactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DireccionesContacto' LogicalName = 'DireccionesContacto'
IndexDefs = <>
Left = 448 Left = 448
Top = 16 Top = 16
end end
@ -330,6 +332,7 @@ inherited DataModuleContactos: TDataModuleContactos
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID' GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
ServerAutoRefresh = True
DictionaryEntry = 'DatosBancarios_ID' DictionaryEntry = 'DatosBancarios_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -349,28 +352,28 @@ inherited DataModuleContactos: TDataModuleContactos
Name = 'ENTIDAD' Name = 'ENTIDAD'
DataType = datString DataType = datString
Size = 15 Size = 15
DisplayLabel = 'C'#195#179'digo de entidad' DisplayLabel = 'C'#243'digo de entidad'
DictionaryEntry = 'DatosBancarios_ENTIDAD' DictionaryEntry = 'DatosBancarios_ENTIDAD'
end end
item item
Name = 'SUCURSAL' Name = 'SUCURSAL'
DataType = datString DataType = datString
Size = 15 Size = 15
DisplayLabel = 'C'#195#179'digo de sucursal' DisplayLabel = 'C'#243'digo de sucursal'
DictionaryEntry = 'DatosBancarios_SUCURSAL' DictionaryEntry = 'DatosBancarios_SUCURSAL'
end end
item item
Name = 'DC' Name = 'DC'
DataType = datString DataType = datString
Size = 15 Size = 15
DisplayLabel = 'D'#195#173'gito de control' DisplayLabel = 'D'#237'gito de control'
DictionaryEntry = 'DatosBancarios_DC' DictionaryEntry = 'DatosBancarios_DC'
end end
item item
Name = 'CUENTA' Name = 'CUENTA'
DataType = datString DataType = datString
Size = 15 Size = 15
DisplayLabel = 'C'#195#179'digo de cuenta' DisplayLabel = 'C'#243'digo de cuenta'
DictionaryEntry = 'DatosBancarios_CUENTA' DictionaryEntry = 'DatosBancarios_CUENTA'
end end
item item
@ -392,6 +395,7 @@ inherited DataModuleContactos: TDataModuleContactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DatosBancarios' LogicalName = 'DatosBancarios'
IndexDefs = <>
Left = 176 Left = 176
Top = 168 Top = 168
end end

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

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

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

@ -36,7 +36,27 @@ requires
TiposIVA_controller, TiposIVA_controller,
Contactos_model, Contactos_model,
Contactos_controller, 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 contains
uContactosViewRegister in 'uContactosViewRegister.pas', uContactosViewRegister in 'uContactosViewRegister.pas',
@ -53,6 +73,7 @@ contains
uViewEmpleados in 'uViewEmpleados.pas' {frViewEmpleados: TCustomView}, uViewEmpleados in 'uViewEmpleados.pas' {frViewEmpleados: TCustomView},
uEditorProveedores in 'uEditorProveedores.pas' {fEditorProveedores: TCustomEditor}, uEditorProveedores in 'uEditorProveedores.pas' {fEditorProveedores: TCustomEditor},
uViewProveedor in 'uViewProveedor.pas' {frViewProveedor: TCustomView}, uViewProveedor in 'uViewProveedor.pas' {frViewProveedor: TCustomView},
uViewContactoListaDatosBancarios in 'uViewContactoListaDatosBancarios.pas' {frViewListaDatosBancarios: TFrame},
uViewEmpleado in 'uViewEmpleado.pas' {frViewEmpleado: TCustomView}, uViewEmpleado in 'uViewEmpleado.pas' {frViewEmpleado: TCustomView},
uEditorProveedor in 'uEditorProveedor.pas' {fEditorProveedor: TCustomEditor}, uEditorProveedor in 'uEditorProveedor.pas' {fEditorProveedor: TCustomEditor},
uEditorElegirClientes in 'uEditorElegirClientes.pas' {fEditorElegirClientes: TCustomEditor}, uEditorElegirClientes in 'uEditorElegirClientes.pas' {fEditorElegirClientes: TCustomEditor},
@ -60,7 +81,7 @@ contains
uEditorElegirProveedores in 'uEditorElegirProveedores.pas' {fEditorElegirProveedores: TCustomEditor}, uEditorElegirProveedores in 'uEditorElegirProveedores.pas' {fEditorElegirProveedores: TCustomEditor},
uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame}, uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame},
uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame}, uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame},
uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion}, uEditorDatoBancario in 'uEditorDatoBancario.pas' {fEditorDatoBancario},
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega}, uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega},
uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame}, uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame},
uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame}, uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame},
@ -71,6 +92,7 @@ contains
uEditorGruposProveedor in 'uEditorGruposProveedor.pas' {fEditorGruposProveedor: TCustomEditor}, uEditorGruposProveedor in 'uEditorGruposProveedor.pas' {fEditorGruposProveedor: TCustomEditor},
uEditorGruposEmpleado in 'uEditorGruposEmpleado.pas' {fEditorGruposEmpleado: TCustomEditor}, uEditorGruposEmpleado in 'uEditorGruposEmpleado.pas' {fEditorGruposEmpleado: TCustomEditor},
uEditorFichasEmpleadoReport in 'uEditorFichasEmpleadoReport.pas' {fEditorFichasEmpleadoReport: 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. end.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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