Ir para conteúdo
  • Cadastre-se

Validação Carteira Banco Sicoob


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

Recommended Posts

Postado

Olá bom dia, estou com um probleminha ao chamar o acbrBoleto.Imprimir 
A Unit ACBrBoleto Procedure SetCarteira recebe no meu caso a string = '1' e Altera para '01', imagem abaixo
image.thumb.png.5a05f62a1073cd035e120d410752d249.png

Porém na Unit ACBrBancoBancoob Function MontarCodigoBarras, ele valida se '1' ou '3', se não cai na exceção, imagem abaixo
image.thumb.png.b33f1262ea6db0da17e355cffec0a1e9.png

  • Consultores
  • Solution
Postado

se é o banco Sicoob não há alteração para 01, pois a carteira é 1 digito.

 

image.png

 

se não houver modificações locais não era para ter esse comportamento.

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

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

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Postado

Sim aí está certo, recebe 1 mesmo como Tamanho da Carteira, porém recebe esse valor depois que o ACBrTitulo.Carteira recebeu o valor de dois dígitos, em seguida entra na validação 
   

if (ACBrTitulo.Carteira = '1') or (ACBrTitulo.Carteira = '3')then
       ACarteira := ACBrTitulo.Carteira
    else
       raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "1" ou "3".') );


que é onde dá a exceção 

  • Consultores
Postado
7 minutos atrás, Vicente Flores Cardoso disse:

Sim aí está certo, recebe 1 mesmo como Tamanho da Carteira, porém recebe esse valor depois que o ACBrTitulo.Carteira recebeu o valor de dois dígitos, em seguida entra na validação 
   

if (ACBrTitulo.Carteira = '1') or (ACBrTitulo.Carteira = '3')then
       ACarteira := ACBrTitulo.Carteira
    else
       raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "1" ou "3".') );


que é onde dá a exceção 

em qual linha / rotina que ele está alterando para 2 digitos?

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

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

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Consultores
Postado

@Vicente Flores Cardoso
va em propriedades da pasta onde esta o acbr, por favor verifique qual versão está
image.png

Com a versao atual nao consegui reproduzir o seu problema.
atualize seus fontes e rode o instalador. se necessario marque a opcao para apagar arquivos antigos.

Consultor SAC ACBr

Daniel de Morais (Infocotidiano)
Ajude o Projeto ACBr crescer - Assine o SAC

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

  • Consultores
Postado
8 minutos atrás, Vicente Flores Cardoso disse:

image.png.b8dce5d08dff077061700c735f42540a.png


Vou atualizar e testar novamente 

não acredito que seja atualização.

veja se não é mudanças locais... faça um revert depois um update. após reinstale tudo

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

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

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Consultores
Postado

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

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

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Este tópico foi criado há 670 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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...
The popup will be closed in 10 segundos...