IPAR 

ENT       = " "= IPAR.Trait' '
= "V"
IPAR.Ce1ENT.CE1      = "I"
IPAR.Dos'A'
ENT.CE4     = ENTdv.Dos
IPAR.Etb    = ENTdv.Etb
IPAR.TiCod  = 'C'
IPAR.PiCod  = 1
IPAR.PiCodf = 2
IPAR.FullPino   = ENTDv.FullPiNo

Hwrite (GTFI, IPAR)


;Exemple partiel (non fonctionnel) de lecture des mouvements de la pièce origine
do while ReaderNext_Mouvement(Rs_Mouvement, IdrMouv) = 0
  ;condition exemple : les ref ALB0001 ou chapitre/postes
  if ( left(MOUV.REF) = 'ALB0001' or MOUV.CE2 in (2,3) )
    MOUV = Rs_Mouvement.MOUV    ;reprise du MOUV à valider
    MOUV.CdQte = MOUV.DvQte     ;en commande on reprend la quantité en devis
    Hwrite (GTFI, MOUV)
  endif
wendCondition(CdeProvisoireCtmFl = OUI, '7', '1')
ENT.TIERS   = TiersFou		;fournisseur choisi
ENT.TvaTie = Fournisseur.TvaTie
ENT.DEPO    = GtCtm100T1.DEPO				;depo de la ligne client
ENT.Projet  = GtCtm100T1.Projet
ENT.PiDt		= today
ENT.DelDemDt	= today
ENT.OP      = 'F'

HWrite(GTFI, ENT)
	
MOUV        	= ' '
MOUV.CE1    	= 'C'
MOUV.CE2    	= '1'						
MOUV.GrRef  	= GrRef
MOUV.CdQte 		= QteE
MOUV.VenUn  	= AchUn
MOUV.Depo   	= Depo
MOUV.CdDt		= DelDt
MOUV.Projet     = Projet

HWrite(GTFI, MOUV)
	
Note_Chargement_ (C_APPLIC_DAV,Note,RtfMot=RtfMot)
if Note_Tag_Extraction(C_APPLIC_DAV ,Note,Tag, RtfMot=RtfMot) = true
	rtfnom 		 = Note_Rechercher_Nom_Rtf (C_APPLIC_DAV,RtfMot=RtfMot)
	init itxt    = ' '
	itxt.ce1     = 'T'
	itxt.txtnat  = 2			; Rtf
	itxt.txttyp  = TxtTyp	 		; Note ligne pièce
	itxt.txttrait= 1
	if rtfnom <> ' '
		richo.name = rtfnom
		st = fopen (richo,'P')
		if st = 0
			do
				init itxt.texte = $00
			while freadst (richo,texte) = 0
				if mid (texte,1000,1) <> $00
					itxt.texte = texte
				else
					itxt.texte = mid (texte,1,length (texte)) & $00
				endif

				hwrite (Gtfi,itxt)
			wend
			hclose (richo)
		endif
	endif
endif

;Soit ne pas donner de MVTL, soit faire une boucle pour par exemple changer les délais
	MVTL        	= ' '
	MVTL.CE1    	= 'V'
	MVTL.GrRef		= GrRef
	MVTL.RefQte		= RefQte
	MVTL.DelDemDt  = Ventilation.DelDemDt
	Convertir_RefQte_Qte(Ventilation.Qte,	Ventilation.ref, Ventilation.sref1, Ventilation.sref2, Ventilation.refQte, MOUV.VenUn, ART.RefUn)
	MVTL.DelAccDt	= Ventilation.DelAccDt
	MVTL.DelRepDt	= Ventilation.DelRepDt
	MVTL.DelDt     = Ventilation.DelDt

	HWrite(GTFI, MVTL)