Ir para conteúdo
  • Cadastre-se

Magrão

Membros
  • Total de ítens

    9
  • Registro em

  • Última visita

Posts postados por Magrão

  1. 25 minutos atrás, edsonjplima disse:

    Bom dia, estou com o mesmo problema no MS e PA, porém está fazendo o download do xml então estou considerando o código de status 555 como Download disponibilizado ou processado... e segue em frente...

    Boa tarde,

    Eu tentei isso:

    function TNFeDownloadNFe.TratarResposta: Boolean;
    var
      I: Integer;
      NomeArq: String;
    begin
      FRetWS := SeparaDados( FRetornoWS, 'nfeDownloadNFResult' );

      // Limpando variaveis internas
      FretDownloadNFe.Free;
      FRetDownloadNFe := TRetDownloadNFe.Create;

      FRetDownloadNFe.Leitor.Arquivo := FRetWS;
      FRetDownloadNFe.LerXml;

      FMsg := FretDownloadNFe.xMotivo;

      Result := (FRetDownloadNFe.cStat = 139) or (FRetDownloadNFe.cStat = 555);

      for I := 0 to FRetDownloadNFe.retNFe.Count - 1 do
      begin
        if (FRetDownloadNFe.retNFe.Items.cStat = 140) or (FRetDownloadNFe.retNFe.Items.cStat = 555) then
        begin
          NomeArq := FRetDownloadNFe.retNFe.Items.chNFe + '-nfe.xml';
          FConfiguracoes.Geral.Save(NomeArq, FRetDownloadNFe.retNFe.Items.procNFe);
        end;
      end;
    end;

    Mas o arquivo de retorno esta vazio.

  2. Boa tarde,

     

    Estou adaptando o meu código a uma exigência de um fornecedor para NF-e de devolução ele pediu para informar na tag <infAdProd> as seguntes informações:

    20 posições - Código da Peça

    12 posições - Número da NF origem

    04 posições - Linha da NF de Origem

     

    O código da peça não possui 20 posições, precisando preencher com espaços em branco a direita as outras informações eu preencho com zeros a esquerda.

     

    A minha dúvida é que se após a assinatura ou envio do arquivo para a SEFAZ os espaços em branco acima de um espaçamento são retirados do arquivo?

     

    Ou seja entre "AAA        BBB" ficaria "AAA BBB".

     

    Se sim, existe uma configuração no componente para que isso não ocorra?

     

    Obrigado!

    Emerson

  3. unit ACBrNFeConfiguracoes;

    Troequei

        property VersaoDF: TpcnVersaoDF read FVersaoDF write SetVersaoDF default ve200;

    por

        property VersaoDF: TpcnVersaoDF read FVersaoDF write SetVersaoDF default ve310;


    e

    constructor TGeralConf.Create(AOwner: TComponent);
    begin

      FVersaoDF           := ve200;

    por

      FVersaoDF           := ve310;
     

    FUNCIONOU SEFAZ-SP

     

    :)

  4. Boa tarde acabei de atualizar o ACBr - Completed: At revision: 8667  e esta dando erro quando pesquiso o status :

     

              dtmConexao.acbrNFe.WebServices.Consulta.NFeChave := qryFiltrochave_nfe.AsString;
              dtmConexao.acbrNFe.WebServices.Consulta.Executar;

    Esta retornando 239.

     

    SEFAZ-SP.
     

  5. Bom dia,

     

    Gostaria de saber se a NT 2014/002 DistribuicaoDFe é apenas sobre o resumos dos documentos fiscais permitindo apenas o Download da NF-e ou podemos fazer Download da CT-e?

     

    Pois na página 4:

     

    Resumo de Eventos CT-e Autorizado/Cancelado

     

    Os documentos fiscais e resumos de eventos estarão disponíveis somente se o destinatário se manifestar dando "Ciência da Operação", “Operação não Realizada” ou "Confirmação de Operação" para a NF-e. Antes da manifestação do destinatário fica disponível unicamente a estrutura XML de “Resumo de NF-e”.
     

    Mas no restante da Nota não vi nenhuma menção sobre outros Downloads, apenas NF-e.

  6. Boa noite;

     

    Não estou conseguindo passar a justificativa como paramêtro, da erro de compilação informando que o metodo infEvento.xJust não esta declarado atualizaei hoje o componete ACBR.

     

        dtmConexao.acbrNFe.EventoNFe.Evento.Clear;
        with dtmConexao.acbrNFe.EventoNFe.Evento.Add do
        begin
          infEvento.cOrgao   := 91;
          infEvento.chNFe    :=               pChave_Acesso;
          infEvento.CNPJ     :=               pCNPJ_Empresa;
          infEvento.dhEvento := StrToDateTime(vData_BD + ' ' + vHora_BD);

          case pManifestacao of
            1: infEvento.tpEvento := teManifDestConfirmacao;
            2: infEvento.tpEvento := teManifDestDesconhecimento;
            3:
            begin
              infEvento.tpEvento := teManifDestOperNaoRealizada;
              infEvento.xJust    := pJustificativa;
            end;
            4: infEvento.tpEvento := teManifDestCiencia;
          end;
        end;

     

    Agradeço desde já pela atenção!

  7. Boa tarde,

     

    atualizaei hoje e esta dando problema nessa função:

     

    ACBR\Fontes\ACBrNFe2\ACBrNFeWebServices.pas

     

    function TWebServicesBase.EnviarDadosWebService(URL, SoapAction, Dados : String) : String;

     

            HTTP.Document.WriteBuffer(Dados[1], Length(Texto));
     

    Esta dizendo que o Texto não eesta declarado

     

     

     

    Agradeço pela atenção!

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