echo "<BR><BR>"; echo "TABLE SEGMENT UNx:<BR>"; print_r($E->TABLE_SEGMENT["UNB"]); echo "<BR>"; print_r($E->TABLE_SEGMENT["UNH"]); echo "<BR>"; print_r($E->TABLE_SEGMENT["UNT"]); echo "<BR>"; print_r($E->TABLE_SEGMENT["UNZ"]); echo "<BR>"; echo "<BR>"; // echo "TABLE MESSAGE INFO<BR>"; // print_r($E->TABLE_MESSAGE); // print_r($E->TABLE_INDEXATION); // $E->DisplayIndexationMessage(); while ($E->ReadDirectMessage()) { echo "Segment Number:" . $E->GetCurrentNumberSegment() . " => " . $E->GetCurrentSegmentName() . " => " . $E->GetCurrentSegmentOccurence() . " GROUP:" . $E->GetCurrentGroupName() . " => " . $E->GetCurrentGroupOccurence() . "<BR>"; // Recherche NAD+IV dans le groupe "2" if (strcmp($E->GetCurrentGroupName(), "2") === 0) { if (strcmp($E->GetCurrentSegmentName(), "NAD") === 0) { if (strcmp($E->GetCurrentDataSegment("10.3035"), "IV") === 0) { $NAD_IV = $E->GetCurrentDataSegment("20.C082.10.3039"); echo "IDENTIFIANT FACTURE A (NAD+IV):" . $NAD_IV . "<BR>"; $E->PutBUFFER("FACTURE", 1, 1, "INVOICE"); $E->PutBUFFER("FACTURE", 1, 10, $NAD_IV); $E->PutBUFFER("FACTURE", 2, 12, str_pad($NAD_IV, 35, "#")); $E->PutBUFFER("FACTURE", 2, 1, "INV_LINE"); $E->PutBUFFER("FACTURE", 2, 100, "POS100"); } else { echo "ERREUR...NAD NON TRAITE ICI:" . $E->GetCurrentDataSegment("10.3035") . "<BR>"; $E->ValidCurrentSegment();