unit uBizComercialesServer;

interface

uses
  schContactosServer_Intf, uDAInterfaces, uDADelta,
  uDADataTable, uDABusinessProcessor, uBizContactosServer;

const
  BIZ_SERVER_COMERCIAL = 'Server.Comercial';

type
  TBizComercialServer = class(TBizContactosServer)
  protected
    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;

{ TBizComercialServer }

procedure TBizComercialServer.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_ComercialesDatos');
  try
    with ACommand do
    begin
      ParamByName('OLD_ID_COMERCIAL').Value := aChange.OldValueByName[fld_ComercialesID];
      Execute;
    end;
  finally
    ACommand := NIL;
  end;
end;

procedure TBizComercialServer.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_ComercialesDatos');
  try
    with ACommand do
    begin
      ParamByName('ID_COMERCIAL').Value := aChange.NewValueByName[fld_ComercialesID];
      ParamByName('COMISION').Value := aChange.NewValueByName[fld_ComercialesCOMISION];
      ParamByName('DELEGACION').Value := aChange.NewValueByName[fld_ComercialesDELEGACION];
      ParamByName('FECHA_ALTA_EMPRESA').Value := aChange.NewValueByName[fld_ComercialesFECHA_ALTA_EMPRESA];
      ParamByName('FECHA_BAJA').Value := aChange.NewValueByName[fld_ComercialesFECHA_BAJA];
      ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_ComercialesCAUSA_BAJA];
      Execute;
    end;
  finally
    ACommand := NIL;
  end;
end;

procedure TBizComercialServer.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_ComercialesDatos');
  try
    with ACommand do
    begin
      ParamByName('OLD_ID_COMERCIAL').Value := aChange.OldValueByName[fld_ComercialesID];
      ParamByName('COMISION').Value := aChange.NewValueByName[fld_ComercialesCOMISION];
      ParamByName('DELEGACION').Value := aChange.NewValueByName[fld_ComercialesDELEGACION];
      ParamByName('FECHA_ALTA_EMPRESA').Value := aChange.NewValueByName[fld_ComercialesFECHA_ALTA_EMPRESA];
      ParamByName('FECHA_BAJA').Value := aChange.NewValueByName[fld_ComercialesFECHA_BAJA];
      ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_ComercialesCAUSA_BAJA];
      Execute;
    end;
  finally
    ACommand := NIL;
  end;
end;

initialization
  RegisterBusinessProcessorRules(BIZ_SERVER_Comercial, TBizComercialServer);

end.