roberto
3231456ade
Peticiones relacionadas Tareas #1071: En el informe de recibo de cliente poder sacar el número de cuenta del cliente para llebar al banco Tareas #1168: Los empleados en la empresa sólo pueden ser los de esa empresa Tareas #1169: Las referencias de los empleados debe de ser a nivel de empresa Tareas #1171: En todos los informes de Azacan quitar el título porque redunda Tareas #1177: Incluir el sello de azacan en la firma de los pedidos a proveedor git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1075 0c75b7a4-871f-7646-8a2f-f78d34cc349f
139 lines
5.0 KiB
ObjectPascal
139 lines
5.0 KiB
ObjectPascal
unit uBizEmpleadosServer;
|
|
|
|
interface
|
|
|
|
uses
|
|
schContactosServer_Intf, uDAInterfaces, uDADelta,
|
|
uDADataTable, uDABusinessProcessor, uBizContactosServer;
|
|
|
|
const
|
|
BIZ_SERVER_EMPLEADO = 'Server.Empleado';
|
|
|
|
type
|
|
TBizEmpleadoServer = class(TBizContactosServer)
|
|
protected
|
|
function DarReferenciaContacto : String; override;
|
|
function IncrementarReferenciaContacto : Boolean; override;
|
|
|
|
procedure Insert_Datos_Contacto(aChange: TDADeltaChange); override;
|
|
procedure Update_Datos_Contacto(aChange: TDADeltaChange); override;
|
|
procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uDataModuleServer, uDAClasses,
|
|
schContactosClient_Intf, uBusinessUtils;
|
|
|
|
const
|
|
REF_EMPLEADOS = 'REF_EMPLEADOS';
|
|
|
|
{ TBizEmpleadoServer }
|
|
|
|
function TBizEmpleadoServer.DarReferenciaContacto: String;
|
|
begin
|
|
Result := _DarReferenciaInterna(REF_EMPLEADOS, ID_EMPRESA)
|
|
end;
|
|
|
|
procedure TBizEmpleadoServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
|
|
var
|
|
ASchema : TDASchema;
|
|
ACurrentConn : IDAConnection;
|
|
ACommand : IDASQLCommand;
|
|
begin
|
|
inherited;
|
|
|
|
ASchema := BusinessProcessor.Schema;
|
|
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
|
|
|
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_EmpleadosDatos');
|
|
try
|
|
with ACommand do
|
|
begin
|
|
ParamByName('OLD_ID_EMPLEADO').Value := aChange.OldValueByName[fld_EmpleadosID];
|
|
Execute;
|
|
end;
|
|
finally
|
|
ACommand := NIL;
|
|
end;
|
|
end;
|
|
|
|
function TBizEmpleadoServer.IncrementarReferenciaContacto: Boolean;
|
|
begin
|
|
Result := _IncrementarReferenciaInterna(REF_EMPLEADOS, ID_EMPRESA)
|
|
end;
|
|
|
|
procedure TBizEmpleadoServer.Insert_Datos_Contacto(aChange: TDADeltaChange);
|
|
var
|
|
ASchema : TDASchema;
|
|
ACurrentConn : IDAConnection;
|
|
ACommand : IDASQLCommand;
|
|
begin
|
|
inherited;
|
|
|
|
ASchema := BusinessProcessor.Schema;
|
|
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
|
|
|
ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_EmpleadosDatos');
|
|
try
|
|
with ACommand do
|
|
begin
|
|
ParamByName('ID_EMPLEADO').Value := aChange.NewValueByName[fld_EmpleadosID];
|
|
ParamByName('FECHA_NACIMIENTO').Value := aChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO];
|
|
ParamByName('CATEGORIA').Value := aChange.NewValueByName[fld_EmpleadosCATEGORIA];
|
|
ParamByName('FECHA_ALTA_EMPRESA').Value := aChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA];
|
|
ParamByName('FORMACION_BASE').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_BASE];
|
|
ParamByName('FORMACION_COMPLE').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE];
|
|
ParamByName('FORMACION_RECIBIDA').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
|
|
ParamByName('EXPERIENCIA').Value := aChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
|
|
ParamByName('CONTRATO').Value := aChange.NewValueByName[fld_EmpleadosCONTRATO];
|
|
ParamByName('DURACION').Value := aChange.NewValueByName[fld_EmpleadosDURACION];
|
|
ParamByName('FECHA_BAJA').Value := aChange.NewValueByName[fld_EmpleadosFECHA_BAJA];
|
|
ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_EmpleadosCAUSA_BAJA];
|
|
Execute;
|
|
end;
|
|
finally
|
|
ACommand := NIL;
|
|
end;
|
|
end;
|
|
|
|
procedure TBizEmpleadoServer.Update_Datos_Contacto(aChange: TDADeltaChange);
|
|
var
|
|
ASchema : TDASchema;
|
|
ACurrentConn : IDAConnection;
|
|
ACommand : IDASQLCommand;
|
|
begin
|
|
inherited;
|
|
|
|
ASchema := BusinessProcessor.Schema;
|
|
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
|
|
|
ACommand := ASchema.NewCommand(ACurrentConn, 'Update_EmpleadosDatos');
|
|
try
|
|
with ACommand do
|
|
begin
|
|
ParamByName('OLD_ID_EMPLEADO').Value := aChange.OldValueByName[fld_EmpleadosID];
|
|
ParamByName('FECHA_NACIMIENTO').Value := aChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO];
|
|
ParamByName('CATEGORIA').Value := aChange.NewValueByName[fld_EmpleadosCATEGORIA];
|
|
ParamByName('FECHA_ALTA_EMPRESA').Value := aChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA];
|
|
ParamByName('FORMACION_BASE').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_BASE];
|
|
ParamByName('FORMACION_COMPLE').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE];
|
|
ParamByName('FORMACION_RECIBIDA').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
|
|
ParamByName('EXPERIENCIA').Value := aChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
|
|
ParamByName('CONTRATO').Value := aChange.NewValueByName[fld_EmpleadosCONTRATO];
|
|
ParamByName('DURACION').Value := aChange.NewValueByName[fld_EmpleadosDURACION];
|
|
ParamByName('FECHA_BAJA').Value := aChange.NewValueByName[fld_EmpleadosFECHA_BAJA];
|
|
ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_EmpleadosCAUSA_BAJA];
|
|
Execute;
|
|
end;
|
|
finally
|
|
ACommand := NIL;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(BIZ_SERVER_EMPLEADO, TBizEmpleadoServer);
|
|
|
|
end.
|