Henrique Gusso Netzka

Sem problemas, Juliana, só enviei por achar que seriam úteis!! abcs

Juliana, fizemos esta alteração no trunk1 lá em 2015. Na época validamos com o pessoal do Sicoob também. Mas infelizmente não tenho mais o manual, só enviei o arquivo pois estamos migrando para o trunk2 e esta alteração apareceu...

Olá, Desenvolvemos uma nova unit para o Boleto, do Banco do Brasil/Sicoob. Porém, há uma diferença na função LerRetorno, que confere se o arquivo é válido. No caso do Sicoob, ela foge totalmente dos padrões, então comentei a validação (acho que precisa revisar isso). Unit para a trunk2. ACBrBancoBrasilSICOOB.pas ACBrBoleto.pas

Olá.. Tem uma correção que deve ser aplicada ao ACBrNFse. Os acentos são sempre retirados das notas, mas isso não devia acontecer... As notas devem ser emitidas com acentuação. Ao invés de retirar o acento, basta codificar corretamente o texto para UTF-8. Alguém já teve o mesmo problema? Ou a correção já foi feita? Caso não, posso enviar o arquivo com a correção... Abcs,

Italo, uma das causas do problema estava no código do pnfsNFSeR, linha 1926... Caso o provedor fosse "nenhum", ele busca os dados da NFSe para identificar o provedor. Porém, ele busca o código do município do serviço, e não o do prestador do serviço, para tal fim. Com isso, em geral ele encontra errado... Inverti a função que faz esta busca, dando preferência ao código do prestador de serviços, e aqui em Curitiba/PR a situação foi normalizada. if FProvedor = proNenhum then begin if (Leitor.rExtrai(1, 'OrgaoGerador') <> '') then begin CM := Leitor.rCampo(tcStr, 'CodigoMunicipio'); FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0))); end; if (CM = '') or (CM = '0') then begin if (Leitor.rExtrai(1, 'PrestadorServico') <> '') then begin CM := OnlyNumber(Leitor.rCampo(tcStr, 'CodigoMunicipio')); if CM = '' then CM := Leitor.rCampo(tcStr, 'Cidade'); FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0))); end else FProvedor := proNenhum; end; if (CM = '') or (CM = '0') then begin if (Leitor.rExtrai(1, 'Servico') <> '') then begin CM := Leitor.rCampo(tcStr, 'CodigoMunicipio'); FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0))); end; end; { Alterado Por Cleiver em - 22-08-2014 } if (FProvedor = proNenhum) and (Pos('https://nfse.goiania.go.gov.br/ws/'Leitor.Arquivo) > 0) then FProvedor := proGoiania; end;

Italo e moderadores, por que não implementar as alterações que estão aqui? Alguma razão? Atualizamos a ACBr aqui e fiz novamente a atualização nos fontes, sorte nossa que tínhamos no fórum aqui a solução... Estamos há dois anos quase usando a solução que coloquei ali e está funcionando tudo legal, tanto na prefeitura quanto na impressão local...

Olá! Ontem o Windows 7 (64 bits) atualizou o IE para o 11, e o componente não consegue mais assinar os pacotes (Erro no suporte a canais seguros). Desinstalamos mas não resolveu. Alguma sugestão? As soluções anteriores em relação ao erro já foram todas testadas... Abcs

Segui a ideia do Akai mas não modifiquei os arquivos básicos. Alterei o seguinte: ACBrNFSeUtil: Comentei as duas linhas que retiravam os caracteres #13 e #10 TNFSeW.Create: Adicionei a linha: FGerador.Opcoes.RetirarAcentos := False; E pronto. NFS-e emitida corretamente...

Seguem fontes alterados! ACBrNFSe.zip

Olá... Ufa, implementado. Agora o componente de Curitiba/PR envia NFs, consulta lote e cancela NFs. Também modificamos o ACBrNfse para que ele não precise carregar o XML de NFs ao consultar um lote. Assim, não é preciso salvar os XMLs, passando o componente a respeitar a propriedade Salvar das Configuracoes dele mesmo. Tivemos que mudar algumas funções do "core" do componente, como a leitura dos XMLs de retorno. Mas garantimos a compatibilidade... Temos como subir tudo isso pro SVN? Como é feito? Abraços,

Sim, conseguimos aqui. Você precisa solicitar à prefeitura a habilitação do seu usuário no ambiente, via e-mail.

Oi Luztem! Legal então (risos), o tempo não será perdido... Curitiba logo logo estará no ar... Mas tomei a liberdade de alterar algumas coisas no componente também. Uma delas, por exemplo, é a não necessidade de carregar o XML de envio na hora de consultar o retorno...

Tenho outra dúvida (posso usar o mesmo tópico?)... Por que o componente levanta exceções, se ele retornaria "Falso" nas rotinas de envio caso falhasse? Não faz sentido, se temos que fazer try..except então não tem porque a função "tentar" retornar falso...

Oi pessoal... As rotinas para Curitiba/PR não estão funcionando, certo?! Estamos trabalhando bastante em cima delas aqui... Já tínhamos desenvolvido tudo "do zero", mas estamos adaptando o software para usar o ACBR... Até na rotina TretEnvLote.LerXml estamos tendo que mexer... Italo, as outras prefeituras funcionam?! Como fazemos com todas estas alterações depois? abcs,