5 Replies Latest reply: Sep 11, 2012 9:01 AM by Thiago das Chagas cunha RSS

    Selecionar Campos e parametrizar

    Thiago das Chagas cunha

      Boa tarde  Pessoal

       

       

      Me pediram apra fazer um coisa aqui que nunca fiz :
      criar um lista com Alguns campos que possuo no qvd....ja tentei usando fields mas trouxe tudo.

        • Re: Selecionar Campos e parametrizar
          Fernando Tonial

          Olá Thiago,

           

          Tenho esse script que busca todos os campos de um arquivo QVD, pode ser oq vc quer.

           

          //Lista das tabelas Fatos envolvidas no projeto
          TMPFato:
          First 1
          LOAD FileBaseName() AS TMPNomeFato FROM $(vDadosExtraidos)FAT*.qvd (qvd);
          
          
          Fato:
          LOAD Concat(Chr(39)&TMPNomeFato&Chr(39),',') as NomeFato Resident TMPFato;
          
          
          LET vFatos = Peek('NomeFato');
          
          
          DROP Tables TMPFato, Fato;
          
          
          //Laço para leitura de todas as fatos informadas na tabela
          FOR Each vNomeFato in $(vFatos)
                    LET vNroCamposFato = QvdNoOfFields('$(vDadosExtraidos)$(vNomeFato).qvd');
          //          LET vNomeFato1 = QvdTableName ('$(vNomeFato).qvd');
          
          
                    //Laço para leitura de todos os campos das fatos 
                    FOR c=1 to vNroCamposFato
                              LET vCampo = QvdFieldName('$(vDadosExtraidos)$(vNomeFato).qvd',$(c));
                              FatoCampos:
                              LOAD
                                        '$(vNomeFato)'           AS Fato,
                                        '$(vCampo)'               AS FatCampo
                              AutoGenerate(1);
                    NEXT c
          NEXT vNomeFato
          
          

           

          Abraços,

           

          Tonial.