Jump to content

dev botao

Alteração Acbrutil - Nova Função // Acbrspedfiscal - Uso Da Função


i-master
Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 4130 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

ACBrSpedFiscal - Uso da nova função. Melhorar a resposta de erro ao usuário.

  if (Trim(FArquivo) = '') or (Trim(FPath) = '') then
    raise Exception.Create(ACBrStr(IIF(Trim(FPath)='','Caminho não informado!','Nome do arquivo não informado!')));

ACBrUtil - Nova função

function IIF(_Condicao: Boolean; _True, _False: Variant): Variant;
{:: IIF - Condicional iif(x,y,z) ::Adolfo Jefferson 01/01/2009 18:54:12 ::}
begin
  if _Condicao then
    Result := _True
  else
    Result := _False;
end;

ACBrUtil.pas

ACBrSpedFiscal.pas

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link to comment
Share on other sites

  • Consultores

Já existe a função IfThen no Delphi/Lazarus. Não entendi onde você quer chegar.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Boa tarde

 

Bem é uma função de uma só linha. Que uso normalmente. Se possível incorporar obrigado. Me desculpe se ofendi.

 

Obrigado.

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link to comment
Share on other sites

  • Consultores

Ofendeu pelo quê rapaz?

Eu disse que já existe no Delphi e no Lazarus a função IfThen que faz exatamente isso. Então não precisa adicionar ela no ACBrUtils.pas

Veja: http://delphi.about.com/library/rtl/blrtlIfThen.htm

  • Like 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Tudo bem. Veja fiz o que você sugeriu, veja o resultado.

if (Trim(FArquivo) = '') or (Trim(FPath) = '') then
    raise Exception.Create(ACBrStr(IfThen(Trim(FPath)='','Caminho não informado!','Nome do arquivo não informado!')));

[Pascal Error] ACBrSpedFiscal.pas(420): E2250 There is no overloaded version of 'IfThen' that can be called with these arguments

 

Obrigado

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link to comment
Share on other sites

  • Consultores
  • Solution

Gente boa,

   IfThen é um método da unit StrUtils. Essa unit não está adicionada na cláusula uses atual no arquivo ACBrSPEDFiscal.pas. Assim, realmente o compilador não vai detectar se você não adicionar na cláusula uses manualmente. :)

 

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Boa noite

 

Eu sei disto, não deixa de ser uma alteração. Veja estamos eu como você, discutindo uma coisa simples. Pode fazer a gentileza de incluir o iif(x,y,z) veja isto e uma coisa de clippeiro, que fui. Peço esta gentileza.

 

Veja esta era a minha primeira resposta, mas tudo bem. Vamos nos reciclar e corre conforme manda o figurino. Pensando melhor, para que inchar com mais uma Função. Tenho muito respeito, e muito me ajudou o ACBr. Em anexo a inclusão do   StrUtils no ACBrSpedFiscal.

 

 

Obrigado

Edited by i-master

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link to comment
Share on other sites

O anexo com a alteração necessária para o uso da function ifthen 

 

Novamente, venho reiterar a minha estima ao colegas

 

 

ACBrSpedFiscal.pas

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link to comment
Share on other sites

Bom dia, agradeço por sua iniciativa de contribuição, mas a descrição hj já diz "Caminho ou nome do arquivo não informado!", acredito já ser o suficiente para entendimento de todos, sendo que já está informando o que ocorreu, bastando verificar um ou outro.

Não leve isso como falta de incentivo para sua sugestão, pelo contrário queremos ouvir a sugestão de todos, filtrar e considerar todas que venham enriquecer o projeto.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

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

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...

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.