PreviousNext
Help > Développement > Exemples > Utilisation de DataArea
Utilisation de DataArea

 Cet exemple utilise un programme CL de la bibliothèque Easycom pour lire dans un Data Area de la bibliothèque Easycom et la fonction ASExec pour y écrire.

Il est également possible de lire une DTAARA avec les fonctions ASAppelRTV et ASRésultatRTV.

 

 

Ecriture par ASExec

 

sMsg est une chaîne

sMsg="Ce message a été décrit dans la Data Area depuis votre programme WinDev !"

ASExec("CHGDTAARA DTAARA(EASYCOM/DTAARA (1 200)) VALUE('"+sMsg+"') ")

 

 

Lecture par le programme RTVDTAARA

 

SI INT_LDA[1] ALORS

 RTVDTAARA.Dtaara="*LDA"

SINON

 RTVDTAARA.Lib=SAI_LIB

 RTVDTAARA.Dtaara=SAI_DTA

 SI (SAI_LIB="" OU SAI_DTA="") ALORS

  Info("Bibliothèque et/ou nom de la data area vides...")

  RETOUR

 FIN

FIN

 

SI SAI_TAILLE=0 ALORS

 RTVDTAARA.Size=200

SINON

 RTVDTAARA.Size=SAI_TAILLE

FIN

 

ASLanceRPC(RTVDTAARA)

SAI_VAL=RTVDTAARA.Value

FichierVersEcran()

 

Lecture par un ASRésultatRTV

 

// Lecture du résultat

scmd= " RTVDTAARA DTAARA(EASYCOM/DTAARA) RTNVAR(&VAR1)"

 

bresult = ASAppelRtv(scmd)

Resultat = ASResultatRtv("RC")

 

SI Resultat = "0" ALORS

 var1=ASResultatRtv("VAR1")

FIN