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

Se adaptan las fichas de cliente y de proveedor para que acepten varios dias de pago (en los clientes se desactiva para acana), ademas de retocar la lógica de generacion de los recibos asociados a las facturas.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@368 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-12-18 15:38:17 +00:00
parent 6da967d84c
commit 709430d667
16 changed files with 1268 additions and 332 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -205,12 +205,6 @@ inherited DataModuleClientes: TDataModuleClientes
DisplayLabel = 'Nombre comercial' DisplayLabel = 'Nombre comercial'
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL' DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
end end
item
Name = 'VENCIMIENTO_FACTURAS'
DataType = datInteger
DisplayLabel = 'Vencimiento'
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS'
end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
DataType = datSmallInt DataType = datSmallInt
@ -275,6 +269,18 @@ inherited DataModuleClientes: TDataModuleClientes
Size = 255 Size = 255
DisplayLabel = 'Clientes_PROCEDENCIA_CLIENTE' DisplayLabel = 'Clientes_PROCEDENCIA_CLIENTE'
DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE' DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE'
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datInteger
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datInteger
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -302,6 +302,18 @@ inherited DataModuleProveedores: TDataModuleProveedores
item item
Name = 'ES_ACREEDOR' Name = 'ES_ACREEDOR'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datInteger
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datInteger
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,20 +9,20 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PersonalContacto = '{72AC6BFD-BAC4-42A3-9D57-8A39C408F0B6}'; RID_PersonalContacto = '{10850DAC-8A04-46B8-882A-D9D05178F533}';
RID_DarTiendaDeUsuario = '{C60E8268-B657-4D79-8D39-FB2BBD7C9A9C}'; RID_DarTiendaDeUsuario = '{4A3CFB9A-64F8-41D3-8B67-D3BD773EC6F0}';
RID_SubCuentasContacto = '{1E056E61-ADFD-4989-AB59-03B790458F58}'; RID_SubCuentasContacto = '{98A05B2F-8C31-4012-A9C3-40E3FD982FEF}';
RID_Contactos = '{98A3BC5C-8827-4E10-AF42-E0697B8B2A48}'; RID_Contactos = '{EC034344-6F48-4962-B530-9C8590FFA881}';
RID_GruposCliente = '{0C8C6F79-4D64-4EC3-BB36-D4C152D61256}'; RID_GruposCliente = '{0C0F2DE5-1C7D-42ED-AF00-57BB3F081EEA}';
RID_DatosBancarios = '{C1CC001F-5BD9-4DD4-B687-5E1B091D3430}'; RID_DatosBancarios = '{8120C3EA-4394-4FA5-AA19-9DE1AABDABD6}';
RID_Clientes = '{1B75257E-3A1B-42D4-83C3-214A06582B5D}'; RID_Clientes = '{D01FA8E7-3AEC-4B37-9F26-015F3CD695CA}';
RID_Proveedores = '{A8E52EFB-F601-4D35-8AEF-875312B435D1}'; RID_Proveedores = '{510572A1-E390-401D-A8CE-007F4104350C}';
RID_Vendedores = '{094768D6-A0E0-4FEA-BEF6-60FC3E569425}'; RID_Vendedores = '{DEDAD190-7EF1-42A4-BAED-CFFD9D5CED4D}';
RID_DireccionesContacto = '{8060C203-A78C-4000-8DAA-8C1F677F4481}'; RID_DireccionesContacto = '{58A83B78-7C3F-4742-87CD-CC211F2D553F}';
RID_ClientesDescuentos = '{05FF232F-E798-4FFD-8CF2-99687BE644B7}'; RID_ClientesDescuentos = '{BFBA6A41-1628-4808-B100-11561E0ED847}';
RID_ProcedenciasCliente = '{7E7AE2C9-9D29-472B-954B-AFEF756ADD5B}'; RID_ProcedenciasCliente = '{E65DD5CD-347E-4C08-BB87-DDF77C45AEE6}';
RID_GruposProveedor = '{0D48BF67-135E-47F2-9105-E833DB8035C5}'; RID_GruposProveedor = '{4A8B2052-F645-428F-92D7-E8897E201BEC}';
RID_Contactos_Refresh = '{BA3C07F7-9B68-4D45-ADCD-2EB0F9A3B4F9}'; RID_Contactos_Refresh = '{A7344712-243B-40A9-A854-7EB1096E03B0}';
{ Data table names } { Data table names }
nme_PersonalContacto = 'PersonalContacto'; nme_PersonalContacto = 'PersonalContacto';
@ -198,7 +198,6 @@ const
fld_ClientesTIENDA = 'TIENDA'; fld_ClientesTIENDA = 'TIENDA';
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_ClientesVENCIMIENTO_FACTURAS = 'VENCIMIENTO_FACTURAS';
fld_ClientesBLOQUEADO = 'BLOQUEADO'; fld_ClientesBLOQUEADO = 'BLOQUEADO';
fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA'; fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA';
fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO'; fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO';
@ -210,6 +209,9 @@ const
fld_ClientesIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD'; fld_ClientesIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_ClientesTIENE_SUBCUENTA = 'TIENE_SUBCUENTA'; fld_ClientesTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
fld_ClientesPROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE'; fld_ClientesPROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
{ Clientes field indexes } { Clientes field indexes }
idx_ClientesID = 0; idx_ClientesID = 0;
@ -239,18 +241,20 @@ const
idx_ClientesTIENDA = 24; idx_ClientesTIENDA = 24;
idx_ClientesGRUPO_CLIENTE = 25; idx_ClientesGRUPO_CLIENTE = 25;
idx_ClientesNOMBRE_COMERCIAL = 26; idx_ClientesNOMBRE_COMERCIAL = 26;
idx_ClientesVENCIMIENTO_FACTURAS = 27; idx_ClientesBLOQUEADO = 27;
idx_ClientesBLOQUEADO = 28; idx_ClientesREGIMEN_IVA = 28;
idx_ClientesREGIMEN_IVA = 29; idx_ClientesMOTIVO_BLOQUEO = 29;
idx_ClientesMOTIVO_BLOQUEO = 30; idx_ClientesRECARGO_EQUIVALENCIA = 30;
idx_ClientesRECARGO_EQUIVALENCIA = 31; idx_ClientesID_TIPO_IVA = 31;
idx_ClientesID_TIPO_IVA = 32; idx_ClientesID_FORMA_PAGO = 32;
idx_ClientesID_FORMA_PAGO = 33; idx_ClientesTIENDA_WEB = 33;
idx_ClientesTIENDA_WEB = 34; idx_ClientesCODIGO_ASIGNADO = 34;
idx_ClientesCODIGO_ASIGNADO = 35; idx_ClientesIGNORAR_CONTABILIDAD = 35;
idx_ClientesIGNORAR_CONTABILIDAD = 36; idx_ClientesTIENE_SUBCUENTA = 36;
idx_ClientesTIENE_SUBCUENTA = 37; idx_ClientesPROCEDENCIA_CLIENTE = 37;
idx_ClientesPROCEDENCIA_CLIENTE = 38; idx_ClientesVENCIMIENTO_FACTURAS_1 = 38;
idx_ClientesVENCIMIENTO_FACTURAS_2 = 39;
idx_ClientesVENCIMIENTO_FACTURAS_3 = 40;
{ Proveedores fields } { Proveedores fields }
fld_ProveedoresID = 'ID'; fld_ProveedoresID = 'ID';
@ -292,6 +296,9 @@ const
fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA'; fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
fld_ProveedoresNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ProveedoresNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_ProveedoresES_ACREEDOR = 'ES_ACREEDOR'; fld_ProveedoresES_ACREEDOR = 'ES_ACREEDOR';
fld_ProveedoresVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
{ Proveedores field indexes } { Proveedores field indexes }
idx_ProveedoresID = 0; idx_ProveedoresID = 0;
@ -333,6 +340,9 @@ const
idx_ProveedoresTIENE_SUBCUENTA = 36; idx_ProveedoresTIENE_SUBCUENTA = 36;
idx_ProveedoresNOMBRE_COMERCIAL = 37; idx_ProveedoresNOMBRE_COMERCIAL = 37;
idx_ProveedoresES_ACREEDOR = 38; idx_ProveedoresES_ACREEDOR = 38;
idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 39;
idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 40;
idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 41;
{ Vendedores fields } { Vendedores fields }
fld_VendedoresID = 'ID'; fld_VendedoresID = 'ID';
@ -509,7 +519,7 @@ const
type type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{2A8A2DA0-3149-4746-B9E1-4A11C5277976}'] ['{DEAA6039-614F-4B15-B4F2-F9C9B4DB3A15}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -652,7 +662,7 @@ type
{ IDarTiendaDeUsuario } { IDarTiendaDeUsuario }
IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable) IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable)
['{EB039772-223A-40A0-B5D2-C89B476B082E}'] ['{88F010C0-E12E-4427-8C13-90DCB2CBF53C}']
{ Property getters and setters } { Property getters and setters }
function GetID_TIENDAValue: Integer; function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer); procedure SetID_TIENDAValue(const aValue: Integer);
@ -687,7 +697,7 @@ type
{ ISubCuentasContacto } { ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable) ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{1FB29B7D-89ED-45D7-80CD-702E245E14F0}'] ['{835A0070-997F-416F-9718-CB82124338A8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -782,7 +792,7 @@ type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{5E99E772-2F16-4796-BCC8-3C547E65DF87}'] ['{B479C112-135D-46D0-B72B-2A46C8D32A87}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1105,7 +1115,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{88BEFB2C-1CFD-4887-98B8-F59A4EEBAC41}'] ['{F4F42BF3-C319-4CAC-A11E-435ACF830CC5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1152,7 +1162,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{DCA7CB6A-F958-45AE-B309-9EA1D1C5BB08}'] ['{5BC08B80-5030-40F7-92FB-59256E2C0E75}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1283,7 +1293,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{85F251D9-E428-4D10-A4E8-EB207D2DD0BF}'] ['{48D18C28-B5EE-4C37-B313-A8AF373F3D64}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1392,10 +1402,6 @@ type
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetNOMBRE_COMERCIALIsNull: Boolean; function GetNOMBRE_COMERCIALIsNull: Boolean;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURASValue: Integer;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
function GetVENCIMIENTO_FACTURASIsNull: Boolean;
procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean);
function GetBLOQUEADOValue: SmallInt; function GetBLOQUEADOValue: SmallInt;
procedure SetBLOQUEADOValue(const aValue: SmallInt); procedure SetBLOQUEADOValue(const aValue: SmallInt);
function GetBLOQUEADOIsNull: Boolean; function GetBLOQUEADOIsNull: Boolean;
@ -1440,6 +1446,18 @@ type
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_2Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_3Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -1497,8 +1515,6 @@ type
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
property VENCIMIENTO_FACTURASIsNull: Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull;
property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
@ -1521,6 +1537,12 @@ type
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull; property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue; property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull; property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
end; end;
{ TClientesDataTableRules } { TClientesDataTableRules }
@ -1637,10 +1659,6 @@ type
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual; function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURASValue: Integer; virtual;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURASIsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); virtual;
function GetBLOQUEADOValue: SmallInt; virtual; function GetBLOQUEADOValue: SmallInt; virtual;
procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
function GetBLOQUEADOIsNull: Boolean; virtual; function GetBLOQUEADOIsNull: Boolean; virtual;
@ -1685,6 +1703,18 @@ type
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual; function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1741,8 +1771,6 @@ type
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
property VENCIMIENTO_FACTURASIsNull: Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull;
property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
@ -1765,6 +1793,12 @@ type
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull; property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue; property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull; property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1774,7 +1808,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{A746CF89-1F05-4785-9ACD-C7FAA8986B7B}'] ['{A92DE88A-7E08-4CD2-9E99-757ECD192475}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1931,6 +1965,18 @@ type
procedure SetES_ACREEDORValue(const aValue: SmallInt); procedure SetES_ACREEDORValue(const aValue: SmallInt);
function GetES_ACREEDORIsNull: Boolean; function GetES_ACREEDORIsNull: Boolean;
procedure SetES_ACREEDORIsNull(const aValue: Boolean); procedure SetES_ACREEDORIsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_2Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_3Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -2012,6 +2058,12 @@ type
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue; property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull; property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
end; end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
@ -2176,6 +2228,18 @@ type
procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual; procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual;
function GetES_ACREEDORIsNull: Boolean; virtual; function GetES_ACREEDORIsNull: Boolean; virtual;
procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual; procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -2256,6 +2320,12 @@ type
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue; property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull; property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -2265,7 +2335,7 @@ type
{ IVendedores } { IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable) IVendedores = interface(IDAStronglyTypedDataTable)
['{AC791BCF-44E7-4C31-AAB0-991AC21F4D09}'] ['{D1EF06EF-DA47-4324-AA3F-481CB71ACFDD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2612,7 +2682,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{98C623D9-465F-44A7-AFBF-BB6A7CDD9EBA}'] ['{333D0482-701A-4BB6-AA51-1F1F34D6A8F1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2839,7 +2909,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{9A9DB00C-8F08-4F5A-AC2B-43BC2B4D30CA}'] ['{A1F86ADF-8673-4E8F-B3C4-F864F7A5FEBB}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2922,7 +2992,7 @@ type
{ IProcedenciasCliente } { IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable) IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{830CA7BC-63BD-42FE-B404-35F104D4CF4A}'] ['{9789278E-8F6D-427E-82D1-6386D8AB21AE}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2969,7 +3039,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{EABF7056-21C6-484A-90A5-2AB4EAE1D3D8}'] ['{F0DACCCA-7AB3-4862-BD6D-6D9C401378AA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3016,7 +3086,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{B271D47C-045D-4B48-ACE6-5F36B7D42236}'] ['{6041072A-9CB7-4096-88CF-5069C7EA0833}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -5070,27 +5140,6 @@ begin
DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsVariant := Null; DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsVariant := Null;
end; end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURASValue: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue;
end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURASIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].IsNull;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsVariant := Null;
end;
function TClientesDataTableRules.GetBLOQUEADOValue: SmallInt; function TClientesDataTableRules.GetBLOQUEADOValue: SmallInt;
begin begin
result := DataTable.Fields[idx_ClientesBLOQUEADO].AsSmallInt; result := DataTable.Fields[idx_ClientesBLOQUEADO].AsSmallInt;
@ -5322,6 +5371,69 @@ begin
DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsVariant := Null; DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsVariant := Null;
end; end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger := aValue;
end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].IsNull;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsVariant := Null;
end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger := aValue;
end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_2IsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].IsNull;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsVariant := Null;
end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_3Value: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger := aValue;
end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_3IsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].IsNull;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsVariant := Null;
end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable); constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
@ -6160,6 +6272,69 @@ begin
DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsVariant := Null; DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsVariant := Null;
end; end;
function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger;
end;
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger := aValue;
end;
function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].IsNull;
end;
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: Integer;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger;
end;
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger := aValue;
end;
function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_2IsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].IsNull;
end;
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_3Value: Integer;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger;
end;
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger := aValue;
end;
function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_3IsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].IsNull;
end;
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsVariant := Null;
end;
{ TVendedoresDataTableRules } { TVendedoresDataTableRules }
constructor TVendedoresDataTableRules.Create(aDataTable: TDADataTable); constructor TVendedoresDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,25 +9,25 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PersonalContactoDelta = '{845C4940-7BFD-40A8-9E33-AD056E3C2A27}'; RID_PersonalContactoDelta = '{5E077D9B-D4D9-4B7D-B1F4-8236A79DC607}';
RID_DarTiendaDeUsuarioDelta = '{D50280BB-652F-4F52-A3E1-0C8EC19492DF}'; RID_DarTiendaDeUsuarioDelta = '{7AFE4420-13DD-420E-A8DE-93464EF93F59}';
RID_SubCuentasContactoDelta = '{69B0CFEF-1D7B-49D6-AF7E-2D023A0822A5}'; RID_SubCuentasContactoDelta = '{0FAD99B4-0F6F-43AB-A6A2-D05725700767}';
RID_ContactosDelta = '{763B21A0-1CDE-4A11-97FE-86A7D488BCA2}'; RID_ContactosDelta = '{29E47B8B-30E6-4B4E-B218-6E3CB867BDC8}';
RID_GruposClienteDelta = '{E08A27A2-0C3D-4880-A705-8E9E599A094A}'; RID_GruposClienteDelta = '{8B15524D-83C1-4F38-ACCE-2A0CA45DBFEF}';
RID_DatosBancariosDelta = '{3B9A634C-4586-4A72-B982-AB25BF2E6C24}'; RID_DatosBancariosDelta = '{AE0DA606-F1FC-4725-94C3-F1F22858DF25}';
RID_ClientesDelta = '{4192433E-E014-410F-BDE6-1D0D1CC50823}'; RID_ClientesDelta = '{6CD74F52-43BA-4DDD-9626-374A140E486C}';
RID_ProveedoresDelta = '{061A9581-0319-4275-A02F-F56419EA77D7}'; RID_ProveedoresDelta = '{45BEDF42-D57A-4B27-9A39-DAA56D0EFDAA}';
RID_VendedoresDelta = '{57099FD5-396F-4C40-B270-5652ECB6D973}'; RID_VendedoresDelta = '{365B6366-050C-443E-8A11-66EB0D7F9E0B}';
RID_DireccionesContactoDelta = '{E6EAE8E3-FC4C-4FA3-9309-5BA66CAEC684}'; RID_DireccionesContactoDelta = '{BFBF154C-C62B-4DFC-B816-4C7649222909}';
RID_ClientesDescuentosDelta = '{BE063743-BB6D-49A0-AD45-0D7F8BA11FC5}'; RID_ClientesDescuentosDelta = '{75E242C6-00BE-4179-AE7F-4393F5AE9B4A}';
RID_ProcedenciasClienteDelta = '{33C3D07B-35C3-4B41-85C3-05B8F8ECF5C9}'; RID_ProcedenciasClienteDelta = '{1D54F076-4D87-414E-B567-2052949AF687}';
RID_GruposProveedorDelta = '{DDE12288-B000-45AA-A36C-24C4555CA432}'; RID_GruposProveedorDelta = '{C3A6BA6F-15EC-486F-8212-0CEB2A66D6A1}';
RID_Contactos_RefreshDelta = '{F7D74B95-D7FE-4362-AC9B-433041EB9053}'; RID_Contactos_RefreshDelta = '{F1DF7DB2-6FC0-43D6-B14B-E6E6DE744DE4}';
type type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{845C4940-7BFD-40A8-9E33-AD056E3C2A27}'] ['{5E077D9B-D4D9-4B7D-B1F4-8236A79DC607}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -169,7 +169,7 @@ type
{ IDarTiendaDeUsuarioDelta } { IDarTiendaDeUsuarioDelta }
IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario) IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario)
['{D50280BB-652F-4F52-A3E1-0C8EC19492DF}'] ['{7AFE4420-13DD-420E-A8DE-93464EF93F59}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
@ -203,7 +203,7 @@ type
{ ISubCuentasContactoDelta } { ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto) ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{69B0CFEF-1D7B-49D6-AF7E-2D023A0822A5}'] ['{0FAD99B4-0F6F-43AB-A6A2-D05725700767}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
@ -297,7 +297,7 @@ type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{763B21A0-1CDE-4A11-97FE-86A7D488BCA2}'] ['{29E47B8B-30E6-4B4E-B218-6E3CB867BDC8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -620,7 +620,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{E08A27A2-0C3D-4880-A705-8E9E599A094A}'] ['{8B15524D-83C1-4F38-ACCE-2A0CA45DBFEF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -666,7 +666,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{3B9A634C-4586-4A72-B982-AB25BF2E6C24}'] ['{AE0DA606-F1FC-4725-94C3-F1F22858DF25}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -796,7 +796,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{4192433E-E014-410F-BDE6-1D0D1CC50823}'] ['{6CD74F52-43BA-4DDD-9626-374A140E486C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -825,7 +825,6 @@ type
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldGRUPO_CLIENTEValue : String; function GetOldGRUPO_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIALValue : String; function GetOldNOMBRE_COMERCIALValue : String;
function GetOldVENCIMIENTO_FACTURASValue : Integer;
function GetOldBLOQUEADOValue : SmallInt; function GetOldBLOQUEADOValue : SmallInt;
function GetOldREGIMEN_IVAValue : String; function GetOldREGIMEN_IVAValue : String;
function GetOldMOTIVO_BLOQUEOValue : String; function GetOldMOTIVO_BLOQUEOValue : String;
@ -837,6 +836,9 @@ type
function GetOldIGNORAR_CONTABILIDADValue : Integer; function GetOldIGNORAR_CONTABILIDADValue : Integer;
function GetOldTIENE_SUBCUENTAValue : Integer; function GetOldTIENE_SUBCUENTAValue : Integer;
function GetOldPROCEDENCIA_CLIENTEValue : String; function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -866,7 +868,6 @@ type
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue; property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
@ -878,6 +879,9 @@ type
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue; property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue; property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue; property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
end; end;
{ TClientesBusinessProcessorRules } { TClientesBusinessProcessorRules }
@ -1048,12 +1052,6 @@ type
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual; function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURASValue: Integer; virtual;
function GetVENCIMIENTO_FACTURASIsNull: Boolean; virtual;
function GetOldVENCIMIENTO_FACTURASValue: Integer; virtual;
function GetOldVENCIMIENTO_FACTURASIsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual;
procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); virtual;
function GetBLOQUEADOValue: SmallInt; virtual; function GetBLOQUEADOValue: SmallInt; virtual;
function GetBLOQUEADOIsNull: Boolean; virtual; function GetBLOQUEADOIsNull: Boolean; virtual;
function GetOldBLOQUEADOValue: SmallInt; virtual; function GetOldBLOQUEADOValue: SmallInt; virtual;
@ -1120,6 +1118,24 @@ type
function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual; function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
function GetOldVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
function GetOldVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1230,10 +1246,6 @@ type
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull; property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
property VENCIMIENTO_FACTURAS : Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
property VENCIMIENTO_FACTURASIsNull : Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull;
property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
property OldVENCIMIENTO_FACTURASIsNull : Boolean read GetOldVENCIMIENTO_FACTURASIsNull;
property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
@ -1278,6 +1290,18 @@ type
property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull; property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue; property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull; property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull;
property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull;
property VENCIMIENTO_FACTURAS_3 : Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1287,7 +1311,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{061A9581-0319-4275-A02F-F56419EA77D7}'] ['{45BEDF42-D57A-4B27-9A39-DAA56D0EFDAA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1328,6 +1352,9 @@ type
function GetOldTIENE_SUBCUENTAValue : Integer; function GetOldTIENE_SUBCUENTAValue : Integer;
function GetOldNOMBRE_COMERCIALValue : String; function GetOldNOMBRE_COMERCIALValue : String;
function GetOldES_ACREEDORValue : SmallInt; function GetOldES_ACREEDORValue : SmallInt;
function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -1369,6 +1396,9 @@ type
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue; property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue; property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue;
property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
end; end;
{ TProveedoresBusinessProcessorRules } { TProveedoresBusinessProcessorRules }
@ -1611,6 +1641,24 @@ type
function GetOldES_ACREEDORIsNull: Boolean; virtual; function GetOldES_ACREEDORIsNull: Boolean; virtual;
procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual; procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual;
procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual; procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
function GetOldVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
function GetOldVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1769,6 +1817,18 @@ type
property ES_ACREEDORIsNull : Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull; property ES_ACREEDORIsNull : Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue; property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue;
property OldES_ACREEDORIsNull : Boolean read GetOldES_ACREEDORIsNull; property OldES_ACREEDORIsNull : Boolean read GetOldES_ACREEDORIsNull;
property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull;
property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull;
property VENCIMIENTO_FACTURAS_3 : Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1778,7 +1838,7 @@ type
{ IVendedoresDelta } { IVendedoresDelta }
IVendedoresDelta = interface(IVendedores) IVendedoresDelta = interface(IVendedores)
['{57099FD5-396F-4C40-B270-5652ECB6D973}'] ['{365B6366-050C-443E-8A11-66EB0D7F9E0B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -2125,7 +2185,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{E6EAE8E3-FC4C-4FA3-9309-5BA66CAEC684}'] ['{BFBF154C-C62B-4DFC-B816-4C7649222909}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2352,7 +2412,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{BE063743-BB6D-49A0-AD45-0D7F8BA11FC5}'] ['{75E242C6-00BE-4179-AE7F-4393F5AE9B4A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2434,7 +2494,7 @@ type
{ IProcedenciasClienteDelta } { IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente) IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{33C3D07B-35C3-4B41-85C3-05B8F8ECF5C9}'] ['{1D54F076-4D87-414E-B567-2052949AF687}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2480,7 +2540,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{DDE12288-B000-45AA-A36C-24C4555CA432}'] ['{C3A6BA6F-15EC-486F-8212-0CEB2A66D6A1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2526,7 +2586,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{F7D74B95-D7FE-4362-AC9B-433041EB9053}'] ['{F1DF7DB2-6FC0-43D6-B14B-E6E6DE744DE4}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -5383,37 +5443,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null;
end; end;
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
end;
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]);
end;
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
end;
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS]);
end;
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := Null;
end;
function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt; function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO];
@ -5755,6 +5784,99 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE] := Null;
end; end;
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
end;
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]);
end;
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
end;
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]);
end;
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := Null;
end;
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
end;
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]);
end;
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
end;
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]);
end;
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := Null;
end;
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
end;
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]);
end;
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
end;
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]);
end;
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := Null;
end;
{ TProveedoresBusinessProcessorRules } { TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -6984,6 +7106,99 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR] := Null;
end; end;
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
end;
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]);
end;
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
end;
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]);
end;
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := aValue;
end;
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := Null;
end;
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
end;
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]);
end;
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
end;
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]);
end;
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := aValue;
end;
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := Null;
end;
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
end;
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]);
end;
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
end;
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]);
end;
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := aValue;
end;
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := Null;
end;
{ TVendedoresBusinessProcessorRules } { TVendedoresBusinessProcessorRules }
constructor TVendedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TVendedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -145,7 +145,6 @@ begin
// ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE]; // ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
ParamByName('VENCIMIENTO_FACTURAS').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO]; ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
@ -157,6 +156,11 @@ begin
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD]; ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA]; ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA];
ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE]; ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
Execute; Execute;
end; end;
@ -194,7 +198,6 @@ begin
// ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE]; // ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
ParamByName('VENCIMIENTO_FACTURAS').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO]; ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
@ -206,6 +209,11 @@ begin
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD]; ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA]; ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA];
ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE]; ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
Execute; Execute;
end; end;

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

@ -54,8 +54,14 @@ type
function GetNOMBRE_COMERCIALValue: String; function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetVENCIMIENTO_FACTURASValue: Integer; function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_2Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_3Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
function GetBLOQUEADOValue: Integer; function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer); procedure SetBLOQUEADOValue(const aValue: Integer);
@ -85,7 +91,9 @@ type
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue; property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
@ -121,6 +129,15 @@ type
function GetNOMBRE_COMERCIALValue: String; function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_2Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_3Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
function GetCODIGO_ASIGNADOValue: String; function GetCODIGO_ASIGNADOValue: String;
procedure SetCODIGO_ASIGNADOValue(const aValue: String); procedure SetCODIGO_ASIGNADOValue(const aValue: String);
@ -153,6 +170,9 @@ type
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
function GetSubCuentas: IBizSubCuentasContacto; function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto); procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@ -244,8 +264,14 @@ type
function GetNOMBRE_COMERCIALValue: String; function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetVENCIMIENTO_FACTURASValue: Integer; function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_2Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_3Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
function GetBLOQUEADOValue: Integer; function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer); procedure SetBLOQUEADOValue(const aValue: Integer);
@ -288,7 +314,9 @@ type
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue; property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
@ -322,6 +350,15 @@ type
function GetREGIMEN_IVAValue: String; function GetREGIMEN_IVAValue: String;
procedure SetREGIMEN_IVAValue(const aValue: String); procedure SetREGIMEN_IVAValue(const aValue: String);
function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_2Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_3Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
function GetID_TIPO_IVAValue: Integer; function GetID_TIPO_IVAValue: Integer;
procedure SetID_TIPO_IVAValue(const aValue: Integer); procedure SetID_TIPO_IVAValue(const aValue: Integer);
@ -362,6 +399,9 @@ type
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
@ -639,9 +679,19 @@ begin
result := DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger; result := DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger;
end; end;
function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer; function TBizCliente.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger; result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger;
end;
function TBizCliente.GetVENCIMIENTO_FACTURAS_2Value: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger;
end;
function TBizCliente.GetVENCIMIENTO_FACTURAS_3Value: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger;
end; end;
procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
@ -670,16 +720,25 @@ begin
DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger := Value; DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger := Value;
end; end;
procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure TBizCliente.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue; DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger := aValue;
end;
procedure TBizCliente.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger := aValue;
end;
procedure TBizCliente.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger := aValue;
end; end;
procedure TBizCliente.IniciarValoresContactoNuevo; procedure TBizCliente.IniciarValoresContactoNuevo;
begin begin
inherited; inherited;
ID_CATEGORIA := CATEGORIA_CLIENTE; ID_CATEGORIA := CATEGORIA_CLIENTE;
VENCIMIENTO_FACTURAS := CLIENTE_DIAS_VENCIMIENTO;
BLOQUEADO := 0; BLOQUEADO := 0;
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA); REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA);
@ -748,6 +807,21 @@ begin
result := DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger; result := DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger;
end; end;
function TBizProveedor.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger;
end;
function TBizProveedor.GetVENCIMIENTO_FACTURAS_2Value: Integer;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger;
end;
function TBizProveedor.GetVENCIMIENTO_FACTURAS_3Value: Integer;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger;
end;
procedure TBizProveedor.IniciarValoresContactoNuevo; procedure TBizProveedor.IniciarValoresContactoNuevo;
begin begin
inherited; inherited;
@ -884,6 +958,21 @@ begin
DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger := Value; DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger := Value;
end; end;
procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger := aValue;
end;
procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger := aValue;
end;
procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger := aValue;
end;
{ TBizVendedor } { TBizVendedor }

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

@ -157,6 +157,10 @@ begin
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA]; ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
ParamByName('ES_ACREEDOR').Value := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR]; ParamByName('ES_ACREEDOR').Value := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
Execute; Execute;
end; end;
@ -203,6 +207,11 @@ begin
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA]; ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
ParamByName('ES_ACREEDOR').Value := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR]; ParamByName('ES_ACREEDOR').Value := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
Execute; Execute;
end; end;

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

@ -741,10 +741,6 @@ object srvContactos: TsrvContactos
DatasetField = 'NOMBRE_COMERCIAL' DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL' TableField = 'NOMBRE_COMERCIAL'
end end
item
DatasetField = 'VENCIMIENTO_FACTURAS'
TableField = 'VENCIMIENTO_FACTURAS'
end
item item
DatasetField = 'BLOQUEADO' DatasetField = 'BLOQUEADO'
TableField = 'BLOQUEADO' TableField = 'BLOQUEADO'
@ -788,6 +784,18 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'PROCEDENCIA_CLIENTE' DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE' TableField = 'PROCEDENCIA_CLIENTE'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_1'
TableField = 'VENCIMIENTO_FACTURAS_1'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_2'
TableField = 'VENCIMIENTO_FACTURAS_2'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -952,11 +960,6 @@ object srvContactos: TsrvContactos
Size = 255 Size = 255
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL' DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
end end
item
Name = 'VENCIMIENTO_FACTURAS'
DataType = datInteger
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS'
end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
DataType = datSmallInt DataType = datSmallInt
@ -1014,6 +1017,18 @@ object srvContactos: TsrvContactos
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE' DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE'
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datInteger
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datInteger
end> end>
end end
item item
@ -1179,6 +1194,18 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'ES_ACREEDOR' DatasetField = 'ES_ACREEDOR'
TableField = 'ES_ACREEDOR' TableField = 'ES_ACREEDOR'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_1'
TableField = 'VENCIMIENTO_FACTURAS_1'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_2'
TableField = 'VENCIMIENTO_FACTURAS_2'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3'
end> end>
end> end>
Name = 'Proveedores' Name = 'Proveedores'
@ -1403,6 +1430,18 @@ object srvContactos: TsrvContactos
item item
Name = 'ES_ACREEDOR' Name = 'ES_ACREEDOR'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datInteger
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datInteger
end> end>
end end
item item
@ -2771,10 +2810,6 @@ object srvContactos: TsrvContactos
Name = 'NOMBRE_COMERCIAL' Name = 'NOMBRE_COMERCIAL'
Value = '' Value = ''
end end
item
Name = 'VENCIMIENTO_FACTURAS'
Value = ''
end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
Value = '' Value = ''
@ -2814,6 +2849,18 @@ object srvContactos: TsrvContactos
item item
Name = 'TIENE_SUBCUENTA' Name = 'TIENE_SUBCUENTA'
Value = '' Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -2821,15 +2868,16 @@ object srvContactos: TsrvContactos
TargetTable = 'CLIENTES_DATOS' TargetTable = 'CLIENTES_DATOS'
SQL = SQL =
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' + 'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' +
'ARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' + 'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL, BLOQUEADO,'#10' MOTIVO_BLOQ' +
'BLOQUEADO, MOTIVO_BLOQUEO,'#10' REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB,'#10' C' +
'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO, IGNORAR_CONTABILIDAD,'#10' ' + 'ODIGO_ASIGNADO, IGNORAR_CONTABILIDAD, PROCEDENCIA_CLIENTE, TIENE' +
' PROCEDENCIA_CLIENTE, TIENE_SUBCUENTA)'#10' VALUES'#10' (:ID_CLIENTE' + '_SUBCUENTA,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2,' +
', :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL,' + ' VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIEN' +
' :VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIM' + 'TE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL, :BLOQUEADO,'#10' :' +
'EN_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_' + 'MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIE' +
'ASIGNADO, :IGNORAR_CONTABILIDAD,'#10' :PROCEDENCIA_CLIENTE, :TIE' + 'NDA_WEB,'#10' :CODIGO_ASIGNADO, :IGNORAR_CONTABILIDAD, :PROCEDEN' +
'NE_SUBCUENTA)'#10 'CIA_CLIENTE, :TIENE_SUBCUENTA,'#10' :VENCIMIENTO_FACTURAS_1, :VE' +
'NCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -2917,6 +2965,18 @@ object srvContactos: TsrvContactos
Name = 'PROCEDENCIA_CLIENTE' Name = 'PROCEDENCIA_CLIENTE'
Value = '' Value = ''
end end
item
Name = 'VENCIMIENTO_FACTURAS_1'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
Value = ''
end
item item
Name = 'OLD_ID_CLIENTE' Name = 'OLD_ID_CLIENTE'
Value = '' Value = ''
@ -2935,8 +2995,10 @@ object srvContactos: TsrvContactos
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' + 'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' +
'GNADO = :CODIGO_ASIGNADO,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CO' + 'GNADO = :CODIGO_ASIGNADO,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CO' +
'NTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,'#10' PROCEDEN' + 'NTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,'#10' PROCEDEN' +
'CIA_CLIENTE = :PROCEDENCIA_CLIENTE'#10' WHERE'#10' (ID_CLIENTE = :OL' + 'CIA_CLIENTE = :PROCEDENCIA_CLIENTE,'#10' VENCIMIENTO_FACTURAS_1 =' +
'D_ID_CLIENTE)'#10 ' :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIE' +
'NTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTUR' +
'AS_3'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3003,6 +3065,18 @@ object srvContactos: TsrvContactos
item item
Name = 'ES_ACREEDOR' Name = 'ES_ACREEDOR'
Value = '' Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -3013,11 +3087,14 @@ object srvContactos: TsrvContactos
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' + 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' + 'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' +
'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA, NOMBRE' + 'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA, NOMBRE' +
'_COMERCIAL, ES_ACREEDOR)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_I' + '_COMERCIAL, ES_ACREEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO' +
'VA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :I' + '_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEEDOR' +
'D_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTI' + ', :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_' +
'FICACION, :GRUPO_PROVEEDOR,'#10' :IGNORAR_CONTABILIDAD, :TIENE_SU' + 'ASIGNADO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLO' +
'BCUENTA, :NOMBRE_COMERCIAL, :ES_ACREEDOR)'#10 'GADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' :IGNORAR_CONTABILIDA' +
'D, :TIENE_SUBCUENTA, :NOMBRE_COMERCIAL, :ES_ACREEDOR,'#10' :VENCI' +
'MIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURA' +
'S_3)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3105,6 +3182,18 @@ object srvContactos: TsrvContactos
Name = 'ES_ACREEDOR' Name = 'ES_ACREEDOR'
Value = '' Value = ''
end end
item
Name = 'VENCIMIENTO_FACTURAS_1'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
Value = ''
end
item item
Name = 'OLD_ID_PROVEEDOR' Name = 'OLD_ID_PROVEEDOR'
Value = '' Value = ''
@ -3123,7 +3212,10 @@ object srvContactos: TsrvContactos
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' + ' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' +
'= :IGNORAR_CONTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,' + '= :IGNORAR_CONTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,' +
#10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' ES_ACREEDOR = :ES' + #10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' ES_ACREEDOR = :ES' +
'_ACREEDOR'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10 '_ACREEDOR,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,' +
#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCI' +
'MIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_PROV' +
'EEDOR = :OLD_ID_PROVEEDOR)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -65,7 +65,7 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 890 Width = 890
Height = 544 Height = 544
ActivePage = pagContabilidad ActivePage = pagDatosComerciales
ExplicitWidth = 890 ExplicitWidth = 890
ExplicitHeight = 544 ExplicitHeight = 544
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -112,44 +112,44 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 162 ExplicitTop = 162
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216
ExplicitWidth = 428
Width = 428
end
inherited cbProvincia: TcxDBComboBox
Top = 243 Top = 243
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243 ExplicitTop = 243
ExplicitWidth = 428 ExplicitWidth = 336
Width = 428 Width = 336
end end
inherited cbProvincia: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 270 Top = 270
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 336
Width = 336
end
inherited cbPoblacion: TcxDBComboBox
Top = 297
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 297
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 504 Left = 504
Top = 270 Top = 243
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504 ExplicitLeft = 504
ExplicitTop = 270 ExplicitTop = 243
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 426 Top = 426
@ -342,12 +342,12 @@ inherited fEditorCliente: TfEditorCliente
Width = 104 Width = 104
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 216 Top = 297
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216 ExplicitTop = 297
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
@ -429,6 +429,38 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
end end
inherited pagPersonal: TTabSheet
ExplicitWidth = 882
ExplicitHeight = 516
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 882
Height = 516
ExplicitWidth = 882
ExplicitHeight = 516
inherited cxGrid: TcxGrid
Width = 882
Height = 491
ExplicitWidth = 882
ExplicitHeight = 491
end
inherited ToolBar1: TToolBar
Width = 882
ExplicitWidth = 882
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end
end
object pagDatosComerciales: TTabSheet object pagDatosComerciales: TTabSheet
Caption = 'Datos comerciales' Caption = 'Datos comerciales'
ImageIndex = 4 ImageIndex = 4
@ -455,27 +487,8 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 882 ExplicitWidth = 882
ExplicitHeight = 193 ExplicitHeight = 193
inherited Label1: TLabel inherited Label1: TLabel
Left = 570
Top = 30
Width = 281
Caption =
'Puede indicar el d'#237'a del mes que el cliente desea realizar el pa' +
'go de sus recibos.'
ExplicitLeft = 570
ExplicitTop = 30
ExplicitWidth = 281
end end
inherited eDiasVencimiento: TcxDBSpinEdit inherited eDiasVencimiento: TcxDBSpinEdit
Left = 696
Top = 62
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 696
ExplicitTop = 62
ExplicitWidth = 160
Width = 160
end end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
@ -508,9 +521,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 289 Width = 289
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 410 Left = 415
Top = 57 Top = 57
ExplicitLeft = 410 ExplicitLeft = 415
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
@ -524,15 +537,15 @@ inherited fEditorCliente: TfEditorCliente
Width = 289 Width = 289
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 410 Left = 415
Top = 84 Top = 84
ExplicitLeft = 410 ExplicitLeft = 415
ExplicitTop = 84 ExplicitTop = 84
end end
inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem inherited dxLayoutControl1Item2: TdxLayoutItem
Caption = 'D'#237'a del mes para el pago:' Caption = 'D'#237'a del mes 1:'
end end
end end
end end

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

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

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

@ -55,7 +55,7 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 642 Width = 642
Height = 489 Height = 489
ActivePage = PagContabilidad ActivePage = pagDatosComerciales
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 489 ExplicitHeight = 489
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -102,44 +102,44 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitTop = 162 ExplicitTop = 162
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216
ExplicitWidth = 174
Width = 174
end
inherited cbProvincia: TcxDBComboBox
Top = 243 Top = 243
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243 ExplicitTop = 243
ExplicitWidth = 174 ExplicitWidth = 175
Width = 174 Width = 175
end end
inherited cbProvincia: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 270 Top = 270
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 175
Width = 175
end
inherited cbPoblacion: TcxDBComboBox
Top = 297
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 297
ExplicitWidth = 267 ExplicitWidth = 267
Width = 267 Width = 267
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 310 Left = 310
Top = 270 Top = 243
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 310 ExplicitLeft = 310
ExplicitTop = 270 ExplicitTop = 243
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 426 Top = 426
@ -332,12 +332,12 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 100 Width = 100
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 216 Top = 297
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216 ExplicitTop = 297
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
@ -419,6 +419,38 @@ inherited fEditorProveedor: TfEditorProveedor
end end
end end
end end
inherited pagPersonal: TTabSheet
ExplicitWidth = 634
ExplicitHeight = 461
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 634
Height = 461
ExplicitWidth = 634
ExplicitHeight = 461
inherited cxGrid: TcxGrid
Width = 634
Height = 436
ExplicitWidth = 634
ExplicitHeight = 436
end
inherited ToolBar1: TToolBar
Width = 634
ExplicitWidth = 634
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end
end
object pagDatosComerciales: TTabSheet object pagDatosComerciales: TTabSheet
Caption = 'Datos comerciales' Caption = 'Datos comerciales'
ImageIndex = 2 ImageIndex = 2
@ -426,7 +458,7 @@ inherited fEditorProveedor: TfEditorProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 634 Width = 634
Height = 121 Height = 225
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -437,19 +469,25 @@ inherited fEditorProveedor: TfEditorProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 634 ExplicitWidth = 634
ExplicitHeight = 121 ExplicitHeight = 225
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 634 Width = 634
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634 ExplicitWidth = 634
inherited Label1: TLabel inherited Label1: TLabel
Left = 412 Top = 135
Top = 30
Width = 190 Width = 190
ExplicitLeft = 412 ExplicitTop = 135
ExplicitTop = 30
ExplicitWidth = 190 ExplicitWidth = 190
end end
inherited Label2: TLabel
Left = 394
Top = 30
Width = 149
ExplicitLeft = 394
ExplicitTop = 30
ExplicitWidth = 149
end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -471,9 +509,9 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 121 Width = 121
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 252 Left = 234
Top = 57 Top = 57
ExplicitLeft = 252 ExplicitLeft = 234
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
@ -487,23 +525,57 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 121 Width = 121
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 252 Left = 234
Top = 84 Top = 84
ExplicitLeft = 252 ExplicitLeft = 234
ExplicitTop = 84 ExplicitTop = 84
end end
inherited eDescuento: TcxDBSpinEdit inherited eDescuento: TcxDBSpinEdit
Left = 456 Top = 167
Top = 62
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 456 ExplicitTop = 167
ExplicitTop = 62
ExplicitWidth = 73 ExplicitWidth = 73
Width = 73 Width = 73
end end
inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 466
Top = 75
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitTop = 75
ExplicitWidth = 79
Width = 79
end
inherited eDiasVencimiento2: TcxDBSpinEdit
Left = 466
Top = 102
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitTop = 102
ExplicitWidth = 79
Width = 79
end
inherited eDiasVencimiento3: TcxDBSpinEdit
Left = 466
Top = 129
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitTop = 129
ExplicitWidth = 79
Width = 79
end
end end
end end
end end

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

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

103
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
View File

@ -16,20 +16,20 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
object Label1: TLabel object Label1: TLabel
Left = 317 Left = 327
Top = 28 Top = 28
Width = 299 Width = 277
Height = 26 Height = 26
Caption = Caption =
'Puede indicar los d'#237'as de vencimiento predeterminados que se uti' + 'Puede indicar el d'#237'a del mes en el cual el cliente realiza los p' +
'lizar'#225'n para las facturas de este cliente.' 'agos.'
Transparent = True Transparent = True
WordWrap = True WordWrap = True
end end
object eDiasVencimiento: TcxDBSpinEdit object eDiasVencimiento: TcxDBSpinEdit
Left = 384 Left = 404
Top = 60 Top = 60
DataBinding.DataField = 'VENCIMIENTO_FACTURAS' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
Properties.AssignedValues.MinValue = True Properties.AssignedValues.MinValue = True
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -38,13 +38,17 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 TabOrder = 6
Width = 79 Width = 79
end end
@ -62,14 +66,18 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 180 Width = 180
end end
@ -88,12 +96,16 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 5
Width = 180 Width = 180
end end
@ -118,19 +130,23 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 42 Width = 42
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 155 Left = 165
Top = 55 Top = 55
Width = 132 Width = 132
Height = 21 Height = 21
@ -159,19 +175,23 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 42 Width = 42
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 155 Left = 165
Top = 82 Top = 82
Width = 132 Width = 132
Height = 21 Height = 21
@ -179,6 +199,58 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
TabOrder = 4 TabOrder = 4
OnClick = bTiposIVAClick OnClick = bTiposIVAClick
end end
object cxDBSpinEdit1: TcxDBSpinEdit
Left = 404
Top = 87
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2'
DataBinding.DataSource = dsDatosComerciales
Properties.AssignedValues.MinValue = True
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 79
end
object cxDBSpinEdit2: TcxDBSpinEdit
Left = 404
Top = 114
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3'
DataBinding.DataSource = dsDatosComerciales
Properties.AssignedValues.MinValue = True
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 79
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -248,6 +320,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos para facturaci'#243'n' Caption = 'Datos para facturaci'#243'n'
Visible = False
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
@ -259,10 +332,22 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
Caption = 'D'#237'as de vto.:' Caption = 'D'#237'as del mes 1:'
Control = eDiasVencimiento Control = eDiasVencimiento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'D'#237'a del mes 2:'
Control = cxDBSpinEdit1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'D'#237'a del mes 3:'
Control = cxDBSpinEdit2
ControlOptions.ShowBorder = False
end
end end
end end
end end

4
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas
View File

@ -45,6 +45,10 @@ type
dsTiposIVA: TDADataSource; dsTiposIVA: TDADataSource;
dxLayoutControl1Group1: TdxLayoutGroup; dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item1: TdxLayoutItem;
cxDBSpinEdit1: TcxDBSpinEdit;
dxLayoutControl1Item10: TdxLayoutItem;
cxDBSpinEdit2: TcxDBSpinEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject); procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);

250
Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm
View File

@ -1,23 +1,23 @@
inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Width = 642 Width = 642
Height = 266 Height = 241
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 266 ExplicitHeight = 241
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 642 Width = 642
Height = 129 Height = 225
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
object Label1: TLabel object Label1: TLabel
Left = 417 Left = 22
Top = 28 Top = 139
Width = 190 Width = 190
Height = 26 Height = 26
Caption = Caption =
@ -26,6 +26,17 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Transparent = True Transparent = True
WordWrap = True WordWrap = True
end end
object Label2: TLabel
Left = 453
Top = 28
Width = 149
Height = 39
Caption =
'Puede indicar el d'#237'a del mes en el cual el proveedor realiza los' +
' cobros.'
Transparent = True
WordWrap = True
end
object cbRegimenIVA: TcxDBComboBox object cbRegimenIVA: TcxDBComboBox
Left = 107 Left = 107
Top = 28 Top = 28
@ -40,14 +51,18 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 280 Width = 280
end end
@ -70,19 +85,23 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 142 Width = 142
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 255 Left = 291
Top = 55 Top = 55
Width = 132 Width = 132
Height = 21 Height = 21
@ -109,19 +128,23 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 142 Width = 142
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 255 Left = 291
Top = 82 Top = 82
Width = 132 Width = 132
Height = 21 Height = 21
@ -130,8 +153,8 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
OnClick = bTiposIVAClick OnClick = bTiposIVAClick
end end
object eDescuento: TcxDBSpinEdit object eDescuento: TcxDBSpinEdit
Left = 461 Left = 107
Top = 60 Top = 171
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -139,90 +162,211 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 5
Width = 159 Width = 159
end end
object eDiasVencimiento1: TcxDBSpinEdit
Left = 525
Top = 73
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
DataBinding.DataSource = dsDatosComerciales
Properties.DisplayFormat = '##'
Properties.ImmediatePost = True
Properties.SpinButtons.Visible = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Width = 79
end
object eDiasVencimiento2: TcxDBSpinEdit
Left = 525
Top = 100
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2'
DataBinding.DataSource = dsDatosComerciales
Properties.DisplayFormat = '##'
Properties.ImmediatePost = True
Properties.SpinButtons.Visible = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 79
end
object eDiasVencimiento3: TcxDBSpinEdit
Left = 525
Top = 127
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3'
DataBinding.DataSource = dsDatosComerciales
Properties.DisplayFormat = '##'
Properties.ImmediatePost = True
Properties.SpinButtons.Visible = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 79
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group6: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos comerciales' ShowCaption = False
object dxLayoutControl1Item3: TdxLayoutItem Hidden = True
ShowBorder = False
object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'R'#233'gimen de IVA:' Caption = 'Datos comerciales'
Control = cbRegimenIVA object dxLayoutControl1Item3: TdxLayoutItem
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Forma de pago:' Caption = 'R'#233'gimen de IVA:'
Control = cbFormaPago Control = cbRegimenIVA
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Button1'
ShowCaption = False ShowCaption = False
Control = bFormasPago Hidden = True
ControlOptions.ShowBorder = False LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma de pago:'
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Button1'
ShowCaption = False
Control = bFormasPago
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'IVA por defecto'
Control = eIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = bTiposIVA
ControlOptions.ShowBorder = False
end
end end
end end
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
ShowCaption = False AutoAligns = [aaVertical]
Hidden = True AlignHorz = ahClient
LayoutDirection = ldHorizontal Caption = 'Descuento por defecto'
ShowBorder = False object dxLayoutControl1Item6: TdxLayoutItem
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'IVA por defecto' Caption = 'Label1'
Control = eIVA ShowCaption = False
Control = Label1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item10: TdxLayoutItem
AutoAligns = [aaVertical] Caption = '% Dto.:'
AlignHorz = ahRight Control = eDescuento
ShowCaption = False
Control = bTiposIVA
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Descuento por defecto' Caption = 'Datos para facturaci'#243'n'
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Label1'
ShowCaption = False ShowCaption = False
Control = Label1 Control = Label2
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item10: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
Caption = '% Dto.:' AutoAligns = [aaVertical]
Control = eDescuento Caption = 'Dia del mes 1:'
Control = eDiasVencimiento1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'D'#237'a del mes 2:'
Control = eDiasVencimiento2
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item11: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'D'#237'a del mes 3:'
Control = eDiasVencimiento3
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end

10
Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas
View File

@ -43,6 +43,16 @@ type
dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem; dxLayoutControl1Item10: TdxLayoutItem;
eDescuento: TcxDBSpinEdit; eDescuento: TcxDBSpinEdit;
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Group6: TdxLayoutGroup;
dxLayoutControl1Item1: TdxLayoutItem;
Label2: TLabel;
dxLayoutControl1Item2: TdxLayoutItem;
eDiasVencimiento1: TcxDBSpinEdit;
dxLayoutControl1Item4: TdxLayoutItem;
eDiasVencimiento2: TcxDBSpinEdit;
dxLayoutControl1Item11: TdxLayoutItem;
eDiasVencimiento3: TcxDBSpinEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject); procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);