diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB
index 231b166d..56c6f0bb 100644
Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index eea292dc..147ba354 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 3,0,6,0
-PRODUCTVERSION 3,0,6,0
+FILEVERSION 3,0,7,0
+PRODUCTVERSION 3,0,7,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "3.0.6.0\0"
+ VALUE "FileVersion", "3.0.7.0\0"
VALUE "InternalName", "FactuGES\0"
- VALUE "ProductVersion", "3.0.6.0\0"
+ VALUE "ProductVersion", "3.0.7.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 6a43144d..783895fa 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
index 4f848943..05d6584a 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
@@ -366,19 +366,6 @@ inherited DataModuleClientes: TDataModuleClientes
Lookup = False
LookupCache = False
end
- item
- Name = 'VENCIMIENTO_FACTURAS'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'Vencimiento'
- Alignment = taLeftJustify
- DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
item
Name = 'BLOQUEADO'
DataType = datInteger
@@ -475,9 +462,8 @@ inherited DataModuleClientes: TDataModuleClientes
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
- DisplayLabel = 'Clientes_AGENTE'
+ DisplayLabel = 'Agente'
Alignment = taLeftJustify
- DictionaryEntry = 'Clientes_AGENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
@@ -490,21 +476,39 @@ inherited DataModuleClientes: TDataModuleClientes
DisplayWidth = 0
DisplayLabel = 'Rapel'
Alignment = taLeftJustify
- DictionaryEntry = 'Clientes_RAPEL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
- Name = 'EMAIL_ADMINISTRACION'
- DataType = datString
- Size = 255
+ Name = 'VENCIMIENTO_FACTURAS_1'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_2'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_3'
+ DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
- DisplayLabel = 'E-mail administrativo'
Alignment = taLeftJustify
- DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
InPrimaryKey = False
Calculated = False
Lookup = False
diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
index 906d67ff..4dbc0fee 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
@@ -1,6 +1,30 @@
inherited DataModuleProveedores: TDataModuleProveedores
- Height = 412
- Width = 516
+ inherited DADesigntimeCall1: TDADesigntimeCall
+ RemoteRequest.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBoolean
+ end
+ item
+ Name = 'User'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'Luis'
+ end
+ item
+ Name = 'Password'
+ ParamType = fIn
+ DataType = rtString
+ Value = '1'
+ end
+ item
+ Name = 'LoginInfo'
+ ParamType = fOut
+ DataType = rtUserDefined
+ UserClassName = 'TRdxLoginInfo'
+ end>
+ end
object tbl_Proveedores: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
@@ -360,21 +384,39 @@ inherited DataModuleProveedores: TDataModuleProveedores
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
- DictionaryEntry = 'Proveedores_TIENDA_WEB'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
- Name = 'EMAIL_ADMINISTRACION'
- DataType = datString
- Size = 255
+ Name = 'VENCIMIENTO_FACTURAS_1'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_2'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_3'
+ DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
- DisplayLabel = 'E-mail administrativo'
Alignment = taLeftJustify
- DictionaryEntry = 'Proveedores_EMAIL_ADMINISTRACION'
InPrimaryKey = False
Calculated = False
Lookup = False
@@ -466,12 +508,12 @@ inherited DataModuleProveedores: TDataModuleProveedores
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Proveedores'
IndexDefs = <>
- Left = 288
- Top = 160
+ Left = 296
+ Top = 184
end
object ds_Proveedores: TDADataSource
DataTable = tbl_Proveedores
- Left = 288
- Top = 224
+ Left = 296
+ Top = 256
end
end
diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index bb5da325..bde9c680 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -9,17 +9,17 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_Contactos = '{B7DC3FCE-26AF-4E39-8683-E8D9B1BF7590}';
- RID_GruposCliente = '{EF2E0CAE-A8B0-49A1-B8CF-B8C49D32AEFD}';
- RID_ClienteEliminable = '{24F89D65-8CA6-43F7-83FE-89A982EA5B2B}';
- RID_DatosBancarios = '{C36E8DE7-35F2-44CD-BB72-F87F1EFA8E6A}';
- RID_ContactosCategorias = '{C49DC4A7-3D9B-4AF8-88A7-A0E2E65DA885}';
- RID_Clientes = '{3F54A7C9-EC37-440B-AE22-5C200C988E72}';
- RID_Proveedores = '{04909F44-00A2-4046-BC0F-78DD9F66AADF}';
- RID_Agentes = '{1BC26A94-145F-4765-BC9C-483274E85F96}';
- RID_DireccionesContacto = '{C738093E-2D7D-4F23-8EE3-0829E7FC6D0B}';
- RID_AgentesComisiones = '{F5ADDFE9-5BBA-4D64-B261-C4F96707D016}';
- RID_ClientesDescuentos = '{E946CA4B-0340-4324-8B21-B8D258509F86}';
+ RID_Contactos = '{21B686C9-1DFE-4CE5-A335-839D6C6D48FA}';
+ RID_GruposCliente = '{843533F1-3EE7-4E61-B160-1AB196652BAB}';
+ RID_ClienteEliminable = '{FEDDADEF-BC51-4ABB-B5AE-5FD488AF69E8}';
+ RID_DatosBancarios = '{108F4519-24AD-4476-BD7B-1F88ABABE6F5}';
+ RID_ContactosCategorias = '{79F45572-8D2E-4C9E-8BA7-9C2B321C40AC}';
+ RID_Clientes = '{CEA6925A-922C-4831-A6A8-196B47147D2C}';
+ RID_Proveedores = '{E898ECF3-F083-4D39-8257-CB11A7EB60E9}';
+ RID_Agentes = '{C2DA2C10-F9CA-4FDE-9441-7BBBE614C7EF}';
+ RID_DireccionesContacto = '{611A8BA7-2752-449A-843E-8FED952DA444}';
+ RID_AgentesComisiones = '{44CBCA9B-3B73-4B97-8FE7-D36067C2EDC9}';
+ RID_ClientesDescuentos = '{226678E2-3999-42AA-824E-33C84D28229F}';
{ Data table names }
nme_Contactos = 'Contactos';
@@ -148,7 +148,6 @@ const
fld_ClientesID_AGENTE = 'ID_AGENTE';
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
- fld_ClientesVENCIMIENTO_FACTURAS = 'VENCIMIENTO_FACTURAS';
fld_ClientesBLOQUEADO = 'BLOQUEADO';
fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO';
fld_ClientesRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
@@ -158,7 +157,9 @@ const
fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
fld_ClientesAGENTE = 'AGENTE';
fld_ClientesRAPEL = 'RAPEL';
- fld_ClientesEMAIL_ADMINISTRACION = 'EMAIL_ADMINISTRACION';
+ fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
+ fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
+ fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
{ Clientes field indexes }
idx_ClientesID = 0;
@@ -186,17 +187,18 @@ const
idx_ClientesID_AGENTE = 22;
idx_ClientesGRUPO_CLIENTE = 23;
idx_ClientesNOMBRE_COMERCIAL = 24;
- idx_ClientesVENCIMIENTO_FACTURAS = 25;
- idx_ClientesBLOQUEADO = 26;
- idx_ClientesMOTIVO_BLOQUEO = 27;
- idx_ClientesRECARGO_EQUIVALENCIA = 28;
- idx_ClientesREGIMEN_IVA = 29;
- idx_ClientesID_TIPO_IVA = 30;
- idx_ClientesID_FORMA_PAGO = 31;
- idx_ClientesTIENDA_WEB = 32;
- idx_ClientesAGENTE = 33;
- idx_ClientesRAPEL = 34;
- idx_ClientesEMAIL_ADMINISTRACION = 35;
+ idx_ClientesBLOQUEADO = 25;
+ idx_ClientesMOTIVO_BLOQUEO = 26;
+ idx_ClientesRECARGO_EQUIVALENCIA = 27;
+ idx_ClientesREGIMEN_IVA = 28;
+ idx_ClientesID_TIPO_IVA = 29;
+ idx_ClientesID_FORMA_PAGO = 30;
+ idx_ClientesTIENDA_WEB = 31;
+ idx_ClientesAGENTE = 32;
+ idx_ClientesRAPEL = 33;
+ idx_ClientesVENCIMIENTO_FACTURAS_1 = 34;
+ idx_ClientesVENCIMIENTO_FACTURAS_2 = 35;
+ idx_ClientesVENCIMIENTO_FACTURAS_3 = 36;
{ Proveedores fields }
fld_ProveedoresID = 'ID';
@@ -226,7 +228,9 @@ const
fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA';
fld_ProveedoresID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB';
- fld_ProveedoresEMAIL_ADMINISTRACION = 'EMAIL_ADMINISTRACION';
+ fld_ProveedoresVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
+ fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
+ fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
{ Proveedores field indexes }
idx_ProveedoresID = 0;
@@ -256,7 +260,9 @@ const
idx_ProveedoresID_TIPO_IVA = 24;
idx_ProveedoresID_FORMA_PAGO = 25;
idx_ProveedoresTIENDA_WEB = 26;
- idx_ProveedoresEMAIL_ADMINISTRACION = 27;
+ idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 27;
+ idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 28;
+ idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 29;
{ Agentes fields }
fld_AgentesID = 'ID';
@@ -369,7 +375,7 @@ const
type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
- ['{3C467D50-383F-4253-82A6-6D6BFBAB736C}']
+ ['{D5428C9F-FB34-4AEF-8A52-04127D7B5C16}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -524,7 +530,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
- ['{E9FE8307-940C-4908-9B25-951994F738CF}']
+ ['{AAC323F1-5AA3-4E96-9C29-517076C33116}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@@ -553,7 +559,7 @@ type
{ IClienteEliminable }
IClienteEliminable = interface(IDAStronglyTypedDataTable)
- ['{6C7EAFC6-7134-4304-B79F-2EDEE270F265}']
+ ['{2A57BE18-8E69-4997-B857-EA180A76BAA2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -588,7 +594,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
- ['{CEEE0955-68DD-48C2-AEFC-693FC07AC72A}']
+ ['{EBF69EAA-8160-4353-BA7A-ECEFCE54B05C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -653,7 +659,7 @@ type
{ IContactosCategorias }
IContactosCategorias = interface(IDAStronglyTypedDataTable)
- ['{050F8EDE-5439-425F-9A11-5053D25BC1B5}']
+ ['{92E972FB-8626-4073-A050-69B797133E5A}']
{ Property getters and setters }
function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer);
@@ -688,7 +694,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
- ['{BC299125-C6CC-4AF6-8FAA-1F77ABFF8795}']
+ ['{C3EA6037-3BC0-4BFD-B9AE-C156E84C1787}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -740,8 +746,6 @@ type
procedure SetGRUPO_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
- function GetVENCIMIENTO_FACTURASValue: Integer;
- procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer);
function GetMOTIVO_BLOQUEOValue: String;
@@ -760,8 +764,12 @@ type
procedure SetAGENTEValue(const aValue: String);
function GetRAPELValue: Integer;
procedure SetRAPELValue(const aValue: Integer);
- function GetEMAIL_ADMINISTRACIONValue: String;
- procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
+ function GetVENCIMIENTO_FACTURAS_1Value: Integer;
+ procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
+ function GetVENCIMIENTO_FACTURAS_2Value: Integer;
+ procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
+ function GetVENCIMIENTO_FACTURAS_3Value: Integer;
+ procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
{ Properties }
@@ -790,7 +798,6 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
- property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
@@ -800,7 +807,9 @@ type
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property RAPEL: Integer read GetRAPELValue write SetRAPELValue;
- property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+ property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+ property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+ property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
end;
{ TClientesDataTableRules }
@@ -858,8 +867,6 @@ type
procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
- function GetVENCIMIENTO_FACTURASValue: Integer; virtual;
- procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual;
function GetBLOQUEADOValue: Integer; virtual;
procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
function GetMOTIVO_BLOQUEOValue: String; virtual;
@@ -878,8 +885,12 @@ type
procedure SetAGENTEValue(const aValue: String); virtual;
function GetRAPELValue: Integer; virtual;
procedure SetRAPELValue(const aValue: Integer); virtual;
- function GetEMAIL_ADMINISTRACIONValue: String; virtual;
- procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual;
+ function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
+ function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
+ function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -907,7 +918,6 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
- property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
@@ -917,7 +927,9 @@ type
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property RAPEL: Integer read GetRAPELValue write SetRAPELValue;
- property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+ property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+ property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+ property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -927,7 +939,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
- ['{D032B1BB-4428-4D4B-ADFF-18C40DFF04E5}']
+ ['{C034988C-D63B-457A-B32E-E743146F08DB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -983,8 +995,12 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer);
- function GetEMAIL_ADMINISTRACIONValue: String;
- procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
+ function GetVENCIMIENTO_FACTURAS_1Value: Integer;
+ procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
+ function GetVENCIMIENTO_FACTURAS_2Value: Integer;
+ procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
+ function GetVENCIMIENTO_FACTURAS_3Value: Integer;
+ procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
{ Properties }
@@ -1015,7 +1031,9 @@ type
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
- property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+ property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+ property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+ property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
end;
{ TProveedoresDataTableRules }
@@ -1077,8 +1095,12 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
- function GetEMAIL_ADMINISTRACIONValue: String; virtual;
- procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual;
+ function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
+ function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
+ function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -1108,7 +1130,9 @@ type
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
- property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+ property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+ property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+ property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1118,7 +1142,7 @@ type
{ IAgentes }
IAgentes = interface(IDAStronglyTypedDataTable)
- ['{4BD59D5A-FDD8-492D-BC9F-AD0BE9BF5C59}']
+ ['{BC9DA06E-4E11-4979-BDB5-0FAC4CAA6B7E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1273,7 +1297,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
- ['{502FC7D0-9317-4FFF-8BA9-BA9EF2175658}']
+ ['{89E15C52-8F60-4A01-8EB8-6294C2E164DD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1380,7 +1404,7 @@ type
{ IAgentesComisiones }
IAgentesComisiones = interface(IDAStronglyTypedDataTable)
- ['{B5F34E66-A3FD-4F36-8AAA-095427E63248}']
+ ['{136F43A5-4CF6-48DE-B1AA-693EDF264E9B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1433,7 +1457,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
- ['{A5D040AA-3D38-4284-AF0F-171AE311BC17}']
+ ['{CE684A1B-CC93-405F-97C0-B3F4ECD334C9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2151,16 +2175,6 @@ begin
DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString := aValue;
end;
-function TClientesDataTableRules.GetVENCIMIENTO_FACTURASValue: Integer;
-begin
- result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger;
-end;
-
-procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue;
-end;
-
function TClientesDataTableRules.GetBLOQUEADOValue: Integer;
begin
result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger;
@@ -2251,14 +2265,34 @@ begin
DataTable.Fields[idx_ClientesRAPEL].AsInteger := aValue;
end;
-function TClientesDataTableRules.GetEMAIL_ADMINISTRACIONValue: String;
+function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
- result := DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString;
+ result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger;
end;
-procedure TClientesDataTableRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
+procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
- DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString := aValue;
+ DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger := aValue;
+end;
+
+function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: Integer;
+begin
+ result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger;
+end;
+
+procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger := aValue;
+end;
+
+function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_3Value: Integer;
+begin
+ result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger;
+end;
+
+procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger := aValue;
end;
@@ -2544,14 +2578,34 @@ begin
DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue;
end;
-function TProveedoresDataTableRules.GetEMAIL_ADMINISTRACIONValue: String;
+function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
- result := DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString;
+ result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger;
end;
-procedure TProveedoresDataTableRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
+procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
- DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString := aValue;
+ DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger := aValue;
+end;
+
+function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: Integer;
+begin
+ result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger;
+end;
+
+procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger := aValue;
+end;
+
+function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_3Value: Integer;
+begin
+ result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger;
+end;
+
+procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger := aValue;
end;
diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
index e6aea2d5..50687ef2 100644
--- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
@@ -9,22 +9,22 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ContactosDelta = '{A7B6097C-289E-4DA1-8A61-B3DC49200E30}';
- RID_GruposClienteDelta = '{DA9A3D00-E518-404D-AA5C-E4FD7A3D6E9E}';
- RID_ClienteEliminableDelta = '{2E8C71F3-A03B-4DEF-B2CC-AC7A21FCAC06}';
- RID_DatosBancariosDelta = '{EDE6858F-F636-4695-9986-EA35E3AF623D}';
- RID_ContactosCategoriasDelta = '{61DE38E4-28AD-4265-8987-B6C62DACCAFA}';
- RID_ClientesDelta = '{35EC6E73-DE47-4999-9510-71195EC6D430}';
- RID_ProveedoresDelta = '{9676090D-3DE0-4D67-A393-6FF60C8E5B49}';
- RID_AgentesDelta = '{7EDE4E87-585C-4CAB-B7F3-163BCE50061E}';
- RID_DireccionesContactoDelta = '{67F829A3-66F5-4D97-883C-8BBFD5706093}';
- RID_AgentesComisionesDelta = '{51F716E5-C971-4A54-B547-A01705D741CA}';
- RID_ClientesDescuentosDelta = '{1C199959-D746-4DAB-AC83-A573D14C9E15}';
+ RID_ContactosDelta = '{F528198A-E186-4B8B-83B5-093A113462F7}';
+ RID_GruposClienteDelta = '{16194EFB-DA2C-42F0-94E1-13B1BAACD991}';
+ RID_ClienteEliminableDelta = '{4BE1D5F1-FED2-4751-AFAB-7B3043CB080F}';
+ RID_DatosBancariosDelta = '{6C264A76-A458-406D-AFDB-463396B820A9}';
+ RID_ContactosCategoriasDelta = '{47ECC055-1F3D-4942-81A0-B246F1DC0659}';
+ RID_ClientesDelta = '{35B1C3C2-B3CE-46F9-835D-93BB056016E4}';
+ RID_ProveedoresDelta = '{50F87776-2945-444B-813D-B18F9BE0BA10}';
+ RID_AgentesDelta = '{8FF32389-A14E-4B03-B471-B8D22D2A628C}';
+ RID_DireccionesContactoDelta = '{F0A4B0AF-0147-4D9A-AF6C-7F9043820F48}';
+ RID_AgentesComisionesDelta = '{65D0C176-5486-4D88-AC21-EA57985AF334}';
+ RID_ClientesDescuentosDelta = '{B4F1CA58-1E66-4A19-8AB3-EACB27C19DEE}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
- ['{A7B6097C-289E-4DA1-8A61-B3DC49200E30}']
+ ['{F528198A-E186-4B8B-83B5-093A113462F7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -200,7 +200,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
- ['{DA9A3D00-E518-404D-AA5C-E4FD7A3D6E9E}']
+ ['{16194EFB-DA2C-42F0-94E1-13B1BAACD991}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@@ -229,7 +229,7 @@ type
{ IClienteEliminableDelta }
IClienteEliminableDelta = interface(IClienteEliminable)
- ['{2E8C71F3-A03B-4DEF-B2CC-AC7A21FCAC06}']
+ ['{4BE1D5F1-FED2-4751-AFAB-7B3043CB080F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNOMBREValue : String;
@@ -265,7 +265,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
- ['{EDE6858F-F636-4695-9986-EA35E3AF623D}']
+ ['{6C264A76-A458-406D-AFDB-463396B820A9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@@ -336,7 +336,7 @@ type
{ IContactosCategoriasDelta }
IContactosCategoriasDelta = interface(IContactosCategorias)
- ['{61DE38E4-28AD-4265-8987-B6C62DACCAFA}']
+ ['{47ECC055-1F3D-4942-81A0-B246F1DC0659}']
{ Property getters and setters }
function GetOldID_CONTACTOValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -372,7 +372,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
- ['{35EC6E73-DE47-4999-9510-71195EC6D430}']
+ ['{35B1C3C2-B3CE-46F9-835D-93BB056016E4}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -399,7 +399,6 @@ type
function GetOldID_AGENTEValue : Integer;
function GetOldGRUPO_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIALValue : String;
- function GetOldVENCIMIENTO_FACTURASValue : Integer;
function GetOldBLOQUEADOValue : Integer;
function GetOldMOTIVO_BLOQUEOValue : String;
function GetOldRECARGO_EQUIVALENCIAValue : Integer;
@@ -409,7 +408,9 @@ type
function GetOldTIENDA_WEBValue : Integer;
function GetOldAGENTEValue : String;
function GetOldRAPELValue : Integer;
- function GetOldEMAIL_ADMINISTRACIONValue : String;
+ function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
+ function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
+ function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -437,7 +438,6 @@ type
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
- property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
@@ -447,7 +447,9 @@ type
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
property OldAGENTE : String read GetOldAGENTEValue;
property OldRAPEL : Integer read GetOldRAPELValue;
- property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
+ property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
+ property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
+ property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
end;
{ TClientesBusinessProcessorRules }
@@ -530,9 +532,6 @@ type
function GetNOMBRE_COMERCIALValue: String; virtual;
function GetOldNOMBRE_COMERCIALValue: String; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
- function GetVENCIMIENTO_FACTURASValue: Integer; virtual;
- function GetOldVENCIMIENTO_FACTURASValue: Integer; virtual;
- procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual;
function GetBLOQUEADOValue: Integer; virtual;
function GetOldBLOQUEADOValue: Integer; virtual;
procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
@@ -560,9 +559,15 @@ type
function GetRAPELValue: Integer; virtual;
function GetOldRAPELValue: Integer; virtual;
procedure SetRAPELValue(const aValue: Integer); virtual;
- function GetEMAIL_ADMINISTRACIONValue: String; virtual;
- function GetOldEMAIL_ADMINISTRACIONValue: String; virtual;
- procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual;
+ function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
+ function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
+ function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
+ function GetOldVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
+ function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
+ function GetOldVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -615,8 +620,6 @@ type
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
- property VENCIMIENTO_FACTURAS : Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
- property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
property BLOQUEADO : Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
@@ -635,8 +638,12 @@ type
property OldAGENTE : String read GetOldAGENTEValue;
property RAPEL : Integer read GetRAPELValue write SetRAPELValue;
property OldRAPEL : Integer read GetOldRAPELValue;
- property EMAIL_ADMINISTRACION : String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
- property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
+ property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+ property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
+ property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+ property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
+ property VENCIMIENTO_FACTURAS_3 : Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
+ property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -646,7 +653,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
- ['{9676090D-3DE0-4D67-A393-6FF60C8E5B49}']
+ ['{50F87776-2945-444B-813D-B18F9BE0BA10}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -675,7 +682,9 @@ type
function GetOldID_TIPO_IVAValue : Integer;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : Integer;
- function GetOldEMAIL_ADMINISTRACIONValue : String;
+ function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
+ function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
+ function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -705,7 +714,9 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
- property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
+ property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
+ property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
+ property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
end;
{ TProveedoresBusinessProcessorRules }
@@ -794,9 +805,15 @@ type
function GetTIENDA_WEBValue: Integer; virtual;
function GetOldTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
- function GetEMAIL_ADMINISTRACIONValue: String; virtual;
- function GetOldEMAIL_ADMINISTRACIONValue: String; virtual;
- procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual;
+ function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
+ function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
+ function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
+ function GetOldVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
+ function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
+ function GetOldVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
+ procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -853,8 +870,12 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
- property EMAIL_ADMINISTRACION : String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
- property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
+ property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+ property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
+ property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+ property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
+ property VENCIMIENTO_FACTURAS_3 : Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
+ property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -864,7 +885,7 @@ type
{ IAgentesDelta }
IAgentesDelta = interface(IAgentes)
- ['{7EDE4E87-585C-4CAB-B7F3-163BCE50061E}']
+ ['{8FF32389-A14E-4B03-B471-B8D22D2A628C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -1040,7 +1061,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
- ['{67F829A3-66F5-4D97-883C-8BBFD5706093}']
+ ['{F0A4B0AF-0147-4D9A-AF6C-7F9043820F48}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@@ -1160,7 +1181,7 @@ type
{ IAgentesComisionesDelta }
IAgentesComisionesDelta = interface(IAgentesComisiones)
- ['{51F716E5-C971-4A54-B547-A01705D741CA}']
+ ['{65D0C176-5486-4D88-AC21-EA57985AF334}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer;
@@ -1217,7 +1238,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
- ['{1C199959-D746-4DAB-AC83-A573D14C9E15}']
+ ['{B4F1CA58-1E66-4A19-8AB3-EACB27C19DEE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@@ -2237,21 +2258,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := aValue;
end;
-function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
-end;
-
-function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
-end;
-
-procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := aValue;
-end;
-
function TClientesBusinessProcessorRules.GetBLOQUEADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO];
@@ -2387,19 +2393,49 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRAPEL] := aValue;
end;
-function TClientesBusinessProcessorRules.GetEMAIL_ADMINISTRACIONValue: String;
+function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
end;
-function TClientesBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONValue: String;
+function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: Integer;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_ADMINISTRACION];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
end;
-procedure TClientesBusinessProcessorRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
+procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := aValue;
+end;
+
+function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
+end;
+
+function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
+end;
+
+procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := aValue;
+end;
+
+function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
+end;
+
+function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
+end;
+
+procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := aValue;
end;
@@ -2821,19 +2857,49 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue;
end;
-function TProveedoresBusinessProcessorRules.GetEMAIL_ADMINISTRACIONValue: String;
+function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
end;
-function TProveedoresBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONValue: String;
+function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: Integer;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
end;
-procedure TProveedoresBusinessProcessorRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
+procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := aValue;
+end;
+
+function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := aValue;
+end;
+
+function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := aValue;
end;
diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas
index be6d64be..f8c788e5 100644
--- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas
@@ -67,7 +67,6 @@ begin
ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
- ParamByName('VENCIMIENTO_FACTURAS').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
@@ -76,7 +75,10 @@ begin
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('RAPEL').Value := aChange.NewValueByName[fld_ClientesRAPEL];
- ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
+ ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
+ ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
+ ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
+
Execute;
end;
finally
@@ -92,7 +94,7 @@ var
ACommand : IDASQLCommand;
begin
inherited;
-
+
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
@@ -105,7 +107,6 @@ begin
ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
- ParamByName('VENCIMIENTO_FACTURAS').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
@@ -113,8 +114,11 @@ begin
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
- ParamByName('RAPEL').Value := aChange.NewValueByName[fld_ClientesRAPEL];
- ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
+ ParamByName('RAPEL').Value := aChange.NewValueByName[fld_ClientesRAPEL];
+ ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
+ ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
+ ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
+
Execute;
end;
finally
diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas
index b61a1adf..345a1306 100644
--- a/Source/Modulos/Contactos/Model/uBizContactos.pas
+++ b/Source/Modulos/Contactos/Model/uBizContactos.pas
@@ -20,7 +20,7 @@ const
PROVEEDOR_REGIMEN_IVA = 'General';
CLIENTE_REGIMEN_IVA = 'General';
- CLIENTE_DIAS_VENCIMIENTO = 0;
+ CLIENTE_DIAS_VENCIMIENTO = 5;
CLIENTE_RECARGO_EQUIVALENCIA = 0;
type
@@ -58,8 +58,14 @@ type
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
- function GetVENCIMIENTO_FACTURASValue: Integer;
- procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
+ function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
+
+ function GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
+
+ function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer);
@@ -69,7 +75,7 @@ type
function GetMOTIVO_BLOQUEOValue: String;
procedure SetMOTIVO_BLOQUEOValue(const aValue: String);
-
+
function GetRECARGO_EQUIVALENCIAValue: Integer;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
@@ -89,23 +95,21 @@ type
procedure SetDescuentos(Value: IBizClienteDescuentos);
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
- function GetEMAIL_ADMINISTRACIONValue: String;
- procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
-
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
- property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
+ property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+ property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+ property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
- property RAPEL: Integer read GetRAPELValue write SetRAPELValue;
+ property RAPEL: Integer read GetRAPELValue write SetRAPELValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
- property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
end;
IBizProveedor = interface (IBizContacto)
@@ -125,15 +129,23 @@ type
function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer);
- function GetEMAIL_ADMINISTRACIONValue: String;
- procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
-
+ function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
+
+ function GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
+
+ function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
+
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
- property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+ 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;
IBizAgente = interface (IBizContacto)
@@ -203,8 +215,14 @@ type
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
- function GetVENCIMIENTO_FACTURASValue: Integer;
- procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
+ function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
+
+ function GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
+
+ function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer);
@@ -232,9 +250,6 @@ type
function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos);
-
- function GetEMAIL_ADMINISTRACIONValue: String;
- procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
public
procedure IniciarValoresContactoNuevo; override;
constructor Create(aDataTable: TDADataTable); override;
@@ -243,19 +258,20 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
- property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
+ property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+ property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+ property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
- property RAPEL: Integer read GetRAPELValue write SetRAPELValue;
+ property RAPEL: Integer read GetRAPELValue write SetRAPELValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
- property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
end;
-
+
TBizProveedor = class(TBizContacto, IBizProveedor)
protected
function GetDESCUENTOValue: Float;
@@ -269,12 +285,19 @@ type
function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer);
-
+
function GetID_FORMA_PAGOValue: Integer;
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
- function GetEMAIL_ADMINISTRACIONValue: String;
- procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
+ function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
+
+ function GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
+
+ function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
+ procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
+
public
procedure IniciarValoresContactoNuevo; override;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@@ -282,7 +305,9 @@ type
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
- property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+ 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;
@@ -429,11 +454,6 @@ begin
Result := FDescuentos;
end;
-function TBizCliente.GetEMAIL_ADMINISTRACIONValue: String;
-begin
- result := DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString;
-end;
-
function TBizCliente.GetGRUPO_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;
@@ -480,11 +500,6 @@ begin
EnlazarMaestroDetalle(FDescuentosLink, FDescuentos);
end;
-procedure TBizCliente.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
-begin
- DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString := aValue;
-end;
-
procedure TBizCliente.SetGRUPO_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue;
@@ -530,9 +545,19 @@ begin
result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
end;
-function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer;
+function TBizCliente.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
begin
- result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger;
+ result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger;
+end;
+
+function TBizCliente.GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
+begin
+ result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger;
+end;
+
+function TBizCliente.GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
+begin
+ result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger;
end;
procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
@@ -550,16 +575,26 @@ begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;
end;
-procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
+procedure TBizCliente.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
begin
- DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue;
+ DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger := aValue;
+end;
+
+procedure TBizCliente.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger := aValue;
+end;
+
+procedure TBizCliente.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger := aValue;
end;
procedure TBizCliente.IniciarValoresContactoNuevo;
begin
inherited;
ID_CATEGORIA := CATEGORIA_CLIENTE;
- VENCIMIENTO_FACTURAS := CLIENTE_DIAS_VENCIMIENTO;
+ VENCIMIENTO_FACTURAS_1 := CLIENTE_DIAS_VENCIMIENTO;
BLOQUEADO := 0;
RAPEL := 0;
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
@@ -568,11 +603,6 @@ end;
{ TBizProveedor }
-function TBizProveedor.GetEMAIL_ADMINISTRACIONValue: String;
-begin
- result := DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString;
-end;
-
function TBizProveedor.GetID_FORMA_PAGOValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger;
@@ -593,6 +623,21 @@ begin
result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger;
end;
+function TBizProveedor.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
+begin
+ result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger;
+end;
+
+function TBizProveedor.GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
+begin
+ result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger;
+end;
+
+function TBizProveedor.GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
+begin
+ result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger;
+end;
+
procedure TBizProveedor.IniciarValoresContactoNuevo;
begin
inherited;
@@ -610,11 +655,6 @@ begin
DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat := aValue;
end;
-procedure TBizProveedor.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
-begin
- DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString := aValue;
-end;
-
procedure TBizProveedor.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger := aValue;
@@ -635,6 +675,21 @@ begin
DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue;
end;
+procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger := aValue;
+end;
+
+procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger := aValue;
+end;
+
+procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger := aValue;
+end;
+
{ TBizAgente }
constructor TBizAgente.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
index 11e09a90..2b3ebfe1 100644
--- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
@@ -68,7 +68,11 @@ begin
ParamByName('REGIMEN_IVA').Value := aChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO];
- ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
+ ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
+ ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
+ ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
+ ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
+
Execute;
end;
finally
@@ -98,7 +102,11 @@ begin
ParamByName('REGIMEN_IVA').Value := aChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO];
- ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
+ ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
+ ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
+ ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
+ ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
+
Execute;
end;
finally
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
index 9eae968c..09e38dc8 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@@ -1,6 +1,7 @@
object srvContactos: TsrvContactos
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
+ RequiresSession = True
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schContactos
@@ -650,10 +651,11 @@ object srvContactos: TsrvContactos
', '#10' POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO' +
'_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, '#10' ' +
' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 +
- ' ID_AGENTE, GRUPO_CLIENTE, NOMBRE_COMERCIAL, VENCIMIENTO_FACT' +
- 'URAS, '#10' BLOQUEADO, MOTIVO_BLOQUEO, RECARGO_EQUIVALENCIA, REGI' +
- 'MEN_IVA, '#10' ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB, AGENTE, RA' +
- 'PEL, EMAIL_ADMINISTRACION'#10' FROM'#10' V_CLIENTES'
+ ' ID_AGENTE, GRUPO_CLIENTE, NOMBRE_COMERCIAL,'#10' BLOQUEADO, M' +
+ 'OTIVO_BLOQUEO, RECARGO_EQUIVALENCIA, REGIMEN_IVA, '#10' ID_TIPO_I' +
+ 'VA, ID_FORMA_PAGO, TIENDA_WEB, AGENTE, RAPEL,'#10' VENCIMIENTO_FA' +
+ 'CTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3'#10' FROM'#10 +
+ ' V_CLIENTES'
StatementType = stSQL
ColumnMappings = <
item
@@ -752,10 +754,6 @@ object srvContactos: TsrvContactos
DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL'
end
- item
- DatasetField = 'VENCIMIENTO_FACTURAS'
- TableField = 'VENCIMIENTO_FACTURAS'
- end
item
DatasetField = 'BLOQUEADO'
TableField = 'BLOQUEADO'
@@ -797,8 +795,16 @@ object srvContactos: TsrvContactos
TableField = 'RAPEL'
end
item
- DatasetField = 'EMAIL_ADMINISTRACION'
- TableField = 'EMAIL_ADMINISTRACION'
+ DatasetField = 'VENCIMIENTO_FACTURAS_1'
+ TableField = 'VENCIMIENTO_FACTURAS_1'
+ end
+ item
+ DatasetField = 'VENCIMIENTO_FACTURAS_2'
+ TableField = 'VENCIMIENTO_FACTURAS_2'
+ end
+ item
+ DatasetField = 'VENCIMIENTO_FACTURAS_3'
+ TableField = 'VENCIMIENTO_FACTURAS_3'
end>
end>
Name = 'Clientes'
@@ -1071,16 +1077,6 @@ object srvContactos: TsrvContactos
Lookup = False
LookupCache = False
end
- item
- Name = 'VENCIMIENTO_FACTURAS'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
item
Name = 'BLOQUEADO'
DataType = datInteger
@@ -1158,7 +1154,9 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
BlobType = dabtUnknown
- DictionaryEntry = 'Clientes_AGENTE'
+ DisplayWidth = 0
+ DisplayLabel = 'Agente'
+ Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
@@ -1168,18 +1166,42 @@ object srvContactos: TsrvContactos
Name = 'RAPEL'
DataType = datInteger
BlobType = dabtUnknown
- DictionaryEntry = 'Clientes_RAPEL'
+ DisplayWidth = 0
+ DisplayLabel = 'Rapel'
+ Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
- Name = 'EMAIL_ADMINISTRACION'
- DataType = datString
- Size = 255
+ Name = 'VENCIMIENTO_FACTURAS_1'
+ DataType = datInteger
BlobType = dabtUnknown
- DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_2'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_3'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
@@ -1200,7 +1222,8 @@ object srvContactos: TsrvContactos
'_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, '#10' ' +
' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 +
' REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_W' +
- 'EB,'#10' EMAIL_ADMINISTRACION'#10' FROM'#10' V_PROVEEDORES'
+ 'EB,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' +
+ 'NTO_FACTURAS_3'#10' FROM'#10' V_PROVEEDORES'
StatementType = stSQL
ColumnMappings = <
item
@@ -1312,8 +1335,16 @@ object srvContactos: TsrvContactos
TableField = 'TIENDA_WEB'
end
item
- DatasetField = 'EMAIL_ADMINISTRACION'
- TableField = 'EMAIL_ADMINISTRACION'
+ DatasetField = 'VENCIMIENTO_FACTURAS_1'
+ TableField = 'VENCIMIENTO_FACTURAS_1'
+ end
+ item
+ DatasetField = 'VENCIMIENTO_FACTURAS_2'
+ TableField = 'VENCIMIENTO_FACTURAS_2'
+ end
+ item
+ DatasetField = 'VENCIMIENTO_FACTURAS_3'
+ TableField = 'VENCIMIENTO_FACTURAS_3'
end>
end>
Name = 'Proveedores'
@@ -1599,18 +1630,41 @@ object srvContactos: TsrvContactos
Name = 'TIENDA_WEB'
DataType = datInteger
BlobType = dabtUnknown
- DictionaryEntry = 'Proveedores_TIENDA_WEB'
+ DisplayWidth = 0
+ Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
- Name = 'EMAIL_ADMINISTRACION'
- DataType = datString
- Size = 255
+ Name = 'VENCIMIENTO_FACTURAS_1'
+ DataType = datInteger
BlobType = dabtUnknown
- DictionaryEntry = 'Proveedores_EMAIL_ADMINISTRACION'
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_2'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_3'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
@@ -3176,13 +3230,6 @@ object srvContactos: TsrvContactos
Value = ''
ParamType = daptInput
end
- item
- Name = 'VENCIMIENTO_FACTURAS'
- DataType = datInteger
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
- end
item
Name = 'BLOQUEADO'
DataType = datInteger
@@ -3235,9 +3282,22 @@ object srvContactos: TsrvContactos
ParamType = daptInput
end
item
- Name = 'EMAIL_ADMINISTRACION'
- DataType = datString
- Size = 255
+ Name = 'VENCIMIENTO_FACTURAS_1'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_2'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_3'
+ DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
@@ -3248,14 +3308,14 @@ object srvContactos: TsrvContactos
TargetTable = 'CLIENTES_DATOS'
SQL =
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, ID_AGENTE, GRUPO_C' +
- 'LIENTE, RECARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, VENCIMIENTO' +
- '_FACTURAS, BLOQUEADO, MOTIVO_BLOQUEO,'#10' REGIMEN_IVA, ID_TIPO_' +
- 'IVA, ID_FORMA_PAGO, TIENDA_WEB, RAPEL,'#10' EMAIL_ADMINISTRACION' +
- ')'#10' VALUES'#10' (:ID_CLIENTE, :ID_AGENTE, :GRUPO_CLIENTE, :RECARG' +
- 'O_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL, :VENCIMIENTO_FACTURAS,'#10' ' +
- ' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA,'#10' :ID_TIPO_IVA' +
- ', :ID_FORMA_PAGO, :TIENDA_WEB, :RAPEL,'#10' :EMAIL_ADMINISTRACIO' +
- 'N)'
+ 'LIENTE, RECARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, BLOQUEADO, ' +
+ 'MOTIVO_BLOQUEO, REGIMEN_IVA, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TI' +
+ 'ENDA_WEB, RAPEL,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTUR' +
+ 'AS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_CLIENTE, :ID_AGE' +
+ 'NTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCI' +
+ 'AL, :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA,'#10' ' +
+ ' :ID_FORMA_PAGO, :TIENDA_WEB, :RAPEL,'#10' :VENCIMIENTO_FACTURA' +
+ 'S_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -3329,13 +3389,6 @@ object srvContactos: TsrvContactos
Value = ''
ParamType = daptInput
end
- item
- Name = 'VENCIMIENTO_FACTURAS'
- DataType = datInteger
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
- end
item
Name = 'BLOQUEADO'
DataType = datInteger
@@ -3380,9 +3433,22 @@ object srvContactos: TsrvContactos
ParamType = daptInput
end
item
- Name = 'EMAIL_ADMINISTRACION'
- DataType = datString
- Size = 255
+ Name = 'VENCIMIENTO_FACTURAS_1'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_2'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_3'
+ DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
@@ -3403,11 +3469,12 @@ object srvContactos: TsrvContactos
'ID_AGENTE = :ID_AGENTE,'#10' GRUPO_CLIENTE = :GRUPO_CLIENTE,'#10' ' +
'MOTIVO_BLOQUEO = :MOTIVO_BLOQUEO,'#10' RECARGO_EQUIVALENCIA = :RE' +
'CARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' ' +
- ' VENCIMIENTO_FACTURAS = :VENCIMIENTO_FACTURAS,'#10' BLOQUEADO = ' +
- ':BLOQUEADO,'#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID_TIPO_IVA = :I' +
- 'D_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB =' +
- ' :TIENDA_WEB,'#10' RAPEL = :RAPEL,'#10' EMAIL_ADMINISTRACION = :EM' +
- 'AIL_ADMINISTRACION'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'
+ ' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID' +
+ '_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
+ ' TIENDA_WEB = :TIENDA_WEB,'#10' RAPEL = :RAPEL,'#10' VENCIMIENTO_' +
+ 'FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2' +
+ ' = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIM' +
+ 'IENTO_FACTURAS_3'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -3459,9 +3526,22 @@ object srvContactos: TsrvContactos
ParamType = daptInput
end
item
- Name = 'EMAIL_ADMINISTRACION'
- DataType = datString
- Size = 255
+ Name = 'VENCIMIENTO_FACTURAS_1'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_2'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_3'
+ DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
@@ -3472,10 +3552,11 @@ object srvContactos: TsrvContactos
TargetTable = 'PROVEEDORES_DATOS'
SQL =
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
- 'DESCUENTO, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TIENDA_WEB, EMAIL_ADM' +
- 'INISTRACION)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUEN' +
- 'TO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :EMAIL_ADMINI' +
- 'STRACION)'
+ 'DESCUENTO, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TIENDA_WEB, VENCIMIEN' +
+ 'TO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_' +
+ '3)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :ID_TI' +
+ 'PO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :VENCIMIENTO_FACTURAS_1' +
+ ','#10' :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -3548,9 +3629,22 @@ object srvContactos: TsrvContactos
ParamType = daptInput
end
item
- Name = 'EMAIL_ADMINISTRACION'
- DataType = datString
- Size = 255
+ Name = 'VENCIMIENTO_FACTURAS_1'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_2'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'VENCIMIENTO_FACTURAS_3'
+ DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
@@ -3570,8 +3664,10 @@ object srvContactos: TsrvContactos
'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' +
', '#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' DESCUENTO = :DESCUENTO,'#10' ' +
' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAG' +
- 'O,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' EMAIL_ADMINISTRACION = :EMA' +
- 'IL_ADMINISTRACION'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'
+ 'O,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' VENCIMIENTO_FACTURAS_1 = :V' +
+ 'ENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO' +
+ '_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_' +
+ '3'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -4797,40 +4893,6 @@ object srvContactos: TsrvContactos
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
- end
- item
- Name = 'Clientes_RAPEL'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'Rapel'
- Alignment = taLeftJustify
- end
- item
- Name = 'Clientes_EMAIL_ADMINISTRACION'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'E-mail administrativo'
- Alignment = taLeftJustify
- end
- item
- Name = 'Proveedores_TIENDA_WEB'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'TIENDA_WEB'
- Alignment = taLeftJustify
- end
- item
- Name = 'Proveedores_EMAIL_ADMINISTRACION'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'E-mail administrativo'
- Alignment = taLeftJustify
end>
Left = 126
Top = 14
@@ -4840,10 +4902,10 @@ object srvContactos: TsrvContactos
Top = 82
DiagramData =
''#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10
+ 'idth="400" Height="300">'#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10
end
object bpContactos: TDABusinessProcessor
Schema = schContactos
diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
index d68b3d84..06736434 100644
--- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
+++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
@@ -13,8 +13,8 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Align = alTop
ParentBackground = True
TabOrder = 0
+ TabStop = False
AutoContentSizes = [acsWidth]
- ExplicitWidth = 642
object Label1: TLabel
Left = 353
Top = 28
@@ -56,12 +56,11 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
TabOrder = 6
Width = 197
end
- object eDiasVencimiento: TcxDBSpinEdit
- Left = 420
+ object eDiasVencimiento1: TcxDBSpinEdit
+ Left = 424
Top = 60
- DataBinding.DataField = 'VENCIMIENTO_FACTURAS'
+ DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
DataBinding.DataSource = dsDatosComerciales
- Properties.AssignedValues.MinValue = True
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@@ -205,6 +204,48 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
TabOrder = 4
OnClick = bTiposIVAClick
end
+ object eDiasVencimiento2: TcxDBSpinEdit
+ Left = 424
+ Top = 87
+ DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2'
+ DataBinding.DataSource = dsDatosComerciales
+ Properties.ImmediatePost = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ Style.ButtonStyle = bts3D
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 8
+ Width = 79
+ end
+ object eDiasVencimiento3: TcxDBSpinEdit
+ Left = 424
+ Top = 114
+ DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3'
+ DataBinding.DataSource = dsDatosComerciales
+ Properties.ImmediatePost = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ Style.ButtonStyle = bts3D
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 9
+ Width = 79
+ end
object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -305,8 +346,20 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
- Caption = 'D'#237'as de vto.:'
- Control = eDiasVencimiento
+ Caption = 'D'#237'a de vto. 1:'
+ Control = eDiasVencimiento1
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item10: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ Caption = 'D'#237'a de vto. 2:'
+ Control = eDiasVencimiento2
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item11: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ Caption = 'D'#237'a de vto. 3:'
+ Control = eDiasVencimiento3
ControlOptions.ShowBorder = False
end
end
diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas
index 551b4009..c46854a4 100644
--- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas
+++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas
@@ -26,7 +26,7 @@ type
eAgente: TcxDBLookupComboBox;
dsAgentes: TDADataSource;
dxLayoutControl1Item2: TdxLayoutItem;
- eDiasVencimiento: TcxDBSpinEdit;
+ eDiasVencimiento1: TcxDBSpinEdit;
dxLayoutControl1Item3: TdxLayoutItem;
cbRegimenIVA: TcxDBComboBox;
dsDatosComerciales: TDADataSource;
@@ -49,6 +49,10 @@ type
dsTiposIVA: TDADataSource;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup;
+ dxLayoutControl1Item10: TdxLayoutItem;
+ eDiasVencimiento2: TcxDBSpinEdit;
+ dxLayoutControl1Item11: TdxLayoutItem;
+ eDiasVencimiento3: TcxDBSpinEdit;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 0c4d862c..67b1377b 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
@@ -1218,6 +1218,9 @@ var
ARecibos: IBizRecibosCliente;
AFechaVencimiento: TDateTime;
i: Integer;
+ ADiaVencimiento: Integer;
+ ADiasMas: Integer;
+
begin
if not Assigned(AFactura) then
Exit;
@@ -1248,26 +1251,29 @@ begin
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
+ ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
- if (AFactura.Cliente.VENCIMIENTO_FACTURAS <> 0) then
+ ADiasMas := 0;
+ if (AFactura.Cliente.VENCIMIENTO_FACTURAS_1 <> 0)
+ or (AFactura.Cliente.VENCIMIENTO_FACTURAS_2 <> 0)
+ or (AFactura.Cliente.VENCIMIENTO_FACTURAS_3 <> 0) then
begin
- if DayOf(AFechaVencimiento) > AFactura.Cliente.VENCIMIENTO_FACTURAS then
- begin
- AFechaVencimiento := IncDay(AFechaVencimiento, (DaysInMonth(AFechaVencimiento) - DayOf(AFechaVencimiento)));
- AFechaVencimiento := IncDay(AFechaVencimiento, AFactura.Cliente.VENCIMIENTO_FACTURAS);
- end
- else
- AFechaVencimiento := IncDay(AFechaVencimiento, (AFactura.Cliente.VENCIMIENTO_FACTURAS - DayOf(AFechaVencimiento)));
+ ADiaVencimiento := DayOf(AFechaVencimiento);
+ while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1)
+ and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2)
+ and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do
+ begin
+ if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
+ ADiaVencimiento := 1
+ else
+ Inc(ADiaVencimiento);
+ Inc(ADiasMas);
+ end;
end;
-
- //Comprobamos que la fecha de vencimiento no sea febrero si es asi hay que tratarlo
- if (AFactura.Cliente.VENCIMIENTO_FACTURAS > 28)
- and (MonthOf(AFechaVencimiento) = 3) and (DayOf(AFechaVencimiento) < 3) then
- AFechaVencimiento := IncDay(AFechaVencimiento, - DayOf(AFechaVencimiento));
-
+ AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
-
+
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
ARecibosClienteController.Guardar(ARecibos);
Inc(i);
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
index 21479581..7bce291d 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
@@ -280,8 +280,8 @@ begin
begin
ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
//Preguntamos is desea hacer una orden de devolución asociada
- if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
- GenerarAlbaranCli(FFactura);
+// if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
+// GenerarAlbaranCli(FFactura);
end;
end;
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index 29782759..447680e4 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
@@ -1058,7 +1058,11 @@ var
AFormaPago: IBizFormaPago;
ARecibosProveedorController: IRecibosProveedorController;
ARecibos: IBizRecibosProveedor;
+ AFechaVencimiento: TDateTime;
i: Integer;
+ ADiaVencimiento: Integer;
+ ADiasMas: Integer;
+
begin
if not Assigned(AFactura) then
@@ -1090,7 +1094,28 @@ begin
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
- ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
+
+ AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
+ ADiasMas := 0;
+ 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);
+ while (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_1)
+ and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_2)
+ and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_3) do
+ begin
+ if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
+ ADiaVencimiento := 1
+ else
+ Inc(ADiaVencimiento);
+ Inc(ADiasMas);
+ end;
+ end;
+ AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
+ ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
+
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
ARecibosProveedorController.Guardar(ARecibos);
Inc(i);
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
index 40829a05..8f959be8 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
@@ -172,10 +172,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0
Top = 0
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
index 90140333..af758048 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
@@ -255,8 +255,8 @@ begin
begin
ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
//Preguntamos is desea hacer una orden de devolución asociada
- if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
- GenerarAlbaranProv(FFactura);
+// if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
+// GenerarAlbaranProv(FFactura);
end;
end;
Modified := False;
diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj
index ec6a95fd..bed582e9 100644
--- a/Source/Servidor/FactuGES_Server.bdsproj
+++ b/Source/Servidor/FactuGES_Server.bdsproj
@@ -1,4 +1,4 @@
-
+