SHARE
TWEET

regFace6.pas

MikaioDigoKRL Oct 14th, 2019 101 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program registro6;
  2. {CADASTRO DE INQUILO}
  3. type
  4.     Treajuste = record
  5.         reajuste: string;
  6.     end;
  7. const
  8.     reajuste: Treajuste = (
  9.         reajuste: 'Anual';
  10.     );
  11. type
  12.  
  13.         Tdata = Record                  {PARA USO EM OUTROS RECORDS}
  14.                 dia: integer;
  15.                 mes: integer;
  16.                 ano: integer;
  17.                 end;
  18.         TusoInterno = Record
  19.                 codigoPretentendente: integer;
  20.                 codigoContato: integer;
  21.                 contratoSistema: String;
  22.                 codigoInquilino: integer;
  23.                 atendenteResponsavel: String;
  24.                 fichaEntreguePor: String;
  25.                 TdataDeEntregaDaFicha: Tdata;
  26.                 end;
  27.  
  28.         Tencargos = Record              {PARA USO EM TDADOSDELOCACAO}
  29.                 seguroContraIncendio: boolean;
  30.                 condominio: boolean;
  31.                 iptu: boolean;
  32.                 end;
  33.  
  34.         TdadosDaLocacao = Record
  35.                 enderecoDoImovel: string;
  36.                 codigoDoImovel: integer;
  37.                 inicioDoContrato: Tdata;
  38.                 prazoDoContratoEmMeses: integer;
  39.                 valorDoAluguelEmReais: integer;
  40.                 Reajuste: Treajuste;
  41.                 destinacao: string;
  42.                 encargos: Tencargos;
  43.                 observacoes: string;
  44.                 end;
  45.  
  46.         Tdadospessoais = Record
  47.                 nomeCompleto: string;
  48.                 Sexo: string;
  49.                 identidade: integer;
  50.                 orgaoExpedidor: string;
  51.                 dataDeNascimento: Tdata;
  52.                 filiacao: string;
  53.                 cpf: integer;
  54.                 naturalidadeUF: string;
  55.                 nacionalidade: string;
  56.                 estadoCivil: string;
  57.                 grauDeInstrucao: string;
  58.                 enderecoResidencial: string;
  59.                 bairro: string;
  60.                 cidade: string;
  61.                 UF: string;
  62.                 CEP:integer;
  63.                 telefone: integer;
  64.                 celular: integer;
  65.                 email: string;
  66.                 tipoDeResidencia: string;
  67.                 ResideDesde: Tdata;
  68.                 NumeroDeDependentes: integer;
  69.                 end;
  70.  
  71.         TdadosDoConjuge = Record
  72.                 nomeCompleto: string;
  73.                 identidade: integer;
  74.                 orgaoExpedidor: string;
  75.                 dataDeNascimento: Tdata;
  76.                 filiacao: string;
  77.                 cpf: integer;
  78.                 naturalidadeUF: string;
  79.                 nacionalidade: string;
  80.                 profissao: string;
  81.                 atividadeCasoAutonomo: string;
  82.                 cargo: string;
  83.                 enderecoDoTrabalho: string;
  84.                 dataDaAdmicao: Tdata;
  85.                 bairro: string;
  86.                 cidade: string;
  87.                 UF: string;
  88.                 CEP:integer;
  89.                 telefone: integer;
  90.                 ramal: string;
  91.                 celular: integer;
  92.                 renda: integer;
  93.                 origemDaRenda: string;
  94.                 end;
  95.  
  96.         TdadosProfissionais = Record
  97.                 profissao: string;
  98.                 atividadeCasoAutonomo: string;
  99.                 cargo: string;
  100.                 empresa: string;
  101.                 dataDaAdmicao: Tdata;
  102.                 enderecoDoTrabalho: string;
  103.                 bairro: string;
  104.                 cidade: string;
  105.                 UF: string;
  106.                 CEP:integer;
  107.                 telefone: integer;
  108.                 ramal: string;
  109.                 celular: integer;
  110.                 renda: integer;
  111.                 origemDaRenda: string;
  112.                 end;
  113.  
  114. begin
  115.         writeln('');
  116.         readln();
  117. 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