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.
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@368 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
6da967d84c
commit
709430d667
@ -205,12 +205,6 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
DisplayLabel = 'Nombre comercial'
|
||||
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Vencimiento'
|
||||
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS'
|
||||
end
|
||||
item
|
||||
Name = 'BLOQUEADO'
|
||||
DataType = datSmallInt
|
||||
@ -275,6 +269,18 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Size = 255
|
||||
DisplayLabel = '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>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -302,6 +302,18 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
item
|
||||
Name = 'ES_ACREEDOR'
|
||||
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>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,20 +9,20 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_PersonalContacto = '{72AC6BFD-BAC4-42A3-9D57-8A39C408F0B6}';
|
||||
RID_DarTiendaDeUsuario = '{C60E8268-B657-4D79-8D39-FB2BBD7C9A9C}';
|
||||
RID_SubCuentasContacto = '{1E056E61-ADFD-4989-AB59-03B790458F58}';
|
||||
RID_Contactos = '{98A3BC5C-8827-4E10-AF42-E0697B8B2A48}';
|
||||
RID_GruposCliente = '{0C8C6F79-4D64-4EC3-BB36-D4C152D61256}';
|
||||
RID_DatosBancarios = '{C1CC001F-5BD9-4DD4-B687-5E1B091D3430}';
|
||||
RID_Clientes = '{1B75257E-3A1B-42D4-83C3-214A06582B5D}';
|
||||
RID_Proveedores = '{A8E52EFB-F601-4D35-8AEF-875312B435D1}';
|
||||
RID_Vendedores = '{094768D6-A0E0-4FEA-BEF6-60FC3E569425}';
|
||||
RID_DireccionesContacto = '{8060C203-A78C-4000-8DAA-8C1F677F4481}';
|
||||
RID_ClientesDescuentos = '{05FF232F-E798-4FFD-8CF2-99687BE644B7}';
|
||||
RID_ProcedenciasCliente = '{7E7AE2C9-9D29-472B-954B-AFEF756ADD5B}';
|
||||
RID_GruposProveedor = '{0D48BF67-135E-47F2-9105-E833DB8035C5}';
|
||||
RID_Contactos_Refresh = '{BA3C07F7-9B68-4D45-ADCD-2EB0F9A3B4F9}';
|
||||
RID_PersonalContacto = '{10850DAC-8A04-46B8-882A-D9D05178F533}';
|
||||
RID_DarTiendaDeUsuario = '{4A3CFB9A-64F8-41D3-8B67-D3BD773EC6F0}';
|
||||
RID_SubCuentasContacto = '{98A05B2F-8C31-4012-A9C3-40E3FD982FEF}';
|
||||
RID_Contactos = '{EC034344-6F48-4962-B530-9C8590FFA881}';
|
||||
RID_GruposCliente = '{0C0F2DE5-1C7D-42ED-AF00-57BB3F081EEA}';
|
||||
RID_DatosBancarios = '{8120C3EA-4394-4FA5-AA19-9DE1AABDABD6}';
|
||||
RID_Clientes = '{D01FA8E7-3AEC-4B37-9F26-015F3CD695CA}';
|
||||
RID_Proveedores = '{510572A1-E390-401D-A8CE-007F4104350C}';
|
||||
RID_Vendedores = '{DEDAD190-7EF1-42A4-BAED-CFFD9D5CED4D}';
|
||||
RID_DireccionesContacto = '{58A83B78-7C3F-4742-87CD-CC211F2D553F}';
|
||||
RID_ClientesDescuentos = '{BFBA6A41-1628-4808-B100-11561E0ED847}';
|
||||
RID_ProcedenciasCliente = '{E65DD5CD-347E-4C08-BB87-DDF77C45AEE6}';
|
||||
RID_GruposProveedor = '{4A8B2052-F645-428F-92D7-E8897E201BEC}';
|
||||
RID_Contactos_Refresh = '{A7344712-243B-40A9-A854-7EB1096E03B0}';
|
||||
|
||||
{ Data table names }
|
||||
nme_PersonalContacto = 'PersonalContacto';
|
||||
@ -198,7 +198,6 @@ const
|
||||
fld_ClientesTIENDA = 'TIENDA';
|
||||
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
|
||||
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
|
||||
fld_ClientesVENCIMIENTO_FACTURAS = 'VENCIMIENTO_FACTURAS';
|
||||
fld_ClientesBLOQUEADO = 'BLOQUEADO';
|
||||
fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA';
|
||||
fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO';
|
||||
@ -210,6 +209,9 @@ const
|
||||
fld_ClientesIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
|
||||
fld_ClientesTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
|
||||
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 }
|
||||
idx_ClientesID = 0;
|
||||
@ -239,18 +241,20 @@ const
|
||||
idx_ClientesTIENDA = 24;
|
||||
idx_ClientesGRUPO_CLIENTE = 25;
|
||||
idx_ClientesNOMBRE_COMERCIAL = 26;
|
||||
idx_ClientesVENCIMIENTO_FACTURAS = 27;
|
||||
idx_ClientesBLOQUEADO = 28;
|
||||
idx_ClientesREGIMEN_IVA = 29;
|
||||
idx_ClientesMOTIVO_BLOQUEO = 30;
|
||||
idx_ClientesRECARGO_EQUIVALENCIA = 31;
|
||||
idx_ClientesID_TIPO_IVA = 32;
|
||||
idx_ClientesID_FORMA_PAGO = 33;
|
||||
idx_ClientesTIENDA_WEB = 34;
|
||||
idx_ClientesCODIGO_ASIGNADO = 35;
|
||||
idx_ClientesIGNORAR_CONTABILIDAD = 36;
|
||||
idx_ClientesTIENE_SUBCUENTA = 37;
|
||||
idx_ClientesPROCEDENCIA_CLIENTE = 38;
|
||||
idx_ClientesBLOQUEADO = 27;
|
||||
idx_ClientesREGIMEN_IVA = 28;
|
||||
idx_ClientesMOTIVO_BLOQUEO = 29;
|
||||
idx_ClientesRECARGO_EQUIVALENCIA = 30;
|
||||
idx_ClientesID_TIPO_IVA = 31;
|
||||
idx_ClientesID_FORMA_PAGO = 32;
|
||||
idx_ClientesTIENDA_WEB = 33;
|
||||
idx_ClientesCODIGO_ASIGNADO = 34;
|
||||
idx_ClientesIGNORAR_CONTABILIDAD = 35;
|
||||
idx_ClientesTIENE_SUBCUENTA = 36;
|
||||
idx_ClientesPROCEDENCIA_CLIENTE = 37;
|
||||
idx_ClientesVENCIMIENTO_FACTURAS_1 = 38;
|
||||
idx_ClientesVENCIMIENTO_FACTURAS_2 = 39;
|
||||
idx_ClientesVENCIMIENTO_FACTURAS_3 = 40;
|
||||
|
||||
{ Proveedores fields }
|
||||
fld_ProveedoresID = 'ID';
|
||||
@ -292,6 +296,9 @@ const
|
||||
fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
|
||||
fld_ProveedoresNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
|
||||
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 }
|
||||
idx_ProveedoresID = 0;
|
||||
@ -333,6 +340,9 @@ const
|
||||
idx_ProveedoresTIENE_SUBCUENTA = 36;
|
||||
idx_ProveedoresNOMBRE_COMERCIAL = 37;
|
||||
idx_ProveedoresES_ACREEDOR = 38;
|
||||
idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 39;
|
||||
idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 40;
|
||||
idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 41;
|
||||
|
||||
{ Vendedores fields }
|
||||
fld_VendedoresID = 'ID';
|
||||
@ -509,7 +519,7 @@ const
|
||||
type
|
||||
{ IPersonalContacto }
|
||||
IPersonalContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{2A8A2DA0-3149-4746-B9E1-4A11C5277976}']
|
||||
['{DEAA6039-614F-4B15-B4F2-F9C9B4DB3A15}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -652,7 +662,7 @@ type
|
||||
|
||||
{ IDarTiendaDeUsuario }
|
||||
IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable)
|
||||
['{EB039772-223A-40A0-B5D2-C89B476B082E}']
|
||||
['{88F010C0-E12E-4427-8C13-90DCB2CBF53C}']
|
||||
{ Property getters and setters }
|
||||
function GetID_TIENDAValue: Integer;
|
||||
procedure SetID_TIENDAValue(const aValue: Integer);
|
||||
@ -687,7 +697,7 @@ type
|
||||
|
||||
{ ISubCuentasContacto }
|
||||
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{1FB29B7D-89ED-45D7-80CD-702E245E14F0}']
|
||||
['{835A0070-997F-416F-9718-CB82124338A8}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -782,7 +792,7 @@ type
|
||||
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{5E99E772-2F16-4796-BCC8-3C547E65DF87}']
|
||||
['{B479C112-135D-46D0-B72B-2A46C8D32A87}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1105,7 +1115,7 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{88BEFB2C-1CFD-4887-98B8-F59A4EEBAC41}']
|
||||
['{F4F42BF3-C319-4CAC-A11E-435ACF830CC5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1152,7 +1162,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{DCA7CB6A-F958-45AE-B309-9EA1D1C5BB08}']
|
||||
['{5BC08B80-5030-40F7-92FB-59256E2C0E75}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1283,7 +1293,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{85F251D9-E428-4D10-A4E8-EB207D2DD0BF}']
|
||||
['{48D18C28-B5EE-4C37-B313-A8AF373F3D64}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1392,10 +1402,6 @@ type
|
||||
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
|
||||
function GetNOMBRE_COMERCIALIsNull: 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;
|
||||
procedure SetBLOQUEADOValue(const aValue: SmallInt);
|
||||
function GetBLOQUEADOIsNull: Boolean;
|
||||
@ -1440,6 +1446,18 @@ type
|
||||
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
|
||||
function GetPROCEDENCIA_CLIENTEIsNull: 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 }
|
||||
@ -1497,8 +1515,6 @@ type
|
||||
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
|
||||
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
|
||||
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 BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
||||
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 PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
|
||||
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;
|
||||
|
||||
{ TClientesDataTableRules }
|
||||
@ -1637,10 +1659,6 @@ type
|
||||
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
|
||||
function GetNOMBRE_COMERCIALIsNull: 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;
|
||||
procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
|
||||
function GetBLOQUEADOIsNull: Boolean; virtual;
|
||||
@ -1685,6 +1703,18 @@ type
|
||||
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetPROCEDENCIA_CLIENTEIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1741,8 +1771,6 @@ type
|
||||
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
|
||||
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
|
||||
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 BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
||||
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 PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -1774,7 +1808,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{A746CF89-1F05-4785-9ACD-C7FAA8986B7B}']
|
||||
['{A92DE88A-7E08-4CD2-9E99-757ECD192475}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1931,6 +1965,18 @@ type
|
||||
procedure SetES_ACREEDORValue(const aValue: SmallInt);
|
||||
function GetES_ACREEDORIsNull: 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 }
|
||||
@ -2012,6 +2058,12 @@ type
|
||||
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
|
||||
property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
|
||||
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;
|
||||
|
||||
{ TProveedoresDataTableRules }
|
||||
@ -2176,6 +2228,18 @@ type
|
||||
procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual;
|
||||
function GetES_ACREEDORIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -2256,6 +2320,12 @@ type
|
||||
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
|
||||
property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -2265,7 +2335,7 @@ type
|
||||
|
||||
{ IVendedores }
|
||||
IVendedores = interface(IDAStronglyTypedDataTable)
|
||||
['{AC791BCF-44E7-4C31-AAB0-991AC21F4D09}']
|
||||
['{D1EF06EF-DA47-4324-AA3F-481CB71ACFDD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2612,7 +2682,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{98C623D9-465F-44A7-AFBF-BB6A7CDD9EBA}']
|
||||
['{333D0482-701A-4BB6-AA51-1F1F34D6A8F1}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2839,7 +2909,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{9A9DB00C-8F08-4F5A-AC2B-43BC2B4D30CA}']
|
||||
['{A1F86ADF-8673-4E8F-B3C4-F864F7A5FEBB}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2922,7 +2992,7 @@ type
|
||||
|
||||
{ IProcedenciasCliente }
|
||||
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{830CA7BC-63BD-42FE-B404-35F104D4CF4A}']
|
||||
['{9789278E-8F6D-427E-82D1-6386D8AB21AE}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2969,7 +3039,7 @@ type
|
||||
|
||||
{ IGruposProveedor }
|
||||
IGruposProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{EABF7056-21C6-484A-90A5-2AB4EAE1D3D8}']
|
||||
['{F0DACCCA-7AB3-4862-BD6D-6D9C401378AA}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3016,7 +3086,7 @@ type
|
||||
|
||||
{ IContactos_Refresh }
|
||||
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{B271D47C-045D-4B48-ACE6-5F36B7D42236}']
|
||||
['{6041072A-9CB7-4096-88CF-5069C7EA0833}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -5070,27 +5140,6 @@ begin
|
||||
DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesBLOQUEADO].AsSmallInt;
|
||||
@ -5322,6 +5371,69 @@ begin
|
||||
DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsVariant := Null;
|
||||
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 }
|
||||
constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -6160,6 +6272,69 @@ begin
|
||||
DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsVariant := Null;
|
||||
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 }
|
||||
constructor TVendedoresDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,25 +9,25 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_PersonalContactoDelta = '{845C4940-7BFD-40A8-9E33-AD056E3C2A27}';
|
||||
RID_DarTiendaDeUsuarioDelta = '{D50280BB-652F-4F52-A3E1-0C8EC19492DF}';
|
||||
RID_SubCuentasContactoDelta = '{69B0CFEF-1D7B-49D6-AF7E-2D023A0822A5}';
|
||||
RID_ContactosDelta = '{763B21A0-1CDE-4A11-97FE-86A7D488BCA2}';
|
||||
RID_GruposClienteDelta = '{E08A27A2-0C3D-4880-A705-8E9E599A094A}';
|
||||
RID_DatosBancariosDelta = '{3B9A634C-4586-4A72-B982-AB25BF2E6C24}';
|
||||
RID_ClientesDelta = '{4192433E-E014-410F-BDE6-1D0D1CC50823}';
|
||||
RID_ProveedoresDelta = '{061A9581-0319-4275-A02F-F56419EA77D7}';
|
||||
RID_VendedoresDelta = '{57099FD5-396F-4C40-B270-5652ECB6D973}';
|
||||
RID_DireccionesContactoDelta = '{E6EAE8E3-FC4C-4FA3-9309-5BA66CAEC684}';
|
||||
RID_ClientesDescuentosDelta = '{BE063743-BB6D-49A0-AD45-0D7F8BA11FC5}';
|
||||
RID_ProcedenciasClienteDelta = '{33C3D07B-35C3-4B41-85C3-05B8F8ECF5C9}';
|
||||
RID_GruposProveedorDelta = '{DDE12288-B000-45AA-A36C-24C4555CA432}';
|
||||
RID_Contactos_RefreshDelta = '{F7D74B95-D7FE-4362-AC9B-433041EB9053}';
|
||||
RID_PersonalContactoDelta = '{5E077D9B-D4D9-4B7D-B1F4-8236A79DC607}';
|
||||
RID_DarTiendaDeUsuarioDelta = '{7AFE4420-13DD-420E-A8DE-93464EF93F59}';
|
||||
RID_SubCuentasContactoDelta = '{0FAD99B4-0F6F-43AB-A6A2-D05725700767}';
|
||||
RID_ContactosDelta = '{29E47B8B-30E6-4B4E-B218-6E3CB867BDC8}';
|
||||
RID_GruposClienteDelta = '{8B15524D-83C1-4F38-ACCE-2A0CA45DBFEF}';
|
||||
RID_DatosBancariosDelta = '{AE0DA606-F1FC-4725-94C3-F1F22858DF25}';
|
||||
RID_ClientesDelta = '{6CD74F52-43BA-4DDD-9626-374A140E486C}';
|
||||
RID_ProveedoresDelta = '{45BEDF42-D57A-4B27-9A39-DAA56D0EFDAA}';
|
||||
RID_VendedoresDelta = '{365B6366-050C-443E-8A11-66EB0D7F9E0B}';
|
||||
RID_DireccionesContactoDelta = '{BFBF154C-C62B-4DFC-B816-4C7649222909}';
|
||||
RID_ClientesDescuentosDelta = '{75E242C6-00BE-4179-AE7F-4393F5AE9B4A}';
|
||||
RID_ProcedenciasClienteDelta = '{1D54F076-4D87-414E-B567-2052949AF687}';
|
||||
RID_GruposProveedorDelta = '{C3A6BA6F-15EC-486F-8212-0CEB2A66D6A1}';
|
||||
RID_Contactos_RefreshDelta = '{F1DF7DB2-6FC0-43D6-B14B-E6E6DE744DE4}';
|
||||
|
||||
type
|
||||
{ IPersonalContactoDelta }
|
||||
IPersonalContactoDelta = interface(IPersonalContacto)
|
||||
['{845C4940-7BFD-40A8-9E33-AD056E3C2A27}']
|
||||
['{5E077D9B-D4D9-4B7D-B1F4-8236A79DC607}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -169,7 +169,7 @@ type
|
||||
|
||||
{ IDarTiendaDeUsuarioDelta }
|
||||
IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario)
|
||||
['{D50280BB-652F-4F52-A3E1-0C8EC19492DF}']
|
||||
['{7AFE4420-13DD-420E-A8DE-93464EF93F59}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_TIENDAValue : Integer;
|
||||
|
||||
@ -203,7 +203,7 @@ type
|
||||
|
||||
{ ISubCuentasContactoDelta }
|
||||
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
|
||||
['{69B0CFEF-1D7B-49D6-AF7E-2D023A0822A5}']
|
||||
['{0FAD99B4-0F6F-43AB-A6A2-D05725700767}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_SUBCUENTAValue : String;
|
||||
@ -297,7 +297,7 @@ type
|
||||
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{763B21A0-1CDE-4A11-97FE-86A7D488BCA2}']
|
||||
['{29E47B8B-30E6-4B4E-B218-6E3CB867BDC8}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -620,7 +620,7 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{E08A27A2-0C3D-4880-A705-8E9E599A094A}']
|
||||
['{8B15524D-83C1-4F38-ACCE-2A0CA45DBFEF}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -666,7 +666,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{3B9A634C-4586-4A72-B982-AB25BF2E6C24}']
|
||||
['{AE0DA606-F1FC-4725-94C3-F1F22858DF25}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -796,7 +796,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{4192433E-E014-410F-BDE6-1D0D1CC50823}']
|
||||
['{6CD74F52-43BA-4DDD-9626-374A140E486C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -825,7 +825,6 @@ type
|
||||
function GetOldTIENDAValue : String;
|
||||
function GetOldGRUPO_CLIENTEValue : String;
|
||||
function GetOldNOMBRE_COMERCIALValue : String;
|
||||
function GetOldVENCIMIENTO_FACTURASValue : Integer;
|
||||
function GetOldBLOQUEADOValue : SmallInt;
|
||||
function GetOldREGIMEN_IVAValue : String;
|
||||
function GetOldMOTIVO_BLOQUEOValue : String;
|
||||
@ -837,6 +836,9 @@ type
|
||||
function GetOldIGNORAR_CONTABILIDADValue : Integer;
|
||||
function GetOldTIENE_SUBCUENTAValue : Integer;
|
||||
function GetOldPROCEDENCIA_CLIENTEValue : String;
|
||||
function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
|
||||
function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
|
||||
function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -866,7 +868,6 @@ type
|
||||
property OldTIENDA : String read GetOldTIENDAValue;
|
||||
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
|
||||
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
||||
property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
|
||||
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
|
||||
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
|
||||
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
|
||||
@ -878,6 +879,9 @@ type
|
||||
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
|
||||
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
|
||||
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;
|
||||
|
||||
{ TClientesBusinessProcessorRules }
|
||||
@ -1048,12 +1052,6 @@ type
|
||||
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_COMERCIALValue(const aValue: String); 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 GetBLOQUEADOIsNull: Boolean; virtual;
|
||||
function GetOldBLOQUEADOValue: SmallInt; virtual;
|
||||
@ -1120,6 +1118,24 @@ type
|
||||
function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -1230,10 +1246,6 @@ type
|
||||
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
|
||||
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
||||
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 BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
||||
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
|
||||
@ -1278,6 +1290,18 @@ type
|
||||
property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
|
||||
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -1287,7 +1311,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{061A9581-0319-4275-A02F-F56419EA77D7}']
|
||||
['{45BEDF42-D57A-4B27-9A39-DAA56D0EFDAA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1328,6 +1352,9 @@ type
|
||||
function GetOldTIENE_SUBCUENTAValue : Integer;
|
||||
function GetOldNOMBRE_COMERCIALValue : String;
|
||||
function GetOldES_ACREEDORValue : SmallInt;
|
||||
function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
|
||||
function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
|
||||
function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -1369,6 +1396,9 @@ type
|
||||
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
|
||||
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
||||
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;
|
||||
|
||||
{ TProveedoresBusinessProcessorRules }
|
||||
@ -1611,6 +1641,24 @@ type
|
||||
function GetOldES_ACREEDORIsNull: Boolean; virtual;
|
||||
procedure SetES_ACREEDORValue(const aValue: SmallInt); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -1769,6 +1817,18 @@ type
|
||||
property ES_ACREEDORIsNull : Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
|
||||
property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -1778,7 +1838,7 @@ type
|
||||
|
||||
{ IVendedoresDelta }
|
||||
IVendedoresDelta = interface(IVendedores)
|
||||
['{57099FD5-396F-4C40-B270-5652ECB6D973}']
|
||||
['{365B6366-050C-443E-8A11-66EB0D7F9E0B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -2125,7 +2185,7 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{E6EAE8E3-FC4C-4FA3-9309-5BA66CAEC684}']
|
||||
['{BFBF154C-C62B-4DFC-B816-4C7649222909}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -2352,7 +2412,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{BE063743-BB6D-49A0-AD45-0D7F8BA11FC5}']
|
||||
['{75E242C6-00BE-4179-AE7F-4393F5AE9B4A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -2434,7 +2494,7 @@ type
|
||||
|
||||
{ IProcedenciasClienteDelta }
|
||||
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
|
||||
['{33C3D07B-35C3-4B41-85C3-05B8F8ECF5C9}']
|
||||
['{1D54F076-4D87-414E-B567-2052949AF687}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2480,7 +2540,7 @@ type
|
||||
|
||||
{ IGruposProveedorDelta }
|
||||
IGruposProveedorDelta = interface(IGruposProveedor)
|
||||
['{DDE12288-B000-45AA-A36C-24C4555CA432}']
|
||||
['{C3A6BA6F-15EC-486F-8212-0CEB2A66D6A1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2526,7 +2586,7 @@ type
|
||||
|
||||
{ IContactos_RefreshDelta }
|
||||
IContactos_RefreshDelta = interface(IContactos_Refresh)
|
||||
['{F7D74B95-D7FE-4362-AC9B-433041EB9053}']
|
||||
['{F1DF7DB2-6FC0-43D6-B14B-E6E6DE744DE4}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
@ -5383,37 +5443,6 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO];
|
||||
@ -5755,6 +5784,99 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE] := Null;
|
||||
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 }
|
||||
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -6984,6 +7106,99 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR] := Null;
|
||||
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 }
|
||||
constructor TVendedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -145,7 +145,6 @@ begin
|
||||
// ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
|
||||
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
|
||||
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('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
|
||||
ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
|
||||
@ -157,6 +156,11 @@ begin
|
||||
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
|
||||
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA];
|
||||
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;
|
||||
end;
|
||||
|
||||
@ -194,7 +198,6 @@ begin
|
||||
// ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
|
||||
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
|
||||
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('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
|
||||
ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
|
||||
@ -206,6 +209,11 @@ begin
|
||||
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
|
||||
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA];
|
||||
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;
|
||||
end;
|
||||
|
||||
|
||||
@ -54,8 +54,14 @@ type
|
||||
function GetNOMBRE_COMERCIALValue: String;
|
||||
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
|
||||
|
||||
function GetVENCIMIENTO_FACTURASValue: Integer;
|
||||
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
|
||||
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 GetBLOQUEADOValue: Integer;
|
||||
procedure SetBLOQUEADOValue(const aValue: Integer);
|
||||
@ -85,7 +91,9 @@ type
|
||||
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
|
||||
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
|
||||
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 MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
|
||||
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
|
||||
@ -121,6 +129,15 @@ type
|
||||
function GetNOMBRE_COMERCIALValue: 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;
|
||||
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
|
||||
|
||||
@ -153,6 +170,9 @@ type
|
||||
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
|
||||
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
|
||||
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;
|
||||
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
|
||||
@ -244,8 +264,14 @@ type
|
||||
function GetNOMBRE_COMERCIALValue: String;
|
||||
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
|
||||
|
||||
function GetVENCIMIENTO_FACTURASValue: Integer;
|
||||
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
|
||||
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 GetBLOQUEADOValue: Integer;
|
||||
procedure SetBLOQUEADOValue(const aValue: Integer);
|
||||
@ -288,7 +314,9 @@ type
|
||||
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
|
||||
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
|
||||
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 MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
|
||||
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
|
||||
@ -322,6 +350,15 @@ type
|
||||
function GetREGIMEN_IVAValue: 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;
|
||||
procedure SetID_TIPO_IVAValue(const aValue: Integer);
|
||||
|
||||
@ -362,6 +399,9 @@ type
|
||||
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_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 HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
|
||||
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
|
||||
@ -639,9 +679,19 @@ begin
|
||||
result := DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer;
|
||||
function TBizCliente.GetVENCIMIENTO_FACTURAS_1Value: Integer;
|
||||
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;
|
||||
|
||||
procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
|
||||
@ -670,16 +720,25 @@ begin
|
||||
DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger := Value;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
|
||||
procedure TBizCliente.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
|
||||
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;
|
||||
|
||||
procedure TBizCliente.IniciarValoresContactoNuevo;
|
||||
begin
|
||||
inherited;
|
||||
ID_CATEGORIA := CATEGORIA_CLIENTE;
|
||||
VENCIMIENTO_FACTURAS := CLIENTE_DIAS_VENCIMIENTO;
|
||||
BLOQUEADO := 0;
|
||||
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
|
||||
REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA);
|
||||
@ -748,6 +807,21 @@ begin
|
||||
result := DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger;
|
||||
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;
|
||||
begin
|
||||
inherited;
|
||||
@ -884,6 +958,21 @@ begin
|
||||
DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger := Value;
|
||||
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 }
|
||||
|
||||
|
||||
|
||||
@ -157,6 +157,10 @@ begin
|
||||
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
|
||||
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
|
||||
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;
|
||||
end;
|
||||
|
||||
@ -203,6 +207,11 @@ begin
|
||||
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
|
||||
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
|
||||
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;
|
||||
end;
|
||||
|
||||
|
||||
@ -741,10 +741,6 @@ object srvContactos: TsrvContactos
|
||||
DatasetField = 'NOMBRE_COMERCIAL'
|
||||
TableField = 'NOMBRE_COMERCIAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'VENCIMIENTO_FACTURAS'
|
||||
TableField = 'VENCIMIENTO_FACTURAS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'BLOQUEADO'
|
||||
TableField = 'BLOQUEADO'
|
||||
@ -788,6 +784,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'Clientes'
|
||||
@ -952,11 +960,6 @@ object srvContactos: TsrvContactos
|
||||
Size = 255
|
||||
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS'
|
||||
end
|
||||
item
|
||||
Name = 'BLOQUEADO'
|
||||
DataType = datSmallInt
|
||||
@ -1014,6 +1017,18 @@ object srvContactos: TsrvContactos
|
||||
DataType = datString
|
||||
Size = 255
|
||||
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
|
||||
item
|
||||
@ -1179,6 +1194,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'Proveedores'
|
||||
@ -1403,6 +1430,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'ES_ACREEDOR'
|
||||
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
|
||||
item
|
||||
@ -2771,10 +2810,6 @@ object srvContactos: TsrvContactos
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'BLOQUEADO'
|
||||
Value = ''
|
||||
@ -2814,6 +2849,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'TIENE_SUBCUENTA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -2821,15 +2868,16 @@ object srvContactos: TsrvContactos
|
||||
TargetTable = 'CLIENTES_DATOS'
|
||||
SQL =
|
||||
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' +
|
||||
'ARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' +
|
||||
'BLOQUEADO, MOTIVO_BLOQUEO,'#10' REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' +
|
||||
'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO, IGNORAR_CONTABILIDAD,'#10' ' +
|
||||
' PROCEDENCIA_CLIENTE, TIENE_SUBCUENTA)'#10' VALUES'#10' (:ID_CLIENTE' +
|
||||
', :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL,' +
|
||||
' :VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIM' +
|
||||
'EN_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_' +
|
||||
'ASIGNADO, :IGNORAR_CONTABILIDAD,'#10' :PROCEDENCIA_CLIENTE, :TIE' +
|
||||
'NE_SUBCUENTA)'#10
|
||||
'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL, BLOQUEADO,'#10' MOTIVO_BLOQ' +
|
||||
'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB,'#10' C' +
|
||||
'ODIGO_ASIGNADO, IGNORAR_CONTABILIDAD, PROCEDENCIA_CLIENTE, TIENE' +
|
||||
'_SUBCUENTA,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2,' +
|
||||
' VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIEN' +
|
||||
'TE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL, :BLOQUEADO,'#10' :' +
|
||||
'MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIE' +
|
||||
'NDA_WEB,'#10' :CODIGO_ASIGNADO, :IGNORAR_CONTABILIDAD, :PROCEDEN' +
|
||||
'CIA_CLIENTE, :TIENE_SUBCUENTA,'#10' :VENCIMIENTO_FACTURAS_1, :VE' +
|
||||
'NCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -2917,6 +2965,18 @@ object srvContactos: TsrvContactos
|
||||
Name = 'PROCEDENCIA_CLIENTE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_CLIENTE'
|
||||
Value = ''
|
||||
@ -2935,8 +2995,10 @@ object srvContactos: TsrvContactos
|
||||
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' +
|
||||
'GNADO = :CODIGO_ASIGNADO,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CO' +
|
||||
'NTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,'#10' PROCEDEN' +
|
||||
'CIA_CLIENTE = :PROCEDENCIA_CLIENTE'#10' WHERE'#10' (ID_CLIENTE = :OL' +
|
||||
'D_ID_CLIENTE)'#10
|
||||
'CIA_CLIENTE = :PROCEDENCIA_CLIENTE,'#10' VENCIMIENTO_FACTURAS_1 =' +
|
||||
' :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
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3003,6 +3065,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'ES_ACREEDOR'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -3013,11 +3087,14 @@ object srvContactos: TsrvContactos
|
||||
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
|
||||
'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' +
|
||||
'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA, NOMBRE' +
|
||||
'_COMERCIAL, ES_ACREEDOR)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_I' +
|
||||
'VA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :I' +
|
||||
'D_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTI' +
|
||||
'FICACION, :GRUPO_PROVEEDOR,'#10' :IGNORAR_CONTABILIDAD, :TIENE_SU' +
|
||||
'BCUENTA, :NOMBRE_COMERCIAL, :ES_ACREEDOR)'#10
|
||||
'_COMERCIAL, ES_ACREEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO' +
|
||||
'_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEEDOR' +
|
||||
', :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_' +
|
||||
'ASIGNADO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLO' +
|
||||
'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
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3105,6 +3182,18 @@ object srvContactos: TsrvContactos
|
||||
Name = 'ES_ACREEDOR'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_PROVEEDOR'
|
||||
Value = ''
|
||||
@ -3123,7 +3212,10 @@ object srvContactos: TsrvContactos
|
||||
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' +
|
||||
'= :IGNORAR_CONTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,' +
|
||||
#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
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -65,7 +65,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 890
|
||||
Height = 544
|
||||
ActivePage = pagContabilidad
|
||||
ActivePage = pagDatosComerciales
|
||||
ExplicitWidth = 890
|
||||
ExplicitHeight = 544
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -112,44 +112,44 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitTop = 162
|
||||
end
|
||||
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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 243
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
ExplicitWidth = 336
|
||||
Width = 336
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Top = 270
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
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
|
||||
Width = 428
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 504
|
||||
Top = 270
|
||||
Top = 243
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 504
|
||||
ExplicitTop = 270
|
||||
ExplicitTop = 243
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 426
|
||||
@ -342,12 +342,12 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 104
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Top = 216
|
||||
Top = 297
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 216
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
end
|
||||
@ -429,6 +429,38 @@ inherited fEditorCliente: TfEditorCliente
|
||||
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
|
||||
Caption = 'Datos comerciales'
|
||||
ImageIndex = 4
|
||||
@ -455,27 +487,8 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitWidth = 882
|
||||
ExplicitHeight = 193
|
||||
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
|
||||
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
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
Top = 30
|
||||
@ -508,9 +521,9 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 289
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 410
|
||||
Left = 415
|
||||
Top = 57
|
||||
ExplicitLeft = 410
|
||||
ExplicitLeft = 415
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
@ -524,15 +537,15 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 289
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 410
|
||||
Left = 415
|
||||
Top = 84
|
||||
ExplicitLeft = 410
|
||||
ExplicitLeft = 415
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited dxLayoutGroup1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item2: TdxLayoutItem
|
||||
Caption = 'D'#237'a del mes para el pago:'
|
||||
Caption = 'D'#237'a del mes 1:'
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -14,7 +14,8 @@ uses
|
||||
uIEditorCliente, TBXStatusBars, JvExComCtrls, JvStatusBar,
|
||||
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
|
||||
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
|
||||
uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto;
|
||||
uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto,
|
||||
uViewPersonalContacto;
|
||||
|
||||
type
|
||||
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
|
||||
|
||||
@ -55,7 +55,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 642
|
||||
Height = 489
|
||||
ActivePage = PagContabilidad
|
||||
ActivePage = pagDatosComerciales
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 489
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -102,44 +102,44 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitTop = 162
|
||||
end
|
||||
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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 243
|
||||
ExplicitWidth = 174
|
||||
Width = 174
|
||||
ExplicitWidth = 175
|
||||
Width = 175
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Top = 270
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
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
|
||||
Width = 267
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 310
|
||||
Top = 270
|
||||
Top = 243
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 310
|
||||
ExplicitTop = 270
|
||||
ExplicitTop = 243
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 426
|
||||
@ -332,12 +332,12 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 100
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Top = 216
|
||||
Top = 297
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 216
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
end
|
||||
@ -419,6 +419,38 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
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
|
||||
Caption = 'Datos comerciales'
|
||||
ImageIndex = 2
|
||||
@ -426,7 +458,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 634
|
||||
Height = 121
|
||||
Height = 225
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -437,19 +469,25 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 121
|
||||
ExplicitHeight = 225
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 634
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 634
|
||||
inherited Label1: TLabel
|
||||
Left = 412
|
||||
Top = 30
|
||||
Top = 135
|
||||
Width = 190
|
||||
ExplicitLeft = 412
|
||||
ExplicitTop = 30
|
||||
ExplicitTop = 135
|
||||
ExplicitWidth = 190
|
||||
end
|
||||
inherited Label2: TLabel
|
||||
Left = 394
|
||||
Top = 30
|
||||
Width = 149
|
||||
ExplicitLeft = 394
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 149
|
||||
end
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -471,9 +509,9 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 121
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 252
|
||||
Left = 234
|
||||
Top = 57
|
||||
ExplicitLeft = 252
|
||||
ExplicitLeft = 234
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
@ -487,23 +525,57 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 121
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 252
|
||||
Left = 234
|
||||
Top = 84
|
||||
ExplicitLeft = 252
|
||||
ExplicitLeft = 234
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited eDescuento: TcxDBSpinEdit
|
||||
Left = 456
|
||||
Top = 62
|
||||
Top = 167
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 456
|
||||
ExplicitTop = 62
|
||||
ExplicitTop = 167
|
||||
ExplicitWidth = 73
|
||||
Width = 73
|
||||
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
|
||||
|
||||
@ -14,7 +14,8 @@ uses
|
||||
cxSpinEdit, cxDBEdit, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
|
||||
dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
|
||||
uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
|
||||
uDAInterfaces, uViewSubCuentaContacto, StdCtrls, DBCtrls;
|
||||
uDAInterfaces, uViewSubCuentaContacto, StdCtrls, DBCtrls,
|
||||
uViewPersonalContacto;
|
||||
|
||||
type
|
||||
TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)
|
||||
|
||||
@ -16,20 +16,20 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth]
|
||||
object Label1: TLabel
|
||||
Left = 317
|
||||
Left = 327
|
||||
Top = 28
|
||||
Width = 299
|
||||
Width = 277
|
||||
Height = 26
|
||||
Caption =
|
||||
'Puede indicar los d'#237'as de vencimiento predeterminados que se uti' +
|
||||
'lizar'#225'n para las facturas de este cliente.'
|
||||
'Puede indicar el d'#237'a del mes en el cual el cliente realiza los p' +
|
||||
'agos.'
|
||||
Transparent = True
|
||||
WordWrap = True
|
||||
end
|
||||
object eDiasVencimiento: TcxDBSpinEdit
|
||||
Left = 384
|
||||
Left = 404
|
||||
Top = 60
|
||||
DataBinding.DataField = 'VENCIMIENTO_FACTURAS'
|
||||
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
Properties.AssignedValues.MinValue = True
|
||||
Properties.ImmediatePost = True
|
||||
@ -38,13 +38,17 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
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
|
||||
@ -62,14 +66,18 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
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 = 0
|
||||
Width = 180
|
||||
end
|
||||
@ -88,12 +96,16 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 5
|
||||
Width = 180
|
||||
end
|
||||
@ -118,19 +130,23 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
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 = 1
|
||||
Width = 42
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 155
|
||||
Left = 165
|
||||
Top = 55
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -159,19 +175,23 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
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 = 3
|
||||
Width = 42
|
||||
end
|
||||
object bTiposIVA: TButton
|
||||
Left = 155
|
||||
Left = 165
|
||||
Top = 82
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -179,6 +199,58 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
TabOrder = 4
|
||||
OnClick = bTiposIVAClick
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -248,6 +320,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Datos para facturaci'#243'n'
|
||||
Visible = False
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
@ -259,10 +332,22 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
Caption = 'D'#237'as de vto.:'
|
||||
Caption = 'D'#237'as del mes 1:'
|
||||
Control = eDiasVencimiento
|
||||
ControlOptions.ShowBorder = False
|
||||
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
|
||||
|
||||
@ -45,6 +45,10 @@ type
|
||||
dsTiposIVA: TDADataSource;
|
||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
cxDBSpinEdit1: TcxDBSpinEdit;
|
||||
dxLayoutControl1Item10: TdxLayoutItem;
|
||||
cxDBSpinEdit2: TcxDBSpinEdit;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);
|
||||
|
||||
@ -1,23 +1,23 @@
|
||||
inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
Width = 642
|
||||
Height = 266
|
||||
Height = 241
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 266
|
||||
ExplicitHeight = 241
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 642
|
||||
Height = 129
|
||||
Height = 225
|
||||
Align = alTop
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth]
|
||||
object Label1: TLabel
|
||||
Left = 417
|
||||
Top = 28
|
||||
Left = 22
|
||||
Top = 139
|
||||
Width = 190
|
||||
Height = 26
|
||||
Caption =
|
||||
@ -26,6 +26,17 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
Transparent = True
|
||||
WordWrap = True
|
||||
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
|
||||
Left = 107
|
||||
Top = 28
|
||||
@ -40,14 +51,18 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
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 = 0
|
||||
Width = 280
|
||||
end
|
||||
@ -70,19 +85,23 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
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 = 1
|
||||
Width = 142
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 255
|
||||
Left = 291
|
||||
Top = 55
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -109,19 +128,23 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
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 = 3
|
||||
Width = 142
|
||||
end
|
||||
object bTiposIVA: TButton
|
||||
Left = 255
|
||||
Left = 291
|
||||
Top = 82
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -130,8 +153,8 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
OnClick = bTiposIVAClick
|
||||
end
|
||||
object eDescuento: TcxDBSpinEdit
|
||||
Left = 461
|
||||
Top = 60
|
||||
Left = 107
|
||||
Top = 171
|
||||
DataBinding.DataField = 'DESCUENTO'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -139,90 +162,211 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
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 = 5
|
||||
Width = 159
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
object dxLayoutControl1Group6: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Datos comerciales'
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'R'#233'gimen de IVA:'
|
||||
Control = cbRegimenIVA
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
Caption = 'Datos comerciales'
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Forma de pago:'
|
||||
Control = cbFormaPago
|
||||
Caption = 'R'#233'gimen de IVA:'
|
||||
Control = cbRegimenIVA
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button1'
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Control = bFormasPago
|
||||
ControlOptions.ShowBorder = False
|
||||
Hidden = True
|
||||
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
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Descuento por defecto'
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'IVA por defecto'
|
||||
Control = eIVA
|
||||
Caption = 'Label1'
|
||||
ShowCaption = False
|
||||
Control = Label1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
ShowCaption = False
|
||||
Control = bTiposIVA
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
Caption = '% Dto.:'
|
||||
Control = eDescuento
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Descuento por defecto'
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Label1'
|
||||
Caption = 'Datos para facturaci'#243'n'
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = Label1
|
||||
Control = Label2
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
Caption = '% Dto.:'
|
||||
Control = eDescuento
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
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
|
||||
end
|
||||
end
|
||||
|
||||
@ -43,6 +43,16 @@ type
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
dxLayoutControl1Item10: TdxLayoutItem;
|
||||
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 CustomViewDestroy(Sender: TObject);
|
||||
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user