3 Replies Latest reply: Mar 1, 2018 4:16 PM by Mario Sergio Medeiros Soares RSS

    Dados vindo do excel iguais

    Marcel Vinícius de Oliveira

      Amigos,

       

      Registrei dois dias atras uma duvida que estava buscando somente um dado de um planilha, sendo que precisava vir de varias.

       

      Aquele dado esta ok, porém a coluna "Valores" ta buscando somente da primeira planilha, oque ainda posso estar errando?

       

      //EXEMPLO DE CROSSTABLE

      //TRANSFORMAR AS COLUNAS EM LINHAS

      Realizado_aux:

      Crosstable(Mes, Valores,2)

      LOAD

          F1,

          CONTAS,

          JAN,

          FEV,

          MAR,

          ABR,

          MAI,

          JUN,

          JUL,

          AGO,

          "SET",

          OUT,

          NOV,

          DEZ

      FROM [lib://Realizado/DEF Caminhões*.xls]

      (biff, embedded labels, header is 2 lines, table is Novos$);

       

       

      //EXEMPLO PARA PEGAR O NOME DA EMPRESA

       

      Tabelas:

      LOAD Distinct

          FileName()    as Tabelas

        FROM [lib://Realizado/DEF Caminhões*.xls]

      (biff, no labels, table is Novos$);

       

       

      LET vQtdArquito = FieldValueCount('Tabelas');

       

       

      For vCiclo = 1 to vQtdArquito

      LET vNomeTabela = FieldValue('Tabelas',vCiclo);

       

       

      //LEFT JOIN(Realizado_aux)

      LET vNomeTabela = FieldValue('Tabelas',vCiclo);

       

        Tabela_Base:

        First 1

        LOAD

          @1 AS Empresa,

          FileName()    as NomeArquivo

        FROM [lib://Realizado/$(vNomeTabela)]

      (biff, no labels, table is Novos$);

       

      Next

       

       

      LEFT JOIN(Realizado_aux)

      //NoConcatenate

       

       

      Load * Resident Tabela_Base;

       

       

      Drop Tables Tabelas,Tabela_Base;

       

       

      // First 1

      // LOAD

       

       

      // // RowNo() as Row,

      //     @1 AS Empresa,

      //    FileName() as nomeArquivo

      // FROM [lib://Realizado/DEF Caminhões*.xls]

      // (biff, no labels, table is Novos$)

      // ;

       

       

      Realizado:

      LOAD

      Mes,

          $(vrAno) AS Ano,

      F1 AS Ordem,

          CONTAS AS Contas,

          'Novos' AS Tipo,

          Empresa,

          Valores,

          NomeArquivo

      Resident  Realizado_aux; 

       

       

      STORE Realizado INTO [lib://Arquivos QVD/Realizado_Novos_$(vrAno).qvd];

       

       

      drop table Realizado_aux;

       

       

      //Drop table Realizado;

        • Re: Dados vindo do excel iguais
          Mario Sergio Medeiros Soares

          Amigo, segue:

           

          vrAno = 2017;//year(today());
          
          Realizado_aux:
          Crosstable(Mes, Valores,3)
          LOAD
              FileName()  As NomeArquivo,
              F1,
              CONTAS,
              JAN,
              FEV,
              MAR,
              ABR,
              MAI,
              JUN,
              JUL,
              AGO,
              "SET",
              OUT,
              NOV,
              DEZ
          FROM [lib://Realizado/DEF Caminhões*.xls]
          (biff, embedded labels, header is 2 lines, table is Novos$);
          
          Tabelas:
          LOAD Distinct
              FileName()    as Tabelas
          FROM [lib://Realizado/DEF Caminhões*.xls](biff, no labels, table is Novos$);
          
          LET vQtdArquito = FieldValueCount('Tabelas');
          
          For vCiclo = 1 to vQtdArquito
          LET vNomeTabela = FieldValue('Tabelas',vCiclo);
          
            Tabela_Base:
            First 1
            LOAD
              @1  AS Empresa,
              FileName()    as NomeArquivo
            FROM [lib://Realizado/$(vNomeTabela)](biff, no labels, table is Novos$);
             
          Next
          
          Drop Table Tabelas;
          
          LEFT JOIN(Realizado_aux)
          Load * Resident Tabela_Base;
          
          Drop Tables Tabela_Base;
          
          NoConcatenate
          Realizado:
          LOAD
              Mes,
              $(vrAno)        AS Ano,
              F1          AS Ordem,
              CONTAS        AS Contas,
              'Novos'        AS Tipo,
              Empresa,
              Valores,
              NomeArquivo
          Resident  Realizado_aux; 
          
          STORE Realizado INTO [lib://Arquivos QVD/Realizado_Novos_$(vrAno).qvd];
          
          drop table Realizado_aux;