Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program registro6;
- {CADASTRO DE INQUILO}
- type
- Treajuste = record
- reajuste: string;
- end;
- const
- reajuste: Treajuste = (
- reajuste: 'Anual';
- );
- type
- Tdata = Record {PARA USO EM OUTROS RECORDS}
- dia: integer;
- mes: integer;
- ano: integer;
- end;
- TusoInterno = Record
- codigoPretentendente: integer;
- codigoContato: integer;
- contratoSistema: String;
- codigoInquilino: integer;
- atendenteResponsavel: String;
- fichaEntreguePor: String;
- TdataDeEntregaDaFicha: Tdata;
- end;
- Tencargos = Record {PARA USO EM TDADOSDELOCACAO}
- seguroContraIncendio: boolean;
- condominio: boolean;
- iptu: boolean;
- end;
- TdadosDaLocacao = Record
- enderecoDoImovel: string;
- codigoDoImovel: integer;
- inicioDoContrato: Tdata;
- prazoDoContratoEmMeses: integer;
- valorDoAluguelEmReais: integer;
- Reajuste: Treajuste;
- destinacao: string;
- encargos: Tencargos;
- observacoes: string;
- end;
- Tdadospessoais = Record
- nomeCompleto: string;
- Sexo: string;
- identidade: integer;
- orgaoExpedidor: string;
- dataDeNascimento: Tdata;
- filiacao: string;
- cpf: integer;
- naturalidadeUF: string;
- nacionalidade: string;
- estadoCivil: string;
- grauDeInstrucao: string;
- enderecoResidencial: string;
- bairro: string;
- cidade: string;
- UF: string;
- CEP:integer;
- telefone: integer;
- celular: integer;
- email: string;
- tipoDeResidencia: string;
- ResideDesde: Tdata;
- NumeroDeDependentes: integer;
- end;
- TdadosDoConjuge = Record
- nomeCompleto: string;
- identidade: integer;
- orgaoExpedidor: string;
- dataDeNascimento: Tdata;
- filiacao: string;
- cpf: integer;
- naturalidadeUF: string;
- nacionalidade: string;
- profissao: string;
- atividadeCasoAutonomo: string;
- cargo: string;
- enderecoDoTrabalho: string;
- dataDaAdmicao: Tdata;
- bairro: string;
- cidade: string;
- UF: string;
- CEP:integer;
- telefone: integer;
- ramal: string;
- celular: integer;
- renda: integer;
- origemDaRenda: string;
- end;
- TdadosProfissionais = Record
- profissao: string;
- atividadeCasoAutonomo: string;
- cargo: string;
- empresa: string;
- dataDaAdmicao: Tdata;
- enderecoDoTrabalho: string;
- bairro: string;
- cidade: string;
- UF: string;
- CEP:integer;
- telefone: integer;
- ramal: string;
- celular: integer;
- renda: integer;
- origemDaRenda: string;
- end;
- begin
- writeln('');
- readln();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement