git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@20 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
faefaf19ef
commit
c3bd63fefa
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@ -9,17 +9,17 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Contactos = '{D8A15DAF-B84A-4CD0-BFDF-CA27A00AF168}';
|
||||
RID_GruposCliente = '{C652CB9E-2AC8-4BF9-BFBB-11BA8D91E650}';
|
||||
RID_DatosBancarios = '{8D2D1C8B-539F-4B3C-9250-645A136931AC}';
|
||||
RID_ContactosCategorias = '{5CFCD92E-FDD9-420E-AA09-5D0C7DF338CF}';
|
||||
RID_Clientes = '{299F70D0-F30F-4043-8DA6-EC82A93AC8AD}';
|
||||
RID_Proveedores = '{B8A711ED-7988-4297-92D8-3F14625281E4}';
|
||||
RID_Empleados = '{512FBC1D-68D8-4755-9305-9D7C7423FA24}';
|
||||
RID_DireccionesContacto = '{39326FDC-6DA5-4552-8B7A-3FF8E01A0D1A}';
|
||||
RID_ClientesDescuentos = '{2FAB450C-A35B-4596-826B-4C96F794F81B}';
|
||||
RID_GruposProveedor = '{92A6584A-E3D6-4303-BC60-1C48847B53D8}';
|
||||
RID_GruposEmpleado = '{DF68D91E-27FB-4643-9008-5BF258BAA7A7}';
|
||||
RID_Contactos = '{4702B17F-2C8C-4EDB-951F-501A4B940F9D}';
|
||||
RID_GruposCliente = '{12028CAB-36D8-48CA-9154-325B58403561}';
|
||||
RID_DatosBancarios = '{E2BFD8E8-37C6-4E91-A66E-5021A52A0229}';
|
||||
RID_ContactosCategorias = '{A0AE66D8-6E9D-47C4-BC56-3584B21BE55A}';
|
||||
RID_Clientes = '{4A4AA93F-8EE6-4967-8046-E19791A0EEC1}';
|
||||
RID_Proveedores = '{DC04F4C0-A1A4-41A3-9E00-C8DB73300D35}';
|
||||
RID_Empleados = '{19D88701-7312-4C3B-87FB-79C5060AB9EC}';
|
||||
RID_DireccionesContacto = '{9E3FAF78-7E14-43F3-875F-87BF6EA34C0B}';
|
||||
RID_ClientesDescuentos = '{00A7347D-BC94-43F1-BE47-EB33FECA3941}';
|
||||
RID_GruposProveedor = '{74F8D1EC-C607-48A3-92CE-14266EB1D056}';
|
||||
RID_GruposEmpleado = '{C8376B2F-DC19-4DB9-9992-3A744251ED6D}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Contactos = 'Contactos';
|
||||
@ -365,7 +365,7 @@ const
|
||||
type
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{B957084D-EB63-41BF-B80D-8E47A3ACCB3D}']
|
||||
['{F396F244-2087-46CA-B562-068C32F5925F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -514,7 +514,7 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{FC827623-9A5A-42EF-8C11-95F024A41FE1}']
|
||||
['{1FFF80FA-0CE6-4907-A25E-582E1724B293}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
@ -543,7 +543,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{62552BB4-3EBD-4A77-B7F7-FAF8788E77D7}']
|
||||
['{F87D0636-602D-472C-90BD-8A8F6F783944}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -608,7 +608,7 @@ type
|
||||
|
||||
{ IContactosCategorias }
|
||||
IContactosCategorias = interface(IDAStronglyTypedDataTable)
|
||||
['{DCC4AAFB-C810-4705-A2C4-97B7A6AADB22}']
|
||||
['{D8DCDA8D-996F-446C-8241-E02D41DDEB09}']
|
||||
{ Property getters and setters }
|
||||
function GetID_CONTACTOValue: Integer;
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer);
|
||||
@ -643,7 +643,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{D9B664CE-C1A2-45C8-A2CF-13E397262314}']
|
||||
['{A6D726D9-A0A4-4F7B-B8BD-BCAE0B982891}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -852,7 +852,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{A294F985-864A-49FA-B501-D024324B025C}']
|
||||
['{3B317406-09C8-4CBA-B708-F2C52CFEAB09}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1061,7 +1061,7 @@ type
|
||||
|
||||
{ IEmpleados }
|
||||
IEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{86C40E58-192F-46CA-9D2C-516BA7F26141}']
|
||||
['{0A5A325E-1A87-439B-A785-60E26CCD025D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1252,7 +1252,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{9D927D45-9FC8-40C0-B7C0-4CA107060105}']
|
||||
['{8AE98E4A-35D7-4E61-BE7D-64DD5B4AC7AF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1359,7 +1359,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{7A1D4C2F-2139-4B4B-9D05-4CF2A8F10B1D}']
|
||||
['{F886D2B5-74CF-4173-A04A-085EB4844795}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1412,7 +1412,7 @@ type
|
||||
|
||||
{ IGruposProveedor }
|
||||
IGruposProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{3BA890A5-F225-4140-A39B-8BE826C89B2C}']
|
||||
['{8A40BF38-E4DE-41D3-BC1F-B683003EDC4D}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
@ -1441,7 +1441,7 @@ type
|
||||
|
||||
{ IGruposEmpleado }
|
||||
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
|
||||
['{01FE8190-BC01-4423-A8ED-B1D1BFCD7231}']
|
||||
['{6E0FF24B-75DD-4796-AE74-B1D28F67770E}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
|
||||
@ -9,22 +9,22 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ContactosDelta = '{8103D115-7646-40CF-9E38-B3EAE7AEF69B}';
|
||||
RID_GruposClienteDelta = '{FBF1982E-5638-4CF7-B4CE-7B9B8196A07B}';
|
||||
RID_DatosBancariosDelta = '{F5A90B26-97EF-4730-8164-1ECA63E4BE5A}';
|
||||
RID_ContactosCategoriasDelta = '{BB21D733-E20E-4FED-9D3E-E6007E39F7A4}';
|
||||
RID_ClientesDelta = '{68FD887A-E411-4189-B72D-CEEA123B32DF}';
|
||||
RID_ProveedoresDelta = '{E31FA7A0-C7A9-4594-AE1F-AA6DAB8D0C89}';
|
||||
RID_EmpleadosDelta = '{298A72A9-DBFF-41C7-8113-2F4206C3F227}';
|
||||
RID_DireccionesContactoDelta = '{AF65A152-01A2-4079-8CE7-34C908AB7995}';
|
||||
RID_ClientesDescuentosDelta = '{FDB2FC33-EAF5-4A64-A426-A6547D0FB7C2}';
|
||||
RID_GruposProveedorDelta = '{04AED4E5-710B-4C23-88E5-EC69C8A9D7DF}';
|
||||
RID_GruposEmpleadoDelta = '{8EFD4F90-7636-4B3F-A6BE-B291E6A2F45C}';
|
||||
RID_ContactosDelta = '{AA1FED77-C1C8-4EA9-9B07-E74C63CBF307}';
|
||||
RID_GruposClienteDelta = '{4D46364E-1E11-4648-A9C7-AE4B81FB675C}';
|
||||
RID_DatosBancariosDelta = '{D4227F74-9431-45EA-8F09-20FFE80E34B1}';
|
||||
RID_ContactosCategoriasDelta = '{EB18171B-206D-4CFF-97FF-CB91350EAF4C}';
|
||||
RID_ClientesDelta = '{6C588001-84B7-4F1C-9C6B-84A254E1EA7D}';
|
||||
RID_ProveedoresDelta = '{168C19DE-0AD5-40CB-B737-628846E311FE}';
|
||||
RID_EmpleadosDelta = '{6544E069-D22D-49D4-AAFE-47DD92FA7744}';
|
||||
RID_DireccionesContactoDelta = '{D6123AD7-AA38-4AEF-9E89-E713C83A3DDC}';
|
||||
RID_ClientesDescuentosDelta = '{2E020115-E0E9-464F-B175-1BED0E2BF0B1}';
|
||||
RID_GruposProveedorDelta = '{14E46C85-BAAE-4A15-B868-EC579AF38A8A}';
|
||||
RID_GruposEmpleadoDelta = '{364591F3-D581-4104-9125-7CE465563DEB}';
|
||||
|
||||
type
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{8103D115-7646-40CF-9E38-B3EAE7AEF69B}']
|
||||
['{AA1FED77-C1C8-4EA9-9B07-E74C63CBF307}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -193,7 +193,7 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{FBF1982E-5638-4CF7-B4CE-7B9B8196A07B}']
|
||||
['{4D46364E-1E11-4648-A9C7-AE4B81FB675C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
@ -222,7 +222,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{F5A90B26-97EF-4730-8164-1ECA63E4BE5A}']
|
||||
['{D4227F74-9431-45EA-8F09-20FFE80E34B1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -293,7 +293,7 @@ type
|
||||
|
||||
{ IContactosCategoriasDelta }
|
||||
IContactosCategoriasDelta = interface(IContactosCategorias)
|
||||
['{BB21D733-E20E-4FED-9D3E-E6007E39F7A4}']
|
||||
['{EB18171B-206D-4CFF-97FF-CB91350EAF4C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -329,7 +329,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{68FD887A-E411-4189-B72D-CEEA123B32DF}']
|
||||
['{6C588001-84B7-4F1C-9C6B-84A254E1EA7D}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -568,7 +568,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{E31FA7A0-C7A9-4594-AE1F-AA6DAB8D0C89}']
|
||||
['{168C19DE-0AD5-40CB-B737-628846E311FE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -807,7 +807,7 @@ type
|
||||
|
||||
{ IEmpleadosDelta }
|
||||
IEmpleadosDelta = interface(IEmpleados)
|
||||
['{298A72A9-DBFF-41C7-8113-2F4206C3F227}']
|
||||
['{6544E069-D22D-49D4-AAFE-47DD92FA7744}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1025,7 +1025,7 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{AF65A152-01A2-4079-8CE7-34C908AB7995}']
|
||||
['{D6123AD7-AA38-4AEF-9E89-E713C83A3DDC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -1145,7 +1145,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{FDB2FC33-EAF5-4A64-A426-A6547D0FB7C2}']
|
||||
['{2E020115-E0E9-464F-B175-1BED0E2BF0B1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -1202,7 +1202,7 @@ type
|
||||
|
||||
{ IGruposProveedorDelta }
|
||||
IGruposProveedorDelta = interface(IGruposProveedor)
|
||||
['{04AED4E5-710B-4C23-88E5-EC69C8A9D7DF}']
|
||||
['{14E46C85-BAAE-4A15-B868-EC579AF38A8A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
@ -1231,7 +1231,7 @@ type
|
||||
|
||||
{ IGruposEmpleadoDelta }
|
||||
IGruposEmpleadoDelta = interface(IGruposEmpleado)
|
||||
['{8EFD4F90-7636-4B3F-A6BE-B291E6A2F45C}']
|
||||
['{364591F3-D581-4104-9125-7CE465563DEB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
|
||||
@ -59,12 +59,15 @@ begin
|
||||
ASchema := BusinessProcessor.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
||||
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_ContactosEmpresas');
|
||||
//En el caso de querer tener los contactos separados por empresas en lugar de tenerlos en común
|
||||
// ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_ContactoEmpresa');
|
||||
//En el caso de querer tener los contactos en común para todas las empresas
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_ContactoEmpresas');
|
||||
try
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('OLD_ID_CONTACTO').Value := aChange.OldValueByName[fld_ContactosID];
|
||||
ParamByName('OLD_ID_EMPRESA').Value := aChange.OldValueByName[fld_ContactosID_EMPRESA];
|
||||
// ParamByName('OLD_ID_EMPRESA').Value := aChange.OldValueByName[fld_ContactosID_EMPRESA];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
@ -81,12 +84,15 @@ begin
|
||||
ASchema := BusinessProcessor.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
||||
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_ContactosEmpresas');
|
||||
//En el caso de querer tener los contactos separados por empresas en lugar de tenerlos en común
|
||||
// ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_ContactoEmpresa');
|
||||
//En el caso de querer tener los contactos en común para todas las empresas
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_ContactoEmpresas');
|
||||
try
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('ID_CONTACTO').Value := aChange.NewValueByName[fld_ContactosID];
|
||||
ParamByName('ID_EMPRESA').Value := aChange.NewValueByName[fld_ContactosID_EMPRESA];
|
||||
// ParamByName('ID_EMPRESA').Value := aChange.NewValueByName[fld_ContactosID_EMPRESA];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
@ -115,7 +121,8 @@ begin
|
||||
ASchema := BusinessProcessor.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
||||
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Update_ContactosEmpresas');
|
||||
//En el caso update nos da igual lo que se quiera modificar así que se queda igual
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Update_ContactoEmpresa');
|
||||
try
|
||||
with ACommand do
|
||||
begin
|
||||
|
||||
@ -2981,13 +2981,6 @@ object srvContactos: TsrvContactos
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
@ -3000,22 +2993,15 @@ object srvContactos: TsrvContactos
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||
SQL =
|
||||
'INSERT'#10' INTO EMPRESAS_CONTACTOS'#10' (ID_EMPRESA, ID_CONTACTO)'#10' ' +
|
||||
' VALUES'#10' (:ID_EMPRESA, :ID_CONTACTO)'
|
||||
'INSERT INTO EMPRESAS_CONTACTOS'#10' (ID_EMPRESA, ID_CONTACTO)'#10#10'SE' +
|
||||
'LECT ID, :ID_CONTACTO'#10'FROM EMPRESAS'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Insert_ContactosEmpresas'
|
||||
Name = 'Insert_ContactoEmpresas'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'OLD_ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
@ -3028,12 +3014,12 @@ object srvContactos: TsrvContactos
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||
SQL =
|
||||
'DELETE '#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_EMPRESA = ' +
|
||||
':OLD_ID_EMPRESA) AND '#10' (ID_CONTACTO = :OLD_ID_CONTACTO)'
|
||||
'DELETE '#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_CONTACTO =' +
|
||||
' :OLD_ID_CONTACTO)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Delete_ContactosEmpresas'
|
||||
Name = 'Delete_ContactoEmpresas'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
@ -3076,7 +3062,7 @@ object srvContactos: TsrvContactos
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Update_ContactosEmpresas'
|
||||
Name = 'Update_ContactoEmpresa'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
@ -4080,6 +4066,62 @@ object srvContactos: TsrvContactos
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Update_EmpleadosDatos'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||
SQL =
|
||||
'INSERT'#10' INTO EMPRESAS_CONTACTOS'#10' (ID_EMPRESA, ID_CONTACTO)'#10' ' +
|
||||
' VALUES'#10' (:ID_EMPRESA, :ID_CONTACTO)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Insert_ContactoEmpresa'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'OLD_ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||
SQL =
|
||||
'DELETE '#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_EMPRESA = ' +
|
||||
':OLD_ID_EMPRESA) AND '#10' (ID_CONTACTO = :OLD_ID_CONTACTO)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Delete_ContactoEmpresa'
|
||||
end>
|
||||
RelationShips = <>
|
||||
UpdateRules = <
|
||||
@ -4952,10 +4994,10 @@ object srvContactos: TsrvContactos
|
||||
Top = 82
|
||||
DiagramData =
|
||||
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="Contactos" Left="223' +
|
||||
',77" Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="479,' +
|
||||
'77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" Left="' +
|
||||
'0,00" Top="26,50" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="ContactosCategorias"' +
|
||||
' Left="0,00" Top="26,50" />'#13#10' <Entity Name="DatosBancarios" L' +
|
||||
'eft="479,77" Top="0,00" />'#13#10' <Entity Name="Contactos" Left="2' +
|
||||
'23,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object bpContactos: TDABusinessProcessor
|
||||
Schema = schContactos
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
@ -181,7 +181,7 @@
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<ModelSupport>False</ModelSupport>
|
||||
<!-- EurekaLog First Line
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
|
||||
@ -43,10 +43,10 @@ uses
|
||||
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
|
||||
uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame},
|
||||
uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: TDataModule},
|
||||
uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule};
|
||||
uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user