//Aqui obtengo los datos que necesito guardar en mi archivo de texto
$query_rs_scoplaen = "SELECT so.idccodso AS idccodso, so.scrccopl, so.scrcndni, (so.scrcapep || ' ' || so.scrcapem || ', ' || so.scrcnomb) as nombres, (so.scrcapep || ' ' || so.scrcapem || ' ' || so.scrcnomb) AS socio,
                                            (SELECT scrnacti FROM scrtipso WHERE idectiso=so.scrctiso) AS scrnacti, 
                                            pl.sccoapor, pl.sccopram, pl.sccoprin, pl.sccocred, (pl.sccomocr+pl.sccoprmo) AS sccomora, 
                                            pl.sccofose, pl.sccoacti, pl.sccomult, pl.sccomant, to_char(pl.sccdfech,'MM') AS mes, to_char(pl.sccdfech,'YY') AS ano_corto, to_char(pl.sccdfech,'YYYY') AS ano_largo,
                                            (pl.sccoapor + pl.sccopram + pl.sccoprin + pl.sccocred + pl.sccomocr + pl.sccoprmo + pl.sccofose +
                                            pl.sccoacti + pl.sccomult + pl.sccomant) AS sccotota
                                            FROM 
                                            scrsocio so INNER JOIN scoplaen_corregido pl ON pl.idccodso=so.idccodso 
                                            INNER JOIN saudepen de ON pl.idccodpro=de.sauccode
                                            WHERE so.scrccoso NOT IN ('00034') AND de.idcuniej = '".$idcuniej."'
                                            AND date_part('MONTH',pl.sccdfech) = ".$mes." AND date_part('YEAR',pl.sccdfech) = '".$anno."'
                                            ORDER BY so.scrcapep, so.scrcapem, so.scrcnomb";
  $rs_scoplaen = $cn->SelectLimit($query_rs_scoplaen);
  while (!$rs_scoplaen->EOF){
                              $monto_total[]=$rs_scoplaen->Fields("sccotota");
                              $scrccopl[]=$rs_scoplaen->Fields("scrccopl");
                              $scrcndni[]=$rs_scoplaen->Fields("scrcndni");
                              $scrnacti[]=$rs_scoplaen->Fields("scrnacti");
                              $socio[]=$rs_scoplaen->Fields("socio");
                              $mes = $rs_scoplaen->Fields("mes");
                              $ano_corto = $rs_scoplaen->Fields("ano_corto");
                              $ano_largo = $rs_scoplaen->Fields("ano_largo");
  $rs_scoplaen->MoveNext();
  }
  $rs_scoplaen->MoveFirst();//Ubicamos el Cursor en el Primer Registro
 
 
//Este es el Bloque para cargar los datos al archivo de texto, y claro esto se ejecuta con un boton que llama mediante una funcion javascript al submit() de mi formulario.
 
if ($consultar == "grabar"){
//Obtenemos el Codigo de Ministerio
$sql_minis = "SELECT idcminis FROM sauuniej WHERE idcuniej = '".$idcuniej."'";
$rs_minis = $cn->SelectLimit($sql_minis);
$idcminis = $rs_minis->Fields("idcminis");
  //Proceso de Generar el Archivo de Texto
      $sql = "SELECT * FROM scoarche WHERE idcminis = '".$idcminis."' ORDER BY sconnoca ASC ";
      $rs_scoarche = $cn->SelectLimit($sql) or die($cn->ErrorMsg());
 
        $scotipa = $rs_scoarche->Fields("scotipa");
        if($scotipa == "TXT") {
          header("Content-disposition: attachment; filename=\"2109".$mes.$ano_corto.".txt\"");
        } else {
          header("Content-disposition: attachment; filename=\"2109".$mes.$ano_corto.".dbf\"");
 
          $i = 0;
          $rs_scoarche->MoveFirst();
          while(!$rs_scoarche->EOF) {
            $tabla_def[$i][0] =  $rs_scoarche->Fields("scocnom");
            $tabla_def[$i][1] = "C";
            $tabla_def[$i][2] = $rs_scoarche->Fields("scontama");
          
            $i++;
            $rs_scoarche->MoveNext();
          }
        
          $dbf_arch = get_nombre_arch_dbf();
          $dbf_db_ok = false;
          if(dbase_create("temp/".$dbf_arch, $tabla_def)) {
            $dbf_db = dbase_open("temp/".$dbf_arch, 2);
            if($dbf_db !== false) { 
              $dbf_db_ok = true;
            }
          }
        }
        header("Content-type: application/octetstream");
        header("Pragma: no-cache");
        header("Expires: 0");
      
      for($i = 0; $i <= ($item - 1); $i++) { 
 
          if($monto_total[$i] > 0) {  
            $j = 1;
            $rs_scoarche->MoveFirst();
            while(!$rs_scoarche->EOF) {
              $scocvalo = $rs_scoarche->Fields("scocvalo");
            
              if(substr($scocvalo, 0, 1) != "'") {
                switch($scocvalo)  {
                  case "NP":
                    $valores[$j] = $scrccopl[$i];
                  break;
                  case "NCS":
                    $valores[$j] = $socio[$i];                
                  break;
                  case "DNI":
                    $valores[$j] = $scrcndni[$i];                
                  break;
                  case "TS":
                    if($scrnacti[$i] == "A") {
                      $valores[$j] = "1";                  
                    } else {
                      $valores[$j] = "5";                                    
                    }
                  break;
                  case "MD":
                    formatear_monto($monto_total[$i]);
                    $valores[$j] = $monto_total[$i];                
                  break;
                  case "AL":
                    $valores[$j] = $ano_largo;
                  break;
                  case "AC":
                    $valores[$j] = $ano_corto;
                  break;
                  case "MC":
                    $valores[$j] = $mes;
                  break;
                }            
              } else {
                $valores[$j] = $scocvalo;
              }
            
              $j++;
              $rs_scoarche->MoveNext();
            }
            if($scotipa == "TXT") {
              $linea = get_linea_arch_txt_env($idcminis, $valores, &$rs_scoarche);
              echo $linea;
            } else { 
              $fila = get_fila_arch_dbf_env($idcminis, $valores, &$rs_scoarche);
              if($dbf_db_ok) {
                dbase_add_record($dbf_db, $fila);
              }  
            }
          }
        }
        if($dbf_db_ok) {
          dbase_close($dbf_db);
          $arch = fopen("temp/".$dbf_arch, "r");
          $arch_cont = fread($arch, filesize("temp/".$dbf_arch));
          fclose($arch);
          echo $arch_cont;
          //chmod("temp/".$dbf_arch, 0777); 
          //unlink("temp/".$dbf_arch);
      }
      die();
}