francisco.itb

O estranho e que tenho um ecf e funciona por esse adaptador usb serial.

Colegas, tenho uma impressora bematech dp20, funcionava numa boa pela porta serial, porem foi necessário trocar o micro, e o mesmo nao veio com portas seriais. Colocamos um conversor usb-serial e nao funciona de jeito nenhum, ja fiz testes ate com o acbrcheq dos exemplos mas diz que a impressora nao esta ativa. Agora o problema e que com o programa oficial da bematech funciona. Alguem teria alguma sugestao? Obrigado Francisco A Souza

eu nao consegui anexar a unit aqui, por favor alterem e atualize o svn.

Mais um erro na unit GerarRegistroHeader400 , onde informa o cpf/cnpj do avalista esta 2 vezes, padR('0',14,'0') + // sacador avalista. não pode ser o proprio sacado padR(OnlyNumber(Sacado.SacadoAvalista.CNPJCPF),14,'0') + // sacador avalista. não pode ser o proprio sacado Alterado para //padR('0',14,'0') + // sacador avalista. não pode ser o proprio sacado padR(OnlyNumber(Sacado.SacadoAvalista.CNPJCPF),14,'0') + // sacador avalista. não pode ser o proprio sacado

Srs, a unit do banestes tem erro na rotina GerarRegistroTransacao400 e na GerarRegistroHeader400. Na rotina GerarRegistroHeader400 tem que ser informado o numero da conta + digito_verificador_daconta antes estava assim: padR(OnlyNumber(Conta), 11, '0')+ // Codigo da Empresa no Banco o correto e padR(OnlyNumber(Copy(Trim(Conta),2,10)+trim(ContaDigito)), 11, '0')+ // Codigo da Empresa no Banco em GerarRegistroTransacao400 e a mesma coisa antes estava assim: padR(OnlyNumber(Conta), 11, '0')+ // Codigo da Empresa no Banco o correto e padR(OnlyNumber(Copy(Trim(Conta),2,10)+trim(ContaDigito)), 11, '0')+ // Codigo da Empresa no Banco Por favor atualizem no svn, porque todas as vezes que atualizo o acbr, da problema nessa unit. Agradecido, Francisco A Souza ACBrBanestes.pas

Segue uma nova alteraçao. so percebio erro agora. onde se esta: depois da correcao: IntToStrZero( Round((((ValorMoraJuros * 30) *10000 )/valordocumento)), 6)+ o correto e: depois da correcao: IntToStrZero( Round((((ValorMoraJuros * 30) *10000 )/valordocumento)), 4)+'00'+

Na unit bancob, no campo Juros ao mes, ele pega o valor e converte para o % mes, estava dividir pelo total do documento, favor atualizem o svn. antes estava IntToStrZero( Round( (ValorMoraJuros * 30) *10000 ), 6) + // Taxa de mora mês depois da correcao: IntToStrZero( Round((((ValorMoraJuros * 30) *10000 )/valordocumento)), 6)+ ACBrBancoob.pas

Isaque, segue a unit. ACBrBanestes.pas

Sergio, ainda existe o projeto do openpdv? Francisco A Souza

Pessoal que atualiza o acbrboleto no svn, eu tenho clientes que utilizam a cobrança Banestes no espirito santo, e a um tempão atraz eu fiz uma alteração na unit porque ao gerar o boleto sai errado a linha digitavel. Eu já enviei essa correção varias vezes no fórum, já enviei para a juliana a um tempo atraz, por um email que daniel me passou, mas sempre que atualizo os fontes do acbr, vem errado e ai, quando atualizo o cliente da problema quando imprime algum boleto. Comparando a sua unit com a minha, na linha 102 Na unit oficial esta: padR(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta) Na unit corrigida, seguindo o manual do Banestes o correto e ficar: copy(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta), 2, 10) Veja se consegue atualizar o svn para mim por favor.

tem que setar nos fontes essa variavel para true NullQUANT_BC_COFINS := True; NullALIQ_COFINS_QUANT := True; Eu fiz isso aqui, e funcionou, basta agora o pessoal do acbr corrigir.

Amigos, descobri. Na linha 133 tem assim: aAgenciaCC := Cedente.Agencia o correto é aAgenciaCC := copy(Cedente.Agencia,2,3) +cedente.AgenciaDigito

Amigos, alguem tem gerado boleto do itau? meu cliente utiliza o arquivo remessa, e o banco imprime e envia, até tnao tudo tranquilo, so que precisei imprimir uma segunda via do boleto, e a linha digitavel nao bate, entrei no demo do acbrboleto, coloquei os dados necessarios para imprimir o boleto e a linha digitavel nao bate com a impressa no site do itau.

migos, passei pela homologação do boleto na CEF - ES e hoje foi autorizado tanto para cobrança registrada como nao registrada. Foi necessário fazer alguns pequenos ajustes no boleto carne, na unit da cef, e na unit impressao do boleto. Favor avaliarem e fazer um merge no svn. ACBrCaixaEconomica.pas ACBrBoletoFCFR.pas BoletoCarne.rar

A linha digitavel do banestes esta errado, detectei que onde gera a chave asbace, esta faltando o digito da conta. fiz a correção do fonte, e gostaria que fosse atualizado no svn. ACBrBanestes.pas

Amigos, tenho utilizado a impressao etiquetas pelo acbr no modelo que vem no proprio demo, gostaria de sugerir aos amigos que tivessem modelos diferentes daquele, se possivel postarem aqui. Obrigado

eu copiei, mas hj descobri que a porta seria a 465 e nao a 587..... eu hein.....

Nao, simplesmente ele nao carrega, a lista de notas fica vazia, depois que fiz a alteração voltou a carregar o xml.

Amigos, alguem esta com dificuldade para enviar a nfe pelo email? meu sistema sempre enviou a nfe por email pelo acbr, na ultima atualização que fiz, antes de mudar o endereço do svn, parou de enviar e fica dando a mensagem smtp error login??? undefined status Atualizei os fontes hoje e o erro persiste. copiei um pequeno exemplo na net, configurei com os parametros q utilizo no acbr(host,senha, porta, etc) e enviou email com anexos tranquilamente. Francisco A Souza

Amigos, depois que atualizei hoje os componentes, que antes estavam carregando sem problema o xml, ele passou a nao carregar o xml, vi na rotina abaixo: que substituido ArquivoXML.LoadFromFile(CaminhoArquivo {$IFDEF DELPHI2009_UP}, TEncoding.UTF8{$ENDIF}); por ArquivoXML.LoadFromFile(CaminhoArquivo) voltou a funcionar, alguem teve esse problema? function TNotasFiscais.LoadFromFile(CaminhoArquivo: string): boolean; var LocNFeR : TNFeR; ArquivoXML: TStringList; XML, XMLOriginal : AnsiString; begin try ArquivoXML := TStringList.Create; try // ArquivoXML.LoadFromFile(CaminhoArquivo {$IFDEF DELPHI2009_UP}, TEncoding.UTF8{$ENDIF}); ArquivoXML.LoadFromFile(CaminhoArquivo); XMLOriginal := ArquivoXML.Text; Result := True; while pos('</NFe>',ArquivoXML.Text) > 0 do begin if pos('</nfeProc>',ArquivoXML.Text) > 0 then begin XML := copy(ArquivoXML.Text,1,pos('</nfeProc>',ArquivoXML.Text)+5); ArquivoXML.Text := Trim(copy(ArquivoXML.Text,pos('</nfeProc>',ArquivoXML.Text)+10,length(ArquivoXML.Text))); end else begin XML := copy(ArquivoXML.Text,1,pos('</NFe>',ArquivoXML.Text)+5); ArquivoXML.Text := Trim(copy(ArquivoXML.Text,pos('</NFe>',ArquivoXML.Text)+6,length(ArquivoXML.Text))); end; LocNFeR := TNFeR.Create(Self.Add.NFe); try LocNFeR.Leitor.Arquivo := XML; LocNFeR.LerXml; Items[self.Count-1].XML := LocNFeR.Leitor.Arquivo; Items[self.Count-1].XMLOriginal := XMLOriginal; Items[self.Count-1].NomeArq := CaminhoArquivo; GerarNFe; finally LocNFeR.Free; end; end; finally ArquivoXML.Free; end; except raise; Result := False; end; end;

Bem amigos, aqui detectei um seguinte: se dou select sum(basepiscofins) from tabela, ele me da o valor total, mas se leio registro por registro dessa tabela pra gerar o registro c481, ele acrescenta 0,02 centavos a mais, resultado.... tive q fazer um clientdataset temporário, e a medida que vou alimentado o c481 e o c170, vou totalizando nesse clientdataset. Um chatisse porque criei os sql, que me retornavam isso, e agora tenho que fazer essas gambiarras Boa noite frnacisco a souza

Amigos, estou com a seguinte situação: uso banco de dados firebird, campos numeric(18,2). na parte de notas fiscais que gera o registro 170 tenho 2 campos totalitem e bascalculopis. A soma desses 2 campos da exatamente 88.410,48 bate corretamente com a contabilidade, livros, etc. Ao gerar o registro c170 e validar o registro 210 o campo vl_rec_bruta diverge do informado, ele da diferença de 0,01 centavo. Fiz uma rotina para ler todos os registro c170 jogar num clientdataset e somar os campos totalitem e basecaculopis. para tenta localizar essa diferença, e o resultado foi 88410,479999999, com certeza o pva deve truncar, mas olhei todos os registro c170 so tem decimais com 2 casas decimais, alguem ja teve essa situaçao ou teria alguma dica para me dar? Obrigado e boa noite.

Amigos,ja estou para enlouquecer com esse pva. A soma das minhas base de calculo do pis nos registro c170+c481 da 822438,37, ja fiz uma rotina para a medida que for jogando no acbr, ir gravando num clientdataset e somando os registros, ja executei sum no banco de dados, e o valor bate exato, mas o pva diz que o total é 822438,39, alguém ja passou por esse problema?

tenho varios descontos, mas isso nao é o problema tenhos algumas rotinas de auditoria e foi ja verificado., e o efd fiscal validou 100%, . a impressão que tenho é que a equipe mais inteligente desenvolve o pva efd, e a menos o pva pis cofins... kkkk

Amigos, alguem tem tido problem com centavos no bloco M? estou informando nota por nota, e os cupons fiscais. o total da base de calculo no registro m210 é 822438,37, ja conferi somei manual, e o pva do pis diz que o valor e 822438,39, diferenca de 0,02 centavos.