unit srvGestorInformes_Impl;

{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading  }
{ the RODL file associated with this project .                               }
{                                                                            }
{ This is where you are supposed to code the implementation of your objects. }
{----------------------------------------------------------------------------}

interface

uses
  {vcl:} Classes, SysUtils,
  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
  {Ancestor Implementation:} DataAbstractService_Impl,
  {Used RODLs:} DataAbstract4_Intf,
  {Generated:}  uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
  uDAScriptingProvider, uDAClasses,
  FactuGES_Intf, uDAInterfaces, uDADataTable, uDAMemDataTable, uDABinAdapter;


const
  { Dataset names for Schema }
  ds_Employees = 'Employees';
  ds_Customers = 'Customers';
  ds_Regions = 'Regions';

type
  { TGestorInformes }
  TsrvGestorInformes = class(TDataAbstractService, IsrvGestorInformes)
    dtComboDataset: TDAMemDataTable;
    dtWindowsDir: TDAMemDataTable;
    Schema: TDASchema;
    Bin2DataStreamer: TDABin2DataStreamer;
    procedure DataAbstractServiceBeforeGetDatasetData(aSender: TObject;
      const aDataset: IDADataset; const aIncludeSchema: Boolean;
      const aMaxRecords: Integer);
    procedure DataAbstractServiceValidateDatasetAccess(Sender: TObject;
      const aConnection: IDAConnection; const aDatasetName: string;
      const aParamNames: array of string;
      const aParamValues: array of Variant; aSchema: TDASchema;
      var Allowed: Boolean);
  private
    procedure FillComboDataset(const aDataset: IDAEditableDataset);
    procedure FillWinDirDataset(const aDataset: IDAEditableDataset);

  public
    //MODULO PRESUPUESTOS CLIENTE
    function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

    //MODULO FACTURAS CLIENTE
    function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
    function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
    function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

    //MODULO RECIBOS CLIENTE
    function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
    function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

    //MODULO FACTURAS PROVEEDOR
    function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
    function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
    function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

    //MODULO RECIBOS PROVEEDOR
    function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
    function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
  end;

implementation

{$R *.dfm}
uses
  {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, Dialogs,
  uRptPresupuestosCliente_Server, uRptFacturasCliente_Server, uRptRecibosCliente_Server,
  uRptFacturasProveedor_Server, uRptRecibosProveedor_Server;

procedure Create_srvGestorInformes(out anInstance: IUnknown);
begin
  anInstance := TsrvGestorInformes.Create(nil);
end;

procedure TsrvGestorInformes.FillComboDataset(const aDataset: IDAEditableDataset);
var
  employees,
    customers,
    regions: IDADataset;
  textfield: TDAField;
begin
{
  with aDataset do begin
    // Opens the in memory data table
    Open;
    textfield := FieldByName('TextField');

    // Adds 3 dummy records
    Insert;
    textfield.AsString := 'String A';
    Post;

    Insert;
    textfield.AsString := 'String B';
    Post;

    Insert;
    textfield.AsString := 'String C';
    Post;

    // Fetches data from other datasets, according to the value of the parameter "CustomParameter"
    if (Pos('EMPLOYEES', UpperCase(ParamByName('CustomParameter').AsString)) > 0) then begin
      employees := Schema.NewDataset(Connection, ds_Employees, [], [], TRUE);
      while not employees.EOF do begin
        Insert;
        textfield.AsString := employees.FieldByName('FirstName').AsString + ' ' + employees.FieldByName('LastName').AsString;
        Post;

        employees.Next;
      end;
      employees:=nil;
    end;
    if (Pos('CUSTOMERS', UpperCase(ParamByName('CustomParameter').AsString)) > 0) then begin
      customers := Schema.NewDataset(Connection, ds_Customers, [], [], TRUE);
      while not customers.EOF do begin
        Insert;
        textfield.AsString := customers.FieldByName('CompanyName').AsString;
        Post;

        customers.Next;
      end;
      customers := nil;
    end;
    if (Pos('REGIONS', UpperCase(ParamByName('CustomParameter').AsString)) > 0) then begin
      regions := Schema.NewDataset(Connection, ds_Regions, [], [], TRUE);
      while not regions.EOF do begin
        Insert;
        textfield.AsString := regions.FieldByName('RegionDescription').AsString;
        Post;

        regions.Next;
      end;
      regions := nil;
    end;
  end;
}  
end;

procedure TsrvGestorInformes.FillWinDirDataset(const aDataset: IDAEditableDataset);
var
  dirinfo: TSearchRec;
begin
  aDataset.Open;
{
  if (FindFirst(IncludeTrailingPathDelimiter(aDataset.ParamByName('Directory').AsString) + '*.*', faArchive, dirinfo) = 0) then repeat
}
      aDataset.Insert;

      aDataset.FieldByName('FileName').AsString := 'hola';
      aDataset.FieldByName('FileSize').AsInteger := 10;

      aDataset.Post;
{
    until (FindNext(dirinfo) <> 0);
}    
end;

function TsrvGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptFacturasCliente;
begin
  AReportGenerator := TRptFacturasCliente.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeIVA(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer;
  const FechaInicio, FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
  const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptFacturasProveedor;
begin
  AReportGenerator := TRptFacturasProveedor.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeIVA(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer;
  const FechaInicio, FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
  const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptFacturasCliente;
begin
  AReportGenerator := TRptFacturasCliente.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

function TsrvGestorInformes.GenerarInformeListadoFacturasCliPendientes(
  const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
  const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
  const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptFacturasCliente;
begin
  AReportGenerator := TRptFacturasCliente.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

function TsrvGestorInformes.GenerarInformeListadoFacturasProv(
  const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
  const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
  const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptFacturasProveedor;
begin
  AReportGenerator := TRptFacturasProveedor.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

function TsrvGestorInformes.GenerarInformeListadoFacturasProvPendientes(
  const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
  const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
  const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptFacturasProveedor;
begin
  AReportGenerator := TRptFacturasProveedor.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

function TsrvGestorInformes.GenerarInformeListadoPresupuestos(
  const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
  const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
  const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptPresupuestosCliente;
begin
  AReportGenerator := TRptPresupuestosCliente.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeListadoPresupuestos(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

function TsrvGestorInformes.GenerarInformeListadoRecibosCliente(
  const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
  const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
  const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptRecibosCliente;
begin
  AReportGenerator := TRptRecibosCliente.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

function TsrvGestorInformes.GenerarInformeListadoRecibosCliPendientes(
  const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
  const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
  const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptRecibosCliente;
begin
  AReportGenerator := TRptRecibosCliente.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

function TsrvGestorInformes.GenerarInformeListadoRecibosProveedor(
  const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
  const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
  const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptRecibosProveedor;
begin
  AReportGenerator := TRptRecibosProveedor.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

function TsrvGestorInformes.GenerarInformeListadoRecibosProvPendientes(
  const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
  const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
  const ImporteMinimo: Currency): Binary;
var
  AReportGenerator : TRptRecibosProveedor;
begin
  AReportGenerator := TRptRecibosProveedor.Create(nil);
  try
    Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
  finally
    FreeAndNIL(AReportGenerator);
  end;
end;

procedure TsrvGestorInformes.DataAbstractServiceBeforeGetDatasetData(
  aSender: TObject; const aDataset: IDADataset;
  const aIncludeSchema: Boolean; const aMaxRecords: Integer);
begin
  if SameText(aDataset.LogicalName, dtComboDataset.LogicalName) then
    FillComboDataset((dtComboDataset as IDAEditableDataset))
  else if SameText(aDataset.LogicalName, dtWindowsDir.LogicalName) then
    FillWinDirDataset((dtWindowsDir as IDAEditableDataset));
end;

procedure TsrvGestorInformes.DataAbstractServiceValidateDatasetAccess(
  Sender: TObject; const aConnection: IDAConnection;
  const aDatasetName: string; const aParamNames: array of string;
  const aParamValues: array of Variant; aSchema: TDASchema;
  var Allowed: Boolean);

  procedure FillParameters(aDataSet: TDAMemDataTable);
  var
    i: integer;
  begin
    for i := Low(aParamNames) to High(aParamNames) do
    begin
      showmessage(aParamValues[i]);
      aDataset.ParamByName(aParamNames[i]).Value := aParamValues[i];
    end;
  end;

begin
  if SameText(aDatasetName, dtComboDataset.LogicalName) then
    FillParameters(dtComboDataset)
  else if SameText(aDatasetName, dtWindowsDir.LogicalName) then
    FillParameters(dtWindowsDir)
end;

initialization
  TROClassFactory.Create('srvGestorInformes', Create_srvGestorInformes, TsrvGestorInformes_Invoker);

finalization

end.

