Well

Pra sanar esse inconveniente, eu passei a usar o componente ACBrNFeDANFERaveCB no lugar do ACBrNFeDANFERave, mas vale lembrar q tem que colocar a propriedade 'Mostrar Setup' como True, agora ta funcionando normal... muito bom.

Pessoal nao subiu seu arquivo corrigido nao, pq esse seu anexo ta certo, mas se atualizar os fontes do ACBr Boleto volta o erro.

juliana, mais uma duvida: Como eu informo o codigo do cedente (banco do brasil) Ex: minha conta é : Agencia = 0204-5 / Conta = 6074-3 Como eu informaria ? Obrigado

uffa... ainda bem pq trabalho com o bb... vlw

Ola, gostaria de saber o que é o Codigo de Transmissao no componente ACBrBoleto e onde eu consigo esse código ? vlw

Vc precisa fazer a homologação no ambiente próprio para testes normalmente; uma vez funcionando tudo vc muda para ambiente de produção. De fato vc TEM Q EMITIR NF-e, mas com os CFOP's específicos que NÃO irão gerar tributos, são apenas para efeito de transporte, isso vc deve checar com seu contador.

Será que não são os novos testes e implantações da NF-e e NFC-e ? sempre que há uma mudança nas regras e novas implantações os webservices ficam malucos...

isso comoçou a acontecer comigo ontem, tbm uso via radio.. espero uns minutos e vou tentando, dai da certo... vamos acompanhar isso...

Essa lentidão é constante ou as vezes fica normal ? como vc fez no evento OnStatusChange ?

tem como vc anexar a rotina que vc está usando ?

Boa tarde Renan, Pq o com0com só funciona com o w7 em modo de teste ?

Eu usei o XML Mapper para criar um 'schema' que atraves deste, junto com o XMLTransformProvider e um cds eu importo o xml para um cds temporarios depois eu gravo na base.

boa tarde nrspx, eu utilizo a cart 17 variacao 19, mas eu passo apenas, '17', no seu caso paesse apenas '18'

bom dia, o problema está aqui = strNossoNumero := IntToStr(StrToInt(tabdados.FieldbyName('DOCUMENTO').AsString) + 1); ao inves disso eu uso variável, por isso o meu funcionou, testa depois vc posta o resultado.

Infelizmente o arquivo remessa continua dando erros, o convenio é de 7 digitos, alguém já conseguiu homologar a remessa do BANCO DO BRASIL ? Obrigado, BANCO DO BRASIL S/A - CSO BELO HORIZONTE (MG) 09/06/2011 RELATÓRIO DE TESTE DE COBRANÇA – CNAB 240 XXXXXXX Cliente: INDUSTRIA TEXTIL INCONFIDENTES LTDA Agência: XXXX - X Conta: XXXXX - X Convênio: XXXXXXX Carteira: 17/019 ANÁLISE DO ARQUIVO REMESSA: REGISTRO HEADER DE ARQUIVO: - Posição 033 a 052: informar 00XXXXXXX001417019 + 02 espaços em branco à direita (foi informado XXXXXX001417000) - Posição 103 a 132: informar o nome do banco alinhado à esquerda e completado com espaços em branco à direita REGISTRO HEADER DE LOTE: - Posição 034 a 053: informar 001666762001417019 + 02 espaços em branco à direita (foi informado 00XXXXXXX001417000) REGISTRO DETALHE 3 / SEGMENTO P: - Posição 009 a 013: A estrutura correta para os segmentos P e Q é: 1P, 2Q, 3P, 4Q, 5P, 6Q... Está errado da forma que está sendo informado neste arquivo remessa (1P,1Q, 2P, 2Q). Favor corrigir. - Posição 058 a 058: informar 7, por tratar-se de cobrança simples com carteira 17 REGISTRO DETALHE 3 / SEGMENTO Q: - Posição 009 a 013: A estrutura correta para os segmentos P e Q é: 1P, 2Q, 3P, 4Q, 5P, 6Q... Está errado da forma que está sendo informado neste arquivo remessa (1P,1Q, 2P, 2Q). Favor corrigir. - Posição 018 a 018: informar 1 para CPF do sacado ou 2 para CNPJ do sacado. - Posição 210 a 212: informar 000 REGISTRO TRAILER DE LOTE: - Posição 018 a 023: informar o número total de registros (linhas) do arquivo, excluindo as linhas referentes ao registro header de arquivo e trailer de arquivo. No caso deste arquivo remessa será 000006

foi mal por nao detalhar, mas é o seguinte, com o equipamento (leitora/token) veio um software para a instalaçao e config do cert, isso já me aconteceu com o serasa, nao me lembro os passos, mas analisa o software q vem junto com a leitora que vc vai achar a opção de colocar no repositorio, senao entra em contato com o suporte onde adquiriu o cert q eles te informam. pra vc ver se conseguiu é como no screen postado, os certs instalados ficam lá.

o que eu fiz, eu criei um campo na base e incremento ele a cada titulo, ex: dm.CDS_EMPRESA.Locate('IDEMPRESAEMISSORA',DBEdit2.Text,[]); NossoNumero:= StrToInt(dm.CDS_EMPRESANOSSONUMERO.AsString); inc(NossoNumero); Titulo.NossoNumero := IntToStr(NossoNumero); dm.cdsCliente.Locate('IDCLIENTE',DM.cdsAReceberIDCLIENTE.AsInteger,[]); dm.CDS_EMPRESA.Edit; dm.CDS_EMPRESANOSSONUMERO.AsInteger := NossoNumero; dm.CDS_EMPRESA.Post; dm.CDS_EMPRESA.ApplyUpdates(0); assim funcionou...

veja no seu codigo se vc nao esta mandando imprimir em pdf antes do arquivo retornar com o protocolo de autorizacao do webservise, se for esse o caso ele imprimi o arquivo gerado mas sem a autorizacao de uso.

posta o codigo

vlw pela dica juaumkiko, realmente se pudesse anexar o FileStream direno no indy seria fantástico, eu achei que eu que nao estava conseguindo, perdi um tempao tentando, dai tive a ideia de fazer desse jeito, é bom saber que não é 'gambiarra' já que sou novo na area e as vezes faço umas coisas estranhas... eu nao havia entendido muito bem o uso do envio do componente, mas com mais calma vou olhar o demo e analisar melhor pra entender...

cara, eu consegui homologar o layout em pdf (o boleto propriamente dito está ok) a unica coisa que nao consegui homologar ate agora é o arquivo remessa, o seu arquivo remessa está dando certo ?

'no webservices do componente acbrnfe o uf deve estar diferente do uf da empresa emissora eu já passei por isso';

tem que colocar o exit depois do showmessage exemplo: try dmAux.EmailCorpo.From.Name := xxxxxxx; dmAux.EmailCorpo.From.Address := 'xxxxxxxxxxxx'; dmAux.EmailCorpo.Recipients.EMailAddresses := dm.cdsClienteEMAIL.AsString; dmAux.EmailCorpo.Priority := mpHighest; dmAux.EmailCorpo.Subject := 'Arquivo xml da NF ' + IntToStr(dm.CDS_VENDA_CABNUMERONF.AsInteger); dmAux.SMTP1.Host := 'smtps.uol.com.br'; dmAux.SMTP1.Username := 'XXXXXX'; dmAux.SMTP1.Password := 'XXXXXX'; dmAux.SMTP1.AuthType := satDefault; dmAux.SMTP1.Port := 587; dmAux.EmailCorpo.Body.Clear; dmAux.EmailCorpo.Body.Add('Segue em anexo o arquivo xml ref a NF-e ' + IntToStr(dm.CDS_VENDA_CABNUMERONF.AsInteger)); anexo:= (ACBrNFe.NotasFiscais.Items[0].NomeArq); TIdAttachmentFile.Create(dmAux.EmailCorpo.MessageParts, TFileName(Anexo)); dmAux.SMTP1.Connect; dmAux.SMTP1.Send(dmAux.EmailCorpo); dmAux.SMTP1.Disconnect; DeleteFile(ACBrNFe.NotasFiscais.Items[0].NomeArq); except on e: Exception do begin ShowMessage('E-mail não enviado'); exit; end; end; for i := 0 to 1000 do ProgressBar1.Position:= 1000; ShowMessage('E-mail enviado com sucesso'); ProgressBar1.Visible:= false;

Consegui resolver meu problema, talvez possa te ajudar, mas se alguém tibver uma ideia melhor seria bom, pois do meu jeito é meio 'gambiarra': procedure Tf_LVendas.EnviarXMLporeMail; var sXML: TStringStream; anexo : TFileName; i: integer; begin //localiza no cadastro de cliente o mesmo e verifica se tem e-mail senao ele para o envio dm.cdsCliente.Locate('IDCLIENTE',DBEdit3.Text,[]); if dm.cdsClienteEMAIL.AsString = '' then begin ShowMessage('vá até o cadastro do cliente e verifique se o mesmo tem um e-mail cadastrado'); DeleteFile(ACBrNFe.NotasFiscais.Items[0].NomeArq); Exit; end; ProgressBar1.Visible:= true; for i := 0 to 300 do ProgressBar1.Position:= 300; // para carregar o xml a partir da base de dados sXML := TStringStream.Create(dm.cdsNFe.FieldByName('XMLNFELETRONICA').Value); ACBrNFe.NotasFiscais.Clear; ACBrNFe.NotasFiscais.LoadFromStream(sXML); ACBrNFe.NotasFiscais.SaveToFile('C:\NFe\xmlTempMail\'); // ShowMessage('O arquivo foi Salvo no caminho:C:\NFe\xmlTempMail\'); try dmAux.EmailCorpo.From.Name := 'xxxxx'; dmAux.EmailCorpo.From.Address := 'xxx'; dmAux.EmailCorpo.Recipients.EMailAddresses := dm.cdsClienteEMAIL.AsString; dmAux.EmailCorpo.Priority := mpHighest; dmAux.EmailCorpo.Subject := 'Arquivo xml da NF ' + IntToStr(dm.CDS_VENDA_CABNUMERONF.AsInteger); dmAux.SMTP1.Host := 'smtps.uol.com.br'; dmAux.SMTP1.Username := 'xxxxxxxxxxx'; dmAux.SMTP1.Password := 'xxxxxxxxxxxx'; dmAux.SMTP1.AuthType := satDefault; dmAux.SMTP1.Port := 587; dmAux.EmailCorpo.Body.Clear; dmAux.EmailCorpo.Body.Add('Segue em anexo o arquivo xml ref a NF-e ' + IntToStr(dm.CDS_VENDA_CABNUMERONF.AsInteger)); anexo:= (ACBrNFe.NotasFiscais.Items[0].NomeArq); TIdAttachmentFile.Create(dmAux.EmailCorpo.MessageParts, TFileName(Anexo)); dmAux.SMTP1.Connect; dmAux.SMTP1.Send(dmAux.EmailCorpo); dmAux.SMTP1.Disconnect; DeleteFile(ACBrNFe.NotasFiscais.Items[0].NomeArq); except on e: Exception do begin ShowMessage('E-mail não enviado'); exit; end; end; for i := 0 to 1000 do ProgressBar1.Position:= 1000; ShowMessage('E-mail enviado com sucesso'); ProgressBar1.Visible:= false;

faz o seguinte, manda instalar o certificado no repositorio do windows que nao vai dar problema, o máximo que vai acontecer é pedir o pin dai é só ele digitar na hora da transmissao.