Jump to content

Promoção de Natal SAC Mensal

Contrate e ganhe 1 Kit agenda + Caneta
Saiba mais

LANÇAMENTO
Curso Completo - Dominando o ACBrMonitor

Conheça o Curso

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Luelto Lucio

Erro "Token unknown" ao executar procedure.

Recommended Posts

Olá, estou com este erro ao executa a procedure abaixo,

procedure TFrmConsProd.BtnOkClick(Sender: TObject);
var sLiga : string;

begin


  sLiga:= 'WHERE';

   if EdtCons.Visible then
      sAuxString:= trim(EdtCons.Text);

   if dm.IBTransaction.Active then
      dm.IBTransaction.Commit;
   dm.IBTransaction.StartTransaction;
   with dm.QProd do
      begin
         close;
         sql.Clear;
         sql.Text:= sSql;
         if ComboClassif.ItemIndex > 0 then
            begin
               sql.add('WHERE P.CODIGO_TIPO = :CODTIPO');
               parambyname('codtipo').AsInteger:= strtoint(copy(ComboClassif.Text, 2, 2));
               sLiga:= 'AND';
            end;
         if RdgAtivo.ItemIndex = 0 then
            begin
               sql.add(sLiga + ' P.ATIVO_PRO = ' + #39 + 'S' + #39);
               sLiga:= 'AND';
            end
         else
            if RdgAtivo.ItemIndex = 1 then
               begin
                  sql.add(sLiga + 'P.ATIVO_PRO = ' + #39 + 'N' + #39);
                  sLiga:= 'AND';
               end;

         case combocons.ItemIndex of
           0:begin
                if EdtCons.Text = '' then
                   sql.add(' ORDER BY P.COD_PRO')
                else
                   sql.add(sLiga + ' COD_PRO = ' + edtcons.Text);
             end;
           1:sql.add(sLiga +  ' P.NOME_PRO LIKE ' + #39 + edtcons.Text + '%' + #39 + ' ORDER BY NOME_PRO');
           2:sql.add(sLiga +  ' P.REFERENCIA_PRO LIKE ' + #39 + edtcons.Text + #39);
           3:sql.add(sLiga +  ' P.CODIGO_BARRA_PRO LIKE ' + #39 + trim(edtcons.Text) + #39);
           4:begin
                if trim(EdtCod.Text) = '' then
                   begin
                      showmessage('Digite o código do fabricante');
                      EdtCod.SetFocus;
                      exit;
                   end;
                sql.add(sLiga +  ' P.COD_LAB = ' + edtcod.Text + ' ORDER BY P.NOME_PRO');
                open;
             end;
           5:begin
                if trim(EdtCod.Text) = '' then
                   begin
                      showmessage('Digite o código da seção');
                      EdtCod.SetFocus;
                      exit;
                   end;
                sql.Add(sLiga + ' P.COD_SEC = ' + edtcod.Text + ' ORDER BY P.NOME_PRO');
             end;
           6:sql.add(sLiga +  ' P.NOME_PRO LIKE ' + #39 + '%' + EdtCons.Text + '%' + #39 + ' ORDER BY NOME_PRO');
         end;
         Parambyname('codemp').AsInteger:= iEmp;
         open;
      end;
   dbgrid.SetFocus;
end;

VirtualBox.png

Share this post


Link to post
Share on other sites

Sem saber exatamente qual o seu SQL fica difícil opinar. Tente o que o Breno sugeriu acima.


[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.

Share this post


Link to post
Share on other sites

Obrigado pela atenção, esse erro acontece quando eu dor entrada em uma nota vai XML e logo apois eu tento consulta o produto, tenho que fecha toda a aplicação e abrir novamente para a consulta funcionar, estão na sei por onde começo pela query de consulta ou de cadastro de produtos.

Obs.; peso desculpas pois estou começando.

Share this post


Link to post
Share on other sites
Em 07/09/2019 at 23:46, Luelto Lucio disse:

brigado pela atenção, esse erro acontece quando eu dor entrada em uma nota vai XML e logo apois eu tento consulta o produto, tenho que fecha toda a aplicação e abrir novamente para a consulta funcionar, estão na sei por onde começo pela query de consulta ou de cadastro de produtos.

Faz o Debug pra descobrir exatamente onde o erro está sendo levantado. A partir daí você analisa em que contexto o erro está sendo levantado.

  • Like 1

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...