Jump to content
Notícias do ACBr

click.png

click.png

click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

click.png

click.png

click.png

Acbr Delphi Berlin 10.1


DSilva
  • Este tópico foi criado há 1588 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

Ola, amigos to precisando de uma ajudinha, apos instalar todos os components do Acbr pelo instalador no Delphi berlin 10.1

ao compilar a minha aplicação, esta dando um erro da Unit ACBrD5, quando removo da minha uses ai compila, porem tenho umas function que esta la, e uso, sabem o porque disso?

agradeço a ajuda.

obrigado.

Link to comment
Share on other sites

  • Consultores

Boa tarde

não lembro de ter essa unit ainda no trunk2!

 

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • Fundadores

Você deve ter algum arquivo ACBr.inc, no SourcePath, que está muito antigo, e não é o utilizado pelo projeto...

Essa Unit somente seria compilada se o Delphi for inferior a D6... Veja em ACBrUti.pas

    {$IfDef COMPILER6_UP} ,StrUtils, DateUtils {$Else} ,ACBrD5, FileCtrl {$EndIf}  

 

  • Like 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link to comment
Share on other sites

  • 2 weeks later...
  • Moderadores

A unit ACBrD5 só é pra ser usada para quem utiliza Delphi menor q a versão 6, ou seja, esta unit não é compatível com Delphi Berlim.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link to comment
Share on other sites

  • Consultores

Acho que seu problema pode estar em ter em algum lugar as units citadas acimas!

veja se na pasta de seu projeto ou em outro lugar não esteja usando.

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • Fundadores

Verifique se alguma Unit do seu sistema está invocando a ACBrD5.pas...

Se os fontes do ACBr estão atualizados corretamente, e o ACBr.inc está correto, então os fontes do ACBr irão ignorar a ACBrD5.pas

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link to comment
Share on other sites

Blz, realmente tinha o ACBrD5 em algusn dos meu fontes, removi da uses, porem ao compilar meu projeto apareceu erro nessa funçao

                         Fim := IncSecond(now,3);
                         repeat
                             Sleep(100);
                             Application.ProcessMessages;
                         until (now > Fim);
nem lembrava que eu tava utilizando, o que devo fazer ? existe outra forma de usar ?

Link to comment
Share on other sites

  • Consultores

Que função é essa? O que ela faz?

[]'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.
Link to comment
Share on other sites

componente do tef

procedure TForm1.ACBrTEFD1ExibeMsg(Operacao : TACBrTEFDOperacaoMensagem;
   Mensagem : String; var AModalResult : TModalResult);
var
   Fim : TDateTime;
   OldMensagem : String;
begin
  StatusBar1.Panels[1].Text := '' ;
  StatusBar1.Panels[2].Text := '' ;

  case Operacao of

    opmOK :
       AModalResult := MessageDlg( Mensagem, mtInformation, [mbOK], 0);

    opmYesNo :
       AModalResult := MessageDlg( Mensagem, mtConfirmation, [mbYes,mbNo], 0);

    opmExibirMsgOperador, opmRemoverMsgOperador :
         lMensagemOperador.Caption := Mensagem ;

    opmExibirMsgCliente, opmRemoverMsgCliente :
         lMensagemCliente.Caption := Mensagem ;

    opmDestaqueVia :
       begin
         OldMensagem := lMensagemOperador.Caption ;
         try
            lMensagemOperador.Caption := Mensagem ;
            pMensagemOperador.Visible := True ;
            pMensagem.Visible         := True ;

            { Aguardando 3 segundos }
            Fim := IncSecond( now, 3)  ;
            repeat
               sleep(200) ;
               lMensagemOperador.Caption := Mensagem + ' ' + IntToStr(SecondsBetween(Fim,now));
               Application.ProcessMessages;
            until (now > Fim) ;

         finally
            lMensagemOperador.Caption := OldMensagem ;
         end;
       end;
  end;

  pMensagemOperador.Visible := (lMensagemOperador.Caption <> '') ;
  pMensagemCliente.Visible  := (lMensagemCliente.Caption <> '') ;

  pMensagem.Visible := pMensagemOperador.Visible or pMensagemCliente.Visible;
  Application.ProcessMessages;
end;

 

Link to comment
Share on other sites

  • Consultores
3 minutos atrás, Daniel Simoes disse:

IncSecond, no Lazarus, pertence a DateUtils.pas

No Delphi também é isso. Basta o DSilva adicionar na uses a unit DateUtils.

[]'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.
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.