[Impressora Cheque Dp 20]

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

[Impressora Cheque Dp 20]

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

[Atualização Da Unit Banestes]

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

[Atualização Da Unit Banestes]

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

 

[Atualização Da Unit Banestes]

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

[Correçao Da Unit Bancoob]

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'+

[Correçao Da Unit Bancoob]

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

[Atualizem Unit Banestes No Svn Por Favor....]

Isaque, segue a unit. 

 

 

ACBrBanestes.pas

[Off-Topic - Pdv Opensource Lazarus]

Sergio, ainda existe o projeto do openpdv?

 

Francisco A Souza

[Atualizem Unit Banestes No Svn Por Favor....]

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.

[Erro Nos Registros C481 E C485]

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.

[Erro Na Linha Digitavel Itau Carteira 112]

Amigos, descobri.

Na linha 133 tem assim:

       aAgenciaCC   := Cedente.Agencia

o correto é       aAgenciaCC   := copy(Cedente.Agencia,2,3) +cedente.AgenciaDigito

[Erro Na Linha Digitavel Itau Carteira 112]

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.

[Atualização Unit Cef]

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

[Erro Ao Gerar Linha Digitavel Banestes]

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

[Modelos Etiquetas Pelo Acbr]

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

[Problemas Enviar Email Acbrnfe]

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

[Problema Ao Carregar Xml No Componente Acbrnfe]

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

[Problemas Enviar Email Acbrnfe]

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

[Problema Ao Carregar Xml No Componente Acbrnfe]

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;

[Leitura Do Registro C170]

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

[Leitura Do Registro C170]

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.

[Bloco M Diferenca Centavos]

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,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? 

[Bloco M Diferenca Centavos]

Descontos nos totais de cupons fiscais ao emitir a Z ele faz o rateio proporcional por item em cada aliquota

assim se der um valor lá ex: 2,34345 ele vai arredondar e vai sobrar um centavo em algum lugar

confere se nesses seus cupons tem algum com desconto aplicado ao total?

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

[Bloco M Diferenca Centavos]

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.