Jump to content

Delphi Enterprise 
pela METADE DO PREÇO

botao_delphi.png

 

 

tp_550_logo.png Homologação ACBr Apresenta:
Nova  Impressora
TP-550

botao_saibamais.png

 

 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

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

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

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
  • Este tópico foi criado há 425 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...