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

Ticket #118 -> En un albarán, poder elegir entre las direcciones del cliente y sus personas de contacto.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@602 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-09-19 18:13:32 +00:00
parent eb023fc716
commit 99d7e85d65
27 changed files with 1487 additions and 455 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Database/scripts/factuges.sql
View File

@ -263,6 +263,7 @@ CREATE TABLE ALBARANES_CLIENTE (
ID_FACTURA TIPO_ID,
TIPO VARCHAR(1),
REFERENCIA VARCHAR(255),
ID_DIRECCION TIPO_ID,
CALLE VARCHAR(255),
CODIGO_POSTAL VARCHAR(10),
POBLACION VARCHAR(255),
@ -1317,6 +1318,7 @@ CREATE VIEW V_ALBARANES_CLIENTE(
REF_PEDIDO,
ID_FACTURA,
REF_FACTURA,
ID_DIRECCION,
CALLE,
CODIGO_POSTAL,
POBLACION,
@ -1358,6 +1360,7 @@ SELECT
PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO,
ALBARANES_CLIENTE.ID_FACTURA,
FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA,
ALBARANES_CLIENTE.ID_DIRECCION,
ALBARANES_CLIENTE.CALLE,
ALBARANES_CLIENTE.CODIGO_POSTAL,
ALBARANES_CLIENTE.POBLACION,

24
Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_USUARIOS = '{2287F1C0-E6D4-49D4-AB4C-12163784F52F}';
RID_USUARIOS_EVENTOS = '{30A9A653-7C94-4C9E-9826-57923A79A57B}';
RID_USUARIOS_LOGON = '{6663D7AD-00A8-471A-9DD6-0A354F14D25B}';
RID_PERMISOS = '{271B422A-6E39-420F-85DE-835F1D690B83}';
RID_PERMISOSEX = '{603236F6-99D3-4AD9-8B2B-FE07776B6E4F}';
RID_PERFILES = '{59A02969-8C95-4F46-BE34-51B288BCF8C9}';
RID_USUARIOS = '{9341804B-BBFF-4F3F-8BD4-A29AF93F9C1D}';
RID_USUARIOS_EVENTOS = '{FB1040E9-41A7-42B2-A8F5-23B08BAB3A83}';
RID_USUARIOS_LOGON = '{EF97ED84-824F-4463-9085-E4D4DC59FF5B}';
RID_PERMISOS = '{78F02061-1646-47FB-83AC-895F7885BADB}';
RID_PERMISOSEX = '{2AD42BE2-4190-4361-AD0D-4179A940DEFB}';
RID_PERFILES = '{790489AB-2711-41CE-B9EE-E1EC9FCBBEE3}';
{ Data table names }
nme_USUARIOS = 'USUARIOS';
@ -129,7 +129,7 @@ const
type
{ IUSUARIOS }
IUSUARIOS = interface(IDAStronglyTypedDataTable)
['{2813C411-0CBD-437C-83F3-857491E279DC}']
['{75EA3262-FA70-4578-863B-B5CE05706F7E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -296,7 +296,7 @@ type
{ IUSUARIOS_EVENTOS }
IUSUARIOS_EVENTOS = interface(IDAStronglyTypedDataTable)
['{EB6F65EF-39D6-4820-9797-B25FD4C792B3}']
['{43AFA2E9-922F-47C9-B5F6-2884480327EF}']
{ Property getters and setters }
function GetAPLICACIONValue: String;
procedure SetAPLICACIONValue(const aValue: String);
@ -427,7 +427,7 @@ type
{ IUSUARIOS_LOGON }
IUSUARIOS_LOGON = interface(IDAStronglyTypedDataTable)
['{F1859EC8-B46A-4505-A1D0-FC3502A3CCC5}']
['{ABEE65F6-567E-48E5-97A1-5FF61E3C6561}']
{ Property getters and setters }
function GetLOGONIDValue: String;
procedure SetLOGONIDValue(const aValue: String);
@ -510,7 +510,7 @@ type
{ IPERMISOS }
IPERMISOS = interface(IDAStronglyTypedDataTable)
['{290DD780-7C7C-4A2E-891E-3A29A6505859}']
['{FE6E0A5F-2FAB-494E-90F4-726F4B507144}']
{ Property getters and setters }
function GetID_USUARIOValue: Integer;
procedure SetID_USUARIOValue(const aValue: Integer);
@ -581,7 +581,7 @@ type
{ IPERMISOSEX }
IPERMISOSEX = interface(IDAStronglyTypedDataTable)
['{8F86DA9F-7DF3-4B17-84F5-0876E21F625D}']
['{8110E447-D763-4496-870E-BBCEB378C4CE}']
{ Property getters and setters }
function GetID_USUARIOValue: Integer;
procedure SetID_USUARIOValue(const aValue: Integer);
@ -664,7 +664,7 @@ type
{ IPERFILES }
IPERFILES = interface(IDAStronglyTypedDataTable)
['{A7B5EBFD-F995-4F8D-8723-7397501F897D}']
['{95916150-C565-4807-8A4E-35760EC58AE5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

24
Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_USUARIOSDelta = '{4AA9CBE4-007A-4CAD-844C-05539CD289CA}';
RID_USUARIOS_EVENTOSDelta = '{0918F32D-4334-419F-9936-186CC23BC165}';
RID_USUARIOS_LOGONDelta = '{15D6AADF-D24A-4BAE-96D5-2A26AD60E3DA}';
RID_PERMISOSDelta = '{CE343111-2CF7-4C07-A7C5-CB72513E533C}';
RID_PERMISOSEXDelta = '{99649DB7-B027-45F5-A665-76B477807E8D}';
RID_PERFILESDelta = '{A09AC663-B18E-4894-B84C-9FEA6C000A44}';
RID_USUARIOSDelta = '{B2CDE2B6-AEA1-4FA3-915F-D16D39393C56}';
RID_USUARIOS_EVENTOSDelta = '{A9C5CC49-68FB-44C9-82E1-E91B7635E443}';
RID_USUARIOS_LOGONDelta = '{94752363-8D31-4796-A289-07D791FC4A04}';
RID_PERMISOSDelta = '{0C3EFDD0-E026-41A9-8411-F879524DC1F6}';
RID_PERMISOSEXDelta = '{02B025FC-0CFE-41D3-93CF-65E9659AB816}';
RID_PERFILESDelta = '{00782C74-631D-4032-8177-FBA0607AA4DD}';
type
{ IUSUARIOSDelta }
IUSUARIOSDelta = interface(IUSUARIOS)
['{4AA9CBE4-007A-4CAD-844C-05539CD289CA}']
['{B2CDE2B6-AEA1-4FA3-915F-D16D39393C56}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldUSERNAMEValue : String;
@ -185,7 +185,7 @@ type
{ IUSUARIOS_EVENTOSDelta }
IUSUARIOS_EVENTOSDelta = interface(IUSUARIOS_EVENTOS)
['{0918F32D-4334-419F-9936-186CC23BC165}']
['{A9C5CC49-68FB-44C9-82E1-E91B7635E443}']
{ Property getters and setters }
function GetOldAPLICACIONValue : String;
function GetOldID_USUARIOValue : Integer;
@ -316,7 +316,7 @@ type
{ IUSUARIOS_LOGONDelta }
IUSUARIOS_LOGONDelta = interface(IUSUARIOS_LOGON)
['{15D6AADF-D24A-4BAE-96D5-2A26AD60E3DA}']
['{94752363-8D31-4796-A289-07D791FC4A04}']
{ Property getters and setters }
function GetOldLOGONIDValue : String;
function GetOldID_USUARIOValue : Integer;
@ -398,7 +398,7 @@ type
{ IPERMISOSDelta }
IPERMISOSDelta = interface(IPERMISOS)
['{CE343111-2CF7-4C07-A7C5-CB72513E533C}']
['{0C3EFDD0-E026-41A9-8411-F879524DC1F6}']
{ Property getters and setters }
function GetOldID_USUARIOValue : Integer;
function GetOldMODULOValue : String;
@ -468,7 +468,7 @@ type
{ IPERMISOSEXDelta }
IPERMISOSEXDelta = interface(IPERMISOSEX)
['{99649DB7-B027-45F5-A665-76B477807E8D}']
['{02B025FC-0CFE-41D3-93CF-65E9659AB816}']
{ Property getters and setters }
function GetOldID_USUARIOValue : Integer;
function GetOldMODULOValue : String;
@ -550,7 +550,7 @@ type
{ IPERFILESDelta }
IPERFILESDelta = interface(IPERFILES)
['{A09AC663-B18E-4894-B84C-9FEA6C000A44}']
['{00782C74-631D-4032-8177-FBA0607AA4DD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldUSERNAMEValue : String;

104
Source/Base/Base.dproj
View File

@ -44,8 +44,6 @@
<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="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -55,57 +53,57 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

4
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -45,6 +45,10 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_CLIENTE'
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString

6
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dproj
View File

@ -51,9 +51,9 @@
<DelphiCompile Include="AlbaranesCliente_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="Data\uIDataModuleAlbaranesCliente.pas" />
<DCCReference Include="Data\uIDataModuleAlbaranesClienteReport.pas" />
<DCCReference Include="schAlbaranesClienteClient_Intf.pas" />

115
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_AlbaranesCliente = '{C4ACA983-2E79-43A3-A993-241191F525D6}';
RID_AlbaranesCliente_Detalles = '{7B5B9AEF-8781-448C-A9BC-13D967D43796}';
RID_AlbaranesCliente = '{9F51E545-F835-4C02-BB62-FE25951D5FF2}';
RID_AlbaranesCliente_Detalles = '{C69D472D-E905-4CA1-A3FD-B3E477AB9807}';
{ Data table names }
nme_AlbaranesCliente = 'AlbaranesCliente';
@ -20,6 +20,7 @@ const
fld_AlbaranesClienteID = 'ID';
fld_AlbaranesClienteID_EMPRESA = 'ID_EMPRESA';
fld_AlbaranesClienteID_CLIENTE = 'ID_CLIENTE';
fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION';
fld_AlbaranesClienteNOMBRE = 'NOMBRE';
fld_AlbaranesClienteFECHA_ALBARAN = 'FECHA_ALBARAN';
fld_AlbaranesClienteREFERENCIA = 'REFERENCIA';
@ -61,42 +62,43 @@ const
idx_AlbaranesClienteID = 0;
idx_AlbaranesClienteID_EMPRESA = 1;
idx_AlbaranesClienteID_CLIENTE = 2;
idx_AlbaranesClienteNOMBRE = 3;
idx_AlbaranesClienteFECHA_ALBARAN = 4;
idx_AlbaranesClienteREFERENCIA = 5;
idx_AlbaranesClienteREFERENCIA_CLIENTE = 6;
idx_AlbaranesClienteTIPO = 7;
idx_AlbaranesClienteSITUACION = 8;
idx_AlbaranesClienteID_ALMACEN = 9;
idx_AlbaranesClienteNOMBRE_ALMACEN = 10;
idx_AlbaranesClienteID_PEDIDO = 11;
idx_AlbaranesClienteREF_PEDIDO = 12;
idx_AlbaranesClienteID_FACTURA = 13;
idx_AlbaranesClienteREF_FACTURA = 14;
idx_AlbaranesClienteCALLE = 15;
idx_AlbaranesClienteCODIGO_POSTAL = 16;
idx_AlbaranesClientePOBLACION = 17;
idx_AlbaranesClientePROVINCIA = 18;
idx_AlbaranesClientePERSONA_CONTACTO = 19;
idx_AlbaranesClienteTELEFONO = 20;
idx_AlbaranesClienteIMPORTE_NETO = 21;
idx_AlbaranesClienteIMPORTE_PORTE = 22;
idx_AlbaranesClienteDESCUENTO = 23;
idx_AlbaranesClienteIMPORTE_DESCUENTO = 24;
idx_AlbaranesClienteBASE_IMPONIBLE = 25;
idx_AlbaranesClienteIVA = 26;
idx_AlbaranesClienteIMPORTE_IVA = 27;
idx_AlbaranesClienteIMPORTE_TOTAL = 28;
idx_AlbaranesClienteOBSERVACIONES = 29;
idx_AlbaranesClienteINCIDENCIAS = 30;
idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 31;
idx_AlbaranesClienteFECHA_ALTA = 32;
idx_AlbaranesClienteFECHA_MODIFICACION = 33;
idx_AlbaranesClienteUSUARIO = 34;
idx_AlbaranesClienteID_FORMA_PAGO = 35;
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 36;
idx_AlbaranesClienteFECHA_ENVIO = 37;
idx_AlbaranesClienteFECHA_RECEPCION = 38;
idx_AlbaranesClienteID_DIRECCION = 3;
idx_AlbaranesClienteNOMBRE = 4;
idx_AlbaranesClienteFECHA_ALBARAN = 5;
idx_AlbaranesClienteREFERENCIA = 6;
idx_AlbaranesClienteREFERENCIA_CLIENTE = 7;
idx_AlbaranesClienteTIPO = 8;
idx_AlbaranesClienteSITUACION = 9;
idx_AlbaranesClienteID_ALMACEN = 10;
idx_AlbaranesClienteNOMBRE_ALMACEN = 11;
idx_AlbaranesClienteID_PEDIDO = 12;
idx_AlbaranesClienteREF_PEDIDO = 13;
idx_AlbaranesClienteID_FACTURA = 14;
idx_AlbaranesClienteREF_FACTURA = 15;
idx_AlbaranesClienteCALLE = 16;
idx_AlbaranesClienteCODIGO_POSTAL = 17;
idx_AlbaranesClientePOBLACION = 18;
idx_AlbaranesClientePROVINCIA = 19;
idx_AlbaranesClientePERSONA_CONTACTO = 20;
idx_AlbaranesClienteTELEFONO = 21;
idx_AlbaranesClienteIMPORTE_NETO = 22;
idx_AlbaranesClienteIMPORTE_PORTE = 23;
idx_AlbaranesClienteDESCUENTO = 24;
idx_AlbaranesClienteIMPORTE_DESCUENTO = 25;
idx_AlbaranesClienteBASE_IMPONIBLE = 26;
idx_AlbaranesClienteIVA = 27;
idx_AlbaranesClienteIMPORTE_IVA = 28;
idx_AlbaranesClienteIMPORTE_TOTAL = 29;
idx_AlbaranesClienteOBSERVACIONES = 30;
idx_AlbaranesClienteINCIDENCIAS = 31;
idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 32;
idx_AlbaranesClienteFECHA_ALTA = 33;
idx_AlbaranesClienteFECHA_MODIFICACION = 34;
idx_AlbaranesClienteUSUARIO = 35;
idx_AlbaranesClienteID_FORMA_PAGO = 36;
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 37;
idx_AlbaranesClienteFECHA_ENVIO = 38;
idx_AlbaranesClienteFECHA_RECEPCION = 39;
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
@ -137,7 +139,7 @@ const
type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{AF7FDCDE-1C18-4F3A-861D-EE8F29667409}']
['{B1F8F584-8F71-4CDE-B849-948102A4BD26}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -151,6 +153,10 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean;
procedure SetID_CLIENTEIsNull(const aValue: Boolean);
function GetID_DIRECCIONValue: Integer;
procedure SetID_DIRECCIONValue(const aValue: Integer);
function GetID_DIRECCIONIsNull: Boolean;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
@ -302,6 +308,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
@ -397,6 +405,10 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
@ -547,6 +559,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
@ -628,7 +642,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{80EB5D35-8AC0-4C15-A379-BE154FF2B8E2}']
['{B8DAC4EF-F5CD-4E41-A627-9AF6FEBD1F83}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -939,6 +953,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteID_CLIENTE].AsVariant := Null;
end;
function TAlbaranesClienteDataTableRules.GetID_DIRECCIONValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger;
end;
procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger := aValue;
end;
function TAlbaranesClienteDataTableRules.GetID_DIRECCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsVariant := Null;
end;
function TAlbaranesClienteDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_AlbaranesClienteNOMBRE].AsString;

51
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,17 +9,18 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_AlbaranesClienteDelta = '{D9971B77-2B74-450A-A0FB-9923C629A09B}';
RID_AlbaranesCliente_DetallesDelta = '{C5DD9D52-6097-4080-A97E-435B4D387C4E}';
RID_AlbaranesClienteDelta = '{2E0A5659-946F-468E-AB61-D5C549490842}';
RID_AlbaranesCliente_DetallesDelta = '{DD10B773-471A-4785-B22A-5C4925E89ADB}';
type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{D9971B77-2B74-450A-A0FB-9923C629A09B}']
['{2E0A5659-946F-468E-AB61-D5C549490842}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer;
function GetOldID_DIRECCIONValue : Integer;
function GetOldNOMBREValue : String;
function GetOldFECHA_ALBARANValue : DateTime;
function GetOldREFERENCIAValue : String;
@ -61,6 +62,7 @@ type
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
@ -126,6 +128,12 @@ type
function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
function GetOldID_DIRECCIONValue: Integer; virtual;
function GetOldID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
@ -354,6 +362,10 @@ type
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
@ -507,7 +519,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{C5DD9D52-6097-4080-A97E-435B4D387C4E}']
['{DD10B773-471A-4785-B22A-5C4925E89ADB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -848,6 +860,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CLIENTE] := Null;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION];
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := Null;
end;
function TAlbaranesClienteBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE];

12
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -67,12 +67,12 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'LBARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.' +
'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' +
'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.OBSERVACIONES,'#10' V_' +
'ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' V_CLIENTES.NIF_CIF, V_CLIENTE' +
'S.NOMBRE,'#10' V_CLIENTES.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLI' +
'ENTES.POBLACION,'#10' V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTA' +
'L'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_' +
'CLIENTES.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10'WHERE V_ALBARANES_' +
'CLIENTE.ID = :ID'#10
'ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.NIF_CIF, CONTACTOS.' +
'NOMBRE,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO, V_ALBARANES_CLIE' +
'NTE.CALLE, V_ALBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_CLIENTE.' +
'PROVINCIA, V_ALBARANES_CLIENTE.CODIGO_POSTAL'#10'FROM'#10' V_ALBARANES_' +
'CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_ALBARANES_C' +
'LIENTE.ID_CLIENTE)'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item

12
Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.dfm
View File

@ -22,12 +22,12 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente
'LBARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.' +
'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' +
'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.OBSERVACIONES,'#10' V_' +
'ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' V_CLIENTES.NIF_CIF, V_CLIENTE' +
'S.NOMBRE,'#10' V_CLIENTES.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLI' +
'ENTES.POBLACION,'#10' V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTA' +
'L'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN V_CLIENTES ON (V_CLIEN' +
'TES.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10'WHERE V_ALBARANES_CLIEN' +
'TE.ID = :ID'#10#10
'ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.NIF_CIF, CONTACTOS.' +
'NOMBRE,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO, V_ALBARANES_CLIE' +
'NTE.CALLE, V_ALBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_CLIENTE.' +
'PROVINCIA, V_ALBARANES_CLIENTE.CODIGO_POSTAL'#10'FROM'#10' V_ALBARANES_' +
'CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CL' +
'IENTE.ID_CLIENTE)'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'#10#10
StatementType = stSQL
ColumnMappings = <
item

85
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -177,6 +177,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'FECHA_RECEPCION'
TableField = 'FECHA_RECEPCION'
end
item
DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION'
end>
end>
Name = 'AlbaranesCliente'
@ -199,6 +203,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_CLIENTE'
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString
@ -726,21 +734,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
SQL =
'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
' FECHA_ALBARAN, TIPO, REFERENCIA,'#10' REFERENCIA_CLIENTE, ID_AL' +
'MACEN, ID_PEDIDO, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACI' +
'ON, PROVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, IMPORTE_NETO, I' +
'MPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE' +
', IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10' INCIDENC' +
'IAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10' ' +
'USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_ENVIO, '#10' ' +
' FECHA_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :' +
'FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID' +
'_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, ' +
':POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPO' +
'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :' +
'BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACION' +
'ES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA' +
'_MODIFICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_EN' +
'VIO, :FECHA_ENVIO, :FECHA_RECEPCION)'#10' '#10' '#10#10
'MACEN, ID_PEDIDO, ID_FACTURA, ID_DIRECCION,'#10' CALLE, CODIGO_P' +
'OSTAL, POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10' TELEFONO, IM' +
'PORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' B' +
'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 +
' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' +
'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' +
'_ENVIO, '#10' FECHA_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :' +
'ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :REFERENCIA' +
'_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_DIRECCION,'#10' ' +
' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CON' +
'TACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO' +
', :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, ' +
':IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCIDENCIAS, :INCIDENCIAS_' +
'ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :USUARIO, :ID_FO' +
'RMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION)' +
#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -801,6 +810,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'ID_FACTURA'
Value = ''
end
item
Name = 'ID_DIRECCION'
Value = ''
end
item
Name = 'CALLE'
Value = ''
@ -911,21 +924,21 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
' ID_CLIENTE = :ID_CLIENTE, '#10' FECHA_ALBARAN = :FECHA_ALBARAN,' +
#10' TIPO = :TIPO,'#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA' +
'_CLIENTE = :REFERENCIA_CLIENTE, '#10' ID_ALMACEN = :ID_ALMACEN,'#10' ' +
' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' CAL' +
'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION ' +
'= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO' +
' = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' IMPORTE_NE' +
'TO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DE' +
'SCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENT' +
'O, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' ' +
'IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' +
' '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDE' +
'NCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FEC' +
'HA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICA' +
'CION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' +
'GO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECH' +
'A_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION'#10 +
' WHERE'#10' (ID = :OLD_ID)'#10
' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ID_' +
'DIRECCION = :ID_DIRECCION,'#10' CALLE = :CALLE,'#10' CODIGO_POSTAL' +
' = :CODIGO_POSTAL, '#10' POBLACION = :POBLACION, '#10' PROVINCIA =' +
' :PROVINCIA, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' TEL' +
'EFONO = :TELEFONO, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPOR' +
'TE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMP' +
'ORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE' +
'_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ' +
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVACIONES = :OBSERVA' +
'CIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVA' +
'S = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FE' +
'CHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO,' +
' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO ' +
'= :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' F' +
'ECHA_RECEPCION = :FECHA_RECEPCION'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1163,7 +1176,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
FailureBehavior = fbRaiseException
end>
Version = 0
Left = 48
Left = 56
Top = 24
end
object bpAlbaranesCliente: TDABusinessProcessor
@ -1174,7 +1187,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
ReferencedDataset = 'AlbaranesCliente'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 200
Left = 224
Top = 24
end
object bpAlbaranesCliente_Detalles: TDABusinessProcessor
@ -1185,7 +1198,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
ReferencedDataset = 'AlbaranesCliente_Detalles'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 200
Left = 224
Top = 88
end
object DADataDictionary: TDADataDictionary
@ -1521,11 +1534,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datString
Size = 255
end>
Left = 48
Top = 136
Left = 56
Top = 144
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Left = 56
Top = 80
end
end

BIN
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
View File

Binary file not shown.

63
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -54,31 +54,40 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Articulos_view.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\frx11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\frxe11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\fs11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\adortl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_view.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\dxComnD11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\frx11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\fs11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Jcl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\JclVcl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\tb2k_d10.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vclx.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form>
@ -124,6 +133,10 @@
<Form>frViewAlbaranesDevCliente</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionClienteAlbaran.pas">
<Form>frViewDatosYSeleccionClienteAlbaran</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewDetallesAlbaranCliente.pas">
<Form>frViewDetallesAlbaranCliente</Form>
<DesignClass>TFrame</DesignClass>

101
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -172,10 +172,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
Left = 0
Top = 0
@ -217,80 +213,82 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited FontName: TJvFontComboBox
Left = 65
Top = 22
ExplicitLeft = 65
ExplicitTop = 22
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 210
Top = 22
ExplicitLeft = 210
ExplicitTop = 22
Left = 544
Top = 0
ExplicitLeft = 544
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 252
Top = 22
ExplicitLeft = 252
ExplicitTop = 22
Left = 586
Top = 0
ExplicitLeft = 586
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 269
Top = 22
ExplicitLeft = 269
ExplicitTop = 22
Left = 0
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 30
end
inherited ToolButton6: TToolButton
Left = 277
Top = 22
ExplicitLeft = 277
ExplicitTop = 22
Left = 0
Top = 30
ExplicitLeft = 0
ExplicitTop = 30
end
inherited ToolButton7: TToolButton
Left = 343
Top = 22
ExplicitLeft = 343
ExplicitTop = 22
Left = 66
Top = 30
ExplicitLeft = 66
ExplicitTop = 30
end
inherited ToolButton8: TToolButton
Left = 410
Top = 22
ExplicitLeft = 410
ExplicitTop = 22
Left = 133
Top = 30
ExplicitLeft = 133
ExplicitTop = 30
end
inherited ToolButton12: TToolButton
Left = 493
Top = 22
ExplicitLeft = 493
ExplicitTop = 22
Left = 216
Top = 30
ExplicitLeft = 216
ExplicitTop = 30
end
inherited ToolButton9: TToolButton
Left = 501
Top = 22
ExplicitLeft = 501
ExplicitTop = 22
Left = 224
Top = 30
ExplicitLeft = 224
ExplicitTop = 30
end
inherited ToolButton10: TToolButton
Left = 646
Top = 22
ExplicitLeft = 646
ExplicitTop = 22
Left = 369
Top = 30
ExplicitLeft = 369
ExplicitTop = 30
end
inherited ToolButton11: TToolButton
Left = 771
Top = 22
ExplicitLeft = 771
ExplicitTop = 22
Left = 494
Top = 30
ExplicitLeft = 494
ExplicitTop = 30
end
end
inherited cxGrid: TcxGrid
Top = 72
Top = 77
Width = 751
Height = 306
Height = 301
ExplicitTop = 77
ExplicitWidth = 751
ExplicitHeight = 301
end
inherited TBXDock1: TTBXDock
Top = 46
Top = 51
Width = 751
ExplicitTop = 51
ExplicitWidth = 751
@ -312,10 +310,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -574,7 +568,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitLeft = 93
ExplicitTop = 65
ExplicitWidth = 259
ExplicitHeight = 0
Width = 259
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup

3
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -348,10 +348,7 @@ begin
FController := Value;
if Assigned(FController) then
begin
ViewAlbaran.ViewClienteAlbaran.Controller := Controller.ClienteController;
frViewDetallesAlbaranCliente1.Controller := Controller.DetallesController;
end;
end;
procedure TfEditorAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente);

170
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -59,8 +59,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336
end
object memObservaciones: TcxDBMemo
Left = 482
Top = 387
Left = 475
Top = 338
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@ -110,98 +110,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 0
Width = 336
end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
Left = 482
Top = 28
Width = 399
Height = 212
Align = alTop
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 17
ReadOnly = False
ExplicitLeft = 482
ExplicitTop = 28
ExplicitWidth = 399
inherited dxLayoutControl1: TdxLayoutControl
Width = 399
Align = alTop
ExplicitWidth = 399
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 325
Width = 325
end
inherited edtNIFCIF: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 325
Width = 325
end
inherited edtCalle: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 325
Width = 325
end
inherited edtPoblacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 207
Width = 207
end
inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 325
Width = 325
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 307
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 307
end
inherited Button3: TBitBtn
Left = 197
ExplicitLeft = 197
end
end
inherited DADataSource: TDADataSource
Left = 0
Top = 65528
end
inherited ActionList1: TActionList
Top = 65528
inherited actElegirContacto: TAction
OnUpdate = frViewClienteAlbaranactElegirContactoUpdate
end
inherited actAnadirContacto: TAction
OnUpdate = frViewClienteAlbaranactAnadirContactoUpdate
end
end
inherited PngImageList: TPngImageList
Top = 65528
end
end
object eCalle: TcxDBTextEdit
Left = 116
Top = 224
@ -226,7 +134,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336
end
object eCodigoPostal: TcxDBTextEdit
Left = 387
Left = 380
Top = 251
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
@ -296,7 +204,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336
end
object bElegirDireccion: TBitBtn
Left = 280
Left = 273
Top = 359
Width = 172
Height = 23
@ -305,7 +213,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 14
end
object Button1: TButton
Left = 320
Left = 313
Top = 138
Width = 132
Height = 23
@ -374,7 +282,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 198
end
object bFormasPago: TButton
Left = 320
Left = 313
Top = 109
Width = 132
Height = 23
@ -383,8 +291,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick
end
object eFechaRecepcion: TcxDBDateEdit
Left = 616
Top = 330
Left = 609
Top = 281
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource
@ -485,8 +393,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336
end
object eFechaPrevista: TcxDBDateEdit
Left = 616
Top = 276
Left = 609
Top = 227
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
DataBinding.DataSource = DADataSource
@ -545,8 +453,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336
end
object eFechaEnvio: TcxDBDateEdit
Left = 616
Top = 303
Left = 609
Top = 254
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource
@ -631,6 +539,56 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 11
Width = 336
end
inline frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran
Left = 475
Top = 28
Width = 413
Height = 163
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 17
ReadOnly = False
ExplicitLeft = 475
ExplicitTop = 28
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
inherited bElegirDireccion: TButton
Left = 373
ExplicitLeft = 373
end
inherited edtPersonaContacto: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 403
Width = 403
end
inherited bElegirPersonaContacto: TButton
Left = 373
ExplicitLeft = 373
end
inherited memDireccion: TcxMemo
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 340
Width = 340
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -818,7 +776,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Datos del cliente'
object dxLayoutControl1Item1: TdxLayoutItem
Control = frViewClienteAlbaran
Caption = 'New Item'
ShowCaption = False
Control = frViewDatosYSeleccionClienteAlbaran1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end

63
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -15,7 +15,8 @@ uses
// uBizPedidosCliente, uPedidosClienteController,
ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago,
cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces;
cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces,
uViewDatosYSeleccionClienteBase, uViewDatosYSeleccionClienteAlbaran;
type
IViewAlbaranCliente = interface(IViewBase)
@ -24,9 +25,8 @@ type
procedure SetAlbaran(const Value: IBizAlbaranCliente);
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
function GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
procedure SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
property ViewClienteAlbaran: TfrViewDatosYSeleccionCliente read GetViewClienteAlbaran write SetViewClienteAlbaran;
function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
end;
TfrViewAlbaranCliente = class(TfrViewBase, IViewAlbaranCliente)
@ -45,8 +45,6 @@ type
dxLayoutControl1Group7: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item1: TdxLayoutItem;
frViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
dxLayoutControl1Item8: TdxLayoutItem;
eCalle: TcxDBTextEdit;
dxLayoutControl1Item10: TdxLayoutItem;
@ -99,6 +97,8 @@ type
dxLayoutControl1Item11: TdxLayoutItem;
cbPoblacion: TcxDBComboBox;
dxLayoutControl1Group9: TdxLayoutGroup;
frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran;
dxLayoutControl1Item1: TdxLayoutItem;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject);
@ -115,8 +115,6 @@ type
procedure frViewClienteAlbaranactElegirContactoUpdate(Sender: TObject);
procedure actElegirDireccionUpdate(Sender: TObject);
procedure actVerPedidoCliUpdate(Sender: TObject);
procedure frViewClienteAlbaranButton1Click(Sender: TObject);
procedure frViewClienteAlbaranButton2Click(Sender: TObject);
procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
@ -126,22 +124,21 @@ type
FAlmacenesController : IAlmacenesController;
// FPedidoAsociado : IBizPedidoCliente;
// FPedidoController : IPedidosClienteController;
FViewClienteAlbaran : TfrViewDatosYSeleccionCliente;
FViewClienteAlbaran : IViewDatosYSeleccionClienteAlbaran;
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
FProvincias : TStringList;
FPoblaciones : TStringList;
procedure CargarProvincias;
procedure CargarPoblaciones;
function GetAlbaran: IBizAlbaranCliente;
procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual;
function GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
procedure SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
public
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
property ViewClienteAlbaran: TfrViewDatosYSeleccionCliente read GetViewClienteAlbaran;
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
end;
implementation
@ -320,10 +317,11 @@ begin
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
// FPedidoAsociado := NIL;
// FPedidoAsociado := NIL;
// FPedidoController := TPedidosClienteController.Create;
FViewClienteAlbaran := frViewClienteAlbaran;
FViewClienteAlbaran.MsgElegirCliente := 'Elija el cliente al que se le realizará el Albaran.';
FViewClienteAlbaran := frViewDatosYSeleccionClienteAlbaran1;
FAlmacenesController := TAlmacenesController.Create;
end;
@ -415,34 +413,12 @@ begin
}
end;
procedure TfrViewAlbaranCliente.frViewClienteAlbaranButton1Click(Sender: TObject);
begin
if Assigned(Albaran) and Assigned(Albaran.Cliente) and
Assigned (Albaran.Detalles) and (Albaran.Detalles.RecordCount > 0) then
begin
if (Application.MessageBox('Los descuentos de los artículos del albarán serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit;
end;
frViewClienteAlbaran.actElegirContacto.Execute;
end;
procedure TfrViewAlbaranCliente.frViewClienteAlbaranButton2Click(Sender: TObject);
begin
if Assigned(Albaran) and Assigned(Albaran.Cliente) and
Assigned (Albaran.Detalles) and (Albaran.Detalles.RecordCount > 0) then
begin
if (Application.MessageBox('Los descuentos de los artículos del albarán serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit;
end;
frViewClienteAlbaran.actAnadirContacto.Execute;
end;
function TfrViewAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
begin
Result := FAlbaran;
end;
function TfrViewAlbaranCliente.GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
function TfrViewAlbaranCliente.GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
begin
Result := FViewClienteAlbaran;
end;
@ -453,7 +429,7 @@ begin
if Assigned(FAlbaran) then
begin
DADataSource.DataTable := FAlbaran.DataTable;
frViewClienteAlbaran.Cliente := FAlbaran.Cliente;
FViewClienteAlbaran.AlbaranCliente := FAlbaran;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
@ -505,16 +481,11 @@ begin
end
else begin
DADataSource.DataTable := NIL;
frViewClienteAlbaran.Cliente := nil;
FViewClienteAlbaran.AlbaranCliente := NIL;
// FPedidoAsociado := NIL;
dsFormaPago.DataTable := NIL;
dsAlmacenes.DataTable := NIL;
end;
end;
procedure TfrViewAlbaranCliente.SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
begin
FViewClienteAlbaran := Value;
end;
end.

174
Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm Normal file
View File

@ -0,0 +1,174 @@
inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
Height = 163
ExplicitHeight = 163
inherited dxLayoutControl1: TdxLayoutControl
Height = 128
ExplicitTop = 35
ExplicitWidth = 413
ExplicitHeight = 128
DesignSize = (
413
128)
object edtlNombre: TcxDBTextEdit [0]
Left = 63
Top = 10
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Height = 21
Width = 276
end
object bElegirDireccion: TButton [1]
Left = 380
Top = 37
Width = 23
Height = 25
Action = actElegirDireccion
TabOrder = 2
end
object edtPersonaContacto: TcxDBTextEdit [2]
Left = 63
Top = 89
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsAlbaran
ParentFont = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Height = 21
Width = 403
end
object bElegirPersonaContacto: TButton [3]
Left = 380
Top = 87
Width = 23
Height = 25
Action = actElegirPersonaContacto
TabOrder = 4
end
object memDireccion: TcxMemo [4]
Left = 63
Top = 37
Enabled = False
Properties.ReadOnly = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Height = 44
Width = 340
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Nombre:'
Control = edtlNombre
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Direcci'#243'n:'
CaptionOptions.AlignVert = tavTop
Control = memDireccion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
CaptionOptions.AlignVert = tavTop
ShowCaption = False
Control = bElegirDireccion
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
AlignVert = avCenter
Caption = 'Contacto:'
Control = edtPersonaContacto
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = bElegirPersonaContacto
ControlOptions.ShowBorder = False
end
end
end
end
inherited Panel1: TPanel
ExplicitTop = 0
inherited bElegirCliente: TBitBtn
ExplicitLeft = 4
ExplicitTop = 4
end
inherited bNuevoCliente: TBitBtn
ExplicitLeft = 266
ExplicitTop = 4
end
inherited bVerFicha: TBitBtn
ExplicitLeft = 121
ExplicitTop = 4
end
end
object dsAlbaran: TDADataSource
Left = 232
Top = 8
end
end

181
Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas Normal file
View File

@ -0,0 +1,181 @@
unit uViewDatosYSeleccionClienteAlbaran;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionClienteBase, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxControls,
cxTextEdit, cxContainer, cxEdit, cxDBEdit, ExtCtrls, cxMemo,
uBizAlbaranesCliente;
type
IViewDatosYSeleccionClienteAlbaran = interface(IViewDatosYSeleccionClienteBase)
['{41EA09A7-F21A-4D89-AC60-559CB6B430C9}']
function GetAlbaranCliente: IBizAlbaranCliente;
procedure SetAlbaranCliente(const Value: IBizAlbaranCliente);
property AlbaranCliente: IBizAlbaranCliente read GetAlbaranCliente write SetAlbaranCliente;
end;
TfrViewDatosYSeleccionClienteAlbaran = class(TfrViewDatosYSeleccionClienteBase, IViewDatosYSeleccionClienteAlbaran)
dxLayoutControl1Item1: TdxLayoutItem;
edtlNombre: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem;
bElegirDireccion: TButton;
dxLayoutControl1Item4: TdxLayoutItem;
edtPersonaContacto: TcxDBTextEdit;
dxLayoutControl1Item5: TdxLayoutItem;
bElegirPersonaContacto: TButton;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
memDireccion: TcxMemo;
dxLayoutControl1Group4: TdxLayoutGroup;
dsAlbaran: TDADataSource;
protected
FAlbaran : IBizAlbaranCliente;
function GetAlbaranCliente: IBizAlbaranCliente;
procedure SetAlbaranCliente(const Value: IBizAlbaranCliente);
procedure EscribirTextoDireccion;
procedure RefrescarDireccion;
public
procedure ElegirCliente; override;
procedure ElegirDireccionCliente; override;
procedure ElegirPersonaContacto; override;
procedure AnadirNuevoCliente; override;
property AlbaranCliente: IBizAlbaranCliente read GetAlbaranCliente write SetAlbaranCliente;
end;
implementation
{$R *.dfm}
{ TfrViewDatosYSeleccionClienteAlbaran }
procedure TfrViewDatosYSeleccionClienteAlbaran.AnadirNuevoCliente;
begin
if Assigned(FAlbaran) and Assigned(FCliente) and
Assigned (FAlbaran.Detalles) and (FAlbaran.Detalles.RecordCount > 0) then
begin
if (Application.MessageBox('Los descuentos de los artículos del albarán serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit;
end;
inherited;
end;
procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirCliente;
begin
if Assigned(FAlbaran) and Assigned(FCliente) and
Assigned (FAlbaran.Detalles) and (FAlbaran.Detalles.RecordCount > 0) then
begin
if (Application.MessageBox('Los descuentos de los artículos del albarán serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit;
end;
inherited;
end;
procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirDireccionCliente;
begin
inherited;
if Assigned(FDireccion) then
begin
FAlbaran.Edit;
if FDireccion.IDIsNull then
begin
FAlbaran.ClearField('ID_DIRECCION');
FAlbaran.ClearField('IMPORTE_PORTE');
FAlbaran.ClearField('CALLE');
FAlbaran.ClearField('POBLACION');
FAlbaran.ClearField('PROVINCIA');
FAlbaran.ClearField('CODIGO_POSTAL');
FAlbaran.ClearField('TELEFONO');
end
else begin
FAlbaran.ID_DIRECCION := FDireccion.ID;
FAlbaran.CALLE := FDireccion.CALLE;
FAlbaran.POBLACION := FDireccion.POBLACION;
FAlbaran.PROVINCIA := FDireccion.PROVINCIA;
FAlbaran.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
FAlbaran.TELEFONO := FDireccion.TELEFONO;
FAlbaran.IMPORTE_PORTE := FDireccion.PORTE;
FAlbaran.PERSONA_CONTACTO := FDireccion.PERSONA_CONTACTO;
end;
EscribirTextoDireccion;
end;
end;
procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirPersonaContacto;
begin
inherited;
if Assigned(FPersonaContacto) then
begin
FAlbaran.Edit;
FAlbaran.PERSONA_CONTACTO := FPersonaContacto.NOMBRE;
end;
end;
procedure TfrViewDatosYSeleccionClienteAlbaran.EscribirTextoDireccion;
var
ACadena : String;
begin
ACadena := '';
if Assigned(FDireccion) then
ACadena := Format('%s %s %s %s',
[FDireccion.CALLE, FDireccion.POBLACION,
FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]);
memDireccion.Lines.Clear;
memDireccion.Lines.Text := ACadena;
end;
function TfrViewDatosYSeleccionClienteAlbaran.GetAlbaranCliente: IBizAlbaranCliente;
begin
Result := FAlbaran;
end;
procedure TfrViewDatosYSeleccionClienteAlbaran.RefrescarDireccion;
begin
FDireccion := FDireccionesController.Nuevo;
if (not FAlbaran.ID_DIRECCIONIsNull) and
(FDireccionesController.Localizar(FCliente.Direcciones, FAlbaran.ID_DIRECCION)) then
FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
else
FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
EscribirTextoDireccion;
end;
procedure TfrViewDatosYSeleccionClienteAlbaran.SetAlbaranCliente(
const Value: IBizAlbaranCliente);
begin
FAlbaran := Value;
if Assigned(FAlbaran) then
begin
dsAlbaran.DataTable := FAlbaran.DataTable;
FCliente := FAlbaran.Cliente;
dsCliente.DataTable := FCliente.DataTable;
if not FCliente.DataTable.Active then
FCliente.DataTable.Active := True;
RefrescarDireccion;
end
else begin
dsAlbaran.DataTable := NIL;
FCliente := NIL;
FDireccion := NIL;
end;
end;
end.

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

@ -66,7 +66,11 @@ requires
xmlrtl,
cfpack_d11,
designide,
ccpackD11;
ccpackD11,
JvStdCtrlsD11R,
JvCtrlsD11R,
dxLayoutControlD11,
dxComnD11;
contains
uContactosViewRegister in 'uContactosViewRegister.pas',
@ -106,6 +110,7 @@ contains
uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion: TCustomEditor},
uEditorPersonal in 'uEditorPersonal.pas' {fEditorPersonal: TCustomEditor},
uViewPersonalContacto in 'uViewPersonalContacto.pas' {frViewPersonalContacto: TFrame},
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TCustomEditor};
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TCustomEditor},
uViewDatosYSeleccionClienteBase in 'uViewDatosYSeleccionClienteBase.pas' {frViewDatosYSeleccionClienteBase: TFrame};
end.

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

@ -49,42 +49,52 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="bdertl.dcp" />
<DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.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="designide.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="GUISDK_D11.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="JvSystemD11R.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="..\..\Albaranes de cliente\Views\adortl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\ApplicationBase.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Base.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\bdertl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\ccpackD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cfpack_d11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Contactos_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Contactos_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxExportD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxGridD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\designide.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxComnD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\FormasPago_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Jcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JclVcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\rtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vclx.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>
@ -114,7 +124,7 @@
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirDireccionEntrega.pas">
<Form>fuEditorElegirDireccionEntrega</Form>
<Form>fEditorElegirDireccionEntrega</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirPersonaContactoCliente.pas">
@ -201,6 +211,10 @@
<Form>frViewDatosYSeleccionCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionClienteBase.pas">
<Form>frViewDatosYSeleccionClienteBase</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionProveedor.pas">
<Form>frViewDatosYSeleccionProveedor</Form>
<DesignClass>TFrame</DesignClass>
@ -233,12 +247,6 @@
<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" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

319
Source/Modulos/Contactos/Views/uViewDatosYSeleccionClienteBase.dfm Normal file
View File

@ -0,0 +1,319 @@
inherited frViewDatosYSeleccionClienteBase: TfrViewDatosYSeleccionClienteBase
Width = 413
Height = 218
ExplicitWidth = 413
ExplicitHeight = 218
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 35
Width = 413
Height = 183
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitTop = 0
ExplicitWidth = 505
ExplicitHeight = 82
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 413
Height = 35
Align = alTop
BevelOuter = bvNone
Padding.Left = 4
Padding.Top = 4
Padding.Right = 4
Padding.Bottom = 4
TabOrder = 1
ExplicitTop = -6
object bvSeparador: TBevel
AlignWithMargins = True
Left = 261
Top = 4
Width = 5
Height = 27
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Align = alLeft
Shape = bsLeftLine
end
object bElegirCliente: TBitBtn
AlignWithMargins = True
Left = 4
Top = 4
Width = 115
Height = 27
Margins.Left = 0
Margins.Top = 0
Margins.Right = 2
Margins.Bottom = 0
Action = actElegirContacto
Align = alLeft
Caption = 'Elegir un cliente'
TabOrder = 0
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
ExplicitLeft = -2
ExplicitTop = 5
end
object bNuevoCliente: TBitBtn
Left = 266
Top = 4
Width = 135
Height = 27
Action = actAnadirContacto
Align = alLeft
Caption = 'Dar de alta un cliente'
TabOrder = 1
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
3100694731006947310069473100694731006947310069473100694731006947
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
ED00F2ECE800006000000060000000600000B7A2930069473100D5BFB100E9F6
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
F100F7A073000060000033CB510000600000B7A2930069473100D5BFB100F4FA
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB000060
0000006000000060000040D86500006000000060000000600000D5BFB100FFFF
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF000060
000060F898005AF28F004DE57A0040D865003AD25C0000600000D5BFB100FFFF
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF000060
000000600000006000005AF28F00006000000060000000600000D5BFB100D5BF
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
B100D5BFB1000060000060F8980000600000D5BFB100D5BFB100FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
ExplicitLeft = 262
ExplicitTop = 2
end
object bVerFicha: TBitBtn
Left = 121
Top = 4
Width = 137
Height = 27
Action = actVerContacto
Align = alLeft
Caption = 'Ver ficha del cliente...'
TabOrder = 2
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
3100694731006947310069473100694731006947310069473100694731006947
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
ED00F2ECE800EFE8E300EDE4DF00EAE0DA00B7A2930069473100D5BFB100E9F6
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
F100F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100F4FA
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB00FAF8
F600F7F4F100F5F0ED00F2ECE800EFE8E300B7A2930069473100D5BFB100FFFF
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF00FDFC
FB00F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100FFFF
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF00FFFF
FF00FEFEFD00FCFAF900F9F6F400F6F2EF00F3EEEA0069473100D5BFB100D5BF
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
ExplicitLeft = 119
ExplicitTop = 5
end
end
object dsCliente: TDADataSource
Left = 168
Top = 8
end
object ActionList1: TActionList
Images = PngImageList
Left = 136
Top = 8
object actElegirContacto: TAction
Caption = 'Elegir un cliente'
ImageIndex = 0
OnExecute = actElegirContactoExecute
end
object actAnadirContacto: TAction
Caption = 'Dar de alta un cliente'
ImageIndex = 1
OnExecute = actAnadirContactoExecute
end
object actVerContacto: TAction
Caption = 'Ver ficha del cliente...'
ImageIndex = 2
OnExecute = actVerContactoExecute
end
object actElegirDireccion: TAction
Caption = '...'
OnExecute = actElegirDireccionExecute
OnUpdate = actElegirDireccionUpdate
end
object actElegirPersonaContacto: TAction
Caption = '...'
OnExecute = actElegirPersonaContactoExecute
OnUpdate = actElegirPersonaContactoUpdate
end
end
object PngImageList: TPngImageList
ShareImages = True
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000AC400000AC401666D82D4000002A94944415478DA
7D925D48536118C79FF3B5AF36DD66B639CB924243225010BC49BA914004CDE8
E32228B482EA4689A22289C8CBA28B32B1061688902912D28D16991F6062B2DC
45921FB954669BF39C9D6DE7EC9CF3EEBC9D2D8C2CB7079E9BF779FEBFF7F922
30C69034822060D3665F5F3A0B90B8C672FCAEC07AD8E35DF0DFBFE3F64EC05F
F647F72FC0DB75AED1E1B43D138438C9B26108B11C0443BC30ECF959D731303F
9411D0D35C612C2ADBEF3319F5B992AC402412037F9003A4C8E05F17679BDA3E
976BA9D1F4807B95552E877D90222910250556023170E66481D900F0CD17C0AD
5DDE63F3CBFC505AC0685B6DE34654762B88009B350B8AF658815011C8521C04
518487DD530D9D83BECEB480C98EDA13F9798E5E9A61526F098440D1CA572409
24298EEFBA271B7BC756D203FA5A8FE49516EDF3313A5D8AA0AAAAD6BF929A01
CFC7505DCBBBAAD590349C710BD3EEFA57D916D3A954920648249255283031B3
3A7BE1D164A5F61CCC0878D15C917FA8C43165D6334E558B25DBD80847E51BCF
A79B3E7D65DB33AEF1E04D570EE5723DB513C4C966E9006101ED0662043C6697
30B7DB3021CE6D5C5EEA58FAB22DE0F0ADBD36D25E38A6E6E2126413E00CAA81
FAE27AE85FEB876EF10D30DC0E2083542432F3E3F8E2CBC5F7FF01CA5A8E3E21
6CC6AB8A264636110C7A80EADC2AE88B0E004474C0B026A035C76BF2B2A7ED43
29E671680BA0FC76B50F5BC902641501658B90304BA0EA11100A05544C0774D8
0834A7396B04DFE8C8E9B58FC19EAD80EB358B84852E44D9F1DF62930C9856B5
6320801419A0A27AA079430AB4303E722530EE6FDF3A838B15E729B3E50195C3
D855B34A247F074A8BA91A40A2808C91803955E6E70233F36F3D0D58C6DEEDD6
B8D35040179B9DA602305266AC028925A4A0B822A090C20BAB09BF96F35D736E
53F70B90E997F07974AFDF0000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000002224944415478DA
95935D48936114C77FCB36584A6064161515DEA441108B240293E8A682246805
DEA45020F40196505D081242DE94512B8C20169937056914D52E726B6083B114
D44CD3D51A216BB6656B5FEF677B5FF31D23033DF070CE03CFFFF73F1CCE6362
29D1806AD44E4C5A32F5F58FAA8BD5D73DD8465757034D4D4EFA4E8C62000ED7
56E997647490DFE131BD2ED9584971D98EB9478D2603D279B39EE6733DC6DD00
68E2EF7E07E95F2291688C48629ABDC71DACABD8AD0334E7B420104D24F4A3D5
DDD707E60087F66C2234D0CECF2F41643987556566676799C9C4387AD18FF964
91E178EA522DF73ADC851D1CA85ECD27D77948995861B552844C2A9962303441
DD051FA22473E5095C735B3972DAC6D3DB016EED7BC9FD47CFE601E57CF3B661
C966D1E62C880299549A696915B6639D4892A243D6B6AC349C0B00DA0C22EF7B
484EBDCA015424512491125036D751B1CBAE8BB5330F12459937EF860A01DEA0
8BA0FB0E5B154BAE832C810CACDF594F4DD5C17FC45AF6FA87F3800D95022DFD
ADC47E84682CDF8F222A3C9CF1303915E6C3E5495DDC7AE379C14E546F5F9307
F8E4C7BC187F4BA6344E49D24C6E8A24AD12E65809A1895102CD6386B3F8B793
C0F0C73CC0196927188E2297651096A7D096D4922D6659DCC2E7AF43F8CE8C70
F5AEEBFF1D9CF5D889C7230BAE6F696939BDF6D7BAABACA87A567279647C320F
A8B16DA1BBD7B3A47FA5850168EB702C596C6CA2AA2EFA332E187F0080F1503E
182A98A90000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001EC4944415478DA
A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B
A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842
5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B
3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB
9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F
44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C
43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C
3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9
28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358
9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8
BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21
4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991
22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA
5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06
0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF
C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end>
Left = 200
Top = 8
Bitmap = {}
end
end

315
Source/Modulos/Contactos/Views/uViewDatosYSeleccionClienteBase.pas Normal file
View File

@ -0,0 +1,315 @@
unit uViewDatosYSeleccionClienteBase;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit, cxLabel,
cxDBLabel, ExtCtrls, DB, uDADataTable, uBizContactos, uClientesController,
uDAInterfaces, uBizDireccionesContacto,
uDireccionesContactoController, uBizContactosPersonal, ImgList, PngImageList,
ActnList, dxLayoutControl, Buttons;
type
IViewDatosYSeleccionClienteBase = interface(IViewBase)
['{EC1BAC23-95A7-469F-8E86-939C149C4528}']
function GetCliente: IBizCliente;
procedure SetCliente(Value: IBizCliente);
property Cliente: IBizCliente read GetCliente write SetCliente;
function GetID_Cliente: integer;
procedure SetID_Cliente(const Value: integer);
property ID_Cliente: integer read GetID_Cliente write SetID_Cliente;
function GetOnClienteChanged : TNotifyEvent;
procedure SetOnClienteChanged (const Value : TNotifyEvent);
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged
write SetOnClienteChanged;
procedure ElegirPersonaContacto;
procedure ElegirDireccionCliente;
procedure ElegirCliente;
procedure VerFichaCliente;
procedure AnadirNuevoCliente;
end;
TfrViewDatosYSeleccionClienteBase = class(TfrViewBase, IViewDatosYSeleccionClienteBase)
dsCliente: TDADataSource;
ActionList1: TActionList;
actElegirContacto: TAction;
actAnadirContacto: TAction;
actVerContacto: TAction;
PngImageList: TPngImageList;
dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl;
actElegirDireccion: TAction;
actElegirPersonaContacto: TAction;
Panel1: TPanel;
bElegirCliente: TBitBtn;
bNuevoCliente: TBitBtn;
bVerFicha: TBitBtn;
bvSeparador: TBevel;
procedure actElegirContactoExecute(Sender: TObject);
procedure actAnadirContactoExecute(Sender: TObject);
procedure edtPersonaContactoPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure edtDireccionPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure actVerContactoExecute(Sender: TObject);
procedure actElegirDireccionUpdate(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject);
procedure actElegirPersonaContactoExecute(Sender: TObject);
procedure actElegirPersonaContactoUpdate(Sender: TObject);
private
FOnClienteChanged : TNotifyEvent;
FMsgElegirCliente: String;
FMsgElegirDireccion: String;
FMsgElegirPersonaContacto: String;
protected
FClientesController : IClientesController;
FDireccionesController : IDireccionesContactoController;
FCliente : IBizCliente;
FDireccion : IBizDireccionesContacto;
FPersonaContacto : IBizContactoPersonal;
function GetCliente: IBizCliente; virtual;
procedure SetCliente(Value: IBizCliente); virtual;
function GetOnClienteChanged : TNotifyEvent;
procedure SetOnClienteChanged (const Value : TNotifyEvent);
procedure SetReadOnly(Value: Boolean); override;
function GetID_Cliente: integer; virtual;
procedure SetID_Cliente(const Value: integer); virtual;
procedure InicializarMensajes; virtual;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure ElegirPersonaContacto; virtual;
procedure ElegirDireccionCliente; virtual;
procedure ElegirCliente; virtual;
procedure VerFichaCliente; virtual;
procedure AnadirNuevoCliente; virtual;
property Cliente: IBizCliente read GetCliente write SetCliente;
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
property ID_Cliente: integer read GetID_Cliente write SetID_Cliente;
end;
implementation
{$R *.dfm}
uses
uDataModuleClientes, Math, uCustomView, uDialogUtils;
procedure TfrViewDatosYSeleccionClienteBase.actElegirContactoExecute(Sender: TObject);
begin
ElegirCliente;
end;
procedure TfrViewDatosYSeleccionClienteBase.actElegirDireccionExecute(
Sender: TObject);
begin
inherited;
ElegirDireccionCliente;
end;
procedure TfrViewDatosYSeleccionClienteBase.actElegirDireccionUpdate(
Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := Assigned(FCliente.Direcciones) and
(FCliente.Direcciones.Active) and (FCliente.Direcciones.RecordCount > 0);
end;
procedure TfrViewDatosYSeleccionClienteBase.actElegirPersonaContactoExecute(
Sender: TObject);
begin
inherited;
ElegirPersonaContacto;
end;
procedure TfrViewDatosYSeleccionClienteBase.actElegirPersonaContactoUpdate(
Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := Assigned(FCliente.Personal) and
(FCliente.Personal.Active) and (FCliente.Personal.RecordCount > 0);
end;
procedure TfrViewDatosYSeleccionClienteBase.actAnadirContactoExecute(
Sender: TObject);
begin
AnadirNuevoCliente;
end;
procedure TfrViewDatosYSeleccionClienteBase.actVerContactoExecute(
Sender: TObject);
begin
inherited;
VerFichaCliente;
end;
procedure TfrViewDatosYSeleccionClienteBase.AnadirNuevoCliente;
var
ACliente : IBizCliente;
begin
inherited;
ACliente := (FClientesController.Nuevo as IBizCliente);
FClientesController.Ver(ACliente);
Self.Cliente := ACliente;
end;
constructor TfrViewDatosYSeleccionClienteBase.Create(AOwner: TComponent);
begin
inherited;
FClientesController := TClientesController.Create;
FDireccionesController := TDireccionesContactoController.Create;
FPersonaContacto := NIL;
FDireccion := NIL;
FCliente := NIL;
end;
destructor TfrViewDatosYSeleccionClienteBase.Destroy;
begin
FPersonaContacto := NIL;
FDireccion := NIL;
FCliente := NIL;
FClientesController := NIL;
FDireccionesController := NIL;
inherited;
end;
procedure TfrViewDatosYSeleccionClienteBase.edtDireccionPropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
inherited;
ElegirDireccionCliente;
end;
procedure TfrViewDatosYSeleccionClienteBase.edtPersonaContactoPropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
inherited;
ElegirPersonaContacto;
end;
procedure TfrViewDatosYSeleccionClienteBase.ElegirCliente;
var
ACliente : IBizCliente;
begin
inherited;
ACliente := (FClientesController.ElegirContacto(FClientesController.BuscarTodos, FMsgElegirCliente, False) as IBizCliente);
if Assigned(ACliente) then
Self.Cliente := ACliente;
ACliente := Nil;
end;
procedure TfrViewDatosYSeleccionClienteBase.ElegirDireccionCliente;
var
ADireccion : IBizDireccionesContacto;
begin
inherited;
ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, FMsgElegirDireccion);
if Assigned(ADireccion) then
FDireccion := ADireccion;
end;
procedure TfrViewDatosYSeleccionClienteBase.ElegirPersonaContacto;
var
APersona : IBizContactoPersonal;
begin
inherited;
APersona := FClientesController.ElegirPersonaContacto(FCliente.Personal, FMsgElegirPersonaContacto);
if Assigned(APersona) then
FPersonaContacto := APersona;
end;
function TfrViewDatosYSeleccionClienteBase.GetCliente: IBizCliente;
begin
Result := FCliente;
end;
function TfrViewDatosYSeleccionClienteBase.GetID_Cliente: integer;
begin
Result := -1;
if Assigned(FCliente) then
Result := FCliente.ID;
end;
procedure TfrViewDatosYSeleccionClienteBase.SetCliente(Value: IBizCliente);
begin
FCliente := Value;
if Assigned(FCliente) then
begin
dsCliente.DataTable := FCliente.DataTable;
if not FCliente.DataTable.Active then
FCliente.DataTable.Active := True;
end
else begin
dsCliente.DataTable := NIL;
FCliente := NIL;
FDireccion := NIL;
FPersonaContacto := NIL;
end;
if Assigned(FOnClienteChanged) then
FOnClienteChanged(Self);
end;
procedure TfrViewDatosYSeleccionClienteBase.SetID_Cliente(const Value: integer);
begin
Self.Cliente := IBizCliente(FClientesController.Buscar(Value));
end;
function TfrViewDatosYSeleccionClienteBase.GetOnClienteChanged: TNotifyEvent;
begin
Result := FOnClienteChanged;
end;
procedure TfrViewDatosYSeleccionClienteBase.InicializarMensajes;
begin
FMsgElegirCliente := 'Elija el cliente que desea utilizar.';
FMsgElegirPersonaContacto := 'El cliente dispone de personas de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.';
FMsgElegirDireccion := 'El cliente dispone de direcciones de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.';
end;
procedure TfrViewDatosYSeleccionClienteBase.SetOnClienteChanged(
const Value: TNotifyEvent);
begin
FOnClienteChanged := Value;
end;
procedure TfrViewDatosYSeleccionClienteBase.SetReadOnly(Value: Boolean);
begin
inherited;
if ReadOnly then
begin
actAnadirContacto.Enabled := False;
actElegirContacto.Enabled := False;
actElegirDireccion.Enabled := False;
actElegirPersonaContacto.Enabled := False;
end;
end;
procedure TfrViewDatosYSeleccionClienteBase.VerFichaCliente;
begin
if not Assigned(Cliente) then
ShowErrorMessage('No se ha indicado un cliente', '')
else begin
FClientesController.Ver(Cliente);
end;
end;
end.

2
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -227,7 +227,7 @@ begin
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
frViewDatosYSeleccionClientePresupuesto1.Presupuesto := FPresupuesto;
FViewClientePresupuesto.Presupuesto := FPresupuesto;
end
else begin
DADataSource.DataTable := NIL;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -97,7 +97,6 @@ uses
uBizObrasServer in '..\Modulos\Obras\Model\uBizObrasServer.pas',
schObrasClient_Intf in '..\Modulos\Obras\Model\schObrasClient_Intf.pas',
schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas',
uBizArticulosServer in '..\Modulos\Articulos\Model\uBizArticulosServer.pas',
@ -112,7 +111,6 @@ uses
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
@ -129,7 +127,9 @@ uses
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.3.2.0\0"
VALUE "ProductVersion", "1.3.2.0\0"
VALUE "CompileDate", "viernes, 19 de septiembre de 2008 12:02\0"
VALUE "CompileDate", "viernes, 19 de septiembre de 2008 17:48\0"
END
END
BLOCK "VarFileInfo"