Ir para conteúdo
  • Cadastre-se

SauloNCunha

Membros
  • Total de ítens

    17
  • Registro em

  • Última visita

Posts postados por SauloNCunha

  1. Estou tendo problemas com as configurações desses campos de segurança do Internet Explorer em clientes ao tentarem fazer qualquer ação no MDFe (envio,consulta,encerramento,cancelamento).

    Gostaria de saber como deveria ficar configurado e se possível o porque dessa incompatibilidade pois NFe e CTe funcionam normalmente somente o MDFe cocore esse erro

    erro ssl.jpg

  2. with seg.Add do
    begin
             respSeg:=rsEmitente;
             CNPJCPF:=frmPrincipal.dsDADOSSIS.DataSet.FieldByName('CGC').AsString;
             xSeg:=frmPrincipal.dsSICRTC.DataSet.FieldByName('SEGURADORA').AsString;
             CNPJ:='';
             nApol:=frmPrincipal.dsSICRTC.DataSet.FieldByName('SEG_APOL').AsString;
    end;

  3. unit pmdfeMDFe

    //////////////////////////////
      TSegCollectionItem = class(TCollectionItem)
      private
        FrespSeg: TRspSegMDFe;
        FCNPJCPF: String;
        FxSeg: String;
        FCNPJ: String;
        FnApol: String;
        FAver: TAverCollection;
      public
        constructor Create; reintroduce;
        destructor Destroy; override;
      published
        property respSeg: TRspSegMDFe read FrespSeg write FrespSeg;
        property CNPJCPF: String      read FCNPJCPF write FCNPJCPF;
        property xSeg: String         read FxSeg    write FxSeg;
        property CNPJ: String         read FCNPJ    write FCNPJ;
        property nApol: String        read FnApol   write FnApol;
        property aver: TAverCollection read FAver   write FAver;
      end;

      TAverCollection = class(TCollection)
      private
        function GetItem(Index: Integer): TAverCollectionItem;
        procedure SetItem(Index: Integer; Value: TAverCollectionItem);
      public
        constructor Create(AOwner: TSegCollectionItem);
        function Add: TAverCollectionItem;
        property Items[Index: Integer]: TAverCollectionItem read GetItem write SetItem; default;
      end;

    /////////////////////////

    unit de passagem de parâmetros 

    estou passando assim 

    seg.Add(rsEmitente,CNPJ_CPF,ySeg,CNPJSeg,nApol_Seg,aver_Seg,'')

     

     

  4. Faço a busca do MDFe em minha base pelo numero do recibo e passo para o componente ACBr fazer a consulta 

    ACBrMDFe.WebServices.Recibo.MDFeRetorno.ProtMDFe.Items[0].'campo'.....

    e exibo na tela ou gravo na tabela o retorno 

    exemplo 

    FormatDateTime('DD/MM/YYYY hh:mm:ss', ACBrMDFe.WebServices.Recibo.MDFeRetorno.ProtMDFe.Items[0].dhRecbto)

    mas o estranho que somente esse deu problema os outros MDFe's emitidos antes e depois não esntão dando esse erro

  5. Olá estou com um problema e preciso embutir o fast da DANF dentro do meu aplicativo ao invés de chamar o DANFE.fr3

    Queria saber se é possível se alguém já fez isso e uma ajuda nessa situação 

    Estive procurando sobre o assunto mas não achei nada que me ajudasse 

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