Ir para conteúdo
  • Cadastre-se

Rodrigo Coelho

Membros
  • Total de ítens

    68
  • Registro em

  • Última visita

Posts postados por Rodrigo Coelho

  1. 14 horas atrás, EMBarbosa disse:

    Muito obrigado pela contribuição.
    Fiz a implementação baseada nela.
    Subi as alterações para o SVN na Revisão  18889.
    Pelo que vi está tudo certo.
    Queira por favor atualizar, testar e reportar qualquer problema.

    Mais uma vez obrigado.

    Baixei as atualizações, mas o bloco 0900 continua não sendo gerado pelo componente.

  2. Bom dia,

    Acabo de fazer uma tratamento de exceção para importação de arquivos SPED (ICMS/IPI e PIS/COFINS) que já foram assinados pelo PVA. Esses arquivos contém um "lixo" no final que não deve ser lido ou tentado importar, pois geram erro. Para isso eu fiz um tratamento para essa exceção. Gostaria que avaliassem para subir no SVN.

    Outra coisa. Estou anexando outros dois arquivo (ACBR<Tipo>Base) que fiz alteração na semana passada, mas acabei esquecendo de colocar o histórico no cabeçalho do arquivo.

    Grato.

    ACBrEPCBase.pas ACBrEPCImportar.pas ACBrEFDBase.pas ACBrEFDImportar.pas

    • Curtir 2
  3. 1 hora atrás, Rodrigo Coelho disse:

    Estou tentando importar o arquivo em anexo com o componente de importação do SPED Fiscal. Está gerando uma erro de "Index out of bounds". Acredito que se deve ao fato de algum bloco ter mudado o layout e ter mais ou menos colunas que o atual.

    Rodrigo.

    EFD_0916.TXT 769 kB · 0 downloads

    Fiz um debug e encontrei o problema no bloco 0200, onde em 2016 tinha 12 campos e agora tem 13.

  4. Em 02/02/2018 at 12:04, Rodrigo Coelho disse:

    Boa tarde,

    Até a revisão 13564 a leitura de cobranças (método LerRetorno240) estava trazendo o número do documento. A partir da revisão 13890 foi mudado a posição das casas decimais que devem ser lidas, porém, isso faz com que o método leia um espaço em branco quando deveria pegar o número de documento.

    Veja:

    Revisão 13564

    
    if copy(Linha, 14, 1) = 'T' then
          begin
            NossoNumero          := Copy(Linha, 41, ACBrBanco.TamanhoMaximoNossoNum);
            SeuNumero            := Copy(Linha, 55, 15);
            NumeroDocumento      := Copy(Linha, 55, 15);

    Revisão 13890

    
    if copy(Linha, 14, 1) = 'T' then
          begin
            NossoNumero          := Copy(Linha, 41, ACBrBanco.TamanhoMaximoNossoNum);
            SeuNumero            := Copy(Linha, 55, 15);
            NumeroDocumento      := Copy(Linha, 101, 12);

    Tive que fazer uma alteração para que o método continuasse lendo meus arquivos. Em anexo estou enviando o arquivo que estou tentando ler.

    Obrigado

    Rodrigo.

    COBST_D4XY_02_010218P_MOV.TXT

    Alguém poderia me dar um retorno sobre o assunto?

    Obrigado.

  5. Boa tarde,

    Ao fazer a leitura da remessa de cobrança, a propriedade Sacado.CNPJCPF não está salvando os números corretamente. Quando é pessoa física está pegando os zeros a esquerda. Deve-se fazer o mesmo tratamento que na leitura do Cedente. Veja a minha adaptação (método LerRetorno240, claro que essa adaptação deve se estender para os demais métodos):

     

    // Sacado
            if Copy(Linha, 128, 1) = '1' then
            begin
              Sacado.Pessoa  := pFisica;
              Sacado.CNPJCPF := Trim(Copy(Linha, 133, 11));
            end
            else
            begin
              Sacado.Pessoa := pJuridica;
              Sacado.CNPJCPF := Trim(Copy(Linha, 129, 15));
            end;
            Sacado.NomeSacado := Trim(Copy(Linha, 144, 40));

    Estou fazendo a leitura das remessas de cobrança para dar baixa no sistema financeiro que tenho. Os clientes estão cadastrados pelo CPF ou CNPJ, no caso de CNPJ está certo, mas quando busco por CPF o meu sistema não encontra o registro, já que o CPF está vindo com dígitos à esquerda a mais.

    Rodrigo.

  6. Boa tarde,

    Até a revisão 13564 a leitura de cobranças (método LerRetorno240) estava trazendo o número do documento. A partir da revisão 13890 foi mudado a posição das casas decimais que devem ser lidas, porém, isso faz com que o método leia um espaço em branco quando deveria pegar o número de documento.

    Veja:

    Revisão 13564

    if copy(Linha, 14, 1) = 'T' then
          begin
            NossoNumero          := Copy(Linha, 41, ACBrBanco.TamanhoMaximoNossoNum);
            SeuNumero            := Copy(Linha, 55, 15);
            NumeroDocumento      := Copy(Linha, 55, 15);

    Revisão 13890

    if copy(Linha, 14, 1) = 'T' then
          begin
            NossoNumero          := Copy(Linha, 41, ACBrBanco.TamanhoMaximoNossoNum);
            SeuNumero            := Copy(Linha, 55, 15);
            NumeroDocumento      := Copy(Linha, 101, 12);

    Tive que fazer uma alteração para que o método continuasse lendo meus arquivos. Em anexo estou enviando o arquivo que estou tentando ler.

    Obrigado

    Rodrigo.

    COBST_D4XY_02_010218P_MOV.TXT

  7. Boa tarde,

    Tentei reinstalar os componentes do ACBr e ocorreu um erro. Veja abaixo:

     

    C:\ACBr\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDFiscalImportar\ACBrEFDBloco_C_Importar.pas(212) Error: E2003 Undeclared identifier: 'StrToIndTipoOper'
    C:\ACBr\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDFiscalImportar\ACBrEFDBloco_C_Importar.pas(213) Error: E2003 Undeclared identifier: 'StrToEmitente'
    C:\ACBr\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDFiscalImportar\ACBrEFDBloco_C_Importar.pas(668) Error: E2003 Undeclared identifier: 'StrToIndTipoOper'
    C:\ACBr\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDFiscalImportar\ACBrEFDBloco_C_Importar.pas(669) Error: E2003 Undeclared identifier: 'StrToEmitente'
    C:\ACBr\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDFiscalImportar\ACBrEFDImportar.pas(54) Fatal: F2063 Could not compile used unit 'ACBrEFDBloco_C_Importar.pas'
    Compilation failure
    Erro ao compilar o pacote "ACBr_SPEDImportar.dpk".
    Abortando... Ocorreram erros na compilação dos pacotes.

  8. Fiz somente a tratativa de importar porque meu cliente gera as remessas com outro software que não trabalha com a parte financeira da empresa. No meu software ele tem o Financeiro. Então ele quer ler essas remessas enviadas ao banco para dar baixa automática nas suas contas a pagar no meu sistema.

    Rodrigo

  9. Olá, tenho a seguinte situação. Meu cliente tem um sistema que gera dois tipos de arquivo. Um de cobrança de alugueis e ou de repasse dos valores aos proprietários. No meu sistema preciso ler esses arquivos. O de cobrança consigo ler perfeitamente com o código abaixo

    ACBrBoleto1.DirArqRetorno := 'C:\Clientes\Beta\';
    ACBrBoleto1.NomeArqRetorno := 'COBST_D4XY_02_110117P_MOV.TXT';
    ACBrBoleto1.LerRetorno();

    Porém preciso fazer o mesmo com o arquivo em anexo, mas o componente me diz que não é um arquivo de cobrança 240 válido. Tem alguma outra rotina ou maneira que devo configurar para ler esse arquivo? Pois preciso extrair informações dele para dar baixa no meu sistema financeiro que este mesmo cliente utiliza.

    RP130117.RJ3.txt

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

The popup will be closed in 10 segundos...