Clipper On Line • Ver Tópico - Base de dados pra isto

Base de dados pra isto

Discussão sobre Banco de Dados e RDDs para Clipper/[x]Harbour.

Moderador: Moderadores

 

Base de dados pra isto

Mensagempor JoséQuintas » 15 Ago 2016 16:38

Tem horas que me pergunto se deveria ter feito deste jeito.

licencas.png


É uma coisa relativamente simples: o controle de licenças.
O problema é justamente o tipo/quantidade de licenças, que variam conforme o tipo de veículo ou outra coisa.
Isso tudo se refere a um único veículo.

Dividi isso em três bases (na prática 1 e a multitabelas):

1 - tipos de licença
2 - tipos de objeto, por exemplo tipo de veículo
3 - O lançamento propriamente dito.

Tipos de licença, com código descrição, e configuração de vencimento e alerta
Tipos de objeto, com os tipos de licença envolvidos (por exemplo, para um tipo de veículo)
Movimento, com cada veículo ou outra coisa, que pede datas conforme a configuração do tipo de objeto

Sim, e tem a tela de alerta, que informa tudo que está vencido/vencendo.
Nem precisa dizer que SEMPRE tem alguma coisa vencida/vencendo.... rs

O problema que vejo é que se deixar os tipos de licença como fixos, parece que mais vai atrapalhar do que ajudar.
Além disso, é tanta licença, que um usuário poderia esquecer de alguma.
A tela é criada conforme os tipos de licença para aquele lançamento - o tipo de objeto definido.

Tá tudo funcionando.
Alguma idéia de como simplificar isso?
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11592
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 740 vezes

Base de dados pra isto

Mensagempor JoséQuintas » 15 Ago 2016 16:43

Por enquanto no MySQL vai seguir o mesmo esquema do DBF.

STATIC FUNCTION JPLICMOVCreateDbf()

   LOCAL mStruOk

   SayScroll( "JPLICMOV, verificando atualizações" )
   mStruOk := { ;
      { "LCNUMLAN",  "C", 6 }, ;
      { "LCLICOBJ",  "C", 6 }, ;
      { "LCDESCRI1", "C", 100 }, ;
      { "LCDESCRI2", "C", 100 }, ;
      { "LCDESCRI3", "C", 100 }, ;
      { "LCDESCRI4", "C", 100 }, ;
      { "LCDESCRI5", "C", 100 }, ;
      { "LCLICNUM",  "C", 96 }, ;
      { "LCLICDAT",  "C", 96 }, ;
      { "LCINFINC",  "C", 80 }, ;
      { "LCINFALT",  "C", 80 } }
   IF .NOT. ValidaStru( "JPLICMOV", mStruOk )
      MsgStop( "JPLICMOV não disponível!" )
      QUIT
   ENDIF

   RETURN NIL

STATIC FUNCTION JPLICMOVCreateMySql()

   RETURN ;
   "CREATE TABLE IF NOT EXISTS JPLICMOV ( " + ;
   "LCID INT(11) NOT NULL AUTO_INCREMENT, " + ;
   "LCNUMLAN CHAR(6) NOT NULL DEFAULT '', " + ;
   "LCLICOBJ CHAR(6) NOT NULL DEFAULT '', " + ;
   "LCDESCRI1 CHAR(100) NOT NULL DEFAULT '', " + ;
   "LCDESCRI2 CHAR(100) NOT NULL DEFAULT '', " + ;
   "LCDESCRI3 CHAR(100) NOT NULL DEFAULT '', " + ;
   "LCDESCRI4 CHAR(100) NOT NULL DEFAULT '', " + ;
   "LCDESCRI5 CHAR(100) NOT NULL DEFAULT '', " + ;
   "LCLICNUM CHAR(96) NOT NULL DEFAULT '', " + ;
   "LCLICDAT CHAR(96) NOT NULL DEFAULT '', " + ;
   "LCINFINC CHAR(80) NOT NULL DEFAULT '', " + ;
   "LCINFALT CHAR(80) NOT NULL DEFAULT '', " + ;
   "PRIMARY KEY ( LCID ), " + ;
   "INDEX IDXNUMLAN ( LCNUMLAN, LCID ) " + ;
   ") COLLATE=latin1_swedish_ci ENGINE=InnoDB"
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11592
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 740 vezes




Retornar para Banco de Dados

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro