SCRIPT (IN Filtro VARCHAR)
BEGIN
  DECLARE Sql1 VARCHAR;
  DECLARE SqlSt STATEMENT;
      
  -- Tablela temporária com pré-selecção dos documentos
  SET Sql1 = '
  CREATE TEMPORARY TABLE "Tmp_LisCompras_Com" AS
    SELECT
    TipoDoc, NumReg, CodFornecedor, Nome, CodPais, NumDoc, DataDoc, DataVencimento, CodMoeda, Cambio, ValorTotal, TotalTaxas, DescontoFin, Total, TotalAPagar,  
    TD.DescricaoPlural as DescTipoDoc, TD.Movimento, P.UE
  FROM
    ComCab C 
    LEFT OUTER JOIN TiposDoc TD ON TD.TipoDoc=C.TipoDoc 
    LEFT OUTER JOIN Paises P ON P.CodPais=C.CodPais
  ' ;
  IF COALESCE(Filtro, '') <> '' THEN
    SET Sql1 = Sql1 + ' WHERE ' + Filtro;
  END IF;                
  EXECUTE IMMEDIATE Sql1 + ' WITH DATA';
  EXECUTE IMMEDIATE 'CREATE INDEX idx_TipoCom ON Tmp_LisCompras_Com (TipoDoc, NumReg)';
  EXECUTE IMMEDIATE 'CREATE INDEX idx_CodFornecedor ON Tmp_LisCompras_Com (CodFornecedor, TipoDoc, NumReg)';

  -- Tabela temporária com ivas por taxas dos documentos seleccionados

  SET Sql1 = '
  CREATE TEMPORARY TABLE "Tmp_LisCompras_Iva" AS
  SELECT 
    * 
  FROM 
    ComIva I
  WHERE
    EXISTS(SELECT NumReg FROM Tmp_LisCompras_Com C WHERE (C.TipoDoc, C.NumReg) = (I.TipoDoc, I.NumReg) )
  WITH DATA
  ' ;

  EXECUTE IMMEDIATE Sql1 ;

  EXECUTE IMMEDIATE
    'CREATE INDEX idx_TipoCom ON Tmp_LisCompras_Iva ("TipoDoc", "NumReg", "CodIva", "PctIva")';

END