Ir para conteúdo
  • Cadastre-se

ClausquellerMitome

Membros
  • Total de ítens

    18
  • Registro em

  • Última visita

Posts postados por ClausquellerMitome

  1. 58 minutos atrás, Italo Giurizzato Junior disse:

    Boa tarde @ClausquellerMitome,

    Você tem fontes do ACBr com alterações locais?
    Verifica se não tem nenhuma unit do ACBr com uma bolinha vermelha em seu ícone, caso afirmativo delete a unit.
    Atualize todos os fontes de todas as pastas.
    Reinstale o ACBr com a opção de apagar arquivos antigos marcada.
    Compile a aplicação com a opção Build.
    Por fim repita os testes.
     

    Não utilizo alterações locais.
    Vou fazer o teste : ""Marque no instalador para não utilizar XMLSec.

    Obrigado

    • Curtir 2
  2. Olá, na última atualização do componente, comecei a receber o erro: 
    C:\Componentes\Acbr\Fontes\ACBrDFe\ACBrDFeXsXmlSec.pas(131) Error: E2037 Declaration of 'Assinar' differs from previous declaration
    C:\Componentes\Acbr\Fontes\ACBrDFe\ACBrDFeSSL.pas(2936) Fatal: F2063 Could not compile used unit 'ACBrDFeXsXmlSec.pas'
    Compilation failure

    Olhando as classes TDFeSSLXmlSignClass que possui o método Assinar virtual o sofre a sobreposição na TDFeSSLXmlSignXmlSec, que herda de TDFeSSLXmlSignClass e tbm possue um método de override assinar, estar com a declaração diferente causando o erro.

    //TDFeSSLXmlSignXmlSec

        function Assinar(const ConteudoXML, docElement, InfElement: String;
          const SignatureNode: String = ''; const SelectionNamespaces: String = '';
          const IdSignature: String = ''; const IdAttr: String = ''): String; override;

    //TDFeSSLXmlSignClass

        function Assinar(const ConteudoXML, docElement, infElement: String;
          const SignatureNode: String = ''; const SelectionNamespaces: String = '';
          const IdSignature: String = ''; const IdAttr: String = '';
          const IdSignatureValue: string = ''): String; virtual;



    Alguém poderia do acbr poderia verificar por favor.

  3. Olá,

    var
      LRetorno : Boolean;
      doc : TACBrTitulo;
      LNossoNumero : String;
    begin
      FBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe;

      LNossoNumero := TACBrTitulo(FBoleto.ListadeBoletos.Items[0]).NossoNumero;
      FBoleto.ListadeBoletos.Clear;
      FBoleto.Configuracoes.WebService.Filtro.Clear;
      FBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe;
      FBoleto.Configuracoes.WebService.Filtro.indiceContinuidade := 0;
      FBoleto.Configuracoes.WebService.Filtro.indicadorSituacao := TACBrIndicadorSituacaoBoleto.isbAberto;
      FBoleto.Configuracoes.WebService.Filtro.dataMovimento.DataInicio := Date - 1;
      FBoleto.Configuracoes.WebService.Filtro.dataMovimento.DataFinal  := Date + 1;

      Result := rrbSalvo;

      // doc => TACBrTitulo;
      doc := FBoleto.CriarTituloNaLista;
      doc.Carteira    := '17';
      doc.NossoNumero := LNossoNumero; // nosso número no formato 0000001099 : NOSSONUMERO = 0000001 e Código  = 099

      LRetorno := FBoleto.EnviarBoleto; // 

      if LRetorno then
      begin
        Result := rrbRegistrado;
      end;
    end;

    0000001099 : NOSSONUMERO = 0000001 e Código  = 099

    0000001099 = Erro de Nosso número invalido retornado pela API;
    0000001 = Usando dessa forma funciona funciona normal;

    Alguma sugestão para resolver esse problema?

  4. Olá, 

    Montei o evento de CCe para a CTe, funcionou tudo perfeitamente em relação ao envio do evento. Entretanto, estou com dificuldades para salvar o arquivo do evento em uma determinada pasta. Olhei o fonte verifiquei que e gerado um temp.xml com os dados, tbm e gerado um outro xml como o nome de 111908-ped-eve.xml o qual tem as informações do evento. Tentei manualmente ler esse arquivo, mas na impressão sempre fica em branco. Resumindo não conseguir salvar o evento e imprimir como e feito no CCe da NFe.

    Alguém poderia me ajudar com essa questão?

    Atenciosamente,

  5. Olá, Fiz o cancelamento da nfe, onde o processo ocorreu tudo normalmente, inclusive no xml conta a mensagem "Cancelamento de NF-e homologado".
    Mas ao ir no site da SEFAZ a nota continua como senão estivesse cancelada.
    Fiz a consulta da nota via componente e sempre o retorno é que estar cancelada. Alguém já passou por isso? Existe algum outro lugar que eu possa visualizar esse evento, sem ser pelo componente.

    Atenciosamente,

  6. O Código acima funcionou bem. Porém no meu caso gostaria de pegar a lista de ocorrências referente ao banco setado no componente.
    Quando uso GetOcorrenciasRemessa, ele puxa todas as ocorrências e algumas não existe no banco em questão.

    function GetOcorrenciasRemessa() : TACBrOcorrenciasRemessa;
    function TACBrBoleto.GetOcorrenciasRemessa(): TACBrOcorrenciasRemessa;
    var I: Integer;
    begin
      SetLength(Result, 77);

      for I:= 1 to 48 do
      begin
        Result[I-1].Tipo := TACBrTipoOcorrencia(I-1);
        Result[I-1].descricao := cACBrTipoOcorrenciaDecricao[I-1];
      end;
    end;

  7. Ola, 
    Atualmente, uso o método GetOcorrenciasRemessa para obter informações das ocorrências de remessa, entretanto, cada banco tem as suas ocorrências especificas como ilustra o código abaixo do sicred.
    Gostaria de saber se existe um método que busca a ocorrências do banco em si, depois de setado as configurações do componente.

    Atenciosamente,

    function TACBrBancoSicredi.CodOcorrenciaToTipoRemessa(const CodOcorrencia: Integer): TACBrTipoOcorrencia;
    begin
      case CodOcorrencia of
        02 : Result:= toRemessaBaixar;                          {Pedido de Baixa}
        04 : Result:= toRemessaConcederAbatimento;              {Concessão de Abatimento}
        05 : Result:= toRemessaCancelarAbatimento;              {Cancelamento de Abatimento concedido}
        06 : Result:= toRemessaAlterarVencimento;               {Alteração de vencimento}
        09 : Result:= toRemessaProtestar;                       {Pedido de protesto}
        18 : Result:= toRemessaCancelarInstrucaoProtestoBaixa;  {Sustar protesto e baixar}
        19 : Result:= toRemessaCancelarInstrucaoProtesto;       {Sustar protesto e manter na carteira}
        31 : Result:= toRemessaOutrasOcorrencias;               {Alteração de Outros Dados}
      else
         Result:= toRemessaRegistrar;                           {Remessa}
      end;
    end;

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