Se adapta fichas de cliente y proveedor para que tengan 3 días de pago para los recibos y al generar la facturas se utilizaran los 3.
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@626 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
ab3986337b
commit
a4fc979e78
@ -352,10 +352,16 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Vencimiento'
|
||||
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS'
|
||||
Name = 'VENCIMIENTO_FACTURAS_1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'BLOQUEADO'
|
||||
|
||||
@ -281,6 +281,18 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Subcontrata'
|
||||
DictionaryEntry = 'Proveedores_SUBCONTRATA'
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
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_Contactos = '{BA38FE66-615B-443E-AC3B-35C54BDAFC7A}';
|
||||
RID_GruposCliente = '{ECDB7613-9634-41F2-A3E9-ACFC9A17B4F5}';
|
||||
RID_DatosBancarios = '{77786226-ACA0-48D9-AA44-100AA432FDEF}';
|
||||
RID_Clientes = '{6F4ADF37-1957-4D1E-B7E0-659C9DC9B27D}';
|
||||
RID_Proveedores = '{58992D88-A743-479E-BE3F-183331F83BEA}';
|
||||
RID_Empleados = '{D2941064-ABFB-4CE5-8832-8683F90888A8}';
|
||||
RID_DireccionesContacto = '{2FE736C9-BBC8-43AB-88FC-A6675E0644B2}';
|
||||
RID_ClientesDescuentos = '{F0E0984F-17C9-4C7D-8D57-18ED1698C080}';
|
||||
RID_GruposProveedor = '{FFA4AEFF-DC59-4422-9CFA-28857080FC60}';
|
||||
RID_GruposEmpleado = '{43140B72-AFD6-404D-A094-8612B4E8934D}';
|
||||
RID_Contactos_Refresh = '{301DA664-5CB6-4311-91C7-A12C42F115B1}';
|
||||
RID_ContratosEmpleados = '{49DF13A6-2C5B-4F25-A3CE-7326FAB32B84}';
|
||||
RID_DescripcionesProveedores = '{83FBF40E-6287-46F5-BFAF-C6D92FE7AF4F}';
|
||||
RID_PersonalContacto = '{0BF3EDA4-836A-4340-9F68-0C3312527D0B}';
|
||||
RID_Contactos = '{88717C58-84A8-470B-8059-994AF283CC87}';
|
||||
RID_GruposCliente = '{90F0D80D-0042-409F-A93C-D60BD9489A4E}';
|
||||
RID_DatosBancarios = '{41C82024-6751-44B3-86F0-E9B28C80A41E}';
|
||||
RID_Clientes = '{9BCF75EE-2AB3-4C30-9011-34AC743797E4}';
|
||||
RID_Proveedores = '{8E2A120D-0C53-448B-8D16-B6CB84FD1460}';
|
||||
RID_Empleados = '{DD85830B-87E7-4DD3-AF23-8275488E4FEE}';
|
||||
RID_DireccionesContacto = '{D8B8A3EE-3456-4C88-BED6-4E4D72D6298C}';
|
||||
RID_ClientesDescuentos = '{1662F266-6825-4D7F-9997-9C51E1C93268}';
|
||||
RID_GruposProveedor = '{82427930-F4BB-4FE4-9518-C4F54C0F1D2B}';
|
||||
RID_GruposEmpleado = '{F3BFF021-A070-412E-9598-663C15F3B32E}';
|
||||
RID_Contactos_Refresh = '{0CE3BACA-C2F3-40AB-90B2-96A8C154F878}';
|
||||
RID_ContratosEmpleados = '{7156547B-6339-4D6F-9C67-7AB4D18C9287}';
|
||||
RID_DescripcionesProveedores = '{69CF40B3-A1ED-49EA-8FF9-A290DCF31967}';
|
||||
RID_PersonalContacto = '{9CED0719-51EC-481B-99D3-9D5091DED177}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Contactos = 'Contactos';
|
||||
@ -146,7 +146,9 @@ const
|
||||
fld_ClientesREFERENCIA = 'REFERENCIA';
|
||||
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
|
||||
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
|
||||
fld_ClientesVENCIMIENTO_FACTURAS = 'VENCIMIENTO_FACTURAS';
|
||||
fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
|
||||
fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
|
||||
fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
|
||||
fld_ClientesBLOQUEADO = 'BLOQUEADO';
|
||||
fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA';
|
||||
fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO';
|
||||
@ -183,16 +185,18 @@ const
|
||||
idx_ClientesREFERENCIA = 22;
|
||||
idx_ClientesGRUPO_CLIENTE = 23;
|
||||
idx_ClientesNOMBRE_COMERCIAL = 24;
|
||||
idx_ClientesVENCIMIENTO_FACTURAS = 25;
|
||||
idx_ClientesBLOQUEADO = 26;
|
||||
idx_ClientesREGIMEN_IVA = 27;
|
||||
idx_ClientesMOTIVO_BLOQUEO = 28;
|
||||
idx_ClientesRECARGO_EQUIVALENCIA = 29;
|
||||
idx_ClientesID_TIPO_IVA = 30;
|
||||
idx_ClientesID_FORMA_PAGO = 31;
|
||||
idx_ClientesTIENDA_WEB = 32;
|
||||
idx_ClientesCODIGO_ASIGNADO = 33;
|
||||
idx_ClientesDESCUENTO = 34;
|
||||
idx_ClientesVENCIMIENTO_FACTURAS_1 = 25;
|
||||
idx_ClientesVENCIMIENTO_FACTURAS_2 = 26;
|
||||
idx_ClientesVENCIMIENTO_FACTURAS_3 = 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_ClientesDESCUENTO = 36;
|
||||
|
||||
{ Proveedores fields }
|
||||
fld_ProveedoresID = 'ID';
|
||||
@ -229,6 +233,9 @@ const
|
||||
fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO';
|
||||
fld_ProveedoresCERTIFICACION = 'CERTIFICACION';
|
||||
fld_ProveedoresSUBCONTRATA = 'SUBCONTRATA';
|
||||
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;
|
||||
@ -265,6 +272,9 @@ const
|
||||
idx_ProveedoresHOMOLOGADO = 31;
|
||||
idx_ProveedoresCERTIFICACION = 32;
|
||||
idx_ProveedoresSUBCONTRATA = 33;
|
||||
idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 34;
|
||||
idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 35;
|
||||
idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 36;
|
||||
|
||||
{ Empleados fields }
|
||||
fld_EmpleadosID = 'ID';
|
||||
@ -489,7 +499,7 @@ const
|
||||
type
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{411FE58B-C504-42A1-881E-C645A05E3996}']
|
||||
['{3D3289B5-C0D5-4B66-8805-D141DFD0F3B5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -788,7 +798,7 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{7C7B3A92-D0E8-4041-91B0-BFBED35FAAF1}']
|
||||
['{D1AF4F9C-B92D-4F21-9443-BBCD429BD57A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -835,7 +845,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{0262BC83-1F74-45D2-A847-0E0348C36252}']
|
||||
['{76A6EA81-8519-43E0-852F-FEBD576D1356}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -966,7 +976,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{9799E066-6E73-47CC-A9A4-9E816290C1D6}']
|
||||
['{90497427-B985-42B3-86FE-B131BFB87831}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1067,10 +1077,18 @@ 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 GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
|
||||
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
|
||||
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
|
||||
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
|
||||
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
|
||||
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
|
||||
function GetBLOQUEADOValue: SmallInt;
|
||||
procedure SetBLOQUEADOValue(const aValue: SmallInt);
|
||||
function GetBLOQUEADOIsNull: Boolean;
|
||||
@ -1160,8 +1178,12 @@ 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 VENCIMIENTO_FACTURAS_1: SmallInt 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: SmallInt 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: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
||||
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
|
||||
property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
|
||||
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
||||
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
|
||||
@ -1288,10 +1310,18 @@ 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 GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
|
||||
function GetBLOQUEADOValue: SmallInt; virtual;
|
||||
procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
|
||||
function GetBLOQUEADOIsNull: Boolean; virtual;
|
||||
@ -1380,8 +1410,12 @@ 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 VENCIMIENTO_FACTURAS_1: SmallInt 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: SmallInt 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: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
||||
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
|
||||
property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
|
||||
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
||||
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
|
||||
@ -1409,7 +1443,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{7EBD5AEC-9F83-44E3-A329-B74A389C9814}']
|
||||
['{250B746E-0268-4403-B61C-8DA02AB23E18}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1546,6 +1580,18 @@ type
|
||||
procedure SetSUBCONTRATAValue(const aValue: SmallInt);
|
||||
function GetSUBCONTRATAIsNull: Boolean;
|
||||
procedure SetSUBCONTRATAIsNull(const aValue: Boolean);
|
||||
function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
|
||||
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
|
||||
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
|
||||
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
|
||||
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
|
||||
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -1617,6 +1663,12 @@ type
|
||||
property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
|
||||
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
|
||||
property SUBCONTRATAIsNull: Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull;
|
||||
property VENCIMIENTO_FACTURAS_1: SmallInt 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: SmallInt 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: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
||||
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
|
||||
end;
|
||||
|
||||
{ TProveedoresDataTableRules }
|
||||
@ -1761,6 +1813,18 @@ type
|
||||
procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual;
|
||||
function GetSUBCONTRATAIsNull: Boolean; virtual;
|
||||
procedure SetSUBCONTRATAIsNull(const aValue: Boolean); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1831,6 +1895,12 @@ type
|
||||
property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
|
||||
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
|
||||
property SUBCONTRATAIsNull: Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull;
|
||||
property VENCIMIENTO_FACTURAS_1: SmallInt 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: SmallInt 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: SmallInt 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;
|
||||
@ -1840,7 +1910,7 @@ type
|
||||
|
||||
{ IEmpleados }
|
||||
IEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{7FADA31E-8655-459C-83CF-22C5B4E04828}']
|
||||
['{3614AEDF-A5C6-49A3-9224-018A2080B884}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2271,7 +2341,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{5B3F654F-2625-40E8-A6F7-F83DE29B3AF2}']
|
||||
['{14C481DB-4878-4FF1-A4A0-1F6A1CA94358}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2486,7 +2556,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{5DA8AAC1-7E71-496C-83E2-CB4A5DEA2D89}']
|
||||
['{D833E457-3E68-4FB7-B2A3-30DB1FA76212}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2569,7 +2639,7 @@ type
|
||||
|
||||
{ IGruposProveedor }
|
||||
IGruposProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{AF7D8134-2E25-47ED-B907-F122AAECFDC4}']
|
||||
['{6AE5C79F-BE48-4B9D-9B76-D4DDA6C1F9BD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2616,7 +2686,7 @@ type
|
||||
|
||||
{ IGruposEmpleado }
|
||||
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
|
||||
['{6D69900D-66A4-45F4-B39D-F553E5040214}']
|
||||
['{5D14CA3F-E109-4CB0-8A5B-21D6FB2C08E0}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2663,7 +2733,7 @@ type
|
||||
|
||||
{ IContactos_Refresh }
|
||||
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{E71CEE7C-252B-4AD6-952F-1D4A6DCCB33C}']
|
||||
['{2929B073-299D-4AE6-8549-239C114B6773}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2938,7 +3008,7 @@ type
|
||||
|
||||
{ IContratosEmpleados }
|
||||
IContratosEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{31774D76-B4F1-4DC8-9A99-040A137AC446}']
|
||||
['{EA7CCC36-96F3-4B1D-8F78-D03AF5C0E35F}']
|
||||
{ Property getters and setters }
|
||||
function GetCONTRATOValue: String;
|
||||
procedure SetCONTRATOValue(const aValue: String);
|
||||
@ -2973,7 +3043,7 @@ type
|
||||
|
||||
{ IDescripcionesProveedores }
|
||||
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{EAFB7FCC-50C5-49F7-9A09-F407F1BCEEAC}']
|
||||
['{18711C3F-5D12-4EE5-9BF3-9447FA00C6B1}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCION_PROVEEDORValue: String;
|
||||
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
|
||||
@ -3008,7 +3078,7 @@ type
|
||||
|
||||
{ IPersonalContacto }
|
||||
IPersonalContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{A05D0D86-2240-4E70-95EC-C4C0252EDB5F}']
|
||||
['{1D234231-A4D4-4114-B9C2-FADD996CBF04}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -4453,25 +4523,67 @@ begin
|
||||
DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TClientesDataTableRules.GetVENCIMIENTO_FACTURASValue: Integer;
|
||||
function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger;
|
||||
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
|
||||
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue;
|
||||
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TClientesDataTableRules.GetVENCIMIENTO_FACTURASIsNull: boolean;
|
||||
function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].IsNull;
|
||||
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].IsNull;
|
||||
end;
|
||||
|
||||
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean);
|
||||
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsVariant := Null;
|
||||
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsSmallInt := 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: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsSmallInt := 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;
|
||||
|
||||
function TClientesDataTableRules.GetBLOQUEADOValue: SmallInt;
|
||||
@ -5396,6 +5508,69 @@ begin
|
||||
DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsSmallInt := 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: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsSmallInt := 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: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsSmallInt := 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;
|
||||
|
||||
|
||||
{ TEmpleadosDataTableRules }
|
||||
constructor TEmpleadosDataTableRules.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_ContactosDelta = '{76362088-C1EE-4136-B602-2F4FE5B4E65F}';
|
||||
RID_GruposClienteDelta = '{4E47FE40-C579-45F2-8D30-E8A67549374E}';
|
||||
RID_DatosBancariosDelta = '{155E0B8B-5958-4383-A845-188DCB34D694}';
|
||||
RID_ClientesDelta = '{DD3F0937-1632-4E02-81AA-D9F9DB99752E}';
|
||||
RID_ProveedoresDelta = '{E1C41362-DAC0-4923-AF1B-3E7151FCB617}';
|
||||
RID_EmpleadosDelta = '{BB760188-169E-4A71-85E1-76DACB9C2960}';
|
||||
RID_DireccionesContactoDelta = '{9DB84202-F502-4E91-8182-C05343B87D04}';
|
||||
RID_ClientesDescuentosDelta = '{34323D2F-6886-4CE0-B598-715E117C439C}';
|
||||
RID_GruposProveedorDelta = '{E5D84743-C153-4EE6-8F3B-66D11843D594}';
|
||||
RID_GruposEmpleadoDelta = '{9BEC700D-7D02-415D-8BCE-A5230A37D7DB}';
|
||||
RID_Contactos_RefreshDelta = '{9B20DE7E-89CE-41AE-910E-8B2A8C93976B}';
|
||||
RID_ContratosEmpleadosDelta = '{9EDC7470-B7F4-4DC6-8329-7D7AD29B6770}';
|
||||
RID_DescripcionesProveedoresDelta = '{BA14BEED-A34C-4CF6-937B-7491E24D854B}';
|
||||
RID_PersonalContactoDelta = '{2C7A84B7-C510-47E2-8975-3EC5F7BA0BC4}';
|
||||
RID_ContactosDelta = '{1C5B32B2-64A7-46DC-80ED-D55EC2EAB36E}';
|
||||
RID_GruposClienteDelta = '{DBE23906-43B6-40D4-89A6-8C43DE5D0199}';
|
||||
RID_DatosBancariosDelta = '{38A6CAFD-4A4A-4428-8FBD-B69CDA95CD55}';
|
||||
RID_ClientesDelta = '{64BFD4A6-E90F-4DA2-B05F-5F502159D5A0}';
|
||||
RID_ProveedoresDelta = '{1670C1F4-BF8D-452C-842A-B0ED16A60DC0}';
|
||||
RID_EmpleadosDelta = '{3A92EF9C-7A9F-4B3D-8DFF-D64D46E5AD46}';
|
||||
RID_DireccionesContactoDelta = '{C30F8EFB-4A0F-42B8-9F1F-6278977F2027}';
|
||||
RID_ClientesDescuentosDelta = '{77E7EAAB-0BAB-4FC2-A30D-D829675B9158}';
|
||||
RID_GruposProveedorDelta = '{EFDF5B68-9988-4B1F-BAAB-58D7364DBF52}';
|
||||
RID_GruposEmpleadoDelta = '{3E423ADF-172F-41AD-B354-2E4B5527CCDA}';
|
||||
RID_Contactos_RefreshDelta = '{76D97E59-A5FC-4DE6-8562-180558DF00C0}';
|
||||
RID_ContratosEmpleadosDelta = '{9779B5A3-C2B5-45B6-A303-D965A44A0A20}';
|
||||
RID_DescripcionesProveedoresDelta = '{E4568314-2296-4F51-8A69-5D98C83B7D6F}';
|
||||
RID_PersonalContactoDelta = '{EA96B4AB-F363-4868-88B7-D29F001991C5}';
|
||||
|
||||
type
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{76362088-C1EE-4136-B602-2F4FE5B4E65F}']
|
||||
['{1C5B32B2-64A7-46DC-80ED-D55EC2EAB36E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -326,7 +326,7 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{4E47FE40-C579-45F2-8D30-E8A67549374E}']
|
||||
['{DBE23906-43B6-40D4-89A6-8C43DE5D0199}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -372,7 +372,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{155E0B8B-5958-4383-A845-188DCB34D694}']
|
||||
['{38A6CAFD-4A4A-4428-8FBD-B69CDA95CD55}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -502,7 +502,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{DD3F0937-1632-4E02-81AA-D9F9DB99752E}']
|
||||
['{64BFD4A6-E90F-4DA2-B05F-5F502159D5A0}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -529,7 +529,9 @@ type
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldGRUPO_CLIENTEValue : String;
|
||||
function GetOldNOMBRE_COMERCIALValue : String;
|
||||
function GetOldVENCIMIENTO_FACTURASValue : Integer;
|
||||
function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
|
||||
function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt;
|
||||
function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt;
|
||||
function GetOldBLOQUEADOValue : SmallInt;
|
||||
function GetOldREGIMEN_IVAValue : String;
|
||||
function GetOldMOTIVO_BLOQUEOValue : String;
|
||||
@ -566,7 +568,9 @@ type
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
|
||||
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
||||
property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
|
||||
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
||||
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
||||
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
||||
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
|
||||
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
|
||||
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
|
||||
@ -734,12 +738,24 @@ 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 GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
|
||||
function GetBLOQUEADOValue: SmallInt; virtual;
|
||||
function GetBLOQUEADOIsNull: Boolean; virtual;
|
||||
function GetOldBLOQUEADOValue: SmallInt; virtual;
|
||||
@ -896,10 +912,18 @@ 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 VENCIMIENTO_FACTURAS_1 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
||||
property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull;
|
||||
property VENCIMIENTO_FACTURAS_2 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
||||
property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull;
|
||||
property VENCIMIENTO_FACTURAS_3 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
||||
property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
|
||||
property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
|
||||
property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
||||
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
|
||||
@ -945,7 +969,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{E1C41362-DAC0-4923-AF1B-3E7151FCB617}']
|
||||
['{1670C1F4-BF8D-452C-842A-B0ED16A60DC0}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -981,6 +1005,9 @@ type
|
||||
function GetOldHOMOLOGADOValue : SmallInt;
|
||||
function GetOldCERTIFICACIONValue : String;
|
||||
function GetOldSUBCONTRATAValue : SmallInt;
|
||||
function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
|
||||
function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt;
|
||||
function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -1017,6 +1044,9 @@ type
|
||||
property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
|
||||
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
|
||||
property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue;
|
||||
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
||||
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
||||
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
||||
end;
|
||||
|
||||
{ TProveedoresBusinessProcessorRules }
|
||||
@ -1229,6 +1259,24 @@ type
|
||||
function GetOldSUBCONTRATAIsNull: Boolean; virtual;
|
||||
procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual;
|
||||
procedure SetSUBCONTRATAIsNull(const aValue: Boolean); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
||||
function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -1367,6 +1415,18 @@ type
|
||||
property SUBCONTRATAIsNull : Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull;
|
||||
property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue;
|
||||
property OldSUBCONTRATAIsNull : Boolean read GetOldSUBCONTRATAIsNull;
|
||||
property VENCIMIENTO_FACTURAS_1 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
||||
property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull;
|
||||
property VENCIMIENTO_FACTURAS_2 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
||||
property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull;
|
||||
property VENCIMIENTO_FACTURAS_3 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
||||
property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -1376,7 +1436,7 @@ type
|
||||
|
||||
{ IEmpleadosDelta }
|
||||
IEmpleadosDelta = interface(IEmpleados)
|
||||
['{BB760188-169E-4A71-85E1-76DACB9C2960}']
|
||||
['{3A92EF9C-7A9F-4B3D-8DFF-D64D46E5AD46}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1811,7 +1871,7 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{9DB84202-F502-4E91-8182-C05343B87D04}']
|
||||
['{C30F8EFB-4A0F-42B8-9F1F-6278977F2027}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -2026,7 +2086,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{34323D2F-6886-4CE0-B598-715E117C439C}']
|
||||
['{77E7EAAB-0BAB-4FC2-A30D-D829675B9158}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -2108,7 +2168,7 @@ type
|
||||
|
||||
{ IGruposProveedorDelta }
|
||||
IGruposProveedorDelta = interface(IGruposProveedor)
|
||||
['{E5D84743-C153-4EE6-8F3B-66D11843D594}']
|
||||
['{EFDF5B68-9988-4B1F-BAAB-58D7364DBF52}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2154,7 +2214,7 @@ type
|
||||
|
||||
{ IGruposEmpleadoDelta }
|
||||
IGruposEmpleadoDelta = interface(IGruposEmpleado)
|
||||
['{9BEC700D-7D02-415D-8BCE-A5230A37D7DB}']
|
||||
['{3E423ADF-172F-41AD-B354-2E4B5527CCDA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2200,7 +2260,7 @@ type
|
||||
|
||||
{ IContactos_RefreshDelta }
|
||||
IContactos_RefreshDelta = interface(IContactos_Refresh)
|
||||
['{9B20DE7E-89CE-41AE-910E-8B2A8C93976B}']
|
||||
['{76D97E59-A5FC-4DE6-8562-180558DF00C0}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
@ -2475,7 +2535,7 @@ type
|
||||
|
||||
{ IContratosEmpleadosDelta }
|
||||
IContratosEmpleadosDelta = interface(IContratosEmpleados)
|
||||
['{9EDC7470-B7F4-4DC6-8329-7D7AD29B6770}']
|
||||
['{9779B5A3-C2B5-45B6-A303-D965A44A0A20}']
|
||||
{ Property getters and setters }
|
||||
function GetOldCONTRATOValue : String;
|
||||
|
||||
@ -2509,7 +2569,7 @@ type
|
||||
|
||||
{ IDescripcionesProveedoresDelta }
|
||||
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
|
||||
['{BA14BEED-A34C-4CF6-937B-7491E24D854B}']
|
||||
['{E4568314-2296-4F51-8A69-5D98C83B7D6F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCION_PROVEEDORValue : String;
|
||||
|
||||
@ -2543,7 +2603,7 @@ type
|
||||
|
||||
{ IPersonalContactoDelta }
|
||||
IPersonalContactoDelta = interface(IPersonalContacto)
|
||||
['{2C7A84B7-C510-47E2-8975-3EC5F7BA0BC4}']
|
||||
['{EA96B4AB-F363-4868-88B7-D29F001991C5}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -4580,35 +4640,97 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null;
|
||||
end;
|
||||
|
||||
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASValue: Integer;
|
||||
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
|
||||
end;
|
||||
|
||||
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASIsNull: Boolean;
|
||||
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]);
|
||||
end;
|
||||
|
||||
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASValue: Integer;
|
||||
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
|
||||
end;
|
||||
|
||||
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASIsNull: Boolean;
|
||||
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]);
|
||||
end;
|
||||
|
||||
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
|
||||
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := aValue;
|
||||
end;
|
||||
|
||||
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean);
|
||||
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := Null;
|
||||
end;
|
||||
|
||||
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
||||
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: SmallInt;
|
||||
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: SmallInt);
|
||||
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: SmallInt;
|
||||
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: SmallInt;
|
||||
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: SmallInt);
|
||||
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;
|
||||
|
||||
function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt;
|
||||
@ -5964,6 +6086,99 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA] := Null;
|
||||
end;
|
||||
|
||||
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
||||
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: SmallInt;
|
||||
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: SmallInt);
|
||||
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: SmallInt;
|
||||
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: SmallInt;
|
||||
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: SmallInt);
|
||||
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: SmallInt;
|
||||
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: SmallInt;
|
||||
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: SmallInt);
|
||||
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;
|
||||
|
||||
|
||||
{ TEmpleadosBusinessProcessorRules }
|
||||
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -84,7 +84,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];
|
||||
@ -94,7 +93,9 @@ begin
|
||||
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
|
||||
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
|
||||
ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO];
|
||||
|
||||
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
|
||||
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
|
||||
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
@ -123,7 +124,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];
|
||||
@ -132,7 +132,10 @@ begin
|
||||
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
|
||||
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
|
||||
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
|
||||
ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO];
|
||||
ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO];
|
||||
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
|
||||
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
|
||||
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
|
||||
@ -19,6 +19,7 @@ const
|
||||
|
||||
PROVEEDOR_REGIMEN_IVA = 'General';
|
||||
CLIENTE_REGIMEN_IVA = 'General';
|
||||
PROVEEDOR_DIAS_VENCIMIENTO = 20;
|
||||
CLIENTE_DIAS_VENCIMIENTO = 15;
|
||||
CLIENTE_RECARGO_EQUIVALENCIA = 0;
|
||||
|
||||
@ -55,8 +56,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: Smallint;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Smallint);
|
||||
|
||||
function GetVENCIMIENTO_FACTURAS_2Value: Smallint;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Smallint);
|
||||
|
||||
function GetVENCIMIENTO_FACTURAS_3Value: Smallint;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Smallint);
|
||||
|
||||
function GetBLOQUEADOValue: Integer;
|
||||
procedure SetBLOQUEADOValue(const aValue: Integer);
|
||||
@ -87,9 +94,10 @@ type
|
||||
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
|
||||
|
||||
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_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: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
|
||||
property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
|
||||
property VENCIMIENTO_FACTURAS_3: Smallint 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;
|
||||
@ -135,6 +143,15 @@ type
|
||||
function GetSUBCONTRATAValue: SmallInt;
|
||||
procedure SetSUBCONTRATAValue(const aValue: SmallInt);
|
||||
|
||||
function GetVENCIMIENTO_FACTURAS_1Value: Smallint;
|
||||
function GetVENCIMIENTO_FACTURAS_2Value: Smallint;
|
||||
|
||||
function GetVENCIMIENTO_FACTURAS_3Value: Smallint;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1Value(const Value: Smallint);
|
||||
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const Value: Smallint);
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const Value: Smallint);
|
||||
|
||||
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
|
||||
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
||||
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
|
||||
@ -145,7 +162,10 @@ type
|
||||
property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
|
||||
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
|
||||
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
|
||||
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
|
||||
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
|
||||
property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
|
||||
property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
|
||||
property VENCIMIENTO_FACTURAS_3: Smallint read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
||||
end;
|
||||
|
||||
IBizEmpleado = interface (IBizContacto)
|
||||
@ -189,7 +209,7 @@ type
|
||||
property FORMACION_RECIBIDA: IROStrings read GetFORMACION_RECIBIDAValue write SetFORMACION_RECIBIDAValue;
|
||||
property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue write SetEXPERIENCIAValue;
|
||||
property FECHA_BAJA: TDateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue;
|
||||
property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull;
|
||||
property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull;
|
||||
property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue;
|
||||
end;
|
||||
|
||||
@ -216,7 +236,7 @@ type
|
||||
|
||||
procedure SetPersonal(AValue : IBizContactoPersonal);
|
||||
function GetPersonal : IBizContactoPersonal;
|
||||
|
||||
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
public
|
||||
function EsNuevo : Boolean;
|
||||
@ -250,8 +270,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: Smallint;
|
||||
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Smallint);
|
||||
|
||||
function GetVENCIMIENTO_FACTURAS_2Value: Smallint;
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Smallint);
|
||||
|
||||
function GetVENCIMIENTO_FACTURAS_3Value: Smallint;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Smallint);
|
||||
|
||||
function GetBLOQUEADOValue: Integer;
|
||||
procedure SetBLOQUEADOValue(const aValue: Integer);
|
||||
@ -286,7 +312,9 @@ type
|
||||
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
|
||||
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_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: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
|
||||
property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
|
||||
property VENCIMIENTO_FACTURAS_3: Smallint 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;
|
||||
@ -332,6 +360,15 @@ type
|
||||
|
||||
function GetSUBCONTRATAValue: SmallInt;
|
||||
procedure SetSUBCONTRATAValue(const aValue: SmallInt);
|
||||
|
||||
function GetVENCIMIENTO_FACTURAS_1Value: Smallint;
|
||||
function GetVENCIMIENTO_FACTURAS_2Value: Smallint;
|
||||
function GetVENCIMIENTO_FACTURAS_3Value: Smallint;
|
||||
|
||||
procedure SetVENCIMIENTO_FACTURAS_1Value(const Value: Smallint);
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const Value: Smallint);
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const Value: Smallint);
|
||||
|
||||
public
|
||||
procedure IniciarValoresContactoNuevo; override;
|
||||
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
||||
@ -345,6 +382,9 @@ type
|
||||
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
|
||||
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
|
||||
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
|
||||
property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
|
||||
property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
|
||||
property VENCIMIENTO_FACTURAS_3: Smallint read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
||||
end;
|
||||
|
||||
|
||||
@ -605,9 +645,19 @@ begin
|
||||
result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer;
|
||||
function TBizCliente.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger;
|
||||
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsSmallInt;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
|
||||
@ -625,16 +675,26 @@ begin
|
||||
DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
|
||||
procedure TBizCliente.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue;
|
||||
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.IniciarValoresContactoNuevo;
|
||||
begin
|
||||
inherited;
|
||||
ID_CATEGORIA := CATEGORIA_CLIENTE;
|
||||
VENCIMIENTO_FACTURAS := CLIENTE_DIAS_VENCIMIENTO;
|
||||
VENCIMIENTO_FACTURAS_1 := CLIENTE_DIAS_VENCIMIENTO;
|
||||
BLOQUEADO := 0;
|
||||
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
|
||||
REGIMEN_IVA := CLIENTE_REGIMEN_IVA;
|
||||
@ -677,11 +737,27 @@ begin
|
||||
result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger;
|
||||
end;
|
||||
|
||||
function TBizProveedor.GetVENCIMIENTO_FACTURAS_1Value: Smallint;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsSmallInt;
|
||||
end;
|
||||
|
||||
function TBizProveedor.GetVENCIMIENTO_FACTURAS_2Value: Smallint;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsSmallInt;
|
||||
end;
|
||||
|
||||
function TBizProveedor.GetVENCIMIENTO_FACTURAS_3Value: Smallint;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.IniciarValoresContactoNuevo;
|
||||
begin
|
||||
inherited;
|
||||
ID_CATEGORIA := CATEGORIA_PROVEEDOR;
|
||||
REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA;
|
||||
VENCIMIENTO_FACTURAS_1 := PROVEEDOR_DIAS_VENCIMIENTO;
|
||||
end;
|
||||
|
||||
function TBizProveedor.GetCERTIFICACIONValue: String;
|
||||
@ -759,6 +835,20 @@ begin
|
||||
DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_1Value(const Value: Smallint);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsSmallInt := Value;
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_2Value(const Value: Smallint);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsSmallInt := Value;
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_3Value(const Value: Smallint);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsSmallInt := Value;
|
||||
end;
|
||||
|
||||
{ TBizEmpleado }
|
||||
|
||||
|
||||
@ -90,7 +90,11 @@ begin
|
||||
ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
|
||||
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
|
||||
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
|
||||
ParamByName('SUBCONTRATA').Value := aChange.NewValueByName[fld_ProveedoresSUBCONTRATA];
|
||||
ParamByName('SUBCONTRATA').Value := aChange.NewValueByName[fld_ProveedoresSUBCONTRATA];
|
||||
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;
|
||||
finally
|
||||
@ -125,8 +129,12 @@ begin
|
||||
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
|
||||
ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
|
||||
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
|
||||
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
|
||||
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
|
||||
ParamByName('SUBCONTRATA').Value := aChange.NewValueByName[fld_ProveedoresSUBCONTRATA];
|
||||
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;
|
||||
finally
|
||||
|
||||
@ -493,10 +493,6 @@ object srvContactos: TsrvContactos
|
||||
DatasetField = 'NOMBRE_COMERCIAL'
|
||||
TableField = 'NOMBRE_COMERCIAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'VENCIMIENTO_FACTURAS'
|
||||
TableField = 'VENCIMIENTO_FACTURAS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'BLOQUEADO'
|
||||
TableField = 'BLOQUEADO'
|
||||
@ -532,6 +528,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'DESCUENTO'
|
||||
TableField = 'DESCUENTO'
|
||||
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'
|
||||
@ -684,9 +692,16 @@ object srvContactos: TsrvContactos
|
||||
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS'
|
||||
Name = 'VENCIMIENTO_FACTURAS_1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'BLOQUEADO'
|
||||
@ -878,6 +893,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'SUBCONTRATA'
|
||||
TableField = 'SUBCONTRATA'
|
||||
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'
|
||||
@ -1077,6 +1104,18 @@ object srvContactos: TsrvContactos
|
||||
Name = 'SUBCONTRATA'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'Proveedores_SUBCONTRATA'
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -2758,10 +2797,6 @@ object srvContactos: TsrvContactos
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'BLOQUEADO'
|
||||
Value = ''
|
||||
@ -2793,6 +2828,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
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
|
||||
@ -2800,13 +2847,15 @@ 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,'#10' DESCUENTO)'#10' VALUES'#10' ' +
|
||||
' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NO' +
|
||||
'MBRE_COMERCIAL, :VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_' +
|
||||
'BLOQUEO, :REGIMEN_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIEND' +
|
||||
'A_WEB, :CODIGO_ASIGNADO,'#10' :DESCUENTO)'#10
|
||||
'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' +
|
||||
'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' +
|
||||
'ODIGO_ASIGNADO, DESCUENTO,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' +
|
||||
'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_CLIENT' +
|
||||
'E, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL,'#10' ' +
|
||||
' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID_F' +
|
||||
'ORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO, :DESCUENTO,'#10' ' +
|
||||
':VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_F' +
|
||||
'ACTURAS_3)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -2854,10 +2903,6 @@ object srvContactos: TsrvContactos
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'BLOQUEADO'
|
||||
Value = ''
|
||||
@ -2886,6 +2931,18 @@ object srvContactos: TsrvContactos
|
||||
Name = 'DESCUENTO'
|
||||
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 = ''
|
||||
@ -2898,12 +2955,14 @@ object srvContactos: TsrvContactos
|
||||
'UPDATE CLIENTES_DATOS'#10' SET '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ' +
|
||||
'GRUPO_CLIENTE = :GRUPO_CLIENTE,'#10' MOTIVO_BLOQUEO = :MOTIVO_BLO' +
|
||||
'QUEO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' NOMB' +
|
||||
'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' VENCIMIENTO_FACTURAS = :VE' +
|
||||
'NCIMIENTO_FACTURAS,'#10' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA ' +
|
||||
'= :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAG' +
|
||||
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' +
|
||||
'GNADO = :CODIGO_ASIGNADO,'#10' DESCUENTO = :DESCUENTO'#10' WHERE'#10' ' +
|
||||
' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
|
||||
'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' BLOQUEADO = :BLOQUEADO,'#10' ' +
|
||||
' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ' +
|
||||
' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10 +
|
||||
' CODIGO_ASIGNADO = :CODIGO_ASIGNADO,'#10' DESCUENTO = :DESCUEN' +
|
||||
'TO,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VE' +
|
||||
'NCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_' +
|
||||
'FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_CLIENTE = :' +
|
||||
'OLD_ID_CLIENTE)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -2958,6 +3017,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'GRUPO_PROVEEDOR'
|
||||
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
|
||||
@ -2966,11 +3037,14 @@ object srvContactos: TsrvContactos
|
||||
SQL =
|
||||
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
|
||||
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
|
||||
'VA, SUBCONTRATA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERT' +
|
||||
'IFICACION, GRUPO_PROVEEDOR)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIME' +
|
||||
'N_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO,' +
|
||||
' :ID_TIPO_IVA, :SUBCONTRATA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :H' +
|
||||
'OMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR)'#10
|
||||
'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' +
|
||||
'IFICACION, GRUPO_PROVEEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' +
|
||||
'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEE' +
|
||||
'DOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODI' +
|
||||
'GO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTRATA, :ID_FORMA_PAGO, :TIENDA' +
|
||||
'_WEB,'#10' :HOMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' :VE' +
|
||||
'NCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACT' +
|
||||
'URAS_3)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3046,6 +3120,18 @@ object srvContactos: TsrvContactos
|
||||
Name = 'SUBCONTRATA'
|
||||
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 = ''
|
||||
@ -3062,7 +3148,10 @@ object srvContactos: TsrvContactos
|
||||
'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' +
|
||||
' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' +
|
||||
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' SUBCONTRATA = :SUBCON' +
|
||||
'TRATA'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10
|
||||
'TRATA,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' ' +
|
||||
' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIEN' +
|
||||
'TO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_PROVEEDO' +
|
||||
'R = :OLD_ID_PROVEEDOR)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -3,17 +3,17 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Top = 297
|
||||
Caption = 'Ficha de cliente'
|
||||
ClientHeight = 631
|
||||
ClientWidth = 714
|
||||
ExplicitWidth = 722
|
||||
ClientWidth = 792
|
||||
ExplicitWidth = 800
|
||||
ExplicitHeight = 665
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 714
|
||||
Width = 792
|
||||
Caption = 'Ficha de cliente'
|
||||
ExplicitWidth = 714
|
||||
ExplicitWidth = 792
|
||||
inherited Image1: TImage
|
||||
Left = 687
|
||||
Left = 765
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -47,10 +47,14 @@ inherited fEditorCliente: TfEditorCliente
|
||||
AE426082}
|
||||
ExplicitLeft = 565
|
||||
end
|
||||
inherited lblDesbloquear: TcxLabel
|
||||
Left = 667
|
||||
ExplicitLeft = 667
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 714
|
||||
ExplicitWidth = 714
|
||||
Width = 792
|
||||
ExplicitWidth = 792
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 446
|
||||
object TBXItem7: TTBXItem [7]
|
||||
@ -59,21 +63,22 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 714
|
||||
ExplicitWidth = 792
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 708
|
||||
Width = 786
|
||||
Height = 530
|
||||
ExplicitWidth = 708
|
||||
ActivePage = pagDatosComerciales
|
||||
ExplicitWidth = 786
|
||||
ExplicitHeight = 530
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 502
|
||||
inline frViewCliente1: TfrViewCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 502
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -84,66 +89,86 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 502
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 502
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 502
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 655
|
||||
Left = 733
|
||||
Top = 218
|
||||
ExplicitLeft = 655
|
||||
ExplicitLeft = 733
|
||||
ExplicitTop = 218
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 655
|
||||
Left = 733
|
||||
Top = 190
|
||||
ExplicitLeft = 655
|
||||
ExplicitLeft = 733
|
||||
ExplicitTop = 190
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 655
|
||||
Left = 733
|
||||
Top = 162
|
||||
ExplicitLeft = 655
|
||||
ExplicitLeft = 733
|
||||
ExplicitTop = 162
|
||||
end
|
||||
inherited Label1: TLabel
|
||||
Left = 395
|
||||
Left = 419
|
||||
Top = 251
|
||||
Width = 161
|
||||
ExplicitLeft = 395
|
||||
ExplicitLeft = 419
|
||||
ExplicitTop = 251
|
||||
ExplicitWidth = 161
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Top = 267
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 267
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Top = 294
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 294
|
||||
ExplicitWidth = 145
|
||||
Width = 145
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Top = 321
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 321
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 313
|
||||
Left = 337
|
||||
Top = 294
|
||||
ExplicitLeft = 313
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 337
|
||||
ExplicitTop = 294
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 399
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 399
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 87
|
||||
@ -152,122 +177,190 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited eNombreComercial: TcxDBTextEdit
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
end
|
||||
inherited cbClienteBloqueado: TcxDBCheckBox
|
||||
Top = 189
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 189
|
||||
ExplicitWidth = 356
|
||||
Width = 356
|
||||
end
|
||||
inherited cbGrupoCliente: TcxDBComboBox
|
||||
Top = 138
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
end
|
||||
inherited eBloqueo: TcxDBTextEdit
|
||||
Top = 216
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 216
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
end
|
||||
inherited eCodigoAsignado: TcxDBTextEdit
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 501
|
||||
Left = 525
|
||||
Top = 57
|
||||
ExplicitLeft = 501
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 525
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 501
|
||||
Left = 525
|
||||
Top = 30
|
||||
ExplicitLeft = 501
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 525
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 501
|
||||
Left = 525
|
||||
Top = 84
|
||||
ExplicitLeft = 501
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 525
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 501
|
||||
Left = 525
|
||||
Top = 111
|
||||
ExplicitLeft = 501
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 525
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited eNombre: TcxDBTextEdit
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 395
|
||||
Left = 419
|
||||
Top = 322
|
||||
ExplicitLeft = 395
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 419
|
||||
ExplicitTop = 322
|
||||
ExplicitWidth = 294
|
||||
Width = 294
|
||||
ExplicitWidth = 328
|
||||
Width = 328
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 216
|
||||
Left = 226
|
||||
Top = 30
|
||||
ExplicitLeft = 216
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 226
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 162
|
||||
Width = 162
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 501
|
||||
Left = 525
|
||||
Top = 162
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 501
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 525
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 148
|
||||
Width = 148
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 501
|
||||
Left = 525
|
||||
Top = 190
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 501
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 525
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 148
|
||||
Width = 148
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 501
|
||||
Left = 525
|
||||
Top = 217
|
||||
ExplicitLeft = 501
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 525
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 148
|
||||
Width = 148
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 31
|
||||
Width = 31
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Top = 348
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 348
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
@ -280,22 +373,22 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited pagDatosBancarios: TTabSheet
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 502
|
||||
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 502
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 502
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 477
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 477
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 700
|
||||
ExplicitWidth = 700
|
||||
Width = 778
|
||||
ExplicitWidth = 778
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
@ -317,7 +410,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 193
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -328,17 +421,17 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 193
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 700
|
||||
Width = 778
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
inherited Label1: TLabel
|
||||
Left = 452
|
||||
Left = 521
|
||||
Top = 30
|
||||
Width = 196
|
||||
ExplicitLeft = 452
|
||||
ExplicitLeft = 521
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 196
|
||||
end
|
||||
@ -348,54 +441,86 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 263
|
||||
end
|
||||
inherited eDiasVencimiento: TcxDBSpinEdit
|
||||
Left = 515
|
||||
Top = 62
|
||||
ExplicitLeft = 515
|
||||
ExplicitTop = 62
|
||||
ExplicitWidth = 160
|
||||
Width = 160
|
||||
end
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 307
|
||||
Width = 307
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 307
|
||||
Width = 307
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 169
|
||||
Width = 169
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 292
|
||||
Left = 361
|
||||
Top = 57
|
||||
ExplicitLeft = 292
|
||||
ExplicitLeft = 361
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 169
|
||||
Width = 169
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 292
|
||||
Left = 361
|
||||
Top = 84
|
||||
ExplicitLeft = 292
|
||||
ExplicitLeft = 361
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited eDescuento: TcxDBSpinEdit
|
||||
Top = 149
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 149
|
||||
end
|
||||
inherited eDiasVencimiento2: TcxDBSpinEdit
|
||||
Left = 593
|
||||
Top = 89
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 593
|
||||
ExplicitTop = 89
|
||||
end
|
||||
inherited eDiasVencimiento3: TcxDBSpinEdit
|
||||
Left = 593
|
||||
Top = 116
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 593
|
||||
ExplicitTop = 116
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -405,7 +530,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 502
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -416,12 +541,12 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 502
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 477
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 477
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewID: TcxGridDBColumn
|
||||
@ -431,20 +556,8 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 700
|
||||
ExplicitWidth = 700
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
Width = 778
|
||||
ExplicitWidth = 778
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -455,7 +568,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inline frViewClienteDescuentos1: TfrViewClienteDescuentos
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 502
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -466,17 +579,17 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 502
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 477
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 477
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 700
|
||||
ExplicitWidth = 700
|
||||
Width = 778
|
||||
ExplicitWidth = 778
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
@ -493,22 +606,22 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited pagPersonal: TTabSheet
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 502
|
||||
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 502
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 502
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 700
|
||||
Width = 778
|
||||
Height = 477
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 477
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 700
|
||||
ExplicitWidth = 700
|
||||
Width = 778
|
||||
ExplicitWidth = 778
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
@ -527,9 +640,9 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 612
|
||||
Width = 714
|
||||
Width = 792
|
||||
ExplicitTop = 612
|
||||
ExplicitWidth = 714
|
||||
ExplicitWidth = 792
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
inherited actPrevisualizar: TAction
|
||||
|
||||
@ -15,7 +15,7 @@ uses
|
||||
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
|
||||
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
|
||||
uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios,
|
||||
uViewPersonalContacto;
|
||||
uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel;
|
||||
|
||||
type
|
||||
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
|
||||
|
||||
@ -15,9 +15,13 @@ inherited fEditorContacto: TfEditorContacto
|
||||
Caption = 'Contacto'
|
||||
ExplicitWidth = 632
|
||||
inherited Image1: TImage
|
||||
Left = 605
|
||||
Left = 499
|
||||
ExplicitLeft = 607
|
||||
end
|
||||
inherited lblDesbloquear: TcxLabel
|
||||
Left = 534
|
||||
ExplicitLeft = 534
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 632
|
||||
|
||||
@ -15,7 +15,7 @@ uses
|
||||
uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls,
|
||||
JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel,
|
||||
uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios,
|
||||
uViewPersonalContacto;
|
||||
uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel;
|
||||
|
||||
type
|
||||
TfEditorContacto = class(TfEditorDBItem, IEditorContacto)
|
||||
|
||||
@ -8,7 +8,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 830
|
||||
ExplicitWidth = 839
|
||||
ExplicitWidth = 830
|
||||
inherited Image1: TImage
|
||||
Left = 803
|
||||
Picture.Data = {
|
||||
@ -44,10 +44,14 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
FF01702244FEF5B056BE0000000049454E44AE426082}
|
||||
ExplicitLeft = 621
|
||||
end
|
||||
inherited lblDesbloquear: TcxLabel
|
||||
Left = 705
|
||||
ExplicitLeft = 705
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 830
|
||||
ExplicitWidth = 839
|
||||
ExplicitWidth = 830
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 330
|
||||
end
|
||||
@ -58,12 +62,12 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 824
|
||||
Height = 519
|
||||
ActivePage = pagGeneral
|
||||
ExplicitWidth = 833
|
||||
ExplicitHeight = 516
|
||||
ActivePage = pagDatosComerciales
|
||||
ExplicitWidth = 824
|
||||
ExplicitHeight = 519
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 491
|
||||
inline frViewProveedor1: TfrViewProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -78,14 +82,14 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 491
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 816
|
||||
Height = 491
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 491
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 771
|
||||
Top = 218
|
||||
@ -105,37 +109,59 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitTop = 162
|
||||
end
|
||||
inherited Label1: TLabel
|
||||
Left = 493
|
||||
Left = 485
|
||||
Top = 251
|
||||
ExplicitLeft = 493
|
||||
Width = 342
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 251
|
||||
ExplicitWidth = 342
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Top = 267
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 267
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Top = 294
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 294
|
||||
ExplicitWidth = 265
|
||||
Width = 265
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Top = 321
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 321
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 411
|
||||
Left = 403
|
||||
Top = 294
|
||||
ExplicitLeft = 411
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 403
|
||||
ExplicitTop = 294
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 399
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 399
|
||||
ExplicitWidth = 772
|
||||
ExplicitHeight = 76
|
||||
@ -144,163 +170,247 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
inherited cxDBCheckBox2: TcxDBCheckBox
|
||||
Top = 189
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 189
|
||||
ExplicitWidth = 478
|
||||
Width = 478
|
||||
end
|
||||
inherited eCertificaciones: TcxDBTextEdit
|
||||
Top = 216
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 216
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited cbGrupoProveedor: TcxDBComboBox
|
||||
Top = 138
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 277
|
||||
Width = 277
|
||||
end
|
||||
inherited cbDescripcionProveedor: TcxDBComboBox
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited eCodigoAsignado: TcxDBTextEdit
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 599
|
||||
Left = 591
|
||||
Top = 57
|
||||
ExplicitLeft = 599
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 591
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 599
|
||||
Left = 591
|
||||
Top = 30
|
||||
ExplicitLeft = 599
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 591
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 599
|
||||
Left = 591
|
||||
Top = 84
|
||||
ExplicitLeft = 599
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 591
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 599
|
||||
Left = 591
|
||||
Top = 111
|
||||
ExplicitLeft = 599
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 591
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eNombre: TcxDBTextEdit
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited cxDBCheckBox3: TcxDBCheckBox
|
||||
Left = 385
|
||||
Top = 138
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 385
|
||||
ExplicitTop = 138
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 261
|
||||
Left = 258
|
||||
Top = 30
|
||||
ExplicitLeft = 261
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 258
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 229
|
||||
Width = 229
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 599
|
||||
Left = 591
|
||||
Top = 162
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 599
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 591
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 599
|
||||
Left = 591
|
||||
Top = 190
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 599
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 591
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited cxDBCheckBox3: TcxDBCheckBox
|
||||
Left = 393
|
||||
Top = 138
|
||||
ExplicitLeft = 393
|
||||
ExplicitTop = 138
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 485
|
||||
Top = 283
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 283
|
||||
ExplicitWidth = 236
|
||||
Width = 236
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 599
|
||||
Left = 591
|
||||
Top = 217
|
||||
ExplicitLeft = 599
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 591
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 84
|
||||
Width = 84
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Top = 348
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 348
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 493
|
||||
Top = 283
|
||||
ExplicitLeft = 493
|
||||
ExplicitTop = 283
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pagDatosBancarios: TTabSheet
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 491
|
||||
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
|
||||
Width = 816
|
||||
Height = 491
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 491
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 816
|
||||
Height = 466
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 398
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 466
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 816
|
||||
ExplicitWidth = 825
|
||||
ExplicitWidth = 816
|
||||
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 [2]
|
||||
Caption = 'Datos comerciales'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 816
|
||||
Height = 121
|
||||
Height = 185
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -310,66 +420,116 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 121
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 185
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 816
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 825
|
||||
ExplicitWidth = 816
|
||||
inherited Label1: TLabel
|
||||
Left = 527
|
||||
Left = 584
|
||||
Top = 30
|
||||
Width = 190
|
||||
ExplicitLeft = 527
|
||||
Height = 26
|
||||
ExplicitLeft = 584
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 190
|
||||
ExplicitHeight = 26
|
||||
end
|
||||
inherited Bevel1: TBevel
|
||||
Top = 111
|
||||
Width = 415
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 415
|
||||
end
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 398
|
||||
Width = 398
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 367
|
||||
Left = 424
|
||||
Top = 57
|
||||
ExplicitLeft = 367
|
||||
ExplicitLeft = 424
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 367
|
||||
Left = 424
|
||||
Top = 84
|
||||
ExplicitLeft = 367
|
||||
ExplicitLeft = 424
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited eDescuento: TcxDBSpinEdit
|
||||
Left = 571
|
||||
Top = 62
|
||||
ExplicitLeft = 571
|
||||
ExplicitTop = 62
|
||||
Top = 122
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 122
|
||||
ExplicitWidth = 226
|
||||
Width = 226
|
||||
end
|
||||
inherited eDiasVencimiento1: TcxDBSpinEdit
|
||||
Left = 656
|
||||
Top = 62
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 656
|
||||
ExplicitTop = 62
|
||||
end
|
||||
inherited eDiasVencimiento2: TcxDBSpinEdit
|
||||
Left = 656
|
||||
Top = 89
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 656
|
||||
ExplicitTop = 89
|
||||
end
|
||||
inherited eDiasVencimiento3: TcxDBSpinEdit
|
||||
Left = 656
|
||||
Top = 116
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 656
|
||||
ExplicitTop = 116
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagDirecciones: TTabSheet [3]
|
||||
Caption = 'Direcciones'
|
||||
ImageIndex = 3
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -384,49 +544,49 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 491
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 816
|
||||
Height = 466
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 398
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 466
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 816
|
||||
ExplicitWidth = 825
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
ExplicitWidth = 816
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pagPersonal: TTabSheet
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 491
|
||||
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
||||
Width = 816
|
||||
Height = 491
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 491
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 816
|
||||
Height = 466
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 398
|
||||
ExplicitWidth = 816
|
||||
ExplicitHeight = 466
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 816
|
||||
ExplicitWidth = 825
|
||||
ExplicitWidth = 816
|
||||
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
|
||||
@ -434,8 +594,8 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 601
|
||||
Width = 830
|
||||
ExplicitTop = 598
|
||||
ExplicitWidth = 839
|
||||
ExplicitTop = 601
|
||||
ExplicitWidth = 830
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Left = 32
|
||||
|
||||
@ -14,7 +14,8 @@ uses
|
||||
cxSpinEdit, cxDBEdit, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
|
||||
dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
|
||||
uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
|
||||
uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto;
|
||||
uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto,
|
||||
cxLabel;
|
||||
|
||||
type
|
||||
TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)
|
||||
|
||||
@ -1,27 +1,28 @@
|
||||
inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Width = 637
|
||||
Width = 725
|
||||
Height = 284
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 637
|
||||
ExplicitWidth = 725
|
||||
ExplicitHeight = 284
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 637
|
||||
Width = 725
|
||||
Height = 209
|
||||
Align = alTop
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth]
|
||||
ExplicitWidth = 637
|
||||
object Label1: TLabel
|
||||
Left = 412
|
||||
Left = 445
|
||||
Top = 28
|
||||
Width = 196
|
||||
Width = 227
|
||||
Height = 26
|
||||
Caption =
|
||||
'Puede indicar el d'#237'a del mes en el cual es cliente realiza los p' +
|
||||
'Puede indicar el d'#237'a del mes en el cual el cliente realiza los p' +
|
||||
'agos.'
|
||||
Transparent = True
|
||||
WordWrap = True
|
||||
@ -33,14 +34,15 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Height = 5
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object eDiasVencimiento: TcxDBSpinEdit
|
||||
Left = 475
|
||||
object eDiasVencimiento1: TcxDBSpinEdit
|
||||
Left = 517
|
||||
Top = 60
|
||||
DataBinding.DataField = 'VENCIMIENTO_FACTURAS'
|
||||
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
Properties.AssignedValues.MinValue = True
|
||||
Properties.DisplayFormat = '##'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.SpinButtons.Visible = False
|
||||
Properties.UseDisplayFormatWhenEditing = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
@ -153,7 +155,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Width = 121
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 250
|
||||
Left = 283
|
||||
Top = 55
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -197,7 +199,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Width = 121
|
||||
end
|
||||
object bTiposIVA: TButton
|
||||
Left = 250
|
||||
Left = 283
|
||||
Top = 82
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -229,7 +231,61 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 6
|
||||
Width = 133
|
||||
Width = 190
|
||||
end
|
||||
object eDiasVencimiento2: TcxDBSpinEdit
|
||||
Left = 517
|
||||
Top = 87
|
||||
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 = 8
|
||||
Width = 79
|
||||
end
|
||||
object eDiasVencimiento3: TcxDBSpinEdit
|
||||
Left = 517
|
||||
Top = 114
|
||||
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 = 9
|
||||
Width = 79
|
||||
end
|
||||
object dxLayoutGroup1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
@ -323,8 +379,20 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
Caption = 'D'#237'a del mes:'
|
||||
Control = eDiasVencimiento
|
||||
Caption = 'D'#237'a del mes 1:'
|
||||
Control = eDiasVencimiento1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item11: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
Caption = 'D'#237'a del mes 2:'
|
||||
Control = eDiasVencimiento2
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item12: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
Caption = 'D'#237'a del mes 3:'
|
||||
Control = eDiasVencimiento3
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
|
||||
@ -24,7 +24,7 @@ type
|
||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||
dsAgentes: TDADataSource;
|
||||
dxLayoutControl1Item2: TdxLayoutItem;
|
||||
eDiasVencimiento: TcxDBSpinEdit;
|
||||
eDiasVencimiento1: TcxDBSpinEdit;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
cbRegimenIVA: TcxDBComboBox;
|
||||
dsDatosComerciales: TDADataSource;
|
||||
@ -49,6 +49,10 @@ type
|
||||
eDescuento: TcxDBSpinEdit;
|
||||
Bevel1: TBevel;
|
||||
dxLayoutControl1Item10: TdxLayoutItem;
|
||||
dxLayoutControl1Item11: TdxLayoutItem;
|
||||
eDiasVencimiento2: TcxDBSpinEdit;
|
||||
dxLayoutControl1Item12: TdxLayoutItem;
|
||||
eDiasVencimiento3: TcxDBSpinEdit;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);
|
||||
|
||||
@ -1,33 +1,40 @@
|
||||
inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
Width = 642
|
||||
Height = 266
|
||||
Height = 191
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 266
|
||||
ExplicitHeight = 191
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 642
|
||||
Height = 129
|
||||
Height = 177
|
||||
Align = alTop
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth]
|
||||
object Label1: TLabel
|
||||
Left = 417
|
||||
Left = 468
|
||||
Top = 28
|
||||
Width = 190
|
||||
Height = 26
|
||||
Width = 149
|
||||
Height = 39
|
||||
Caption =
|
||||
'Puede indicar el descuento por defecto acordado con este proveed' +
|
||||
'or.'
|
||||
'Puede indicar el d'#237'a del mes en el cual el proveedor realiza los' +
|
||||
' pagos.'
|
||||
Transparent = True
|
||||
WordWrap = True
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
Left = 22
|
||||
Top = 109
|
||||
Width = 415
|
||||
Height = 5
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object cbRegimenIVA: TcxDBComboBox
|
||||
Left = 107
|
||||
Left = 111
|
||||
Top = 28
|
||||
DataBinding.DataField = 'REGIMEN_IVA'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
@ -40,19 +47,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 = 0
|
||||
Width = 121
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 107
|
||||
Left = 111
|
||||
Top = 55
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
@ -70,19 +81,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 = 121
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 255
|
||||
Left = 306
|
||||
Top = 55
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -91,7 +106,7 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
object eIVA: TcxDBLookupComboBox
|
||||
Left = 107
|
||||
Left = 111
|
||||
Top = 82
|
||||
DataBinding.DataField = 'ID_TIPO_IVA'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
@ -109,19 +124,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 = 121
|
||||
end
|
||||
object bTiposIVA: TButton
|
||||
Left = 255
|
||||
Left = 306
|
||||
Top = 82
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -130,8 +149,8 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
OnClick = bTiposIVAClick
|
||||
end
|
||||
object eDescuento: TcxDBSpinEdit
|
||||
Left = 461
|
||||
Top = 60
|
||||
Left = 111
|
||||
Top = 120
|
||||
DataBinding.DataField = 'DESCUENTO'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -139,15 +158,100 @@ 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 = 73
|
||||
Width = 159
|
||||
end
|
||||
object eDiasVencimiento1: TcxDBSpinEdit
|
||||
Left = 540
|
||||
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 = 540
|
||||
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 = 540
|
||||
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
|
||||
@ -189,20 +293,35 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'IVA por defecto'
|
||||
Control = eIVA
|
||||
object dxLayoutControl1Group4: 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
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
Control = Bevel1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
ShowCaption = False
|
||||
Control = bTiposIVA
|
||||
Caption = 'Dto. por defecto:'
|
||||
Control = eDescuento
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
@ -210,7 +329,7 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Descuento por defecto'
|
||||
Caption = 'Datos para facturaci'#243'n'
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
@ -220,9 +339,22 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
Caption = '% Dto.:'
|
||||
Control = eDescuento
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
Caption = 'D'#237'a del mes 1:'
|
||||
Control = eDiasVencimiento1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item11: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
Caption = 'D'#237'a del mes 2:'
|
||||
Control = eDiasVencimiento2
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item12: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
Caption = 'D'#237'a del mes 3:'
|
||||
Control = eDiasVencimiento3
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
|
||||
@ -8,7 +8,7 @@ uses
|
||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit,
|
||||
uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController,
|
||||
uDAInterfaces, uBizTiposIVA, uBizFormasPago;
|
||||
uDAInterfaces, uBizTiposIVA, uBizFormasPago, ExtCtrls;
|
||||
|
||||
type
|
||||
IViewProveedorDatosComerciales = interface(IViewBase)
|
||||
@ -41,8 +41,17 @@ type
|
||||
dsTiposIVA: TDADataSource;
|
||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
dxLayoutControl1Item10: TdxLayoutItem;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
eDescuento: TcxDBSpinEdit;
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Item2: TdxLayoutItem;
|
||||
Bevel1: TBevel;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
eDiasVencimiento1: TcxDBSpinEdit;
|
||||
dxLayoutControl1Item11: TdxLayoutItem;
|
||||
eDiasVencimiento2: TcxDBSpinEdit;
|
||||
dxLayoutControl1Item12: TdxLayoutItem;
|
||||
eDiasVencimiento3: TcxDBSpinEdit;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);
|
||||
|
||||
@ -67,11 +67,12 @@ type
|
||||
function _Vacio : IBizFacturaCliente;
|
||||
|
||||
procedure FiltrarEmpresa(AFactura: IBizFacturaCliente);
|
||||
|
||||
function ValidarFactura(AFactura: IBizFacturaCliente): Boolean;
|
||||
procedure GenerarRecibos(AFactura: IBizFacturaCliente);
|
||||
|
||||
protected
|
||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||
|
||||
public
|
||||
property ClienteController: IClientesController read GetClienteController write SetClienteController;
|
||||
property DetallesController: IDetallesFacturaClienteController read GetDetallesController write SetDetallesController;
|
||||
@ -1027,7 +1028,7 @@ begin
|
||||
Result.Edit;
|
||||
Result.TIPO := CTE_TIPO_ABONO;
|
||||
Result.Post;
|
||||
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
@ -1041,6 +1042,9 @@ var
|
||||
ARecibos: IBizRecibosCliente;
|
||||
AFechaVencimiento: TDateTime;
|
||||
i: Integer;
|
||||
ADiaVencimiento: Integer;
|
||||
ADiasMas: Integer;
|
||||
|
||||
begin
|
||||
if not Assigned(AFactura) then
|
||||
Exit;
|
||||
@ -1070,25 +1074,26 @@ begin
|
||||
ARecibos.Edit;
|
||||
ARecibos.ID_FACTURA := AFactura.ID;
|
||||
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
|
||||
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
|
||||
|
||||
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
|
||||
if (AFactura.Cliente.VENCIMIENTO_FACTURAS <> 0) then
|
||||
if (AFactura.Cliente.VENCIMIENTO_FACTURAS_1 <> 0)
|
||||
or (AFactura.Cliente.VENCIMIENTO_FACTURAS_2 <> 0)
|
||||
or (AFactura.Cliente.VENCIMIENTO_FACTURAS_3 <> 0) then
|
||||
begin
|
||||
if DayOf(AFechaVencimiento) > AFactura.Cliente.VENCIMIENTO_FACTURAS then
|
||||
begin
|
||||
AFechaVencimiento := IncDay(AFechaVencimiento, (DaysInMonth(AFechaVencimiento) - DayOf(AFechaVencimiento)));
|
||||
AFechaVencimiento := IncDay(AFechaVencimiento, AFactura.Cliente.VENCIMIENTO_FACTURAS);
|
||||
end
|
||||
else
|
||||
AFechaVencimiento := IncDay(AFechaVencimiento, (AFactura.Cliente.VENCIMIENTO_FACTURAS - DayOf(AFechaVencimiento)));
|
||||
ADiaVencimiento := DayOf(AFechaVencimiento);
|
||||
ADiasMas := 0;
|
||||
while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1)
|
||||
and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2)
|
||||
and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do
|
||||
begin
|
||||
Inc(ADiaVencimiento);
|
||||
Inc(ADiasMas);
|
||||
if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
|
||||
ADiaVencimiento := 0;
|
||||
end;
|
||||
end;
|
||||
|
||||
//Comprobamos que la fecha de vencimiento no sea febrero si es asi hay que tratarlo
|
||||
if (AFactura.Cliente.VENCIMIENTO_FACTURAS > 28)
|
||||
and (MonthOf(AFechaVencimiento) = 3) and (DayOf(AFechaVencimiento) < 3) then
|
||||
AFechaVencimiento := IncDay(AFechaVencimiento, - DayOf(AFechaVencimiento));
|
||||
|
||||
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
|
||||
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
|
||||
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
|
||||
|
||||
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
|
||||
|
||||
@ -117,7 +117,7 @@ uses
|
||||
uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController,
|
||||
|
||||
uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor,
|
||||
uRecibosProveedorController, uBizRecibosProveedor,
|
||||
uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
|
||||
uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
|
||||
uFormasPagoController, uBizFormasPago;
|
||||
|
||||
@ -851,7 +851,11 @@ var
|
||||
AFormaPago: IBizFormaPago;
|
||||
ARecibosProveedorController: IRecibosProveedorController;
|
||||
ARecibos: IBizRecibosProveedor;
|
||||
AFechaVencimiento: TDateTime;
|
||||
i: Integer;
|
||||
ADiaVencimiento: Integer;
|
||||
ADiasMas: Integer;
|
||||
|
||||
begin
|
||||
|
||||
if not Assigned(AFactura) then
|
||||
@ -883,8 +887,29 @@ begin
|
||||
ARecibos.ID_FACTURA := AFactura.ID;
|
||||
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
|
||||
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
|
||||
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
|
||||
|
||||
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
|
||||
if (AFactura.Proveedor.VENCIMIENTO_FACTURAS_1 <> 0)
|
||||
or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_2 <> 0)
|
||||
or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_3 <> 0) then
|
||||
begin
|
||||
ADiaVencimiento := DayOf(AFechaVencimiento);
|
||||
ADiasMas := 0;
|
||||
while (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_1)
|
||||
and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_2)
|
||||
and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_3) do
|
||||
begin
|
||||
Inc(ADiaVencimiento);
|
||||
Inc(ADiasMas);
|
||||
if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
|
||||
ADiaVencimiento := 0;
|
||||
end;
|
||||
end;
|
||||
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
|
||||
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
|
||||
|
||||
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
|
||||
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
|
||||
ARecibosProveedorController.Guardar(ARecibos);
|
||||
Inc(i);
|
||||
Next;
|
||||
|
||||
Binary file not shown.
@ -107,8 +107,6 @@ uses
|
||||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
|
||||
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente: TDataModule},
|
||||
uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestoCliente: TDataModule},
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
|
||||
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
|
||||
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
|
||||
@ -129,7 +127,9 @@ uses
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
||||
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
|
||||
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas';
|
||||
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.3.4.0\0"
|
||||
VALUE "ProductVersion", "1.3.4.0\0"
|
||||
VALUE "CompileDate", "jueves, 25 de septiembre de 2008 9:59\0"
|
||||
VALUE "CompileDate", "jueves, 25 de septiembre de 2008 18:49\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
@ -39,8 +39,8 @@ object dmServer: TdmServer
|
||||
Name = 'IBX'
|
||||
ConnectionString =
|
||||
'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' +
|
||||
'tabase\FACTUGES_PRODUCCION.FDB;UserID=sysdba;Password=masterkey;' +
|
||||
'Dialect=3;Charset=ISO8859_1;'
|
||||
'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' +
|
||||
'harset=ISO8859_1;'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
end>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user