Ir para conteúdo
  • Cadastre-se

dev botao

Tag infSeg


angelosobreira
  • Este tópico foi criado há 2583 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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 por SauloNCunha
Link para o comentário
Compartilhar em outros sites

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;

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
  • Membros Pro

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?

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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?

 

 

 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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 por Marcelo A. Rodrigues
Link para o comentário
Compartilhar em outros sites

  • Membros Pro
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.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2583 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

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

The popup will be closed in 10 segundos...