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

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.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@626 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-25 17:28:31 +00:00
parent ab3986337b
commit a4fc979e78
24 changed files with 1562 additions and 443 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -352,10 +352,16 @@ inherited DataModuleClientes: TDataModuleClientes
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL' DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
end end
item item
Name = 'VENCIMIENTO_FACTURAS' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger DataType = datSmallInt
DisplayLabel = 'Vencimiento' end
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS' item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
end end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'

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

@ -281,6 +281,18 @@ inherited DataModuleProveedores: TDataModuleProveedores
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Subcontrata' DisplayLabel = 'Subcontrata'
DictionaryEntry = 'Proveedores_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> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,20 +9,20 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{BA38FE66-615B-443E-AC3B-35C54BDAFC7A}'; RID_Contactos = '{88717C58-84A8-470B-8059-994AF283CC87}';
RID_GruposCliente = '{ECDB7613-9634-41F2-A3E9-ACFC9A17B4F5}'; RID_GruposCliente = '{90F0D80D-0042-409F-A93C-D60BD9489A4E}';
RID_DatosBancarios = '{77786226-ACA0-48D9-AA44-100AA432FDEF}'; RID_DatosBancarios = '{41C82024-6751-44B3-86F0-E9B28C80A41E}';
RID_Clientes = '{6F4ADF37-1957-4D1E-B7E0-659C9DC9B27D}'; RID_Clientes = '{9BCF75EE-2AB3-4C30-9011-34AC743797E4}';
RID_Proveedores = '{58992D88-A743-479E-BE3F-183331F83BEA}'; RID_Proveedores = '{8E2A120D-0C53-448B-8D16-B6CB84FD1460}';
RID_Empleados = '{D2941064-ABFB-4CE5-8832-8683F90888A8}'; RID_Empleados = '{DD85830B-87E7-4DD3-AF23-8275488E4FEE}';
RID_DireccionesContacto = '{2FE736C9-BBC8-43AB-88FC-A6675E0644B2}'; RID_DireccionesContacto = '{D8B8A3EE-3456-4C88-BED6-4E4D72D6298C}';
RID_ClientesDescuentos = '{F0E0984F-17C9-4C7D-8D57-18ED1698C080}'; RID_ClientesDescuentos = '{1662F266-6825-4D7F-9997-9C51E1C93268}';
RID_GruposProveedor = '{FFA4AEFF-DC59-4422-9CFA-28857080FC60}'; RID_GruposProveedor = '{82427930-F4BB-4FE4-9518-C4F54C0F1D2B}';
RID_GruposEmpleado = '{43140B72-AFD6-404D-A094-8612B4E8934D}'; RID_GruposEmpleado = '{F3BFF021-A070-412E-9598-663C15F3B32E}';
RID_Contactos_Refresh = '{301DA664-5CB6-4311-91C7-A12C42F115B1}'; RID_Contactos_Refresh = '{0CE3BACA-C2F3-40AB-90B2-96A8C154F878}';
RID_ContratosEmpleados = '{49DF13A6-2C5B-4F25-A3CE-7326FAB32B84}'; RID_ContratosEmpleados = '{7156547B-6339-4D6F-9C67-7AB4D18C9287}';
RID_DescripcionesProveedores = '{83FBF40E-6287-46F5-BFAF-C6D92FE7AF4F}'; RID_DescripcionesProveedores = '{69CF40B3-A1ED-49EA-8FF9-A290DCF31967}';
RID_PersonalContacto = '{0BF3EDA4-836A-4340-9F68-0C3312527D0B}'; RID_PersonalContacto = '{9CED0719-51EC-481B-99D3-9D5091DED177}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -146,7 +146,9 @@ const
fld_ClientesREFERENCIA = 'REFERENCIA'; fld_ClientesREFERENCIA = 'REFERENCIA';
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_ClientesVENCIMIENTO_FACTURAS = 'VENCIMIENTO_FACTURAS'; fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
fld_ClientesBLOQUEADO = 'BLOQUEADO'; fld_ClientesBLOQUEADO = 'BLOQUEADO';
fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA'; fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA';
fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO'; fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO';
@ -183,16 +185,18 @@ const
idx_ClientesREFERENCIA = 22; idx_ClientesREFERENCIA = 22;
idx_ClientesGRUPO_CLIENTE = 23; idx_ClientesGRUPO_CLIENTE = 23;
idx_ClientesNOMBRE_COMERCIAL = 24; idx_ClientesNOMBRE_COMERCIAL = 24;
idx_ClientesVENCIMIENTO_FACTURAS = 25; idx_ClientesVENCIMIENTO_FACTURAS_1 = 25;
idx_ClientesBLOQUEADO = 26; idx_ClientesVENCIMIENTO_FACTURAS_2 = 26;
idx_ClientesREGIMEN_IVA = 27; idx_ClientesVENCIMIENTO_FACTURAS_3 = 27;
idx_ClientesMOTIVO_BLOQUEO = 28; idx_ClientesBLOQUEADO = 28;
idx_ClientesRECARGO_EQUIVALENCIA = 29; idx_ClientesREGIMEN_IVA = 29;
idx_ClientesID_TIPO_IVA = 30; idx_ClientesMOTIVO_BLOQUEO = 30;
idx_ClientesID_FORMA_PAGO = 31; idx_ClientesRECARGO_EQUIVALENCIA = 31;
idx_ClientesTIENDA_WEB = 32; idx_ClientesID_TIPO_IVA = 32;
idx_ClientesCODIGO_ASIGNADO = 33; idx_ClientesID_FORMA_PAGO = 33;
idx_ClientesDESCUENTO = 34; idx_ClientesTIENDA_WEB = 34;
idx_ClientesCODIGO_ASIGNADO = 35;
idx_ClientesDESCUENTO = 36;
{ Proveedores fields } { Proveedores fields }
fld_ProveedoresID = 'ID'; fld_ProveedoresID = 'ID';
@ -229,6 +233,9 @@ const
fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO'; fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO';
fld_ProveedoresCERTIFICACION = 'CERTIFICACION'; fld_ProveedoresCERTIFICACION = 'CERTIFICACION';
fld_ProveedoresSUBCONTRATA = 'SUBCONTRATA'; 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 } { Proveedores field indexes }
idx_ProveedoresID = 0; idx_ProveedoresID = 0;
@ -265,6 +272,9 @@ const
idx_ProveedoresHOMOLOGADO = 31; idx_ProveedoresHOMOLOGADO = 31;
idx_ProveedoresCERTIFICACION = 32; idx_ProveedoresCERTIFICACION = 32;
idx_ProveedoresSUBCONTRATA = 33; idx_ProveedoresSUBCONTRATA = 33;
idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 34;
idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 35;
idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 36;
{ Empleados fields } { Empleados fields }
fld_EmpleadosID = 'ID'; fld_EmpleadosID = 'ID';
@ -489,7 +499,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{411FE58B-C504-42A1-881E-C645A05E3996}'] ['{3D3289B5-C0D5-4B66-8805-D141DFD0F3B5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -788,7 +798,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{7C7B3A92-D0E8-4041-91B0-BFBED35FAAF1}'] ['{D1AF4F9C-B92D-4F21-9443-BBCD429BD57A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -835,7 +845,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{0262BC83-1F74-45D2-A847-0E0348C36252}'] ['{76A6EA81-8519-43E0-852F-FEBD576D1356}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -966,7 +976,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{9799E066-6E73-47CC-A9A4-9E816290C1D6}'] ['{90497427-B985-42B3-86FE-B131BFB87831}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1067,10 +1077,18 @@ type
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetNOMBRE_COMERCIALIsNull: Boolean; function GetNOMBRE_COMERCIALIsNull: Boolean;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURASValue: Integer; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
function GetVENCIMIENTO_FACTURASIsNull: Boolean; function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: 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; function GetBLOQUEADOValue: SmallInt;
procedure SetBLOQUEADOValue(const aValue: SmallInt); procedure SetBLOQUEADOValue(const aValue: SmallInt);
function GetBLOQUEADOIsNull: Boolean; function GetBLOQUEADOIsNull: Boolean;
@ -1160,8 +1178,12 @@ type
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURASIsNull: Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull; 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 BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
@ -1288,10 +1310,18 @@ type
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual; function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURASValue: Integer; virtual; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
function GetVENCIMIENTO_FACTURASIsNull: Boolean; virtual; function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: 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; function GetBLOQUEADOValue: SmallInt; virtual;
procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
function GetBLOQUEADOIsNull: Boolean; virtual; function GetBLOQUEADOIsNull: Boolean; virtual;
@ -1380,8 +1410,12 @@ type
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURASIsNull: Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull; 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 BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
@ -1409,7 +1443,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{7EBD5AEC-9F83-44E3-A329-B74A389C9814}'] ['{250B746E-0268-4403-B61C-8DA02AB23E18}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1546,6 +1580,18 @@ type
procedure SetSUBCONTRATAValue(const aValue: SmallInt); procedure SetSUBCONTRATAValue(const aValue: SmallInt);
function GetSUBCONTRATAIsNull: Boolean; function GetSUBCONTRATAIsNull: Boolean;
procedure SetSUBCONTRATAIsNull(const aValue: 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 } { Properties }
@ -1617,6 +1663,12 @@ type
property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull; property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue; property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
property SUBCONTRATAIsNull: Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull; 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; end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
@ -1761,6 +1813,18 @@ type
procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual; procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual;
function GetSUBCONTRATAIsNull: Boolean; virtual; function GetSUBCONTRATAIsNull: Boolean; virtual;
procedure SetSUBCONTRATAIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1831,6 +1895,12 @@ type
property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull; property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue; property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
property SUBCONTRATAIsNull: Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1840,7 +1910,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{7FADA31E-8655-459C-83CF-22C5B4E04828}'] ['{3614AEDF-A5C6-49A3-9224-018A2080B884}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2271,7 +2341,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{5B3F654F-2625-40E8-A6F7-F83DE29B3AF2}'] ['{14C481DB-4878-4FF1-A4A0-1F6A1CA94358}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2486,7 +2556,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{5DA8AAC1-7E71-496C-83E2-CB4A5DEA2D89}'] ['{D833E457-3E68-4FB7-B2A3-30DB1FA76212}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2569,7 +2639,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{AF7D8134-2E25-47ED-B907-F122AAECFDC4}'] ['{6AE5C79F-BE48-4B9D-9B76-D4DDA6C1F9BD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2616,7 +2686,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{6D69900D-66A4-45F4-B39D-F553E5040214}'] ['{5D14CA3F-E109-4CB0-8A5B-21D6FB2C08E0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2663,7 +2733,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{E71CEE7C-252B-4AD6-952F-1D4A6DCCB33C}'] ['{2929B073-299D-4AE6-8549-239C114B6773}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2938,7 +3008,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{31774D76-B4F1-4DC8-9A99-040A137AC446}'] ['{EA7CCC36-96F3-4B1D-8F78-D03AF5C0E35F}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -2973,7 +3043,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{EAFB7FCC-50C5-49F7-9A09-F407F1BCEEAC}'] ['{18711C3F-5D12-4EE5-9BF3-9447FA00C6B1}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3008,7 +3078,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{A05D0D86-2240-4E70-95EC-C4C0252EDB5F}'] ['{1D234231-A4D4-4114-B9C2-FADD996CBF04}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4453,25 +4523,67 @@ begin
DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsVariant := Null; DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsVariant := Null;
end; end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURASValue: Integer; function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
begin begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger; result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt;
end; end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
begin begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue; DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue;
end; end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURASIsNull: boolean; function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean;
begin begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].IsNull; result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].IsNull;
end; end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
begin begin
if aValue then 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; end;
function TClientesDataTableRules.GetBLOQUEADOValue: SmallInt; function TClientesDataTableRules.GetBLOQUEADOValue: SmallInt;
@ -5396,6 +5508,69 @@ begin
DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsVariant := Null; DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsVariant := Null;
end; 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 } { TEmpleadosDataTableRules }
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable); constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,25 +9,25 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{76362088-C1EE-4136-B602-2F4FE5B4E65F}'; RID_ContactosDelta = '{1C5B32B2-64A7-46DC-80ED-D55EC2EAB36E}';
RID_GruposClienteDelta = '{4E47FE40-C579-45F2-8D30-E8A67549374E}'; RID_GruposClienteDelta = '{DBE23906-43B6-40D4-89A6-8C43DE5D0199}';
RID_DatosBancariosDelta = '{155E0B8B-5958-4383-A845-188DCB34D694}'; RID_DatosBancariosDelta = '{38A6CAFD-4A4A-4428-8FBD-B69CDA95CD55}';
RID_ClientesDelta = '{DD3F0937-1632-4E02-81AA-D9F9DB99752E}'; RID_ClientesDelta = '{64BFD4A6-E90F-4DA2-B05F-5F502159D5A0}';
RID_ProveedoresDelta = '{E1C41362-DAC0-4923-AF1B-3E7151FCB617}'; RID_ProveedoresDelta = '{1670C1F4-BF8D-452C-842A-B0ED16A60DC0}';
RID_EmpleadosDelta = '{BB760188-169E-4A71-85E1-76DACB9C2960}'; RID_EmpleadosDelta = '{3A92EF9C-7A9F-4B3D-8DFF-D64D46E5AD46}';
RID_DireccionesContactoDelta = '{9DB84202-F502-4E91-8182-C05343B87D04}'; RID_DireccionesContactoDelta = '{C30F8EFB-4A0F-42B8-9F1F-6278977F2027}';
RID_ClientesDescuentosDelta = '{34323D2F-6886-4CE0-B598-715E117C439C}'; RID_ClientesDescuentosDelta = '{77E7EAAB-0BAB-4FC2-A30D-D829675B9158}';
RID_GruposProveedorDelta = '{E5D84743-C153-4EE6-8F3B-66D11843D594}'; RID_GruposProveedorDelta = '{EFDF5B68-9988-4B1F-BAAB-58D7364DBF52}';
RID_GruposEmpleadoDelta = '{9BEC700D-7D02-415D-8BCE-A5230A37D7DB}'; RID_GruposEmpleadoDelta = '{3E423ADF-172F-41AD-B354-2E4B5527CCDA}';
RID_Contactos_RefreshDelta = '{9B20DE7E-89CE-41AE-910E-8B2A8C93976B}'; RID_Contactos_RefreshDelta = '{76D97E59-A5FC-4DE6-8562-180558DF00C0}';
RID_ContratosEmpleadosDelta = '{9EDC7470-B7F4-4DC6-8329-7D7AD29B6770}'; RID_ContratosEmpleadosDelta = '{9779B5A3-C2B5-45B6-A303-D965A44A0A20}';
RID_DescripcionesProveedoresDelta = '{BA14BEED-A34C-4CF6-937B-7491E24D854B}'; RID_DescripcionesProveedoresDelta = '{E4568314-2296-4F51-8A69-5D98C83B7D6F}';
RID_PersonalContactoDelta = '{2C7A84B7-C510-47E2-8975-3EC5F7BA0BC4}'; RID_PersonalContactoDelta = '{EA96B4AB-F363-4868-88B7-D29F001991C5}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{76362088-C1EE-4136-B602-2F4FE5B4E65F}'] ['{1C5B32B2-64A7-46DC-80ED-D55EC2EAB36E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -326,7 +326,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{4E47FE40-C579-45F2-8D30-E8A67549374E}'] ['{DBE23906-43B6-40D4-89A6-8C43DE5D0199}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -372,7 +372,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{155E0B8B-5958-4383-A845-188DCB34D694}'] ['{38A6CAFD-4A4A-4428-8FBD-B69CDA95CD55}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -502,7 +502,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{DD3F0937-1632-4E02-81AA-D9F9DB99752E}'] ['{64BFD4A6-E90F-4DA2-B05F-5F502159D5A0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -529,7 +529,9 @@ type
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldGRUPO_CLIENTEValue : String; function GetOldGRUPO_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIALValue : 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 GetOldBLOQUEADOValue : SmallInt;
function GetOldREGIMEN_IVAValue : String; function GetOldREGIMEN_IVAValue : String;
function GetOldMOTIVO_BLOQUEOValue : String; function GetOldMOTIVO_BLOQUEOValue : String;
@ -566,7 +568,9 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue; property 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 OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue; property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
@ -734,12 +738,24 @@ type
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual; function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURASValue: Integer; virtual; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
function GetVENCIMIENTO_FACTURASIsNull: Boolean; virtual; function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
function GetOldVENCIMIENTO_FACTURASValue: Integer; virtual; function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
function GetOldVENCIMIENTO_FACTURASIsNull: Boolean; virtual; function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); 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 GetBLOQUEADOValue: SmallInt; virtual;
function GetBLOQUEADOIsNull: Boolean; virtual; function GetBLOQUEADOIsNull: Boolean; virtual;
function GetOldBLOQUEADOValue: SmallInt; virtual; function GetOldBLOQUEADOValue: SmallInt; virtual;
@ -896,10 +912,18 @@ type
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull; property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
property VENCIMIENTO_FACTURAS : Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property VENCIMIENTO_FACTURAS_1 : SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURASIsNull : Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull; property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue; property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURASIsNull : Boolean read GetOldVENCIMIENTO_FACTURASIsNull; 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 BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
@ -945,7 +969,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{E1C41362-DAC0-4923-AF1B-3E7151FCB617}'] ['{1670C1F4-BF8D-452C-842A-B0ED16A60DC0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -981,6 +1005,9 @@ type
function GetOldHOMOLOGADOValue : SmallInt; function GetOldHOMOLOGADOValue : SmallInt;
function GetOldCERTIFICACIONValue : String; function GetOldCERTIFICACIONValue : String;
function GetOldSUBCONTRATAValue : SmallInt; function GetOldSUBCONTRATAValue : SmallInt;
function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt;
function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -1017,6 +1044,9 @@ type
property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue; property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue; property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue; 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; end;
{ TProveedoresBusinessProcessorRules } { TProveedoresBusinessProcessorRules }
@ -1229,6 +1259,24 @@ type
function GetOldSUBCONTRATAIsNull: Boolean; virtual; function GetOldSUBCONTRATAIsNull: Boolean; virtual;
procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual; procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual;
procedure SetSUBCONTRATAIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1367,6 +1415,18 @@ type
property SUBCONTRATAIsNull : Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull; property SUBCONTRATAIsNull : Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull;
property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue; property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue;
property OldSUBCONTRATAIsNull : Boolean read GetOldSUBCONTRATAIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1376,7 +1436,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{BB760188-169E-4A71-85E1-76DACB9C2960}'] ['{3A92EF9C-7A9F-4B3D-8DFF-D64D46E5AD46}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1811,7 +1871,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{9DB84202-F502-4E91-8182-C05343B87D04}'] ['{C30F8EFB-4A0F-42B8-9F1F-6278977F2027}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2026,7 +2086,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{34323D2F-6886-4CE0-B598-715E117C439C}'] ['{77E7EAAB-0BAB-4FC2-A30D-D829675B9158}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2108,7 +2168,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{E5D84743-C153-4EE6-8F3B-66D11843D594}'] ['{EFDF5B68-9988-4B1F-BAAB-58D7364DBF52}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2154,7 +2214,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{9BEC700D-7D02-415D-8BCE-A5230A37D7DB}'] ['{3E423ADF-172F-41AD-B354-2E4B5527CCDA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2200,7 +2260,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{9B20DE7E-89CE-41AE-910E-8B2A8C93976B}'] ['{76D97E59-A5FC-4DE6-8562-180558DF00C0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2475,7 +2535,7 @@ type
{ IContratosEmpleadosDelta } { IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados) IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{9EDC7470-B7F4-4DC6-8329-7D7AD29B6770}'] ['{9779B5A3-C2B5-45B6-A303-D965A44A0A20}']
{ Property getters and setters } { Property getters and setters }
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
@ -2509,7 +2569,7 @@ type
{ IDescripcionesProveedoresDelta } { IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{BA14BEED-A34C-4CF6-937B-7491E24D854B}'] ['{E4568314-2296-4F51-8A69-5D98C83B7D6F}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2543,7 +2603,7 @@ type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{2C7A84B7-C510-47E2-8975-3EC5F7BA0BC4}'] ['{EA96B4AB-F363-4868-88B7-D29F001991C5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -4580,35 +4640,97 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null;
end; end;
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASValue: Integer; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
end; end;
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASIsNull: Boolean; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]);
end; end;
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASValue: Integer; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
end; end;
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASIsNull: Boolean; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]);
end; end;
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := aValue;
end; end;
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
begin begin
if aValue then 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; end;
function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt; function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt;
@ -5964,6 +6086,99 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA] := Null;
end; 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 } { TEmpleadosBusinessProcessorRules }
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -84,7 +84,6 @@ begin
// ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE]; // ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
ParamByName('VENCIMIENTO_FACTURAS').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO]; ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
@ -94,7 +93,9 @@ begin
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]; ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('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; Execute;
end; end;
finally finally
@ -123,7 +124,6 @@ begin
// ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE]; // ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
ParamByName('VENCIMIENTO_FACTURAS').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO]; ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
@ -133,6 +133,9 @@ begin
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]; ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('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; Execute;
end; end;
finally finally

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

@ -19,6 +19,7 @@ const
PROVEEDOR_REGIMEN_IVA = 'General'; PROVEEDOR_REGIMEN_IVA = 'General';
CLIENTE_REGIMEN_IVA = 'General'; CLIENTE_REGIMEN_IVA = 'General';
PROVEEDOR_DIAS_VENCIMIENTO = 20;
CLIENTE_DIAS_VENCIMIENTO = 15; CLIENTE_DIAS_VENCIMIENTO = 15;
CLIENTE_RECARGO_EQUIVALENCIA = 0; CLIENTE_RECARGO_EQUIVALENCIA = 0;
@ -55,8 +56,14 @@ type
function GetNOMBRE_COMERCIALValue: String; function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetVENCIMIENTO_FACTURASValue: Integer; function GetVENCIMIENTO_FACTURAS_1Value: Smallint;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); 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; function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer); procedure SetBLOQUEADOValue(const aValue: Integer);
@ -87,9 +94,10 @@ type
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos; property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property VENCIMIENTO_FACTURAS_1: 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 BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
@ -135,6 +143,15 @@ type
function GetSUBCONTRATAValue: SmallInt; function GetSUBCONTRATAValue: SmallInt;
procedure SetSUBCONTRATAValue(const aValue: 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 REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
@ -146,6 +163,9 @@ type
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property 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; end;
IBizEmpleado = interface (IBizContacto) IBizEmpleado = interface (IBizContacto)
@ -250,8 +270,14 @@ type
function GetNOMBRE_COMERCIALValue: String; function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetVENCIMIENTO_FACTURASValue: Integer; function GetVENCIMIENTO_FACTURAS_1Value: Smallint;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); 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; function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer); procedure SetBLOQUEADOValue(const aValue: Integer);
@ -286,7 +312,9 @@ type
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos; property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property VENCIMIENTO_FACTURAS_1: 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 BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
@ -332,6 +360,15 @@ type
function GetSUBCONTRATAValue: SmallInt; function GetSUBCONTRATAValue: SmallInt;
procedure SetSUBCONTRATAValue(const aValue: 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 public
procedure IniciarValoresContactoNuevo; override; procedure IniciarValoresContactoNuevo; override;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -345,6 +382,9 @@ type
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property 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; end;
@ -605,9 +645,19 @@ begin
result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger; result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
end; end;
function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer; function TBizCliente.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
begin 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; end;
procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
@ -625,16 +675,26 @@ begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue; DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;
end; end;
procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure TBizCliente.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
begin 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; end;
procedure TBizCliente.IniciarValoresContactoNuevo; procedure TBizCliente.IniciarValoresContactoNuevo;
begin begin
inherited; inherited;
ID_CATEGORIA := CATEGORIA_CLIENTE; ID_CATEGORIA := CATEGORIA_CLIENTE;
VENCIMIENTO_FACTURAS := CLIENTE_DIAS_VENCIMIENTO; VENCIMIENTO_FACTURAS_1 := CLIENTE_DIAS_VENCIMIENTO;
BLOQUEADO := 0; BLOQUEADO := 0;
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
REGIMEN_IVA := CLIENTE_REGIMEN_IVA; REGIMEN_IVA := CLIENTE_REGIMEN_IVA;
@ -677,11 +737,27 @@ begin
result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger; result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger;
end; 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; procedure TBizProveedor.IniciarValoresContactoNuevo;
begin begin
inherited; inherited;
ID_CATEGORIA := CATEGORIA_PROVEEDOR; ID_CATEGORIA := CATEGORIA_PROVEEDOR;
REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA; REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA;
VENCIMIENTO_FACTURAS_1 := PROVEEDOR_DIAS_VENCIMIENTO;
end; end;
function TBizProveedor.GetCERTIFICACIONValue: String; function TBizProveedor.GetCERTIFICACIONValue: String;
@ -759,6 +835,20 @@ begin
DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue; DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue;
end; 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 } { TBizEmpleado }

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

@ -91,6 +91,10 @@ begin
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION]; 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('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; Execute;
end; end;
finally finally
@ -127,6 +131,10 @@ begin
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION]; 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('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; Execute;
end; end;
finally finally

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

@ -493,10 +493,6 @@ object srvContactos: TsrvContactos
DatasetField = 'NOMBRE_COMERCIAL' DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL' TableField = 'NOMBRE_COMERCIAL'
end end
item
DatasetField = 'VENCIMIENTO_FACTURAS'
TableField = 'VENCIMIENTO_FACTURAS'
end
item item
DatasetField = 'BLOQUEADO' DatasetField = 'BLOQUEADO'
TableField = 'BLOQUEADO' TableField = 'BLOQUEADO'
@ -532,6 +528,18 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'DESCUENTO' DatasetField = 'DESCUENTO'
TableField = '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>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -684,9 +692,16 @@ object srvContactos: TsrvContactos
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL' DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
end end
item item
Name = 'VENCIMIENTO_FACTURAS' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger DataType = datSmallInt
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS' end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
end end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
@ -878,6 +893,18 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'SUBCONTRATA' DatasetField = 'SUBCONTRATA'
TableField = '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>
end> end>
Name = 'Proveedores' Name = 'Proveedores'
@ -1077,6 +1104,18 @@ object srvContactos: TsrvContactos
Name = 'SUBCONTRATA' Name = 'SUBCONTRATA'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Proveedores_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> end>
end end
item item
@ -2758,10 +2797,6 @@ object srvContactos: TsrvContactos
Name = 'NOMBRE_COMERCIAL' Name = 'NOMBRE_COMERCIAL'
Value = '' Value = ''
end end
item
Name = 'VENCIMIENTO_FACTURAS'
Value = ''
end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
Value = '' Value = ''
@ -2793,6 +2828,18 @@ object srvContactos: TsrvContactos
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
Value = '' Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -2800,13 +2847,15 @@ object srvContactos: TsrvContactos
TargetTable = 'CLIENTES_DATOS' TargetTable = 'CLIENTES_DATOS'
SQL = SQL =
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' + 'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' +
'ARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' + 'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' +
'BLOQUEADO, MOTIVO_BLOQUEO,'#10' REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' +
'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO,'#10' DESCUENTO)'#10' VALUES'#10' ' + 'ODIGO_ASIGNADO, DESCUENTO,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' +
' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NO' + 'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_CLIENT' +
'MBRE_COMERCIAL, :VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_' + 'E, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL,'#10' ' +
'BLOQUEO, :REGIMEN_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIEND' + ' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID_F' +
'A_WEB, :CODIGO_ASIGNADO,'#10' :DESCUENTO)'#10 'ORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO, :DESCUENTO,'#10' ' +
':VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_F' +
'ACTURAS_3)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -2854,10 +2903,6 @@ object srvContactos: TsrvContactos
Name = 'NOMBRE_COMERCIAL' Name = 'NOMBRE_COMERCIAL'
Value = '' Value = ''
end end
item
Name = 'VENCIMIENTO_FACTURAS'
Value = ''
end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
Value = '' Value = ''
@ -2886,6 +2931,18 @@ object srvContactos: TsrvContactos
Name = 'DESCUENTO' Name = 'DESCUENTO'
Value = '' Value = ''
end end
item
Name = 'VENCIMIENTO_FACTURAS_1'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
Value = ''
end
item item
Name = 'OLD_ID_CLIENTE' Name = 'OLD_ID_CLIENTE'
Value = '' Value = ''
@ -2898,12 +2955,14 @@ object srvContactos: TsrvContactos
'UPDATE CLIENTES_DATOS'#10' SET '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ' + 'UPDATE CLIENTES_DATOS'#10' SET '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ' +
'GRUPO_CLIENTE = :GRUPO_CLIENTE,'#10' MOTIVO_BLOQUEO = :MOTIVO_BLO' + 'GRUPO_CLIENTE = :GRUPO_CLIENTE,'#10' MOTIVO_BLOQUEO = :MOTIVO_BLO' +
'QUEO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' NOMB' + 'QUEO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' NOMB' +
'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' VENCIMIENTO_FACTURAS = :VE' + 'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' BLOQUEADO = :BLOQUEADO,'#10' ' +
'NCIMIENTO_FACTURAS,'#10' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA ' + ' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ' +
'= :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAG' + ' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10 +
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' + ' CODIGO_ASIGNADO = :CODIGO_ASIGNADO,'#10' DESCUENTO = :DESCUEN' +
'GNADO = :CODIGO_ASIGNADO,'#10' DESCUENTO = :DESCUENTO'#10' WHERE'#10' ' + 'TO,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VE' +
' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10 'NCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_' +
'FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_CLIENTE = :' +
'OLD_ID_CLIENTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -2958,6 +3017,18 @@ object srvContactos: TsrvContactos
item item
Name = 'GRUPO_PROVEEDOR' Name = 'GRUPO_PROVEEDOR'
Value = '' Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -2966,11 +3037,14 @@ object srvContactos: TsrvContactos
SQL = SQL =
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' + 'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' + 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
'VA, SUBCONTRATA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERT' + 'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' +
'IFICACION, GRUPO_PROVEEDOR)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIME' + 'IFICACION, GRUPO_PROVEEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' +
'N_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO,' + 'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEE' +
' :ID_TIPO_IVA, :SUBCONTRATA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :H' + 'DOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODI' +
'OMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR)'#10 '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 StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3046,6 +3120,18 @@ object srvContactos: TsrvContactos
Name = 'SUBCONTRATA' Name = 'SUBCONTRATA'
Value = '' Value = ''
end end
item
Name = 'VENCIMIENTO_FACTURAS_1'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
Value = ''
end
item item
Name = 'OLD_ID_PROVEEDOR' Name = 'OLD_ID_PROVEEDOR'
Value = '' Value = ''
@ -3062,7 +3148,10 @@ object srvContactos: TsrvContactos
'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' + 'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' +
' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' + ' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' +
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' SUBCONTRATA = :SUBCON' + ' 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 StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -3,17 +3,17 @@ inherited fEditorCliente: TfEditorCliente
Top = 297 Top = 297
Caption = 'Ficha de cliente' Caption = 'Ficha de cliente'
ClientHeight = 631 ClientHeight = 631
ClientWidth = 714 ClientWidth = 792
ExplicitWidth = 722 ExplicitWidth = 800
ExplicitHeight = 665 ExplicitHeight = 665
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 714 Width = 792
Caption = 'Ficha de cliente' Caption = 'Ficha de cliente'
ExplicitWidth = 714 ExplicitWidth = 792
inherited Image1: TImage inherited Image1: TImage
Left = 687 Left = 765
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -47,10 +47,14 @@ inherited fEditorCliente: TfEditorCliente
AE426082} AE426082}
ExplicitLeft = 565 ExplicitLeft = 565
end end
inherited lblDesbloquear: TcxLabel
Left = 667
ExplicitLeft = 667
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 714 Width = 792
ExplicitWidth = 714 ExplicitWidth = 792
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 446 ExplicitWidth = 446
object TBXItem7: TTBXItem [7] object TBXItem7: TTBXItem [7]
@ -59,21 +63,22 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 714 ExplicitWidth = 792
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 708 Width = 786
Height = 530 Height = 530
ExplicitWidth = 708 ActivePage = pagDatosComerciales
ExplicitWidth = 786
ExplicitHeight = 530 ExplicitHeight = 530
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inline frViewCliente1: TfrViewCliente inline frViewCliente1: TfrViewCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 700 Width = 778
Height = 502 Height = 502
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -84,66 +89,86 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 700 Width = 778
Height = 502 Height = 502
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 655 Left = 733
Top = 218 Top = 218
ExplicitLeft = 655 ExplicitLeft = 733
ExplicitTop = 218 ExplicitTop = 218
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 655 Left = 733
Top = 190 Top = 190
ExplicitLeft = 655 ExplicitLeft = 733
ExplicitTop = 190 ExplicitTop = 190
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 655 Left = 733
Top = 162 Top = 162
ExplicitLeft = 655 ExplicitLeft = 733
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 395 Left = 419
Top = 251 Top = 251
Width = 161 Width = 161
ExplicitLeft = 395 ExplicitLeft = 419
ExplicitTop = 251 ExplicitTop = 251
ExplicitWidth = 161 ExplicitWidth = 161
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 267 Top = 267
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 267 ExplicitTop = 267
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 294 Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 294 ExplicitTop = 294
ExplicitWidth = 145 ExplicitWidth = 145
Width = 145 Width = 145
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 321 Top = 321
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 321 ExplicitTop = 321
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 313 Left = 337
Top = 294 Top = 294
ExplicitLeft = 313 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 337
ExplicitTop = 294 ExplicitTop = 294
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 399 Top = 399
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 399 ExplicitTop = 399
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 87 ExplicitHeight = 87
@ -152,122 +177,190 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited eNombreComercial: TcxDBTextEdit inherited eNombreComercial: TcxDBTextEdit
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited cbClienteBloqueado: TcxDBCheckBox inherited cbClienteBloqueado: TcxDBCheckBox
Top = 189 Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 189 ExplicitTop = 189
ExplicitWidth = 356 ExplicitWidth = 356
Width = 356 Width = 356
end end
inherited cbGrupoCliente: TcxDBComboBox inherited cbGrupoCliente: TcxDBComboBox
Top = 138 Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited eBloqueo: TcxDBTextEdit inherited eBloqueo: TcxDBTextEdit
Top = 216 Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited eCodigoAsignado: TcxDBTextEdit inherited eCodigoAsignado: TcxDBTextEdit
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 501 Left = 525
Top = 57 Top = 57
ExplicitLeft = 501 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 525
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 501 Left = 525
Top = 30 Top = 30
ExplicitLeft = 501 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 525
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 501 Left = 525
Top = 84 Top = 84
ExplicitLeft = 501 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 525
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 501 Left = 525
Top = 111 Top = 111
ExplicitLeft = 501 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 525
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 395 Left = 419
Top = 322 Top = 322
ExplicitLeft = 395 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 419
ExplicitTop = 322 ExplicitTop = 322
ExplicitWidth = 294 ExplicitWidth = 328
Width = 294 Width = 328
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 216 Left = 226
Top = 30 Top = 30
ExplicitLeft = 216 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 226
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 162 ExplicitWidth = 162
Width = 162 Width = 162
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 501 Left = 525
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 501 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 525
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 501 Left = 525
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 501 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 525
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 501 Left = 525
Top = 217 Top = 217
ExplicitLeft = 501 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 525
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 31 ExplicitWidth = 31
Width = 31 Width = 31
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 348 Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348 ExplicitTop = 348
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
@ -280,22 +373,22 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
Width = 700 Width = 778
Height = 502 Height = 502
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 700 Width = 778
Height = 477 Height = 477
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 477 ExplicitHeight = 477
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 700 Width = 778
ExplicitWidth = 700 ExplicitWidth = 778
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62
end end
@ -317,7 +410,7 @@ inherited fEditorCliente: TfEditorCliente
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
Width = 700 Width = 778
Height = 193 Height = 193
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -328,17 +421,17 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 193 ExplicitHeight = 193
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 700 Width = 778
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 700 ExplicitWidth = 778
inherited Label1: TLabel inherited Label1: TLabel
Left = 452 Left = 521
Top = 30 Top = 30
Width = 196 Width = 196
ExplicitLeft = 452 ExplicitLeft = 521
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 196 ExplicitWidth = 196
end end
@ -348,54 +441,86 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 263 ExplicitWidth = 263
end end
inherited eDiasVencimiento: TcxDBSpinEdit
Left = 515
Top = 62
ExplicitLeft = 515
ExplicitTop = 62
ExplicitWidth = 160
Width = 160
end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 307 ExplicitWidth = 307
Width = 307 Width = 307
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 307 ExplicitWidth = 307
Width = 307 Width = 307
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 169 ExplicitWidth = 169
Width = 169 Width = 169
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 292 Left = 361
Top = 57 Top = 57
ExplicitLeft = 292 ExplicitLeft = 361
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 169 ExplicitWidth = 169
Width = 169 Width = 169
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 292 Left = 361
Top = 84 Top = 84
ExplicitLeft = 292 ExplicitLeft = 361
ExplicitTop = 84 ExplicitTop = 84
end end
inherited eDescuento: TcxDBSpinEdit inherited eDescuento: TcxDBSpinEdit
Top = 149 Top = 149
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 149 ExplicitTop = 149
end 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 end
end end
@ -405,7 +530,7 @@ inherited fEditorCliente: TfEditorCliente
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
Width = 700 Width = 778
Height = 502 Height = 502
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -416,12 +541,12 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 700 Width = 778
Height = 477 Height = 477
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 477 ExplicitHeight = 477
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
@ -431,20 +556,8 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 700 Width = 778
ExplicitWidth = 700 ExplicitWidth = 778
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -455,7 +568,7 @@ inherited fEditorCliente: TfEditorCliente
inline frViewClienteDescuentos1: TfrViewClienteDescuentos inline frViewClienteDescuentos1: TfrViewClienteDescuentos
Left = 0 Left = 0
Top = 0 Top = 0
Width = 700 Width = 778
Height = 502 Height = 502
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -466,17 +579,17 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 700 Width = 778
Height = 477 Height = 477
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 477 ExplicitHeight = 477
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 700 Width = 778
ExplicitWidth = 700 ExplicitWidth = 778
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62
end end
@ -493,22 +606,22 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited pagPersonal: TTabSheet inherited pagPersonal: TTabSheet
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inherited frViewPersonalContacto1: TfrViewPersonalContacto inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 700 Width = 778
Height = 502 Height = 502
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 700 Width = 778
Height = 477 Height = 477
ExplicitWidth = 700 ExplicitWidth = 778
ExplicitHeight = 477 ExplicitHeight = 477
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 700 Width = 778
ExplicitWidth = 700 ExplicitWidth = 778
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62
end end
@ -527,9 +640,9 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 612 Top = 612
Width = 714 Width = 792
ExplicitTop = 612 ExplicitTop = 612
ExplicitWidth = 714 ExplicitWidth = 792
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
inherited actPrevisualizar: TAction inherited actPrevisualizar: TAction

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

@ -15,7 +15,7 @@ uses
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos, uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
uViewContactoDatosBancarios, dxLayoutLookAndFeels, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios, uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios,
uViewPersonalContacto; uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel;
type type
TfEditorCliente = class(TfEditorContacto, IEditorCliente) TfEditorCliente = class(TfEditorContacto, IEditorCliente)

6
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -15,9 +15,13 @@ inherited fEditorContacto: TfEditorContacto
Caption = 'Contacto' Caption = 'Contacto'
ExplicitWidth = 632 ExplicitWidth = 632
inherited Image1: TImage inherited Image1: TImage
Left = 605 Left = 499
ExplicitLeft = 607 ExplicitLeft = 607
end end
inherited lblDesbloquear: TcxLabel
Left = 534
ExplicitLeft = 534
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 632 Width = 632

2
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -15,7 +15,7 @@ uses
uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls, uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls,
JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel, JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel,
uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios, uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios,
uViewPersonalContacto; uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel;
type type
TfEditorContacto = class(TfEditorDBItem, IEditorContacto) TfEditorContacto = class(TfEditorDBItem, IEditorContacto)

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

@ -8,7 +8,7 @@ inherited fEditorProveedor: TfEditorProveedor
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 830 Width = 830
ExplicitWidth = 839 ExplicitWidth = 830
inherited Image1: TImage inherited Image1: TImage
Left = 803 Left = 803
Picture.Data = { Picture.Data = {
@ -44,10 +44,14 @@ inherited fEditorProveedor: TfEditorProveedor
FF01702244FEF5B056BE0000000049454E44AE426082} FF01702244FEF5B056BE0000000049454E44AE426082}
ExplicitLeft = 621 ExplicitLeft = 621
end end
inherited lblDesbloquear: TcxLabel
Left = 705
ExplicitLeft = 705
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 830 Width = 830
ExplicitWidth = 839 ExplicitWidth = 830
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 330
end end
@ -58,12 +62,12 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 824 Width = 824
Height = 519 Height = 519
ActivePage = pagGeneral ActivePage = pagDatosComerciales
ExplicitWidth = 833 ExplicitWidth = 824
ExplicitHeight = 516 ExplicitHeight = 519
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 488 ExplicitHeight = 491
inline frViewProveedor1: TfrViewProveedor inline frViewProveedor1: TfrViewProveedor
Left = 0 Left = 0
Top = 0 Top = 0
@ -78,14 +82,14 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 488 ExplicitHeight = 491
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 816 Width = 816
Height = 491 Height = 491
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 488 ExplicitHeight = 491
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 771 Left = 771
Top = 218 Top = 218
@ -105,37 +109,59 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 493 Left = 485
Top = 251 Top = 251
ExplicitLeft = 493 Width = 342
ExplicitLeft = 485
ExplicitTop = 251 ExplicitTop = 251
ExplicitWidth = 342
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 267 Top = 267
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 267 ExplicitTop = 267
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 294 Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 294 ExplicitTop = 294
ExplicitWidth = 265 ExplicitWidth = 265
Width = 265 Width = 265
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 321 Top = 321
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 321 ExplicitTop = 321
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 411 Left = 403
Top = 294 Top = 294
ExplicitLeft = 411 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 403
ExplicitTop = 294 ExplicitTop = 294
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 399 Top = 399
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 399 ExplicitTop = 399
ExplicitWidth = 772 ExplicitWidth = 772
ExplicitHeight = 76 ExplicitHeight = 76
@ -144,163 +170,247 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited cxDBCheckBox2: TcxDBCheckBox inherited cxDBCheckBox2: TcxDBCheckBox
Top = 189 Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 189 ExplicitTop = 189
ExplicitWidth = 478 ExplicitWidth = 478
Width = 478 Width = 478
end end
inherited eCertificaciones: TcxDBTextEdit inherited eCertificaciones: TcxDBTextEdit
Top = 216 Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited cbGrupoProveedor: TcxDBComboBox inherited cbGrupoProveedor: TcxDBComboBox
Top = 138 Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 277 ExplicitWidth = 277
Width = 277 Width = 277
end end
inherited cbDescripcionProveedor: TcxDBComboBox inherited cbDescripcionProveedor: TcxDBComboBox
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited eCodigoAsignado: TcxDBTextEdit inherited eCodigoAsignado: TcxDBTextEdit
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 599 Left = 591
Top = 57 Top = 57
ExplicitLeft = 599 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 599 Left = 591
Top = 30 Top = 30
ExplicitLeft = 599 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 599 Left = 591
Top = 84 Top = 84
ExplicitLeft = 599 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 599 Left = 591
Top = 111 Top = 111
ExplicitLeft = 599 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end 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 inherited eNIFCIF: TcxDBTextEdit
Left = 261 Left = 258
Top = 30 Top = 30
ExplicitLeft = 261 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 258
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 229 ExplicitWidth = 229
Width = 229 Width = 229
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 599 Left = 591
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 599 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 142 ExplicitWidth = 142
Width = 142 Width = 142
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 599 Left = 591
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 599 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 142 ExplicitWidth = 142
Width = 142 Width = 142
end end
inherited cxDBCheckBox3: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 393 Left = 485
Top = 138 Top = 283
ExplicitLeft = 393 Style.LookAndFeel.SkinName = ''
ExplicitTop = 138 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 485
ExplicitTop = 283
ExplicitWidth = 236
Width = 236
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 599 Left = 591
Top = 217 Top = 217
ExplicitLeft = 599 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 142 ExplicitWidth = 142
Width = 142 Width = 142
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 84 ExplicitWidth = 84
Width = 84 Width = 84
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 348 Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348 ExplicitTop = 348
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 493
Top = 283
ExplicitLeft = 493
ExplicitTop = 283
end
end end
end end
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 488 ExplicitHeight = 491
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
Width = 816 Width = 816
Height = 491 Height = 491
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 488 ExplicitHeight = 491
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 816 Width = 816
Height = 466 Height = 466
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 398 ExplicitHeight = 466
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 816 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 end
end end
object pagDatosComerciales: TTabSheet [2] object pagDatosComerciales: TTabSheet [2]
Caption = 'Datos comerciales' Caption = 'Datos comerciales'
ImageIndex = 2 ImageIndex = 2
ExplicitWidth = 825
ExplicitHeight = 488
inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
Width = 816 Width = 816
Height = 121 Height = 185
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -310,66 +420,116 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 121 ExplicitHeight = 185
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 816 Width = 816
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 825 ExplicitWidth = 816
inherited Label1: TLabel inherited Label1: TLabel
Left = 527 Left = 584
Top = 30 Top = 30
Width = 190 Width = 190
ExplicitLeft = 527 Height = 26
ExplicitLeft = 584
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 190 ExplicitWidth = 190
ExplicitHeight = 26
end
inherited Bevel1: TBevel
Top = 111
Width = 415
ExplicitTop = 111
ExplicitWidth = 415
end end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 398 ExplicitWidth = 398
Width = 398 Width = 398
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 367 Left = 424
Top = 57 Top = 57
ExplicitLeft = 367 ExplicitLeft = 424
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 367 Left = 424
Top = 84 Top = 84
ExplicitLeft = 367 ExplicitLeft = 424
ExplicitTop = 84 ExplicitTop = 84
end end
inherited eDescuento: TcxDBSpinEdit inherited eDescuento: TcxDBSpinEdit
Left = 571 Top = 122
Top = 62 Style.LookAndFeel.SkinName = ''
ExplicitLeft = 571 StyleDisabled.LookAndFeel.SkinName = ''
ExplicitTop = 62 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 122
ExplicitWidth = 226 ExplicitWidth = 226
Width = 226 Width = 226
end 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 end
end end
object pagDirecciones: TTabSheet [3] object pagDirecciones: TTabSheet [3]
Caption = 'Direcciones' Caption = 'Direcciones'
ImageIndex = 3 ImageIndex = 3
ExplicitWidth = 825
ExplicitHeight = 488
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
@ -384,49 +544,49 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 488 ExplicitHeight = 491
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 816 Width = 816
Height = 466 Height = 466
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 398 ExplicitHeight = 466
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 816 Width = 816
ExplicitWidth = 825 ExplicitWidth = 816
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
inherited pagPersonal: TTabSheet inherited pagPersonal: TTabSheet
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 488 ExplicitHeight = 491
inherited frViewPersonalContacto1: TfrViewPersonalContacto inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 816 Width = 816
Height = 491 Height = 491
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 488 ExplicitHeight = 491
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 816 Width = 816
Height = 466 Height = 466
ExplicitWidth = 825 ExplicitWidth = 816
ExplicitHeight = 398 ExplicitHeight = 466
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 816 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 end
end end
@ -434,8 +594,8 @@ inherited fEditorProveedor: TfEditorProveedor
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 601 Top = 601
Width = 830 Width = 830
ExplicitTop = 598 ExplicitTop = 601
ExplicitWidth = 839 ExplicitWidth = 830
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 32 Left = 32

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

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

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

@ -1,27 +1,28 @@
inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 637 Width = 725
Height = 284 Height = 284
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 637 ExplicitWidth = 725
ExplicitHeight = 284 ExplicitHeight = 284
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 637 Width = 725
Height = 209 Height = 209
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 637
object Label1: TLabel object Label1: TLabel
Left = 412 Left = 445
Top = 28 Top = 28
Width = 196 Width = 227
Height = 26 Height = 26
Caption = 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.' 'agos.'
Transparent = True Transparent = True
WordWrap = True WordWrap = True
@ -33,14 +34,15 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Height = 5 Height = 5
Shape = bsBottomLine Shape = bsBottomLine
end end
object eDiasVencimiento: TcxDBSpinEdit object eDiasVencimiento1: TcxDBSpinEdit
Left = 475 Left = 517
Top = 60 Top = 60
DataBinding.DataField = 'VENCIMIENTO_FACTURAS' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
Properties.AssignedValues.MinValue = True Properties.DisplayFormat = '##'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.SpinButtons.Visible = False Properties.SpinButtons.Visible = False
Properties.UseDisplayFormatWhenEditing = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -153,7 +155,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 121 Width = 121
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 250 Left = 283
Top = 55 Top = 55
Width = 132 Width = 132
Height = 21 Height = 21
@ -197,7 +199,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 121 Width = 121
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 250 Left = 283
Top = 82 Top = 82
Width = 132 Width = 132
Height = 21 Height = 21
@ -229,7 +231,61 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 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 end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -323,8 +379,20 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
Caption = 'D'#237'a del mes:' Caption = 'D'#237'a del mes 1:'
Control = eDiasVencimiento 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 ControlOptions.ShowBorder = False
end end
end end

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

@ -24,7 +24,7 @@ type
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dsAgentes: TDADataSource; dsAgentes: TDADataSource;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
eDiasVencimiento: TcxDBSpinEdit; eDiasVencimiento1: TcxDBSpinEdit;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
cbRegimenIVA: TcxDBComboBox; cbRegimenIVA: TcxDBComboBox;
dsDatosComerciales: TDADataSource; dsDatosComerciales: TDADataSource;
@ -49,6 +49,10 @@ type
eDescuento: TcxDBSpinEdit; eDescuento: TcxDBSpinEdit;
Bevel1: TBevel; Bevel1: TBevel;
dxLayoutControl1Item10: TdxLayoutItem; dxLayoutControl1Item10: TdxLayoutItem;
dxLayoutControl1Item11: TdxLayoutItem;
eDiasVencimiento2: TcxDBSpinEdit;
dxLayoutControl1Item12: TdxLayoutItem;
eDiasVencimiento3: TcxDBSpinEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject); procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);

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

@ -1,33 +1,40 @@
inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Width = 642 Width = 642
Height = 266 Height = 191
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 266 ExplicitHeight = 191
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 642 Width = 642
Height = 129 Height = 177
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
object Label1: TLabel object Label1: TLabel
Left = 417 Left = 468
Top = 28 Top = 28
Width = 190 Width = 149
Height = 26 Height = 39
Caption = Caption =
'Puede indicar el descuento por defecto acordado con este proveed' + 'Puede indicar el d'#237'a del mes en el cual el proveedor realiza los' +
'or.' ' pagos.'
Transparent = True Transparent = True
WordWrap = True WordWrap = True
end end
object Bevel1: TBevel
Left = 22
Top = 109
Width = 415
Height = 5
Shape = bsBottomLine
end
object cbRegimenIVA: TcxDBComboBox object cbRegimenIVA: TcxDBComboBox
Left = 107 Left = 111
Top = 28 Top = 28
DataBinding.DataField = 'REGIMEN_IVA' DataBinding.DataField = 'REGIMEN_IVA'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -40,19 +47,23 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 121 Width = 121
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 107 Left = 111
Top = 55 Top = 55
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -70,19 +81,23 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 121 Width = 121
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 255 Left = 306
Top = 55 Top = 55
Width = 132 Width = 132
Height = 21 Height = 21
@ -91,7 +106,7 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eIVA: TcxDBLookupComboBox object eIVA: TcxDBLookupComboBox
Left = 107 Left = 111
Top = 82 Top = 82
DataBinding.DataField = 'ID_TIPO_IVA' DataBinding.DataField = 'ID_TIPO_IVA'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -109,19 +124,23 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 121 Width = 121
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 255 Left = 306
Top = 82 Top = 82
Width = 132 Width = 132
Height = 21 Height = 21
@ -130,8 +149,8 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
OnClick = bTiposIVAClick OnClick = bTiposIVAClick
end end
object eDescuento: TcxDBSpinEdit object eDescuento: TcxDBSpinEdit
Left = 461 Left = 111
Top = 60 Top = 120
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -139,15 +158,100 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 5
Width = 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 end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -189,20 +293,35 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Group4: TdxLayoutGroup
AutoAligns = [aaVertical] ShowCaption = False
AlignHorz = ahClient Hidden = True
Caption = 'IVA por defecto' LayoutDirection = ldHorizontal
Control = eIVA 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 ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahRight Caption = 'Dto. por defecto:'
ShowCaption = False Control = eDescuento
Control = bTiposIVA
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
@ -210,7 +329,7 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Descuento por defecto' Caption = 'Datos para facturaci'#243'n'
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
@ -220,9 +339,22 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item10: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
Caption = '% Dto.:' AutoAligns = [aaVertical]
Control = eDescuento 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 ControlOptions.ShowBorder = False
end end
end end

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

@ -8,7 +8,7 @@ uses
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit, cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit,
uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController, uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController,
uDAInterfaces, uBizTiposIVA, uBizFormasPago; uDAInterfaces, uBizTiposIVA, uBizFormasPago, ExtCtrls;
type type
IViewProveedorDatosComerciales = interface(IViewBase) IViewProveedorDatosComerciales = interface(IViewBase)
@ -41,8 +41,17 @@ type
dsTiposIVA: TDADataSource; dsTiposIVA: TDADataSource;
dxLayoutControl1Group1: TdxLayoutGroup; dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem; dxLayoutControl1Item1: TdxLayoutItem;
eDescuento: TcxDBSpinEdit; 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 CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject); procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);

37
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -67,11 +67,12 @@ type
function _Vacio : IBizFacturaCliente; function _Vacio : IBizFacturaCliente;
procedure FiltrarEmpresa(AFactura: IBizFacturaCliente); procedure FiltrarEmpresa(AFactura: IBizFacturaCliente);
function ValidarFactura(AFactura: IBizFacturaCliente): Boolean; function ValidarFactura(AFactura: IBizFacturaCliente): Boolean;
procedure GenerarRecibos(AFactura: IBizFacturaCliente); procedure GenerarRecibos(AFactura: IBizFacturaCliente);
protected protected
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
public public
property ClienteController: IClientesController read GetClienteController write SetClienteController; property ClienteController: IClientesController read GetClienteController write SetClienteController;
property DetallesController: IDetallesFacturaClienteController read GetDetallesController write SetDetallesController; property DetallesController: IDetallesFacturaClienteController read GetDetallesController write SetDetallesController;
@ -1041,6 +1042,9 @@ var
ARecibos: IBizRecibosCliente; ARecibos: IBizRecibosCliente;
AFechaVencimiento: TDateTime; AFechaVencimiento: TDateTime;
i: Integer; i: Integer;
ADiaVencimiento: Integer;
ADiasMas: Integer;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
Exit; Exit;
@ -1070,25 +1074,26 @@ begin
ARecibos.Edit; ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID; ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; 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 begin
if DayOf(AFechaVencimiento) > AFactura.Cliente.VENCIMIENTO_FACTURAS then ADiaVencimiento := DayOf(AFechaVencimiento);
begin ADiasMas := 0;
AFechaVencimiento := IncDay(AFechaVencimiento, (DaysInMonth(AFechaVencimiento) - DayOf(AFechaVencimiento))); while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1)
AFechaVencimiento := IncDay(AFechaVencimiento, AFactura.Cliente.VENCIMIENTO_FACTURAS); and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2)
end and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do
else begin
AFechaVencimiento := IncDay(AFechaVencimiento, (AFactura.Cliente.VENCIMIENTO_FACTURAS - DayOf(AFechaVencimiento))); Inc(ADiaVencimiento);
Inc(ADiasMas);
if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
ADiaVencimiento := 0;
end;
end; end;
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
//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;
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);

29
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -117,7 +117,7 @@ uses
uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController, uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController,
uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor, uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor,
uRecibosProveedorController, uBizRecibosProveedor, uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
uFacturasProveedorReportController, DateUtils, Forms, Dialogs, uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
uFormasPagoController, uBizFormasPago; uFormasPagoController, uBizFormasPago;
@ -851,7 +851,11 @@ var
AFormaPago: IBizFormaPago; AFormaPago: IBizFormaPago;
ARecibosProveedorController: IRecibosProveedorController; ARecibosProveedorController: IRecibosProveedorController;
ARecibos: IBizRecibosProveedor; ARecibos: IBizRecibosProveedor;
AFechaVencimiento: TDateTime;
i: Integer; i: Integer;
ADiaVencimiento: Integer;
ADiasMas: Integer;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
@ -883,8 +887,29 @@ begin
ARecibos.ID_FACTURA := AFactura.ID; ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; 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.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
ARecibosProveedorController.Guardar(ARecibos); ARecibosProveedorController.Guardar(ARecibos);
Inc(i); Inc(i);
Next; Next;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -107,8 +107,6 @@ uses
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente: TDataModule}, uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente: TDataModule},
uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestoCliente: 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', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_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}, 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', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas', 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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.3.4.0\0" VALUE "FileVersion", "1.3.4.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

4
Source/Servidor/uDataModuleServer.dfm
View File

@ -39,8 +39,8 @@ object dmServer: TdmServer
Name = 'IBX' Name = 'IBX'
ConnectionString = ConnectionString =
'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' + 'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' +
'tabase\FACTUGES_PRODUCCION.FDB;UserID=sysdba;Password=masterkey;' + 'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' +
'Dialect=3;Charset=ISO8859_1;' 'harset=ISO8859_1;'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
end> end>