Ejemplo n.º 1
1
if ($devolver_rad and $motivo_devol) {
    if ($motivo_devol != 0) {
        $btt->cursor->query($isql);
        ?>
<p><p><p>
<?php 
        while ($btt->cursor->next_record()) {
            $dir_tipo = $btt->cursor->f("sgd_dir_tipo");
            $radi_nume_salida = $btt->cursor->f("radi_nume_sal");
            $radi_nume_padre = $btt->cursor->f("radi_nume_deri");
            $isql = "update anexos\n\t\tset anex_estado=3, \n\t\t\tsgd_deve_fech=sysdate,\n\t\t\tsgd_deve_codigo = {$motivo_devol}\n\t\twhere sgd_dir_tipo={$dir_tipo}\n\t\t\tand radi_nume_salida={$radi_nume_salida}";
            ora_commiton($handle);
            $cursor1 = ora_open($handle);
            ora_parse($cursor1, $isql);
            ora_exec($cursor1);
            $anexos_act = ora_numrows($cursor1);
            $isql_hl = "insert \n\tinto hist_eventos(DEPE_CODI   ,HIST_FECH,USUA_CODI  ,RADI_NUME_RADI   ,HIST_OBSE         ,USUA_CODI_DEST,USUA_DOC   ,SGD_TTR_CODIGO)\n\tvalues ({$dependencia}, sysdate ,{$codusuario},{$radi_nume_salida},'Devolucion ({$motivo}). {$comentarios_dev}',''            ,'{$usua_doc}','9')";
            ora_commiton($handle);
            $cursor1 = ora_open($handle);
            ora_parse($cursor, $isql_hl);
            ora_exec($cursor);
            if ($radi_nume_padre != $radi_nume_deri and $radi_nume_padre) {
                $isql_hl = "insert \n\t\tinto hist_eventos(DEPE_CODI   ,HIST_FECH,USUA_CODI  ,RADI_NUME_RADI   ,HIST_OBSE         ,USUA_CODI_DEST,USUA_DOC   ,SGD_TTR_CODIGO)\n\t\tvalues ({$dependencia}, sysdate ,{$codusuario},{$radi_nume_padre},'Devolucion({$radi_nume_salida}, {$motivo}). {$comentarios_dev}',''            ,'{$usua_doc}','9')";
                ora_commiton($handle);
                $cursor1 = ora_open($handle);
                ora_parse($cursor, $isql_hl);
                ora_exec($cursor);
            }
        }
    } else {
        echo "<span class=etexto><b>No se actualizaron los registros <br>Debe seleccionar un tipo de devolución<br>";
Ejemplo n.º 2
0
 $numrad = $verrad_sal;
 $dep_radicado = substr($verrad_sal, 4, 3);
 $ano_radicado = substr($verrad_sal, 0, 4);
 error_reporting(0);
 $carp_codi = substr($dep_radicado, 0, 2);
 $isql = "SELECT b.RADI_NUME_RADI,a.ANEX_NOMB_ARCHIVO,a.ANEX_DESC,a.SGD_REM_DESTINO,a.SGD_DIR_TIPO\n\t\t,a.ANEX_RADI_NUME\n\t\tFROM ANEXOS a,RADICADO b\n\t\t\tWHERE a.radi_nume_salida=b.radi_nume_radi\n\t\t\tand a.RADI_NUME_SALIDA={$verrad_sal}\n\t\t\tand a.sgd_dir_tipo !=7 and anex_estado=2";
 ora_commiton($handle);
 $cursor = ora_open($handle);
 ora_parse($cursor, $isql);
 ora_exec($cursor);
 if (!$cursor) {
     $estado = "No se encontr&oacute;";
     $mensaje = "No hay registro";
 }
 $resultado = ora_fetch_into($cursor, $row2, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
 $no_registros = ora_numrows($cursor);
 $verrad = $row2["RADI_NUME_RADI"];
 $ref_pdf = $row2["ANEX_NOMB_ARCHIVO"];
 $asunto = $row2["ANEX_DESC"];
 $sgd_dir_tipo = $row2["SGD_DIR_TIPO"];
 $rem_destino = $row2["SGD_DIR_TIPO"];
 $anex_radi_nume = $row2["ANEX_RADI_NUME"];
 $dep_radicado = substr($verrad_sal, 4, 3);
 $ano_radicado = substr($verrad_sal, 0, 4);
 $carp_codi = substr($dep_radicado, 0, 2);
 $radi_path_sal = "/{$ano_radicado}/{$dep_radicado}/docs/{$ref_pdf}";
 //$verrad_sal = $radicados_sel[$i];
 $ruta_raiz = "..";
 if (substr($rem_destino, 0, 1) == "7") {
     $anex_radi_nume = $verrad_sal;
 }
Ejemplo n.º 3
0
            ?>
 </font></p>
		<p class=etexto><span class="etextomenu"><br>RADICADOS INVOLUCRADOS :</span><br>
           <font color=blue><?php 
            echo $procard;
            ?>
</font></p>
		<?php 
            if ($depsel == 999) {
                $codus = 1;
            }
            $iisql = "select USUA_NOMB from usuario where depe_codi={$depsel} and usua_codi={$codus} ORDER BY USUA_NOMB ";
            if ($enviara != 20) {
                ora_parse($cursor, $iisql);
                ora_exec($cursor);
                $numerot = ora_numrows($cursor);
                $row1 = array();
                $result1 = ora_fetch_into($cursor, $row1, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
                $usuanomb = ora_getcolumn($cursor, 0);
                //$usuacodif = ora_getcolumn($cursor, 1) ;
                ?>
        <p class=etexto><span class="etextomenu">USUARIO DESTINO :</span> <font color=blue>
		<?php 
                if ($enviara == 21) {
                    echo "{$us_ant_nombre} ";
                } else {
                    echo $usuanomb;
                }
                ?>
</font></p>
        <?php 
Ejemplo n.º 4
0
 error_reporting(7);
 $radicado_grupo = "";
 $no_digitos = 14;
 $radi_nume_grupo = substr($radicados_sel[0], 0, $no_digitos);
 if ($i != 0) {
     $valor_unit = 0;
 }
 $verrad_sal = $radicados_sel[$i];
 $verrad_sal = substr($verrad_sal, 0, $no_digitos);
 include_once "{$ruta_raiz}/config.php";
 $isql = "select RADI_NUME_RADI FROM RADICADO WHERE RADI_NUME_RADI like '{$verrad_sal}'";
 ora_commiton($handle);
 $cursor = ora_open($handle);
 ora_parse($cursor, $isql) or $error_db = ora_error();
 ora_exec($cursor) or $error_db = ora_error();
 $encontrados = ora_numrows($cursor);
 $resultado = ora_fetch_into($cursor, $row2, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
 $encontrado_radi = $row2["RADI_NUME_RADI"];
 $dep_radicado = substr($verrad_sal, 4, 3);
 $carp_codi = substr($dep_radicado, 0, 2);
 $dir_tipo = 1;
 $nombre_us = substr(trim($nombre_us), 0, 29);
 $verrad_sal = substr($verrad_sal, 0, $no_digitos);
 if ($renv_codigo) {
     $isql = "UPDATE SGD_RENV_REGENVIO\n\t\t\t\t\t SET\n\t\t\t\t\t\tUSUA_DOC='{$usua_doc}',\n\t\t\t\t\t\tSGD_FENV_CODIGO='{$empresa_envio}',\n\t\t\t\t\t\tSGD_RENV_DESTINO= '{$destino}',\n\t\t\t\t\t\tSGD_RENV_TELEFONO='{$telefono}',\n\t\t\t\t\t\tSGD_RENV_MAIL='{$mail}',\n\t\t\t\t\t\tSGD_RENV_PESO='{$envio_peso}',\n\t\t\t\t\t\tSGD_RENV_VALOR='{$valor_unit}',\n\t\t\t\t\t\tSGD_RENV_CERTIFICADO='0',\n\t\t\t\t\t\tSGD_RENV_ESTADO='1',\n\t\t\t\t\t\tSGD_RENV_NOMBRE='{$nombre_us}',\n\t\t\t\t\t\tDEPE_CODI='{$dependencia}',\n\t\t\t\t\t\tSGD_DIR_TIPO='{$dir_tipo}',\n\t\t\t\t\t\tRADI_NUME_GRUPO='{$radi_nume_grupo}',\n\t\t\t\t\t\tSGD_RENV_PLANILLA='{$planilla}',\n\t\t\t\t\t\tSGD_RENV_DIR='{$direccion_us}',\n\t\t\t\t\t\tSGD_RENV_DEPTO='{$departamento_us}',\n            \t\t\tSGD_RENV_OBSERVA='{$observaciones}',\n\t\t\t\t\t\tSGD_RENV_MPIO='{$destino}'                          \n\t\t\t\t\twhere \n\t\t\t\t\tRADI_NUME_SAL={$radicados} and sgd_renv_codigo='{$renv_codigo}'\n\t\t\t";
     Ora_commiton($handle);
     $cursor = ora_open($handle);
     ora_parse($cursor, $isql);
     ora_exec($cursor);
     echo "<span class=etexto>Se actualizo el radicado {$verrad_sal} en la planilla {$planilla} </span>";
 } else {
Ejemplo n.º 5
0
$title = "";
if ($radicar_documento) {
    $arpdf = "rad_salida/{$fano}/{$dependencia}/{$fmes}/2{$archivo_sal}.pdf";
    $pdf->Output($arpdf);
    echo "<B><CENTER><a href={$arpdf}?fecha_h={$fechah}> Ver Archivo Pdf </a><br>";
    if ($sec) {
        $plg_codi = str_pad($numero_pla, 4, "0", STR_PAD_left);
        $plg_comentarios = "";
        $plt_codi = $plt_codi;
        $rad_salida = "2" . $rad_salida;
        $isql = "update PL_GENERADO_PLG set PLT_CODI=2,RADI_NUME_SAL={$rad_salida},\n\t\t           PLG_ARCHIVO_FINAL='{$arpdf}',PLG_CREA_FECH=SYSDATE\t\t   \n\t\t           where PLG_CODI={$plantillaper1} and RADI_NUME_RADI={$numrad}";
        ora_commiton($handle);
        $cursor = ora_open($handle);
        ora_parse($cursor, $isql) or die("No se ha podido Grabar el Radicado");
        ora_exec($cursor) or die("No se ha podido Grabar el Radicado");
        $actualizados = ora_numrows($cursor);
        ora_commit($handle);
        ?>
<p>
  <center>
    <?php 
        if ($actualizados > 0) {
            ?>
	
    Ha sido Radicado el Documento con el N&uacute;mero <b>
    2<?php 
            echo $rad_definitivo;
            ?>
	<?php 
        } else {
            ?>
Ejemplo n.º 6
0
         $carp_per = 1;
         $radi_usua_actu = 1;
     } else {
         $carp_codi = 0;
         if ($ent == 1) {
             $carp_codi = 1;
         }
         $carp_per = 0;
         $radi_usua_actu = 1;
     }
 }
 $qw = "update radicado\n\t\t\t\t\t    SET radi_tipo_deri={$tipoanexo},radi_cuentai='{$cuentai}'\n\t\t\t\t\t\t\t,mrec_codi={$med}\n\t\t\t\t\t\t\t,radi_fech_ofic=TO_DATE ('{$fechrdoc} {$hora}', 'DD-MM-YY HH24:MI:SS')\n\t\t\t\t\t\t\t,radi_nume_deri={$radicadopadre},radi_usua_radi={$codusuario}\n\t\t\t\t\t\t\t,tdid_codi={$tip_doc}, radi_desc_anex='{$ane}'\n\t\t\t\t\t\t\t,dpto_codi={$codep},radi_pais='{$pais}'\n\t\t\t\t\t\t\t,ra_asun='{$asu}'\n\t\t\t\t\t\t\t,radi_depe_radi={$coddepe}\n\t\t\t\t\t\t\t,radi_usua_actu={$radi_usua_actu}\n\t\t\t\t\t\t\t,carp_codi={$carp_codi}\n\t\t\t\t\t\t\t,carp_per={$carp_per}\n\t\t\t\t\t\t\t,trte_codi={$tip_rem}\n\t\t\t\t\t\t\t,tdoc_codi={$tdoc}\n\t\t\t\t\t\t\t,radi_nume_iden='{$numdoc}'\n\t\t\t\t\t\t\t,radi_depe_actu={$coddepe}\n\t\t\t\t\t\t\t,eesp_codi={$documento_us3} \n\t\t\t\t\t\twhere radi_nume_radi='{$nurad}' ";
 ora_parse($cursor, $qw);
 ora_exec($cursor);
 ora_commiton($handle);
 $rowsafec = ora_numrows($cursor);
 if ($rowsafec > 0) {
     echo "<center><b>Se ha modificado el radicado({$rowsafec}) <b> {$nurad} <br>";
     echo "<INPUT TYPE=HIDDEN NAME=nurad value={$nurad}>";
     echo "<INPUT TYPE=HIDDEN NAME=flag value={$flag}>";
     $sgd_dir_us2 = 2;
     include "grb_direcciones.php";
 } else {
     echo "<center><b>No se ha encontrado registros para modificar <br>";
 }
 if ($coddepeinf) {
     $flag = 0;
     $observa = "Inf. Envio de Copia al radicar";
     $isql_inf = "insert into INFORMADOS(DEPE_CODI,INFO_FECH,USUA_CODI,RADI_NUME_RADI,INFO_DESC) \n\t\t\t\t\t               values ({$coddepeinf}, to_date ('" . date('d-m-Y H:i:s') . "','dd-mm-yyyy hh24:mi:ss' ) ,1,{$nurad},'{$observa}')";
     ora_parse($cursor, $isql_inf) or $flag = 1;
     ora_exec($cursor) or $flag = 1;