Ir para conteúdo
  • Cadastre-se

jburda

Membros
  • Total de ítens

    70
  • Registro em

  • Última visita

Tudo que jburda postou

  1. o Arquivo original está correto. o que coloquei, mudei os dados do cliente. Este é o arquivo de retorno original 40296117.CRT
  2. Está desta forma! No postar, a pagina está removendo o "[ I ]", então substitui na postagem por [X] for X := 0 to (quant_tit - 1) do begin with ACBrBoleto1.ListadeBoletos.Objects[X} do begin ProgressBar1.Position :=X + 1;
  3. Estou utilizando desta forma ACBrBoleto1.ListadeBoletos.Clear; ACBrBoleto1.LerRetorno; quant_tit := ACBrBoleto1.ListadeBoletos.Count; for i := 0 to (quant_tit - 1) do begin with ACBrBoleto1.ListadeBoletos.Objects do begin ProgressBar1.Position := i + 1; mOcorrencia := copy(ACBrBoleto1.Banco.TipoOcorrenciaToDescricao(OcorrenciaOriginal.Tipo), 1, 2); txtOcorrencia := ACBrBoleto1.Banco.TipoOcorrenciaToDescricao(OcorrenciaOriginal.Tipo); ///// as linhas abaixo foram incluidas apenas para colocar em um memo o retorno para este post memo2.Lines.Add('ACBrBoleto1.Banco.TipoOcorrenciaToDescricao '+ACBrBoleto1.Banco.TipoOcorrenciaToDescricao(OcorrenciaOriginal.Tipo)); memo2.Lines.Add('mOcorrencia '+mOcorrencia); memo2.Lines.Add('txtOcorrencia: '+ACBrBoleto1.Banco.TipoOcorrenciaToDescricao(OcorrenciaOriginal.Tipo)); memo2.Lines.Add('-------------------------------'); ////////////////////// end; end; Este foi o retorno obtido Memo2 ACBrBoleto1.Banco.TipoOcorrenciaToDescricao 02-Entrada Confirmada Mocorrencia 02 txtOcorrencia: 02-Entrada Confirmada ------------------------------- ACBrBoleto1.Banco.TipoOcorrenciaToDescricao 02-Entrada Confirmada Mocorrencia 02 txtOcorrencia: 02-Entrada Confirmada ------------------------------- ACBrBoleto1.Banco.TipoOcorrenciaToDescricao 02-Entrada Confirmada Mocorrencia 02 txtOcorrencia: 02-Entrada Confirmada ------------------------------- ACBrBoleto1.Banco.TipoOcorrenciaToDescricao 28-Débito de Tarifas Custas Mocorrencia 28 txtOcorrencia: 28-Débito de Tarifas Custas
  4. Estou tendo problemas na leitura do arquivo de retorno do Banco SICREDI. Efetuei 3 baixas via site do banco, recebi o arquivo de retorno informando codOcorrencia 09, que de acordo com o manual é "09 -Baixado Automaticamente Via Arquivo". 1 A016OY000002 182026123 091601192019010138 1001190000000008400 K000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 0000000000 000002 Estou recebendo do Acbr como '02-Entrada Confirmada'. Ao conferir o código fonte, constatei que a função TACBrBancoSicredi.CodOcorrenciaToTipo, está retornando toRetornoBaixadoViaArquivo, mas ao utilizar a função TACBrBancoSicredi.TipoOCorrenciaToCod, não existe o tipo de ocorrencia toRetornoBaicadoViaArquivo, tem apenas toRetornoBaixado, o que acaba provocando o retorno do Result := '02'. segue arquivo de retorno do banco 12345117.CRT
  5. Estou com o erro "O seu compilador não tem suporte nativo a ZipFile. " no blocoX. Já descomentei "$DEFINE USE_ZLibExGZ", atualizei os componentes, reinstalei o ACbr, e ainda persiste o erro. Alguém pode me dar uma luz?
  6. Valeu BigWings! Era isto mesmo! Eu assumi o projeto de outro programador, e ele estava atribuindo a versão do modeloDF deixando fixo como 2.0. Mesmo carregando a versão 3.0 a partir do arquivo INI, havia uma linha de código retornando para a versão anterior. Obrigado pela ajuda!
  7. boa noite! Estou tendo problemas em efetuar operações com CT-e. Está retornando "Rejeicao: Cabecalho - A versao do arquivo xml nao e suportada ". Já apaguei a pasta schemas e efetuei atualização do acbr, mas continua com a mesma mensagem. Alguém está tendo este problema?
  8. Estou processando arquivo de retorno do Sicoob, padrão CNAB240 e encontrei algumas divergências entre o Layout de 15/12/2017 e o ACBR. fpTamanhoMaximoNossoNum := 7; // pelo manual é 9+DV tamanho10 leitura de informações do retorno estão erradas na procedure TACBrBancoob.LerRetorno240(ARetorno: TStringList); NossoNumero := Copy(Linha,40,7); => correto Copy(Linha,38,10); Carteira := Copy(Linha,40,2); => correto Copy(Linha,58,1); esta é uma linha do arquivo de retorno 7560001300001T 0203069000000012157010000000502901014 12018040148 10042018000000000010500756030690 090000000376344963xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx00000000000000000000000000000000046 13.3T 38 57 20 - Alfa Nosso Número 14.3T 58 58 1 - Num Carteira LAYOUT ATUALIZADO EM 15/12/2017 "Nosso Número: NumTitulo - 10 posições (1 a 10) Parcela - 02 posições (11 a 12) - ""01"" se parcela única Modalidade - 02 posições (13 a 14) - vide planilha ""Contracapa"" deste arquivo Tipo Formulário - 01 posição (15 a 15): Em branco - 05 posições (16 a 20)" Layouts_para_troca_de_informações.xls
  9. Onde este demo está disponível? O demo que está vindo do SVN é diferente¹
  10. Sim, É efetuado a transmissão e visualização da Danfe. Quando faz a impressão a partir desta visualização, ocorre isto. Agora se fechar e solicitar a reimpressão a partir do XML, a impressão ocorre normalmente.
  11. Depois de 31 meses, ainda não conseguiram liberar o boleto detalhado? Qual está sendo a dificuldade?
  12. boa noite ! Meu arquivo de remessa estava sendo rejeitado com a informação "tipo de Documento Inválido". o Tipo de documento é 'DS' duplicata de serviço. Na unit, em GerarREgistroTranscacao240, estava contemplando apenas DM e DMI. De acordo com o LayOut enviado pelo SICOOB, as opções são as seguintes: "Espécie do Título: '01' = CH Cheque '02' = DM Duplicata Mercantil '03' = DMI Duplicata Mercantil p/ Indicação '04' = DS Duplicata de Serviço '05' = DSI Duplicata de Serviço p/ Indicação '06' = DR Duplicata Rural '07' = LC Letra de Câmbio '08' = NCC Nota de Crédito Comercial '09' = NCE Nota de Crédito a Exportação '10' = NCI Nota de Crédito Industrial '11' = NCR Nota de Crédito Rural '12' = NP Nota Promissória '13' = NPR Nota Promissória Rural '14' = TM Triplicata Mercantil '15' = TS Triplicata de Serviço '16' = NS Nota de Seguro '17' = RC Recibo '18' = FAT Fatura '19' = ND Nota de Débito '20' = AP Apólice de Seguro '21' = ME Mensalidade Escolar '22' = PC Parcela de Consórcio '23' = NF Nota Fiscal '24' = DD Documento de Dívida ‘25’ = Cédula de Produto Rural '32' = BDP Boleto de Proposta '99' = Outros" Fiz alteração na Unit e estou disponibilizando para conferencia pelos administradores e posterior publicação. ACBrBancoBancoob.pas
  13. boa tarde ! Estou com este mesmo problema! Alguém tem a solução?
  14. Fabio, você já resolveu ? Eu estava como o mesmo problema no envio dos meus boletos. Meu provedor passou a autenticar utilizando TLS e parou de enviar no meu servidor (2008). No notebook de desenvolvimento estava enviando normalmente. Para resolver, coloquei as DLLs que existem na pasta DLL do acbr, ssleay32.dll e libeay32.dll e coloquei na mesma pasta do exeutável. procurei por estas Dlls para ver se haviam alguma versão antiga na pasta do windows e apagar, para evitar conflitos com outras versões. Agora está funcionando normal! []´s
  15. Faz muito tempo que não preciso alterar meu sistema de envio de boletos, mas, agora surgiu uma necessidade e estou tendo problemas em enviar os boletos por email. Quando gero apenas o PDF, funciona normal, mas, quando tento enviar por email está dando a mensagem anexa. Isto ocorre já no primero boleto que é gerado. Estou utilizando desta forma: if ACBrBoleto1.ListadeBoletos.Count > 0 then begin ACBrBoleto1.ACBrBoletoFC.NomeArquivo := 'Nome do arquivo a ser gerado.pdf'; ACBrBoleto1.EnviarEmail(mEmailCliente, Email_Assunto, mmEmailMsg.Lines, EnviarPDF,memoCCEmail.lines, nil); end; Alguém já passou por isto e pode me ajudar ? Obrigadoerro acbr boleto.bmp
  16. boa noite ! Eu faço a emissão dos PDFs desta forma! while not dm.tbparcelas.eof do begin ACBrBoleto1.ListadeBoletos.Clear; // vai limpar a lista de boletos Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin // adicionar os campos do boleto end; if ACBrBoleto1.ListadeBoletos.Count > 0 then begin ACBrBoleto1.ACBrBoletoFC.NomeArquivo := 'Nome do arquivo a ser gerado.pdf'; ACBrBoleto1.GerarPDF; end; dm.tbparcelas.next; end; Espero que tenha ajudado!
  17. Bom dia ! Oficialmente não ! Na POLIMIG disseram que de acordo com o auditor fiscal que passou o layout, deve ser publicado nos próximos dias.
  18. A SEFAZ/SC está disponibilizando para os homologadores este novo layout, o qual também já está sendo utilizado para validação dos arquivos no web service de teste. Eu homologuei hoje (13/12) na POLIMIG em SP e o arquivo da Redução Z não passou na validação do layout. Só foi liberado o laudo porque o layout ainda em vigor é o que está no Ato Cotepe, e, não foi publicado nenhuma alteração. Foi necessário gravar um print com a mensagem do webservice, print do XML gerado no layout antigo e print do layout que está sendo utilizado sem a publicação. Requisito LVIII (Redução Z) e LIX (Estoque).pdf
  19. novo layout do blocoX fornecido pela Polimig. Requisito LVIII (Redução Z) e LIX (Estoque) - Google Docs_Atualizado (3).pdf
  20. Boa tarde! Neste momento estou na Polimig-SP e, mesmo não tendo como transmitir o blocoX, eles querem que eu apresente o XML de resposta da falha da transferencia ou qualquer outra informação. Já tentei de tudo, e, como estou homologando agora, a não estou conseguindo pensar direito! Alguém pode ajudar?
  21. Foi o mesmo que perguntei e, a resposta foi que o registro E3 é apenas a informação de qual ECF atualizou o estoque conforme determinado no requisito VII, ítem 17 a . Na POLIMIG os testes são feitos com 2 ECFs, sendo que a primeira ECF que emitir redução Z vai gerar os registros P2 e E2, além dos demais que o anexo IV determina, mas, quando a segunda ECF emitir a reduçãoZ, irá omitir os registros P2 e E2 e, informará o numero da ECF que atualizou o estoque no dia (E3), conforme requisito XXVI, item 7..
  22. Boa tarde ! Estou homologando na POLIMIG -SP e ao gerar registros do PAF, os registros P2 e E2 devem ser gerados apenas pelo primeiro ECF que efetuar a redução Z, as demais devem gerar os registrosPAF com os demais registros, sendo que é necessário informar o E3 (ECF que atualizou o estoque). É necessário efetuar alteração no ACBrPAF, pois, está gerando o E3 apenas de houver registros E2. if FPAF_E.RegistroE2.Count > 0 then begin FPAF_E.WriteRegistroE2; //FPAF_E.WriteRegistroE3; <== coloquei abaixo para gerar se não tiver E2 //FPAF_E.WriteBuffer; <== coloquei abaixo para gerar se não tiver E2 end; FPAF_E.WriteRegistroE3; FPAF_E.WriteBuffer;
  23. Estou em processo de Homologação na POLIMIG desde segunda feira. Na segunda feira transmitiu normalmente e a partir de ontem começou a dar este problema. Vamos torcer que volte a funcionar amanhã!
  24. Eu vou homologar na semana que vem na Polimg em SP. Estou a semana toda tentando enviar o blocoX do estoque e dá erro de timeout. conversei com a Polimig e eles disseram que será cobrado a transmissão do arquivos. A Redução Z está indo sem problemas! Agora a pouco (1:50), resolvi apagar quase todos os produtos da tabela e gerar o blocoX com apenas 150 ítens. Bingo !!!! O arquivo foi transmitido! Pelo que parece, o WebService da SEFAZ/SC não está aceitando arquivos grandes no ambiente de homologação..
  25. Boa noite ! Faz algum tempo que meus clientes estão reclamando da quebra de linha nos textos dos dados adicionais da Danfe. Na primeira emissão, sai bagunçado e na reimpressão sai normal. seguem as telas antes, depois e xml. Alguém passou por este problema e corrigiu?
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.