<html> <head> <title>BlackTDN :: UBTDNTBLVIEW.php</title> </head> <body> <?php $wsdl = "http://BlackTDN:8088/ws02/UBTDNTVIEW.apw?WSDL"; try { $client = new SoapClient($wsdl, array("cache_wsdl" => WSDL_CACHE_NONE)); $alias = "SX2"; $deleted = false; $recno = false; $param = array("ALIAS" => $alias, "RDELETED" => $deleted); $result = $client->GETTRMAX($param); $tRMax = $result->GETTRMAXRESULT; $fields = $client->getTFieldsName($param); $array = $fields->GETTFIELDSNAMERESULT->UFLDNAME->STRING; $fNames = array("X2_CHAVE", "X2_TABELA", "X2_NOME", "X2_UNICO"); $arrRemove = array_merge(array_diff($array, $fNames)); $fields->GETTFIELDSNAMERESULT->UFLDNAME->STRING = array_merge(array_diff($array, $arrRemove)); $fields = $fields->GETTFIELDSNAMERESULT; $where = "SubStr(X2_CHAVE,1,2)\$'SR/SP'"; $param = array("ALIAS" => $alias, "RINIT" => 1, "REND" => $tRMax, "WHERE" => $where, "FIELDSNAME" => $fields, "RDELETED" => $deleted, "RRECNO" => $recno); $result = $client->GETTBYWHEREANDFIELDSNAME($param); echo "<table border='1' align='left'>"; echo "<thead>"; echo "<tr align='left'>"; echo "<th>FLDNAME</th>"; echo "<th>FLDTYPE</th>"; echo "<th>FLDSIZE</th>"; echo "<th>FLDDEC</th>";