Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@290 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-09-30 16:03:14 +00:00
parent bcf82f8833
commit c25908891b
23 changed files with 888 additions and 509 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,0,6,0 FILEVERSION 3,0,7,0
PRODUCTVERSION 3,0,6,0 PRODUCTVERSION 3,0,7,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" 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 "InternalName", "FactuGES\0"
VALUE "ProductVersion", "3.0.6.0\0" VALUE "ProductVersion", "3.0.7.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

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

@ -366,19 +366,6 @@ inherited DataModuleClientes: TDataModuleClientes
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end 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 item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
DataType = datInteger DataType = datInteger
@ -475,9 +462,8 @@ inherited DataModuleClientes: TDataModuleClientes
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Clientes_AGENTE' DisplayLabel = 'Agente'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'Clientes_AGENTE'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -490,21 +476,39 @@ inherited DataModuleClientes: TDataModuleClientes
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Rapel' DisplayLabel = 'Rapel'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'Clientes_RAPEL'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item item
Name = 'EMAIL_ADMINISTRACION' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datString DataType = datInteger
Size = 255 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 BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'E-mail administrativo'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False

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

@ -1,6 +1,30 @@
inherited DataModuleProveedores: TDataModuleProveedores inherited DataModuleProveedores: TDataModuleProveedores
Height = 412 inherited DADesigntimeCall1: TDADesigntimeCall
Width = 516 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 object tbl_Proveedores: TDACDSDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -360,21 +384,39 @@ inherited DataModuleProveedores: TDataModuleProveedores
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'Proveedores_TIENDA_WEB'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item item
Name = 'EMAIL_ADMINISTRACION' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datString DataType = datInteger
Size = 255 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 BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'E-mail administrativo'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'Proveedores_EMAIL_ADMINISTRACION'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -466,12 +508,12 @@ inherited DataModuleProveedores: TDataModuleProveedores
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Proveedores' LogicalName = 'Proveedores'
IndexDefs = <> IndexDefs = <>
Left = 288 Left = 296
Top = 160 Top = 184
end end
object ds_Proveedores: TDADataSource object ds_Proveedores: TDADataSource
DataTable = tbl_Proveedores DataTable = tbl_Proveedores
Left = 288 Left = 296
Top = 224 Top = 256
end end
end end

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

@ -9,17 +9,17 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{B7DC3FCE-26AF-4E39-8683-E8D9B1BF7590}'; RID_Contactos = '{21B686C9-1DFE-4CE5-A335-839D6C6D48FA}';
RID_GruposCliente = '{EF2E0CAE-A8B0-49A1-B8CF-B8C49D32AEFD}'; RID_GruposCliente = '{843533F1-3EE7-4E61-B160-1AB196652BAB}';
RID_ClienteEliminable = '{24F89D65-8CA6-43F7-83FE-89A982EA5B2B}'; RID_ClienteEliminable = '{FEDDADEF-BC51-4ABB-B5AE-5FD488AF69E8}';
RID_DatosBancarios = '{C36E8DE7-35F2-44CD-BB72-F87F1EFA8E6A}'; RID_DatosBancarios = '{108F4519-24AD-4476-BD7B-1F88ABABE6F5}';
RID_ContactosCategorias = '{C49DC4A7-3D9B-4AF8-88A7-A0E2E65DA885}'; RID_ContactosCategorias = '{79F45572-8D2E-4C9E-8BA7-9C2B321C40AC}';
RID_Clientes = '{3F54A7C9-EC37-440B-AE22-5C200C988E72}'; RID_Clientes = '{CEA6925A-922C-4831-A6A8-196B47147D2C}';
RID_Proveedores = '{04909F44-00A2-4046-BC0F-78DD9F66AADF}'; RID_Proveedores = '{E898ECF3-F083-4D39-8257-CB11A7EB60E9}';
RID_Agentes = '{1BC26A94-145F-4765-BC9C-483274E85F96}'; RID_Agentes = '{C2DA2C10-F9CA-4FDE-9441-7BBBE614C7EF}';
RID_DireccionesContacto = '{C738093E-2D7D-4F23-8EE3-0829E7FC6D0B}'; RID_DireccionesContacto = '{611A8BA7-2752-449A-843E-8FED952DA444}';
RID_AgentesComisiones = '{F5ADDFE9-5BBA-4D64-B261-C4F96707D016}'; RID_AgentesComisiones = '{44CBCA9B-3B73-4B97-8FE7-D36067C2EDC9}';
RID_ClientesDescuentos = '{E946CA4B-0340-4324-8B21-B8D258509F86}'; RID_ClientesDescuentos = '{226678E2-3999-42AA-824E-33C84D28229F}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -148,7 +148,6 @@ const
fld_ClientesID_AGENTE = 'ID_AGENTE'; fld_ClientesID_AGENTE = 'ID_AGENTE';
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_ClientesVENCIMIENTO_FACTURAS = 'VENCIMIENTO_FACTURAS';
fld_ClientesBLOQUEADO = 'BLOQUEADO'; fld_ClientesBLOQUEADO = 'BLOQUEADO';
fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO'; fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO';
fld_ClientesRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA'; fld_ClientesRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
@ -158,7 +157,9 @@ const
fld_ClientesTIENDA_WEB = 'TIENDA_WEB'; fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
fld_ClientesAGENTE = 'AGENTE'; fld_ClientesAGENTE = 'AGENTE';
fld_ClientesRAPEL = 'RAPEL'; 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 } { Clientes field indexes }
idx_ClientesID = 0; idx_ClientesID = 0;
@ -186,17 +187,18 @@ const
idx_ClientesID_AGENTE = 22; idx_ClientesID_AGENTE = 22;
idx_ClientesGRUPO_CLIENTE = 23; idx_ClientesGRUPO_CLIENTE = 23;
idx_ClientesNOMBRE_COMERCIAL = 24; idx_ClientesNOMBRE_COMERCIAL = 24;
idx_ClientesVENCIMIENTO_FACTURAS = 25; idx_ClientesBLOQUEADO = 25;
idx_ClientesBLOQUEADO = 26; idx_ClientesMOTIVO_BLOQUEO = 26;
idx_ClientesMOTIVO_BLOQUEO = 27; idx_ClientesRECARGO_EQUIVALENCIA = 27;
idx_ClientesRECARGO_EQUIVALENCIA = 28; idx_ClientesREGIMEN_IVA = 28;
idx_ClientesREGIMEN_IVA = 29; idx_ClientesID_TIPO_IVA = 29;
idx_ClientesID_TIPO_IVA = 30; idx_ClientesID_FORMA_PAGO = 30;
idx_ClientesID_FORMA_PAGO = 31; idx_ClientesTIENDA_WEB = 31;
idx_ClientesTIENDA_WEB = 32; idx_ClientesAGENTE = 32;
idx_ClientesAGENTE = 33; idx_ClientesRAPEL = 33;
idx_ClientesRAPEL = 34; idx_ClientesVENCIMIENTO_FACTURAS_1 = 34;
idx_ClientesEMAIL_ADMINISTRACION = 35; idx_ClientesVENCIMIENTO_FACTURAS_2 = 35;
idx_ClientesVENCIMIENTO_FACTURAS_3 = 36;
{ Proveedores fields } { Proveedores fields }
fld_ProveedoresID = 'ID'; fld_ProveedoresID = 'ID';
@ -226,7 +228,9 @@ const
fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA';
fld_ProveedoresID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ProveedoresID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB'; 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 } { Proveedores field indexes }
idx_ProveedoresID = 0; idx_ProveedoresID = 0;
@ -256,7 +260,9 @@ const
idx_ProveedoresID_TIPO_IVA = 24; idx_ProveedoresID_TIPO_IVA = 24;
idx_ProveedoresID_FORMA_PAGO = 25; idx_ProveedoresID_FORMA_PAGO = 25;
idx_ProveedoresTIENDA_WEB = 26; 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 } { Agentes fields }
fld_AgentesID = 'ID'; fld_AgentesID = 'ID';
@ -369,7 +375,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{3C467D50-383F-4253-82A6-6D6BFBAB736C}'] ['{D5428C9F-FB34-4AEF-8A52-04127D7B5C16}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -524,7 +530,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{E9FE8307-940C-4908-9B25-951994F738CF}'] ['{AAC323F1-5AA3-4E96-9C29-517076C33116}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCIONValue: String; function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String); procedure SetDESCRIPCIONValue(const aValue: String);
@ -553,7 +559,7 @@ type
{ IClienteEliminable } { IClienteEliminable }
IClienteEliminable = interface(IDAStronglyTypedDataTable) IClienteEliminable = interface(IDAStronglyTypedDataTable)
['{6C7EAFC6-7134-4304-B79F-2EDEE270F265}'] ['{2A57BE18-8E69-4997-B857-EA180A76BAA2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -588,7 +594,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{CEEE0955-68DD-48C2-AEFC-693FC07AC72A}'] ['{EBF69EAA-8160-4353-BA7A-ECEFCE54B05C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -653,7 +659,7 @@ type
{ IContactosCategorias } { IContactosCategorias }
IContactosCategorias = interface(IDAStronglyTypedDataTable) IContactosCategorias = interface(IDAStronglyTypedDataTable)
['{050F8EDE-5439-425F-9A11-5053D25BC1B5}'] ['{92E972FB-8626-4073-A050-69B797133E5A}']
{ Property getters and setters } { Property getters and setters }
function GetID_CONTACTOValue: Integer; function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer); procedure SetID_CONTACTOValue(const aValue: Integer);
@ -688,7 +694,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{BC299125-C6CC-4AF6-8FAA-1F77ABFF8795}'] ['{C3EA6037-3BC0-4BFD-B9AE-C156E84C1787}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -740,8 +746,6 @@ type
procedure SetGRUPO_CLIENTEValue(const aValue: String); procedure SetGRUPO_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIALValue: String; function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetVENCIMIENTO_FACTURASValue: Integer;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
function GetBLOQUEADOValue: Integer; function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer); procedure SetBLOQUEADOValue(const aValue: Integer);
function GetMOTIVO_BLOQUEOValue: String; function GetMOTIVO_BLOQUEOValue: String;
@ -760,8 +764,12 @@ type
procedure SetAGENTEValue(const aValue: String); procedure SetAGENTEValue(const aValue: String);
function GetRAPELValue: Integer; function GetRAPELValue: Integer;
procedure SetRAPELValue(const aValue: Integer); procedure SetRAPELValue(const aValue: Integer);
function GetEMAIL_ADMINISTRACIONValue: String; function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); 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 } { Properties }
@ -790,7 +798,6 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
@ -800,7 +807,9 @@ type
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property RAPEL: Integer read GetRAPELValue write SetRAPELValue; 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; end;
{ TClientesDataTableRules } { TClientesDataTableRules }
@ -858,8 +867,6 @@ type
procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual; function GetNOMBRE_COMERCIALValue: String; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: 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; function GetBLOQUEADOValue: Integer; virtual;
procedure SetBLOQUEADOValue(const aValue: Integer); virtual; procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
function GetMOTIVO_BLOQUEOValue: String; virtual; function GetMOTIVO_BLOQUEOValue: String; virtual;
@ -878,8 +885,12 @@ type
procedure SetAGENTEValue(const aValue: String); virtual; procedure SetAGENTEValue(const aValue: String); virtual;
function GetRAPELValue: Integer; virtual; function GetRAPELValue: Integer; virtual;
procedure SetRAPELValue(const aValue: Integer); virtual; procedure SetRAPELValue(const aValue: Integer); virtual;
function GetEMAIL_ADMINISTRACIONValue: String; virtual; function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -907,7 +918,6 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
@ -917,7 +927,9 @@ type
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property RAPEL: Integer read GetRAPELValue write SetRAPELValue; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -927,7 +939,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{D032B1BB-4428-4D4B-ADFF-18C40DFF04E5}'] ['{C034988C-D63B-457A-B32E-E743146F08DB}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -983,8 +995,12 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetTIENDA_WEBValue: Integer; function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer); procedure SetTIENDA_WEBValue(const aValue: Integer);
function GetEMAIL_ADMINISTRACIONValue: String; function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); 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 } { Properties }
@ -1015,7 +1031,9 @@ type
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; 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; end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
@ -1077,8 +1095,12 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetTIENDA_WEBValue: Integer; virtual; function GetTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual; procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
function GetEMAIL_ADMINISTRACIONValue: String; virtual; function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; 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_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1118,7 +1142,7 @@ type
{ IAgentes } { IAgentes }
IAgentes = interface(IDAStronglyTypedDataTable) IAgentes = interface(IDAStronglyTypedDataTable)
['{4BD59D5A-FDD8-492D-BC9F-AD0BE9BF5C59}'] ['{BC9DA06E-4E11-4979-BDB5-0FAC4CAA6B7E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1273,7 +1297,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{502FC7D0-9317-4FFF-8BA9-BA9EF2175658}'] ['{89E15C52-8F60-4A01-8EB8-6294C2E164DD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1380,7 +1404,7 @@ type
{ IAgentesComisiones } { IAgentesComisiones }
IAgentesComisiones = interface(IDAStronglyTypedDataTable) IAgentesComisiones = interface(IDAStronglyTypedDataTable)
['{B5F34E66-A3FD-4F36-8AAA-095427E63248}'] ['{136F43A5-4CF6-48DE-B1AA-693EDF264E9B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1433,7 +1457,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{A5D040AA-3D38-4284-AF0F-171AE311BC17}'] ['{CE684A1B-CC93-405F-97C0-B3F4ECD334C9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2151,16 +2175,6 @@ begin
DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString := aValue; DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString := aValue;
end; 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; function TClientesDataTableRules.GetBLOQUEADOValue: Integer;
begin begin
result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger; result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger;
@ -2251,14 +2265,34 @@ begin
DataTable.Fields[idx_ClientesRAPEL].AsInteger := aValue; DataTable.Fields[idx_ClientesRAPEL].AsInteger := aValue;
end; end;
function TClientesDataTableRules.GetEMAIL_ADMINISTRACIONValue: String; function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString; result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger;
end; end;
procedure TClientesDataTableRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin 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; end;
@ -2544,14 +2578,34 @@ begin
DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue; DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue;
end; end;
function TProveedoresDataTableRules.GetEMAIL_ADMINISTRACIONValue: String; function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString; result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger;
end; end;
procedure TProveedoresDataTableRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin 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; end;

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

@ -9,22 +9,22 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{A7B6097C-289E-4DA1-8A61-B3DC49200E30}'; RID_ContactosDelta = '{F528198A-E186-4B8B-83B5-093A113462F7}';
RID_GruposClienteDelta = '{DA9A3D00-E518-404D-AA5C-E4FD7A3D6E9E}'; RID_GruposClienteDelta = '{16194EFB-DA2C-42F0-94E1-13B1BAACD991}';
RID_ClienteEliminableDelta = '{2E8C71F3-A03B-4DEF-B2CC-AC7A21FCAC06}'; RID_ClienteEliminableDelta = '{4BE1D5F1-FED2-4751-AFAB-7B3043CB080F}';
RID_DatosBancariosDelta = '{EDE6858F-F636-4695-9986-EA35E3AF623D}'; RID_DatosBancariosDelta = '{6C264A76-A458-406D-AFDB-463396B820A9}';
RID_ContactosCategoriasDelta = '{61DE38E4-28AD-4265-8987-B6C62DACCAFA}'; RID_ContactosCategoriasDelta = '{47ECC055-1F3D-4942-81A0-B246F1DC0659}';
RID_ClientesDelta = '{35EC6E73-DE47-4999-9510-71195EC6D430}'; RID_ClientesDelta = '{35B1C3C2-B3CE-46F9-835D-93BB056016E4}';
RID_ProveedoresDelta = '{9676090D-3DE0-4D67-A393-6FF60C8E5B49}'; RID_ProveedoresDelta = '{50F87776-2945-444B-813D-B18F9BE0BA10}';
RID_AgentesDelta = '{7EDE4E87-585C-4CAB-B7F3-163BCE50061E}'; RID_AgentesDelta = '{8FF32389-A14E-4B03-B471-B8D22D2A628C}';
RID_DireccionesContactoDelta = '{67F829A3-66F5-4D97-883C-8BBFD5706093}'; RID_DireccionesContactoDelta = '{F0A4B0AF-0147-4D9A-AF6C-7F9043820F48}';
RID_AgentesComisionesDelta = '{51F716E5-C971-4A54-B547-A01705D741CA}'; RID_AgentesComisionesDelta = '{65D0C176-5486-4D88-AC21-EA57985AF334}';
RID_ClientesDescuentosDelta = '{1C199959-D746-4DAB-AC83-A573D14C9E15}'; RID_ClientesDescuentosDelta = '{B4F1CA58-1E66-4A19-8AB3-EACB27C19DEE}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{A7B6097C-289E-4DA1-8A61-B3DC49200E30}'] ['{F528198A-E186-4B8B-83B5-093A113462F7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -200,7 +200,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{DA9A3D00-E518-404D-AA5C-E4FD7A3D6E9E}'] ['{16194EFB-DA2C-42F0-94E1-13B1BAACD991}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -229,7 +229,7 @@ type
{ IClienteEliminableDelta } { IClienteEliminableDelta }
IClienteEliminableDelta = interface(IClienteEliminable) IClienteEliminableDelta = interface(IClienteEliminable)
['{2E8C71F3-A03B-4DEF-B2CC-AC7A21FCAC06}'] ['{4BE1D5F1-FED2-4751-AFAB-7B3043CB080F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
@ -265,7 +265,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{EDE6858F-F636-4695-9986-EA35E3AF623D}'] ['{6C264A76-A458-406D-AFDB-463396B820A9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -336,7 +336,7 @@ type
{ IContactosCategoriasDelta } { IContactosCategoriasDelta }
IContactosCategoriasDelta = interface(IContactosCategorias) IContactosCategoriasDelta = interface(IContactosCategorias)
['{61DE38E4-28AD-4265-8987-B6C62DACCAFA}'] ['{47ECC055-1F3D-4942-81A0-B246F1DC0659}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -372,7 +372,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{35EC6E73-DE47-4999-9510-71195EC6D430}'] ['{35B1C3C2-B3CE-46F9-835D-93BB056016E4}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -399,7 +399,6 @@ type
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
function GetOldGRUPO_CLIENTEValue : String; function GetOldGRUPO_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIALValue : String; function GetOldNOMBRE_COMERCIALValue : String;
function GetOldVENCIMIENTO_FACTURASValue : Integer;
function GetOldBLOQUEADOValue : Integer; function GetOldBLOQUEADOValue : Integer;
function GetOldMOTIVO_BLOQUEOValue : String; function GetOldMOTIVO_BLOQUEOValue : String;
function GetOldRECARGO_EQUIVALENCIAValue : Integer; function GetOldRECARGO_EQUIVALENCIAValue : Integer;
@ -409,7 +408,9 @@ type
function GetOldTIENDA_WEBValue : Integer; function GetOldTIENDA_WEBValue : Integer;
function GetOldAGENTEValue : String; function GetOldAGENTEValue : String;
function GetOldRAPELValue : Integer; function GetOldRAPELValue : Integer;
function GetOldEMAIL_ADMINISTRACIONValue : String; function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -437,7 +438,6 @@ type
property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue; property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue; property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue; property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
@ -447,7 +447,9 @@ type
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
property OldAGENTE : String read GetOldAGENTEValue; property OldAGENTE : String read GetOldAGENTEValue;
property OldRAPEL : Integer read GetOldRAPELValue; 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; end;
{ TClientesBusinessProcessorRules } { TClientesBusinessProcessorRules }
@ -530,9 +532,6 @@ type
function GetNOMBRE_COMERCIALValue: String; virtual; function GetNOMBRE_COMERCIALValue: String; virtual;
function GetOldNOMBRE_COMERCIALValue: String; virtual; function GetOldNOMBRE_COMERCIALValue: String; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: 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 GetBLOQUEADOValue: Integer; virtual;
function GetOldBLOQUEADOValue: Integer; virtual; function GetOldBLOQUEADOValue: Integer; virtual;
procedure SetBLOQUEADOValue(const aValue: Integer); virtual; procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
@ -560,9 +559,15 @@ type
function GetRAPELValue: Integer; virtual; function GetRAPELValue: Integer; virtual;
function GetOldRAPELValue: Integer; virtual; function GetOldRAPELValue: Integer; virtual;
procedure SetRAPELValue(const aValue: Integer); virtual; procedure SetRAPELValue(const aValue: Integer); virtual;
function GetEMAIL_ADMINISTRACIONValue: String; virtual; function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
function GetOldEMAIL_ADMINISTRACIONValue: String; virtual; function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -615,8 +620,6 @@ type
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_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 BLOQUEADO : Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue; property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
@ -635,8 +638,12 @@ type
property OldAGENTE : String read GetOldAGENTEValue; property OldAGENTE : String read GetOldAGENTEValue;
property RAPEL : Integer read GetRAPELValue write SetRAPELValue; property RAPEL : Integer read GetRAPELValue write SetRAPELValue;
property OldRAPEL : Integer read GetOldRAPELValue; property OldRAPEL : Integer read GetOldRAPELValue;
property EMAIL_ADMINISTRACION : String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -646,7 +653,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{9676090D-3DE0-4D67-A393-6FF60C8E5B49}'] ['{50F87776-2945-444B-813D-B18F9BE0BA10}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -675,7 +682,9 @@ type
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : 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 } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -705,7 +714,9 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; 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; end;
{ TProveedoresBusinessProcessorRules } { TProveedoresBusinessProcessorRules }
@ -794,9 +805,15 @@ type
function GetTIENDA_WEBValue: Integer; virtual; function GetTIENDA_WEBValue: Integer; virtual;
function GetOldTIENDA_WEBValue: Integer; virtual; function GetOldTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual; procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
function GetEMAIL_ADMINISTRACIONValue: String; virtual; function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
function GetOldEMAIL_ADMINISTRACIONValue: String; virtual; function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -853,8 +870,12 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; property OldTIENDA_WEB : Integer read GetOldTIENDA_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 OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -864,7 +885,7 @@ type
{ IAgentesDelta } { IAgentesDelta }
IAgentesDelta = interface(IAgentes) IAgentesDelta = interface(IAgentes)
['{7EDE4E87-585C-4CAB-B7F3-163BCE50061E}'] ['{8FF32389-A14E-4B03-B471-B8D22D2A628C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1040,7 +1061,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{67F829A3-66F5-4D97-883C-8BBFD5706093}'] ['{F0A4B0AF-0147-4D9A-AF6C-7F9043820F48}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -1160,7 +1181,7 @@ type
{ IAgentesComisionesDelta } { IAgentesComisionesDelta }
IAgentesComisionesDelta = interface(IAgentesComisiones) IAgentesComisionesDelta = interface(IAgentesComisiones)
['{51F716E5-C971-4A54-B547-A01705D741CA}'] ['{65D0C176-5486-4D88-AC21-EA57985AF334}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
@ -1217,7 +1238,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{1C199959-D746-4DAB-AC83-A573D14C9E15}'] ['{B4F1CA58-1E66-4A19-8AB3-EACB27C19DEE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2237,21 +2258,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := aValue;
end; 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; function TClientesBusinessProcessorRules.GetBLOQUEADOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO];
@ -2387,19 +2393,49 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRAPEL] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRAPEL] := aValue;
end; end;
function TClientesBusinessProcessorRules.GetEMAIL_ADMINISTRACIONValue: String; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
end; end;
function TClientesBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONValue: String; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_ADMINISTRACION]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
end; end;
procedure TClientesBusinessProcessorRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin 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; end;
@ -2821,19 +2857,49 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue;
end; end;
function TProveedoresBusinessProcessorRules.GetEMAIL_ADMINISTRACIONValue: String; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
end; end;
function TProveedoresBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONValue: String; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
end; end;
procedure TProveedoresBusinessProcessorRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin 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; end;

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

@ -67,7 +67,6 @@ begin
ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE]; ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
ParamByName('VENCIMIENTO_FACTURAS').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO]; ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
@ -76,7 +75,10 @@ begin
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('RAPEL').Value := aChange.NewValueByName[fld_ClientesRAPEL]; 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; Execute;
end; end;
finally finally
@ -92,7 +94,7 @@ var
ACommand : IDASQLCommand; ACommand : IDASQLCommand;
begin begin
inherited; inherited;
ASchema := BusinessProcessor.Schema; ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
@ -105,7 +107,6 @@ begin
ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE]; ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
ParamByName('VENCIMIENTO_FACTURAS').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO]; ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
@ -113,8 +114,11 @@ begin
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA]; ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('RAPEL').Value := aChange.NewValueByName[fld_ClientesRAPEL]; 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; Execute;
end; end;
finally finally

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

@ -20,7 +20,7 @@ const
PROVEEDOR_REGIMEN_IVA = 'General'; PROVEEDOR_REGIMEN_IVA = 'General';
CLIENTE_REGIMEN_IVA = 'General'; CLIENTE_REGIMEN_IVA = 'General';
CLIENTE_DIAS_VENCIMIENTO = 0; CLIENTE_DIAS_VENCIMIENTO = 5;
CLIENTE_RECARGO_EQUIVALENCIA = 0; CLIENTE_RECARGO_EQUIVALENCIA = 0;
type type
@ -58,8 +58,14 @@ type
function GetNOMBRE_COMERCIALValue: String; function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetVENCIMIENTO_FACTURASValue: Integer; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
function GetBLOQUEADOValue: Integer; function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer); procedure SetBLOQUEADOValue(const aValue: Integer);
@ -69,7 +75,7 @@ type
function GetMOTIVO_BLOQUEOValue: String; function GetMOTIVO_BLOQUEOValue: String;
procedure SetMOTIVO_BLOQUEOValue(const aValue: String); procedure SetMOTIVO_BLOQUEOValue(const aValue: String);
function GetRECARGO_EQUIVALENCIAValue: Integer; function GetRECARGO_EQUIVALENCIAValue: Integer;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
@ -89,23 +95,21 @@ type
procedure SetDescuentos(Value: IBizClienteDescuentos); procedure SetDescuentos(Value: IBizClienteDescuentos);
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos; 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 ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property RAPEL: Integer read GetRAPELValue write SetRAPELValue; property RAPEL: Integer read GetRAPELValue write SetRAPELValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; 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_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
end; end;
IBizProveedor = interface (IBizContacto) IBizProveedor = interface (IBizContacto)
@ -125,15 +129,23 @@ type
function GetTIENDA_WEBValue: Integer; function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer); procedure SetTIENDA_WEBValue(const aValue: Integer);
function GetEMAIL_ADMINISTRACIONValue: String; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); 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 REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; 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; end;
IBizAgente = interface (IBizContacto) IBizAgente = interface (IBizContacto)
@ -203,8 +215,14 @@ type
function GetNOMBRE_COMERCIALValue: String; function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetVENCIMIENTO_FACTURASValue: Integer; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
function GetBLOQUEADOValue: Integer; function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer); procedure SetBLOQUEADOValue(const aValue: Integer);
@ -232,9 +250,6 @@ type
function GetDescuentos: IBizClienteDescuentos; function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos); procedure SetDescuentos(Value: IBizClienteDescuentos);
function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
public public
procedure IniciarValoresContactoNuevo; override; procedure IniciarValoresContactoNuevo; override;
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -243,19 +258,20 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property RAPEL: Integer read GetRAPELValue write SetRAPELValue; property RAPEL: Integer read GetRAPELValue write SetRAPELValue;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; 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_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
end; end;
TBizProveedor = class(TBizContacto, IBizProveedor) TBizProveedor = class(TBizContacto, IBizProveedor)
protected protected
function GetDESCUENTOValue: Float; function GetDESCUENTOValue: Float;
@ -269,12 +285,19 @@ type
function GetTIENDA_WEBValue: Integer; function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer); procedure SetTIENDA_WEBValue(const aValue: Integer);
function GetID_FORMA_PAGOValue: Integer; function GetID_FORMA_PAGOValue: Integer;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetEMAIL_ADMINISTRACIONValue: String; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); 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 public
procedure IniciarValoresContactoNuevo; override; procedure IniciarValoresContactoNuevo; override;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; 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_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; 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; end;
@ -429,11 +454,6 @@ begin
Result := FDescuentos; Result := FDescuentos;
end; end;
function TBizCliente.GetEMAIL_ADMINISTRACIONValue: String;
begin
result := DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString;
end;
function TBizCliente.GetGRUPO_CLIENTEValue: String; function TBizCliente.GetGRUPO_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString; result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;
@ -480,11 +500,6 @@ begin
EnlazarMaestroDetalle(FDescuentosLink, FDescuentos); EnlazarMaestroDetalle(FDescuentosLink, FDescuentos);
end; end;
procedure TBizCliente.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString := aValue;
end;
procedure TBizCliente.SetGRUPO_CLIENTEValue(const aValue: String); procedure TBizCliente.SetGRUPO_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue; DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue;
@ -530,9 +545,19 @@ begin
result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger; result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
end; end;
function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer; function TBizCliente.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
begin begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger; result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].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; end;
procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
@ -550,16 +575,26 @@ begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue; DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;
end; end;
procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure TBizCliente.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
begin begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue; DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].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; end;
procedure TBizCliente.IniciarValoresContactoNuevo; procedure TBizCliente.IniciarValoresContactoNuevo;
begin begin
inherited; inherited;
ID_CATEGORIA := CATEGORIA_CLIENTE; ID_CATEGORIA := CATEGORIA_CLIENTE;
VENCIMIENTO_FACTURAS := CLIENTE_DIAS_VENCIMIENTO; VENCIMIENTO_FACTURAS_1 := CLIENTE_DIAS_VENCIMIENTO;
BLOQUEADO := 0; BLOQUEADO := 0;
RAPEL := 0; RAPEL := 0;
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
@ -568,11 +603,6 @@ end;
{ TBizProveedor } { TBizProveedor }
function TBizProveedor.GetEMAIL_ADMINISTRACIONValue: String;
begin
result := DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString;
end;
function TBizProveedor.GetID_FORMA_PAGOValue: Integer; function TBizProveedor.GetID_FORMA_PAGOValue: Integer;
begin begin
result := DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger; result := DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger;
@ -593,6 +623,21 @@ begin
result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger; result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger;
end; end;
function TBizProveedor.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].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; procedure TBizProveedor.IniciarValoresContactoNuevo;
begin begin
inherited; inherited;
@ -610,11 +655,6 @@ begin
DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat := aValue; DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat := aValue;
end; 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); procedure TBizProveedor.SetID_FORMA_PAGOValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger := aValue; DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger := aValue;
@ -635,6 +675,21 @@ begin
DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue; DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue;
end; 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 } { TBizAgente }
constructor TBizAgente.Create(aDataTable: TDADataTable); constructor TBizAgente.Create(aDataTable: TDADataTable);

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

@ -68,7 +68,11 @@ begin
ParamByName('REGIMEN_IVA').Value := aChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]; ParamByName('REGIMEN_IVA').Value := aChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]; ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]; 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; Execute;
end; end;
finally finally
@ -98,7 +102,11 @@ begin
ParamByName('REGIMEN_IVA').Value := aChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]; ParamByName('REGIMEN_IVA').Value := aChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]; ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]; 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; Execute;
end; end;
finally finally

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

@ -1,6 +1,7 @@
object srvContactos: TsrvContactos object srvContactos: TsrvContactos
OldCreateOrder = True OldCreateOrder = True
OnCreate = DARemoteServiceCreate OnCreate = DARemoteServiceCreate
RequiresSession = True
AcquireConnection = True AcquireConnection = True
ConnectionName = 'IBX' ConnectionName = 'IBX'
ServiceSchema = schContactos ServiceSchema = schContactos
@ -650,10 +651,11 @@ object srvContactos: TsrvContactos
', '#10' POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO' + ', '#10' POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO' +
'_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, '#10' ' + '_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, '#10' ' +
' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 + ' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 +
' ID_AGENTE, GRUPO_CLIENTE, NOMBRE_COMERCIAL, VENCIMIENTO_FACT' + ' ID_AGENTE, GRUPO_CLIENTE, NOMBRE_COMERCIAL,'#10' BLOQUEADO, M' +
'URAS, '#10' BLOQUEADO, MOTIVO_BLOQUEO, RECARGO_EQUIVALENCIA, REGI' + 'OTIVO_BLOQUEO, RECARGO_EQUIVALENCIA, REGIMEN_IVA, '#10' ID_TIPO_I' +
'MEN_IVA, '#10' ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB, AGENTE, RA' + 'VA, ID_FORMA_PAGO, TIENDA_WEB, AGENTE, RAPEL,'#10' VENCIMIENTO_FA' +
'PEL, EMAIL_ADMINISTRACION'#10' FROM'#10' V_CLIENTES' 'CTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3'#10' FROM'#10 +
' V_CLIENTES'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -752,10 +754,6 @@ object srvContactos: TsrvContactos
DatasetField = 'NOMBRE_COMERCIAL' DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL' TableField = 'NOMBRE_COMERCIAL'
end end
item
DatasetField = 'VENCIMIENTO_FACTURAS'
TableField = 'VENCIMIENTO_FACTURAS'
end
item item
DatasetField = 'BLOQUEADO' DatasetField = 'BLOQUEADO'
TableField = 'BLOQUEADO' TableField = 'BLOQUEADO'
@ -797,8 +795,16 @@ object srvContactos: TsrvContactos
TableField = 'RAPEL' TableField = 'RAPEL'
end end
item item
DatasetField = 'EMAIL_ADMINISTRACION' DatasetField = 'VENCIMIENTO_FACTURAS_1'
TableField = 'EMAIL_ADMINISTRACION' TableField = 'VENCIMIENTO_FACTURAS_1'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_2'
TableField = 'VENCIMIENTO_FACTURAS_2'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -1071,16 +1077,6 @@ object srvContactos: TsrvContactos
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'VENCIMIENTO_FACTURAS'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
DataType = datInteger DataType = datInteger
@ -1158,7 +1154,9 @@ object srvContactos: TsrvContactos
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DictionaryEntry = 'Clientes_AGENTE' DisplayWidth = 0
DisplayLabel = 'Agente'
Alignment = taLeftJustify
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1168,18 +1166,42 @@ object srvContactos: TsrvContactos
Name = 'RAPEL' Name = 'RAPEL'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DictionaryEntry = 'Clientes_RAPEL' DisplayWidth = 0
DisplayLabel = 'Rapel'
Alignment = taLeftJustify
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item item
Name = 'EMAIL_ADMINISTRACION' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datString DataType = datInteger
Size = 255
BlobType = dabtUnknown 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 InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1200,7 +1222,8 @@ object srvContactos: TsrvContactos
'_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, '#10' ' + '_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, '#10' ' +
' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 + ' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 +
' REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_W' + ' 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 StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -1312,8 +1335,16 @@ object srvContactos: TsrvContactos
TableField = 'TIENDA_WEB' TableField = 'TIENDA_WEB'
end end
item item
DatasetField = 'EMAIL_ADMINISTRACION' DatasetField = 'VENCIMIENTO_FACTURAS_1'
TableField = 'EMAIL_ADMINISTRACION' TableField = 'VENCIMIENTO_FACTURAS_1'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_2'
TableField = 'VENCIMIENTO_FACTURAS_2'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3'
end> end>
end> end>
Name = 'Proveedores' Name = 'Proveedores'
@ -1599,18 +1630,41 @@ object srvContactos: TsrvContactos
Name = 'TIENDA_WEB' Name = 'TIENDA_WEB'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DictionaryEntry = 'Proveedores_TIENDA_WEB' DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item item
Name = 'EMAIL_ADMINISTRACION' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datString DataType = datInteger
Size = 255
BlobType = dabtUnknown 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 InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -3176,13 +3230,6 @@ object srvContactos: TsrvContactos
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'VENCIMIENTO_FACTURAS'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
DataType = datInteger DataType = datInteger
@ -3235,9 +3282,22 @@ object srvContactos: TsrvContactos
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'EMAIL_ADMINISTRACION' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datString DataType = datInteger
Size = 255 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 BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
@ -3248,14 +3308,14 @@ object srvContactos: TsrvContactos
TargetTable = 'CLIENTES_DATOS' TargetTable = 'CLIENTES_DATOS'
SQL = SQL =
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, ID_AGENTE, GRUPO_C' + 'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, ID_AGENTE, GRUPO_C' +
'LIENTE, RECARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, VENCIMIENTO' + 'LIENTE, RECARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, BLOQUEADO, ' +
'_FACTURAS, BLOQUEADO, MOTIVO_BLOQUEO,'#10' REGIMEN_IVA, ID_TIPO_' + 'MOTIVO_BLOQUEO, REGIMEN_IVA, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TI' +
'IVA, ID_FORMA_PAGO, TIENDA_WEB, RAPEL,'#10' EMAIL_ADMINISTRACION' + 'ENDA_WEB, RAPEL,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTUR' +
')'#10' VALUES'#10' (:ID_CLIENTE, :ID_AGENTE, :GRUPO_CLIENTE, :RECARG' + 'AS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_CLIENTE, :ID_AGE' +
'O_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL, :VENCIMIENTO_FACTURAS,'#10' ' + 'NTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCI' +
' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA,'#10' :ID_TIPO_IVA' + 'AL, :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA,'#10' ' +
', :ID_FORMA_PAGO, :TIENDA_WEB, :RAPEL,'#10' :EMAIL_ADMINISTRACIO' + ' :ID_FORMA_PAGO, :TIENDA_WEB, :RAPEL,'#10' :VENCIMIENTO_FACTURA' +
'N)' 'S_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3329,13 +3389,6 @@ object srvContactos: TsrvContactos
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'VENCIMIENTO_FACTURAS'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
DataType = datInteger DataType = datInteger
@ -3380,9 +3433,22 @@ object srvContactos: TsrvContactos
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'EMAIL_ADMINISTRACION' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datString DataType = datInteger
Size = 255 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 BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
@ -3403,11 +3469,12 @@ object srvContactos: TsrvContactos
'ID_AGENTE = :ID_AGENTE,'#10' GRUPO_CLIENTE = :GRUPO_CLIENTE,'#10' ' + 'ID_AGENTE = :ID_AGENTE,'#10' GRUPO_CLIENTE = :GRUPO_CLIENTE,'#10' ' +
'MOTIVO_BLOQUEO = :MOTIVO_BLOQUEO,'#10' RECARGO_EQUIVALENCIA = :RE' + 'MOTIVO_BLOQUEO = :MOTIVO_BLOQUEO,'#10' RECARGO_EQUIVALENCIA = :RE' +
'CARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' ' + 'CARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' ' +
' VENCIMIENTO_FACTURAS = :VENCIMIENTO_FACTURAS,'#10' BLOQUEADO = ' + ' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID' +
':BLOQUEADO,'#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID_TIPO_IVA = :I' + '_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
'D_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB =' + ' TIENDA_WEB = :TIENDA_WEB,'#10' RAPEL = :RAPEL,'#10' VENCIMIENTO_' +
' :TIENDA_WEB,'#10' RAPEL = :RAPEL,'#10' EMAIL_ADMINISTRACION = :EM' + 'FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2' +
'AIL_ADMINISTRACION'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)' ' = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIM' +
'IENTO_FACTURAS_3'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3459,9 +3526,22 @@ object srvContactos: TsrvContactos
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'EMAIL_ADMINISTRACION' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datString DataType = datInteger
Size = 255 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 BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
@ -3472,10 +3552,11 @@ object srvContactos: TsrvContactos
TargetTable = 'PROVEEDORES_DATOS' TargetTable = 'PROVEEDORES_DATOS'
SQL = SQL =
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' + 'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
'DESCUENTO, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TIENDA_WEB, EMAIL_ADM' + 'DESCUENTO, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TIENDA_WEB, VENCIMIEN' +
'INISTRACION)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUEN' + 'TO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_' +
'TO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :EMAIL_ADMINI' + '3)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :ID_TI' +
'STRACION)' 'PO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :VENCIMIENTO_FACTURAS_1' +
','#10' :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3548,9 +3629,22 @@ object srvContactos: TsrvContactos
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'EMAIL_ADMINISTRACION' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datString DataType = datInteger
Size = 255 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 BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
@ -3570,8 +3664,10 @@ object srvContactos: TsrvContactos
'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' + 'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' +
', '#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' DESCUENTO = :DESCUENTO,'#10' ' + ', '#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' DESCUENTO = :DESCUENTO,'#10' ' +
' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAG' + ' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAG' +
'O,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' EMAIL_ADMINISTRACION = :EMA' + 'O,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' VENCIMIENTO_FACTURAS_1 = :V' +
'IL_ADMINISTRACION'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)' '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 StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -4797,40 +4893,6 @@ object srvContactos: TsrvContactos
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify 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> end>
Left = 126 Left = 126
Top = 14 Top = 14
@ -4840,10 +4902,10 @@ object srvContactos: TsrvContactos
Top = 82 Top = 82
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' + '<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="DatosBancarios" Left' + 'idth="400" Height="300">'#13#10' <Entity Name="ContactosCategorias"' +
'="479,77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" ' + ' Left="0,00" Top="26,50" />'#13#10' <Entity Name="Contactos" Left="' +
'Left="0,00" Top="26,50" />'#13#10' <Entity Name="Contactos" Left="2' + '223,77" Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="4' +
'23,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10 '79,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end end
object bpContactos: TDABusinessProcessor object bpContactos: TDABusinessProcessor
Schema = schContactos Schema = schContactos

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

@ -13,8 +13,8 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 642
object Label1: TLabel object Label1: TLabel
Left = 353 Left = 353
Top = 28 Top = 28
@ -56,12 +56,11 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
TabOrder = 6 TabOrder = 6
Width = 197 Width = 197
end end
object eDiasVencimiento: TcxDBSpinEdit object eDiasVencimiento1: TcxDBSpinEdit
Left = 420 Left = 424
Top = 60 Top = 60
DataBinding.DataField = 'VENCIMIENTO_FACTURAS' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
Properties.AssignedValues.MinValue = True
Properties.ImmediatePost = True Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -205,6 +204,48 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
TabOrder = 4 TabOrder = 4
OnClick = bTiposIVAClick OnClick = bTiposIVAClick
end 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 object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -305,8 +346,20 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
Caption = 'D'#237'as de vto.:' Caption = 'D'#237'a de vto. 1:'
Control = eDiasVencimiento 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 ControlOptions.ShowBorder = False
end end
end end

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

@ -26,7 +26,7 @@ type
eAgente: TcxDBLookupComboBox; eAgente: TcxDBLookupComboBox;
dsAgentes: TDADataSource; dsAgentes: TDADataSource;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
eDiasVencimiento: TcxDBSpinEdit; eDiasVencimiento1: TcxDBSpinEdit;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
cbRegimenIVA: TcxDBComboBox; cbRegimenIVA: TcxDBComboBox;
dsDatosComerciales: TDADataSource; dsDatosComerciales: TDADataSource;
@ -49,6 +49,10 @@ type
dsTiposIVA: TDADataSource; dsTiposIVA: TDADataSource;
dxLayoutControl1Group1: TdxLayoutGroup; dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem;
eDiasVencimiento2: TcxDBSpinEdit;
dxLayoutControl1Item11: TdxLayoutItem;
eDiasVencimiento3: TcxDBSpinEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject); procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);

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

@ -1218,6 +1218,9 @@ var
ARecibos: IBizRecibosCliente; ARecibos: IBizRecibosCliente;
AFechaVencimiento: TDateTime; AFechaVencimiento: TDateTime;
i: Integer; i: Integer;
ADiaVencimiento: Integer;
ADiasMas: Integer;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
Exit; Exit;
@ -1248,26 +1251,29 @@ begin
ARecibos.ID_FACTURA := AFactura.ID; ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
if (AFactura.Cliente.VENCIMIENTO_FACTURAS <> 0) then 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 begin
if DayOf(AFechaVencimiento) > AFactura.Cliente.VENCIMIENTO_FACTURAS then ADiaVencimiento := DayOf(AFechaVencimiento);
begin while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1)
AFechaVencimiento := IncDay(AFechaVencimiento, (DaysInMonth(AFechaVencimiento) - DayOf(AFechaVencimiento))); and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2)
AFechaVencimiento := IncDay(AFechaVencimiento, AFactura.Cliente.VENCIMIENTO_FACTURAS); and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do
end begin
else if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
AFechaVencimiento := IncDay(AFechaVencimiento, (AFactura.Cliente.VENCIMIENTO_FACTURAS - DayOf(AFechaVencimiento))); ADiaVencimiento := 1
else
Inc(ADiaVencimiento);
Inc(ADiasMas);
end;
end; end;
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
//Comprobamos que la fecha de vencimiento no sea febrero si es asi hay que tratarlo
if (AFactura.Cliente.VENCIMIENTO_FACTURAS > 28)
and (MonthOf(AFechaVencimiento) = 3) and (DayOf(AFechaVencimiento) < 3) then
AFechaVencimiento := IncDay(AFechaVencimiento, - DayOf(AFechaVencimiento));
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
ARecibosClienteController.Guardar(ARecibos); ARecibosClienteController.Guardar(ARecibos);
Inc(i); Inc(i);

4
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -280,8 +280,8 @@ begin
begin begin
ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA); ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
//Preguntamos is desea hacer una orden de devolución asociada //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 // if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
GenerarAlbaranCli(FFactura); // GenerarAlbaranCli(FFactura);
end; end;
end; end;

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

@ -1058,7 +1058,11 @@ var
AFormaPago: IBizFormaPago; AFormaPago: IBizFormaPago;
ARecibosProveedorController: IRecibosProveedorController; ARecibosProveedorController: IRecibosProveedorController;
ARecibos: IBizRecibosProveedor; ARecibos: IBizRecibosProveedor;
AFechaVencimiento: TDateTime;
i: Integer; i: Integer;
ADiaVencimiento: Integer;
ADiasMas: Integer;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
@ -1090,7 +1094,28 @@ begin
ARecibos.ID_FACTURA := AFactura.ID; ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); 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); ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
ARecibosProveedorController.Guardar(ARecibos); ARecibosProveedorController.Guardar(ARecibos);
Inc(i); Inc(i);

4
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -172,10 +172,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0

4
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -255,8 +255,8 @@ begin
begin begin
ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA); ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
//Preguntamos is desea hacer una orden de devolución asociada //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 // if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
GenerarAlbaranProv(FFactura); // GenerarAlbaranProv(FFactura);
end; end;
end; end;
Modified := False; Modified := False;

17
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<PersonalityInfo> <PersonalityInfo>
<Option> <Option>
@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo> <VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">8</VersionInfo> <VersionInfo Name="Release">7</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,18 +167,19 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></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="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName">FactuGES Server</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="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">lunes, 22 de septiembre de 2008 15:20</VersionInfoKeys></VersionInfoKeys> <Excluded_Packages> <VersionInfoKeys Name="CompileDate">lunes, 22 de septiembre de 2008 14:11</VersionInfoKeys></VersionInfoKeys>
<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>
</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>
</Delphi.Personality> </Excluded_Packages>
</Delphi.Personality>
<ModelSupport>False</ModelSupport> <ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

11
Source/Servidor/FactuGES_Server.dpr
View File

@ -120,10 +120,6 @@ uses
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
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', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_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', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_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', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
srvRegistroCorreos_Impl in '..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

202
Source/Servidor/FactuGES_Server.drc
View File

@ -912,12 +912,12 @@
#define IdResourceStrings_RSMIMEMIMETypeEmpty 65181 #define IdResourceStrings_RSMIMEMIMETypeEmpty 65181
#define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65182 #define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65182
#define IdResourceStrings_RSStatusResolving 65183 #define IdResourceStrings_RSStatusResolving 65183
#define uRORes_err_InvalidVarArrayDimCount 65184 #define uRODECConst_sFMT_HEXL 65184
#define uRORes_err_MessageNotAssigned 65185 #define uRODECConst_sFMT_MIME64 65185
#define ComConst_SOleError 65186 #define uRODECConst_sFMT_UU 65186
#define ComConst_SNoMethod 65187 #define uRODECConst_sFMT_XX 65187
#define ComConst_SVarNotObject 65188 #define uRODECConst_sInvalidKeySize 65188
#define ComConst_STooManyParams 65189 #define uRODECConst_sNotInitialized 65189
#define IdResourceStrings_RSCannotAllocateSocket 65190 #define IdResourceStrings_RSCannotAllocateSocket 65190
#define IdResourceStrings_RSConnectionClosedGracefully 65191 #define IdResourceStrings_RSConnectionClosedGracefully 65191
#define IdResourceStrings_RSCouldNotBindSocket 65192 #define IdResourceStrings_RSCouldNotBindSocket 65192
@ -928,70 +928,70 @@
#define IdResourceStrings_RSThreadClassNotSpecified 65197 #define IdResourceStrings_RSThreadClassNotSpecified 65197
#define IdResourceStrings_RSFileNotFound 65198 #define IdResourceStrings_RSFileNotFound 65198
#define IdResourceStrings_RSOnlyOneAntiFreeze 65199 #define IdResourceStrings_RSOnlyOneAntiFreeze 65199
#define uRORes_err_UnhandledException 65200 #define uRORes_err_NoXMLParsersAvailable 65200
#define uRORes_err_ChannelBusy 65201 #define uRORes_err_IDispatchMarshalingNotSupported 65201
#define uRORes_err_ArrayIndexOutOfBounds 65202 #define uRORes_err_UnsupportedVariantType 65202
#define uRORes_err_InvalidHeader 65203 #define uRORes_err_VariantIsNotArray 65203
#define uRORes_err_UnknownClassInStream 65204 #define uRORes_err_InvalidVarArrayDimCount 65204
#define uRORes_err_UnexpectedClassInStream 65205 #define uRORes_err_MessageNotAssigned 65205
#define uRORes_err_SessionNotFound 65206 #define ComConst_SOleError 65206
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65207 #define ComConst_SNoMethod 65207
#define uRORes_err_TooManySessions 65208 #define ComConst_SVarNotObject 65208
#define uRORes_err_DOMElementIsNIL 65209 #define ComConst_STooManyParams 65209
#define uRORes_err_CannotLoadXMLDocument 65210 #define uRODECConst_sProtectionCircular 65210
#define uRORes_err_ErrorCreatingMsXmlDoc 65211 #define uRODECConst_sStringFormatExists 65211
#define uRORes_err_NoXMLParsersAvailable 65212 #define uRODECConst_sInvalidStringFormat 65212
#define uRORes_err_IDispatchMarshalingNotSupported 65213 #define uRODECConst_sInvalidFormatString 65213
#define uRORes_err_UnsupportedVariantType 65214 #define uRODECConst_sFMT_COPY 65214
#define uRORes_err_VariantIsNotArray 65215 #define uRODECConst_sFMT_HEX 65215
#define uRORes_str_ExceptionReraisedFromServer 65216 #define uRORes_err_UnknownProxyInterface 65216
#define uRORes_err_AssignError 65217 #define uRORes_err_DispatcherAlreadyAssigned 65217
#define uRORes_err_InvalidRequestStream 65218 #define uRORes_err_CannotFindMessageDispatcher 65218
#define uRORes_err_NILMessage 65219 #define uRORes_err_ServerOnlySupportsOneDispatcher 65219
#define uRORes_err_UnspecifiedInterface 65220 #define uRORes_err_UnhandledException 65220
#define uRORes_err_UnspecifiedMessage 65221 #define uRORes_err_ChannelBusy 65221
#define uRORes_err_UnknownMethod 65222 #define uRORes_err_ArrayIndexOutOfBounds 65222
#define uRORes_err_ClassFactoryDidNotReturnInstance 65223 #define uRORes_err_InvalidHeader 65223
#define uRORes_err_TypeNotSupported 65224 #define uRORes_err_UnknownClassInStream 65224
#define uRORes_err_ClassFactoryNotFound 65225 #define uRORes_err_UnexpectedClassInStream 65225
#define uRORes_err_IROMessageNotSupported 65226 #define uRORes_err_SessionNotFound 65226
#define uRORes_err_ClassAlreadyRegistered 65227 #define uRORes_err_ChannelDoesntSupportIROMetadataReader 65227
#define uRORes_err_UnknownProxyInterface 65228 #define uRORes_err_TooManySessions 65228
#define uRORes_err_DispatcherAlreadyAssigned 65229 #define uRORes_err_DOMElementIsNIL 65229
#define uRORes_err_CannotFindMessageDispatcher 65230 #define uRORes_err_CannotLoadXMLDocument 65230
#define uRORes_err_ServerOnlySupportsOneDispatcher 65231 #define uRORes_err_ErrorCreatingMsXmlDoc 65231
#define uRORes_err_InvalidType 65232 #define uRORes_err_RodlInvalidDataType 65232
#define uRORes_err_InvalidStream 65233 #define uRORes_err_RodlStructCannotBeNested 65233
#define uRORes_err_InvalidParamFlag 65234 #define uRORes_err_RodlInvalidAncestorType 65234
#define uRORes_err_InvalidStringLength 65235 #define uRORes_str_ExceptionOnServer 65235
#define uRORes_str_InvalidClassTypeInStream 65236 #define uRORes_str_ExceptionReraisedFromServer 65236
#define uRORes_err_UnexpectedEndOfStream 65237 #define uRORes_err_AssignError 65237
#define uRORes_err_RodlDuplicateName 65238 #define uRORes_err_InvalidRequestStream 65238
#define uRORes_err_RodlNoDataTypeSpecified 65239 #define uRORes_err_NILMessage 65239
#define uRORes_err_RodlNoEnumValues 65240 #define uRORes_err_UnspecifiedInterface 65240
#define uRORes_err_RodlNoStructElementsDefined 65241 #define uRORes_err_UnspecifiedMessage 65241
#define uRORes_err_RodlNoOperationsDefined 65242 #define uRORes_err_UnknownMethod 65242
#define uRORes_err_RodlUsedFileDoesNotExist 65243 #define uRORes_err_ClassFactoryDidNotReturnInstance 65243
#define uRORes_err_RodlInvalidDataType 65244 #define uRORes_err_TypeNotSupported 65244
#define uRORes_err_RodlStructCannotBeNested 65245 #define uRORes_err_ClassFactoryNotFound 65245
#define uRORes_err_RodlInvalidAncestorType 65246 #define uRORes_err_IROMessageNotSupported 65246
#define uRORes_str_ExceptionOnServer 65247 #define uRORes_err_ClassAlreadyRegistered 65247
#define Consts_SUTF8Encoding 65248 #define Consts_SUTF8Encoding 65248
#define Consts_SUTF7Encoding 65249 #define Consts_SUTF7Encoding 65249
#define Consts_SPageControlNotSet 65250 #define Consts_SPageControlNotSet 65250
#define uRODECConst_sProtectionCircular 65251 #define uRORes_err_InvalidIndex 65251
#define uRODECConst_sStringFormatExists 65252 #define uRORes_err_InvalidType 65252
#define uRODECConst_sInvalidStringFormat 65253 #define uRORes_err_InvalidStream 65253
#define uRODECConst_sInvalidFormatString 65254 #define uRORes_err_InvalidParamFlag 65254
#define uRODECConst_sFMT_COPY 65255 #define uRORes_err_InvalidStringLength 65255
#define uRODECConst_sFMT_HEX 65256 #define uRORes_str_InvalidClassTypeInStream 65256
#define uRODECConst_sFMT_HEXL 65257 #define uRORes_err_UnexpectedEndOfStream 65257
#define uRODECConst_sFMT_MIME64 65258 #define uRORes_err_RodlDuplicateName 65258
#define uRODECConst_sFMT_UU 65259 #define uRORes_err_RodlNoDataTypeSpecified 65259
#define uRODECConst_sFMT_XX 65260 #define uRORes_err_RodlNoEnumValues 65260
#define uRODECConst_sInvalidKeySize 65261 #define uRORes_err_RodlNoStructElementsDefined 65261
#define uRODECConst_sNotInitialized 65262 #define uRORes_err_RodlNoOperationsDefined 65262
#define uRORes_err_InvalidIndex 65263 #define uRORes_err_RodlUsedFileDoesNotExist 65263
#define Consts_SPictureLabel 65264 #define Consts_SPictureLabel 65264
#define Consts_SPictureDesc 65265 #define Consts_SPictureDesc 65265
#define Consts_SPreviewLabel 65266 #define Consts_SPreviewLabel 65266
@ -2170,12 +2170,12 @@ BEGIN
IdResourceStrings_RSMIMEMIMETypeEmpty, "Mimetype is empty" IdResourceStrings_RSMIMEMIMETypeEmpty, "Mimetype is empty"
IdResourceStrings_RSMIMEMIMEExtAlreadyExists, "Extension already exits" IdResourceStrings_RSMIMEMIMEExtAlreadyExists, "Extension already exits"
IdResourceStrings_RSStatusResolving, "Resolving hostname %s." IdResourceStrings_RSStatusResolving, "Resolving hostname %s."
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d" uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRORes_err_MessageNotAssigned, "Message is NIL" uRODECConst_sFMT_MIME64, "MIME Base 64"
ComConst_SOleError, "OLE error %.8x" uRODECConst_sFMT_UU, "UU Coding"
ComConst_SNoMethod, "Method '%s' not supported by automation object" uRODECConst_sFMT_XX, "XX Coding"
ComConst_SVarNotObject, "Variant does not reference an automation object" uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket." IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket."
IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully." IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully."
IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use." 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_RSThreadClassNotSpecified, "Thread Class Not Specified."
IdResourceStrings_RSFileNotFound, "File \"%s\" not found" IdResourceStrings_RSFileNotFound, "File \"%s\" not found"
IdResourceStrings_RSOnlyOneAntiFreeze, "Only one TIdAntiFreeze can exist per application." 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_UnhandledException, "Unhandled exception"
uRORes_err_ChannelBusy, "Channel is busy. Try again later." uRORes_err_ChannelBusy, "Channel is busy. Try again later."
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)." uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
@ -2198,10 +2218,10 @@ BEGIN
uRORes_err_DOMElementIsNIL, "DOMElement is NIL" uRORes_err_DOMElementIsNIL, "DOMElement is NIL"
uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d" 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_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s"
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed" uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported." uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\"" uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d" 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_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"." uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)" 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_ClassFactoryNotFound, "Class factory for interface %s not found"
uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage" uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage"
uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered" uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered"
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\"" Consts_SUTF8Encoding, "UTF-8"
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned" Consts_SUTF7Encoding, "UTF-7"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?" Consts_SPageControlNotSet, "PageControl must first be assigned"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher" uRORes_err_InvalidIndex, "Invalid index %d"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\"" uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
uRORes_err_InvalidStream, "Invalid stream" uRORes_err_InvalidStream, "Invalid stream"
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\"" uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
@ -2230,26 +2250,6 @@ BEGIN
uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements." uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements."
uRORes_err_RodlNoOperationsDefined, "Service interface 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_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_SPictureLabel, "Picture:"
Consts_SPictureDesc, " (%dx%d)" Consts_SPictureDesc, " (%dx%d)"
Consts_SPreviewLabel, "Preview" Consts_SPreviewLabel, "Preview"

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,0,6,0 FILEVERSION 3,0,7,0
PRODUCTVERSION 3,0,6,0 PRODUCTVERSION 3,0,7,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" 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 "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.0.6.0\0" VALUE "ProductVersion", "3.0.7.0\0"
VALUE "CompileDate", "lunes, 22 de septiembre de 2008 15:20\0" VALUE "CompileDate", "jueves, 25 de septiembre de 2008 20:11\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.