fabricarneiro

Boa tarde Juliomar, obrigado pela resposta! Fiquei com uma dúvida após a instalação do trunc2 minha aplicação começou a pedir as seguintes dlls nos servidores dos meus clientes: iconv.dll inpout32.dll libxml2.dll libxmlsec.dll libxmlsec-openssl.dll libxslt.dll msvcr71.dll zlib1.dll Isso é normal ou foi algum erro meu durante a instalação ?

O trunc2 funciona com Delphi 7?

Prezados, Estou tendo problemas na geração do digito verificador do nosso número para boletos do bradesco via acbrboleto, alguêm já passou por isso? Segue o resultado quando eu importo o arquivo de retorno: Nosso Número: 00000000074 - Duplicata: 83-1 - Valor Recebido: 0,00 - Ocorrencia: 02-Entrada Confirmada - Vencimento: 20/10/2015 Nosso Número: 00000000076 - Duplicata: 86-1 - Valor Recebido: 0,00 - Ocorrencia: 02-Entrada Confirmada - Vencimento: 20/10/2015 Nosso Número: 00000000079 - Duplicata: 90-1 - Valor Recebido: 0,00 - Ocorrencia: 02-Entrada Confirmada - Vencimento: 20/10/2015 Nosso Número: 00000000046 - Duplicata: 55-1 - Valor Recebido: 0,00 - Ocorrencia: 03-Entrada Rejeitada - Vencimento: 20/10/2015 Nosso Número: 00000000063 - Duplicata: 72-1 - Valor Recebido: 0,00 - Ocorrencia: 03-Entrada Rejeitada - Vencimento: 20/10/2015 Nosso Número: 00000000077 - Duplicata: 87-1 - Valor Recebido: 0,00 - Ocorrencia: 03-Entrada Rejeitada - Vencimento: 20/10/2015 (para o titulo Duplicata 87-1 o nosso número gerado pelo componente foi 0000077P). Deixei o arquivo de retorno em anexo. CB071000.RET

Prezado Italo, Muito obrigado!

Prezados, Existe alguma forma de imprimir um DANFCe em impressora de 58 milimetros via ACBR ?

Bom dia, Acabei de preencher CSB na carteira, o tamanho ficou certo, vou revisar o layout agora, obrigado.

Bom dia, Estou tentando gerar a remessa pelo ACBR (baixado em 20-04-2015) e o registro detalhe sai com 405 caracteres, sendo que deveria ser 400 caracteres exatamente, primeiro tentei pela minha aplicação, depois pelo demo da pasta exemplos, somente mudando para cobHSBC. Alguém sabe me informar se tenho que setar alguma propriedade diferente? ou se é funcional a geração de remessa do HSBC. Pelo que verifiquei as diferenças começam a ocorrer após a posição 110 (depois do código da ocorrência) Desde já agradeço pelo auxílio, segue arquivo de exemplo gerado pelo demo.

Prezados, existe como gerar o txt do Arquivo_MF com os tipos de registro E01, E02, E03, E04, E05, E06, E07, E08, E09, E10, E11, E12, E13, pelo acbr ? conforme arquivo em anexo ? T017A_MFDR0510BR000000213643_20130507_092818.TXT

Prezado Régys, Consegui gerar o arquivo MFD no formato exigido, com essas duas funçoes : //gera o binário FDMPafEcf.ACBrECF1.ArquivoMFD_DLL(PathArquivo); //gera o txt FDMPafECF.ACBrECF1.ArquivoMFD_DLL(edtDtInicial.Date, edtDtFinal.Date, PathArquivoTexto, [docTodos], finMFD); Porem estou com problemas para gerar o Arquivo_MF com a função "ACBrECF1.PafMF_ArqMF(PathArquivo)" este procedimento gera o binário e gera um txt, mas o txt só vem uma linha com o EAD. O homologador disse que o arquivo MF deve ser parecido com o arquivo MFD (segue em anexo o MFD em formato txt que o homologador disse estar correto). Como faço para gerar o txt do Arquivo_MF com os tipos de registro: E01, E02, E03, E04, E05, E06, E07, E08, E09, E10, E11, E12, E13 ? MFDBE051175610000125710_20130921_134019.TXT

Prezados, durante pré testes de homologação o homologador pediu que o arquivo MF também fosse gerado em txt contendo todo o conteúdo do arquivo binário descriptografado e com assinatura EAD, não encontrei no acbr função para descriptografar o arquivo BIN gerado pela função ArquivoMF_DLL e quando utilizo as função da bematech "Bematech_FI_FormatoDadosMF" tenho como resposta um Acess Violation, já tentei com as dlls da bematech e com as do acbr e não obtive sucesso, por favor será que alguém pode me ajudar ?

Resolvido o problema era mesmo no caminho do arquivo auxiliar. Obrigado.

Obrigado Regys, acabei criando um tópico por recomendação do EMBarbosa, acredito que enquanto fazia isso você estava respondendo neste, já cancelei o topico criado.

Prezados, Estou tendo um erro no procedimento "ACBrPAF.SaveFileTXT_N('lista_autenticados.txt')", quando chego nesta linha se eu tenho o arquivo no diretório ele da a exception "Arquivo: Auxiliar.txt inválido" e se eu não tenho ele da a exception "Arquivo: Auxiliar.txt Não encontrado". Gostaria de uma ajuda de como configurar o AcbrAAC e o AcbrEAD corretamente. O componente acbrECF está ligado ao componente acbrACC, no acbrACC está setada a propriedade NomeArquivoAux -> Auxiliar.txt e o arquivo Auxiliar.txt está na pasta setada no caminho. Não encontrei muitas informações no demo do acbrACC e nenhuma referencia no acbrECF. Configurei o acbrACC conforme o exemplo do demo , (troquei apenas o valor da chave mas mantive com 4 digitos), O que pode estar ocorrendo ? Se possível também confirmar se obrigatóriamente no Arquivo Auxiliar Criptografado devo colocar o Número de Série da Impressora e o GT, e como fazer isso (de forma criptografada). Abaixo código que estou usando : Para o acbrEAD: procedure TFDMPafEcf.ACBrEAD1GetChavePrivada(var Chave: String); begin Chave := 'MIICXgIBAAKBgQDawShBJxM0rFLadxR8GSD5DaKVvxtlQ+OnuOZX/vOEP2pQXCiG'; Chave := Chave + 'NpQfNMDm73dWpTaqFLhuFvU+MSF+ys9u6bI2IqOmWUfEaE16cK4nKTbIm69fLDB8'; Chave := Chave + 'SnaocjMfO6LnbdJmG+dSxbLmrHE8BYX17/d7Vbuxcr1BoSDojGpubqP7OQIDAQAB'; Chave := Chave + 'AoGBAK0+F+ExTvaCGsPFVsXJKOHUuJQbW1jhYSPtPQ8nbDep+UpXEgjopHnqT3MU'; Chave := Chave + '5tAJ27bq3fzh1atBQaOmfoz6KxVZHEptcLPlpR+jSrBXyhG/mlvD54ZMKKZQb3qD'; Chave := Chave + 'b1UvHAO2CYRH7f7Y9PEGAvqXCloUVkbKl9rS7MEfaukj3xq5AkEA+Qqi8c1j47Db'; Chave := Chave + 'NyezJULfskNwK1wnxcLaFQBKfzpWD2dD0GS/dzWaB5T6d1zmxfXa8ZYv6WQULvqd'; Chave := Chave + '/BGCs+FMcwJBAODd4aDvQf6py4FocklojYbDhpp040NGUyhsVnj702Gq/oj2HBgI'; Chave := Chave + '4bce/b2H5+HwkyEsSZHMm5d/5HuNY35Y+qMCQQDoWCMTgvLZn8u1loVNkymOb9p7'; Chave := Chave + 'qZu1poe+JiparrtR3Z7oEsaK2mhdAIH40KTBNhHRaLREg8lM1yaD4HZXii+/AkA2'; Chave := Chave + 'L0EfNogAhYm0NSbU6Yyw3Iyiy2e33kpLg0+S95uH/Vw4RJWgdQNuzNj3wrftibrq'; Chave := Chave + 'U3Gm4FbdusOjwf4ng+lhAkEApd6RF3AqJXtmgtZpXrO6P8riEpE1qZXBQwdfeRBX'; Chave := Chave + 'Q22LlhcCq5vxgG78jKWeydtan9ue2ebXav/oUT+37LfHYA=='; end; procedure TFDMPafEcf.ACBrEAD1GetChavePublica(var Chave: String); begin Chave := 'MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDawShBJxM0rFLadxR8GSD5DaKV'; Chave := Chave + 'vxtlQ+OnuOZX/vOEP2pQXCiGNpQfNMDm73dWpTaqFLhuFvU+MSF+ys9u6bI2IqOm'; Chave := Chave + 'WUfEaE16cK4nKTbIm69fLDB8SnaocjMfO6LnbdJmG+dSxbLmrHE8BYX17/d7Vbux'; Chave := Chave + 'cr1BoSDojGpubqP7OQIDAQAB'; end; Para o ACBRAcc : procedure TFDMPafEcf.ACBrAAC1GetChave(var Chave: String); begin Chave := '7777'; end; procedure TFDMPafEcf.ACBrAAC1VerificarRecomporNumSerie( const NumSerie: String; const ValorGT: Double; var CRO, CNI: Integer); var OK: Boolean; NumCRZ, NumCRO: Integer; VendaBruta: Double; begin // ler os dados da ultima Z no ECF FDMPAFECF.ACBrECF1.DadosUltimaReducaoZ; NumCRO := FDMPAFECF.ACBrECF1.DadosReducaoZClass.CRO; NumCRZ := FDMPAFECF.ACBrECF1.DadosReducaoZClass.CRZ; VendaBruta := FDMPAFECF.ACBrECF1.DadosReducaoZClass.ValorVendaBruta; // comparar os dados obtidos com os dados da ultima redução Z gravada no Banco de dados //OK := Comparar com dados do BD; Aqui deixei sempre como true, para teste. OK:= TRUE; // setar os parametros se os valores (CRZ, CRO e Venda Bruta) forem iguais if OK then begin CRO := NumCRO; CNI := 010101; // codigo nacional de identificação do ECF conforme tabela end; end; procedure TFDMPafEcf.ACBrAAC1VerificarRecomporValorGT( const NumSerie: String; var ValorGT: Double); var OK: Boolean; NumCRZ, NumCRO: Integer; VendaBruta: Double; begin // ler os dados da ultima Z no ECF FDMPAFECF.ACBrECF1.DadosUltimaReducaoZ; NumCRO := FDMPAFECF.ACBrECF1.DadosReducaoZClass.CRO; NumCRZ := FDMPAFECF.ACBrECF1.DadosReducaoZClass.CRZ; VendaBruta := FDMPAFECF.ACBrECF1.DadosReducaoZClass.ValorVendaBruta; // comparar os dados obtidos com os dados da ultima redução Z gravada no Banco de dados //OK := Comparar com dados do BD; Aqui deixei sempre como true, para teste. OK:= TRUE; // setar o parametro se os valores (CRZ, CRO e Venda Bruta) forem iguais if OK then ValorGT := FDMPAFECF.ACBrECF1.GrandeTotal; end; if FileExists(ExtractFilePath(Application.ExeName) + 'Auxiliar.txt') then DeleteFile(ExtractFilePath(Application.ExeName) + 'Auxiliar.txt'); AssignFile(F, ExtractFilePath(Application.ExeName) + 'Auxiliar.txt'); Rewrite(F); closefile(F); // setar o diretório onde vai ser salvo o arquivo FdmPafEcf.ACBrPAF1.Path := ExtractFilePath(Application.ExeName) + 'PAF-ECF\'; // registro dos dados do desenvolvedor //Self.PreencherHeaderArquivo(FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1); // registro dos dados do aplicativo FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1.RAZAOSOCIAL := FdmPafEcf.ACBrAAC1.IdentPAF.Empresa.RazaoSocial; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1.UF := FdmPafEcf.ACBrAAC1.IdentPAF.Empresa.Uf; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1.CNPJ := FdmPafEcf.ACBrAAC1.IdentPAF.Empresa.CNPJ; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1.IE := FdmPafEcf.ACBrAAC1.IdentPAF.Empresa.IE; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1.IM := FdmPafEcf.ACBrAAC1.IdentPAF.Empresa.IM; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN2.NOME := FdmPafEcf.ACBrAAC1.IdentPAF.Paf.Nome; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN2.VERSAO := FdmPafEcf.ACBrAAC1.IdentPAF.Paf.Versao; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN2.LAUDO := FdmPafEcf.ACBrAAC1.IdentPAF.NumeroLaudo; // lista dos arquivo executaveis e seus respectivos MD5 with FdmPafEcf.ACBrAAC1.IdentPAF.OutrosArquivos.New do //Aqui só está pegando e processando o ultimo nome (easyconfigurador.exe) begin Nome := 'EmpPafEcf.exe'; end; with FdmPafEcf.ACBrAAC1.IdentPAF.OutrosArquivos.New do //Aqui só está pegando e processando o ultimo nome (easyconfigurador.exe) begin Nome := 'BemaFI32.dll'; end; // Salvar o arquivo de autenticados FdmPafEcf.ACBrPAF1.SaveFileTXT_N('lista_autenticados.txt'); // Carregar o MD5 do arquivo de autenticados FdmPafEcf.ACBrAAC1.IdentPAF.ArquivoListaAutenticados.Nome := 'lista_autenticados.txt'; FdmPafEcf.ACBrAAC1.IdentPAF.ArquivoListaAutenticados.MD5 := FdmPafEcf.ACBrEAD1.MD5FromFile(ExtractFilePath(Application.ExeName) + 'PAF-ECF\' + 'lista_autenticados.txt'); FdmPafEcf.ACBrAAC1.SalvarArquivo; // setar o MD5 do arquivo de autenticados que deve aparecer no rodapé do cupom // se a impressora for MFD então fazer a programação para que apareça nas informações complementares // se não for MFD setar a propriedade InfoRodapeCupom.MD5 do FdmPafEcf.ACBrECF if FdmPafEcf.ACBrECF1.MFD then begin FdmPafEcf.ACBrECF1.InfoRodapeCupom.MD5 := EmptyStr; if FdmPafEcf.ACBrECF1.Estado = estLivre then begin FdmPafEcf.ACBrECF1.IdentificaPAF( FdmPafEcf.ACBrAAC1.IdentPAF.Paf.Nome + ' v' + FdmPafEcf.ACBrAAC1.IdentPAF.Paf.Versao, 'MD-5: ' + FdmPafEcf.ACBrAAC1.IdentPAF.ArquivoListaAutenticados.MD5 ); end; end else begin FdmPafEcf.ACBrECF1.InfoRodapeCupom.MD5 := FdmPafEcf.ACBrAAC1.IdentPAF.ArquivoListaAutenticados.MD5; end; Grato se alguem responder.

Prezado EMBarbosa, O usuário anterior não deu a solução para este problema no post apenas informou que resolveu sozinho após vários testes, abaixo segue a rotina que estou utilizando para a geração : if FileExists(ExtractFilePath(Application.ExeName) + 'PAF-ECF\' + 'Auxiliar.txt') then DeleteFile(ExtractFilePath(Application.ExeName) + 'PAF-ECF\' + 'Auxiliar.txt'); AssignFile(F, ExtractFilePath(Application.ExeName) + 'PAF-ECF\' + 'Auxiliar.txt'); Rewrite(F); closefile(F); // setar o diretório onde vai ser salvo o arquivo FdmPafEcf.ACBrPAF1.Path := ExtractFilePath(Application.ExeName) + 'PAF-ECF\'; // registro dos dados do desenvolvedor //Self.PreencherHeaderArquivo(FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1); // registro dos dados do aplicativo FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1.RAZAOSOCIAL := FdmPafEcf.ACBrAAC1.IdentPAF.Empresa.RazaoSocial; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1.UF := FdmPafEcf.ACBrAAC1.IdentPAF.Empresa.Uf; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1.CNPJ := FdmPafEcf.ACBrAAC1.IdentPAF.Empresa.CNPJ; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1.IE := FdmPafEcf.ACBrAAC1.IdentPAF.Empresa.IE; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN1.IM := FdmPafEcf.ACBrAAC1.IdentPAF.Empresa.IM; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN2.NOME := FdmPafEcf.ACBrAAC1.IdentPAF.Paf.Nome; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN2.VERSAO := FdmPafEcf.ACBrAAC1.IdentPAF.Paf.Versao; FdmPafEcf.ACBrPAF1.PAF_N.RegistroN2.LAUDO := FdmPafEcf.ACBrAAC1.IdentPAF.NumeroLaudo; // lista dos arquivo executaveis e seus respectivos MD5 with FdmPafEcf.ACBrAAC1.IdentPAF.OutrosArquivos.New do //Aqui só está pegando e processando o ultimo nome (easyconfigurador.exe) begin Nome := 'EmpPafEcf.exe'; end; with FdmPafEcf.ACBrAAC1.IdentPAF.OutrosArquivos.New do //Aqui só está pegando e processando o ultimo nome (easyconfigurador.exe) begin Nome := 'BemaFI32.dll'; end; // Salvar o arquivo de autenticados FdmPafEcf.ACBrPAF1.SaveFileTXT_N('lista_autenticados.txt'); // Carregar o MD5 do arquivo de autenticados FdmPafEcf.ACBrAAC1.IdentPAF.ArquivoListaAutenticados.Nome := 'lista_autenticados.txt'; FdmPafEcf.ACBrAAC1.IdentPAF.ArquivoListaAutenticados.MD5 := FdmPafEcf.ACBrEAD1.MD5FromFile(ExtractFilePath(Application.ExeName) + 'PAF-ECF\' + 'lista_autenticados.txt'); FdmPafEcf.ACBrAAC1.SalvarArquivo; // setar o MD5 do arquivo de autenticados que deve aparecer no rodapé do cupom // se a impressora for MFD então fazer a programação para que apareça nas informações complementares // se não for MFD setar a propriedade InfoRodapeCupom.MD5 do FdmPafEcf.ACBrECF if FdmPafEcf.ACBrECF1.MFD then begin FdmPafEcf.ACBrECF1.InfoRodapeCupom.MD5 := EmptyStr; if FdmPafEcf.ACBrECF1.Estado = estLivre then begin FdmPafEcf.ACBrECF1.IdentificaPAF( FdmPafEcf.ACBrAAC1.IdentPAF.Paf.Nome + ' v' + FdmPafEcf.ACBrAAC1.IdentPAF.Paf.Versao, 'MD-5: ' + FdmPafEcf.ACBrAAC1.IdentPAF.ArquivoListaAutenticados.MD5 ); end; end else begin FdmPafEcf.ACBrECF1.InfoRodapeCupom.MD5 := FdmPafEcf.ACBrAAC1.IdentPAF.ArquivoListaAutenticados.MD5; end; O componente acbrECF está ligado ao componente acbrACC, no acbrACC está setada a propriedade NomeArquivoAux -> Auxiliar.txt e o arquivo Auxiliar.txt está na pasta setada no caminho. Não encontrei muitas informações no demo do acbrACC e nenhuma referencia no acbrECF. Configurei o acbrACC conforme o exemplo do demo , (troquei apenas o valor da chave mas mantive com 4 digitos). O que pode estar ocorrendo ? a exception gera no metodo FdmPafEcf.ACBrPAF1.SaveFileTXT_N. Grato se responder.

Prezados, estou com o problema referente ao arquivo auxiliar inválido : // Salvar o arquivo de autenticados ACBrPAF.SaveFileTXT_N('Executaveis.txt'); //Aqui apresenta o erro: Auxiliar.txt inválido. Como resolver ? Por favor me ajudem. Agradeço desde já.