CODE DE LA TOUCHE ENREGISTRER SUR INTERBASE 6.0

set term^;
Create procedure EnregContrat(Pcodecontrat varchar(9),
        Pcodeclient varchar(9),
        PNom varchar(20),
        PCNI varchar(25),
        PCS Varchar (25),
        Pcodemagasin varchar(9),
        PDesignation varchar(30),
        PTypecontrat varchar(30),
        PModereglement Varchar(35),
        PDatecontrat Date,
        PMontant Double precision)

returns (Resultat Varchar(80))
As
Begin
Insert into TCONTRAT( Codecontrat,Codeclient,Nom,CNI,CS,Codemagasin,
                       Designation,Typecontrat,Modereglement,Datecontrat,Montant)
Values (:PCodecontrat,
        :Pcodeclient,
        : PNom,
        :PCNI,
        :PCS,
        :Pcodemagasin,
        :PDesignation,
        :PTypecontrat,
        :PModereglement,
        :PDatecontrat,
        :PMontant);
Resultat = 'Enregistrement éffectué avec succès';
Exit;
When SQLCODE - 803 do
Begin
  Resultat = 'Ce code contrat existe-veuillez donner un autre code';
  Exit;
  
 End
End^
Set Term ; ^