[CASAS DECIMAIS]

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.

[[RESOLVIDO] Impressão de Boletos Fortes ACBrBoletoFCFortesFr]

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

[Codigo de Transmissao]

Boa tarde.

Alguns bancos além do Código do Convênio do Cedente, também possuem um código um pouco maior que se chama Código de transmissão, atualmente dos bancos implementados, apenas o Santander utiliza este campo.

Att.

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

[Codigo de Transmissao]

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

[Codigo de Transmissao]

Ola,

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

vlw

[Integração DANFE com ERP]

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.

[Retorno "vazio" [RESOLVIDO]]

prezados colegas,

meu software roda em vários clientes, sem maiores problemas

num novo local na cidade de São Paulo, utilizando banda larga via rádio, ao enviar o xml recebo as telas seguintes (anexas), sem mais informações

o provedor me informa que não tem proxy e nem firewall na conexão utilizada

o modem está direto no pc, com ip fixo

aceito sugestões para o que possa ser a origem desse problema

obrigado.

Otavio Benini

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...

[Retorno "vazio" [RESOLVIDO]]

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

[lentidão do acbr no envio da nfe]

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

[Erro ao gerar código de barra do boleto]

Bom dia,

estou utilizando o ACBr para gerar o código de barra do boleto

mas simplesmente ele está me retornando um null :s

alguém já teve esse problema?

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

[[resolvido]Problema com qlqr comando AcbrECf]

É, realmente era o #*@!%@ do emulador de portas serias...

como EMBarbosa disse, baxei a versao 64bit do com0com

dai tinha dado um probleminha de driver COM, resolveu com o comando

bcdedit.exe -set TESTSIGNING ON deixando o windows 7 em modo teste, para poder assinar driver nao autenticados..

e o emulador da impressora passou a funcionar normalmente, respondendo a todos os comandos

Muito obrigado galera..

Até mais

Boa tarde Renan,

Pq o com0com só funciona com o w7 em modo de teste ?

[Importação do arquivo XML]

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.

[Boleto Banco do Brasil]

boa tarde nrspx,

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

[Boleto Banco do Brasil]

engraçado.... comigo nao está funcionando... saí o numero do convenio, mas o numero do documento sai zerado... acho que estou cometendo algum erro primario... mas nao estou encontrando...

  bltPrincipal.ListadeBoletos.Clear;


  Titulo          := bltPrincipal.CriarTituloNaLista;

  strNossoNumero  := IntToStr(StrToInt(tabdados.FieldbyName('DOCUMENTO').AsString) + 1);


  with Titulo do begin

    Aceite                  := atNao;

    Vencimento              := tabdados.FieldbyName('DT.VENCIMENTO').AsDateTime;

    DataDocumento           := tabdados.FieldbyName('DT.EMISSAO').AsDateTime;

    NumeroDocumento         := tabdados.FieldbyName('DOCUMENTO').AsString + ' - ' + tabdados.FieldbyName('ORDEM').AsString;

    EspecieDoc              := tabdados.FieldbyName('ESPECIE').AsString;

    DataProcessamento       := Now;

    Carteira                := Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 01, 02) +

                                  Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 03, 03);

    NossoNumero             := strNossoNumero;

    Sacado.NomeSacado       := adoqcliente.FieldByName('NOME').AsString;

    Sacado.CNPJCPF          := adoqcliente.FieldByName('CNPJ_CPF').AsString;

    Sacado.Logradouro       := adoqcliente.FieldByName('ENDERECO').AsString;

    Sacado.Numero           := adoqcliente.FieldByName('IDCLIENTE').AsString;

    Sacado.Bairro           := adoqcliente.FieldByName('BAIRRO').AsString;

    Sacado.Cidade           := adoqcliente.FieldByName('DESCRICAO').AsString;

    Sacado.UF               := adoqcliente.FieldByName('UF').AsString;

    Sacado.CEP              := adoqcliente.FieldByName('CEP').AsString;

    ValorDocumento          := tabdados.FieldbyName('VLR.FACE').AsFloat;

    ValorDocumento          := tabdados.FieldbyName('VLR.FACE').AsFloat;

    Instrucao1              := frmMensagem.edMensagem1.Text + ' ' + frmMensagem.edMensagem2.Text;

    Instrucao2              := frmMensagem.edMensagem3.Text;

  end;

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.

[Problema com o Arquivo Remessa do Banco do Brasil]

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

[Ler a chave]

Oi amigo instalar como? me ajude, seja mais detalhado, passo a passo, não sei muito sobre esse assunto.

podemos falar via MSN ou skype? obrigado

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á.

[Boleto Banco do Brasil]

ainda nem cheguei nessa parte...

to preso na impressao dele ainda...

tem algum tipo de jogada que tem que fazer para imprimir o nosso numero corretamente?

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...

[DANFE EM PDF - acbr monitor-nfe]

segue arquivo PDf gerado

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.

[DANFE EM PDF - acbr monitor-nfe]

posta o codigo

[Problemas ao utilizar o EnviarEmail]

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...

[Boleto Banco do Brasil]

legal... consegui imprimir o nosso numero, mas o numero do documento sai zerado...

fica assim: XXXXXX0000-5... alguem pode me falar como resolve?

agradecimentos antecipados.

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 ?

[O identificador não está no estado correto para a operação]

Bom dia pessoal,

Estou brigando um pouco com essa msg, estou fazendo os testes pra nota de saida usando cfop 5101 cst 00 e ipi 052 tanto pelo demo quanto pelo meu aplicativo ele retorna essa msg:

"O identificador não está no estado correto para a operação solicitada"

Alguem sabe os fatores que levam a esse tipo de msg?

Abç.

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

[Tratar exceção na procedure!! enviar email!]

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;

[Problemas ao utilizar o EnviarEmail]

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;

[Ler a chave]

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.