Ir para conteúdo
  • Cadastre-se

dev botao

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


Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 4196 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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/

  • Consultores
Postado

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.
  • Consultores
Postado

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

  • Curtir 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.
Postado

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/

  • Consultores
  • Solution
Postado

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.
Postado (editado)

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

Editado por 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/

Postado

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/

Postado

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

 

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...