Tag infSeg

[angelosobreira]

Pessoal, estou implementado o MDFe 3.0 e na parte que informamos a seguradora, de acordo com a documentação deveria ter a tag  infSeg, porém não achei essa tag no componente de MDFe. Abaixo segue um print da documentação com essa página.

Alguém já passou por isso?

[Juliomar Marchetti]

mas está lá

MDFe.seg.Add

[SauloNCunha]

Também não estou localizando para passar por parâmetro 

[Juliomar Marchetti]

Passei acima!

Senão achou é porque está desatualizado o seus fontes ou não está na versão correta 

[SauloNCunha]

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,'')

 

 

Editado 16 Janeiro, 2017 por SauloNCunha

[SauloNCunha]

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;

[Luiz Carlos de Lima]

Bom dia,

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;

Essas tags acima estão OK,     mas a tag nAver que esta na mesma unit pmdfeMDFe não consigo localizar, já atualizei e nada. Alguém tem uma solução?

 

 

[Juliomar Marchetti]

1 hora atrás, Luiz Carlos de Lima disse:

Bom dia,

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;

         aver.Add.nAver:='';
end;

Essas tags acima estão OK,     mas a tag nAver que esta na mesma unit pmdfeMDFe não consigo localizar, já atualizei e nada. Alguém tem uma solução?

 

 

 

[Marcelo A. Rodrigues]

Boa tarde

A tag nAver é um campo dentro da lista aver:

            with seg.Add do begin                
                respSeg := '';
                CNPJCPF := '';                
                xSeg    := '';
                CNPJ    := '';
                nApol   := '';
                with aver.Add do begin
                    nAver  := '';
                end;
            end;

 

Editado 24 Fevereiro, 2017 por Marcelo A. Rodrigues

[Luiz Carlos de Lima]

Em ‎24‎/‎02‎/‎2017 at 14:42, Marcelo A. Rodrigues disse:

Boa tarde

A tag nAver é um campo dentro da lista aver:

            with seg.Add do begin                
                respSeg := '';
                CNPJCPF := '';                
                xSeg    := '';
                CNPJ    := '';
                nApol   := '';
                with aver.Add do begin
                    nAver  := '';
                end;
            end;

 

Valeu, muito obrigado.