Gr@c@

Nada com relação a ACBr, esse foi migrado de forma tranquila. O problema é a interface nada amigável do XE3, o debug que não funciona, instabilidade com dbGo e uns travamentos inexplicáveis durante o desenvolvimento e compilação que ainda não consegui descobrir a causa. E, no momento, sem recurso financeiro para fazer o upgrade para o Berlim.

Migrei para a XE3, mas tá osso viu?

E antes do bloco acima, eu tratei o tipo de consumidor Case Ide.modelo of 55: begin Ide.indFinal := cfNao; If (DM.qryNFeCab.FieldByName('cab_DestinoPessoa').AsString = 'F') Or (RegCFOPCab.UsoConsumo) Or (RegCFOPCab.Imobilizado) then begin Ide.indFinal := cfConsumidorFinal; end; end; 65: begin Ide.indFinal := cfConsumidorFinal; end; End;

Meus clientes utilizam o próprio aplicativo do banco que já possui um importador do arquivo remessa com validador.

Dest.indIEDest := inNaoContribuinte; Dest.IE := ''; sIE := TrataInscricao(DM.qryNFeCab.FieldByName('cab_DestinoUF').AsString, DM.qryNFeCab.FieldByName('cab_DestinoInscricao').AsString); If (bExterior) then begin Dest.indIEDest := inNaoContribuinte; Dest.IE := ''; end Else If (DM.qryNFeCab.FieldByName('cab_DestinoPessoa').AsString = 'J') or (DM.qryNFeCab.FieldByName('cab_DestinoTipoInscricao').AsString = 'P') or (DM.qryNFeCab.FieldByName('cab_DestinoTipoInscricao').AsString = 'PR') then begin If (sIE = 'ISENTO') then begin Dest.indIEDest := inIsento; Dest.IE := ''; {p/evitar a rejeição 805 - A SEFAZ do destinatário não permite Contribuinte Isento de Inscrição Estadual} If (Dest.EnderDest.UF = 'AM') or (Dest.EnderDest.UF = 'BA') or (Dest.EnderDest.UF = 'CE') or (Dest.EnderDest.UF = 'GO') or (Dest.EnderDest.UF = 'MG') or (Dest.EnderDest.UF = 'MT') or (Dest.EnderDest.UF = 'PE') or (Dest.EnderDest.UF = 'RN') or (Dest.EnderDest.UF = 'SE') or (Dest.EnderDest.UF = 'SP') then begin Dest.indIEDest := inNaoContribuinte; Dest.IE := ''; end; end Else begin Dest.indIEDest := inContribuinte; Dest.IE := sIE; end; end; end; Perdão, passei errado. Segue acima o bloco que uso.

Olha só: não há impedimento, mas é uma opção ruim fazer isso para cnpjs diferentes (a não ser que se trate de matriz e filiais), pois se não for esse o caso, o banco de dados tem que ser diferente (já pensou se o fiscal chega e pede o banco de dados da empresa x e nele vai também os dados da empresa y?) você pode ter uma tabela única de cliente e uma única de produto (e de todas as tabelas relacionais como cidade, grupos de produtos, etc) para os dois CNPJ. mas toda a movimentação deverá ser individualizada por cnpj: tributação do produto (pensando que uma empresa pode mudar de regime ao longo de sua atividade e a outra não), estoque, notas fiscais, contas a pagar, contas a receber, caixa. e o seu aplicativo deve ser totalmente parametrizado para que o usuário obtenha os dados por CNPJ e globalizado. Cuidado com isso. Projete tudo para não ter problemas futuros.

Acho que Currency permite até 4 decimais.

O valor do seu boleto deve ter mais de 2 casas decimais e isso deve ser divergência de arredondamento. O valor deve ser passado para o componente arredondado com 2 casas decimais.

meus clientes estão gerando boleto Sicoob e enviando remessa e não houve recusa por parte do banco. Deve ser alguma informação incorreta que está sendo passada para o componente.

Não conheço o boleto para condomínio. Poste a imagem do modelo.

Eu entrei em contato com a Gás Tecnologia reclamando sobre isso. Eles me solicitaram, nada mais nada menos, do que todos os fontes do meu aplicativo + banco de dados + Gerenciador de banco de dados + configuração + manual para poderem executar e analisar os fontes no laboratório. Então, pedi a eles que me enviassem o mesmo material do aplicativo deles para que eu também pudesse analisar em meu laboratório de testes. Nunca mais me retornaram.

Bom a questão é a seguinte: o erro EOleSysError Classe não registrada ocorre em um formulário no qual uso o ACBr apenas para fazer a importação de um arquivo XML de entrada (NFe de fornecedor). Importa para ADOQuery. A questão é: não vou usar certificado digital para fazer isso. Precisarei mesmo assim das dlls da capicom registradas?

Estou com esse problema em alguns clientes com windows 7 ou superior. Pesquisei no forum sobre o EOleSysError, mas não encontrei a resposta que precisava. viallyusrael como você resolveu o problema acima?

Tem ocorrido diferença entre arredondamentos do Delphi e SQL Server e também ECF´s Bematech. Minha dúvida é: Quando usar as regras de arredondamento ABNT? Para todos os ECF´s e balanças? NF-e? NFC-e?

Juliomar, no Lázarus imprime tudo sem cortes, inclusive o nome do desenvolvedor na lateral esquerda? Pergunto porque todas as impressoras cortam esse label, pelo menos, todas as minhas HPs (deskjet e laserjet) e as de meus clientes que são HPs de vários modelos, brother e xerox. Mas somente algumas cortam, alem desse label, mais um ou 2 caracteres à esquerda e um ou 2 caracteres à direita (na brother e xerox é impossível imprimir o boleto). Não adianta alterar as configurações da impressora. Tentei alterar as margens no Fortes mas também não resolveu. Se o problema só ocorre no Delphi, você tem alguma sugestão do que deve ser testado?

Pessoal, ainda continua tendo problemas com Lote em Processamento em ambiente de Produção. Envia alguns CT-e e depois começa a dar a mensagem de lote em processamento seguidamente. No ambiente de homologação, o SEFAZ/MG realmente estava com problemas e resolveram. Em produção, eles alegam que não há problema nenhum. O que fazer para contornar esse erro, de forma que não fique tão evidente para o usuário, já que quando tento enviar novamente o mesmo ct-e ele envia sem erro? Esse erro é causado por tempo de retorno?

Juliomar, aproveitando o assunto, qual é o procedimento para assinar o aplicativo com o certificado digital?

Esse problema pode ser causado por antivírus ou aplicativos bancários. Uma coisa que fiz e que ajuda é você abrir seu projeto -> Projects -> Option -> application e informar tudo sobre versão do aplicativo para que evite que o mesmo seja reconhecido como perigo potencial. E orientar seu cliente a não executar o aplicativo quando estiver executando aplicativos bancários.

Talvez tenha sido instalado com uma versão incorreta para o Windows 7 ou o certificado não tenha sido instalado como Administrador . 1-Tente desativar o Firewall do Windows. Verifique se funciona. 2-Tente desativar o anti-virus por alguns minutos. Verifique se funciona. 3-Reduza o nível de segurança do usuário.

Eu tentei alterar as margens primeiro. Mas, o problema é que a área ocupada pelo relatório é grande e parece que o Fortes não respeita a margem direita. O certo seria alterar a escala do relatório todo.

Só para efeito de teste, alterei a unit do fortes conforme acima: fonte do label da linha digitavel de Arial(13) para Arial(12) e o codigo de barras cheguei uns 3 caracteres para a direita. Imprimi na impressora Brother de um cliente e imprimiu correto. Levamos ao banco para ver se o codigo de barras seria lido e deu certo. Não vou disponibilizar os forms alterados aqui porque fiz isso em Delphi 7. Mas as alterações que fiz são somente essas duas citadas pelo menos para resolver a situação dos meus clientes. (problema é que sempre que atualizar o ACBrBoleto terei que refazer a alteração) Ainda continua cortando caracteres à direita nas outras colunas. Corta o nome do desenvolvedor e uma coluna do boleto (esse corte ocorre em todas as impressoras Laser e Jato de tinta que testei, inclusive a minha, que é uma HP Laserjet P1005).

Homologuei Sicoob mês passado e meu registro detalhe está assim da posição 1 até 31 Meu numero de conta ficiticio é 123456 digito 2 No remessa saiu 00123456 da posição 23 a 30 e 2 na posição 31. 1028649309500014832244001234562 Eu passo os valores para o componente assim: .ACBrBoleto1.Cedente.Conta := '123456'; .ACBrBoleto1.Cedente.ContaDigito := '2'; verifique se você não está informando Cedente.conta já com o digito

Tente assim.... dm.IBChaveNFEManifesto.close; dm.IBChaveNFEManifesto.SelectSQL.Clear; dm.IBChaveNFEManifesto.SelectSQL.Add('SELECT * FROM ChaveNFEManifesto'); dm.IBChaveNFEManifesto.SelectSQL.Add('WHERE CODMANIFESTO = ' + QuotedStr(dm.IBManifestoCODIGO.text) + ''); dm.IBChaveNFEManifesto.SelectSQL.Add('ORDER BY CODIGO'); dm.IBChaveNFEManifesto.open; dm.IBChaveNFEManifesto.first; While not dm.IBChaveNFEManifesto.eof do begin With infNFe.Add do begin chNFe := dm.IBChaveNFEManifestoCHAVENFE.Text; dm.IBChaveNFEManifesto.Next; end; end;

Acho que o "infNFe.Add" tem que ficar dentro do loop "While not dm.IBChaveNFEManifesto.eof do" Isso se as chaves de acesso das notas estiverem dentro do dm.IBChaveNFEManifesto Eu tenho uma tabela geral de manifesto contendo os dados unicos e uma tabela filha de itens contendo os documentos de origem