luciano_f

Olá que os Administradores acharam de nossa ideia de ter uma opção de entrar com o UTC manualmente ?

Colocando a Opção de inserir manualmente o UTC no ACBR nosso software poderia ter uma tela igual a essa http://tdn.totvs.com/pages/releaseview.action?pageId=179699729

Então acredito que uma boa alternativa seria a ideia que postei na abertura do tópico Gostaria de dar uma dica para os administradores seria mais interessante o ACBR além de continuar usando o método atual pela biblioteca "Synapse" synautil.TimeZone ter uma outra propriedade onde poderia ser informado o UTC manualmente assim quando tivéssemos algum problema dessa natureza a gente poderia deixar parametrizado no próprio software o UTC correto o que é muito mais simples que ficar mexendo no Relógio do Windows.

Pessoal pelo que pude perceber é um problema na Sefaz do meu estado onde o horário vai mudar Domingo dia 21 porém fizeram alguma coisa errada. Em todos os meus cliente estamos tendo que efetuar a seguinte mudança No Windows, na configuração de horário Desmarcar a opção ajustar automaticamente o horário para horário de verão. e colocar algum UTC que seja -02:00 como por exemplo "Tempo Universal Coordenado 02" ou "Atlântico Central" depois disso preciso acertar o relógio Fazendo isto o XML vai ficar com -02:00. Vendo esse post http://www.projetoacbr.com.br/forum/topic/25387-erro-de-data-hora-de-emissao/?_fromLogin=1 O detalhe é que esse problema só acontece com o Novo ACBR com o antigo ACBR esse problema não acontece pois usa a função "function GetUTC(UF: string; const dataHora: TDateTime): string;" Pude perceber que o novo ACBR usa um método da função da biblioteca "Synapse" synautil.TimeZone porém não é o suficiente aqui no Paraná e não sei como resolver a não ser entrar em todas as maquinas dos cliente e fazer o procedimento que aludi acima. Gostaria de dar uma dica para os administradores seria mais interessante o ACBR além de continuar usando o método atual pela biblioteca "Synapse" synautil.TimeZone ter uma outra propriedade onde poderia ser informado o UTC manualmente assim quando tivéssemos algum problema dessa natureza a gente poderia deixar parametrizado no próprio software o UTC correto o que é muito mais simples que ficar mexendo no Relógio do Windows.

Conforme repassei acima bem no dia de seu post recebi uma Balança desse exato modelo e não ocorreu problema algum! até fiz testes de paf-ecf com ela! então precisamos de mais informações ou até mesmo um de nós testar antes de quebrar o código que está no repositório Algumas questões ::: 1º Você testou ela pela USB usando o Driver da Toledo "InstaladorDriver8217.exe" ??? 2º Hoje fiz o teste e mais outros dois clientes meus que também compraram a mesma balança e realmente usando serial o problema não ocorre porém nesses clientes via USB usando o Driver dá o mesmo problema. 3º A solução que passei não terá problema com quem já usa o componente pois apesar de começar o retorno em 1 caractere antes a função "OnlyNumber" não é apropriada pois retira virgulas assim trabalhei com a função RemoveLetras que não tira virgulas e irá retirar caracteres estranhos deixando apenas números + Virgulas. Detalhe importante já fiz o teste usando pela porta serial com essa solução acima e não tive problema algum, faça o teste ai para você ver. 4º Sobre o fato de você pedir informações eu já postei o Manual acima e incluse já li o mesmo e não encontrei problema com o componente. 5º Teste ai via USB com o driver da Toledo "InstaladorDriver8217.exe" S.O. Windows 7 64 Bits Veja apenas peso acima dos 10 KG dá o problema abaixo disso não tenho problemas. 6º em anexo a Unit alterada teste ai para vocês verem em porta serial e USB não terão problemas. ACBrBALToledo.pas

Se tu precisa de algo assim olha na ACBrUtil existe OnlyNumber!!! Veja isso tem que ser feito dentro do componente para resolver a função "LePeso" é uma solução que vejo para o problema o que o administradores acham disso pois vejo que seria mais simples a correção.

Pessoal uma solução que acredito ser simples para o problema seria Resposta := Trim(Copy(fpUltimaResposta,2,6)); porém efetuar uma limpeza de tudo que não seja numeros com uma função nesses moldes :: Function RemoveLetras(Const Texto: String): String; Var I, E : Integer; Var S : String; Begin S := EmptyStr; For I := 1 To Length(Texto) Do Begin If (Texto In ['0' .. '9', ',' ]) Then S := S + Copy(Texto, I, 1); End; Result := Trim(S); End; Resposta := Trim(RemoveLetras(Copy(fpUltimaResposta,2,6)));

Hum o link do Manual http://cdn.toledobrasil.com.br/app/institucional/files/manuais/8217_07-07-15.pdf já dei um lida e não consegui achar o problema Acredito que o problema deve ser mesmo a comunicação por USB + Driver da Toledo

Luciano, Sem uma justificativa precisa sobre a sua sugestão de modificação, preferimos não aplicá-la... O motivo é que essa modificação pode quebrar várias aplicações já existentes... Eu entendo porém será que o problema não seja a conexão por USB ? pois usa o Driver da Toledo. Alguém ai tem essa balança para fazer o teste com o Driver que mencionei acima por USB ? Não Seria o caso de criar uma nova Balança com uma nova Unit isso poderia ser "Toledo 8217" apesar que apenas muda um numero como você viu dentro do Copy começa um digito antes assim o que fiz foi trocar o 3 por dois. O que você acha de criar uma Nova balança "Toledo 8217" ou uma nova propriedade tipo USB para poder dentro do fonte alterar esse Resposta := Trim(Copy(fpUltimaResposta,3,6)); por Resposta := Trim(Copy(fpUltimaResposta,2,6));

Veja conforme mencionei o problema ocorre com pesos acima de 10 KG abaixo disso sem problema outra coisa é que essa balança não estou colocando pela porta serial e sim pela USB para isso instalei o driver da Toledo "InstaladorDriver8217.exe" As configurações do Demo do Acbr deixei como está na imagem em anexo.

Poderia repassar mais informações onde achamos isso no manual da Balança? Colega não sei lhe informar por manual da balança como disse existe esse problema que com o codigo começando por 2 ao inves de 3 resolveu o problema eu peguei a balança do cliente e coloquei em outras duas maquinas diferente para testar e depois em meu notebook e o problema persistiu assim acredito ser problema no componente.

Pessoal acredito que achei o erro Não sei se existe uma configuração para resolver isso na linha Resposta := Trim(Copy(fpUltimaResposta,3,6)); na unit "ACBrBALToledo.pas" Troquei essa linha por Resposta := Trim(Copy(fpUltimaResposta,2,6)); Peço ao administrador do Projeto corrigir nos fontes. Em anexo a unit alterada. Grato. ACBrBALToledo.pas

Pessoal estou testando o Demo do Acbr "ACBrBAL" a balança é uma "Toledo Prix Checkout 8217" com capacidade para até 30 KG Até 9 KG consigo capturar o peso normalmente porém apartir de 10 KG não é possivel no componente sttResposta de Respostas do Demo do ACBr me volta a seguinte informação. #2 1 1 . 3 5 5 #13 #2 1 1 . 3 5 5 #13 #2 1 1 . 3 5 5 #13 Porém a função ACBrBAL1.LePeso( TimeOut ); me retorna 1,355 Será alguma problema no componente ? Grato

Bom dia. Seria o campo PercentualMulta. Att. Muito grato.

aocampioni Muito Grato pela atenção .

Juliana Tamizou fico grato pela atenção Poderia me dizer qual é esse campo Titulo.CodigoMora Titulo.PercentualMulta Seria algum desses dois ? Se for o "CodigoMora" que codigo seria esse ? algo que o banco passa para empresa que emite o boleto ?

Pessoal como você tem feito com esses campos ? como são dois 2 dígitos são apenas para informar o código da instrução e não a frase gostaria de saber o seguinte cada banco tem o seu próprio código ou é um padrão para todos os bancos ? Estou pensando aqui em fazer um cadastro para o cliente entrar com os Códigos de todas as instruções e a descrição das mesmas para na hora de gerar o boleto buscar apenas esse Código o pessoal tem feito assim também por cadastro ? Como faço para associar esse código de instrução a uma porcentagem de multa exemplo : 03- Cobrar multa de ...% sobre o valor do título O cliente vai informa apenas o "03" como eu faço para associar esse 03 com a porcentagem de multa "2 %" ? ou ao informar 03 o banco já sabe qual a % de multa a ser cobrada ? Grato a todos.

Colega "aocampioni" Pelo que pude perceber na sua tela de configuração você colocou uma pagina para configuração de Email seria para enviar os arquivos de remessa ? A minha duvida é existe alguma possibilidade de criar um tipo de envio automático do arquivo remessa ou sempre terei que gerar esse arquivo em um diretório para o programa do banco efetuar a captura desse arquivo e depois esse programa do banco enviar ? Todos os banco tem o mesmo sistema onde só o programa deles fazem a captura e envio para o servidor deles ?

Colega eu fico muito agradecido pela sua ajuda tanto que olhando sua tela de cadastro do Boleto eu tive uma noção melhor de como melhorar meu sistema e inclusive já apliquei suas ideias de deixar nas configurações do sistema um campo para o "Cod. Inicial" dentre outras coisas que vi no seu cadastro e também usei, então você foi de grande ajuda. Porém como é algo simples de se resolver na unit que inclusive já postei a Unit alterada o Administrador do projeto acredito que vai alterar para outros não ter o mesmo problema que eu tive no passado. Muito grato.

Unit Alterada em Anexo. Grato. ACBrBancoCaixaSICOB.pas

Colega "aocampioni" se eu definir dessa forma que você disse terei problemas na captura do nosso numero no arquivo retorno do banco pois como irei definir o tamanho do nosso numero como 8 ele não vai pegar os 10 dígitos na captura já fiz o testes. dessa forma eu terei eu criar dois campos de configurações um para Tamanho do nosso numero de Envio que seria 8 digitos e outro campo para ler o retorno que seria 10 dígitos. E ainda terei que fazer algo como você você criar um campo do Inicio do Nosso numero onde na configuração tem que informar o Inicio do Nosso Numero 82 Vejo que o problema é simples de resolver pois se trata de algo errado dentro do código do componente que acredito que os administradores poderiam alterar sem nós que ficar fazendo mudanças na aplicação. Veja não estou querendo ser folgado e pendido muito pois vejo que se trata de um erro na Unit "ACBrBancoCaixaSICOB.pas" Para ter certeza do que estou falando eu fiz um teste com o RLBoleto e o mesmo não tem esse problema.

Colega "aocampioni" Da forma como você eu também já fiz porém assim terei que ficar fazendo definições do nosso numero dentro de minha aplicação sendo com o componente já faz isso Eu fiz um quebra galho aqui colocando o 82 na frente mais não é algo elegante sendo que o componente já formata o nosso numero para a gente. Pelo que percebi de outros banco o componente faz certinho apenas esse CaixaSicoob esta errado. Peço aos administradores por favor atualizar o componente com minha correção pois postei o erro e a solução. Grato.

Se o erro não tiver naquela função vai estão nessa aqui. Pois quando o tamanho for 10 nunca vai receber o 82 na frente do nosso numero function TACBrCaixaEconomicaSICOB.FormataNossoNumero(const ACBrTitulo :TACBrTitulo): String; var ANossoNumero: String; wTamNossoNum: Integer; begin with ACBrTitulo do begin ANossoNumero := OnlyNumber(NossoNumero); wTamNossoNum := CalcularTamMaximoNossoNumero(Carteira,ANossoNumero); if (wTamNossoNum = 10) or (wTamNossoNum = 15) then // Aqui tem erro por quando tiver 10 não vai colocar o 82 na frente ANossoNumero:= ANossoNumero else begin if Carteira = 'SR' then begin if wTamNossoNum = 14 then ANossoNumero:= '8'+ padr(Copy(ANossoNumero,Length(ANossoNumero)-13,14),14) else ANossoNumero:= '82'+ padr(Copy(ANossoNumero,Length(ANossoNumero)-7,8),8); end else ANossoNumero:= '9' + padR(Copy(ANossoNumero,Length(ANossoNumero)-8,9),9,'0'); end; end; Result := ANossoNumero; end;

Toda vez que pego nova versão do ACBR tenho que mudar o codigo dessa unit "ACBrBancoCaixaSICOB" Algum administrador poderia alterar essa procedure no fontes originais function TACBrCaixaEconomicaSICOB.CalcularTamMaximoNossoNumero( const Carteira: String; NossoNumero: String): Integer; var wTamNossoNumero: Integer; begin Result := 15; não pode começar em 15 o correto é ::: Result := length(NossoNumero); Veja de acordo com o manual quando for sem registro deve ter 11 posições considerando o digito e para isso dar certo tem que mudar essa linha . wTamNossoNumero:= length(NossoNumero); if ((wTamNossoNumero >= 8) and (wTamNossoNumero <= 10)) or ((wTamNossoNumero >= 14) and (wTamNossoNumero <= 15)) then Result := wTamNossoNumero; end; O nosso numero SR deve ficar assim "8200003103.2" O manual já foi postado pelo colega no link

Italo eu já fiz um monte de Regras para isso fiz bloqueios em muita coisa porém 100% não fica como exemplo mensagem de Nota Denegada dentre outras que ainda não consegui bloquear por regras. Aqui no Paraná vai ser obrigatório o uso de NFCe e minha base de cliente vai aumentar bem e não quero ficar recebendo tantas ligações assim quando mais eu dar mensagem com as soluções para o problema melhor vai ficar o meu suporte outro dia inclusive eu postei um Link sobre a tradução no retorno da Validação do XML onde montei um função que retorna tudo em Português e agora estou pensando pegar mais pesado para a solução das rejeições, Porém não to achando muito solução a não ser perder 2 dias estou sem criatividade para resolver essa questão...