";
print "
";
print "| Código | ";
print "Denominación | ";
print "Abreviatura | ";
print "País | ";
print "
";
if ($ls_operacion=="BUSCAR")
{
$ls_codigo="%".$_POST["txtcodigo"]."%";
$ls_sql= " SELECT sigesp_moneda.*, sigesp_pais.despai as despai".
" FROM sigesp_moneda, sigesp_pais ".
" WHERE sigesp_moneda.codmon like '".$ls_codigo."' ".
" AND sigesp_moneda.codmon <> '---'".
" AND sigesp_pais.codpai=sigesp_moneda.codpai".
" ORDER BY sigesp_moneda.codmon";
$rs_moneda=$io_sql->select($ls_sql);
$data=$rs_moneda;
if ($row=$io_sql->fetch_row($rs_moneda))
{
$data=$io_sql->obtener_datos($rs_moneda);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$io_dsmoneda->data=$data;
$totrow=$io_dsmoneda->getRowCount("codmon");
for ($z=1;$z<=$totrow;$z++)
{
print "
";
$ls_codigo=$data["codmon"][$z];
$ls_desmon=$data["denmon"][$z];
$ls_abremon=$data["abrmon"][$z];
$ls_estmon= $data["estmonpri"][$z];
$ls_codpais=$data["codpai"][$z];
$ls_denpais=$data["despai"][$z];
print "| ".$ls_codigo." | ";
print "".$ls_desmon." | ";
print "".$ls_abremon." | ";
print "".$ls_denpais." | ";
print "
";
}
print "";
//$io_sql->free_result($data);
}
else
{ ?>