Se adaptan las fichas de cliente y proveedor para que se puedan establecer 3 dias de pago en clientes y proveedores para la generacion automática de los recibos
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@290 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
parent
bcf82f8833
commit
c25908891b
Binary file not shown.
@ -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"
|
||||
|
||||
Binary file not shown.
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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;
|
||||
|
||||
|
||||
|
||||
@ -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;
|
||||
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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);
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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 =
|
||||
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="DatosBancarios" Left' +
|
||||
'="479,77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" ' +
|
||||
'Left="0,00" Top="26,50" />'#13#10' <Entity Name="Contactos" Left="2' +
|
||||
'23,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="ContactosCategorias"' +
|
||||
' Left="0,00" Top="26,50" />'#13#10' <Entity Name="Contactos" Left="' +
|
||||
'223,77" Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="4' +
|
||||
'79,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object bpContactos: TDABusinessProcessor
|
||||
Schema = schContactos
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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);
|
||||
|
||||
@ -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);
|
||||
|
||||
@ -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;
|
||||
|
||||
|
||||
@ -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);
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
@ -154,7 +154,7 @@
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">8</VersionInfo>
|
||||
<VersionInfo Name="Release">7</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
@ -167,18 +167,19 @@
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.8.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.7.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.8.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.7.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompileDate">lunes, 22 de septiembre de 2008 15:20</VersionInfoKeys></VersionInfoKeys> <Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<VersionInfoKeys Name="CompileDate">lunes, 22 de septiembre de 2008 14:11</VersionInfoKeys></VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<ModelSupport>False</ModelSupport>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -120,10 +120,6 @@ uses
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
||||
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
|
||||
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||||
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
||||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
||||
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
|
||||
@ -134,9 +130,12 @@ uses
|
||||
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
|
||||
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||||
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
srvRegistroCorreos_Impl in '..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas';
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -912,12 +912,12 @@
|
||||
#define IdResourceStrings_RSMIMEMIMETypeEmpty 65181
|
||||
#define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65182
|
||||
#define IdResourceStrings_RSStatusResolving 65183
|
||||
#define uRORes_err_InvalidVarArrayDimCount 65184
|
||||
#define uRORes_err_MessageNotAssigned 65185
|
||||
#define ComConst_SOleError 65186
|
||||
#define ComConst_SNoMethod 65187
|
||||
#define ComConst_SVarNotObject 65188
|
||||
#define ComConst_STooManyParams 65189
|
||||
#define uRODECConst_sFMT_HEXL 65184
|
||||
#define uRODECConst_sFMT_MIME64 65185
|
||||
#define uRODECConst_sFMT_UU 65186
|
||||
#define uRODECConst_sFMT_XX 65187
|
||||
#define uRODECConst_sInvalidKeySize 65188
|
||||
#define uRODECConst_sNotInitialized 65189
|
||||
#define IdResourceStrings_RSCannotAllocateSocket 65190
|
||||
#define IdResourceStrings_RSConnectionClosedGracefully 65191
|
||||
#define IdResourceStrings_RSCouldNotBindSocket 65192
|
||||
@ -928,70 +928,70 @@
|
||||
#define IdResourceStrings_RSThreadClassNotSpecified 65197
|
||||
#define IdResourceStrings_RSFileNotFound 65198
|
||||
#define IdResourceStrings_RSOnlyOneAntiFreeze 65199
|
||||
#define uRORes_err_UnhandledException 65200
|
||||
#define uRORes_err_ChannelBusy 65201
|
||||
#define uRORes_err_ArrayIndexOutOfBounds 65202
|
||||
#define uRORes_err_InvalidHeader 65203
|
||||
#define uRORes_err_UnknownClassInStream 65204
|
||||
#define uRORes_err_UnexpectedClassInStream 65205
|
||||
#define uRORes_err_SessionNotFound 65206
|
||||
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65207
|
||||
#define uRORes_err_TooManySessions 65208
|
||||
#define uRORes_err_DOMElementIsNIL 65209
|
||||
#define uRORes_err_CannotLoadXMLDocument 65210
|
||||
#define uRORes_err_ErrorCreatingMsXmlDoc 65211
|
||||
#define uRORes_err_NoXMLParsersAvailable 65212
|
||||
#define uRORes_err_IDispatchMarshalingNotSupported 65213
|
||||
#define uRORes_err_UnsupportedVariantType 65214
|
||||
#define uRORes_err_VariantIsNotArray 65215
|
||||
#define uRORes_str_ExceptionReraisedFromServer 65216
|
||||
#define uRORes_err_AssignError 65217
|
||||
#define uRORes_err_InvalidRequestStream 65218
|
||||
#define uRORes_err_NILMessage 65219
|
||||
#define uRORes_err_UnspecifiedInterface 65220
|
||||
#define uRORes_err_UnspecifiedMessage 65221
|
||||
#define uRORes_err_UnknownMethod 65222
|
||||
#define uRORes_err_ClassFactoryDidNotReturnInstance 65223
|
||||
#define uRORes_err_TypeNotSupported 65224
|
||||
#define uRORes_err_ClassFactoryNotFound 65225
|
||||
#define uRORes_err_IROMessageNotSupported 65226
|
||||
#define uRORes_err_ClassAlreadyRegistered 65227
|
||||
#define uRORes_err_UnknownProxyInterface 65228
|
||||
#define uRORes_err_DispatcherAlreadyAssigned 65229
|
||||
#define uRORes_err_CannotFindMessageDispatcher 65230
|
||||
#define uRORes_err_ServerOnlySupportsOneDispatcher 65231
|
||||
#define uRORes_err_InvalidType 65232
|
||||
#define uRORes_err_InvalidStream 65233
|
||||
#define uRORes_err_InvalidParamFlag 65234
|
||||
#define uRORes_err_InvalidStringLength 65235
|
||||
#define uRORes_str_InvalidClassTypeInStream 65236
|
||||
#define uRORes_err_UnexpectedEndOfStream 65237
|
||||
#define uRORes_err_RodlDuplicateName 65238
|
||||
#define uRORes_err_RodlNoDataTypeSpecified 65239
|
||||
#define uRORes_err_RodlNoEnumValues 65240
|
||||
#define uRORes_err_RodlNoStructElementsDefined 65241
|
||||
#define uRORes_err_RodlNoOperationsDefined 65242
|
||||
#define uRORes_err_RodlUsedFileDoesNotExist 65243
|
||||
#define uRORes_err_RodlInvalidDataType 65244
|
||||
#define uRORes_err_RodlStructCannotBeNested 65245
|
||||
#define uRORes_err_RodlInvalidAncestorType 65246
|
||||
#define uRORes_str_ExceptionOnServer 65247
|
||||
#define uRORes_err_NoXMLParsersAvailable 65200
|
||||
#define uRORes_err_IDispatchMarshalingNotSupported 65201
|
||||
#define uRORes_err_UnsupportedVariantType 65202
|
||||
#define uRORes_err_VariantIsNotArray 65203
|
||||
#define uRORes_err_InvalidVarArrayDimCount 65204
|
||||
#define uRORes_err_MessageNotAssigned 65205
|
||||
#define ComConst_SOleError 65206
|
||||
#define ComConst_SNoMethod 65207
|
||||
#define ComConst_SVarNotObject 65208
|
||||
#define ComConst_STooManyParams 65209
|
||||
#define uRODECConst_sProtectionCircular 65210
|
||||
#define uRODECConst_sStringFormatExists 65211
|
||||
#define uRODECConst_sInvalidStringFormat 65212
|
||||
#define uRODECConst_sInvalidFormatString 65213
|
||||
#define uRODECConst_sFMT_COPY 65214
|
||||
#define uRODECConst_sFMT_HEX 65215
|
||||
#define uRORes_err_UnknownProxyInterface 65216
|
||||
#define uRORes_err_DispatcherAlreadyAssigned 65217
|
||||
#define uRORes_err_CannotFindMessageDispatcher 65218
|
||||
#define uRORes_err_ServerOnlySupportsOneDispatcher 65219
|
||||
#define uRORes_err_UnhandledException 65220
|
||||
#define uRORes_err_ChannelBusy 65221
|
||||
#define uRORes_err_ArrayIndexOutOfBounds 65222
|
||||
#define uRORes_err_InvalidHeader 65223
|
||||
#define uRORes_err_UnknownClassInStream 65224
|
||||
#define uRORes_err_UnexpectedClassInStream 65225
|
||||
#define uRORes_err_SessionNotFound 65226
|
||||
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65227
|
||||
#define uRORes_err_TooManySessions 65228
|
||||
#define uRORes_err_DOMElementIsNIL 65229
|
||||
#define uRORes_err_CannotLoadXMLDocument 65230
|
||||
#define uRORes_err_ErrorCreatingMsXmlDoc 65231
|
||||
#define uRORes_err_RodlInvalidDataType 65232
|
||||
#define uRORes_err_RodlStructCannotBeNested 65233
|
||||
#define uRORes_err_RodlInvalidAncestorType 65234
|
||||
#define uRORes_str_ExceptionOnServer 65235
|
||||
#define uRORes_str_ExceptionReraisedFromServer 65236
|
||||
#define uRORes_err_AssignError 65237
|
||||
#define uRORes_err_InvalidRequestStream 65238
|
||||
#define uRORes_err_NILMessage 65239
|
||||
#define uRORes_err_UnspecifiedInterface 65240
|
||||
#define uRORes_err_UnspecifiedMessage 65241
|
||||
#define uRORes_err_UnknownMethod 65242
|
||||
#define uRORes_err_ClassFactoryDidNotReturnInstance 65243
|
||||
#define uRORes_err_TypeNotSupported 65244
|
||||
#define uRORes_err_ClassFactoryNotFound 65245
|
||||
#define uRORes_err_IROMessageNotSupported 65246
|
||||
#define uRORes_err_ClassAlreadyRegistered 65247
|
||||
#define Consts_SUTF8Encoding 65248
|
||||
#define Consts_SUTF7Encoding 65249
|
||||
#define Consts_SPageControlNotSet 65250
|
||||
#define uRODECConst_sProtectionCircular 65251
|
||||
#define uRODECConst_sStringFormatExists 65252
|
||||
#define uRODECConst_sInvalidStringFormat 65253
|
||||
#define uRODECConst_sInvalidFormatString 65254
|
||||
#define uRODECConst_sFMT_COPY 65255
|
||||
#define uRODECConst_sFMT_HEX 65256
|
||||
#define uRODECConst_sFMT_HEXL 65257
|
||||
#define uRODECConst_sFMT_MIME64 65258
|
||||
#define uRODECConst_sFMT_UU 65259
|
||||
#define uRODECConst_sFMT_XX 65260
|
||||
#define uRODECConst_sInvalidKeySize 65261
|
||||
#define uRODECConst_sNotInitialized 65262
|
||||
#define uRORes_err_InvalidIndex 65263
|
||||
#define uRORes_err_InvalidIndex 65251
|
||||
#define uRORes_err_InvalidType 65252
|
||||
#define uRORes_err_InvalidStream 65253
|
||||
#define uRORes_err_InvalidParamFlag 65254
|
||||
#define uRORes_err_InvalidStringLength 65255
|
||||
#define uRORes_str_InvalidClassTypeInStream 65256
|
||||
#define uRORes_err_UnexpectedEndOfStream 65257
|
||||
#define uRORes_err_RodlDuplicateName 65258
|
||||
#define uRORes_err_RodlNoDataTypeSpecified 65259
|
||||
#define uRORes_err_RodlNoEnumValues 65260
|
||||
#define uRORes_err_RodlNoStructElementsDefined 65261
|
||||
#define uRORes_err_RodlNoOperationsDefined 65262
|
||||
#define uRORes_err_RodlUsedFileDoesNotExist 65263
|
||||
#define Consts_SPictureLabel 65264
|
||||
#define Consts_SPictureDesc 65265
|
||||
#define Consts_SPreviewLabel 65266
|
||||
@ -2170,12 +2170,12 @@ BEGIN
|
||||
IdResourceStrings_RSMIMEMIMETypeEmpty, "Mimetype is empty"
|
||||
IdResourceStrings_RSMIMEMIMEExtAlreadyExists, "Extension already exits"
|
||||
IdResourceStrings_RSStatusResolving, "Resolving hostname %s."
|
||||
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
|
||||
uRORes_err_MessageNotAssigned, "Message is NIL"
|
||||
ComConst_SOleError, "OLE error %.8x"
|
||||
ComConst_SNoMethod, "Method '%s' not supported by automation object"
|
||||
ComConst_SVarNotObject, "Variant does not reference an automation object"
|
||||
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
|
||||
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
|
||||
uRODECConst_sFMT_MIME64, "MIME Base 64"
|
||||
uRODECConst_sFMT_UU, "UU Coding"
|
||||
uRODECConst_sFMT_XX, "XX Coding"
|
||||
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
|
||||
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
|
||||
IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket."
|
||||
IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully."
|
||||
IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use."
|
||||
@ -2186,6 +2186,26 @@ BEGIN
|
||||
IdResourceStrings_RSThreadClassNotSpecified, "Thread Class Not Specified."
|
||||
IdResourceStrings_RSFileNotFound, "File \"%s\" not found"
|
||||
IdResourceStrings_RSOnlyOneAntiFreeze, "Only one TIdAntiFreeze can exist per application."
|
||||
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
|
||||
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
|
||||
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
|
||||
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
|
||||
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
|
||||
uRORes_err_MessageNotAssigned, "Message is NIL"
|
||||
ComConst_SOleError, "OLE error %.8x"
|
||||
ComConst_SNoMethod, "Method '%s' not supported by automation object"
|
||||
ComConst_SVarNotObject, "Variant does not reference an automation object"
|
||||
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
|
||||
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
|
||||
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
|
||||
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
|
||||
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
|
||||
uRODECConst_sFMT_COPY, "copy Input to Output"
|
||||
uRODECConst_sFMT_HEX, "Hexadecimal"
|
||||
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
|
||||
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
|
||||
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
|
||||
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
|
||||
uRORes_err_UnhandledException, "Unhandled exception"
|
||||
uRORes_err_ChannelBusy, "Channel is busy. Try again later."
|
||||
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
|
||||
@ -2198,10 +2218,10 @@ BEGIN
|
||||
uRORes_err_DOMElementIsNIL, "DOMElement is NIL"
|
||||
uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d"
|
||||
uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s"
|
||||
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
|
||||
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
|
||||
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
|
||||
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
|
||||
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
|
||||
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
|
||||
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
|
||||
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
|
||||
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
|
||||
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
|
||||
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)"
|
||||
@ -2214,10 +2234,10 @@ BEGIN
|
||||
uRORes_err_ClassFactoryNotFound, "Class factory for interface %s not found"
|
||||
uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage"
|
||||
uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered"
|
||||
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
|
||||
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
|
||||
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
|
||||
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
|
||||
Consts_SUTF8Encoding, "UTF-8"
|
||||
Consts_SUTF7Encoding, "UTF-7"
|
||||
Consts_SPageControlNotSet, "PageControl must first be assigned"
|
||||
uRORes_err_InvalidIndex, "Invalid index %d"
|
||||
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
|
||||
uRORes_err_InvalidStream, "Invalid stream"
|
||||
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
|
||||
@ -2230,26 +2250,6 @@ BEGIN
|
||||
uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements."
|
||||
uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements."
|
||||
uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found."
|
||||
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
|
||||
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
|
||||
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
|
||||
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
|
||||
Consts_SUTF8Encoding, "UTF-8"
|
||||
Consts_SUTF7Encoding, "UTF-7"
|
||||
Consts_SPageControlNotSet, "PageControl must first be assigned"
|
||||
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
|
||||
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
|
||||
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
|
||||
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
|
||||
uRODECConst_sFMT_COPY, "copy Input to Output"
|
||||
uRODECConst_sFMT_HEX, "Hexadecimal"
|
||||
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
|
||||
uRODECConst_sFMT_MIME64, "MIME Base 64"
|
||||
uRODECConst_sFMT_UU, "UU Coding"
|
||||
uRODECConst_sFMT_XX, "XX Coding"
|
||||
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
|
||||
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
|
||||
uRORes_err_InvalidIndex, "Invalid index %d"
|
||||
Consts_SPictureLabel, "Picture:"
|
||||
Consts_SPictureDesc, " (%dx%d)"
|
||||
Consts_SPreviewLabel, "Preview"
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.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,10 +13,10 @@ 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 "ProductName", "FactuGES Server\0"
|
||||
VALUE "ProductVersion", "3.0.6.0\0"
|
||||
VALUE "CompileDate", "lunes, 22 de septiembre de 2008 15:20\0"
|
||||
VALUE "ProductVersion", "3.0.7.0\0"
|
||||
VALUE "CompileDate", "jueves, 25 de septiembre de 2008 20:11\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user