function DZM_InsOption( arr, listobj, windice )
  {
    for (i = 1; i <= ( arr.length -1 ); i++)
        {
           var wa = arr[i][1];
           var wb = arr[i][2];
            
           listobj.options[i] = new Option( wa, wb);
           
           if ( wb == windice ) { listobj.options[i].selected = true ; };
          
        };
  };
  

function DZM_SelectIndex( listobj, windice )
  {
    for (i = 1; i <= ( listobj.length -1 ); i++)
        {
           if ( listobj.options[i].value == windice ) { listobj.options[i].selected = true ; };
        };
  };

function DZMDataAtual( ObjForm )
  {
         var wobjdata  = new Date();
         var wmesatual = '';
         var wdiaatual = '';
   
         if ( wobjdata.getDate() <= 9 )
            { 
               wdiaatual = '0'+wobjdata.getDate() ;
            }
         else
            { 
               wdiaatual = wobjdata.getDate() ;
            };

   
         if ( ( wobjdata.getMonth() +1 ) <= 9 )
            { 
               wmesatual = '0'+( wobjdata.getMonth() +1 );
            }
         else
            { 
               wmesatual = ( wobjdata.getMonth() +1 );
            };
     
         ObjForm.value = wdiaatual+'/'+ wmesatual +'/'+wobjdata.getYear();
  };
   
function visivel()  
  {         
     document.getElementById('periodo1').style.visibility = "visible";
     document.getElementById('periodo2').style.visibility = "visible";
  };

function naovisivel()  
  {         
     document.getElementById('periodo1').style.visibility = "hidden";
     document.getElementById('periodo2').style.visibility = "hidden";
  };

function DZM_CarregarDados( VarLink )
  {

   for(wponteirodado = 1; wponteirodado <= ( wdados.length -1 ); wponteirodado++)
   {
      var newrow      = document.all.TabelaDados.insertRow();

      for(wponteirocoluna = 1; wponteirocoluna <= ( wdados[wponteirodado].length -1 ) ; wponteirocoluna++)
      {
         var newcel        = newrow.insertCell();
         
         if ( wponteirocoluna == 5 ) 
            {
              newcel.innerHTML  = "<a href='"+VarLink+wdados[wponteirodado][wponteirocoluna]+"' target='_self' class='azulescuro'><img border='0' "+wsrc+"></a>";
            }
          else
            {  
              newcel.innerHTML  = "<P class='dadocelulaconsulta'>"+wdados[wponteirodado][wponteirocoluna]+"</p>";
            };
         
      };
   };
  };

function DZM_CarregarMatriz( VarLink, VarColLink )
  {

   for(wponteirodado = 1; wponteirodado <= ( wdados.length -1 ); wponteirodado++)
   {
      var newrow      = document.all.TabelaDados.insertRow();

      for(wponteirocoluna = 1; wponteirocoluna <= ( wdados[wponteirodado].length -1 ) ; wponteirocoluna++)
      {
         var newcel        = newrow.insertCell();
         
         if ( wponteirocoluna == VarColLink ) 
            {
              newcel.innerHTML  = "<a href='"+VarLink+wdados[wponteirodado][wponteirocoluna]+"' target='_self' class='azulescuro'><img border='0' "+wsrc+"></a>";
            }
          else
            {  
              newcel.innerHTML  = "<P class='dadocelulaconsulta'>"+wdados[wponteirodado][wponteirocoluna]+"</p>";
            };
         
      };
   };
  };


function DZM_CarregarMatrizSemLink()
  {

   for(wponteirodado = 1; wponteirodado <= ( wdados.length -1 ); wponteirodado++)
   {
      var newrow      = document.all.TabelaDados.insertRow();

      for(wponteirocoluna = 1; wponteirocoluna <= ( wdados[wponteirodado].length -1 ) ; wponteirocoluna++)
      {
         var newcel        = newrow.insertCell();
         newcel.innerHTML  = "<P class='dadocelulaconsulta'>"+wdados[wponteirodado][wponteirocoluna]+"</p>";
      };
   };
  };


function DZM_CarregarMatrizSemLinkcca(varcorpp1, varcorsp1, varcorpp2, varcorsp2)
  {

   var wcontrolecor = 0 ;

   for(wponteirodado = 1; wponteirodado <= ( wdados.length -1 ); wponteirodado++)
   {
      var newrow      = document.all.TabelaDados.insertRow();
      
      if (wcontrolecor == 0)
         {
           newrow.style.color        = varcorpp1;
           newrow.style.background   = varcorsp1;
         };

      if (wcontrolecor == 1)
         {
           newrow.color              = varcorpp2;
           newrow.style.background   = varcorsp2;
         };
         
      if (wcontrolecor == 0)
         { wcontrolecor = 1 }
      else
         { wcontrolecor = 0 };

      for(wponteirocoluna = 1; wponteirocoluna <= ( wdados[wponteirodado].length -1 ) ; wponteirocoluna++)
      {
         var newcel        = newrow.insertCell();
         newcel.innerHTML  = wdados[wponteirodado][wponteirocoluna];
           
      };
   };
  };

function dzmlistamatriz( varmatriz )
  {
     for(wponteirodado = 0; wponteirodado <= ( varmatriz.length -1 ); wponteirodado++)
        {
          document.write(varmatriz[wponteirodado]+"<br>");
        };
  };

function DZM_Visivel( VarElemento )
  {         
     document.getElementById(VarElemento).style.visibility = "visible";
  };

function DZM_NaoVisivel( VarElemento )  
  {         
     document.getElementById(VarElemento).style.visibility = "hidden";
  };

function DZMInsereAno()
  {
         var wobjdata  = new Date();
     
         document.write(wobjdata.getYear());
  };

function DZMAbreJanela( varurl, vartitulo, varaltura, varlargura, varparam )
  {
     var wparams = "'HEIGHT="+varaltura+",WIDTH="+varlargura+varparam+"'";

     var wnovajanela = window.open(varurl,vartitulo,wparams);

  };

function DZM_AlteraHyperLink( OBJTag, OBJLink, Param )
  {

    OBJLink.href = Param+OBJTag.value;

  };