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

Repaso al módulo de contactos.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@73 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2007-12-27 10:34:42 +00:00
parent 7afbff54dd
commit 62b6dbe80a
22 changed files with 645 additions and 245 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Source/Modulos/Contactos/Contactos_Group.groupproj
View File

@ -12,6 +12,7 @@
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
<Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
<Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="Controller\Contactos_controller.dproj" />
<Projects Include="Data\Contactos_data.dproj" />
<Projects Include="Model\Contactos_model.dproj" />
@ -141,14 +142,23 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_view:Clean">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_model;Contabilidad_data;Contabilidad_controller;FactuGES;FactuGES_Server" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_model;Contabilidad_data;Contabilidad_controller;FactuGES;FactuGES_Server;Contabilidad_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;FactuGES:Make;FactuGES_Server:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

9
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -321,6 +321,10 @@ begin
if (SubCuentas.DataTable.State in dsEditModes) then
SubCuentas.DataTable.Post;
if (IGNORAR_CONTABILIDAD = 0)
and (SubCuentas.DataTable.RecordCount = 0) then
raise Exception.Create('El cliente debe tener asociada una subcuenta contable');
if (BLOQUEADO = 0) then
begin
Edit;
@ -341,7 +345,8 @@ begin
end;
end;
{
// Por ahora no existe el concepto de direcciones de entrega asi que esto está desactivado
if Result and (AContacto.Direcciones.RecordCount = 0) then
if (ShowConfirmMessage('El cliente no tiene direcciones asociadas',
AContacto.NOMBRE + ' no tiene ninguna dirección de envío dada de alta, ' + #10#13 +
@ -349,7 +354,7 @@ begin
begin
FDireccionesController.CopiarDireccionFiscal(AContacto, AContacto.Direcciones);
FDireccionesController.Ver(AContacto.Direcciones);
end;
end;}
end;
end;

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

@ -90,6 +90,7 @@ begin
begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
REFERENCIA := '';
end;
Result.Post;

20
Source/Modulos/Contactos/Controller/uProveedoresController.pas
View File

@ -21,7 +21,7 @@ type
TProveedoresController = class(TContactosController, IProveedoresController)
protected
FDireccionesController : IDireccionesContactoController;
function ValidarContacto(AContacto: IBizContacto): Boolean; override;
public
constructor Create; override;
destructor Destroy; override;
@ -279,6 +279,24 @@ begin
end;
end;
function TProveedoresController.ValidarContacto(
AContacto: IBizContacto): Boolean;
begin
Result := inherited ValidarContacto(AContacto);
if Result then
begin
with (AContacto as IBizProveedor) do
begin
if (SubCuentas.DataTable.State in dsEditModes) then
SubCuentas.DataTable.Post;
if (IGNORAR_CONTABILIDAD = 0)
and (SubCuentas.DataTable.RecordCount = 0) then
raise Exception.Create('El proveedor debe tener asociada una subcuenta contable');
end;
end;
end;
procedure TProveedoresController.Ver(AContacto: IBizContacto);
var
AEditor : IEditorProveedor;

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

@ -148,10 +148,14 @@ inherited DataModuleClientes: TDataModuleClientes
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'Clientes_FECHA_ALTA'
DictionaryEntry = 'Clientes_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'Clientes_FECHA_MODIFICACION'
DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
@ -169,6 +173,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'Clientes_REFERENCIA'
end
item
@ -236,6 +241,14 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
DisplayLabel = 'Clientes_CODIGO_ASIGNADO'
DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datInteger
DisplayLabel = 'Clientes_IGNORAR_CONTABILIDAD'
DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -345,6 +358,7 @@ inherited DataModuleClientes: TDataModuleClientes
DataType = datAutoInc
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
Required = True
ServerAutoRefresh = True
DictionaryEntry = 'SubCuentasContacto_ID'
InPrimaryKey = True
end

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

@ -179,6 +179,7 @@ inherited DataModuleContactos: TDataModuleContactos
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_REFERENCIA'
end>
Params = <>

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

@ -168,10 +168,14 @@ inherited DataModuleProveedores: TDataModuleProveedores
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'Proveedores_FECHA_ALTA'
DictionaryEntry = 'Proveedores_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'Proveedores_FECHA_MODIFICACION'
DictionaryEntry = 'Proveedores_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
@ -190,6 +194,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
ServerAutoRefresh = True
DictionaryEntry = 'Proveedores_REFERENCIA'
end
item
@ -215,7 +220,8 @@ inherited DataModuleProveedores: TDataModuleProveedores
item
Name = 'GRUPO_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Grupo proveedor'
DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
end
item
Name = 'REGIMEN_IVA'
@ -251,6 +257,12 @@ inherited DataModuleProveedores: TDataModuleProveedores
Size = 255
DisplayLabel = 'Certificaciones'
DictionaryEntry = 'Proveedores_CERTIFICACION'
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datInteger
DisplayLabel = 'Proveedores_IGNORAR_CONTABILIDAD'
DictionaryEntry = 'Proveedores_IGNORAR_CONTABILIDAD'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -277,6 +289,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
DataType = datAutoInc
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
Required = True
ServerAutoRefresh = True
DictionaryEntry = 'SubCuentasContacto_ID'
InPrimaryKey = True
end

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

@ -3,24 +3,24 @@ unit schContactosClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_SubCuentasContacto = '{31E4F142-90A9-43AF-BA1A-1D9E2709B45D}';
RID_Contactos = '{D1D6AE0C-CB9D-4339-85EF-EF5D108CF7B0}';
RID_GruposCliente = '{F20ADBA3-4C7F-4E45-BC8F-028251137CE3}';
RID_DatosBancarios = '{1CD5BB52-38A3-447E-BE75-670660841F72}';
RID_Clientes = '{F15EADE4-FBD1-4132-8475-8DD722611D2E}';
RID_Proveedores = '{7981FF66-06FD-4EE1-9564-EA37C676A319}';
RID_Empleados = '{AC0D3CD8-C3E4-45B9-A657-C282E25D2217}';
RID_DireccionesContacto = '{75EBF2E8-5F56-4CD1-8F11-BCF2F68889D3}';
RID_ClientesDescuentos = '{C40E3AD8-AEA8-4376-81F2-37A001F88732}';
RID_GruposProveedor = '{0411FDA9-31F7-47DE-BAC4-73C59992FBC0}';
RID_GruposEmpleado = '{AD867ECC-C46F-4976-8315-208A5F9BCD34}';
RID_Contactos_Refresh = '{EF5AFE33-8F5F-42F4-8C9F-96D6C5778708}';
RID_SubCuentasContacto = '{4E9A4351-6088-4C3D-89BE-5C2045F3142E}';
RID_Contactos = '{7488A5BA-619B-4BAB-A118-BCED33A85729}';
RID_GruposCliente = '{3581CC88-21B9-4C30-A3AE-7565C18C3290}';
RID_DatosBancarios = '{039C7134-AC7B-45EE-B678-BF31C4266A3E}';
RID_Clientes = '{39651BB6-A46C-4E18-8370-B7E381F5E438}';
RID_Proveedores = '{4E9E99D2-0F82-481A-9BD2-6178349034A0}';
RID_Empleados = '{C0B6AA11-68AE-4658-9308-8C29C5F0936D}';
RID_DireccionesContacto = '{EF3A2758-0CBE-4482-8770-91AD4F993A04}';
RID_ClientesDescuentos = '{D64874F0-7499-4AC8-B3F1-DC1D63923CE9}';
RID_GruposProveedor = '{86B9993A-ECB2-43E3-BA37-2C8DD53497A8}';
RID_GruposEmpleado = '{877D71DA-AE8B-4B26-969F-AAA4DB1405D1}';
RID_Contactos_Refresh = '{8758F490-8118-4E61-AC27-3925D66A739C}';
{ Data table names }
nme_SubCuentasContacto = 'SubCuentasContacto';
@ -165,6 +165,7 @@ const
fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
fld_ClientesIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
{ Clientes field indexes }
idx_ClientesID = 0;
@ -201,6 +202,7 @@ const
idx_ClientesID_FORMA_PAGO = 31;
idx_ClientesTIENDA_WEB = 32;
idx_ClientesCODIGO_ASIGNADO = 33;
idx_ClientesIGNORAR_CONTABILIDAD = 34;
{ Proveedores fields }
fld_ProveedoresID = 'ID';
@ -236,6 +238,7 @@ const
fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB';
fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO';
fld_ProveedoresCERTIFICACION = 'CERTIFICACION';
fld_ProveedoresIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
{ Proveedores field indexes }
idx_ProveedoresID = 0;
@ -271,6 +274,7 @@ const
idx_ProveedoresTIENDA_WEB = 30;
idx_ProveedoresHOMOLOGADO = 31;
idx_ProveedoresCERTIFICACION = 32;
idx_ProveedoresIGNORAR_CONTABILIDAD = 33;
{ Empleados fields }
fld_EmpleadosID = 'ID';
@ -447,7 +451,7 @@ const
type
{ ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{FA69CBDF-8BAE-4B55-B4FB-E88213EE6CA6}']
['{67E58E93-5163-41A9-86BD-6D2721F65D18}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -491,7 +495,7 @@ type
end;
{ TSubCuentasContactoDataTableRules }
TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
private
protected
{ Property getters and setters }
@ -542,7 +546,7 @@ type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{52AEBACD-705B-4471-BBAE-94B13314F101}']
['{FCE955D0-D867-4E9E-AEF2-9CAEA0B6E1DC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -687,7 +691,7 @@ type
end;
{ TContactosDataTableRules }
TContactosDataTableRules = class(TDADataTableRules, IContactos)
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -841,7 +845,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{90510826-AB2A-4C7D-9025-292E6B2C8DB5}']
['{A2060827-0FC3-452C-9EC0-A58E54F95402}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -855,7 +859,7 @@ type
end;
{ TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
private
protected
{ Property getters and setters }
@ -876,7 +880,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{9E43DCFE-67C3-44AC-8FC5-EDD84DFD6D3B}']
['{91DB169A-8525-43B6-BCA9-DED818C22BFF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -938,7 +942,7 @@ type
end;
{ TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
private
protected
{ Property getters and setters }
@ -1007,7 +1011,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{DDCC5378-B677-4E5F-8A5D-6C741BBE2C0D}']
['{EEA29F68-9A96-461E-9D7B-1AA1D0E26123}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1144,6 +1148,10 @@ type
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
function GetCODIGO_ASIGNADOIsNull: Boolean;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
function GetIGNORAR_CONTABILIDADValue: Integer;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
{ Properties }
@ -1215,10 +1223,12 @@ type
property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
end;
{ TClientesDataTableRules }
TClientesDataTableRules = class(TDADataTableRules, IClientes)
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1359,6 +1369,10 @@ type
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
function GetIGNORAR_CONTABILIDADValue: Integer; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1429,6 +1443,8 @@ type
property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1438,7 +1454,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{9FFF9137-76D8-4FB3-96BE-53594EA634D8}']
['{9EFD8DE5-E98C-4071-8CF6-E75A9AA9E3C3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1571,6 +1587,10 @@ type
procedure SetCERTIFICACIONValue(const aValue: String);
function GetCERTIFICACIONIsNull: Boolean;
procedure SetCERTIFICACIONIsNull(const aValue: Boolean);
function GetIGNORAR_CONTABILIDADValue: Integer;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
{ Properties }
@ -1640,10 +1660,12 @@ type
property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
end;
{ TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1780,6 +1802,10 @@ type
procedure SetCERTIFICACIONValue(const aValue: String); virtual;
function GetCERTIFICACIONIsNull: Boolean; virtual;
procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual;
function GetIGNORAR_CONTABILIDADValue: Integer; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1848,6 +1874,8 @@ type
property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1857,7 +1885,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{710C416F-BD6B-4C34-AC34-1986426909E9}']
['{6A39017E-6CFF-4DA5-9685-9CA1F72AD052}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2040,7 +2068,7 @@ type
end;
{ TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
private
f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings;
@ -2240,7 +2268,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{54D84CC9-316E-4C07-9706-B7C61098524E}']
['{FC464110-B68D-47F7-B110-E8F0CAB02469}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2343,7 +2371,7 @@ type
end;
{ TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2455,7 +2483,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{FFE1721A-DDEB-4441-BA4D-C690D29ED039}']
['{E18F5CD7-822B-48C7-9C22-A13591398D44}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2493,7 +2521,7 @@ type
end;
{ TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
private
protected
{ Property getters and setters }
@ -2538,7 +2566,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{E11DB2D2-063E-4057-97A1-E407BF2BF7D2}']
['{CA3DAC4A-3007-47A3-89C2-B8D256F3302E}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2552,7 +2580,7 @@ type
end;
{ TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
private
protected
{ Property getters and setters }
@ -2573,7 +2601,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{C1EDA3D0-AB74-460D-ACE5-66ABBB2DB007}']
['{69A5969A-4106-4587-BAED-06541567A599}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2587,7 +2615,7 @@ type
end;
{ TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
private
protected
{ Property getters and setters }
@ -2608,7 +2636,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{5CA1791F-1EE5-4894-9282-EDE57B721677}']
['{862C6067-8EDC-4805-8BA3-3131D61764C6}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2741,7 +2769,7 @@ type
end;
{ TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -4491,6 +4519,27 @@ begin
DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsVariant := Null;
end;
function TClientesDataTableRules.GetIGNORAR_CONTABILIDADValue: Integer;
begin
result := DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsInteger;
end;
procedure TClientesDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsInteger := aValue;
end;
function TClientesDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].IsNull;
end;
procedure TClientesDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsVariant := Null;
end;
{ TProveedoresDataTableRules }
constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
@ -5203,6 +5252,27 @@ begin
DataTable.Fields[idx_ProveedoresCERTIFICACION].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetIGNORAR_CONTABILIDADValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger;
end;
procedure TProveedoresDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger := aValue;
end;
function TProveedoresDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].IsNull;
end;
procedure TProveedoresDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsVariant := Null;
end;
{ TEmpleadosDataTableRules }
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,23 +9,23 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_SubCuentasContactoDelta = '{5B506DC8-4BEB-403B-A19C-F1EBF4C6A0DF}';
RID_ContactosDelta = '{025485B6-6802-4164-B843-EE188E7BE7F9}';
RID_GruposClienteDelta = '{B03F1C25-B30E-4C63-8AA8-9F8340D8C69A}';
RID_DatosBancariosDelta = '{129907FB-F58D-490B-B218-54A501539647}';
RID_ClientesDelta = '{86DFD53C-4819-4245-A6F3-BB96B7532388}';
RID_ProveedoresDelta = '{FA7BB965-5A6D-4BE9-A69F-B2F0C11BF85B}';
RID_EmpleadosDelta = '{6C1E2150-8536-48CB-A19C-28836A07D0C9}';
RID_DireccionesContactoDelta = '{0AF5A4B4-C3E7-4953-AA6D-6C0580A72F6A}';
RID_ClientesDescuentosDelta = '{EE6B334D-D7F4-496D-B9C6-18EE75B86EF8}';
RID_GruposProveedorDelta = '{11E1D581-8AF0-4A90-85D1-2F750318A7BB}';
RID_GruposEmpleadoDelta = '{051B0E6E-74A9-4169-9680-390315179437}';
RID_Contactos_RefreshDelta = '{B6D16683-2657-4890-927A-0870813D9B96}';
RID_SubCuentasContactoDelta = '{C61B54E1-F314-4542-997D-397E249D61FA}';
RID_ContactosDelta = '{D3E2A0CE-96A3-41A9-85B4-7BE8CFA3C79A}';
RID_GruposClienteDelta = '{F5B47AD6-5B43-4FE1-9607-5CB39CB79A21}';
RID_DatosBancariosDelta = '{C2A910E1-08F1-49F7-B0E9-85C448A3FA78}';
RID_ClientesDelta = '{DB2F0740-6510-4933-8319-A6C42A41B1D3}';
RID_ProveedoresDelta = '{4F4D8353-5DFD-493F-98A7-098340C343A0}';
RID_EmpleadosDelta = '{D89254AA-A456-4113-9356-87878DD0342B}';
RID_DireccionesContactoDelta = '{488B60E5-27F3-4A85-B8CF-A78A05CE3555}';
RID_ClientesDescuentosDelta = '{0E2CBA43-B994-4B22-9560-96C73CE304F3}';
RID_GruposProveedorDelta = '{EFF7AA25-B5B3-41EE-AB8F-2E889A72B8E6}';
RID_GruposEmpleadoDelta = '{784E3585-2E4F-441F-9B7C-ACF190737701}';
RID_Contactos_RefreshDelta = '{141705B2-3547-40A3-B6B9-4ABFDE30CD10}';
type
{ ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{5B506DC8-4BEB-403B-A19C-F1EBF4C6A0DF}']
['{C61B54E1-F314-4542-997D-397E249D61FA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
@ -119,7 +119,7 @@ type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{025485B6-6802-4164-B843-EE188E7BE7F9}']
['{D3E2A0CE-96A3-41A9-85B4-7BE8CFA3C79A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -418,7 +418,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{B03F1C25-B30E-4C63-8AA8-9F8340D8C69A}']
['{F5B47AD6-5B43-4FE1-9607-5CB39CB79A21}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -452,7 +452,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{129907FB-F58D-490B-B218-54A501539647}']
['{C2A910E1-08F1-49F7-B0E9-85C448A3FA78}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -582,7 +582,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{86DFD53C-4819-4245-A6F3-BB96B7532388}']
['{DB2F0740-6510-4933-8319-A6C42A41B1D3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -618,6 +618,7 @@ type
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : SmallInt;
function GetOldCODIGO_ASIGNADOValue : String;
function GetOldIGNORAR_CONTABILIDADValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -654,6 +655,7 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
end;
{ TClientesBusinessProcessorRules }
@ -866,6 +868,12 @@ type
function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
function GetIGNORAR_CONTABILIDADValue: Integer; virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
function GetOldIGNORAR_CONTABILIDADValue: Integer; virtual;
function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1004,6 +1012,10 @@ type
property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
property IGNORAR_CONTABILIDAD : Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1013,7 +1025,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{FA7BB965-5A6D-4BE9-A69F-B2F0C11BF85B}']
['{4F4D8353-5DFD-493F-98A7-098340C343A0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1048,6 +1060,7 @@ type
function GetOldTIENDA_WEBValue : SmallInt;
function GetOldHOMOLOGADOValue : SmallInt;
function GetOldCERTIFICACIONValue : String;
function GetOldIGNORAR_CONTABILIDADValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -1083,6 +1096,7 @@ type
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
end;
{ TProveedoresBusinessProcessorRules }
@ -1289,6 +1303,12 @@ type
function GetOldCERTIFICACIONIsNull: Boolean; virtual;
procedure SetCERTIFICACIONValue(const aValue: String); virtual;
procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual;
function GetIGNORAR_CONTABILIDADValue: Integer; virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
function GetOldIGNORAR_CONTABILIDADValue: Integer; virtual;
function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1423,6 +1443,10 @@ type
property CERTIFICACIONIsNull : Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
property OldCERTIFICACIONIsNull : Boolean read GetOldCERTIFICACIONIsNull;
property IGNORAR_CONTABILIDAD : Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1432,7 +1456,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{6C1E2150-8536-48CB-A19C-28836A07D0C9}']
['{D89254AA-A456-4113-9356-87878DD0342B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1819,7 +1843,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{0AF5A4B4-C3E7-4953-AA6D-6C0580A72F6A}']
['{488B60E5-27F3-4A85-B8CF-A78A05CE3555}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2034,7 +2058,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{EE6B334D-D7F4-496D-B9C6-18EE75B86EF8}']
['{0E2CBA43-B994-4B22-9560-96C73CE304F3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2116,7 +2140,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{11E1D581-8AF0-4A90-85D1-2F750318A7BB}']
['{EFF7AA25-B5B3-41EE-AB8F-2E889A72B8E6}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2150,7 +2174,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{051B0E6E-74A9-4169-9680-390315179437}']
['{784E3585-2E4F-441F-9B7C-ACF190737701}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2184,7 +2208,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{B6D16683-2657-4890-927A-0870813D9B96}']
['{141705B2-3547-40A3-B6B9-4ABFDE30CD10}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -4800,6 +4824,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := Null;
end;
function TClientesBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
end;
function TClientesBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD]);
end;
function TClientesBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
end;
function TClientesBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesIGNORAR_CONTABILIDAD]);
end;
procedure TClientesBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] := Null;
end;
{ TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -5843,6 +5898,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := Null;
end;
function TProveedoresBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
end;
function TProveedoresBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD]);
end;
function TProveedoresBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
end;
function TProveedoresBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD]);
end;
procedure TProveedoresBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD] := aValue;
end;
procedure TProveedoresBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD] := Null;
end;
{ TEmpleadosBusinessProcessorRules }
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -76,7 +76,7 @@ begin
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
Execute;
end;
finally
@ -113,7 +113,8 @@ begin
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
Execute;
end;
finally

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

@ -93,6 +93,10 @@ type
function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer);
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
end;
IBizProveedor = interface (IBizContacto)
@ -141,6 +145,10 @@ type
function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer);
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
end;
IBizEmpleado = interface (IBizContacto)
@ -253,6 +261,9 @@ type
function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos);
function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer);
function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@ -272,6 +283,7 @@ type
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
end;
@ -310,6 +322,9 @@ type
function GetGRUPO_PROVEEDORValue: String;
procedure SetGRUPO_PROVEEDORValue(const aValue: String);
function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer);
function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@ -328,6 +343,7 @@ type
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
end;
@ -496,6 +512,11 @@ begin
result := DataTable.Fields[idx_ClientesID_TIPO_IVA].AsInteger;
end;
function TBizCliente.GetIgnorar_Contabilidad: Integer;
begin
result := DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsInteger;
end;
function TBizCliente.GetMOTIVO_BLOQUEOValue: String;
begin
result := DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].AsString;
@ -532,6 +553,11 @@ begin
DataTable.Fields[idx_ClientesID_TIPO_IVA].AsInteger := aValue;
end;
procedure TBizCliente.SetIgnorar_Contabilidad(const Value: Integer);
begin
DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsInteger := Value;
end;
procedure TBizCliente.SetMOTIVO_BLOQUEOValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].AsString := aValue;
@ -601,6 +627,7 @@ begin
BLOQUEADO := 0;
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
REGIMEN_IVA := CLIENTE_REGIMEN_IVA;
IGNORAR_CONTABILIDAD := 1;
end;
{ TBizProveedor }
@ -625,6 +652,11 @@ begin
result := DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger;
end;
function TBizProveedor.GetIgnorar_Contabilidad: Integer;
begin
result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger;
end;
function TBizProveedor.GetREGIMEN_IVAValue: String;
begin
result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
@ -645,6 +677,7 @@ begin
inherited;
ID_CATEGORIA := CATEGORIA_PROVEEDOR;
REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA;
IGNORAR_CONTABILIDAD := 1;
end;
constructor TBizProveedor.Create(aDataTable: TDADataTable);
@ -723,6 +756,11 @@ begin
DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger := aValue;
end;
procedure TBizProveedor.SetIgnorar_Contabilidad(const Value: Integer);
begin
DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger := Value;
end;
procedure TBizProveedor.SetREGIMEN_IVAValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;

6
Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
View File

@ -20,7 +20,7 @@ type
implementation
uses
uDataModuleServer, uDAClasses,
uDataModuleServer, uDAClasses,
schContactosClient_Intf, uBusinessUtils;
{ TBizProveedorServer }
@ -74,6 +74,7 @@ begin
ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
Execute;
end;
finally
@ -108,7 +109,8 @@ begin
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
Execute;
end;
finally

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

@ -590,6 +590,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'CODIGO_ASIGNADO'
TableField = 'CODIGO_ASIGNADO'
end
item
DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD'
end>
end>
Name = 'Clientes'
@ -706,10 +710,12 @@ object srvContactos: TsrvContactos
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Clientes_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
@ -787,6 +793,12 @@ object srvContactos: TsrvContactos
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datInteger
DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD'
end>
end
item
@ -928,6 +940,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'CERTIFICACION'
TableField = 'CERTIFICACION'
end
item
DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD'
end>
end>
Name = 'Proveedores'
@ -1044,10 +1060,12 @@ object srvContactos: TsrvContactos
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Proveedores_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Proveedores_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
@ -1087,7 +1105,7 @@ object srvContactos: TsrvContactos
item
Name = 'GRUPO_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
end
item
Name = 'REGIMEN_IVA'
@ -1120,6 +1138,11 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
DictionaryEntry = 'Proveedores_CERTIFICACION'
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datInteger
DictionaryEntry = 'Proveedores_IGNORAR_CONTABILIDAD'
end>
end
item
@ -2615,6 +2638,10 @@ object srvContactos: TsrvContactos
item
Name = 'CODIGO_ASIGNADO'
Value = ''
end
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end>
Statements = <
item
@ -2624,11 +2651,11 @@ object srvContactos: TsrvContactos
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' +
'ARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' +
'BLOQUEADO, MOTIVO_BLOQUEO,'#10' REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' +
'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO)'#10' VALUES'#10' (:ID_CLIENTE,' +
' :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL, ' +
':VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIME' +
'N_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_A' +
'SIGNADO)'#10
'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO, IGNORAR_CONTABILIDAD)'#10' VA' +
'LUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' ' +
' :NOMBRE_COMERCIAL, :VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :M' +
'OTIVO_BLOQUEO, :REGIMEN_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, ' +
':TIENDA_WEB, :CODIGO_ASIGNADO, :IGNORAR_CONTABILIDAD)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2704,6 +2731,10 @@ object srvContactos: TsrvContactos
Name = 'CODIGO_ASIGNADO'
Value = ''
end
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end
item
Name = 'OLD_ID_CLIENTE'
Value = ''
@ -2720,8 +2751,8 @@ object srvContactos: TsrvContactos
'NCIMIENTO_FACTURAS,'#10' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA ' +
'= :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAG' +
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' +
'GNADO = :CODIGO_ASIGNADO'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIEN' +
'TE)'#10
'GNADO = :CODIGO_ASIGNADO,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CO' +
'NTABILIDAD'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2731,74 +2762,51 @@ object srvContactos: TsrvContactos
Params = <
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'DESCRIPCION_PROVEEDOR'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'HOMOLOGADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'CERTIFICACION'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'GRUPO_PROVEEDOR'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end>
Statements = <
item
@ -2808,10 +2816,11 @@ object srvContactos: TsrvContactos
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' +
'UPO_PROVEEDOR)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCU' +
'ENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA' +
','#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, ' +
':GRUPO_PROVEEDOR)'
'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD)'#10' VALUES'#10' (:ID_PROVE' +
'EDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :COD' +
'IGO_ASIGNADO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HO' +
'MOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' :IGNORAR_CONTABI' +
'LIDAD)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2841,80 +2850,55 @@ object srvContactos: TsrvContactos
Params = <
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'DESCRIPCION_PROVEEDOR'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'HOMOLOGADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'CERTIFICACION'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'GRUPO_PROVEEDOR'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end
item
Name = 'OLD_ID_PROVEEDOR'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -2927,8 +2911,9 @@ object srvContactos: TsrvContactos
'IGNADO = :CODIGO_ASIGNADO,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' I' +
'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' +
' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' +
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR'#10' WHERE'#10' (ID_PROVEEDOR ' +
'= :OLD_ID_PROVEEDOR)'
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' +
'= :IGNORAR_CONTABILIDAD'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROV' +
'EEDOR)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -4319,6 +4304,35 @@ object srvContactos: TsrvContactos
item
Name = 'SubCuentasContacto_ID_CONTACTO'
DataType = datInteger
end
item
Name = 'Proveedores_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'Proveedores_FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'Proveedores_IGNORAR_CONTABILIDAD'
DataType = datInteger
end
item
Name = 'Clientes_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'Clientes_FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'Clientes_CODIGO_ASIGNADO'
DataType = datString
Size = 255
end
item
Name = 'Clientes_IGNORAR_CONTABILIDAD'
DataType = datInteger
end>
Left = 126
Top = 14

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

@ -65,7 +65,6 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl
Width = 656
Height = 490
ActivePage = pagContabilidad
ExplicitWidth = 656
ExplicitHeight = 490
inherited pagGeneral: TTabSheet
@ -293,9 +292,23 @@ inherited fEditorCliente: TfEditorCliente
Width = 648
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 648
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 419
ExplicitLeft = 419
Left = 418
ExplicitLeft = 418
ExplicitWidth = 112
Width = 112
end
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
end
end
@ -345,14 +358,20 @@ inherited fEditorCliente: TfEditorCliente
inherited cbRegimenIVA: TcxDBComboBox
Top = 30
ExplicitTop = 30
ExplicitWidth = 121
Width = 121
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111
ExplicitTop = 111
ExplicitWidth = 121
Width = 121
end
inherited cbFormaPago: TcxDBLookupComboBox
Top = 57
ExplicitTop = 57
ExplicitWidth = 121
Width = 121
end
inherited bFormasPago: TButton
Left = 180
@ -363,6 +382,8 @@ inherited fEditorCliente: TfEditorCliente
inherited eIVA: TcxDBLookupComboBox
Top = 84
ExplicitTop = 84
ExplicitWidth = 121
Width = 121
end
inherited bTiposIVA: TButton
Left = 180
@ -529,10 +550,18 @@ inherited fEditorCliente: TfEditorCliente
Height = 462
ExplicitWidth = 648
ExplicitHeight = 462
inherited eRefSubCuenta: TcxDBTextEdit
ExplicitWidth = 346
Width = 346
end
inherited BitBtn3: TBitBtn
Left = 401
ExplicitLeft = 401
end
inherited eSubCuenta: TcxDBTextEdit
ExplicitWidth = 265
Width = 265
end
inherited BitBtn1: TBitBtn
Left = 482
ExplicitLeft = 482
@ -541,6 +570,11 @@ inherited fEditorCliente: TfEditorCliente
Left = 563
ExplicitLeft = 563
end
inherited cbIgnorarContabilidad: TcxDBCheckBox
DataBinding.DataSource = frViewCliente1.dsContacto
ExplicitWidth = 300
Width = 300
end
end
end
end

1
Source/Modulos/Contactos/Views/uEditorContactos.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorContactos: TfEditorContactos
Left = 285
Top = 448
Caption = 'Lista de contactos'
ExplicitWidth = 320
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13

3
Source/Modulos/Contactos/Views/uEditorContactos.pas
View File

@ -152,8 +152,6 @@ procedure TfEditorContactos.DuplicarInterno;
var
AContacto : IBizContacto;
begin
AppFactuGES.ShowCapado;
{
inherited;
AContacto := FController.Duplicar(Contactos);
try
@ -161,7 +159,6 @@ AppFactuGES.ShowCapado;
finally
actRefrescar.Execute;
end;
}
end;
procedure TfEditorContactos.EliminarInterno;

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

@ -3,7 +3,7 @@ inherited fEditorProveedor: TfEditorProveedor
ClientHeight = 590
ClientWidth = 648
ExplicitWidth = 656
ExplicitHeight = 617
ExplicitHeight = 624
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -55,7 +55,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pgPaginas: TPageControl
Width = 648
Height = 495
ActivePage = PagContabilidad
ExplicitWidth = 648
ExplicitHeight = 495
inherited pagGeneral: TTabSheet
@ -399,34 +398,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar
Width = 640
ExplicitWidth = 640
inherited ToolButton1: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 74
end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 67
end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 117
end
end
end
end
@ -448,14 +419,25 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 640
ExplicitHeight = 467
inherited layoutApunte: TdxLayoutControl
Width = 640
Height = 467
ExplicitHeight = 304
ExplicitWidth = 640
ExplicitHeight = 467
inherited eRefSubCuenta: TcxDBTextEdit
ExplicitWidth = 346
Width = 346
end
inherited BitBtn3: TBitBtn
Left = 393
ExplicitLeft = 393
end
inherited eSubCuenta: TcxDBTextEdit
ExplicitWidth = 265
Width = 265
end
inherited BitBtn1: TBitBtn
Left = 474
ExplicitLeft = 474
@ -464,6 +446,11 @@ inherited fEditorProveedor: TfEditorProveedor
Left = 555
ExplicitLeft = 555
end
inherited cbIgnorarContabilidad: TcxDBCheckBox
DataBinding.DataSource = frViewProveedor1.dsContacto
ExplicitWidth = 300
Width = 300
end
end
end
end

28
Source/Modulos/Contactos/Views/uViewDireccionesEntrega.dfm
View File

@ -75,5 +75,33 @@ inherited frViewDireccionesEntrega: TfrViewDireccionesEntrega
inherited ToolBar1: TToolBar
Width = 583
ExplicitWidth = 583
inherited ToolButton1: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 74
end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 67
end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 117
end
end
end

9
Source/Modulos/Contactos/Views/uViewDireccionesEntrega.pas
View File

@ -24,6 +24,7 @@ type
cxGridViewEMAIL: TcxGridDBColumn;
cxGridViewPORTE: TcxGridDBColumn;
procedure cxGridViewDblClick(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
protected
procedure AnadirInterno; override;
procedure ModificarInterno; override;
@ -36,7 +37,13 @@ implementation
{$R *.dfm}
uses
uDireccionesContactoController, uBizDireccionesContacto;
uDialogUtils, uDireccionesContactoController, uBizDireccionesContacto;
procedure TfrViewDireccionesEntrega.actEliminarExecute(Sender: TObject);
begin
if (ShowConfirmMessage('Eliminar una dirección', '¿Desea eliminar esta dirección?') = IDYES) then
inherited;
end;
procedure TfrViewDireccionesEntrega.AnadirInterno;
begin

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

@ -7,19 +7,19 @@ inherited frViewProveedor: TfrViewProveedor
Height = 454
ExplicitHeight = 454
inherited PngSpeedButton1: TPngSpeedButton
Left = 613
ExplicitLeft = 613
Left = 612
ExplicitLeft = 612
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 613
ExplicitLeft = 613
Left = 612
ExplicitLeft = 612
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 613
ExplicitLeft = 613
Left = 612
ExplicitLeft = 612
end
object Label1: TLabel [3]
Left = 372
Left = 371
Top = 307
Width = 342
Height = 26
@ -56,10 +56,10 @@ inherited frViewProveedor: TfrViewProveedor
Width = 163
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 277
Left = 276
Top = 331
TabOrder = 11
ExplicitLeft = 277
ExplicitLeft = 276
ExplicitTop = 331
end
inherited eObservaciones: TcxDBMemo
@ -70,7 +70,7 @@ inherited frViewProveedor: TfrViewProveedor
Height = 20
end
object cxDBCheckBox1: TcxDBCheckBox [9]
Left = 372
Left = 371
Top = 280
Caption = 'Incluir este proveedor en la tienda web'
DataBinding.DataField = 'TIENDA_WEB'
@ -200,30 +200,30 @@ inherited frViewProveedor: TfrViewProveedor
Width = 221
end
inherited eTlfParticular: TcxDBTextEdit
Left = 467
Left = 466
TabOrder = 14
ExplicitLeft = 467
ExplicitLeft = 466
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 467
Left = 466
TabOrder = 13
ExplicitLeft = 467
ExplicitLeft = 466
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
Left = 467
Left = 466
TabOrder = 15
ExplicitLeft = 467
ExplicitLeft = 466
ExplicitWidth = 155
Width = 155
end
inherited eFax: TcxDBTextEdit
Left = 467
Left = 466
TabOrder = 16
ExplicitLeft = 467
ExplicitLeft = 466
ExplicitWidth = 121
Width = 121
end
@ -240,25 +240,25 @@ inherited frViewProveedor: TfrViewProveedor
Width = 205
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 467
Left = 466
Properties.Prefix = 'mailto:'
TabOrder = 17
ExplicitLeft = 467
ExplicitLeft = 466
ExplicitWidth = 133
Width = 133
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 467
Left = 466
Properties.Prefix = 'mailto:'
TabOrder = 18
ExplicitLeft = 467
ExplicitLeft = 466
ExplicitWidth = 133
Width = 133
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 467
Left = 466
TabOrder = 19
ExplicitLeft = 467
ExplicitLeft = 466
ExplicitWidth = 133
Width = 133
end
@ -299,6 +299,7 @@ inherited frViewProveedor: TfrViewProveedor
end
object dxLayoutControlContactoGroup14: TdxLayoutGroup [1]
Caption = 'Homologaci'#243'n'
Visible = False
object dxLayoutControlContactoItem22: TdxLayoutItem
Caption = 'El proveedor est'#225' homologado'
ShowCaption = False

104
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
View File

@ -1,6 +1,6 @@
inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 451
Height = 304
Height = 149
Align = alClient
AutoSize = True
OnCreate = CustomViewCreate
@ -11,20 +11,22 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Left = 0
Top = 0
Width = 451
Height = 304
Height = 149
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 177
DesignSize = (
451
304)
149)
object eRefSubCuenta: TcxDBTextEdit
Left = 93
Top = 10
Top = 37
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_SUBCUENTA'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = True
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
@ -35,24 +37,25 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
TabOrder = 1
Width = 346
end
object BitBtn3: TBitBtn
Left = 204
Top = 10
Top = 37
Width = 75
Height = 25
Action = actElegirSubCuenta
Caption = 'Elegir subcuenta'
TabOrder = 1
TabOrder = 2
end
object eSubCuenta: TcxDBTextEdit
Left = 93
Top = 41
Top = 68
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = True
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
@ -63,26 +66,49 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
TabOrder = 5
Width = 265
end
object BitBtn1: TBitBtn
Left = 285
Top = 10
Top = 37
Width = 75
Height = 25
Action = actAnadirSubcuenta
Caption = 'A'#241'adir subcuenta'
TabOrder = 2
TabOrder = 3
end
object BitBtn2: TBitBtn
Left = 366
Top = 10
Top = 37
Width = 75
Height = 25
Action = actVerSubcuenta
Caption = 'Ver subcuenta'
TabOrder = 3
TabOrder = 4
end
object cbIgnorarContabilidad: TcxDBCheckBox
Left = 10
Top = 10
Caption = 'Ignorar en contabilidad'
DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Properties.OnChange = cbIgnorarContabilidadPropertiesChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 300
end
object layoutApunteGroup_Root: TdxLayoutGroup
ShowCaption = False
@ -98,29 +124,39 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
object layoutApunteGroup3: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object layoutApunteItem2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Ref. subcuenta:'
Control = eRefSubCuenta
object layoutApunteItem6: TdxLayoutItem
ShowCaption = False
Control = cbIgnorarContabilidad
ControlOptions.ShowBorder = False
end
object layoutApunteItem4: TdxLayoutItem
object layoutApunteGroup2: TdxLayoutGroup
ShowCaption = False
Control = BitBtn3
ControlOptions.ShowBorder = False
end
object layoutApunteItem1: TdxLayoutItem
ShowCaption = False
Control = BitBtn1
ControlOptions.ShowBorder = False
end
object layoutApunteItem3: TdxLayoutItem
ShowCaption = False
Control = BitBtn2
ControlOptions.ShowBorder = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object layoutApunteItem2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Ref. subcuenta:'
Control = eRefSubCuenta
ControlOptions.ShowBorder = False
end
object layoutApunteItem4: TdxLayoutItem
ShowCaption = False
Control = BitBtn3
ControlOptions.ShowBorder = False
end
object layoutApunteItem1: TdxLayoutItem
ShowCaption = False
Control = BitBtn1
ControlOptions.ShowBorder = False
end
object layoutApunteItem3: TdxLayoutItem
ShowCaption = False
Control = BitBtn2
ControlOptions.ShowBorder = False
end
end
end
object layoutApunteItem5: TdxLayoutItem
@ -135,12 +171,13 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Left = 24
Top = 88
end
object png: TActionList
object actLista: TActionList
Left = 64
Top = 88
object actElegirSubCuenta: TAction
Caption = 'Elegir subcuenta'
OnExecute = actElegirSubCuentaExecute
OnUpdate = actElegirSubCuentaUpdate
end
object actVerSubcuenta: TAction
Caption = 'Ver subcuenta'
@ -150,6 +187,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
object actAnadirSubcuenta: TAction
Caption = 'A'#241'adir subcuenta'
OnExecute = actAnadirSubcuentaExecute
OnUpdate = actAnadirSubcuentaUpdate
end
end
object LargeImages: TPngImageList

50
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas
View File

@ -9,7 +9,7 @@ uses
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit,
cxImageComboBox, cxMaskEdit, cxCalendar, ImgList, PngImageList, ActnList,
cxCurrencyEdit, uSubCuentasController;
cxCurrencyEdit, uSubCuentasController, cxCheckBox;
type
IViewSubCuenta = interface(IViewBase)
@ -28,7 +28,7 @@ type
eRefSubCuenta: TcxDBTextEdit;
layoutApunteItem4: TdxLayoutItem;
BitBtn3: TBitBtn;
png: TActionList;
actLista: TActionList;
actElegirSubCuenta: TAction;
LargeImages: TPngImageList;
layoutApunteItem5: TdxLayoutItem;
@ -40,11 +40,17 @@ type
BitBtn1: TBitBtn;
layoutApunteItem3: TdxLayoutItem;
BitBtn2: TBitBtn;
layoutApunteItem6: TdxLayoutItem;
cbIgnorarContabilidad: TcxDBCheckBox;
layoutApunteGroup2: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actElegirSubCuentaExecute(Sender: TObject);
procedure actAnadirSubcuentaExecute(Sender: TObject);
procedure actVerSubcuentaExecute(Sender: TObject);
procedure cbIgnorarContabilidadPropertiesChange(Sender: TObject);
procedure actElegirSubCuentaUpdate(Sender: TObject);
procedure actAnadirSubcuentaUpdate(Sender: TObject);
procedure actVerSubcuentaUpdate(Sender: TObject);
protected
@ -69,11 +75,17 @@ implementation
procedure TfrViewSubCuentaContacto.actAnadirSubcuentaExecute(Sender: TObject);
begin
inherited;
{ if Supports(IBizCliente, FContacto) then
FController.VerSubCuentaContacto((Contacto as IBizCliente).SubCuentas)
else if Supports(IBizProveedor, FContacto) then
FController.VerSubCuentaContacto((Contacto as IBizProveedor).SubCuentas);
}
if Supports(FContacto, IBizCliente) then
FController.AnadirSubCuentaContacto((Contacto as IBizCliente).SubCuentas, CTE_CUENTASCLIENTE)
else if Supports(FContacto, IBizProveedor) then
FController.AnadirSubCuentaContacto((Contacto as IBizProveedor).SubCuentas, CTE_CUENTASPROVEEDOR);
end;
procedure TfrViewSubCuentaContacto.actAnadirSubcuentaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (not (cbIgnorarContabilidad.Checked))
and (DADataSource.DataTable.IsEmpty);
end;
procedure TfrViewSubCuentaContacto.actElegirSubCuentaExecute(Sender: TObject);
@ -85,6 +97,13 @@ begin
FController.ElegirSubCuentaContacto((Contacto as IBizProveedor).SubCuentas, CTE_CUENTASPROVEEDOR);
end;
procedure TfrViewSubCuentaContacto.actElegirSubCuentaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (not (cbIgnorarContabilidad.Checked))
and (DADataSource.DataTable.IsEmpty);
end;
procedure TfrViewSubCuentaContacto.actVerSubcuentaExecute(Sender: TObject);
begin
inherited;
@ -97,7 +116,22 @@ end;
procedure TfrViewSubCuentaContacto.actVerSubcuentaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := not eRefSubCuenta.DataBinding.Field.IsNull;
(Sender as TAction).Enabled := (not eRefSubCuenta.DataBinding.Field.IsNull)
and (not cbIgnorarContabilidad.Checked);
end;
procedure TfrViewSubCuentaContacto.cbIgnorarContabilidadPropertiesChange(Sender: TObject);
begin
inherited;
if cbIgnorarContabilidad.Checked then
begin
if Supports(FContacto, IBizCliente) then
FController.EliminarSubCuentaContacto((Contacto as IBizCliente).SubCuentas)
else if Supports(FContacto, IBizProveedor) then
FController.EliminarSubCuentaContacto((Contacto as IBizProveedor).SubCuentas);
end
else
//Rellenar automaticamente la cuenta según la tienda a la que pertenezca
end;
{