Jump to content

Promoção 25 Anos de Delphi
25% de desconto em todas as versões

Saiba mais

Ganhe o curso Tributação NF-e para Desenvolvedores

Assinando o SAC Anual este mês
botao.png

 

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

theiller

Falha ACBrEPCBlocos StrToInd_Rec

Recommended Posts

Favor corrigir falha na conversão de texto pra tipo:

Unit: ACBrEPCBlocos

Function: StrToInd_Rec

AValue = '03'

 

function StrToInd_Rec(const AValue: string):TACBrInd_Rec;
begin
  if AValue = '01' then
    Result := crCliente
  else if AValue = '02' then
    Result :=  crAdministradora
  else if AValue = '03' then
    Result :=   crTituloDeCredito
  else if AValue = '04' then
    Result :=    crDocumentoFiscal
  else if AValue = '05' then
    Result :=   crItemVendido
  else if AValue = '99' then
    Result :=   crOutros
    else
     raise Exception.Create(format('Valor informado [%s] deve estar entre (01,02,03,04,05 e 99)',[AValue]));
end;

StrToInd_Rec_03.png

Share this post


Link to post
Share on other sites

Boa tarde.

Você chegou a realizar a alteração? Se sim, por favor anexe a unit alterada.

Att.

  • Like 1

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

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