//
Procedure G3_DETECTION_PORT()

PORT ,nNbreOctet,p1,p2,NBRE_tentative, NBRE_tentative_max,s est un entier
mes , ch est une chaîne
NBRE_tentative_max = 2
NBRE_tentative =1


Sablier(Vrai)
DEBUT0:
SI NBRE_tentative > NBRE_tentative_max ALORS

BOUCLE
SI G3_DEBLOCAGE3() = Vrai ALORS
SORTIR
FIN
FIN
RENVOYER Faux
FIN


SI G3_BLOCAGE1() = Faux ALORS
RENVOYER Faux
FIN
s = 0
BOUCLE
DEBUT:
s++
PORT = TAB_PORT[s]
SI s > TAB_PORT_NB ALORS
NBRE_tentative++
GOTO DEBUT0
FIN


SI sOuvre(PORT, 5000, 5000,300) ALORS
sFixeParamètre(PORT, 115200, 0, 8, 1, Vrai, Vrai, Faux)
SI ErreurDétectée ALORS
sFerme(PORT)
GOTO DEBUT
FIN
Multitâche(-1)
SINON
GOTO DEBUT
FIN




// CGSN
sEcrit(PORT, ChaîneVersUTF8("AT+CIMI"+RC ))
nNbreOctet = sDansFileEntrée(PORT)
Multitâche (100)
mes = sLit(PORT, 5000 )
p1=Position(mes,"ERROR")
p2=Position(mes,"OK")
SI p1 <> 0 OU p2 = 0 ALORS
sFerme(PORT)
GOTO DEBUT
SINON
SI VG_ENVOIE_SMS_CLE3G_MULTIPLE = Vrai ET VG_ENVOIE_SMS_NUM_EIMI <> "" ALORS
SI VG_ENVOIE_SMS_NUM_EIMI = Milieu(mes,11,15) ALORS
SORTIR
SINON
sFerme(PORT)
GOTO DEBUT
FIN
SINON
SORTIR
FIN
FIN



FIN


NUMERO_PORT_CORRECTE = PORT

RENVOYER Vrai



//=====================================




Procedure G3_DETECTION_PORT_WINDOWS()

sListeClé, LIGNELUE est une chaîne
ResExécute est un booléen
n,nb est entier

TAB_PORT_NB= 0
sListeClé = RegistreListeValeur("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM")
LIGNELUE = LIT_CLE_BASE_REGISTRE(sListeClé,1)
n= Taille(LIGNELUE)
n+=3
SI LIGNELUE <>"" ALORS
nb= Milieu(RegistreLit("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM\", LIGNELUE, ResExécute),4)
SI nb <> 0 ALORS
TAB_PORT_NB++
TAB_PORT[TAB_PORT_NB] = nb
FIN
FIN
TANTQUE LIGNELUE <> EOT ET LIGNELUE <> ""

LIGNELUE = LIT_CLE_BASE_REGISTRE(sListeClé,n)
n+= Taille(LIGNELUE)+2
//Trace(LIGNELUE)


nb= Milieu(RegistreLit("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM\", LIGNELUE, ResExécute),4)
SI nb <> 0 ALORS
TAB_PORT_NB++
TAB_PORT[TAB_PORT_NB] = nb
FIN

FIN


//===============================================

Procedure G3_ENVOIE_SMS(NUM_PORTABLE est une chaîne)

SI NUM_PORTABLE ="" ALORS
Sablier(Faux)
G3_DEBLOCAGE1()
RENVOYER Faux
FIN

NUM_PORTABLE_CORRECTE , ch1 est une chaîne
NBRE_tentative, NBRE_tentative_max est un entier
NBRE_tentative=1; NBRE_tentative_max=2
SI VG_ENVOIE_SMS_TYPE = 1 ALORS

//ouverture du port
ch est une chaîne
nNbreOctet,PORT ,p1,p2 est un entier
mes est une chaîne

PORT = NUMERO_PORT_CORRECTE



NUM_PORTABLE_CORRECTE=""
POUR j=1 A Taille(NUM_PORTABLE)
ch1= Milieu(NUM_PORTABLE,j,1)
SI ch1 <>" " ALORS
NUM_PORTABLE_CORRECTE+= ch1
FIN
FIN


SI Taille(NUM_PORTABLE_CORRECTE )>=8 ALORS
DEBUT:
SI NBRE_tentative > NBRE_tentative_max ALORS
Sablier(Faux)
G3_DEBLOCAGE1()
RENVOYER Faux
FIN


NBRE_tentative++


Multitâche(-1)

sEcrit(PORT, ChaîneVersUTF8("AT" + Caract(13)))
Temporisation(100)
nNbreOctet = sDansFileEntrée(PORT)
mes = sLit(PORT, nNbreOctet)
p1 = Position(mes,"OK")
SI p1=0 ALORS
GOTO DEBUT
FIN

//PROC_JAUGE()
sEcrit(PORT, ChaîneVersUTF8("AT+CMGF=1" + Caract(13)))
Temporisation(100)
nNbreOctet = sDansFileEntrée(PORT)
mes = sLit(PORT, 5000 )
p1 = Position(mes,"OK")
SI p1=0 ALORS
//Info("A3")
GOTO DEBUT
FIN

sEcrit(PORT, ChaîneVersUTF8("AT+COPS=0" + Caract(13)))
Temporisation(100)
nNbreOctet = sDansFileEntrée(PORT)
mes = sLit(PORT, 5000 )
p1 = Position(mes,"OK")
SI p1=0 ALORS
//Info("A3")
GOTO DEBUT
FIN


sEcrit(PORT,ChaîneVersUTF8("AT+CMGS=" + Caract(34)+ NUM_PORTABLE_CORRECTE +Caract(34) + Caract(13)) )
Temporisation(100)
nNbreOctet = sDansFileEntrée(PORT)
mes = sLit(PORT, 5000 )
n est un entier
n = Position (mes, ">", 1, DepuisDébut )
c est un caractère
c = Milieu (mes ,n)
SI c = ">" ALORS
TEXTE_MESSAGE= SUPPRIMER_ACCENT_SMS(TEXTE_MESSAGE)
ch =ChaîneVersUTF8(TEXTE_MESSAGE + Caract(26))
sEcrit(PORT, ch)
Temporisation(600)
nNbreOctet = sDansFileEntrée(PORT)
mes = sLit(PORT, 5000 )

p1 = Position(mes,"ERROR")
p2 = Position(mes,"OK")
SI (p1<>0 OU p2 = 0 ) OU( p1=0 ET p2=0) ALORS
Enregistrer_File_Attente()
SINON
ENREGISTRER_SMS_ENVOYE(TEXTE_MESSAGE,NUM_PORTABLE_CORRECTE,DateSys(),HeureSys(),"","FCAIS")
CAISSE_CLOTURE.SMS_ENVOYE_FERMETURE = 1
HModifie(CAISSE_CLOTURE)
// MESSAGE ENVOYE AVEC SUCCES
FIN
SINON
Enregistrer_File_Attente(NUM_PORTABLE)
FIN

FIN
sFerme(PORT)
Sablier(Faux)
G3_DEBLOCAGE1()
RENVOYER Faux

FIN