[Gambas-user] exception 11

Steven revimmo steven at ...1652...
Tue Feb 8 08:19:05 CET 2011


Le lundi 07 février 2011 à 20:17 +0100, Benoît Minisini a écrit :

> > Hi,
> > 
> > I'm doing this :
> > 
> > PUBLIC SUB Close_Click()
> > ' save the images and close
> > DIM PicE AS Picture
> > DIM PicM AS Picture
> > DIM StrPicE, StrPicM AS String
> > DIM resP AS Result
> > 
> > 
> >   PicE = DrawingArea1.Grab()
> >   PicE.Save("Z-energy.jpg")
> >   PicM = DrawingArea2.Grab()
> >   PicM.Save("Z-emission.jpg")
> >   ' and into the database
> > 
> >   resP = db.Edit("dpe", "id = &1", current_dpe)   <- HERE
> >   resP["energy"] = File.Load("Z-energy.jpg")
> >   resP["emission"] = File.Load("Z-emission.jpg")
> >   resP.Update()
> > 
> >   ME.Close
> > CATCH
> >   Message.Error("<b>Update database record error</b><hr>Error:<br>" &
> > DConv(Error.Text))
> > END
> > 
> > 
> > I'm using Gambas 2.22 (just downloaded, because i thought my old 2.8 was
> > the cause).
> > It gives me a 11 exception on the line marked.
> > current_dpe = 51 (correct), the record exists.
> > 
> > 
> > Any ideas ?
> > Steven
> > 
> 
> Please provide the project (and its database), and explain how to reproduce it 
> exactly. Otherwise I can't fix it!
> 
> Regards,


Hi Benoît,

I do not know how to send you all that data. The whole project is about
20 000 lines of code and the database is 2 gig's.
So, i try and give you the elements I can:

1. The database, here is the structure :

-- phpMyAdmin SQL Dump
-- version 2.11.8.1deb5+lenny7
-- http://www.phpmyadmin.net
--
-- Host: localhost
-- Generation Time: Feb 08, 2011 at 08:10 AM
-- Server version: 5.0.51
-- PHP Version: 5.2.6-1+lenny9

SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";

--
-- Database: 'revimmo'
--

-- --------------------------------------------------------

--
-- Table structure for table 'Accounts_p'
--

CREATE TABLE Accounts_p (
  `No` int(11) NOT NULL auto_increment,
  Name_ref int(11) NOT NULL default '0',
  Amount_TTC decimal(16,2) NOT NULL default '0.00',
  Date_F date default NULL,
  Due date NOT NULL default '0000-00-00',
  BookedInv tinyint(4) default NULL,
  ref_supplier varchar(50) default NULL,
  Description varchar(200) default NULL,
  PRIMARY KEY  (`No`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Accounts_pay'
--

CREATE TABLE Accounts_pay (
  Id int(11) NOT NULL auto_increment,
  Invoice int(11) NOT NULL default '0',
  Due date default NULL,
  Done date default NULL,
  Amount decimal(50,2) NOT NULL default '0.00',
  No_Ch int(11) default NULL,
  `Type` varchar(50) default NULL,
  Bookedpay tinyint(4) default NULL,
  Observation varchar(50) default NULL,
  PRIMARY KEY  (Id),
  UNIQUE KEY Id (Id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Accounts_places'
--

CREATE TABLE Accounts_places (
  Id int(11) NOT NULL auto_increment,
  Agency int(11) NOT NULL default '0',
  Invoice int(11) NOT NULL default '0',
  Pcent decimal(5,2) NOT NULL default '0.00',
  PRIMARY KEY  (Id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Accounts_supp'
--

CREATE TABLE Accounts_supp (
  `No` int(11) NOT NULL auto_increment,
  `Name` varchar(200) NOT NULL default '',
  Bank varchar(200) default NULL,
  Account varchar(50) default NULL,
  Adress_1 varchar(50) default NULL,
  Adress_2 varchar(50) default NULL,
  Adress_3 varchar(50) default NULL,
  Postcode varchar(50) NOT NULL default '',
  City varchar(50) NOT NULL default '',
  Country varchar(50) NOT NULL default '',
  Ref_client varchar(50) NOT NULL default '',
  Tel varchar(50) default NULL,
  Fax varchar(50) default NULL,
  Port varchar(50) default NULL,
  Histoire blob,
  Contact varchar(100) default NULL,
  PRIMARY KEY  (`No`),
  UNIQUE KEY `No` (`No`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Actes'
--

CREATE TABLE Actes (
  `No` int(11) NOT NULL auto_increment,
  Titre varchar(50) NOT NULL default '',
  Vente int(11) default NULL,
  Notaire int(11) default NULL,
  Honoraires decimal(7,2) NOT NULL default '0.00',
  Observation blob,
  `Date` date default NULL,
  Whom varchar(100) default NULL,
  DateCre date default NULL,
  PRIMARY KEY  (`No`),
  UNIQUE KEY `No` (`No`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'agences'
--

CREATE TABLE agences (
  `no` int(11) NOT NULL auto_increment,
  nom varchar(50) default NULL,
  rue varchar(200) default NULL,
  plz varchar(6) default NULL,
  ville varchar(50) default NULL,
  directeur int(11) NOT NULL default '0',
  chef_secteur int(11) default NULL,
  tel varchar(20) default NULL,
  fax varchar(20) default NULL,
  tcpip varchar(20) default NULL,
  villes text,
  photo longblob,
  repertoire varchar(20) default NULL,
  site_marie varchar(100) default NULL,
  actif char(1) default NULL,
  photo_ville longblob,
  textecom text,
  Seid varchar(12) default NULL,
  Semdp varchar(12) default NULL,
  Senum int(11) default NULL,
  `group` int(11) default NULL,
  filiale int(11) default '0',
  PRIMARY KEY  (`no`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'agents'
--

CREATE TABLE agents (
  id int(11) NOT NULL auto_increment,
  chef int(11) default NULL,
  actif tinyint(1) default NULL,
  agent varchar(30) default NULL COMMENT 'Nom',
  agentpass varchar(10) default NULL,
  filiale int(11) default NULL,
  `group` int(11) default NULL,
  agenturl varchar(70) default NULL COMMENT 'Famillie',
  agentemail varchar(70) default NULL COMMENT 'E-Mail',
  notes text,
  agentphone varchar(30) default NULL COMMENT 'Telephone',
  agentcell varchar(30) default NULL COMMENT 'Potable',
  agentfax varchar(30) default NULL,
  agentstreet varchar(150) default NULL,
  agentpcode varchar(8) default NULL,
  agenttown varchar(50) default NULL,
  `last` datetime default NULL,
  comman double NOT NULL default '0',
  comven double NOT NULL default '0',
  comca double default NULL,
  comcs double default NULL,
  comgen double default NULL,
  datede datetime default NULL,
  datea datetime default NULL,
  daten datetime default NULL,
  photo longblob,
  inclure int(11) default NULL,
  formation text,
  othernom varchar(100) default NULL,
  NSLeft int(10) unsigned default '0',
  NSRight int(10) unsigned default '0',
  NSLevel int(10) unsigned default '0',
  NSOrder int(10) unsigned default '1',
  NSDiffer tinytext,
  NSIgnore int(10) unsigned default '0',
  PRIMARY KEY  (id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'agent_tbl_Files'
--

CREATE TABLE agent_tbl_Files (
  id_files int(11) NOT NULL auto_increment,
  bin_data longblob NOT NULL,
  description tinytext,
  filename varchar(50) default NULL,
  filesize varchar(50) default NULL,
  filetype varchar(50) default NULL,
  agentnum int(11) default NULL,
  owner int(11) default NULL,
  PRIMARY KEY  (id_files)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'annoncepages'
--

CREATE TABLE annoncepages (
  id int(11) NOT NULL auto_increment,
  agence int(11) NOT NULL,
  nom varchar(50) NOT NULL,
  mandats blob NOT NULL,
  `type` varchar(20) NOT NULL,
  fois int(11) default '1',
  pages int(11) default '1',
  PRIMARY KEY  (id)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

--
-- Table structure for table 'Annonces'
--

CREATE TABLE Annonces (
  Id int(11) NOT NULL auto_increment,
  Id_journal int(11) NOT NULL default '0',
  Done tinyint(4) NOT NULL default '0',
  Mandat varchar(6) default NULL,
  Id_home int(11) default NULL,
  `Type` varchar(10) NOT NULL default '',
  Ville varchar(100) default NULL,
  `Text` blob NOT NULL,
  PhotoID_G int(11) default NULL,
  PhotoID_P int(11) default NULL,
  Prix decimal(20,2) default NULL,
  PRIMARY KEY  (Id),
  UNIQUE KEY Id (Id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'annonces_sites'
--

CREATE TABLE annonces_sites (
  id int(11) NOT NULL auto_increment,
  mandat varchar(5) NOT NULL,
  site varchar(20) NOT NULL,
  date_start date NOT NULL,
  date_end date default NULL,
  nego_start int(11) NOT NULL,
  nego_end int(11) default NULL,
  vues tinyint(4) default '0',
  contacts tinyint(4) NOT NULL default '0',
  res varchar(10) NOT NULL,
  PRIMARY KEY  (id),
  KEY mandat (mandat)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

--
-- Table structure for table 'ann_pre_age'
--

CREATE TABLE ann_pre_age (
  `No` int(11) NOT NULL auto_increment,
  Presse int(11) NOT NULL default '0',
  Agence int(11) NOT NULL default '0',
  PA int(11) default NULL,
  Petit int(11) default NULL,
  Grande int(11) default NULL,
  Loyer int(11) default NULL,
  Special int(11) default NULL,
  PRIMARY KEY  (`No`),
  KEY Presse (Presse),
  KEY Agence (Agence)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Apparition'
--

CREATE TABLE Apparition (
  Id int(11) NOT NULL auto_increment,
  Presse int(11) NOT NULL default '0',
  Seq_No int(11) NOT NULL default '0',
  Datum date NOT NULL default '0000-00-00',
  PRIMARY KEY  (Id),
  UNIQUE KEY Id (Id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Bail'
--

CREATE TABLE Bail (
  `No` int(11) NOT NULL auto_increment,
  Bailleur int(11) NOT NULL default '0',
  Locataire int(11) NOT NULL default '0',
  Destination tinyint(4) default NULL,
  Profession varchar(50) default NULL,
  Duree int(11) NOT NULL default '0',
  Debut date NOT NULL default '0000-00-00',
  Fin date default NULL,
  Derog varchar(50) default NULL,
  Agent int(11) default NULL,
  Caution int(11) default NULL,
  Loyer decimal(50,2) NOT NULL default '0.00',
  Payable tinyint(4) default NULL,
  Payqua tinyint(4) default NULL,
  Revision varchar(10) default NULL,
  DernierC int(11) default NULL,
  DernierValeur decimal(20,10) default NULL,
  Charges decimal(50,2) default NULL,
  Garantie decimal(50,2) default NULL,
  GarantieOu tinyint(4) default NULL,
  ZoneBruit varchar(10) default NULL,
  Condit blob,
  Signee date default NULL,
  Unite int(11) NOT NULL default '0',
  Honoraires decimal(50,2) default NULL,
  Caution_M decimal(50,2) default NULL,
  Preavis date default NULL,
  Preavisfin date default NULL,
  Statut varchar(20) default 'En cours',
  Mandat varchar(6) default NULL,
  `Type` varchar(12) NOT NULL default '3-6-9',
  Histoire blob,
  PRIMARY KEY  (`No`),
  UNIQUE KEY `No` (`No`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'cadastre'
--

CREATE TABLE cadastre (
  id int(11) NOT NULL auto_increment,
  Mandat varchar(6) NOT NULL,
  Section varchar(2) NOT NULL,
  Prefixe varchar(3) NOT NULL default '000',
  Feuille varchar(6) NOT NULL,
  Image mediumblob NOT NULL,
  `Type` varchar(3) NOT NULL default 'PDF',
  PRIMARY KEY  (id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Clients'
--

CREATE TABLE Clients (
  `No` int(11) NOT NULL auto_increment,
  Nom varchar(50) NOT NULL,
  Prenom varchar(30) default NULL,
  Adresse varchar(100) NOT NULL default '',
  Code_Postal varchar(10) NOT NULL default '',
  Ville varchar(50) NOT NULL,
  Pays varchar(50) default NULL,
  Telephone varchar(20) default NULL,
  Fax varchar(20) default NULL,
  Portable varchar(20) default NULL,
  Travail varchar(20) default NULL,
  Email varchar(50) default NULL,
  Observations blob,
  `Type` varchar(12) default NULL,
  Dernier_contact datetime default NULL,
  Statut varchar(15) default NULL,
  `Action` varchar(200) default NULL,
  Ne date default NULL,
  NeOu varchar(100) default NULL,
  Metier varchar(50) default NULL,
  TypeLiaison varchar(50) default NULL,
  Spouse int(11) default NULL,
  Mariage date default NULL,
  MariageOU varchar(50) default NULL,
  Conditions varchar(20) default NULL,
  Noce tinyint(4) default NULL,
  Liaison varchar(50) default NULL,
  Quote smallint(6) default NULL,
  Conddesc varchar(100) default NULL,
  nego int(11) NOT NULL default '0',
  PRIMARY KEY  (`No`),
  KEY Nom (Nom)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Clients_Pot'
--

CREATE TABLE Clients_Pot (
  `No` int(11) NOT NULL auto_increment,
  Nom varchar(40) character set latin1 NOT NULL,
  Prenom varchar(30) character set latin1 default NULL,
  Adresse varchar(100) character set latin1 default NULL,
  Code_Postal varchar(10) character set latin1 default NULL,
  Ville varchar(30) character set latin1 default NULL,
  Pays varchar(50) character set latin1 default NULL,
  Telephone varchar(20) default NULL,
  Fax varchar(20) character set latin1 default NULL,
  Portable varchar(20) character set latin1 default NULL,
  Travail varchar(20) character set latin1 default NULL,
  Email varchar(50) character set latin1 default NULL,
  Observations blob,
  Type_Cherche varchar(30) character set latin1 default NULL COMMENT
'Cherche ?',
  Prix_max varchar(15) character set latin1 default NULL COMMENT 'Prix
max.',
  Prix_min varchar(15) character set latin1 default NULL,
  Financement decimal(50,2) default NULL,
  sim char(3) character set latin1 default NULL,
  tio varchar(50) character set latin1 default NULL,
  Villes blob,
  Avancement mediumblob,
  Detail_terrain blob,
  Dernier_contact date default NULL,
  Statut varchar(15) character set latin1 default NULL,
  `Action` varchar(20) character set latin1 default NULL,
  Loc_Ach char(3) character set latin1 default NULL,
  surf_maison int(11) default NULL,
  surf_tarrain int(11) default NULL,
  nego int(11) default NULL,
  nego_dat date default NULL,
  etat varchar(15) character set latin1 default NULL,
  EtatO tinyint(4) default NULL,
  crit tinyint(4) NOT NULL default '0',
  Aspect varchar(15) character set latin1 default NULL,
  chambres smallint(6) default NULL,
  A1 tinyint(4) default NULL,
  A2 tinyint(4) default NULL,
  A3 tinyint(4) default NULL,
  A4 tinyint(4) default NULL,
  PasLot tinyint(4) default NULL,
  PasCol tinyint(4) default NULL,
  PasPre tinyint(4) default NULL,
  PasHor tinyint(4) default NULL,
  G1 tinyint(4) default NULL,
  G2 tinyint(4) default NULL,
  G3 tinyint(4) default NULL,
  G4 tinyint(4) default NULL,
  G5 tinyint(4) default NULL,
  Rauto varchar(20) character set latin1 default NULL,
  Rinfo tinyint(4) default NULL,
  DContact date default NULL,
  DText varchar(20) character set latin1 default NULL,
  Ville_S varchar(50) character set latin1 default NULL,
  mysqlwhere blob,
  PRIMARY KEY  (`No`),
  KEY Nom (Nom)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

--
-- Table structure for table 'Clients_Pot_log'
--

CREATE TABLE Clients_Pot_log (
  Id int(11) NOT NULL auto_increment,
  `Client` int(11) NOT NULL default '0',
  Dat date NOT NULL default '0000-00-00',
  `Type` char(15) default NULL,
  Mandat char(6) default NULL,
  res char(50) default NULL,
  PRIMARY KEY  (Id)
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Departements'
--

CREATE TABLE Departements (
  `No` int(11) NOT NULL auto_increment,
  Nom varchar(50) NOT NULL,
  Nom_No varchar(60) NOT NULL,
  Num varchar(4) NOT NULL,
  Logo blob,
  coords varchar(200) default NULL COMMENT 'carte 1400x1000',
  pointx float default NULL,
  pointy float default NULL,
  PRIMARY KEY  (`No`),
  KEY Nom (Nom)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

--
-- Table structure for table 'Departements_old'
--

CREATE TABLE Departements_old (
  `No` int(11) NOT NULL auto_increment,
  Nom varchar(50) NOT NULL default '',
  Nom_No varchar(60) NOT NULL default '',
  Num varchar(4) NOT NULL default '',
  Logo blob,
  PRIMARY KEY  (`No`),
  UNIQUE KEY `No` (`No`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Documents'
--

CREATE TABLE Documents (
  id int(11) NOT NULL auto_increment,
  `subject` varchar(30) NOT NULL default 'terrain',
  `type` varchar(30) NOT NULL,
  document varchar(50) default NULL,
  self longblob,
  reserve varchar(200) default NULL,
  PRIMARY KEY  (id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COMMENT='controle des
documents';

-- --------------------------------------------------------

--
-- Table structure for table 'dpe'
--

CREATE TABLE dpe (
  id int(11) NOT NULL auto_increment,
  id_homes int(11) NOT NULL,
  `Date` date NOT NULL,
  fin_ch int(11) NOT NULL,
  fin_ea int(11) NOT NULL,
  fin_re int(11) NOT NULL,
  pri_ch int(11) NOT NULL,
  pri_ea int(11) NOT NULL,
  pri_re int(11) NOT NULL,
  fra_ch int(11) NOT NULL,
  fra_ea int(11) NOT NULL,
  fra_re int(11) NOT NULL,
  con_m2 int(11) NOT NULL,
  emm_m2 int(11) NOT NULL,
  sur_ch varchar(20) NOT NULL,
  sur_sol_ch varchar(20) NOT NULL,
  sur_pla_ch varchar(20) NOT NULL,
  sur_mur varchar(20) NOT NULL,
  sur_fen varchar(20) NOT NULL,
  nom_ni varchar(20) NOT NULL,
  typ_plan varchar(20) NOT NULL,
  typ_plaf varchar(20) NOT NULL,
  typ_mur varchar(20) NOT NULL,
  typ_fen varchar(20) NOT NULL,
  indep varchar(20) NOT NULL,
  is_plan varchar(20) NOT NULL,
  is_plaf varchar(20) NOT NULL,
  is_mur varchar(20) NOT NULL,
  doubl_v varchar(20) NOT NULL,
  observations longtext NOT NULL,
  energy mediumblob NOT NULL COMMENT 'image of energy consumption',
  emission mediumblob NOT NULL COMMENT 'image of co2 emission',
  PRIMARY KEY  (id)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8 COMMENT='les dpe das maisons';

-- --------------------------------------------------------

--
-- Table structure for table 'ecoles_etc'
--

CREATE TABLE ecoles_etc (
  id int(11) NOT NULL auto_increment,
  `type` varchar(20) collate latin1_general_cs default NULL,
  ville int(11) default NULL,
  `client` int(11) default NULL,
  adresse varchar(200) collate latin1_general_cs default NULL,
  tel varchar(15) collate latin1_general_cs default NULL,
  fax varchar(15) collate latin1_general_cs default NULL,
  nom varchar(200) collate latin1_general_cs default NULL,
  observations blob,
  email varchar(50) collate latin1_general_cs default NULL,
  PRIMARY KEY  (id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_cs
PACK_KEYS=1;

-- --------------------------------------------------------

--
-- Table structure for table 'Facture'
--

CREATE TABLE Facture (
  `No` int(11) NOT NULL auto_increment,
  `Date` date NOT NULL default '0000-00-00',
  Acte int(11) NOT NULL default '0',
  De int(11) NOT NULL default '0',
  Sequestre int(11) NOT NULL default '0',
  Envoi varchar(50) NOT NULL default '',
  Date_e date NOT NULL default '0000-00-00',
  PRIMARY KEY  (`No`),
  UNIQUE KEY `No` (`No`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'fm'
--

CREATE TABLE fm (
  fm longblob
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'General'
--

CREATE TABLE General (
  Id int(11) NOT NULL auto_increment,
  nom varchar(20) default NULL,
  Menu_text varchar(150) default NULL,
  photo longblob,
  nomof varchar(200) default NULL,
  caisse varchar(200) default NULL,
  rue varchar(200) default NULL,
  plz varchar(10) default NULL,
  ville varchar(100) default NULL,
  numgar varchar(20) default NULL,
  mongar float(15,2) default NULL,
  Bnom varchar(100) default NULL,
  Bcoma varchar(20) default NULL,
  Bcoms varchar(20) default NULL,
  iban varchar(100) default NULL,
  Cnom varchar(200) default NULL,
  Cnum varchar(20) default NULL,
  Cinsee varchar(20) default NULL,
  Pnom varchar(100) default NULL,
  Pnum varchar(20) default NULL,
  Pdate varchar(10) default NULL,
  annon_logic tinyint(4) default NULL,
  `Int2` tinyint(4) default NULL,
  `Int3` tinyint(4) default NULL,
  slogan varchar(250) character set utf8 default NULL,
  Pre_Mandats varchar(10) character set utf8 NOT NULL,
  Territoire varchar(100) character set utf8 default NULL,
  No_intern int(11) default NULL,
  Groupe varchar(100) character set utf8 default NULL,
  www varchar(250) character set utf8 default NULL,
  PRIMARY KEY  (Id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Gestion_Client'
--

CREATE TABLE Gestion_Client (
  `No` int(11) NOT NULL auto_increment,
  Nom varchar(100) NOT NULL default '',
  Prenom varchar(150) default NULL,
  Adresse varchar(100) NOT NULL default '',
  Code_Postal varchar(10) NOT NULL default '',
  Ville varchar(100) NOT NULL default '',
  Pays varchar(50) default NULL,
  Telephone varchar(50) default NULL,
  Fax varchar(50) default NULL,
  Portable varchar(50) default NULL,
  Travail varchar(50) default NULL,
  Email varchar(50) default NULL,
  Observations blob,
  `Type` varchar(10) NOT NULL default '',
  Dernier_contact datetime default NULL,
  Statut varchar(15) default NULL,
  `Action` varchar(200) default NULL,
  Ne date default NULL,
  NeOu varchar(100) default NULL,
  Metier varchar(50) default NULL,
  TypeLiaison varchar(50) default NULL,
  Spouse int(11) default NULL,
  Mariage date default NULL,
  MariageOU varchar(50) default NULL,
  Conditions varchar(20) default NULL,
  Noce tinyint(4) default NULL,
  Liaison varchar(50) default NULL,
  Quote smallint(6) default NULL,
  Conddesc varchar(100) default NULL,
  PRIMARY KEY  (`No`),
  UNIQUE KEY `No` (`No`),
  KEY Nom (Nom)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Gestion_IRL'
--

CREATE TABLE Gestion_IRL (
  Annee char(4) NOT NULL default '',
  Trimestre tinyint(4) NOT NULL default '0',
  Indice float(50,4) NOT NULL default '0.0000',
  Parution date NOT NULL default '0000-00-00',
  `No` int(11) NOT NULL auto_increment,
  PRIMARY KEY  (`No`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Gestion_Mandat'
--

CREATE TABLE Gestion_Mandat (
  `No` int(11) NOT NULL auto_increment,
  NoMandat int(11) NOT NULL default '0',
  Bailleur int(11) NOT NULL default '0',
  Unite int(11) NOT NULL default '0',
  Honoraire float(5,2) NOT NULL default '0.00',
  Assurence float(5,2) default NULL,
  Diverse decimal(50,2) default NULL,
  DiRaison char(50) default NULL,
  AssuPer smallint(6) default NULL,
  Debut date default NULL,
  Statut char(20) NOT NULL default '',
  PRIMARY KEY  (`No`),
  UNIQUE KEY `No` (`No`),
  UNIQUE KEY NoMandat (NoMandat),
  KEY NoMandat_2 (NoMandat)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Gestion_Unite'
--

CREATE TABLE Gestion_Unite (
  `No` int(11) NOT NULL auto_increment,
  Bailleur int(11) NOT NULL default '0',
  Bail int(11) default NULL,
  Bien varchar(6) default NULL,
  Lot_no int(11) default NULL,
  tantiemes int(11) default NULL,
  Co_chauf tinyint(4) default NULL,
  Co_fioul tinyint(4) default NULL,
  Co_gaz tinyint(4) default NULL,
  Co_elec tinyint(4) default NULL,
  Co_aire tinyint(4) default NULL,
  Co_cir tinyint(4) default NULL,
  Co_jeux tinyint(4) default NULL,
  Co_verts tinyint(4) default NULL,
  Co_asc tinyint(4) default NULL,
  Co_inter tinyint(4) default NULL,
  Co_ant tinyint(4) default NULL,
  Co_porte tinyint(4) default NULL,
  Garage int(11) default NULL,
  Cave int(11) default NULL,
  Grenier int(11) default NULL,
  Destination varchar(20) NOT NULL default '',
  Batiment varchar(10) default NULL,
  Etage smallint(6) default NULL,
  Porte smallint(6) default NULL,
  Designation blob,
  `Type` varchar(10) NOT NULL default '',
  Surface int(11) default NULL,
  Loyer decimal(10,2) NOT NULL default '0.00',
  Charges decimal(10,2) NOT NULL default '0.00',
  Caution decimal(10,2) NOT NULL default '0.00',
  Statut varchar(10) NOT NULL default '',
  PRIMARY KEY  (`No`),
  UNIQUE KEY `No` (`No`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'groupe'
--

CREATE TABLE groupe (
  id int(11) NOT NULL auto_increment,
  Nom varchar(100) NOT NULL,
  Logo mediumblob NOT NULL,
  LogoNom varchar(20) NOT NULL,
  Motto varchar(200) NOT NULL,
  PRIMARY KEY  (id),
  UNIQUE KEY LogoNom (LogoNom)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

--
-- Table structure for table 'homes'
--

CREATE TABLE homes (
  id int(11) NOT NULL auto_increment,
  title varchar(20) default NULL COMMENT 'Mandat',
  address varchar(250) default NULL COMMENT 'Adresse',
  city varchar(100) default NULL COMMENT 'Ville',
  state varchar(20) default NULL COMMENT 'Dist. ville',
  zip varchar(20) default NULL COMMENT 'P. Code',
  price decimal(11,2) default NULL COMMENT 'Tax hab.',
  previewdesc blob COMMENT 'Description',
  fulldesc blob COMMENT 'Details',
  `type` varchar(25) default NULL COMMENT 'Type',
  imageloc varchar(50) default NULL COMMENT 'Orentation',
  beds int(11) default NULL COMMENT 'Chambres',
  baths smallint(6) default NULL COMMENT 'Salles de B.',
  `status` varchar(10) default NULL COMMENT 'Taille piscine',
  featured char(1) default NULL,
  mls varchar(20) default NULL COMMENT 'Standing',
  dateposted date default NULL,
  neighborhood varchar(50) default NULL COMMENT 'Etat gen.',
  agent varchar(30) default NULL COMMENT 'Nego',
  agenturl varchar(30) default NULL COMMENT 'Type Terrain',
  air char(1) default NULL COMMENT 'Solair',
  alrm char(1) default NULL COMMENT 'Tout a l''egout',
  bcny char(1) default NULL COMMENT 'Balcon',
  cbl char(1) default NULL COMMENT 'Fosse septique',
  crp char(1) default NULL COMMENT 'Piscine',
  dw char(1) default NULL COMMENT 'Ch. central',
  dsp char(1) default NULL COMMENT 'Cuisine eq.',
  fire char(1) default NULL COMMENT 'Cheminee',
  gas char(1) default NULL COMMENT 'Carrelage',
  gas2 char(1) default NULL COMMENT 'Gas/Fioul',
  hdwd char(1) default NULL COMMENT 'Garage',
  mw char(1) default NULL COMMENT 'Veranda',
  onw char(1) default NULL COMMENT 'Cave',
  pto char(1) default NULL COMMENT 'Terrasse',
  wadr char(1) default NULL COMMENT 'Dispo',
  wc char(1) default NULL COMMENT 'Alarme',
  fee char(1) default NULL COMMENT 'Ext. ok',
  bp char(1) default NULL COMMENT 'En campagne',
  boat char(1) default NULL COMMENT 'Agglomeration',
  clb char(1) default NULL COMMENT 'Ext. a renover',
  gtd char(1) default NULL COMMENT 'Ext. possible',
  crt char(1) default NULL COMMENT 'E.D.F.',
  fit char(1) default NULL COMMENT 'Cloture',
  ong char(1) default NULL COMMENT 'Abri voiture',
  pw char(1) default NULL COMMENT 'Periferie Vil.',
  pool char(1) default NULL,
  pt char(1) default NULL COMMENT 'Vieille batisse',
  spa char(1) default NULL COMMENT 'Lotissement',
  spo char(1) default NULL COMMENT 'Eau de ville',
  tns char(1) default NULL COMMENT 'Forage',
  notes blob COMMENT 'Annonce',
  agentemail varchar(30) default NULL COMMENT 'Regime fiscal',
  owner int(11) default NULL COMMENT 'Proprietaire',
  numfloors varchar(30) default NULL COMMENT 'Niveaux',
  yearbuilt int(11) default NULL COMMENT 'Annee cons.',
  sqfeet int(11) default NULL COMMENT 'Surf. Habit.',
  lotsize varchar(30) default NULL COMMENT 'Surf. Terrain',
  garagesize varchar(30) default NULL COMMENT 'Surf. Salon',
  proptax decimal(11,2) default NULL COMMENT 'Tax fonciere',
  country varchar(30) default NULL COMMENT 'Aspect Ext.',
  interne blob COMMENT 'Interne',
  tmp tinyint(4) default '0',
  tel1 tinyint(4) default '0',
  tel2 tinyint(4) default '0' COMMENT 'WC''s',
  tel3 tinyint(4) default '0' COMMENT 'Telephone',
  tel4 tinyint(4) default '0' COMMENT 'ADSL',
  tel5 tinyint(4) default '0' COMMENT 'Portable ok',
  plu varchar(10) default NULL COMMENT 'POS/PLU',
  shon int(11) default NULL COMMENT 'Shon dispo',
  shob int(11) default NULL COMMENT 'Shob dispo',
  cos float(5,3) default NULL COMMENT 'Cos facteur',
  cadastre varchar(200) default NULL COMMENT 'No''s Cadastre',
  vega varchar(30) default NULL COMMENT 'Vegetation',
  Lat double default '0',
  Lon double default '0',
  last_update_h timestamp NOT NULL default CURRENT_TIMESTAMP on update
CURRENT_TIMESTAMP,
  PRIMARY KEY  (id),
  KEY title (title)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Jobs'
--

CREATE TABLE Jobs (
  Id int(11) NOT NULL auto_increment,
  Nego int(11) NOT NULL default '0',
  `Start` date NOT NULL default '0000-00-00',
  `End` date default NULL,
  Titre char(50) NOT NULL default '',
  comman decimal(5,2) default NULL,
  comven decimal(5,2) default NULL,
  comca decimal(5,2) default NULL,
  comcs decimal(5,2) NOT NULL default '0.00',
  comgen decimal(5,2) default NULL,
  rules int(11) default NULL,
  TimePour tinyint(4) default NULL,
  Filiale int(11) default NULL,
  comcas float NOT NULL default '1' COMMENT 'Comm si splitt between M et
V ca',
  PRIMARY KEY  (Id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Locations'
--

CREATE TABLE Locations (
  `No` int(11) NOT NULL auto_increment,
  Code_Mandat varchar(6) NOT NULL default '',
  `Type` varchar(20) NOT NULL default '',
  Bail date NOT NULL default '0000-00-00',
  Debut date NOT NULL default '0000-00-00',
  Locataire int(11) NOT NULL default '0',
  Prix_loyee decimal(50,2) NOT NULL default '0.00',
  Comm_Agence decimal(50,2) NOT NULL default '0.00',
  Raison varchar(200) default NULL,
  Betaald date default NULL,
  Etat date default NULL,
  Commercial int(11) NOT NULL default '0',
  Statut varchar(30) default NULL,
  Interne blob,
  PRIMARY KEY  (`No`),
  UNIQUE KEY `No` (`No`),
  KEY Code_Mandat (Code_Mandat)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Mandats'
--

CREATE TABLE Mandats (
  `No` int(11) NOT NULL auto_increment,
  `Code` varchar(6) NOT NULL COMMENT 'Mandat',
  NoMls varchar(50) default NULL,
  `Type` varchar(12) NOT NULL COMMENT 'Type',
  `Date` date NOT NULL default '0000-00-00' COMMENT 'Depart',
  Fin date default NULL COMMENT 'Fin',
  Arreter date default NULL COMMENT 'Date mandat arreté',
  Periode smallint(6) default NULL COMMENT 'Periode',
  Prix_net decimal(50,2) NOT NULL default '0.00' COMMENT 'Prix net',
  Comm_TTC decimal(50,2) default NULL COMMENT 'Honoraires',
  Prix_vendue decimal(50,2) default NULL COMMENT 'Prix net vendue',
  Comm_Vendue decimal(50,2) default NULL COMMENT 'Honoraires vendue',
  Raison varchar(250) default NULL COMMENT 'Visite ?',
  Agence varchar(50) default NULL,
  Notaire int(11) default NULL COMMENT 'Notaire
(Clients.No-Clients.Nom)',
  Proprio int(11) NOT NULL default '0' COMMENT 'Proprietaire
(Clients.No-Clients.Nom)',
  Commercial int(11) NOT NULL default '0' COMMENT 'Nego
(agents.id-agents.agent)',
  Statut varchar(12) NOT NULL COMMENT 'Etat',
  Prix_estimee decimal(33,0) default NULL COMMENT 'Prix estimee',
  Visite blob COMMENT 'Observations',
  ComFacteur decimal(5,2) NOT NULL default '0.00',
  Dis_compromis blob,
  Auqui_compromis blob,
  Servitudes blob COMMENT 'Servitudes',
  Doc_AA tinyint(1) default NULL COMMENT 'A.A. en dossier',
  Doc_Plans tinyint(1) default NULL COMMENT 'Plans au dossier',
  Doc_Copro tinyint(1) default NULL COMMENT 'Copro en dossier',
  Doc_Ident tinyint(1) default NULL COMMENT 'P. d''id en dossier',
  Doc_Arch date default NULL COMMENT 'Date d''acrchèvement des
traveaux',
  Doc_PDate date default NULL COMMENT 'Date permis',
  Doc_CConf date default NULL COMMENT 'Date conformation',
  Doc_Apart tinyint(1) default NULL COMMENT 'Arpatage en dossier',
  Doc_Taxh tinyint(1) default NULL COMMENT 'Tax habit. en dossier',
  Doc_Thab tinyint(1) default NULL COMMENT 'Tax fonc. en dossier',
  Doc_Cadastre tinyint(1) default NULL COMMENT 'Cadastre en dossier',
  Doc_Amiante date default NULL COMMENT 'Amiante en dossier',
  Doc_Plomb date default NULL COMMENT 'Plomb en dossier',
  Doc_Termites date default NULL COMMENT 'Termites en dossier',
  Doc_Gaz date default NULL COMMENT 'Gaz en dossier',
  Doc_Analyse tinyint(1) default NULL COMMENT 'Electricité en dossier',
  Doc_Dpe tinyint(1) default NULL,
  Dpe_resultat smallint(2) default NULL,
  Doc_Carez tinyint(1) default NULL COMMENT 'Loi Carez en dossier',
  Doc_Bail tinyint(1) default NULL COMMENT 'Bail de location dans
l''agence',
  Ia_Amiante tinyint(1) default NULL COMMENT 'il y a d''amiante',
  Ia_Plomb tinyint(1) default NULL COMMENT 'il y a du plomb',
  Ia_Termites tinyint(1) default NULL COMMENT 'il y a des termites',
  Ia_Gaz tinyint(1) default NULL COMMENT 'Gaz pas bon',
  Ia_Analyse tinyint(1) default NULL COMMENT 'Electricité pas bon',
  Date_Ave date default NULL COMMENT 'Date avenant',
  Text_Ave varchar(100) default NULL COMMENT 'Text avenant',
  last_update_m timestamp NOT NULL default CURRENT_TIMESTAMP on update
CURRENT_TIMESTAMP,
  PRIMARY KEY  (`No`),
  UNIQUE KEY `Code` (`Code`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Mandats_history'
--

CREATE TABLE Mandats_history (
  id int(11) NOT NULL auto_increment,
  Code_Mandat varchar(6) NOT NULL,
  quand date NOT NULL,
  descriptif varchar(200) NOT NULL,
  qui varchar(200) default NULL,
  result varchar(200) default NULL,
  afaire varchar(200) default NULL,
  `source` varchar(20) NOT NULL,
  res1 int(11) default NULL,
  res2 varchar(20) default NULL,
  PRIMARY KEY  (id),
  KEY Code_Mandat (Code_Mandat)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8 COMMENT='histoire des actions pour
mandats';

-- --------------------------------------------------------

--
-- Table structure for table 'MTranslate'
--

CREATE TABLE MTranslate (
  id int(11) NOT NULL auto_increment,
  FieldName varchar(20) default NULL,
  FieldVal varchar(300) default NULL,
  Replacement varchar(300) default NULL,
  PRIMARY KEY  (id),
  KEY FieldName (FieldName,FieldVal)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COMMENT='Auto translate system
for forms text';

-- --------------------------------------------------------

--
-- Table structure for table 'M_avenants'
--

CREATE TABLE M_avenants (
  id int(11) NOT NULL,
  `Date` date NOT NULL COMMENT 'Date avenant',
  `Code` varchar(10) NOT NULL COMMENT 'Code mandat',
  Description varchar(200) NOT NULL COMMENT 'Descriptif',
  Prix decimal(10,2) default NULL COMMENT 'Nouveau prix',
  PRIMARY KEY  (id)
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Tous les avenants de tous
les mandats';

-- --------------------------------------------------------

--
-- Table structure for table 'Photos'
--

CREATE TABLE Photos (
  id int(11) NOT NULL auto_increment,
  id_files int(11) default NULL,
  prop_num int(11) NOT NULL default '0',
  description varchar(50) default NULL,
  thumb longblob,
  www longblob,
  sequence int(11) NOT NULL default '0',
  file_name varchar(100) default NULL,
  sel_g int(11) NOT NULL default '0',
  sel_p int(11) NOT NULL default '0',
  PRIMARY KEY  (id),
  KEY prop_num (prop_num)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'presse'
--

CREATE TABLE presse (
  Id int(11) NOT NULL auto_increment,
  Nom varchar(50) NOT NULL default '',
  Groupe varchar(50) NOT NULL default '',
  Resp varchar(100) NOT NULL default '',
  Phone varchar(50) NOT NULL default '',
  Email varchar(100) NOT NULL default '',
  Prix decimal(8,0) NOT NULL default '0',
  SeqNo smallint(6) default NULL,
  Nom_G smallint(6) NOT NULL default '0',
  Nom_P smallint(6) NOT NULL default '0',
  Nom_PA smallint(6) NOT NULL default '0',
  PRIMARY KEY  (Id),
  UNIQUE KEY Id (Id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Recu'
--

CREATE TABLE Recu (
  `No` int(11) NOT NULL auto_increment,
  `Date` date NOT NULL default '0000-00-00',
  Acte int(11) NOT NULL default '0',
  De int(11) NOT NULL default '0',
  Sequestre int(11) NOT NULL default '0',
  Envoi varchar(50) NOT NULL default '',
  Date_e date NOT NULL default '0000-00-00',
  PRIMARY KEY  (`No`),
  UNIQUE KEY `No` (`No`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Relation'
--

CREATE TABLE Relation (
  id int(11) NOT NULL auto_increment,
  pourcent tinyint(4) default NULL,
  `type` char(1) character set latin1 NOT NULL default 'v',
  `code` varchar(6) character set latin1 NOT NULL COMMENT 'Code mandat
ou vente',
  typer varchar(20) character set latin1 NOT NULL,
  depuis date default NULL,
  notaire int(11) default NULL,
  noce tinyint(4) default NULL,
  reserve1 varchar(20) character set latin1 NOT NULL,
  reserve2 varchar(60) character set latin1 NOT NULL,
  PRIMARY KEY  (id)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
COMMENT='defines relations between people and sci''s';

-- --------------------------------------------------------

--
-- Table structure for table 'searches'
--

CREATE TABLE searches (
  id int(11) NOT NULL auto_increment,
  Nom varchar(200) collate utf8_unicode_ci default ' ',
  Agent int(11) default NULL,
  SQLst varchar(1000) collate utf8_unicode_ci default ' ',
  Knom varchar(20) collate utf8_unicode_ci default ' ',
  Form varchar(100) collate utf8_unicode_ci default ' ',
  Selectors varchar(500) collate utf8_unicode_ci default ' ',
  Hstr varchar(500) collate utf8_unicode_ci default ' ',
  Filter varchar(500) collate utf8_unicode_ci default ' ',
  FFilter varchar(500) collate utf8_unicode_ci default ' ',
  KFilter varchar(500) collate utf8_unicode_ci default ' ',
  LFilter varchar(500) collate utf8_unicode_ci default ' ',
  MFilter varchar(500) collate utf8_unicode_ci default ' ',
  BFilter varchar(500) collate utf8_unicode_ci default ' ',
  SFilter varchar(500) collate utf8_unicode_ci default ' ',
  AFilter varchar(500) collate utf8_unicode_ci default ' ',
  Oby varchar(20) collate utf8_unicode_ci default ' ',
  Way varchar(5) collate utf8_unicode_ci default ' ',
  fldcount int(11) default NULL,
  ColTable0 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable1 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable2 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable3 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable4 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable5 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable6 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable7 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable8 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable9 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable10 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable11 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable12 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable13 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable14 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable15 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable16 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable17 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable18 varchar(500) collate utf8_unicode_ci default NULL,
  ColTable19 varchar(500) collate utf8_unicode_ci default NULL,
  PRIMARY KEY  (id),
  KEY Agent (Agent),
  KEY Form (Form)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
COMMENT='Search params for the  forms per user';

-- --------------------------------------------------------

--
-- Table structure for table 'securety'
--

CREATE TABLE securety (
  `No` int(11) NOT NULL auto_increment,
  TName char(20) default NULL,
  FName char(20) default NULL,
  Job char(20) default NULL,
  Allowed char(5) default NULL,
  Area char(12) default NULL,
  PRIMARY KEY  (`No`),
  KEY TableName (TName),
  KEY FormName (FName)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COMMENT='Accès rules for
request';

-- --------------------------------------------------------

--
-- Table structure for table 'sequestre'
--

CREATE TABLE sequestre (
  Sequence int(11) NOT NULL auto_increment,
  Montant decimal(10,2) NOT NULL default '0.00',
  D_C char(1) NOT NULL default '',
  Date_recu date NOT NULL default '0000-00-00',
  Date_compte date default NULL,
  Date_quitance date default NULL,
  Nom_paye int(11) default NULL,
  Code_paye int(11) default NULL,
  Moyenne varchar(20) default NULL,
  Banque varchar(50) default NULL,
  Lettre varchar(10) default NULL,
  Comptabilise char(1) default NULL,
  `Text` blob,
  Acte int(11) NOT NULL default '0',
  Motif varchar(50) default NULL,
  NoCheque varchar(20) default NULL,
  PRIMARY KEY  (Sequence),
  UNIQUE KEY Sequence (Sequence),
  KEY Date_compte (Date_compte),
  KEY Lettre (Lettre)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'sequestre_mois'
--

CREATE TABLE sequestre_mois (
  Annee int(11) NOT NULL default '2006',
  Mois int(11) NOT NULL default '1',
  PRIMARY KEY  (Annee,Mois)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COMMENT='Help table pour mois
etc. sequestre';

-- --------------------------------------------------------

--
-- Stand-in structure for view 'Steven'
--
CREATE TABLE `Steven` (
`agent` varchar(30)
,`agentpass` varchar(10)
);
-- --------------------------------------------------------

--
-- Table structure for table 'tblCelkoTransTable'
--

CREATE TABLE tblCelkoTransTable (
  IDTransaction int(10) unsigned NOT NULL auto_increment,
  TableName tinytext,
  Differ tinytext,
  InTransaction bit(1) default NULL,
  TStamp timestamp NULL default NULL,
  PRIMARY KEY  (IDTransaction)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

--
-- Table structure for table 'vendeurs_pot'
--

CREATE TABLE vendeurs_pot (
  `No` int(11) NOT NULL auto_increment,
  Nom varchar(40) character set ucs2 NOT NULL,
  Prenom varchar(30) character set latin1 default NULL,
  Adresse varchar(100) character set latin1 NOT NULL,
  Code_Postal varchar(10) character set latin1 NOT NULL,
  Ville varchar(30) character set latin1 NOT NULL,
  Pays varchar(50) character set latin1 default NULL,
  Telephone varchar(20) character set latin1 default NULL,
  Fax varchar(20) character set latin1 default NULL,
  Portable varchar(20) character set latin1 default NULL,
  Travail varchar(20) character set latin1 default NULL,
  Email varchar(50) character set latin1 default NULL,
  Observations blob,
  `Type` varchar(24) character set latin1 default NULL,
  Dernier_contact datetime default NULL,
  Statut varchar(15) character set latin1 default NULL,
  `Action` varchar(200) character set latin1 default NULL,
  Conddesc varchar(100) character set latin1 default NULL,
  Adresse_B varchar(200) default NULL,
  Code_Postal_B varchar(10) default NULL,
  Ville_B varchar(30) default NULL COMMENT 'Ville Bien',
  Cadastre varchar(100) default NULL,
  Prix_net decimal(10,0) NOT NULL COMMENT 'Prix net',
  Nego mediumblob,
  negoNo int(11) default NULL,
  Discriptif_B mediumblob,
  PRIMARY KEY  (`No`),
  KEY Nom (Nom)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

--
-- Table structure for table 'Ventes'
--

CREATE TABLE Ventes (
  `No` int(11) NOT NULL auto_increment,
  `Code` int(11) NOT NULL default '0',
  Code_Mandat varchar(6) NOT NULL default '',
  Code_Mandat_R varchar(6) default NULL,
  `Type` varchar(20) NOT NULL default '',
  `Date` date NOT NULL default '0000-00-00',
  AA date NOT NULL default '0000-00-00',
  AA_Vrai date default NULL,
  Acheteur int(11) NOT NULL default '0',
  Notaire_A varchar(50) default NULL,
  Prix_vendue decimal(50,2) NOT NULL default '0.00',
  Comm_Vendue decimal(50,2) NOT NULL default '0.00',
  Raison varchar(200) default NULL,
  Pret decimal(50,2) default NULL,
  Notaire_P varchar(50) default NULL,
  Commercial int(11) NOT NULL default '0',
  Statut varchar(10) NOT NULL default '',
  Paye char(3) default NULL,
  Interne blob,
  Acompte decimal(50,2) default NULL,
  ADate date default NULL,
  Ded_1 decimal(50,2) default NULL,
  Ded_1_D varchar(50) default NULL,
  Ded_2 decimal(50,2) default NULL,
  Ded_2_D varchar(50) default NULL,
  Ded_3 decimal(50,2) default NULL,
  Ded_3_D varchar(50) default NULL,
  negos blob,
  A_pret_condition char(3) default NULL,
  A_pret_sim char(3) default NULL,
  A_pret_depot date default NULL,
  A_pret_result_d char(3) default NULL,
  A_pret_offre date default NULL,
  A_pret_11jours date default NULL,
  A_pret_accept date default NULL,
  A_pret_dispo date default NULL,
  A_pret_denon date default NULL,
  A_pret_ok char(3) default NULL,
  A_preom_Com char(3) default NULL,
  A_preom_Safer char(3) default NULL,
  A_preom_Cdep date default NULL,
  A_preom_Sdep date default NULL,
  A_preom_CRep date default NULL,
  A_preom_SRep date default NULL,
  A_preom_Cdes char(3) default NULL,
  A_preom_Sdes char(3) default NULL,
  A_preom_leve char(3) default NULL,
  A_urba_recu date default NULL,
  A_urba_ok char(3) default NULL,
  A_pc_depot date default NULL,
  A_pc_rep date default NULL,
  A_pc_condition char(3) default NULL,
  A_pc_des char(3) default NULL,
  A_pc_rec3 date default NULL,
  A_pc_recPref date default NULL,
  A_pc_ok char(3) default NULL,
  A_autre blob,
  A_autre_ok char(3) default NULL,
  PRIMARY KEY  (`No`),
  UNIQUE KEY `Code` (`Code`),
  KEY Code_Mandat (Code_Mandat)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'Villes'
--

CREATE TABLE Villes (
  Nom varchar(100) NOT NULL default '',
  MAJ varchar(100) NOT NULL default '',
  CodeP varchar(5) default NULL,
  CodeI varchar(6) default NULL,
  Lat decimal(12,7) NOT NULL default '0.0000000',
  Lon decimal(12,7) NOT NULL default '0.0000000',
  Eloine varchar(9) default NULL,
  Filiale int(11) default NULL,
  Ours smallint(6) default NULL,
  Habitants int(11) default NULL,
  Sequence int(11) NOT NULL auto_increment,
  Departement tinyint(3) unsigned NOT NULL default '0',
  PRIMARY KEY  (Sequence),
  UNIQUE KEY Sequence (Sequence),
  KEY Nom (Nom),
  FULLTEXT KEY Nom_2 (Nom),
  FULLTEXT KEY MAJ (MAJ)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table 'visites'
--

CREATE TABLE visites (
  id int(11) NOT NULL auto_increment,
  acquireur int(11) NOT NULL,
  bien int(11) NOT NULL,
  nego int(11) NOT NULL,
  datum date NOT NULL,
  heure time default NULL,
  result varchar(1000) default NULL,
  res0 varchar(200) default NULL,
  bon int(11) default NULL,
  res2 date default NULL,
  PRIMARY KEY  (id),
  KEY acquireur (acquireur,nego),
  KEY bon (bon)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Table structure for table '__RekallObjects'
--

CREATE TABLE __RekallObjects (
  Id int(11) NOT NULL auto_increment,
  `Name` varchar(80) default NULL,
  `Type` varchar(12) default NULL,
  Definition blob,
  Description blob,
  SaveDate varchar(16) default NULL,
  Extension varchar(16) default NULL,
  PRIMARY KEY  (Id)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

-- --------------------------------------------------------

--
-- Structure for view 'Steven'
--
DROP TABLE IF EXISTS `Steven`;

CREATE ALGORITHM=UNDEFINED DEFINER=root at ...40... SQL SECURITY DEFINER
VIEW revimmo.Steven AS select revimmo.agents.agent AS
agent,revimmo.agents.agentpass AS agentpass from (revimmo.agents join
revimmo.Jobs) where ((revimmo.agents.id = revimmo.Jobs.Nego) and
isnull(revimmo.Jobs.`End`));


So, you have the complete structure now, the table concerned is called
'dpe'.

For the code, let me give you some parts :

1. Where I connect and open the database :
PUBLIC db AS NEW Connection
PUBLIC rs AS Result

bla bla bla

PUBLIC FUNCTION conn(host AS String, lgn AS String, pass AS String) AS
Boolean
  db.close
  db.Type = "mysql"
  Connected = FALSE
  db.Host = Host
  db.Login = lgn
  db.Password = pass
  db.Open
  Connected = TRUE
  RETURN TRUE
CATCH
  Message.error(error.text)
  RETURN FALSE
END

Then i use db everywhere in the program, I exec, insert, update, select
and whatever, no problems.
Except here (as I wrote before), here is the complete module / form :

1. The class file :
' Gambas class file
Ima1 AS Image
Ima2 AS Image
energie AS Integer
emission AS Integer
PaTag AS String[]
current_dpe AS Integer
rsC AS result

PUBLIC SUB Form_Open()
DIM posy AS Integer
DIM llen AS Integer

  ' we first get the raw images in.
  Ima1 = Image.Load("~/request/Images/energie.png")
  Ima2 = Image.Load("~/request/Images/emission.png")
  'now we get the values we need in
  IF ME.Tag THEN
    PaTag = Split(ME.Tag, "|")
    energie = PaTag[0]
    emission = PaTag[1]
    current_dpe = PaTag[2]
  ELSE 
    energie = "O"
  END IF
  ' start in height = 19, end is 229 for 450 max, then 247 is value for
over 450  
  ' thus the y postion is : 19 + (229 -19) * (450 / value) if value >
451 else position is 247
  ' the x position is 258
  IF energie <> 0 THEN 
    ' we fix the lenght of the line (go's to x = 270)
    IF energie > 450 THEN
      llen = 245 
      posy = 247
    ELSE IF energie > 330 THEN 
      llen = 216
      posy = 194 + ((energie - 330) / (450 - 330)) * 35
    ELSE IF energie > 230 THEN 
      llen = 187
      posy = 159 + ((energie - 230) / (330 - 230)) * 35
    ELSE IF energie > 150 THEN 
      llen = 157
      posy = 124 + ((energie - 150) / (230 - 150)) * 35
    ELSE IF energie > 90 THEN 
      llen = 129
      posy = 90 + ((energie - 90) / (150 - 90)) * 35
    ELSE IF energie > 50 THEN 
      llen = 101
      posy = 55 + ((energie - 50) / (90 - 50)) * 35
    ELSE IF energie > 0 THEN 
      llen = 73
      posy = 19 + (energie / 50) * 35
    END IF
    'and now we draw something beautifull
    Draw.Begin(DrawingArea1)
    Draw.Image(Ima1, 0, 0, 333, 285)
    'we write the pointer in
    Draw.Line(llen, posy, 270, posy)
    Draw.FillColor = Color.black
    Draw.FillStyle = 1
    Draw.ForeColor = Color.black ' der Rand wird auch weiß 
    Draw.Polygon([255, posy, 280, posy + 18, 325, posy + 18, 325, posy -
18, 280, posy - 18, 255, posy]) 
    Draw.ForeColor = Color.White
    Draw.Font = Font["Arial, 10, bold"]
    Draw.Text(energie, 284, posy - 8)
    Draw.ForeColor = Color.black
    Draw.Font = Font["Arial, 8"]
    Draw.Text("kWhEP/m².an", 260, posy + 22)
    Draw.End
    
  END IF
  IF emission <> 0 THEN 
    ' we fix the lenght of the line (go's to x = 270)
    IF emission > 80 THEN
      llen = 250 
      posy = 247
    ELSE IF emission > 55 THEN 
      llen = 221
      posy = 194 + ((emission - 55) / (80 - 55)) * 35
    ELSE IF emission > 35 THEN 
      llen = 192
      posy = 159 + ((emission - 35) / (55 - 35)) * 35
    ELSE IF emission > 20 THEN 
      llen = 162
      posy = 124 + ((emission - 20) / (35 - 20)) * 35
    ELSE IF emission > 10 THEN 
      llen = 134
      posy = 90 + ((emission - 10) / (20 - 10)) * 35
    ELSE IF emission > 5 THEN 
      llen = 106
      posy = 55 + ((emission - 5) / (10 - 5)) * 35
    ELSE IF emission > 0 THEN 
      llen = 78
      posy = 19 + (emission / 5) * 35
    END IF 
  END IF  
  'and now we draw something beautifull
  Draw.Begin(DrawingArea2)
  Draw.Image(Ima2, 0, 0, 333, 285)
  'we write the pointer in
  Draw.Line(llen, posy, 270, posy)
  Draw.FillColor = Color.black
  Draw.FillStyle = 1
  Draw.ForeColor = Color.black ' der Rand wird auch weiß 
  Draw.Polygon([255, posy, 280, posy + 18, 325, posy + 18, 325, posy -
18, 280, posy - 18, 255, posy]) 
  Draw.ForeColor = Color.White
  Draw.Font = Font["Arial, 10, bold"]
  Draw.Text(emission, 284, posy - 8)
  Draw.ForeColor = Color.black
  Draw.Font = Font["Arial, 8"]
  Draw.Text("kg éqco2/m².an.", 260, posy + 22)
  Draw.End




END

PUBLIC SUB Close_Click()
' save the images and close
DIM PicE AS Picture
DIM PicM AS Picture
DIM StrPicE, StrPicM AS String
DIM resP AS Result


  PicE = DrawingArea1.Grab()
  PicE.Save("Z-energy.jpg")
  PicM = DrawingArea2.Grab()
  PicM.Save("Z-emission.jpg")
  ' and into the database

  resP = db.Edit("dpe", "id = &1", current_dpe)
  resP["energy"] = File.Load("Z-energy.jpg")
  resP["emission"] = File.Load("Z-emission.jpg")
  resP.Update()

  ME.Close
CATCH
  Message.Error("<b>Update database record error</b><hr>Error:<br>" &
DConv(Error.Text))
END


and 2. the Form file :
# Gambas Form File 2.0

{ Form Form
  MoveScaled(0,0,87,52)
  Text = ("")
  { DrawingArea1 DrawingArea
    MoveScaled(1,11,41.625,35.625)
    Cached = True
    Border = Border.Etched
  }
  { DrawingArea2 DrawingArea
    MoveScaled(44,11,41.625,35.625)
    Cached = True
    Border = Border.Etched
  }
  { TextLabel1 TextLabel
    MoveScaled(1,1,42,9)
    Text = ("Consommations \xC3\xA9nerg\xC3\xA9tiques (en \xC3\xA9nergie
primaire)\npour le chauffage, la production d\xE2\x80\x99eau chaude
sanitaire et le refroidissement\nConsommation conventionnelle\xC2\xA0:")
  }
  { TextLabel2 TextLabel
    MoveScaled(44,1,41,9)
    Text = ("Emission de gaz \xC3\xA0 effet de serre (GES) pour le
chauffage, la production d\xE2\x80\x99eau chaude sanitaire et le
refroidissement\nEstimation des \xC3\xA9missions")
  }
  { Close Button
    MoveScaled(75,48,10,2)
    Background = &H008000&
    Foreground = &HFFFFBF&
    ToolTip = ("Appuyer pour \nfermer cette\nfen\xC3\xAAtre (et sauver
tous les\nchangements)")
    Text = ("Fermer")
  }
}


I really do hope this helps in tracking the problem.
If not, please indicate the way I can send you the whole shiskebab.
For the database, that will not be possible since there is a lot of
confidential data in it.
But I could give you, personally, access to it if you want to.

Regards,
Steven






More information about the User mailing list