SqlPesqprod

   FPesquisaProd.SQL.Text   :=  'select ID, DATA, HORA, USUARIO, COMPRA_DATAULTCOMPRA, COMPRA_CHAVENFEULTCOMPRA, COMPRA_NNFECOMPRA, '+
   'COMPRA_ULTQUTCOMPRADA, COMPRA_VLUNULTIMACOMPRA, CAD_CEAN13, CAD_CEAN13FISCAL, CAD_REFERENCIA, CAD_LOTE, '+
    'CAD_VALIDADE, CAD_FOTO, CAD_NOMEDOPROD, CAD_NOMECOMPLDOPROD, CAD_FORNECEDORDOPROD, CAD_IEFORNECEDORPROD, '+
     'CAD_IDFORNECEDORPROD, CAD_MARCACOMERCIAL, CAD_IDMARCACOMERCIAL, CAD_GRUPODOPROD, CAD_IDGRUPODOPROD, '+
      'CAD_SUBGRUPODOPROD, CAD_IDSUBGRUPODOPROD, CAD_DIVISAODOPROD, CAD_IDDIVISAODOPROD, CAD_PESOLIQ, CAD_PESOBRT, '+
       'CAD_TAMANHO, CAD_COR, ENTR_NCM, ENTR_CEST, ENTR_VLUNCOMPRA, ENTR_PCTICMS, ENTR_ICMSVALOR, ENTR_MVAPCT, '+
        'ENTR_IVAST, ENTR_IPIPCT, ENTR_IPIVALOR, ENTR_FRETEVALOR, ENTR_DIFICMSVALOR, ENTR_OUTROSVALOR, ENTR_UNCOMPRA, '+
         'ENTR_CST, ENTR_CFOP, ENTR_PISVALOR, ENTR_PISCST, ENTR_COFINSVALOR, ENTR_COFINSCST, ENTR_CUSTOFINAL, '+
          'SAID_TRIBUTACAO, SAID_TRIBUTACAOALIQ, SAID_CST, SAID_CFOP, SAID_CSTPIS, SAID_PISALIQ, SAID_CSTCOFINS, '+
           'SAID_COFINSALIQ, SAID_STMVAALIQ, SAID_STIVASTVALOR, SAID_MKP, SAID_LUCROVALOR, SAID_VLVENDA, SAID_UNVENDA, '+
            'ESTQ_ATIVO, ESTQ_INATIVO, ESTQ_TOTAL, ESTQ_MINIMO, FIN_FINALIDADE, FIN_COMPRADE, SIT_SITUACAO, '+
             'SAID_DESCONTOPADRAO, SAID_PCTCOMISSAO, OBSERVACAO, ENTR_DESCONTOS, ENTR_REDICMS, CAD_SERIALNUMBER, ENTR_BCICMS, '+
              'ENTR_BCICMSINTER, ENTR_VLICMSINTER, ENTR_BCICMSST, ENTR_PCTREDICMS, ENTR_BCREDICMS, FORN_CNPJ, COMPRA_MKPFIXO, '+
               'CAD_CODADIC, ENTR_CFOPCIN, ENTR_CFOPCOUT, ENTR_SEGUROS, ENTR_PERCPIS, ENTR_COFINSALIQ, ENTR_COFINSSTVALOR, '+
                'ENTR_COFINSSTPCT, ENTR_IPICST, ENTR_IPICLENQ, ENTR_IPICENQ, ENTR_IPICNPJPROD, ENTR_IPIQSELO, ENTR_IPICSELO, '+
                 'ENTR_ICMSORIG, ENTR_ICMSCST, ENTR_ICMSCSOSN, ENTR_ICMSMODBC, CAD_PESAVELNOCAIXA, CAD_ENTRACARGABAL, '+
                  'CAD_VENDAPROIBIDAMEN, CAD_QUTPROMO, SAID_PRECOPROMO, SAID_CFOPEXT, ENTR_ICMSSTPICMSST, ENTR_ICMSSTPREDBCST, '+
                   'ENTR_ICMSSTVBCSTRET, ENTR_VICMSSTRET, ENTR_PCREDSN, ENTR_VCREDICMSSN, ENTR_PBCOP, ENTR_MOTDESICMS, '+
                    'ENTR_VBCSTDEST, ENTR_VICMSSTDEST, ENTR_VICMSDESON, ENTR_VICMSOP, ENTR_PDIF, ENTR_VICMSDIF, ENTR_QUTCOMPRADA, '+
                     'SAID_QUTATACADO, SAID_VLATACADO, SAID_DTINIPROMO, SAID_DTFIMPROMO, SAID_QUTPROMO, N17B_PFCP, N17C_VFCP, '+
                      'ID_ENTRADANOTAS, ENTR_PPIS, ENTR_PISVBC, ENTR_PISQBCPROD, ENTR_PISVALIQPROD, ENTR_PISST_VBC, ENTR_PISST_PPIS, '+
                       'ENTR_PISST_VPIS, ENTR_PISST_QBCPROD, ENTR_PISST_VALIQPROD, ENTR_COFINS_VBC, ENTR_COFINS_VBCPROD, '+
                        'ENTR_COFINS_VALIQPROD, ENTR_COFINS_QBCPROD, ETQ_CHK, PESO_NETO, IBPX_TFNACIONAL, IBPX_TFIMPORTADO, '+
                         'IBPTX_ESTADUAL, IBPTX_MUINICIPAL, ETQ_PONTOPEDIDO, ETQ_MARGEMEQUIL '+
                          'from CADPRODUTOS where CAD_NOMEDOPROD like :CAD_NOMEDOPROD  '+
                          ' and  CAD_CEAN13 like :CAD_CEAN13  '+
                          ' and  COALESCE(CAD_REFERENCIA,''N/A'') like :CAD_REFERENCIA '+
                          ' and coalesce(CAD_TAMANHO,''n/a'' ) like :CAD_TAMANHO '+
                          ' and coalesce(CAD_COR, ''n/a'') like :CAD_COR '+
                          ' order by CAD_NOMEDOPROD  ';

  FPesquisaProd.ParamByName('CAD_NOMEDOPROD').AsString := '%'+CAD_NOMEDOPROD+'%';
  FPesquisaProd.ParamByName('CAD_CEAN13').AsString := '%'+CAD_CEAN13+'%';
  FPesquisaProd.ParamByName('CAD_REFERENCIA').AsString := '%'+CAD_REFERENCIA+'%';
  FPesquisaProd.ParamByName('CAD_TAMANHO').AsString := '%'+CAD_TAMANHO+'%';
  FPesquisaProd.ParamByName('CAD_COR').AsString := '%'+CAD_COR+'%';