FVERS = 2
REFOBJET : ID = 800009779 ; ID_INIT = 449980331 ; NOM = PAVITxx ; VERSION = P21 ; DATE = 13/08/12-13:16:50 ( 1344863810 ) ; CAT = 7 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 800000466
COMMENT = "generation automatique"
CREATEUR = teguire
# DEBUT_CORPS
PCODE_PERE=
# $Id: PAVITxx.src.cpp,v 4.3 1997/04/18 13:12:26 jpierre Exp $
####################################################################
#       article synchro telephone VN3 EEC
#
#	EH 17/10/91	creation
#	FD 17/12/91	MAJ
#	30/09/2011 RHE VerifPcode
####################################################################

# VerifPcode - RHE # REGISTRE   ENTIER   taxe
# VerifPcode - RHE # REGISTRE   ARTOBJ   artbis
REGISTRE   ENTIER   erreur
# VerifPcode - RHE # REGISTRE   ENTIER   fichier
# VerifPcode - RHE # REGISTRE   POINTEUR nde

# VerifPcode - RHE # DEFINITION	       PTRIE_OK		 1
# VerifPcode - RHE # DEFINITION	       PTRIE_ORIGINAL	 2
# VerifPcode - RHE # DEFINITION	       PTRIE_RECYCLE	 3
# VerifPcode - RHE # DEFINITION	       COLLECTE		 1
# VerifPcode - RHE # DEFINITION	       bell		 {0x07, '-', '>', 0}


# si le code entete est != 13 alors on y met 13 ou 14
# on calcule la taxation
# si on doit modifier l'article alors on sauvegarde l'original

erreur=i_stocke_art(g_iartin,i_get_art_stocke_date(g_iartin,DATE_PLUS_DUREE),5,"Dt3pa")
RETOUR TRAIT_OK


# FIN_CORPS