Scribd Logo
Upload

Welcome to Scribd!

  • 10 views

    ANNEXE

    Uploaded by

    Raphique Hassan
    This document lists 11 annexes related to import/export regulations and procedures. It includes decrees related to imports and exports, navigation permits for merchant ships, letters of commitment for repatriating currency, embarkation certificates, capture certificates, payment certificates for rebates, single administration documents, import transit orders, export transit orders, and a programming section. The programming section outlines a unit and interface for a software application using programming languages like Pascal.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    ANNEXE

    Uploaded by

    Raphique Hassan
    10 views13 pages
    This document lists 11 annexes related to import/export regulations and procedures. It includes decrees related to imports and exports, navigation permits for merchant ships, letters of commitment for repatriating currency, embarkation certificates, capture certificates, payment certificates for rebates, single administration documents, import transit orders, export transit orders, and a programming section. The programming section outlines a unit and interface for a software application using programming languages like Pascal.

    Original Title

    ANNEXE.

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document lists 11 annexes related to import/export regulations and procedures. It includes decrees related to imports and exports, navigation permits for merchant ships, letters of commitment for repatriating currency, embarkation certificates, capture certificates, payment certificates for rebates, single administration documents, import transit orders, export transit orders, and a programming section. The programming section outlines a unit and interface for a software application using programming languages like Pascal.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    10 views13 pages

    ANNEXE

    Uploaded by

    Raphique Hassan
    This document lists 11 annexes related to import/export regulations and procedures. It includes decrees related to imports and exports, navigation permits for merchant ships, letters of commitment for repatriating currency, embarkation certificates, capture certificates, payment certificates for rebates, single administration documents, import transit orders, export transit orders, and a programming section. The programming section outlines a unit and interface for a software application using programming languages like Pascal.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    You are on page 1of 13

    ANNEXES

    LISTE DES ANNEXES

    ANNEXE 1 : Décret Importation

    ANNEXE 2 : Décret Exportation

    ANNEXE 3 : Permis de navigation des Marines marchandises

    ANNEXE 4 : Lettre d’engagement de Rapatriement de devise

    ANNEXE 5 : Attestation d’Embarquement

    ANNEXE 6 : Certificat de capture

    ANNEXE 7 : Attestation de Paiement des Ristournes

    ANNEXE 8 : Document Administration Unique

    ANNEXE 9 : Ordre de transit import

    ANNEXE 10 : Ordre de transit export

    ANNEXE 11 : Programmation

    PROGRAMMATION
    unit Unit_Anicet;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, DB, DBTables, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Mask,
    Buttons, ComCtrls;

    type
    TForm1 = class(TForm)
    Label7: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBNavigator1: TDBNavigator;
    DBEdit10: TDBEdit;
    Button1: TButton;
    Database1: TDatabase;
    Table1: TTable;
    DataSource2: TDataSource;
    BitBtn1: TBitBtn;
    Table2: TTable;
    DataSource1: TDataSource;
    DataSource3: TDataSource;
    Table3: TTable;
    Table4: TTable;
    DataSource4: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBText1: TDBText;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure DBEdit3Change(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    private
    { Déclarations privées }
    public
    { Déclarations publiques }
    end;

    var
    Form1: TForm1;
    //vPU,vQte,vMontant:real;
    implementation

    {$R *.dfm}

    procedure TForm1.BitBtn1Click(Sender: TObject);


    begin
    //DataSource2.DataSet.Edit;
    DataSource2.DataSet.Insert;
    DBGrid1.Enabled :=False;
    end;

    procedure TForm1.Button1Click(Sender: TObject);


    begin
    close;
    end;

    procedure TForm1.BitBtn2Click(Sender: TObject);


    begin
    DataSource2.DataSet.Delete;
    DataSource1.DataSet.Delete ;
    end;

    procedure TForm1.DBEdit2Change(Sender: TObject);


    begin
    //vPU:=strToFloat(DBEdit2.Text);
    //vQte:=strToFloat(DBEdit3.Text);
    //vMontant:=vPU*vQte;
    //DBEdit4.Text:=floatTostr(vMontant);
    end;

    procedure TForm1.DBEdit3Change(Sender: TObject);


    begin
    //vPU:=strToFloat(DBEdit2.Text);
    //vQte:=strToFloat(DBEdit3.Text);
    //vMontant:=vPU*vQte;
    //DBEdit4.Text:=floatTostr(vMontant);
    end;

    procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);


    begin
    DBGrid1.Enabled :=True;
    end;

    end.

    procedure Tcpt.Quitter1Click(Sender: TObject);


    begin
    Close;
    end;
    procedure Tcpt.FormShow(Sender: TObject);
    begin
    yyy:=0;
    label8.Caption := datetostr(date);
    label9.Caption := copy(label8.Caption,7,4);

    Men := tmen.Create(self);
    try
    men.ShowModal;
    finally
    freeandnil(men);
    end;
    if strtoint(label9.Caption)>= 2010 then
    begin
    if adodataset5aro.Value <> ‘r’ then
    begin
    AboutBox1 := taboutbox1.Create(self);
    try
    aboutbox1.ShowModal;
    finally
    freeandnil(aboutbox1);
    end;
    if cpt.Label10.Caption= '1' then
    close;
    end;

    end;
    Password := tPassword.Create(self);
    try
    Password.ShowModal;
    finally
    freeandnil(Password);
    end;
    if cpt.Label10.Caption= '1' then
    close;
    end;

    procedure Tcpt.Apropos1Click(Sender: TObject);


    begin
    aboutbox:=taboutbox.create(self);
    try
    aboutbox.ShowModal;
    finally
    freeandnil(aboutbox);
    end;
    end;

    procedure Tcpt.Fournisseur2Click(Sender: TObject);


    begin
    decb:=tdecb.Create(self);
    try
    decb.ShowModal;
    finally
    freeandnil(decb);
    end;
    end;
    procedure Tcpt.Fournisseur1Click(Sender: TObject);
    begin
    encb:=tencb.Create(self);
    try
    encb.ShowModal;
    finally
    freeandnil(encb);
    end;
    end;

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls, Buttons, DB,
    ADODB, Menus;

    type
    TDECC = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBGrid1: TDBGrid;
    Label7: TLabel;
    Label8: TLabel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Label9: TLabel;
    ComboBox1: TComboBox;
    Panel3: TPanel;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    Button7: TButton;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADODataSet1: TADODataSet;
    ADODataSet2: TADODataSet;
    ADODataSet2N: TAutoIncField;
    ADODataSet2ref: TWideStringField;
    ADODataSet2Anal: TWideStringField;
    ADODataSet2General: TWideStringField;
    ADODataSet2montant: TFloatField;
    ADODataSet1Ref: TWideStringField;
    ADODataSet1Date: TDateTimeField;
    ADODataSet1origine: TWideStringField;
    ADODataSet1Motifs: TWideStringField;
    ADODataSet1Code: TWideStringField;
    ADODataSet1Type: TWideStringField;
    PopupMenu1: TPopupMenu;
    Nouveau1: TMenuItem;
    Modifier1: TMenuItem;
    Supprimer1: TMenuItem;
    ADODataSet3: TADODataSet;
    ADODataSet3Ref: TWideStringField;
    ADODataSet3Date: TDateTimeField;
    ADODataSet3origine: TWideStringField;
    ADODataSet3Motifs: TWideStringField;
    ADODataSet3Code: TWideStringField;
    ADODataSet3Type: TWideStringField;
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
    procedure DBEdit3KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
    procedure DBEdit4KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
    procedure DBEdit5KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1Enter(Sender: TObject);
    procedure DBEdit1Enter(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Nouveau1Click(Sender: TObject);
    procedure Modifier1Click(Sender: TObject);
    procedure Supprimer1Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure ComboBox1Exit(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    private
    { Déclarations privées }
    public
    { Déclarations publiques }
    end;

    var
    DECC: TDECC;
    x1,y1:integer;
    implementation
    uses Usearch, Udetdecc, UEDECC;
    {$R *.dfm}

    procedure TDECC.DBEdit1KeyDown(Sender: TObject; var Key: Word;


    Shift: TShiftState);
    begin
    if (key=13) or (key=40) then
    dbedit2.SetFocus;
    end;

    procedure TDECC.DBEdit2KeyDown(Sender: TObject; var Key: Word;


    Shift: TShiftState);
    begin
    if (key=13) or (key=40) then
    dbedit3.SetFocus;
    if key = 38 then
    dbedit1.SetFocus;
    end;

    procedure TDECC.DBEdit3KeyDown(Sender: TObject; var Key: Word;


    Shift: TShiftState);
    begin
    if (key=13) or (key=40) then
    dbedit4.SetFocus;
    if key = 38 then
    dbedit2.SetFocus;
    end;

    procedure TDECC.DBEdit4KeyDown(Sender: TObject; var Key: Word;


    Shift: TShiftState);
    begin
    if (key=13) or (key=40) then
    dbedit5.SetFocus;
    if key = 38 then
    dbedit3.SetFocus;
    end;

    procedure TDECC.DBEdit5KeyDown(Sender: TObject; var Key: Word;


    Shift: TShiftState);
    begin
    if (key=13) or (key=40) then
    combobox1.SetFocus;
    if key = 38 then
    dbedit4.SetFocus;
    end;

    procedure TDECC.ComboBox1KeyDown(Sender: TObject; var Key: Word;


    Shift: TShiftState);
    begin
    if (key=13) or (key=40) then
    Dbgrid1.SetFocus;
    if key = 38 then
    dbedit5.SetFocus;
    end;

    procedure TDECC.Button3Click(Sender: TObject);


    begin
    x1:=0;
    y1:=0;
    panel1.enabled := true;
    panel2.Visible := true;
    panel3.Visible := false;
    adodataset1.Append;
    adodataset3.Close;
    adodataset3.Open;
    if adodataset3.RecordCount = 0 then
    dbedit1.Text := '1'
    else
    begin
    adodataset3.Last;
    dbedit1.Text := inttostr(strtoint(adodataset3ref.Value)+1);
    end;
    dbedit2.SetFocus;
    end;

    procedure TDECC.Button4Click(Sender: TObject);


    begin
    x1:=0;
    y1:=1;
    panel1.enabled := true;
    panel2.Visible := true;
    panel3.Visible := false;
    adodataset1.Edit;
    dbedit1.Enabled := false;
    dbedit2.SetFocus;
    end;

    procedure TDECC.Button1Click(Sender: TObject);


    begin
    if x1=1 then
    begin
    dbedit1.Enabled :=true;
    panel2.Visible := false;
    panel1.enabled := false;
    panel3.Visible := true;
    end
    else
    begin
    adodataset1.Post;
    dbedit1.Enabled :=true;
    panel2.Visible := false;
    panel1.enabled := false;
    panel3.Visible := true;
    end;
    end;

    procedure TDECC.Button2Click(Sender: TObject);


    begin
    if (x1=1) and (y1=0) then
    begin
    adodataset2.Close;
    adodataset2.Open;
    adodataset2.First;
    while not adodataset2.Eof do
    begin
    adodataset2.Delete;
    adodataset2.Next;
    end;
    adodataset1.delete
    end
    else
    adodataset1.Cancel;
    dbedit1.Enabled :=true;
    panel2.Visible := false;
    panel1.enabled := false;
    panel3.Visible := true;
    end;

    procedure TDECC.DBGrid1Enter(Sender: TObject);


    begin
    x1:=1;
    adodataset1.Post;
    adodataset2.Close;
    adodataset2.Open;
    end;

    procedure TDECC.DBEdit1Enter(Sender: TObject);


    begin
    if adodataset1.State in [Dsinsert, DSedit] then
    x1:=0
    else
    begin
    adodataset1.Edit;
    x1:=0;
    end;
    end;

    SPEECH DE MEMOIRE

    Merci Monsieur (Madame) le président de jury, merci de m’avoir cédé la parole

    Monsieur(Madame) le président du jury, Monsieur (Madame) l’examinateur


    honorable assistance ;
    D’abord, permettez-nous de remercier le Grand Dieu tout puissant qui nous a accordé le
    moment important et en nous donnant aussi la force et la santé pour réaliser ce mémoire ;

    Nous remercions aussi également monsieur PIRNIA Ismaël qui nous a soutenus
    financièrement pendant toutes les deux années de nos études au CERF-ARMI, monsieur
    ISSOUF ALI qui nous a soutenus moralement, monsieur AMANA Nahoda Ibrahim le
    Directeur de l’Institut CERF-ARMI , tous les enseignants ainsi qui le personnel administratif
    et particulièrement a madame RAHARINIRINA Joséphine et monsieur RABETAFIKA Ny
    Andry qui nous a encadrés pour la réalisation de ce présent mémoire.

    Et à nos parents et à notre famille entière, nous vous sommes reconnaissant(e) de vos
    soutiens moralement, vous avez été toujours à nos côtés. Merci beaucoup.
    Aujourd’ hui, nous vous présentons

    You might also like

    pFad - Phonifier reborn

    Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

    Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


    Alternative Proxies:

    Alternative Proxy

    pFad Proxy

    pFad v3 Proxy

    pFad v4 Proxy