FVERS = 2 REFOBJET : ID = 860026334 ; ID_INIT = 860025895 ; NOM = Tctrxdea ; VERSION = V114 ; DATE = 01/07/14-08:22:29 ( 1404202949 ) ; CAT = 8 ; ETAT = 0 ; NB_FILS =1 ; ID_FILS = 860026233 ID_EST = 860000110 COMMENT = "G2R2Cv modif pt_NORM car trop court" CREATEUR = teguire # DEBUT_CORPS PCODE_PERE=Pdistribution ############################################################################ # # Fichier : Tctrxdea.src # # Version : %version: 7.4 % # # Date : %date_modified: 03/04/02 11:29 % # # Distribution : # Article DEA Efficace et inefficace Centrex # # En entree : # Article : Tctrxdea.art # # En sortie : # Symphonie # # HISTORIQUE : # 17/06/2002 - PSA - FO1510 : Encapsulation pour le stockage en errone # 21/06/2002 - PSA : FO1515 : Dump des articles pour MSGA + suppression de la redistribution # 14/10/2002 - RBE : Ajout de l'envoie a APACHE # 21/11/2002 - RBE : FO115 + Modif. alarme tables externes # 07/04/2003 - RBE : FO245 : recup. de MINE et APPLI si VN8(ART=4) # 02/09/2003 - RBE - FO392 : Initialisation des variables Pcode # 01/06/2004 - MCH - G2R0Cl : Efficace si duree <> 0 # 09/06/2004 - NSA - G2R0Cl: integration des codes d erreurs # 26/07/2005 - FAL - G2R1Cj INEF speciaux APACHE # 25/10/2005 - PSA - G2R2Co : FO 1538 # 25/11/2005 - PKH - G2R2Ca : Evolution Apache envoie des N0 URGENCE inefficace # 05/01/2006 - DRE - FO1666 G2R2Ca Remplacement de i_retrait_tlv() par i_supprChamp() # 25/10/2006 - JLG - G2R2Cv modif pt_NORM car trop court # 27:09:2011 - THE - VerifPcode # 28/05/2013 - THE - G4R3 suppression envoi vers APACHE # ############################################################################ ############################################################################ # Declarations ############################################################################ REGISTRE ENTIER res REGISTRE ENTIER erreur REGISTRE ENTIER instSYMP REGISTRE ENTIER EFFICACE REGISTRE ENTIER code_errone # VerifPcode #REGISTRE ENTIER INF #G4R3 REGISTRE ENTIER instAPACHE REGISTRE ENTIER MINE REGISTRE ENTIER ART REGISTRE ENTIER APPLI REGISTRE ENTIER DC_CAA REGISTRE ENTIER INEF_SPECIAUX REGISTRE ENTIER val_INEF # VerifPcode #REGISTRE POINTEUR pt_BUF #G4R3 REGISTRE POINTEUR pt_URGENCE_APACHE REGISTRE POINTEUR pt_NORM REGISTRE POINTEUR pt_TCOMMUT REGISTRE POINTEUR pt_INEF_STD #G4R3 REGISTRE POINTEUR pt_CODE_APACHE #G4R3 REGISTRE POINTEUR pt_INEF_APACHE REGISTRE POINTEUR pt_INEF_COMMUT REGISTRE POINTEUR pt_TEMP REGISTRE POINTEUR pt_SGTQS REGISTRE ENTIER dpivot REGISTRE ENTIER dduree REGISTRE ENTIER tax #trace("distribution - Tctrxdea") # allocation memoire pt_TCOMMUT = "20202020202020202020202020202012345" pt_INEF_STD = "60606060606060606060606060606012345" #G4R3 pt_CODE_APACHE = "70707070707070707070707070707012345" #G4R3 pt_INEF_APACHE = "80808080808080808080808080808012345" pt_INEF_COMMUT = "90909090909090909090909090909012345" #pt_BUF = "10101010101010101010101010101012345" pt_TEMP = "30303030303030303030303030303012345" pt_SGTQS = "40404040404040404040404040404040404" #G4R3 pt_URGENCE_APACHE = "0569587521589478585865" #modif pt_NORM car trop court pt_NORM = "389389389389389389389389389389389389389389389389389389" #initialisations instSYMP=0 #G4R3 instAPACHE=0 ART=0xFFFFFFFF MINE=0xFFFFFFFF APPLI=0xFFFFFFFF DC_CAA=0 INEF_SPECIAUX = 0 val_INEF = 0 # VerifPcode i_strcpy(pt_SGTQS,"") #G4R3 i_strcpy(pt_URGENCE_APACHE,"") i_strcpy(pt_NORM,"") i_strcpy(pt_TCOMMUT,"") i_strcpy(pt_INEF_STD,"") #G4R3 i_strcpy(pt_CODE_APACHE,"") #G4R3 i_strcpy(pt_INEF_APACHE,"") i_strcpy(pt_INEF_COMMUT,"") i_strcpy(pt_TEMP,"") #Constantes pour message d alarme DEFINITION C_Article "Tctrxdea" DEFINITION C_InstSYMP "SYMP" #G4R3 DEFINITION C_InstAPACHE_DC "APACHE_DC" #G4R3 DEFINITION C_TapacheDEA "TapacheDEA" dpivot = i_get_art_field( g_iartin, $Tctrxdea::dpivot) dduree = i_get_art_field( g_iartin, $Tctrxdea::dduree) tax = i_get_art_field( g_iartin, $Tctrxdea::tax) ############################################################################ # Variables Fonctionnelles Globales ############################################################################ # # article efficace si champ INEF = 0, 1, 200, 235, 236 , 237 ou duree <> 0 # MAIS tous les articles sont envoye a Symphonie et uniquement a Symphonie # => calcul de EFFICACE inutile Sauf Pour APACHE # res = i_get_art_field( g_iartin, $INEF ) trace1(" INEF=<%d>", res ) SI (dduree != 0) ALORS EFFICACE=1 SINON EFFICACE=0 FINSI trace1("EFFICACE=<%d>",EFFICACE) #SGTQS=i_LireEECSGTQS( g_ieec ) # VerifPcode i_strcpy(pt_SGTQS, i_LireEECSGTQS(g_ieec) ) #trace2("pt_SGTQS=<%s>",pt_SGTQS,"") erreur = i_get_art_str( g_iartin, $Tctrxdea::INEF, pt_INEF_COMMUT ) #INEFF et la com est assurree par un CAA SI (!EFFICACE) ALORS #recuperation des champs APPLI MINE et ART de l'entete de bloc ART = i_bloc_V1V2_recupererIdent(ART_BLOC_V1V2) SI (ART == 4) ALORS MINE = i_bloc_V1V2_recupererIdent(MINE_BLOC_V1V2) APPLI = i_bloc_V1V2_recupererIdent(APPLI_BLOC_V1V2) FINSI #IFDEF trace_niv1 = 1 trace1("champ ART : %x",ART) trace1("champ MINE : %x",MINE) trace1("champ APPLI : %x",APPLI) #ENDIF pt_TCOMMUT = type_commut("APA1", pt_SGTQS, dpivot) SI (pt_TCOMMUT == g_inull) ALORS erreur = i_format_str2(pt_TEMP," %s", pt_SGTQS,0) erreur = i_PlvMessEmettre(8505,2,g_iartin,"",3,"Tctrxdea/type_commut",pt_TEMP,g_ieec) SINON pt_INEF_STD = inef_std("APA2", pt_TCOMMUT, pt_INEF_COMMUT, dpivot) SI ( pt_INEF_STD == g_inull) ALORS #trace("Code inef absent dans la table") erreur = i_format_str2(pt_TEMP," %s",pt_INEF_COMMUT,0) erreur = i_PlvMessEmettre(8505,2,g_iartin,"",3,"Tctrxdea/inef_std",pt_TEMP,g_ieec) SINON DC_CAA=1 FINSI FINSI #trace2(" Type de commutateur <%s>", pt_TCOMMUT, "") #trace2(" Code inefficace standard <%s>", pt_INEF_STD, "") FINSI ############################################################## # Article Inef speciaux : variable INEF_SPECIAUX # - code INEF > 100 (decimal) # - DEDE_INF vaut 0 ############################################################## #trace1("G2R1Cj INEF_SPECIAUX : %d", INEF_SPECIAUX) erreur = i_get_art_str(g_iartin,$Tctrxdea::NDE, pt_NORM) val_INEF=i_get_art_field(g_iartin, $Tctrxdea::INEF) #G4R3 SI (EFFICACE == 0 && val_INEF >=100) #G4R3 ALORS #G4R3 pt_URGENCE_APACHE = inef_apache ("URGE",pt_NORM,dpivot) #G4R3 SI (pt_URGENCE_APACHE != g_inull) #G4R3 ALORS #G4R3 INEF_SPECIAUX =1 #G4R3 FINSI #G4R3 FINSI ############################################################################ # Envoi requetes Table de Distribution ############################################################################ ############################################################################ # Controles ############################################################################ ############################################################################ # Recherche Instances des ECC ############################################################################ instSYMP = i_LireInstanceECC(C_InstSYMP) SI (!instSYMP) ALORS code_errone = 0xA0B0 code_errone = code_errone + EFFICACE erreur = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone,C_InstSYMP,C_Article) SAUT DISTRI_ERR SINON # Ajout de l'ECC SYMPHONIE a la liste courante des ECC: res = i_AjouterCouranteECC(instSYMP) FINSI #trace1("instSYMP=<%d>",instSYMP) # #G4R3 APACHE_DC #G4R3 instAPACHE = i_LireInstanceECC(C_InstAPACHE_DC) #G4R3 SI (!instAPACHE) #G4R3 ALORS #G4R3 #trace("Pas d'instance pour APACHE_DC !") #G4R3 code_errone = 0xA0B0 #G4R3 code_errone = code_errone + EFFICACE #G4R3 erreur = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone,C_InstAPACHE_DC,C_Article) #G4R3 SAUT DISTRI_ERR #G4R3 FINSI #trace1("instAPACHE=<%d>",instAPACHE) ################################################################################# # #G4R3 Tests des criteres envoi a APACHE_DC ################################################################################# #G4R3 SI (!EFFICACE && DC_CAA ) #G4R3 ALORS #G4R3 pt_CODE_APACHE = code_apache("APA3", pt_SGTQS, dpivot) #G4R3 pt_INEF_APACHE = inef_apache("APA4", pt_INEF_STD, dpivot) #G4R3 #G4R3 #trace2(" code apache <%s>", pt_CODE_APACHE, "") #G4R3 #trace2(" Inef. apache <%s>", pt_INEF_APACHE, "") #G4R3 #G4R3 SI ( (pt_CODE_APACHE != g_inull) && (pt_INEF_APACHE != g_inull) || INEF_SPECIAUX == 1) #G4R3 ALORS #G4R3 erreur=i_AjouterCouranteECC(instAPACHE) #G4R3 FINSI #G4R3 FINSI ############################################################################ # Duplication Symphonie ############################################################################ trace( "Stockage vers SYMPHONIE") SI ( i_valid_field_n(g_iartin,$Tctrxdea::T3ce) ) ALORS #trace("Avant i_retrait_tlv T3ce") erreur = i_supprChamp(g_iartin,"T3ce") FINSI SI ( i_dup_art_id(g_iartin,g_iartout) ) ALORS trace1("ERREUR de duplication vers SYMPHONIE, erreur=<%d>",erreur) code_errone = 0xA0D0 code_errone = code_errone + EFFICACE erreur = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone,"pour Symphonie",C_Article) SAUT DISTRI_ERR FINSI res = i_rename_art(g_iartout, "Tsymtctrxdea") ############################################################################ # Attente requetes Table de Distribution ############################################################################ ############################################################################ # Critere de distribution ############################################################################ ############################################################################ # Validation de la liste des ECCs destinatrices ############################################################################ erreur = i_ValiderListeECC( 0, 0, 0, 0) ############################################################################ # Mises au format ############################################################################ SI ( !i_ChercherCouranteECC(instSYMP) ) ALORS ### Ajout des champs CCD, SGTQS et ECC_FACT ### erreur=i_ajoutChampNum(g_iartout,$Tsymtctrxdea::T4ccd,$Tsymtctrxdea::CCD,0) erreur=i_set_art_field(g_iartout, $Tsymtctrxdea::CCD,255) erreur = i_ajoutChampNum(g_iartout,$Tsymtctrxdea::T4sgtqs,$Tsymtctrxdea::SGTQS,0) #SGTQS=i_LireEECSGTQS(g_ieec) # VerifPcode i_strcpy(pt_SGTQS, i_LireEECSGTQS(g_ieec) ) #trace2("pt_SGTQS=<%s>",pt_SGTQS,"") erreur = i_set_art_str(g_iartout, $Tsymtctrxdea::SGTQS, pt_SGTQS) erreur=i_ajoutChampNum(g_iartout,$Tsymtctrxdea::T4eccfact,$Tsymtctrxdea::ECC_FACT,0) erreur = i_set_art_str(g_iartout, $Tsymtctrxdea::ECC_FACT, " ") FINSI #------------------------------------------------------------------------- # #G4R3 APACHE_DC #----------------------------------------------------------------------- #G4R3 SI ( !i_ChercherCouranteECC(instAPACHE) ) #G4R3 ALORS #G4R3 trace("Mise au format APACHE") #G4R3 #G4R3 # Duplication de l article #G4R3 SI ( i_dup_art_dest(g_iartin,g_iartout9,"TapacheDEA") ) #G4R3 ALORS #G4R3 trace("erreur de duplication") #G4R3 code_errone = 0xA0D0 #G4R3 code_errone = code_errone + EFFICACE #G4R3 erreur = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone,C_TapacheDEA,C_Article) #G4R3 SAUT DISTRI_ERR #G4R3 FINSI #G4R3 #G4R3 res=i_get_art_field(g_iartin, $Tctrxdea::STY) #G4R3 erreur=i_set_art_field(g_iartout9, $TapacheDEA::STY, res) #G4R3 #G4R3 res=i_get_art_field(g_iartin, $Tctrxdea::SCT) #G4R3 erreur=i_set_art_field(g_iartout9, $TapacheDEA::SCT, res) #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::INF_IDUS)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_IDUS, 0x00) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::NDR)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_IDUS, 0xFF) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::INF_DEDE)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_DEDE, 0x00) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::NDE)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_DEDE, 0xFF) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::INFLOCUS)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_LOCUS, 0x00) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::NUMLOCUS)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_LOCUS, 0xFF) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::INF_IDAV)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_IDAV, 0x00) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::NUM_IDAV)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_IDAV, 0xFF) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::BETA)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::COCA, 0xFF) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::BETAV)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::COCAV, 0xFF) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::INFNOS)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_NOS, 0x00) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::NUMNOS)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_NOS, 0xFF) #G4R3 FINSI #G4R3 #G4R3 # champ DUREE #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::DUR,dduree) #G4R3 #G4R3 # champ TAXE #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::TAXE,tax) #G4R3 #G4R3 #CLEi #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE1)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::CLE1) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE1,res) #G4R3 FINSI #G4R3 #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE2)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::CLE2) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE2,res) #G4R3 FINSI #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE3)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::CLE3) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE3,res) #G4R3 FINSI #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE4)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::CLE4) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE4,res) #G4R3 FINSI #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE5)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::CLE5) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE5,res) #G4R3 FINSI #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE6)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::CLE6) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE6,res) #G4R3 FINSI #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE7)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::CLE7) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE7,res) #G4R3 FINSI #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE8)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::CLE8) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE8,res) #G4R3 FINSI #G4R3 #G4R3 # champ REP #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::REP)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::REP) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::REP,res) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::INFIPRV)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_IPRV, 0x00) #G4R3 FINSI #G4R3 #G4R3 SI ( !i_valid_field_n(g_iartin, $Tctrxdea::NUMIPRV) ) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_IPRV, 0xFF) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::INF_IDRV)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_IDRV, 0x00) #G4R3 FINSI #G4R3 #G4R3 SI ( !i_valid_field_n(g_iartin, $Tctrxdea::NUM_IDRV) ) #G4R3 ALORS #G4R3 erreur= i_memset_field_n(g_iartout9, $TapacheDEA::NUM_IDRV, 0xFF) #G4R3 FINSI #G4R3 #G4R3 #G4R3 # champ NBRV #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::NRENV)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::NRENV) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::NBRV,res) #G4R3 FINSI #G4R3 #G4R3 # champ DUSEL #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::T3sel)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$Tctrxdea::DUSEL) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::SEL,res) #G4R3 FINSI #G4R3 #G4R3 # champ DUSON #G4R3 SI (i_valid_field_n(g_iartin, $Tctrxdea::DUSON)) #G4R3 ALORS #G4R3 res=i_get_art_field(g_iartin,$DUSON) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::SON,res) #G4R3 FINSI #G4R3 #G4R3 # MAJ des champs Faisceau #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::nfsce)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::FSC_ENTRANT, 0x40) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::afcte)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::CIRCUITE, 0xFF) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::nfscs)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::FSC_SORTANT, 0x40) #G4R3 FINSI #G4R3 #G4R3 SI (!i_valid_field_n(g_iartin, $Tctrxdea::afcts)) #G4R3 ALORS #G4R3 erreur=i_memset_field_n(g_iartout9, $TapacheDEA::CIRCUITS, 0xFF) #G4R3 FINSI #G4R3 #G4R3 # champ SGTQS #G4R3 #SGTQS=i_LireEECSGTQS( g_ieec ) #G4R3 trace2("pt_SGTQS=<%s>",pt_SGTQS,"") #G4R3 erreur=i_set_art_str(g_iartout9,$TapacheDEA::CODE_CAA, pt_SGTQS) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::MINE,MINE) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::APPLI,APPLI) #G4R3 erreur=i_set_art_field(g_iartout9,$TapacheDEA::ART,ART) #G4R3 #G4R3 # MAJ champ INEF_STD de ASCII en Hexa #G4R3 erreur=i_cree_art("Conversion",g_iartout10) #G4R3 erreur= i_set_art_str(g_iartout10, $Conversion::INEF_STD, pt_INEF_STD) #G4R3 erreur=i_conv_field("INEF_STD", g_iartout10, 3, g_iartout9, 1, 0) #G4R3 FINSI #----------------------------------------------------------------------- ############################################################################ # Envoi vers IECC ############################################################################ SI ( !i_ChercherCouranteECC(instSYMP) ) ALORS res=i_stocke_art_iecc(g_iartout, instSYMP) trace("Emission vers SYMPHONIE reussie") FINSI #------------------------------------------------------------------------- # #G4R3 APACHE #------------------------------------------------------------------------- #G4R3 SI ( !i_ChercherCouranteECC(instAPACHE) ) #G4R3 ALORS #G4R3 trace( "Emission vers APACHE" ) #G4R3 res = i_stocke_art_iecc(g_iartout9, instAPACHE) #G4R3 FINSI SAUT DISTRI_FIN ############################################################################ # Stockage en Errone ############################################################################ POINT DISTRI_ERR trace( "stockage en errone de distribution") res=i_make_art_rej(g_iartin, g_iartout, code_errone) res=i_stocke_art(g_iartout,0,PT_ERRONE,0) RETOUR TRAIT_OK POINT DISTRI_FIN trace("Fin du Pcode de distribution Tctrxdea") RETOUR TRAIT_OK# FIN_CORPS