#----------------------
package fonction ; 
  { 
	@ISA=("object");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&object::listAttribute()};
		$listAttribute{'nom'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','fonction');
		$self->addProperties(%param);
		$self->{'nom'}='';
 		return $self; 
	}
}#--------------


#----------------------
package typeaction ; 
  { 
	@ISA=("object");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&object::listAttribute()};
		$listAttribute{'nom'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','typeaction');
		$self->addProperties(%param);
		$self->{'nom'}='';
 		return $self; 
	}
}#--------------


#----------------------
package jhomme ; 
  { 
	@ISA=("agenda");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&agenda::listAttribute()};
		$listAttribute{'prix'}='float8,';
		$listAttribute{'factures'}='oid,';
		$listAttribute{'date'}='date,';
		$listAttribute{'client'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','jhomme');
		$self->addProperties(%param);
		$self->{'prix'}='';
 		$self->{'factures'}='';
 		$self->{'date'}='';
 		$self->{'client'}='';
 		return $self; 
	}
}#--------------


#----------------------
package achat ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'fournisseur'}='oid,';
		$listAttribute{'factures'}='text,';
		$listAttribute{'datepaye'}='date,';
		$listAttribute{'montantht'}='float8,';
		$listAttribute{'montanttc'}='float8,';
		$listAttribute{'libelle'}='text,';
		$listAttribute{'typepaiement'}='oid,';
		$listAttribute{'uid'}='int4,';
		$listAttribute{'nocheque'}='text,';
		$listAttribute{'abstract'}='text,';
		$listAttribute{'paye'}='int4,';
		$listAttribute{'rapproche'}='int4,';
		$listAttribute{'devise'}='oid,';
		$listAttribute{'groupe_ecriture'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','achat');
		$self->addProperties(%param);
		$self->{'fournisseur'}='';
 		$self->{'factures'}='';
 		$self->{'datepaye'}='';
 		$self->{'montantht'}='';
 		$self->{'montanttc'}='';
 		$self->{'libelle'}='';
 		$self->{'typepaiement'}='';
 		$self->{'uid'}='';
 		$self->{'nocheque'}='';
 		$self->{'abstract'}='';
 		$self->{'paye'}='';
 		$self->{'rapproche'}='';
 		$self->{'devise'}='';
 		$self->{'groupe_ecriture'}='';
 		return $self; 
	}
}#--------------


#----------------------
package constantes ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'tva'}='float8';
		$listAttribute{'salairenet'}='float8';
		$listAttribute{'defaultjh'}='float8,';
		$listAttribute{'uid'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','constantes');
		$self->addProperties(%param);
		$self->{'tva'}='';
 		$self->{'salairenet'}='';
 		$self->{'defaultjh'}='';
 		$self->{'uid'}='';
 		return $self; 
	}
}#--------------


#----------------------
package ecriture ; 
  { 
	@ISA=("object");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&object::listAttribute()};
		$listAttribute{'action'}='text,';
		$listAttribute{'compte'}='oid,';
		$listAttribute{'valeur'}='float8,';
		$listAttribute{'intitule'}='text,';
		$listAttribute{'date'}='date,';
		$listAttribute{'groupe_ecriture'}='oid,';
		$listAttribute{'exercice'}='int4,';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','ecriture');
		$self->addProperties(%param);
		$self->{'action'}='';
 		$self->{'compte'}='';
 		$self->{'valeur'}='';
 		$self->{'intitule'}='';
 		$self->{'date'}='';
 		$self->{'groupe_ecriture'}='';
 		$self->{'exercice'}='';
 		return $self; 
	}
}#--------------


#----------------------
package compte_banque ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4,';
		$listAttribute{'rib'}='text,';
		$listAttribute{'nocompte'}='text,';
		$listAttribute{'libelle'}='text,';
		$listAttribute{'nomcompte'}='text,';
		$listAttribute{'banque'}='oid,';
		$listAttribute{'compte'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','compte_banque');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'rib'}='';
 		$self->{'nocompte'}='';
 		$self->{'libelle'}='';
 		$self->{'nomcompte'}='';
 		$self->{'banque'}='';
 		$self->{'compte'}='';
 		return $self; 
	}
}#--------------


#----------------------
package reglement ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'factures'}='oid,';
		$listAttribute{'client'}='oid,';
		$listAttribute{'datepaye'}='date,';
		$listAttribute{'montant'}='float8,';
		$listAttribute{'uid'}='int4,';
		$listAttribute{'rapproche'}='int4,';
		$listAttribute{'devise'}='oid,';
		$listAttribute{'nocheque'}='text,';
		$listAttribute{'groupe_ecriture'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','reglement');
		$self->addProperties(%param);
		$self->{'factures'}='';
 		$self->{'client'}='';
 		$self->{'datepaye'}='';
 		$self->{'montant'}='';
 		$self->{'uid'}='';
 		$self->{'rapproche'}='';
 		$self->{'devise'}='';
 		$self->{'nocheque'}='';
 		$self->{'groupe_ecriture'}='';
 		return $self; 
	}
}#--------------


#----------------------
package statut ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'nom'}='text,';
		$listAttribute{'uid'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','statut');
		$self->addProperties(%param);
		$self->{'nom'}='';
 		$self->{'uid'}='';
 		return $self; 
	}
}#--------------


#----------------------
package fournisseur ; 
  { 
	@ISA=("societe");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&societe::listAttribute()};
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','fournisseur');
		$self->addProperties(%param);
		return $self; 
	}
}#--------------


#----------------------
package compte ; 
  { 
	@ISA=("object");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&object::listAttribute()};
		$listAttribute{'id'}='text,';
		$listAttribute{'intitule'}='text,';
		$listAttribute{'credit'}='float8,';
		$listAttribute{'debit'}='float8,';
		$listAttribute{'solde'}='float8';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','compte');
		$self->addProperties(%param);
		$self->{'id'}='';
 		$self->{'intitule'}='';
 		$self->{'credit'}='';
 		$self->{'debit'}='';
 		$self->{'solde'}='';
 		return $self; 
	}
}#--------------


#----------------------
package refrdv ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4';
		$listAttribute{'rendezvous'}='oid,';
		$listAttribute{'personne'}='oid,';
		$listAttribute{'intervenant'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','refrdv');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'rendezvous'}='';
 		$self->{'personne'}='';
 		$self->{'intervenant'}='';
 		return $self; 
	}
}#--------------


#----------------------
package oldstructorganisme ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','oldstructorganisme');
		$self->addProperties(%param);
		return $self; 
	}
}#--------------


#----------------------
package personne ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'adr1'}='text,';
		$listAttribute{'adr2'}='text,';
		$listAttribute{'cp'}='text,';
		$listAttribute{'ville'}='text,';
		$listAttribute{'tel'}='text,';
		$listAttribute{'fax'}='text,';
		$listAttribute{'nom'}='text,';
		$listAttribute{'uid'}='int4,';
		$listAttribute{'email'}='text,';
		$listAttribute{'compte'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','personne');
		$self->addProperties(%param);
		$self->{'adr1'}='';
 		$self->{'adr2'}='';
 		$self->{'cp'}='';
 		$self->{'ville'}='';
 		$self->{'tel'}='';
 		$self->{'fax'}='';
 		$self->{'nom'}='';
 		$self->{'uid'}='';
 		$self->{'email'}='';
 		$self->{'compte'}='';
 		return $self; 
	}
}#--------------


#----------------------
package todo_act ; 
  { 
	@ISA=("object");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&object::listAttribute()};
		$listAttribute{'nom'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','todo_act');
		$self->addProperties(%param);
		$self->{'nom'}='';
 		return $self; 
	}
}#--------------


#----------------------
package intervenant ; 
  { 
	@ISA=("personne");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&personne::listAttribute()};
		$listAttribute{'prenom'}='text,';
		$listAttribute{'datenaissance'}='date,';
		$listAttribute{'telmobile'}='text,';
		$listAttribute{'nosecu'}='text,';
		$listAttribute{'dateentree'}='date,';
		$listAttribute{'datesortie'}='date';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','intervenant');
		$self->addProperties(%param);
		$self->{'prenom'}='';
 		$self->{'datenaissance'}='';
 		$self->{'telmobile'}='';
 		$self->{'nosecu'}='';
 		$self->{'dateentree'}='';
 		$self->{'datesortie'}='';
 		return $self; 
	}
}#--------------


#----------------------
package lettre ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4,';
		$listAttribute{'personne'}='oid,';
		$listAttribute{'dateenvoi'}='date,';
		$listAttribute{'intervenant'}='oid,';
		$listAttribute{'object'}='text,';
		$listAttribute{'civilite'}='text,';
		$listAttribute{'texte'}='text,';
		$listAttribute{'formule'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','lettre');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'personne'}='';
 		$self->{'dateenvoi'}='';
 		$self->{'intervenant'}='';
 		$self->{'object'}='';
 		$self->{'civilite'}='';
 		$self->{'texte'}='';
 		$self->{'formule'}='';
 		return $self; 
	}
}#--------------


#----------------------
package oldstructcontact ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','oldstructcontact');
		$self->addProperties(%param);
		return $self; 
	}
}#--------------


#----------------------
package reaction ; 
  { 
	@ISA=("object");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&object::listAttribute()};
		$listAttribute{'nom'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','reaction');
		$self->addProperties(%param);
		$self->{'nom'}='';
 		return $self; 
	}
}#--------------


#----------------------
package rendezvous ; 
  { 
	@ISA=("agenda");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&agenda::listAttribute()};
		$listAttribute{'personne'}='oid,';
		$listAttribute{'objet'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','rendezvous');
		$self->addProperties(%param);
		$self->{'personne'}='';
 		$self->{'objet'}='';
 		return $self; 
	}
}#--------------


#----------------------
package pga_queries ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'queryname'}='character';
		$listAttribute{'querytype'}='character,';
		$listAttribute{'querycommand'}='text,';
		$listAttribute{'querytables'}='text,';
		$listAttribute{'querylinks'}='text,';
		$listAttribute{'queryresults'}='text,';
		$listAttribute{'querycomments'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','pga_queries');
		$self->addProperties(%param);
		$self->{'queryname'}='';
 		$self->{'querytype'}='';
 		$self->{'querycommand'}='';
 		$self->{'querytables'}='';
 		$self->{'querylinks'}='';
 		$self->{'queryresults'}='';
 		$self->{'querycomments'}='';
 		return $self; 
	}
}#--------------


#----------------------
package pga_layout ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'tablename'}='character';
		$listAttribute{'nrcols'}='int2,';
		$listAttribute{'colnames'}='text,';
		$listAttribute{'colwidth'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','pga_layout');
		$self->addProperties(%param);
		$self->{'tablename'}='';
 		$self->{'nrcols'}='';
 		$self->{'colnames'}='';
 		$self->{'colwidth'}='';
 		return $self; 
	}
}#--------------


#----------------------
package typepaiement ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'nom'}='text,';
		$listAttribute{'uid'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','typepaiement');
		$self->addProperties(%param);
		$self->{'nom'}='';
 		$self->{'uid'}='';
 		return $self; 
	}
}#--------------


#----------------------
package rapprochement ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4';
		$listAttribute{'mouvement_banque'}='oid,';
		$listAttribute{'ecriture'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','rapprochement');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'mouvement_banque'}='';
 		$self->{'ecriture'}='';
 		return $self; 
	}
}#--------------


#----------------------
package typeactiviteold ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4';
		$listAttribute{'nom'}='text,';
		$listAttribute{'prixdefaut'}='float8';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','typeactiviteold');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'nom'}='';
 		$self->{'prixdefaut'}='';
 		return $self; 
	}
}#--------------


#----------------------
package mouvement_banque ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'devise'}='oid,';
		$listAttribute{'f'}='text,';
		$listAttribute{'x'}='text,';
		$listAttribute{'libelle'}='text,';
		$listAttribute{'montant_franc'}='float8,';
		$listAttribute{'montant_euro'}='float8,';
		$listAttribute{'date'}='date,';
		$listAttribute{'date_valeur'}='date,';
		$listAttribute{'uid'}='int4,';
		$listAttribute{'compte_banque'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','mouvement_banque');
		$self->addProperties(%param);
		$self->{'devise'}='';
 		$self->{'f'}='';
 		$self->{'x'}='';
 		$self->{'libelle'}='';
 		$self->{'montant_franc'}='';
 		$self->{'montant_euro'}='';
 		$self->{'date'}='';
 		$self->{'date_valeur'}='';
 		$self->{'uid'}='';
 		$self->{'compte_banque'}='';
 		return $self; 
	}
}#--------------


#----------------------
package devis ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4';
		$listAttribute{'client'}='oid,';
		$listAttribute{'id'}='text,';
		$listAttribute{'dateemission'}='date,';
		$listAttribute{'dateecheance'}='date,';
		$listAttribute{'montantht'}='float8,';
		$listAttribute{'montanttc'}='float8,';
		$listAttribute{'abstract'}='text,';
		$listAttribute{'description'}='text,';
		$listAttribute{'envoye'}='int4,';
		$listAttribute{'accepte'}='int4,';
		$listAttribute{'factures'}='oid,';
		$listAttribute{'fichier'}='text,';
		$listAttribute{'devise'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','devis');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'client'}='';
 		$self->{'id'}='';
 		$self->{'dateemission'}='';
 		$self->{'dateecheance'}='';
 		$self->{'montantht'}='';
 		$self->{'montanttc'}='';
 		$self->{'abstract'}='';
 		$self->{'description'}='';
 		$self->{'envoye'}='';
 		$self->{'accepte'}='';
 		$self->{'factures'}='';
 		$self->{'fichier'}='';
 		$self->{'devise'}='';
 		return $self; 
	}
}#--------------


#----------------------
package banque ; 
  { 
	@ISA=("societe");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&societe::listAttribute()};
		$listAttribute{'code_banque'}='text,';
		$listAttribute{'code_guichet'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','banque');
		$self->addProperties(%param);
		$self->{'code_banque'}='';
 		$self->{'code_guichet'}='';
 		return $self; 
	}
}#--------------


#----------------------
package devise ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'nom'}='text,';
		$listAttribute{'abbrev'}='text,';
		$listAttribute{'nbeuros'}='float8,';
		$listAttribute{'uid'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','devise');
		$self->addProperties(%param);
		$self->{'nom'}='';
 		$self->{'abbrev'}='';
 		$self->{'nbeuros'}='';
 		$self->{'uid'}='';
 		return $self; 
	}
}#--------------


#----------------------
package agenda ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4,';
		$listAttribute{'tsp_start'}='timestamp,';
		$listAttribute{'duree'}='interval,';
		$listAttribute{'typeactivite'}='oid,';
		$listAttribute{'comment'}='text,';
		$listAttribute{'statut'}='int4,';
		$listAttribute{'intervenant'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','agenda');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'tsp_start'}='';
 		$self->{'duree'}='';
 		$self->{'typeactivite'}='';
 		$self->{'comment'}='';
 		$self->{'statut'}='';
 		$self->{'intervenant'}='';
 		return $self; 
	}
}#--------------


#----------------------
package maboite ; 
  { 
	@ISA=("societe");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&societe::listAttribute()};
		$listAttribute{'logo'}='text,';
		$listAttribute{'headerdoc'}='text,';
		$listAttribute{'footerdoc'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','maboite');
		$self->addProperties(%param);
		$self->{'logo'}='';
 		$self->{'headerdoc'}='';
 		$self->{'footerdoc'}='';
 		return $self; 
	}
}#--------------


#----------------------
package salaire ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'intervenant'}='oid,';
		$listAttribute{'net'}='float8,';
		$listAttribute{'brut'}='float8,';
		$listAttribute{'mois'}='int4,';
		$listAttribute{'typesalaire'}='oid,';
		$listAttribute{'comment'}='text,';
		$listAttribute{'uid'}='int4,';
		$listAttribute{'annee'}='int4,';
		$listAttribute{'paye'}='int4,';
		$listAttribute{'devise'}='oid,';
		$listAttribute{'groupe_ecriture'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','salaire');
		$self->addProperties(%param);
		$self->{'intervenant'}='';
 		$self->{'net'}='';
 		$self->{'brut'}='';
 		$self->{'mois'}='';
 		$self->{'typesalaire'}='';
 		$self->{'comment'}='';
 		$self->{'uid'}='';
 		$self->{'annee'}='';
 		$self->{'paye'}='';
 		$self->{'devise'}='';
 		$self->{'groupe_ecriture'}='';
 		return $self; 
	}
}#--------------


#----------------------
package oldstructclient ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','oldstructclient');
		$self->addProperties(%param);
		return $self; 
	}
}#--------------


#----------------------
package typesalaire ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'no'}='int4,';
		$listAttribute{'nom'}='text,';
		$listAttribute{'uid'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','typesalaire');
		$self->addProperties(%param);
		$self->{'no'}='';
 		$self->{'nom'}='';
 		$self->{'uid'}='';
 		return $self; 
	}
}#--------------


#----------------------
package organisme ; 
  { 
	@ISA=("personne");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&personne::listAttribute()};
		$listAttribute{'categorie'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','organisme');
		$self->addProperties(%param);
		$self->{'categorie'}='';
 		return $self; 
	}
}#--------------


#----------------------
package pga_reports ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'reportname'}='character';
		$listAttribute{'reportsource'}='text,';
		$listAttribute{'reportbody'}='text,';
		$listAttribute{'reportprocs'}='text,';
		$listAttribute{'reportoptions'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','pga_reports');
		$self->addProperties(%param);
		$self->{'reportname'}='';
 		$self->{'reportsource'}='';
 		$self->{'reportbody'}='';
 		$self->{'reportprocs'}='';
 		$self->{'reportoptions'}='';
 		return $self; 
	}
}#--------------


#----------------------
package pga_schema ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'schemaname'}='character';
		$listAttribute{'schematables'}='text,';
		$listAttribute{'schemalinks'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','pga_schema');
		$self->addProperties(%param);
		$self->{'schemaname'}='';
 		$self->{'schematables'}='';
 		$self->{'schemalinks'}='';
 		return $self; 
	}
}#--------------


#----------------------
package oldstructfournisseur ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','oldstructfournisseur');
		$self->addProperties(%param);
		return $self; 
	}
}#--------------


#----------------------
package userid ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'id'}='text,';
		$listAttribute{'pwd'}='text,';
		$listAttribute{'personne'}='oid,';
		$listAttribute{'statut'}='int4,';
		$listAttribute{'uid'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','userid');
		$self->addProperties(%param);
		$self->{'id'}='';
 		$self->{'pwd'}='';
 		$self->{'personne'}='';
 		$self->{'statut'}='';
 		$self->{'uid'}='';
 		return $self; 
	}
}#--------------


#----------------------
package contact ; 
  { 
	@ISA=("personne");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&personne::listAttribute()};
		$listAttribute{'prenom'}='text,';
		$listAttribute{'telmobile'}='text,';
		$listAttribute{'sujet'}='text,';
		$listAttribute{'commentaire'}='text,';
		$listAttribute{'mail'}='text,';
		$listAttribute{'web'}='text,';
		$listAttribute{'societe'}='oid,';
		$listAttribute{'fonction'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','contact');
		$self->addProperties(%param);
		$self->{'prenom'}='';
 		$self->{'telmobile'}='';
 		$self->{'sujet'}='';
 		$self->{'commentaire'}='';
 		$self->{'mail'}='';
 		$self->{'web'}='';
 		$self->{'societe'}='';
 		$self->{'fonction'}='';
 		return $self; 
	}
}#--------------


#----------------------
package societe ; 
  { 
	@ISA=("personne");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&personne::listAttribute()};
		$listAttribute{'categorie'}='text,';
		$listAttribute{'siret'}='text,';
		$listAttribute{'uetva'}='text,';
		$listAttribute{'typesociete'}='oid,';
		$listAttribute{'capital'}='text,';
		$listAttribute{'url'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','societe');
		$self->addProperties(%param);
		$self->{'categorie'}='';
 		$self->{'siret'}='';
 		$self->{'uetva'}='';
 		$self->{'typesociete'}='';
 		$self->{'capital'}='';
 		$self->{'url'}='';
 		return $self; 
	}
}#--------------


#----------------------
package rdvstate ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'state'}='text,';
		$listAttribute{'uid'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','rdvstate');
		$self->addProperties(%param);
		$self->{'state'}='';
 		$self->{'uid'}='';
 		return $self; 
	}
}#--------------


#----------------------
package typesociete ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'nom'}='text,';
		$listAttribute{'nomlong'}='text,';
		$listAttribute{'uid'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','typesociete');
		$self->addProperties(%param);
		$self->{'nom'}='';
 		$self->{'nomlong'}='';
 		$self->{'uid'}='';
 		return $self; 
	}
}#--------------


#----------------------
package oldstructpersonne ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','oldstructpersonne');
		$self->addProperties(%param);
		return $self; 
	}
}#--------------


#----------------------
package brouillard ; 
  { 
	@ISA=("object");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&object::listAttribute()};
		$listAttribute{'action'}='text,';
		$listAttribute{'compte'}='oid,';
		$listAttribute{'valeur'}='float8,';
		$listAttribute{'intitule'}='text,';
		$listAttribute{'date'}='date,';
		$listAttribute{'groupe_ecriture'}='oid,';
		$listAttribute{'exercice'}='int4,';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','brouillard');
		$self->addProperties(%param);
		$self->{'action'}='';
 		$self->{'compte'}='';
 		$self->{'valeur'}='';
 		$self->{'intitule'}='';
 		$self->{'date'}='';
 		$self->{'groupe_ecriture'}='';
 		$self->{'exercice'}='';
 		return $self; 
	}
}#--------------


#----------------------
package tmprapproch ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4,';
		$listAttribute{'mouvement_banque'}='oid,';
		$listAttribute{'achat'}='oid,';
		$listAttribute{'charges'}='oid,';
		$listAttribute{'ch_sociales'}='oid,';
		$listAttribute{'reglement'}='oid,';
		$listAttribute{'salaire'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','tmprapproch');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'mouvement_banque'}='';
 		$self->{'achat'}='';
 		$self->{'charges'}='';
 		$self->{'ch_sociales'}='';
 		$self->{'reglement'}='';
 		$self->{'salaire'}='';
 		return $self; 
	}
}#--------------


#----------------------
package rights ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4,';
		$listAttribute{'structtable'}='oid,';
		$listAttribute{'intervenant'}='oid,';
		$listAttribute{'read'}='int4,';
		$listAttribute{'write'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','rights');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'structtable'}='';
 		$self->{'intervenant'}='';
 		$self->{'read'}='';
 		$self->{'write'}='';
 		return $self; 
	}
}#--------------


#----------------------
package groupe_ecriture ; 
  { 
	@ISA=("object");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&object::listAttribute()};
		$listAttribute{'libelle'}='text,';
		$listAttribute{'valide'}='int4,';
		$listAttribute{'exercice'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','groupe_ecriture');
		$self->addProperties(%param);
		$self->{'libelle'}='';
 		$self->{'valide'}='';
 		$self->{'exercice'}='';
 		return $self; 
	}
}#--------------


#----------------------
package object ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4';
		$listAttribute{'authcrea'}='oid,';
		$listAttribute{'authmodif'}='oid,';
		$listAttribute{'datecrea'}='date,';
		$listAttribute{'datemodif'}='date';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','object');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'authcrea'}='';
 		$self->{'authmodif'}='';
 		$self->{'datecrea'}='';
 		$self->{'datemodif'}='';
 		return $self; 
	}
}#--------------


#----------------------
package formule ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4';
		$listAttribute{'contenu'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','formule');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'contenu'}='';
 		return $self; 
	}
}#--------------


#----------------------
package relance ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4,';
		$listAttribute{'client'}='oid,';
		$listAttribute{'daterelance'}='date,';
		$listAttribute{'intervenant'}='oid,';
		$listAttribute{'object'}='text,';
		$listAttribute{'civilite'}='text,';
		$listAttribute{'texte'}='text,';
		$listAttribute{'formule'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','relance');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'client'}='';
 		$self->{'daterelance'}='';
 		$self->{'intervenant'}='';
 		$self->{'object'}='';
 		$self->{'civilite'}='';
 		$self->{'texte'}='';
 		$self->{'formule'}='';
 		return $self; 
	}
}#--------------


#----------------------
package typeactivite ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'uid'}='int4';
		$listAttribute{'nom'}='text,';
		$listAttribute{'prixdefaut'}='float8,';
		$listAttribute{'reftable'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','typeactivite');
		$self->addProperties(%param);
		$self->{'uid'}='';
 		$self->{'nom'}='';
 		$self->{'prixdefaut'}='';
 		$self->{'reftable'}='';
 		return $self; 
	}
}#--------------


#----------------------
package factures ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'client'}='oid,';
		$listAttribute{'id'}='text,';
		$listAttribute{'dateemission'}='date,';
		$listAttribute{'dateecheance'}='date,';
		$listAttribute{'montantht'}='float8,';
		$listAttribute{'montanttc'}='float8,';
		$listAttribute{'regle'}='float8,';
		$listAttribute{'du'}='float8,';
		$listAttribute{'description'}='text,';
		$listAttribute{'uid'}='int4,';
		$listAttribute{'abstract'}='text,';
		$listAttribute{'envoye'}='int4,';
		$listAttribute{'devise'}='oid,';
		$listAttribute{'groupe_ecriture'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','factures');
		$self->addProperties(%param);
		$self->{'client'}='';
 		$self->{'id'}='';
 		$self->{'dateemission'}='';
 		$self->{'dateecheance'}='';
 		$self->{'montantht'}='';
 		$self->{'montanttc'}='';
 		$self->{'regle'}='';
 		$self->{'du'}='';
 		$self->{'description'}='';
 		$self->{'uid'}='';
 		$self->{'abstract'}='';
 		$self->{'envoye'}='';
 		$self->{'devise'}='';
 		$self->{'groupe_ecriture'}='';
 		return $self; 
	}
}#--------------


#----------------------
package charges ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'organisme'}='oid,';
		$listAttribute{'cheque'}='text,';
		$listAttribute{'datepaye'}='date,';
		$listAttribute{'montant'}='float8,';
		$listAttribute{'libelle'}='text,';
		$listAttribute{'uid'}='int4,';
		$listAttribute{'abstract'}='text,';
		$listAttribute{'paye'}='int4,';
		$listAttribute{'rapproche'}='int4,';
		$listAttribute{'devise'}='oid,';
		$listAttribute{'groupe_ecriture'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','charges');
		$self->addProperties(%param);
		$self->{'organisme'}='';
 		$self->{'cheque'}='';
 		$self->{'datepaye'}='';
 		$self->{'montant'}='';
 		$self->{'libelle'}='';
 		$self->{'uid'}='';
 		$self->{'abstract'}='';
 		$self->{'paye'}='';
 		$self->{'rapproche'}='';
 		$self->{'devise'}='';
 		$self->{'groupe_ecriture'}='';
 		return $self; 
	}
}#--------------


#----------------------
package ch_sociales ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'organisme'}='oid,';
		$listAttribute{'cheque'}='text,';
		$listAttribute{'datepaye'}='date,';
		$listAttribute{'montant'}='float8,';
		$listAttribute{'libelle'}='text,';
		$listAttribute{'uid'}='int4,';
		$listAttribute{'abstract'}='text,';
		$listAttribute{'paye'}='int4,';
		$listAttribute{'rapproche'}='int4,';
		$listAttribute{'devise'}='oid';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','ch_sociales');
		$self->addProperties(%param);
		$self->{'organisme'}='';
 		$self->{'cheque'}='';
 		$self->{'datepaye'}='';
 		$self->{'montant'}='';
 		$self->{'libelle'}='';
 		$self->{'uid'}='';
 		$self->{'abstract'}='';
 		$self->{'paye'}='';
 		$self->{'rapproche'}='';
 		$self->{'devise'}='';
 		return $self; 
	}
}#--------------


#----------------------
package pga_forms ; 
  { 
	@ISA=("SuperObject");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		$listAttribute{'formname'}='character';
		$listAttribute{'formsource'}='text';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','pga_forms');
		$self->addProperties(%param);
		$self->{'formname'}='';
 		$self->{'formsource'}='';
 		return $self; 
	}
}#--------------


#----------------------
package action_crm ; 
  { 
	@ISA=("object");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&object::listAttribute()};
		$listAttribute{'intervenant'}='oid,';
		$listAttribute{'contact'}='oid,';
		$listAttribute{'typeaction'}='oid,';
		$listAttribute{'date'}='timestamp,';
		$listAttribute{'reaction'}='int4,';
		$listAttribute{'commentaire'}='text,';
		$listAttribute{'todo_act'}='int4';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','action_crm');
		$self->addProperties(%param);
		$self->{'intervenant'}='';
 		$self->{'contact'}='';
 		$self->{'typeaction'}='';
 		$self->{'date'}='';
 		$self->{'reaction'}='';
 		$self->{'commentaire'}='';
 		$self->{'todo_act'}='';
 		return $self; 
	}
}#--------------


#----------------------
package client ; 
  { 
	@ISA=("societe");
    sub listAttribute {
		my $self=shift;
		my %listAttribute;
		%listAttribute= %{&societe::listAttribute()};
		$listAttribute{'prixjh'}='float8';
		return \%listAttribute;

}

	sub new {
		my $type = shift;
		my %param = @_;
		my $self = new Object;
		bless $self,$type ; 

		$self->addPropertie('name','client');
		$self->addProperties(%param);
		$self->{'prixjh'}='';
 		return $self; 
	}
}#--------------


1;