SHARE
TWEET

Untitled

hpensador Sep 12th, 2019 127 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. interface
  2.  
  3. uses
  4.   System.Classes, System.SysUtils;
  5.  
  6. type
  7.    TCabecalho = class(TObject)
  8.       private
  9.          Flogin      : String;
  10.          FSenha      : String;
  11.          Fintegracao : String;
  12.          Fcodlab     : String;
  13.          FVersao     : String;
  14.          FDataHora   : String;
  15.          FSoftware   : String;
  16.          FOperador   : String;
  17.       public
  18.          property login      : String read FLogin      write FLogin;
  19.          property senha      : String read FSenha      write FSenha;
  20.          property integracao : String read Fintegracao write Fintegracao;
  21.          property codlab     : String read Fcodlab     write Fcodlab;
  22.          property versao     : String read FVersao     write FVersao;
  23.          property datahora   : String read FDataHora   write FDataHora;
  24.          property software   : String read FSoftware   write FSoftware;
  25.          property operador   : String read FOperador   write FOperador;
  26.    end;
  27.  
  28.    TPaciente = class(TObject)
  29.       private
  30.          Fcodigo_lis      : String;
  31.          FNome            : String;
  32.          Fdata_nascimento : String;
  33.          FSexo            : String;
  34.          Ftipo_documento  : String;
  35.          FDocumento       : String;
  36.          FEndereco        : String;
  37.          FCidade          : String;
  38.          FEstado          : String;
  39.       public
  40.          property codigo_lis      : String read Fcodigo_lis      write Fcodigo_lis;
  41.          property nome            : String read FNome            write FNome;
  42.          property data_nascimento : String read Fdata_nascimento write Fdata_nascimento;
  43.          property sexo            : String read FSexo            write FSexo;
  44.          property tipo_documento  : String read Ftipo_documento  write Ftipo_documento;
  45.          property documento       : String read FDocumento       write FDocumento;
  46.          property endereco        : String read FEndereco        write FEndereco;
  47.          property cidade          : String read FCidade          write FCidade;
  48.          property estado          : String read FEstado          write FEstado;
  49.    end;
  50.  
  51.    TExames = class(TObject)
  52.       private
  53.          Fcodigo_lis : String;
  54.          FCodigo     : String;
  55.          FDescricao  : String;
  56.       public
  57.          property codigo_lis : String read Fcodigo_lis write Fcodigo_lis;
  58.          property codigo     : String read FCodigo     write FCodigo;
  59.          property descricao  : String read FDescricao  write FDescricao;
  60.    end;
  61.  
  62.  
  63.    TAmostras = class(TObject)
  64.       private
  65.          Fcodigo_lis : String;
  66.          FCodigo     : String;
  67.          FDescricao  : String;
  68.          FExames     : TArray<TExames>;
  69.       public
  70.          property codigo_lis : String       read Fcodigo_lis write Fcodigo_lis;
  71.          property codigo     : String       read FCodigo     write FCodigo;
  72.          property descricao  : String       read FDescricao  write FDescricao;
  73.          property exames     : TArray<TExames> read FExames     write FExames;
  74.    end;
  75.  
  76.  
  77.    TSolicitacoes = class(TObject)
  78.       private
  79.          Fcodigo_lis : String;
  80.          FPaciente   : TPaciente;
  81.          FObservacao : String;
  82.          FData       : String;
  83.          FCrm        : String;
  84.          FAmostras   : TArray<TAmostras>;
  85.       public
  86.          property codigo_lis : String         read Fcodigo_lis write Fcodigo_lis;
  87.          property paciente   : TPaciente      read FPaciente   write FPaciente;
  88.          property observacao : String         read FObservacao write FObservacao;
  89.          property data       : String         read FData       write FData;
  90.          property crm        : String         read FCrm        write FCrm;
  91.          property amostras   : TArray<TAmostras> read FAmostras   write FAmostras;
  92.    end;
  93.  
  94.  
  95.    TRemessa = class(TObject)
  96.       private
  97.          FCabecalho    : TCabecalho;
  98.          FSolicitacoes : TArray<TSolicitacoes>;
  99.       public
  100.          property cabecalho    : TCabecalho         read FCabecalho    write FCabecalho;
  101.          property solicitacoes : TArray<TSolicitacoes> read FSolicitacoes write FSolicitacoes;
  102.  
  103.          function ToString : String; override;
  104.    end;
  105.  
  106.  
  107. implementation
  108.  
  109. { TRemessa }
  110.  
  111. function TRemessa.ToString: String;
  112. var
  113.    W_StringList : TStringList;
  114.    W_A, W_B, W_C : Integer;
  115. begin
  116.  
  117.    Result := '';
  118.    W_StringList := TStringList.Create;
  119.  
  120.    try
  121.  
  122.       W_StringList.Add('Cabecalho');
  123.       W_StringList.Add('    Login: '      + Self.cabecalho.login);
  124.       W_StringList.Add('    Senha: '      + Self.cabecalho.senha);
  125.       W_StringList.Add('    Integração: ' + Self.cabecalho.integracao);
  126.       W_StringList.Add('    CodLab: '     + Self.cabecalho.codlab);
  127.       W_StringList.Add('    Versão: '     + Self.cabecalho.versao);
  128.       W_StringList.Add('    DataHora: '   + Self.cabecalho.datahora);
  129.       W_StringList.Add('    Sofware: '    + Self.cabecalho.software);
  130.       W_StringList.Add('    Operador: '   + Self.cabecalho.operador);
  131.  
  132.       W_StringList.Add('Solicitações');
  133.       for W_A := 0 to High(Self.solicitacoes) do begin
  134.          W_StringList.Add('   Solicitação: '  + Self.solicitacoes[W_A].codigo_lis);
  135.          W_StringList.Add('      Paciente');
  136.          W_StringList.Add('         Código: ' + Self.solicitacoes[W_A].paciente.codigo_lis);
  137.          W_StringList.Add('         Nome: '   + Self.solicitacoes[W_A].paciente.nome);
  138.          W_StringList.Add('         Data de Nascimento: ' + Self.solicitacoes[W_A].paciente.data_nascimento);
  139.          W_StringList.Add('         Sexo: '               + Self.solicitacoes[W_A].paciente.sexo);
  140.          W_StringList.Add('         Tipo de Documento: '  + Self.solicitacoes[W_A].paciente.tipo_documento);
  141.          W_StringList.Add('         Numero: '   + Self.solicitacoes[W_A].paciente.documento);
  142.          W_StringList.Add('         Endereço: ' + Self.solicitacoes[W_A].paciente.endereco);
  143.          W_StringList.Add('         Cidade: '   + Self.solicitacoes[W_A].paciente.cidade);
  144.          W_StringList.Add('         UF: '       + Self.solicitacoes[W_A].paciente.estado);
  145.          W_StringList.Add('      Observação: '  + Self.solicitacoes[W_A].observacao);
  146.          W_StringList.Add('      Data: '        + Self.solicitacoes[W_A].data);
  147.          W_StringList.Add('      CRM: '         + Self.solicitacoes[W_A].crm);
  148.  
  149.  
  150.          W_StringList.Add('      Amostras');
  151.          for W_B := 0 to High(Self.solicitacoes[W_A].amostras) do begin
  152.  
  153.             W_StringList.Add('         Código_lis: ' + Self.solicitacoes[W_A].amostras[W_B].codigo_lis);
  154.             W_StringList.Add('         Código: '     + Self.solicitacoes[W_A].amostras[W_B].codigo);
  155.             W_StringList.Add('         Descrição: '  + Self.solicitacoes[W_A].amostras[W_B].descricao);
  156.  
  157.             W_StringList.Add('         Exames');
  158.             for W_C := 0 to High(Self.solicitacoes[W_A].amostras[W_B].exames) do begin
  159.                W_StringList.Add('            Código_lis: ' + Self.solicitacoes[W_A].amostras[W_B].exames[W_C].codigo_lis);
  160.                W_StringList.Add('            Código: '     + Self.solicitacoes[W_A].amostras[W_B].exames[W_C].codigo);
  161.                W_StringList.Add('            Descrição: '  + Self.solicitacoes[W_A].amostras[W_B].exames[W_C].descricao);
  162.             end;
  163.             W_StringList.Add(' ');
  164.          end;
  165.  
  166.       end;
  167.       Result := W_StringList.Text;
  168.    finally
  169.       FreeAndNil(W_StringList);
  170.    end;
  171.  
  172. end;
  173.  
  174. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top