Informed v1.0

Program Infomed ;

{ CRÉDITOS À SHICKCARD E ZÉ PAULO }

//cadastro de remedios/////////////////////////////

type

        farmacia_login = record
      login : string;
       senha : string;
     end;

      tcadastro_de_remedio=record
       nome_do_remedio:string;
      preco:real;
       codigo_de_barra:integer;
       descricao:string;
       modo_de_uso:string;
    end;

//cadastro de clientes/////////////////////////////

     tcadastro_de_clientes=record
      nome_do_cliente:string;
      tendereco:record
            telefone_fixo:integer;
            numero_celular:integer;
            numero_casa:integer;
            rua:string;
            bairro:string;
            cidade:string;
            estado:string;
           end;
     end;

//cadastro de funcionarios/////////////////////////

      tcadastro_funcionario=record
       nome_funcionario:string;
       salario_fucionario:real;
       ttendereco:record

                   telefone_fixo:integer;
                   numero_celular:integer;
                   numero_casa:integer;
                   rua:string;
                   bairro:string;
                   cidade:string;
                   estado:string;
                  end;
      end;

 //estoque de remédios//////////////////////////////

      testoque=record
       qtd_remedio:integer;
       nome_remedio:string;
      end;

 //caixa/////////////////////////////////////////////

      tcaixa=record
            valor_pago:real;
           preco:real;
           preco1:real;
           nome:string;
           consultadepreco:string;
           produto_codigo:integer;
           valor_total:real;
     end;

 //relatorio/////////////////////////////////////////

      trelatorio=record
                 remedio_mais_vendido:string;
                 remedios_tarja_preta:string;
                 apresentacao:string;

     end;

 //variaveis globais/////////////////////////////////

  var cadastro_de_remedio:tcadastro_de_remedio;
      cadastro_de_clientes:tcadastro_de_clientes;
      cadastro_funcionario:tcadastro_funcionario;
     estoque:testoque;
     caixa:tcaixa;
     relatorio:trelatorio;
     endereco:ttendereco;
     opcaorepetir:char;
     i:integer;
     sistema:farmacia_login;
     sLogin, sSenha: string;


//procedure exibe////////////////////////////

procedure exibe(var t:text);
VAR S:STRING;
begin
reset(t);
while not eof(t) do
begin
readln(t,s);
writeln(s);
end;
 close(t);
end;




//funcao_cons_estoque/////////////////////////////////

procedure funcao_cons_estoque;
var arquivo_txt:text;
i:string;
aux:integer;
nome_cons:string;
begin
Assign(arquivo_txt,'i:estoque.txt');
        Reset(arquivo_txt);
          Close(arquivo_txt);
          exibe(arquivo_txt);
          readkey;

end;


 //funcao caixa///////////////////////////////////////

  procedure funcao_caixa;
  VAR opcao_caixa:char;
   begin
    repeat

    writeln('Preço do produto:');
    readln(caixa.preco);
    caixa.preco1:=caixa.preco1+caixa.preco;
    clrscr ;
    writeln('Nome do produto:');
    readln(caixa.nome);
    clrscr ;
    writeln('Código do produto:');
    readln(caixa.produto_codigo);
    writeln('Valor a ser pago é:',caixa.preco1);
    writeln('Deseja continuar? S/N');
    readln(opcao_caixa);
    UNTIL upcase(opcao_caixa)<>'S';
    writeln('Valor pago:');
    readln(caixa.valor_pago);
    clrscr ;
    caixa.valor_total:=caixa.valor_pago-caixa.preco1;
    writeln('Troco: R$',caixa.valor_total);
    readkey;
   end;

 //consulta de clientes///////////////////
//procedure funcao_consulta_cli;
///begin
//writeln(digite o nome do cliente);
// Assign(arquivo_txt,'i:estoque.txt');
       // Reset(arquivo_txt);
       //   Close(arquivo_txt);
        //  exibe(arquivo_txt);
        //  readkey;

//end;

 //funcao cadastto de clientes////////////////////////

 procedure funcao_cadastro_de_clientes;
 var arquivo_txt:text;
 nome_cli:string[30];
  begin
   writeln('Digite o nome do cliente:');
   readln(nome_cli);
   assign(arquivo_txt,nome_cli+'i:.txt');
   writeln('Digite o nome do cliente novamente:');
   append(arquivo_txt);
   readln(cadastro_de_clientes.nome_do_cliente);
   writeln(arquivo_txt,cadastro_de_clientes.nome_do_cliente);
   writeln('Digite o endereço:');
   writeln('Rua:');
   readln(cadastro_de_clientes.tendereco.rua);
   writeln(arquivo_txt,cadastro_de_clientes.tendereco.rua);
   writeln('Bairro:');
   readln(cadastro_de_clientes.tendereco.bairro);
   writeln(arquivo_txt,cadastro_de_clientes.tendereco.bairro);
   writeln('Cidade:');
   readln(cadastro_de_clientes.tendereco.cidade);
   writeln(arquivo_txt,cadastro_de_clientes.tendereco.cidade);
   writeln('Digite o número da casa:');
   readln(cadastro_de_clientes.tendereco.numero_casa);
   writeln(arquivo_txt,cadastro_de_clientes.tendereco.numero_casa);
   writeln('Estado:');
   readln(cadastro_de_clientes.tendereco.estado);
   writeln(arquivo_txt,cadastro_de_clientes.tendereco.estado);
   writeln('Telefone fixo:');

   readln(cadastro_de_clientes.tendereco.telefone_fixo);
   writeln(arquivo_txt,cadastro_de_clientes.tendereco.telefone_fixo);
   close(arquivo_txt);
  end;

 //FUNCAO ESTOQUE/////////////////////////////////////

 procedure funcao_estoque;
 var arquivo_txt:text;
  preco:real;
  begin
   assign(arquivo_txt,'i:estoque.txt');
   writeln('Digite o nome do remédio:');
   Append ( arquivo_txt) ;
   //rewrite(arquivo_txt);
   readln(estoque.nome_remedio);
   writeln(arquivo_txt,' ');
   write(arquivo_txt,estoque.nome_remedio,' ');
   writeln('Digite a quantidade de remedios:');
   readln(estoque.qtd_remedio);
   write(arquivo_txt,estoque.qtd_remedio,'Unidade(s) R$: ');
   writeln('Digite o preço da unidade:');
   readln(preco);
   write(arquivo_txt,preco:2:2,' ');

   close(arquivo_txt);
  end;

 //funcao cadastro de funcionarios///////////////////

 procedure funcao_cadastro_de_funcionario;
  var arquivo_txt:text;
  nome_arquivo:string;
  begin
  writeln('Digite o nome a ser salvo:');
  readln(nome_arquivo);
  assign(arquivo_txt,nome_arquivo+'.txt');
  rewrite(arquivo_txt);
   writeln('Digite o nome do fucionário:');
   readln(cadastro_funcionario.nome_funcionario);
   writeln(arquivo_txt,cadastro_funcionario.nome_funcionario);
   writeln('Digite o endereço:');
   writeln('Rua:');
   readln(cadastro_funcionario.ttendereco.rua);
   writeln(arquivo_txt,cadastro_funcionario.ttendereco.rua);
   writeln('Bairro:');
   readln(cadastro_funcionario.ttendereco.bairro);
   writeln(arquivo_txt,cadastro_funcionario.ttendereco.bairro);
   writeln('Cidade:');
   readln(cadastro_funcionario.ttendereco.cidade);
   writeln(arquivo_txt,cadastro_funcionario.ttendereco.cidade);
   writeln('Digite o número da casa:');
   readln(cadastro_funcionario.ttendereco.numero_casa);
   writeln(arquivo_txt,cadastro_funcionario.ttendereco.numero_casa);
   writeln('Estado:');
   readln(cadastro_funcionario.ttendereco.estado);
   writeln(arquivo_txt,cadastro_funcionario.ttendereco.estado);
   writeln('Salário:');
   readln(cadastro_funcionario.salario_fucionario);
   writeln(arquivo_txt,cadastro_funcionario.salario_fucionario);
   writeln('Telefone fixo:');
   readln(cadastro_funcionario.ttendereco.telefone_fixo);
   writeln(arquivo_txt,cadastro_funcionario.ttendereco.telefone_fixo);
  close(arquivo_txt);
  end;

 //funcao cadastro de remedio///////////////////////

 procedure funcao_cadastro_de_remedio;
 var arquivo_txt:text;
  begin
   assign(arquivo_txt,'cadastro_remedio.txt');
   rewrite(arquivo_txt);
   writeln('Digite o nome do remédio:');
   readln(cadastro_de_remedio.nome_do_remedio);
   writeln(arquivo_txt,cadastro_de_remedio.nome_do_remedio);
   writeln('Digite o preço do remédio:');
   readln(cadastro_de_remedio.preco);
   writeln(arquivo_txt,cadastro_de_remedio.preco);
   writeln('Digite o código de barras:');
   readln(cadastro_de_remedio.codigo_de_barra);
   writeln(arquivo_txt,cadastro_de_remedio.codigo_de_barra);
   writeln('Digite a descrição:');
   readln(cadastro_de_remedio.descricao);
   writeln(arquivo_txt,cadastro_de_remedio.descricao);
   close(arquivo_txt);
  end;

 //procedure para menu/////////////////////////////

procedure menuinicial;
 begin
   writeln('Entre com o tipo de usuario');
   writeln('1. Gerente');
   writeln('2. Caixa');
   writeln('3. Dono');
 end;

 //funcao menu de opcao//////////////////////////////

   procedure menu_gerente;
   var opcao_menu_gerente:integer;
   begin
     writeln('1. Para cadastro de remédio');
     writeln('2. Para cadastro de funcionários');
     writeln('3. Para novo estoque');
     readln(opcao_menu_gerente);

    case opcao_menu_gerente of
     1:funcao_cadastro_de_remedio;
     2:funcao_cadastro_de_funcionario;
     3:funcao_estoque;
    end;

   end;

 //menu dono///////////////////////////////////////

procedure menu_dono;
 var opcao_dono:integer;
 begin
  writeln('1. Para cadastro de cliente.');
  writeln('2. Venda de produto.');
  writeln('3. Consutar estoque.');
  writeln('4. Para cadastro de remédio.');
  writeln('5. Para cadastro de funcionários.');
  writeln('6. Para novo estoque.');
  readln(opcao_dono);

   case opcao_dono of
     1:funcao_cadastro_de_clientes;
     2:funcao_caixa;
     3:funcao_cons_estoque;
     4:funcao_cadastro_de_remedio;
     5:funcao_cadastro_de_funcionario;
     6:funcao_estoque;



    end;
 end;


 //funcao menu de opcao//////////////////////////////

 procedure menu_caixa;
 var opcao_menu_caixa:integer;
 begin
  writeln('1. Para cadastro de cliente.');
  writeln('2. Venda de produto.');
  writeln('3. Consultar estoque ou preço.');
  readln(opcao_menu_caixa);
  case opcao_menu_caixa of

   1:funcao_cadastro_de_clientes;
   2:funcao_caixa;
   3:funcao_cons_estoque
   else
   writeln('erro de escolha, voltarar para o menu inicial');
   readkey;
  end;

 end;


 //procedure para cadastro de remedios//////////////

 procedure cadastro_remedio_menu;
 var opcao:integer;
  begin
   with cadastro_de_remedio do
    begin
       readln(opcao);
       clrscr ;
       case opcao of
        1:menu_gerente;
        2:menu_caixa;
        3:menu_dono;
       end;
    end;
  end;





//programa principal///////////////////////////////

 Begin


  TEXTCOLOR(yellow);
  textbackground ( green );
  clrscr ;
  writeln('Site: www.informed.net');
  gotoxy(10,10);
  writeln('BEM VINDO AO SOFTWARE COMERCIAL INFOMED');
  gotoxy(10,11);
  WRITELN('Mais um software da empresa Shickmed');
  gotoxy(10,12);
  writeln('Dê enter para iniciar ');
  readkey;
  clrscr ;


  for i:=1 to 50 do
  begin
  gotoxy(10,10);
  writeln('Carregando arquivos... ',i*2,'%');
  gotoxy(i,11);
  TEXTCOLOR(blue);writeln(#176);
  delay(200);
  end;


  repeat
   TEXTCOLOR(yellow);
   textbackground ( blue ) ;
   clrscr ;

     sLogin := 'admin';
     sSenha := '123';

    writeln('Login:                                                                 ');
     writeln('Senha:                                                                 ');
    gotoxy(8,1);
    read(sistema.login);
    gotoxy(8,2);
    read(sistema.senha);
    clrscr;
    writeln('Login: ',sistema.login);
    writeln('Senha: *****');

    if(sistema.login = sLogin) and (sistema.senha = sSenha) then
     begin
      writeln('');
      writeln('Logado com sucesso no sistema.');
      writeln('');
     end

    else if(sistema.login <> sLogin) or (sistema.senha = sSenha) then
     begin
       writeln('Login incorreto!');
       write(chr(7));
       clrscr;
       for i:=1 to 20 do
       begin
        writeln('Tempo: ',i, ' Seg');
        delay(1000);
        clrscr;
       end;
     end

    else if(sistema.login = sLogin) or (sistema.senha <> sSenha) then
     begin
       writeln('Senha incorreta!');
       write(chr(7));
       clrscr;
       for i:=1 to 20 do
       begin
        writeln('Tempo: ',i, ' Seg');
        delay(1000);
        clrscr;
       end;
     end

    else if(sistema.login <> sLogin) or (sistema.senha <> sSenha) then
     begin
       writeln('Login e Senha incorretos!');
       write(chr(7));
       clrscr;
       for i:=1 to 20 do
       begin
        writeln('Tempo: ',i, ' Seg');
        delay(1000);
        clrscr;
       end;
     end;

   menuinicial;
   cadastro_remedio_menu;
   clrscr ;
   writeln('Deseja voltar para o menu inicial? S/N');
   readln(opcaorepetir);
  until(upcase(opcaorepetir))<> 'S';

 End.

 { CRÉDITOS À SHICKCARD E ZÉ PAULO }