Ir para conteúdo
  • Cadastre-se

cledersoncaruaru

Membros
  • Total de ítens

    64
  • Registro em

  • Última visita

Posts postados por cledersoncaruaru

  1. Olá a todos, Obtive alguns problemas no meu sistema o qual se perderam alguns xmls,porém tenho alguns xmls ainda salvas mais ao imprimir ele informa que não foi enviado para sefaz,justamente por não ter o retorno no xml,em um xml especifico eu tenho o protocolo de autorização, tem alguma forma de refazer o xml assinar e obter o retorno dele no XML? Já procurei varias vezes no Forum e não achei nada parecido com minha pergunta.

    Agradeço a todos.

    NFCE.png

    nfce1.png

  2. Olá bom dia, na emissão da NFC-e com o tef Preciso Informar o CNPJ da ADM do Cartão ? o Componente acbrtef ele retorna isso pra mim ou Tenho que fazer um cadastro especifico ?

    Erro: Nota(s) não confirmadas:
    121->392-Rejeicao: Nao informados os dados da operacao de pagamento por cartao de credito/debito

  3. Ou Juliana, os fontes é de terceiros sim porem eu mesmo fiz a troca para nfce deixando ainda os componentes do Ecf,mais toda vez quando faço a venda se comunica com o tef passa normal envia a nfce e quando vai imprimir o comprovante dá o erro 

    ---------------------------
    Pergunta do Sistema
    ---------------------------
    Erro na impressão.
    Deseja tentar novamente ?
    ---------------------------
    Sim   Não   
    ---------------------------
     

  4. Olá, estou fazendo uns testes com um sistema o qual estava Funcionando o paf ecf e troquei agora para NFC-e, bem funciona quase tudo emito a nfce nele porém depois de emitir a nfce  ele imprime a nfce mais o comprovante do tef não, e dá a seguinte mensagem.

            ACBrTEFD.FinalizarCupom;
           ACBrTEFD.ImprimirTransacoesPendentes;

    apos esses comandos.

    Erro na impressão.
    Deseja tentar novamente ?

    ecf.log

    Tef.Log

  5. Em 21/09/2012 at 23:30, chico_lopes disse:

    Boa noite a todos, atualmente gravo os arquivos de xml em banco de dados, pelo motivo q pode ser gerado de várias maquinas e podem ser abertos de qualquer outra máquina na rede, porem lendo um post anteriormente vi que da para gravar o texto de xml.

     

    Hoje fazendo uma manutenção em um cliente percebi o tamanho do arquivo de banco de dados, e veio a questão qual seria a melhor maneira de grava os xml no banco sendo pelo arquivo memso gerado pelo ACBR ou granvando o "texto do arquivo" e para utilização futura colocar em uma stringlist e dar um savetofile.

     

    se alguem ja fez essas comparações desde já agradeço pelas explicações.

    cara como você grava e como você lê o xml, tô precisando muito pois em clientes são gerado de varias maquinas e fica muito complicado pegar o arquivo e tentar sincronizar nas maquinas, se poder me ajudar e informar como você grava e como você lê me ajudaria  bastante

  6. 17 horas atrás, Claudiomir disse:

    Saudações

    Baseado no desenho acima como exemplo, temos o botão buscar Arquivo.

    procedure Tfretcobranca.blocalizararquivoClick(Sender: TObject);
    var
      i: integer;
      Titulo: TACBrTitulo;

    begin
      retorno.Open;
      retorno.EmptyTable;
      dire := extractfilepath(application.ExeName) + 'retorno';
      pdire.Caption := dire;

      fprinci.ACBrBoleto1.DirArqRetorno := dire;

      OpenDialog.InitialDir := dire;

      if OpenDialog.Execute then
      begin
        narq := OpenDialog.FileName;

        if pos('.zip', narq) > 0 then
        begin
          { Zip.BaseDir := dire;
            Zip.FileName := narq;
            Zip.OpenArchive;
            Zip.ExtractFiles('*.*');
            Zip.CloseArchive; }
          narq := extractfilename(narq);
          narq := dire + '\R' + copy(narq, 1, pos('_', narq) - 1) + '.' + copy(narq, pos('_', narq) + 1, 4);
        end;
        Edit1.Text := narq;
        fprinci.ACBrBoleto1.NomeArqRetorno := extractfilename(narq);
        fprinci.ACBrBoleto1.LerRetorno;

        if fileexists(pdire.Caption + '\' + fprinci.ACBrBoleto1.NomeArqRetorno) then
        begin
          BitBtn4.Enabled := true;
          BitBtn5.Enabled := true;

          fprinci.ACBrBoleto1.NomeArqRetorno := extractfilename(narq);
          fprinci.ACBrBoleto1.LerRetorno;
          retorno.Open;
          ProgressBar1.Visible := true;
          ProgressBar1.Max := fprinci.ACBrBoleto1.ListadeBoletos.Count;
          for i := 0 to fprinci.ACBrBoleto1.ListadeBoletos.Count - 1 do
          begin
            Titulo := fprinci.ACBrBoleto1.ListadeBoletos.Objects;

            // precisa verificar qual a quantidade de "nosso numero" dependendo do banco para a pesquisa abaixo.
            creachadados.Close;
            creachadados.Params[0].AsString := copy(fprinci.ACBrBoleto1.ListadeBoletos.Objects.NossoNumero, 1, 8);
            creachadados.Open;
            if creachadados.RecordCount > 0 then
            begin
              retorno.Append;
              retornoNumeroDoc.AsString := fprinci.ACBrBoleto1.ListadeBoletos.Objects.NossoNumero;
              retornoCliente.AsString := creachadadosclinome.AsString;
              retornoCrechave.AsInteger := creachadadoscrechave.AsInteger;
              retornoData.AsDateTime := fprinci.ACBrBoleto1.ListadeBoletos.Objects.DataOcorrencia;
    //          retornoocorrenciaoriginal.AsString := fprinci.ACBrBoleto1.ListadeBoletos.Objects.OcorrenciaOriginal.Tipo;
              retornoocorrenciaoriginaldescricao.AsString:=fprinci.ACBrBoleto1.ListadeBoletos.Objects.OcorrenciaOriginal.Descricao;
              retornoMotivo.AsString := fprinci.ACBrBoleto1.ListadeBoletos.Objects.DescricaoMotivoRejeicaoComando.Text;
              retornoDataEmitido.AsDateTime := fprinci.ACBrBoleto1.ListadeBoletos.Objects.DataProcessamento;
              retornoNumBoleto.AsString := creachadadoscrenumero.AsString;
              retornohisto.AsString := creachadadoscrehistorico.AsString;
              retornodataemissao.AsDateTime := creachadadoscreemissao.AsDateTime;
              retornovalor.AsFloat := fprinci.ACBrBoleto1.ListadeBoletos.Objects.ValorDocumento;
              retornomulta.AsFloat := fprinci.ACBrBoleto1.ListadeBoletos.Objects.ValorOutrasDespesas;
              retornojuros.AsFloat := fprinci.ACBrBoleto1.ListadeBoletos.Objects.ValorMoraJuros;
              retornovalorbaixado.AsFloat := fprinci.ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido;
              retornodatabaixa.AsDateTime := fprinci.ACBrBoleto1.ListadeBoletos.Objects.DataCredito;
              retornovalortarifa.AsFloat := fprinci.ACBrBoleto1.ListadeBoletos.Objects.ValorDespesaCobranca;

              retorno.Post;
            end;
            ProgressBar1.Position := ProgressBar1.Position + 1;
            ProgressBar1.Refresh;
          end;
        end;
      end;
    end;

     

    Você Guarda todo esse retorno no banco de dados ? e como deve ser tratado se o mesmo retorno vou lido? desculpas essas perguntas mais como tô começando agora fica muitas duvidas, você todas as tags do retorno do acbr cedente,sacado,linha de geração,tipo de impressão,percentual de multa,valor recebido, instrução 1.2.3 qtde parcelas e essas coisas a mais ?

  7. Em 11/12/2015 at 19:03, Juliana Tamizou disse:

     

    Claudiomir, você conseguiu desenvolver a parte de retorno blz? teria um exemplo ai pra nós? pois tô começando a fazer a parte de retorno de boletos, fico agradecido

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