tiautomacao

Bom dia. Atualizei os fontes do acbr semana passada, e após a atualização, os PDF's das Notas Fiscais Eletrônicas emitidas não estão mais sendo salvos separados por mês ("201803" por exemplo). Os XML's continuam sendo salvos dessa maneira, pois já setei a propriedade "Configurações.Arquivos.SepararPorMes" como true. Alguém tem alguma dica sobre isso? Agradeço desde já.

Boa noite. Estou executando em meu PC o exemplo do ACBR de ConsultaCPF e está retornando o erro em anexo. Alguém sabe o porquê ou já se deparou com tal erro? Agradeço desde já.

Alguém teria a resposta da pergunta acima? Pois estou tentando fazer o mesmo procedimento, mas não atualiza o XML... consigo imprimir o DANFE com as informações corretas, mas o XML continua sem as informações de autorização. Obrigado desde já.

Não estou conseguindo carregar e imprimir uma imagem nesta impressora, alguém pode ajudar, nem pelo exemplo do ACBR nao esta dando certo.

Então, conferindo com o manual, agora ficou certo, pois estava gerando com um '0' a mais e o banco rejeitando o arquivo. Enviei novamente para análise no processo homologação que o banco exige, assim que eles me derem um retorno vou enviar a unit. Obrigado.

Ao gerar um arquivo de remessa para Caixa Econômica Federal foi verificado no arquivo de envio de remessa que o campo CNPJCPF esta com 15 posições e o manual cnab febraban 240 informa que seria 14. Segue trecho do manual, da unit e arquivo pdf. Seria possível fazer a atualização? DESCRIÇÃO DOS REGISTROS DO ARQUIVO REMESSA Descrição do Registro “HEADER” de Lote - “1” Campo De Até “Picture” Conteúdo 1.01 001 003 9(003) Código do Banco 1.02 004 007 9(004) Lote de Serviço 1.03 008 008 9(001) Código do Registro 1.04 009 009 X(001) Tipo de Operação 1.05 010 011 9(002) Tipo de Serviço 1.06 012 013 9(002) Forma de Lançamento 1.07 014 016 9(003) Versão do leiaute do lote 1.08 017 017 X(001) Filler 1.09 018 018 9(001) Tipo de inscrição 1.10 019 032 9(014) Número da inscrição Fonte do acrb - unit AcbrBancoCaixa Result:= Result + #13#10 + IntToStrZero(ACBrBanco.Numero, 3) + //1 a 3 - Código do banco '0001' + //4 a 7 - Lote de serviço '1' + //8 - Tipo de registro - Registro header de arquivo 'R' + //9 - Tipo de operação: R (Remessa) ou T (Retorno) '01' + //10 a 11 - Tipo de serviço: 01 (Cobrança) '00' + //12 a 13 - Forma de lançamento: preencher com ZEROS no caso de cobrança '030' + //14 a 16 - Número da versão do layout do lote ' ' + //17 - Uso exclusivo FEBRABAN/CNAB ATipoInscricao + //18 - Tipo de inscrição do cedente PadLeft(OnlyNumber(CNPJCPF), 15, '0') + //19 a 33 -Número de inscrição do cedente Desde já grato pela atenção. cbab 240 caixa.pdf

Na função GerarRegistroTransacao240 para banco do brasil, é feito um tratamento para ver a característico do título,porém a mesma função da caixa, já é colocado "1" direto, ou seja, quando o título vier como descontado, não saberemos se o banco for 104 (Caixa Economica Federal) (Gostaria de saber se é possível implementar esta mesma função para o tratamento e retorno da caixa possa ser igual ao Bando do Brasil.) //UNIT AcbrBancoBrasil function TACBrBancoBrasil.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String; case CaracTitulo of tcSimples : ACaracTitulo := '1'; tcVinculada : ACaracTitulo := '2'; tcCaucionada : ACaracTitulo := '3'; tcDescontada : ACaracTitulo := '4'; tcVendor : ACaracTitulo := '5'; end; wCarteira:= StrToIntDef(Carteira,0); { 1 = Carteira 11/12 na modalidade Simples; 2, 3 = Carteira 11/17 modalidade Vinculada/Caucionada e carteira 31; 4 = Carteira 11/17 modalidade Descontada e carteira 51; 7 = Carteira 17 modalidade Simples. } if ((wCarteira = 11) or (wCarteira = 12)) and (ACaracTitulo = '1') then wTipoCarteira := '1' else if (((wCarteira = 11) or (wCarteira = 17)) and ((ACaracTitulo = '2') or (ACaracTitulo = '3'))) or (wCarteira = 31) then wTipoCarteira := ACaracTitulo else if (((wCarteira = 11) or (wCarteira = 17)) and (ACaracTitulo = '4')) or (wCarteira = 51) then wTipoCarteira := ACaracTitulo else if (wCarteira = 17) and (ACaracTitulo = '1') then wTipoCarteira := '7' else wTipoCarteira := '7'; // Techo Result:= IntToStrZero(ACBrBanco.Numero, 3) + // 1 a 3 - Código do banco '0001' + // 4 a 7 - Lote de serviço '3' + // 8 - Tipo do registro: Registro detalhe IntToStrZero((3 * ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)) + 1 , 5) + // 9 a 13 - Número seqüencial do registro no lote - Cada título tem 2 registros (P e Q) 'P' + // 14 - Código do segmento do registro detalhe ' ' + // 15 - Uso exclusivo FEBRABAN/CNAB: Branco ATipoOcorrencia + // 16 a 17 - Código de movimento aAgencia + // 18 a 22 - Agência mantenedora da conta PadRight(ACBrBoleto.Cedente.AgenciaDigito, 1 , '0') + // 23 -Dígito verificador da agência aConta + // 24 a 35 - Número da conta corrente PadRight(ACBrBoleto.Cedente.ContaDigito, 1, '0') + // 36 - Dígito verificador da conta ' ' + // 37 - Dígito verificador da agência / conta PadRight(ANossoNumero+aDV, 20, ' ') + // 38 a 57 - Nosso número - identificação do título no banco wTipoCarteira + // 58 - Cobrança Simples //UNIT AcbrBancoCaixa Porem esta mesma situação nao ocorre na mesma função da caixa. Veja que para mesma funçao function TACBrCaixaEconomica.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String; Result:= IntToStrZero(ACBrBanco.Numero, 3) + //1 a 3 - Código do banco '0001' + //4 a 7 - Lote de serviço '3' + //8 - Tipo do registro: Registro detalhe IntToStrZero((3*ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo))+1,5) + //9 a 13 - Número seqüencial do registro no lote - Cada título tem 2 registros (P e Q) 'P' + //14 - Código do segmento do registro detalhe ' ' + //15 - Uso exclusivo FEBRABAN/CNAB: Branco ATipoOcorrencia + //16 a 17 - Código de movimento PadLeft(OnlyNumber(ACBrBoleto.Cedente.Agencia), 5, '0') + //18 a 22 - Agência mantenedora da conta PadRight(ACBrBoleto.Cedente.AgenciaDigito, 1 , '0') + //23 -Dígito verificador da agência PadRight(ACBrBoleto.Cedente.CodigoCedente, 6, '0') + //24 a 29 - Código do Convênio no Banco (Codigo do cedente) PadRight('', 11, '0') + //30 a 40 - Uso Exclusivo da CAIXA '14' + //41 a 42 - Modalidade da Carteira PadLeft(Copy(ANossoNumero,3,17), 15, '0') + //43 a 57 - Nosso número - identificação do título no banco '1' + //58 - Cobrança Simples manual cnab 240 Caixa Economica Federal Código da Carteira Código adotado pela FEBRABAN, para identificar a característica dos títulos dentro das modalidades de cobrança existentes no banco. ‘1’ = Cobrança Simples ‘3’ = Cobrança Caucionada ‘4’ = Cobrança Descontada

Ok, deu certinho. Muito obrigado.

Estamos enviando e-mail usando AcbrEmail, porém preciso formatar o campo mensagem, "corpo do email". Exemplo: Que seja enviado o conteúdo do campo memo pois la já esta formatado.

O mais estranho é que o manual do cnab 240 com particularidades do banco do brasil diz: Informar 1 – para carteira 11/12 na modalidade Simples; 2 ou 3 – para carteira 11/17 modalidade Vinculada/Caucionada e carteira 31; 4 – para carteira 11/17 modalidade Descontada e carteira 51; 7 – para carteira 17 modalidade Simples. Teoricamente teria que ser '7' mesmo, mas o arquivo é rejeitado, e analisando outro software que gerou o arquivo com os mesmo títulos a posição 58 está indo 1. Este é o link do manual cnab 240 com particularidades do banco do brasil. http://www.bb.com.br/docs/pub/emp/empl/dwn/CbrVer04BB.pdf Bom, neste caso, terei que aguardar a mudança? Desde já muito obrigado.

E erro no arquivo de retorno foi 03-ENTRADA REJEITADA 1 Carteira: 1 Motivo Rejeição: 10 -Carteira Inválida-

Sim, mas meu cliente é carteira 17 na modalidade simples, quando passo estes dois parâmetros, o fonte do acbr muda a propriedade CaracTitulo para '7' veja na parte grifada. Será que esta com erro no acbr? E no retorno do arquivo do banco, veio que a carteira está inválida ou seja eu passo 7 e em outro arquivo de outro sistema que foi validado na mesma posição 58 está 1. wCarteira:= StrToIntDef(Carteira,0); { 1 = Carteira 11/12 na modalidade Simples; 2, 3 = Carteira 11/17 modalidade Vinculada/Caucionada e carteira 31; 4 = Carteira 11/17 modalidade Descontada e carteira 51; 7 = Carteira 17 modalidade Simples. } if ((wCarteira = 11) or (wCarteira = 12)) and (ACaracTitulo = '1') then wTipoCarteira := '1' else if (((wCarteira = 11) or (wCarteira = 17)) and ((ACaracTitulo = '2') or (ACaracTitulo = '3'))) or (wCarteira = 31) then wTipoCarteira := ACaracTitulo else if (((wCarteira = 11) or (wCarteira = 17)) and (ACaracTitulo = '4')) or (wCarteira = 51) then wTipoCarteira := ACaracTitulo else if (wCarteira = 17) and (ACaracTitulo = '1') then wTipoCarteira := '7' else wTipoCarteira := '7'; Este fonte é do acbr na unit AcbrBancoBrasil.pas function TACBrBancoBrasil.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String;

Foi informado pelo banco que o cliente possui as seguintes configurações: Carteira: 17 / Tipo de cobrança: Simples com Registro. Passando estas informações para o componente acbrboleto, ao gerar o arquivo de remessa na posição 58 - Código da Carteira - foi gerado a carteira com o valor '7'. Porém o arquivo foi rejeitado esperando a carteira com valor '1. Como faço para que esta carteira possa ser gerada com o valor de um, observando o fonte que está no acbrBancodoBrasil, não consigo encontrar uma configuração adequada para que a variável wCarteira receba o valor '1'. wCarteira:= StrToIntDef(Carteira,0); { 1 = Carteira 11/12 na modalidade Simples; 2, 3 = Carteira 11/17 modalidade Vinculada/Caucionada e carteira 31; 4 = Carteira 11/17 modalidade Descontada e carteira 51; 7 = Carteira 17 modalidade Simples. } if ((wCarteira = 11) or (wCarteira = 12)) and (ACaracTitulo = '1') then wTipoCarteira := '1' else if (((wCarteira = 11) or (wCarteira = 17)) and ((ACaracTitulo = '2') or (ACaracTitulo = '3'))) or (wCarteira = 31) then wTipoCarteira := ACaracTitulo else if (((wCarteira = 11) or (wCarteira = 17)) and (ACaracTitulo = '4')) or (wCarteira = 51) then wTipoCarteira := ACaracTitulo else if (wCarteira = 17) and (ACaracTitulo = '1') then wTipoCarteira := '7' else wTipoCarteira := '7';

Bom dia. Passei todas estas informações, elas estão no xml mas não consigo fazer sair na impressão. Alguém já resolveu isso. Segue o xml e o danfe. Algúem poderia nos ajudar? 31150612808277000124570010000005411000014648-cte.xml cte.PDF

Após colocar a informação você consegui imprimir, pois não consigo fazer a impressão destas informações...Alguém consegui resolver isso, usamos Q Report

Estamos com o mesmo problema, gostaria de saber se alguém resolveu esta impressão.

Estou sim. Também tinha verificado isso antes mas vi que mando essa tag como sim. Alguma outra sugestão?

O xml está com as tags corretas, mas quando imprime não sai no DACTE a parte do CONJUNTO TRANSPORTADOR. Alguém saberia o que pode ser? No programa da receita gratuito o DACTE imprimiu normalmente as informações, e os xml's estão idênticos. Segue em anexo a imagem do DACTE e o xml. 31150612808277000124570010000005411000014648-cte.xml cte.PDF

Boa tarde a todos, estou com o seguinte problema: Ao tentar setar os dados de uma nota fiscal de produtor rural referenciada Ide.refNFP.cUF := 31; estou recebendo uma acess violation. Verifcando os fontes do componente percebi que o objeto "refNFP" da classe TIde não esta sendo instanciado. fiz a seguinte alteração: No construtor da classe TIde adicionei a linha em destaque. constructor TIde.Create(AOwner: TNFe); begin inherited Create; FrefNFP := TRefNFP.Create; FNFref := TNFrefCollection.Create(Self); end; E no destructor da mesma classe adicionei a seguinte linha: destructor TIde.Destroy; begin FNFref.Free; FrefNFP.Free; inherited; end; Detalhe: Percebi que a linha que foi adicionada por mim esta no bloco abaixo constructor TNFrefCollectionItem.Create; begin FRefNF := TRefNF.Create; FRefNFP := TRefNFP.Create; FRefECF := TRefECF.Create; end; Porém parece que o mesmo não está sendo chamado ao enviar uma nfe. Gostaria da opinião de vocês se o procedimento esta correto. Grato pela atenção.

Infelizmente já faz um tempo que estou esperando esta resposta mas até agora nada..... quem assina o acbr sac tem algum lugar específico para tirar estas dúvidas?

O layout do código de barra do boleto bancoob esta diferente do que está sendo gerado pelo componente acbr. Alguém sabe me informar se alguém já fez para este layout? Informado pelo banco. cedente 75691312330200253720301200230017961200000000300 modalidade

Para a balança TOLEDO modelo 9094 - entramos na configuração interna da balança e definimos a Velocidade da porta. No nosso caso usamos como configuração C14 - Prt 1- e C15 = 9600. (olhar no manual da balança como entrar em módulo de configuração da balança) Logo depois colocar na configuração da porta Serial a mesma velocidade. Resolvido!!!!!

Também estou com o mesmo problema. Não retorna o peso. Alguém já consegui resolver este problema?

Também estou com o mesmo problema. usando Delphi 7. Usando o Demo do ACBrBalanca não retorna o peso apenas (-9) já alterei diversas vezes as configurações da velocidade da posta serial e não retorna peso. Alguém já consegui resolver este problema usando componente ACBR?

Também estou com o mesmo problema com o modelo 9094 C6. Não retorna o PESO que está na balança. Alguém já resolveu este problema?