/* Decoded by unphp.net */


  ini_set('session.cache_limiter', '');
  header('Expires: Thu, 19 Nov 1981 08:52:00 GMT');
  header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
  header('Pragma: no-cache');
  session_start();
include_once('configuracion/abrirbd.php');
include_once('lee_base.php');
include_once('trae_dueno.php');
include_once('trae_comp.php');
include_once('trae_mon.php');
include_once('trae_causal.php');
include_once('cargar_transaccion.php');
include_once('llena_movi.php');
include_once('fechas.php');
include_once('valida_per.php');
//########### P R O G R A M A    P R I N C I P A L############# //

session_register("mat_movil");
session_register("icaciu");
session_register("mat_eac");
session_register("mat_gas");
session_register("mat_ica");
session_register("mat_ant");
session_register("mat_movih");
session_register("mat_compr");
session_register("mat_mon");
session_register("n_dueno");
session_register("a_movi");
session_register("base_ica");
session_register("tipo_c");
session_register("tipo_doc");
session_register("numero_doc");
session_register("prove");
session_register("compr");
session_register("nom_compr");
session_register("moneda");
session_register("nom_prov");
session_register("f_contable");
session_register("valor_fac");
session_register("pagina");
session_register("lineasxpagina");
session_register("nlin");
session_register("recefac");
session_register("diferencia");
session_register("cuenta_i");
session_register("valida");

$mat_mon=trae_mon();
trae_dueno();
$tipo_c = "FP";
$permiso=" opcion = 'A' ";
$mat_compr=trae_comp($permiso);
$k=count($mat_compr);
if($k==1)
{
	$compr=$mat_compr[0]['comprob'];
	$nom_compr=$mat_compr[0]['nom_compr'];
	$ulti=$mat_compr[0]['ultimo'];
}

if (!isset($valida))
   {
   $valida = 1;
   $sql = " SELECT count(*) AS cuantas FROM nue_perpro01,nue_perpro WHERE nue_perpro01.usuario = '$usuario' AND nue_perpro.programa = 'RECEFAC' AND nue_perpro01.permiso = 'F' and nue_perpro.usuario = nue_perpro01.usuario AND nue_perpro01.programa = nue_perpro.programa AND nue_perpro.f_expira_p > sysdate";
   $res = lee_uno($sql);
   if ($res['cuantas'] == 0)
      $valida = 0;
   }

$permiso = 'O';
$f_contable = hoy($fmtfecha);
if (isset($accion))
   {
   switch ($accion)
     {
      case "Inicio":
         session_destroy();
         ;echo '         <script languaje="JavaScript"> location.href=\'index.php?programa=recefac\';</script>
         ';
         break;
      case "Recibir":
         actualiza_mov();
         $f_contable= $_POST['fi'];
         $compr     = $comprob;
	 $nom_compr =$n_comprob;
	 $ulti=$ult;
         $moneda    = $mone;
         $prove     = $nit;
         $valor_fac = $valor;
         $mat_movil = recibir_eac();
         $sql = "SELECT nvl(plazo,0) FROM prove WHERE nit=$prove";
         $res = lee_uno($sql);
         $pzo = $res['plazo'];
         if (strlen(trim($pzo)) == 0)
            $pzo = 0;
         
         $pagina=0;
         $lineasxpagina=10;
            $lee = "SELECT ica1, ica2, ica3, nits.ciudad FROM prove,nits WHERE nits.nit = prove.nit AND prove.nit = $nit ";
            $m_p = lee_todo($lee);
            if (strlen(trim($cambio))==0)
               $cambio = $mat_movih['cambio'];

#echo "base ica:$base_ica * $cambio ";
            if ($cambio > 0)
               $base_ica = $base_ica * $cambio;

            if (count($m_p)>0)
               {
               if ($m_p[0]['ica1'] > 0 && $m_p[0]['ica2'] == 0 && $m_p[0]['ica3'] == 0)
                  {
                  if (strlen(trim($m_p[0]['ciudad']))>0)
                     $lee = "SELECT ica.actividad AS ica, desc_ica, $base_ica AS base, ROUND($base_ica * tarifa) AS retica, ica.cuenta, nom_cta FROM ica, cuentas WHERE cuentas.cuenta = ica.cuenta AND actividad = ".$m_p[0]['ica1'] ." AND ica.cod_ciu = '".trim($m_p[0]['ciudad'])."'";
                  else
                     $lee = "SELECT ica.actividad AS ica, desc_ica, $base_ica AS base, ROUND($base_ica * tarifa) AS retica, ica.cuenta, nom_cta FROM ica, cuentas WHERE cuentas.cuenta = ica.cuenta AND actividad = ".$m_p[0]['ica1'];
#echo "$lee<br>
";
                  $mat_ica = lee_uno($lee);
                  } 
               }
         mostrar_pro();
         break;

      case "OtrosCargos":
         $tipo_doc  = $tip_doc;
         $numero_doc= $num_doc;
         $compr     = $comprob;
	 $nom_compr=$n_comprob;
	 $ulti=$ult;
         $moneda    = $mone;
         $f_contable= $fi;
         $prove     = $nit;
         $nom_prov  = $nombre;
         $valor_fac = $valor;
         $valor_rec = 0;
         otros_cargos();
         break;
      
      case "ICA":
         $tipo_doc  = $tip_doc;
         $numero_doc= $num_doc;
         $compr     = $comprob;
	 $nom_compr=$n_comprob;
	 $ulti=$ult;
         $moneda    = $mone;
         $f_contable= $fi;
         $prove     = $nit;
         $nom_prov  = $nombre;
         $valor_fac = $valor;
         $valor_rec = 0;
         ica($valor_fac);
         break;

      case "VerContab":
         $tipo_doc  = $tip_doc;
         $numero_doc= $num_doc;
         $compr     = $comprob;
	 $nom_compr = $n_comprob;
	 $ulti      = $ult;
         $moneda    = $mone;
         $f_contable= $fi;
         $prove     = $nit;
         $nom_prov  = $nombre;
         $valor_fac = $valor;
         $valor_rec = 0;
         $icaciu = array();
         for ($j=0; $j<count($mat_movil); $j++)
            {	
		if ($recefac != "N")
	           $valor_rec += $mat_movil[$j]['valor']; 
		else
                   $valor_rec += $mat_movil[$j]['valor'] + $mat_movil[$j]['iva'];
            }
 
         $valor_rec = round($valor_rec,2);

         for($j=0; $j<count($mat_gas); $j++)
            {
            if ($mat_gas[$j]['valor']!=0)
               {
               $val = $mat_gas[$j]['valor'];
               if ($mat_gas[$j]['debcre']=="C")
                  $val = -$val;
        
               $valor_rec += $val;
               }
            }

         for ($j=0; $j<count($mat_compr); $j++)
            {	
             if (trim($mat_compr[$j]['comprob'])==trim($compr))
                {
                $tolera   = $mat_compr[$j]['cuenta_r'];
                $cuenta_i = $mat_compr[$j]['cuenta_i'];
                break;
                }
            }
         
         if (!is_numeric(trim($tolera))) 
            $tolera = 0;

         $diferencia = $valor_fac - $valor_rec;
         $diferencia = round($diferencia,2);
         $valido = 1;
         if (abs($diferencia)>$tolera)
            {
            echo "$diferencia>$tolera";

             $valido = 0;
             ;echo '             <script language="javascript" type="text/javascript" >
             alert(\'El valor de la factura difiere de las provisiones  '; echo $valor_rec;;echo '  '; echo $valor_fac;;echo '  \');
             </script>
             ';
            }
         if ($valido==1)
            genera_movi();
         else
            traer_fac();

         break;
      case "Todo":
         $valor_fac = $valor;
         $k=count($mat_eac);
         for($j=0; $j<$k; $j++)
            {	
            $mat_eac[$j]['marca']= "B";
            }
         $pagina=0;
         $lineasxpagina=10;
         traer_fac();
         break;

      case "<--":
         actualiza_mov();
         $valor_fac = $valor;
         $pagina=$pagina-$lineasxpagina;
	 if ($pagina<0)
             $pagina=0;
         traer_fac();
         break;
      case "-->":
         actualiza_mov();
         $valor_fac = $valor;
         $pagina=$pagina+$lineasxpagina;
         traer_fac();
	 break;

      case "-->|":
         actualiza_mov();
         $valor_fac = $valor;
         $pagina=floor(count($mat_movil) / $lineasxpagina);
         $pagina=$pagina*$lineasxpagina;
         traer_fac();
	 break;

      case "|<--":
         $valor_fac = $valor;
         actualiza_mov();
         $pagina=0;
         traer_fac();
	 break;

      default:
      }
   }
else	
   {
   if (strlen(trim($cargos))>0)
      {
      mostrar_pro();
      }
   else
      {
      actualiza_mov();
      if (isset($num_doc) && strlen(trim($num_doc))>0)
         {
         $tipo_doc  = $tip_doc;
         $numero_doc= $num_doc;
         $compr     = $comprob;
	 $nom_compr=$n_comprob;
	 $ulti=$ult;
         //$f_contable= $fi1;
         $f_contable= $_POST['fi'];
         $prove     = $nit;
         $nom_prov  = $nombre;
         $mat_eac   = eac_pend($tipo_doc, $numero_doc, $nit);
         $pagina    = 0;
         $lineasxpagina=10;
         }
      traer_fac();
      }
   }
// #### F I N  P R O G R A M A    P R I N C I P A L ###### //


function otros_cargos() 
{
global $mat_movih;
$ur="entra_cargosfp.php?&prog=precefac";
;echo '<script languaje="JavaScript">
    window.open(\'blanco.php\',\'der\');
    window.open(\'';echo $ur;;echo '\',\'izq\');
</script>
';
}

function ica($valor) 
{
global $mat_movih;
$ur="entra_ica.php?&val=$valor&prog=precefac";
;echo '<script languaje="JavaScript">
   window.open(\'blanco.php\',\'der\');
   window.open(\'';echo $ur;;echo '\',\'izq\');
</script>
';
}

function actualiza_ap() {
   global $mat_movil, $val, $des, $iba, $can, $t_valor, $t_desc, $t_iva;
   $t_valor=0;
   $t_desc=0;
   $t_iva=0;
   
   if (count($val)>0)
      {
      foreach ($val as $key => $bal) 
        {
         $mat_movil[$key]['valor']=$bal;
        }
      }
   if (count($des)>0)
      {
      foreach ($des as $key => $bal) 
        {
         $mat_movil[$key]['descuento']=$bal;
        }
      }

   if (count($iba)>0)
      {
      foreach ($iba as $key => $bal) 
        {
         $mat_movil[$key]['iva']=$bal;
        }
      }

   for ($j=0; $j<count($mat_movil); $j++)
      {	
       $t_valor=$t_valor+($mat_movil[$j]['cantidad_cargada']* $mat_movil[$j]['valor']);
       $t_desc=$t_desc+($mat_movil[$j]['cantidad_cargada']* $mat_movil[$j]['valor']*$mat_movil[$j]['descuento']/100);
       $t_iva=$t_iva+(($mat_movil[$j]['cantidad_cargada']* $mat_movil[$j]['valor']-
                       $mat_movil[$j]['cantidad_cargada']* $mat_movil[$j]['valor']*$mat_movil[$j]['descuento']/100)
                    *$mat_movil[$j]['iva']/100);
      }
#echo " v=$t_valor  d= $t_desc  i =$t_iva dv_$fif_valor  dd=$dif_desc di=$dif_iva ";
;echo '   
     <script languaje="JavaScript"> window.open(\'resumen_tra.php\',\'der\');</script>
';
}

function actualiza_mov() {
   global $mat_eac, $borrao;
   if (count($borrao)>0)
      {
      foreach ($borrao as $key => $val) 
        {
         $mat_eac[$key]['marca']="B";
        }
      }
}

function traer_fac()
{
  global $prove, $mat_mon, $mat_eac, $mat_compr, $pagina, $lineasxpagina, $mat_movih, $mat_movil, $motor, $compr, $numero, $tipo_doc, $numero_doc, $f_contable, $valor_fac, $nom_prov, $tipo_c, $fmtfecha, $nom_compr, $ulti, $valida, $db;

  include('configuracion/estilos.php');
   $patron_f = "MMDDYYYY";
   $patron_prov = "MMDDYYYY";
   if ($fmtfecha=="DMY") 
      $patron_f = "DDMMYYYY";
      $patron_prov = "DDMMYYYY";
;echo '
<html><head><title>'; echo $titulosoftware; ;echo '</title>
<script language="javascript" type="text/javascript" src="javascript/datetimepicker.js"></script>
<script language="javascript" type="text/javascript" src="javascript/enter.js"></script>
<script languaje="javascript">
function validar()
{
  if (document.depe.comprob.value == "" ||
      document.depe.fi.value == "" ||
      document.depe.valor.value == "" ||
      document.depe.nit.value == "")
   { alert(\'Debe digitar la factura, el valor, el comprobante, la fecha y el proveedor \');
	 return false; }
    else  { return true; }
}

function lee_nit()
{
    var llega;
    llega=\'buscar/nit.php?&soli=\'+document.depe.nit.value+\'&nom=\'+document.depe.nombre.value;
    window.open(llega,\'der\');
}

function paramgg()
{
    window.open(\'blanco.php\',\'der\');
    window.open(\'pconcaja.php?&cod_concaja=13\',\'izq\');
}

function sel_imp()
{
    var nume;
    nume=document.depe.num.value;
    location.href=\'selimp1.php?tipo_c=FP&nume=\'+nume;
}
function lee_comprob(ur,i)
{
 	var llega;
	switch(i)
	{
		case 0:
			llega="buscar/comprob_perm.php?&tipo_c=FP";
		break;
		case 1:
			llega="buscar/comprob_perm.php?&tipo_c=FP&comprob="+ur;
		break;
		case 2:
			llega="buscar/comprob_perm.php?&tipo_c=FP&nom_compr="+ur; 
		break;
	}
	window.open(llega,\'der\');
}

function Sumar(p)
{
   var suma = document.getElementById(\'valor\').value;
   if (suma == "")
      var suma = 0;
   if (document.getElementById(\'borrao\'+p).checked == true)
      {
      saldo = parseFloat(document.getElementById(\'saldod\'+p).value) * -1;
      val = parseFloat(suma) + saldo;
      document.getElementById(\'valor\').value = val;
      }
   else
      {
      saldo = parseFloat(document.getElementById(\'saldod\'+p).value) * -1;
      val = parseFloat(suma) - saldo;
      document.getElementById(\'valor\').value = val;
      }
}
</script>


</head>
<body topmargin=0 leftmargin=0  bgColor=#e5e8ee link=#000000>
<table border=0 width="100%" cellspacing="0" cellpadding="0" height="100%"><tr><td height="3" colspan=2>'; include('configuracion/infsuperior.php'); ;echo '</td></tr>
<tr><td>
'; $titulo="Recepcion de facturas por compras planeadas "; $ancho=750; ;echo '<table border="0" width="100%" align=center cellspacing="0" cellpadding="0" height="100%">
  <tr><td align="center">
     '; include('configuracion/tablasuperior.php'); ;echo '      <table border="0" align=center cellspacing="4" cellpadding="0" bgcolor="#FFF7E7" width=100%>
       <form action="'; echo $PHP_SELF ;echo '" method="post" name="depe" onsubmit=\'return validar()\'>
        <tr><td align=center>
	<table border="0" cellspacing="1" cellpadding="0" width=100%>
';
//include_once('compr.php');
;echo ''; 
            $ur="comprob.value";
	    echo "<td colspan=1><b>Comprobante:<font color=#ff00000></td><td NOWRAP colspan=1><input type='button' value='V' name='v' onkeypress='return handleEnter(this, event)' tabindex=2 onclick='lee_comprob($ur,0)' style='width: 20;'> <b>";
            $ur="comprob.value";
            echo "<td><input id='comprob' type=text value='".$compr . "' MAXLENGTH=3 onkeypress='return handleEnter(this, event)' onBlur='this.value=this.value.toUpperCase()' name='comprob' onchange='lee_comprob($ur,1)' size=5 tabindex=1></td>";
            $ur="n_comprob.value";
            echo "<td colspan=1 nowrap><input id='n_comprob' type=text value='".$nom_compr . "' MAXLENGTH=80 tabindex=1 onkeypress='return handleEnter(this, event)' onBlur='this.value=this.value.toUpperCase()' name='n_comprob' onchange='lee_comprob($ur,2)' size=30 tabindex=1><input id='ult' type=text value='".$ulti."' size=8 name='ult' tabindex=1 onkeypress='return handleEnter(this, event)' readonly></td>";
            ;echo '

         <td colspan=1><input type=text value=\''; echo $ultimo; ;echo '\' onkeypress=\'return handleEnter(this, event)\' onBlur=\'this.value=this.value.toUpperCase()\' name=\'num\' size=10 style=\'color: #000000; font-family: Arial; background-color: #FFFFFF; font-size: 8 pt;  height: 18; width: 100; border: 1 solid #000000; padding: 0; background-position: center 50%\' tabindex=2></td>

';      if ($valida == 1)
        {  ;echo '	   <td colspan=1><b>Fecha:</td><td colspan=3 nowrap><b><input id="demo3" type="text" name="fi" size="13" onkeypress=\'return handleEnter(this, event)\' value="'; echo $f_contable; ;echo '" style=\'background-color: font-weight: bold;\' tabindex=1> <a href="javascript:NewCal(\'demo3\',\''; echo $patron_f;;echo '\',false,20)"> <img src="iconos/cal.gif" width="16" height="16" border="0" alt="Fecha de la transaccion"></a></td>
';      }
        else
        { ;echo '	   <td colspan=1><b>Fecha:</td><td colspan=3><b><input id="demo3" type="text" name="fi" size="13" onkeypress=\'return handleEnter(this, event)\' value="'; echo $f_contable; ;echo '" style=\'background-color: font-weight: bold;\' tabindex=1 readonly></td>
';      } ;echo '        <tr>
	<td colspan=1><b>Proveedor:<td>
        <input type=\'submit\' value=\'V\' name=\'v1\' onkeypress=\'return handleEnter(this, event)\' style=\'width: 20;\' tabindex=2> <b>
        <td>
        <input type=text value=\''; echo $prove; ;echo '\' onkeypress=\'return handleEnter(this, event)\' name=\'nit\' style=width:80 onchange=\'lee_nit()\' tabindex=1>

        <td colspan=3><input type="text" name="nombre" value="'; echo $nom_prov; ;echo '" MAXLENGTH=40 onkeypress=\'return handleEnter(this, event)\' onBlur=\'this.value=this.value.toUpperCase()\' onchange=\'lee_nit()\' style=\'width:200;\' tabindex=1>
        <tr>
	<td colspan=1><b>Factura :<td>
        <input type=text value=\''; echo $tipo_doc; ;echo '\' onkeypress=\'return handleEnter(this, event)\' name=\'tip_doc\' style=\'width:40\' tabindex=1>
        <td><input type="text" name="num_doc" value="'; echo $numero_doc; ;echo '" MAXLENGTH=12 onkeypress=\'return handleEnter(this, event)\' onchange=\'submit()\' onBlur=\'this.value=this.value.toUpperCase()\'  style=\'width: 100;\' tabindex=1>

	<td colspan=1 align=right><b>Valor Factura:<td>
	<input type=text value=\''; echo $valor_fac; ;echo '\' onkeypress=\'return handleEnter(this, event)\' name=\'valor\' id=\'valor\' style=\'width:100\' tabindex=1></td>

	<!-- <td colspan=1><b>Fecha factura:</td><td colspan=3><b><input id="demo4" type="text" name="fi1" size="13" onkeypress=\'return handleEnter(this, event)\' value="'; echo $f_contable; ;echo '" style=\'background-color: font-weight: bold;\' tabindex=1> <a href="javascript:NewCal(\'demo4\',\''; echo $patron_f;;echo '\',false,20)"> <img src="iconos/cal.gif" width="16" height="16" border="0" alt="Fecha de la transaccion"></a></td> -->

	<td><B>Moneda: <font color=#ff00000><td colspan=2>
        <select name=\'mone\' onkeypress=\'return handleEnter(this, event)\' tabindex=1>



        ';
          for($j=0; $j<count($mat_mon); $j++)
             {
             $x=$mat_mon[$j]['cod_mon'];
             $y=$mat_mon[$j]['nom_mon'];
             if ($x==$moneda)
                echo "<option value='$x' selected>$x-$y";
             else
                echo "<option value='$x'>$x-$y";
             }
        ;echo '        </select>
        <tr>
	<td colspan=10><hr></td></tr>
	<tr><td colspan=11>
	<table border="1" cellspacing="0" cellpadding="1" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" width=100%>
        <tr bgColor=#CBD9E5>
        <td colspan=12 align=center><b>Provisiones Activas </td>
        <tr bgColor=#CBD9E5>
        <td colspan=2 Align=right><b>Seleccion</td><td colspan=2 align=center><b>Nota de Recibo</td>
        <td colspan=1 align=center><b>Fecha de Recibo</b></td>
        <td colspan=2 align=center><b>Orden de Compra</b></td>
        <td colspan=1 align=center><b>Moneda</b></td>
        <td colspan=1 align=center><b>Valor Provision</b></td>
        <td colspan=1 align=center><b>Valor Provision M.E.</b></td>
        <td colspan=1 align=center><b>Anticipos</b></td>
        <tr>
        '; 
        $k=$pagina+$lineasxpagina;
        if ($k>count($mat_eac))
           $k=count($mat_eac);

        $p=$pagina;
        $x="X";
        for($j=$pagina; $j<$k; $j++)
           {	
            $id=$p+1;
            $opc=$mat_eac[$p]['marca'];
            if ($opc=="B") 
               echo "<tr><th>$id</th><th><input type=checkbox name='borrao[$p]' onkeypress='return handleEnter(this, event)' checked value='".$mat_eac[$p]['tipo_doc']."' tabindex=2></th>";
            else
               echo "<tr><th>$id</th><th><input type=checkbox name='borrao[$p]' id='borrao$p' onkeypress='return handleEnter(this, event)' value='".$mat_eac[$p]['tipo_doc']."' onClick='Sumar($p);' tabindex=2></th>";


            $var=$mat_eac[$p]['tipo_doc'];
            echo "<td>$var</td>";
            $var=$mat_eac[$p]['numero_doc'];
            echo "<td>$var</td>";
            $var=$mat_eac[$p]['f_emision'];
            echo "<td>$var</td>";
            $var=$mat_eac[$p]['t_pedido'];
            echo "<td>$var</td>";
            $var=$mat_eac[$p]['n_pedido'];
            echo "<td>$var</td>";
            $var=$mat_eac[$p]['moneda'];
            echo "<td>$var</td>";
            $valor=$mat_eac[$p]['saldo_doc'];
	    echo "<input type=hidden name='saldod$p' id='saldod$p' value='$valor'>";
            $var = number_format($valor,2,'.',',');
            echo "<td align=right>$var</td>";
            $valor=$mat_eac[$p]['saldo_doce'];
            $var = number_format($valor,2,'.',',');
            echo "<td align=right>$var</td>";
            $valor=$mat_eac[$p]['anticipo'];
            $var = number_format($valor,2,'.',',');
            echo "<td align=right>$var</td>";
            echo "</tr>";
            $p=$p+1;
           }
           ;echo '   
	  </table>
          </td></tr>
   <tr>
   <td colspan=12 align=left><B>'; echo "Regs:".count($mat_eac); ;echo '
           <input type=\'submit\' value=\'Inicio\' id=\'ini\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\' tabindex=1>
           <input type=\'submit\' value=\'<--\' id=\'anterior\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\' tabindex=1>
           <input type=\'submit\' value=\'-->\' id=\'avance\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\'onkeypress=\'return handleEnter(this, event)\' tabindex=1>
	   <input type=\'submit\' value=\'-->|\' id=\'afin\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\' tabindex=1>
	<input type=\'submit\' value=\'|<--\' id=\'aini\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\' tabindex=1>
	<input type=\'submit\' value=\'Todo\' id=\'todo\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\' tabindex=1>
    &nbsp; &nbsp;
	<input type=\'submit\' value=\'Recibir\' id=nuevo name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\' tabindex=1>
	<input type=\'button\' value=\'Imprime\' id=nuevo name=\'imp\' onclick=\'sel_imp()\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\' tabindex=1>
	<input type=\'button\' value=\'Conceptos\' id=even name=\'even\' onclick=\'paramgg()\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\' tabindex=1>
	   <input type=hidden name=\'f_pago\' value=\''; echo $mat_movih['f_pago']; ;echo '\' onkeypress=\'return handleEnter(this, event)\' tabindex=1>
	   </td></tr>
           </table>
         </td></tr>
        </form>
       </table>
      '; include('configuracion/tablainferior.php'); ;echo '    </td>
  </tr>
</table>
</td></tr>
</table>
</body>
</html>
';
}

function mostrar_pro()
{
  global $moneda, $mat_mon, $prove, $nom_compr, $ulti, $pagina, $lineasxpagina, $mat_movih, $mat_movil, $motor, $compr, $numero, $tipo_doc, $numero_doc, $f_contable, $valor_fac, $nom_prov, $tipo_c, $fmtfecha, $valida;

  include('configuracion/estilos.php');
   $patron_f = "MMDDYYYY";
   if ($fmtfecha=="DMY") 
      $patron_f = "DDMMYYYY";
;echo '
<html><head><title>'; echo $titulosoftware; ;echo '</title>
<script language="javascript" type="text/javascript" src="javascript/datetimepicker.js">
</script>
<script language="javascript" type="text/javascript" src="javascript/enter.js">
</script>
<script languaje="javascript">
function validar()
{
  if (document.depe.comp.value == "" ||
      document.depe.fi.value == "" ||
      document.depe.valor.value == "" ||
      document.depe.nit.value == "")
   { alert(\'Debe digitar la factura, el valor,  el comprobante, la fecha y el proveedor \');
	 return false; }
    else  { return true; }
}

function lee_nit()
{
    var llega;
    llega=\'buscar/nit.php?&soli=\'+document.depe.nit.value+\'&nom=\'+document.depe.nombre.value;
    window.open(llega,\'der\');
}

function sel_imp()
{
    var nume;
    nume=document.depe.num.value;
    location.href=\'selimp.php?tipo_c=EAC&nume=\'+nume;

}

</script>

</head>
<body topmargin=0 leftmargin=0  bgColor=#e5e8ee link=#000000 onSubmit="return validar();">
<table border=0 width="100%" cellspacing="0" cellpadding="0" height="100%"><tr><td height="3" colspan=2>'; include('configuracion/infsuperior.php'); ;echo '</td></tr>
<tr><td>
'; $titulo="Recepcion de facturas por compras planeadas"; $ancho=750; ;echo '<table border="0" width="100%" align=center cellspacing="0" cellpadding="0" height="100%">
  <tr><td align="center">
     '; include('configuracion/tablasuperior.php'); ;echo '      <table border="0" align=center cellspacing="4" cellpadding="0" bgcolor="#FFF7E7" width=100%>
       <form action="'; echo $PHP_SELF ;echo '" method="post" name="depe" onsubmit=\'return validar()\'>
        <tr><td align=center>
	<table border="0" cellspacing="1" cellpadding="0" width=100%>
        ';
	echo "<td colspan=1><b>Comprobante:<font color=#ff00000></td><b>";
        echo "<td><input type=text value='".$compr ."' name='comprob' size=10 style='width: 30;' readonly></td>";
        echo "<td><input type=text value='".$nom_compr ."' name='n_comprob' size=10 style='width: 150;' readonly></td>";
        echo "<td><input id='ult' type=text value='".$ulti."' size=8 name='ult' tabindex=1 onkeypress='return handleEnter(this, event)' readonly></td>";
        if ($valida == 1)
        { ;echo '	   <td colspan=1><b>Fecha:</td><td colspan=3><b><input id="demo3" type="text" name="fi" size="13" onkeypress=\'return handleEnter(this, event)\' value="'; echo $f_contable; ;echo '" style=\'background-color: font-weight: bold;\'> <a href="javascript:NewCal(\'demo3\',\''; echo $patron_f;;echo '\',false,20)"> <img src="iconos/cal.gif" width="16" height="16" border="0" alt="Fecha de la transaccion"></a></td>
';      }
        else
        { ;echo '	   <td colspan=1><b>Fecha:</td><td colspan=3><b><input id="demo3" type="text" name="fi" size="13" onkeypress=\'return handleEnter(this, event)\' value="'; echo $f_contable; ;echo '" style=\'background-color: font-weight: bold;\' readonly></td>
';      } ;echo '        <tr>
	<td colspan=1><b>Proveedor:</td>
        <td>
        <input type=text value=\''; echo $prove; ;echo '\' onkeypress=\'return handleEnter(this, event)\' name=\'nit\' style=width:80 readonly>

        <td colspan=3><input type="text" name="nombre" value="'; echo $nom_prov; ;echo '" MAXLENGTH=40 onkeypress=\'return handleEnter(this, event)\' onBlur=\'this.value=this.value.toUpperCase()\' style=\'width:200;\' readonly>
        <tr>
	<td colspan=1><b>Factura :<td>
        <input type=text value=\''; echo $tipo_doc; ;echo '\' onkeypress=\'return handleEnter(this, event)\' name=\'tip_doc\' style=width:40>
        <td><input type="text" name="num_doc" value="'; echo $numero_doc; ;echo '" MAXLENGTH=12 onkeypress=\'return handleEnter(this, event)\' onchange=\'submit()\' onBlur=\'this.value=this.value.toUpperCase()\'  style=\'width: 100;\'>

	<td align=rigth><b>Valor Factura :</td>
	<td><input type=text value=\''; echo $valor_fac; ;echo '\' onkeypress=\'return handleEnter(this, event)\' name=\'valor\' style=width:100></td>
	<!-- <td colspan=1><b>Fecha factura:</td><td colspan=3><b><input id="demo4" type="text" name="fi1" size="13" onkeypress=\'return handleEnter(this, event)\' value="'; echo $fi1; ;echo '" style=\'background-color: font-weight: bold;\' tabindex=1> <a href="javascript:NewCal(\'demo4\',\''; echo $patron_f;;echo '\',false,20)"> <img src="iconos/cal.gif" width="16" height="16" border="0" alt="Fecha de la transaccion"></a></td> -->
	<td><B>Moneda: <font color=#ff00000><td colspan=2>
        <select name=\'mone\' onkeypress=\'return handleEnter(this, event)\' >
        ';
          for($j=0; $j<count($mat_mon); $j++)
             {
             $x=$mat_mon[$j]['cod_mon'];
             $y=$mat_mon[$j]['nom_mon'];
             if ($x==$moneda)
                echo "<option value='$x' selected>$x-$y";
             else
                echo "<option value='$x'>$x-$y";
             }
        ;echo '        </select>
        <tr>

	<td colspan=10><hr></td></tr>
	<tr><td colspan=11>
	<table border="1" cellspacing="0" cellpadding="1" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" width=100%>
        <tr bgColor=#CBD9E5>
        <td colspan=12 align=center><b>Provisiones Activas </td>
        <tr bgColor=#CBD9E5>
        <td colspan=2 align=center><b>Nota de Recibo</b></td>
        <td colspan=1 align=center><b>Cuenta</b></td>
        <td colspan=1 align=center><b>Valor</b></td>
        <td colspan=1 align=center><b>IVA</b></td>
        <td colspan=1 align=center><b>Ret. Compra</b></td>
        <td colspan=1 align=center><b>Ret. iva</b></td>
        <tr>
        '; 
        $k=$pagina+$lineasxpagina;
        if ($k>count($mat_movil))
           $k=count($mat_movil);

        $p=$pagina;
        $x="X";
        for($j=$pagina; $j<$k; $j++)
           {	
           $id=$p+1;
           $var=$mat_movil[$p]['tipo_doc'];
           echo "<td>$var</td>";
           $var=$mat_movil[$p]['numero_doc'];
           echo "<td>$var</td>";
           $var=$mat_movil[$p]['cuenta'];
           echo "<td>$var</td>";
           $valor=$mat_movil[$p]['valor'];
           $var = number_format($valor,2,'.',',');
           echo "<td align=right>$var</td>";
           $valor=$mat_movil[$p]['iva'];
           $var = number_format($valor,2,'.',',');
           echo "<td align=right>$var</td>";
           $valor=$mat_movil[$p]['ret_compra'];
           $var = number_format($valor,2,'.',',');
           echo "<td align=right>$var</td>";
           $valor=$mat_movil[$p]['ret_iva'];
           $var = number_format($valor,2,'.',',');
           echo "<td align=right>$var</td>";
           echo "</tr>";
           $p=$p+1;
           }
           ;echo '   
	  </table>
          </td></tr>
	   <tr>
	   <td colspan=12 align=center><B>'; echo "Regs:".count($mat_movil); ;echo '        <input type=\'submit\' value=\'Inicio\' id=\'ini\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\'> 	   
	<input type=\'submit\' value=\'<--\' id=\'anterior\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\'> 	   
	<input type=\'submit\' value=\'-->\' id=\'avance\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\'> 	   
	<input type=\'submit\' value=\'-->|\' id=\'afin\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\'> 	   
	<input type=\'submit\' value=\'|<--\' id=\'aini\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\'> 	   
	<input type=\'submit\' value=\'OtrosCargos\' id=\'otr\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\'> 	   
	<input type=\'submit\' value=\'ICA\' id=\'ica\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\'> 	   
	<input type=\'submit\' value=\'VerContab\' id=\'todo\' name=\'accion\' style=\'background-color: #738EB5; height: 18; font-size: 8 pt; font-weight: bold; color: ffffff; border-style: solid; border-width: 1\' onkeypress=\'return handleEnter(this, event)\'> 	   
	&nbsp; &nbsp;
	<input type=hidden name=\'f_pago\' value=\''; echo $mat_movih['f_pago']; ;echo '\' onkeypress=\'return handleEnter(this, event)\'>
	</td></tr>
        </table>
         </td></tr>
        </form>
       </table>
      '; include('configuracion/tablainferior.php'); ;echo '    </td>
  </tr>
</table>
</td></tr>
</table>
</body>
</html>
';
}

function eac_pend ($transaccion, $numero, $nit)
{
global $mat_eac, $mat_ant, $f_contable, $puerto, $base, $host, $usuario, $conex, $motor, $fmtfecha, $db;
   if (strlen(trim($nit))==0)
      {
       ;echo '       <script language="javascript" type="text/javascript" >
       alert(\'Id del tercero errado '; echo $nit;;echo '\')
       </script>
       ';
      return $mat_eac;
      }


   $rec = "SELECT f_emision FROM docs WHERE tipo_doc = '$transaccion' AND numero_doc =$numero AND nit=$nit ";
   $x = lee_uno($rec);
   if (strlen($x['f_emision'])>0)
      {
      $f_emision = $x['f_emision'];
       ;echo '       <script language="javascript" type="text/javascript" >
       alert(\'Factura ya causada en '; echo $f_emision;;echo '\')
       </script>
       ';
      return $mat_eac;
      }

   $rec = "SELECT tipo_doc FROM documentos WHERE tipo_doc = '$transaccion'  ";
   $x = lee_uno($rec);
   if (strlen($x['tipo_doc'])==0)
      {
       ;echo '       <script language="javascript" type="text/javascript" >
       alert(\'Factura con prefijo errado  '; echo $transaccion;;echo '\')
       </script>
       ';
      return $mat_eac;
      }

   $rec = "SELECT DISTINCT docs.cuenta, cuentas.nom_cta,  docs.tipo_doc,docs.numero_doc,docs.f_emision,saldo_doc,docs.centro,n_centro,docs.cuenta,t_pedido,n_pedido,concaja.cuenta_t, 0 AS anticipo,movih.moneda FROM docs,cuentas, movih,nits,comprobante,centros,concaja WHERE cuentas.cuenta = docs.cuenta AND concaja.cuenta = docs.cuenta AND t_concaja = 3 AND docs.centro=centros.centro AND movih.transaccion=docs.tipo_doc AND movih.numero=docs.numero_doc AND docs.nit=nits.nit AND docs.tipo_doc = comprobante.comprob AND tipo_c IN ('FLE','EAC','ENT','EAM') AND saldo_doc<0 AND docs.nit = $nit ORDER BY t_pedido, n_pedido,docs.tipo_doc, docs.numero_doc  ";

#echo "$rec <br>
";
   $mat_eac = lee_todo($rec);
   $ma = array();
   for($j=0; $j<count($mat_eac); $j++)
      {	
      $key = trim($mat_eac[$j]['cuenta']).
             trim($mat_eac[$j]['tipo_doc']).
             trim($mat_eac[$j]['numero_doc']);
      $ma[$key]=$mat_eac[$j];
      }
   $mat_eac = array();
   foreach ($ma as $key => $bal) 
      {
      $mat_eac[] = $bal;
      }
   
   for($j=0; $j<count($mat_eac); $j++)
      {	
      $tra = $mat_eac[$j];
      $mat_eac[$j]['marca']=" ";
      if (strlen(trim($tra['moneda']))>0)
         {
         $lee = "SELECT doce.saldo_doce FROM doce WHERE doce.cuenta = '".
                $tra['cuenta']."' AND nit = $nit AND tipo_doc = '".
                $tra['tipo_doc']."' AND numero_doc = ".
                $tra['numero_doc'];
         $me = lee_uno($lee);
         $mat_eac[$j]['saldo_doce'] = $me['saldo_doce'];
         }

      $t_pedido = trim($tra['t_pedido']);
      $n_pedido = trim($tra['n_pedido']);
      $ya=0;
      for($k=0; $k<count($mat_oc); $k++)
         {
         if (trim($mat_oc[$k]['t_pedido'])==$t_pedido & trim($mat_oc[$k]['n_pedido'])==$n_pedido)
            {
            $ya=1;
            break;
            }
         }
      if ($ya==0)
         {
          $mat_oc[$k]['t_pedido'] = $t_pedido;
          $mat_oc[$k]['n_pedido'] = $n_pedido;
         }
      }
   $n=0;
   for($k=0; $k<count($mat_oc); $k++)
      {
      $t_pedido = trim($mat_oc[$k]['t_pedido']);
      $n_pedido = trim($mat_oc[$k]['n_pedido']);
  
      $ant = "SELECT docs.cuenta, docs.saldo_doc FROM docs WHERE  docs.tipo_doc = '$t_pedido' AND docs.numero_doc = $n_pedido AND docs.nit = $nit AND docs.saldo_doc > 0.0 AND docs.cuenta IN (SELECT concaja.cuenta FROM concaja WHERE concaja.t_concaja = 2) ";
      $anti = lee_todo($ant);
      $tot_ant = 0;
      for($j=0; $j<count($anti); $j++)
         {	
         $tra = $anti[$j];
         $mat_ant[$n]['t_pedido'] = $t_pedido;
         $mat_ant[$n]['n_pedido'] = $n_pedido;
         $mat_ant[$n]['cuenta']   = $tra['cuenta'];
         $mat_ant[$n]['saldo']    = $tra['saldo_doc'];
         $tot_ant = $tot_ant + $tra['saldo_doc'];
         $n++;
         }

      for($j=0; $j<count($mat_eac); $j++)
         {
         if (trim($mat_eac[$j]['t_pedido'])==$t_pedido & trim($mat_eac[$j]['n_pedido'])==$n_pedido & $tot_ant !=0)
            {
            $mat_eac[$j]['anticipo']= $tot_ant;
            $tot_ant=0;
            break;
            }
         }
      }
   return $mat_eac;
}

function recibir_eac ()
{
global $base_ica, $recefac, $nit_dueno, $moneda, $mat_eac, $a_movi, $f_contable, $compr, $prove, $puerto, $base, $host, $usuario, $conex, $motor, $fmtfecha;

   $a_movi = array();
   $base_ica = 0;
   $nit = $prove;
   $recefac=trim($nit_dueno['recefac']);
   if (strlen($recefac)==0) 
      $recefac="N";

   $t_contrib=trim($nit_dueno['t_contrib']);
   if (strlen($t_contrib)==0) 
      {
       ;echo '       <script language="javascript" type="text/javascript" >
       alert(\'El registro iden es invalido o no existe en nits el propietario del sistema\');
       </script>
       ';
       session_destroy();
       return;
      }

   $rec = "SELECT nits.t_contrib,nits.autoret,prove.ica1, prove.ica2,prove.ica3, nits.nombre FROM nits, OUTER prove WHERE nits.nit = prove.nit AND nits.nit=$nit ";

   if ($motor == "Oci8po")
      $rec = "SELECT nits.t_contrib,nits.autoret,prove.ica1, prove.ica2,prove.ica3, nits.nombre FROM nits, prove WHERE nits.nit = prove.nit(+) AND nits.nit=$nit ";

   $nit_prove = lee_uno($rec);
   $nombre = $nit_prove['nombre'];

   $k=count($mat_eac);
   $n1=0;
   $valor_par=0;
   for($j=0; $j<$k; $j++)
      {	
       if ($mat_eac[$j]['marca']=="B")
          {
          $baseg = 0;
          $transaccion = $mat_eac[$j]['tipo_doc'];
          $numero      = $mat_eac[$j]['numero_doc'];
          $mvl = "SELECT inve.linea, SUM ((movil.cantidad-movil.cantidad_rec)*movil.valor) AS valor, SUM ((movil.cantidad-movil.cantidad_rec)*movil.valor*movil.iva/100) AS iva,SUM ((movil.cantidad-movil.cantidad_rec)* (movil.valor/(1+(inve.iva/100))*inve.iva/100)) AS iva_inve FROM movil, OUTER inve WHERE movil.item = inve.item AND movil.transaccion = '$transaccion' AND movil.numero = $numero GROUP BY inve.linea";
          if ($motor == "Oci8po")
             $mvl = "SELECT inve.linea, SUM ((movil.cantidad-movil.cantidad_rec)*movil.valor) AS valor, SUM ((movil.cantidad-movil.cantidad_rec)*movil.valor*movil.iva/100) AS iva,SUM ((movil.cantidad-movil.cantidad_rec)* (movil.valor/(1+(inve.iva/100))*inve.iva/100)) AS iva_inve FROM movil, inve WHERE movil.item = inve.item(+) AND movil.transaccion = '$transaccion' AND movil.numero = $numero GROUP BY inve.linea";
          $rece2 = lee_todo($mvl);
          for($m=0; $m<count($rece2); $m++)
             {	
              $mlinb = $rece2[$m];
              $valor_par = $valor_par+trim($mlinb['valor']);
             }
          }
      }
   for($j=0; $j<$k; $j++)
      {	
       if ($mat_eac[$j]['marca']=="B")
          {
          $baseg = 0;
          $transaccion = $mat_eac[$j]['tipo_doc'];
          $numero      = $mat_eac[$j]['numero_doc'];
          $saldo_doc   = -$mat_eac[$j]['saldo_doc'];
          if (strlen(trim($moneda))>0)
             $saldo_doc   = -$mat_eac[$j]['saldo_doce'];
#echo "sa:$saldo_doc <br>
";
          $cuenta      = $mat_eac[$j]['cuenta'];
          $nom_cta     = $mat_eac[$j]['nom_cta'];
          $centro      = $mat_eac[$j]['centro'];
          $n_centro    = $mat_eac[$j]['n_centro'];
          $cuenta_t    = $mat_eac[$j]['cuenta_t'];
          $descripcion = "CANCELA PROVISION";
          llena_movi($cuenta, $nom_cta, $centro, $n_centro, $saldo_doc, $descripcion, $compr, $f_contable, $nit, $nombre, $transaccion, $numero, $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);

          $mvl = "SELECT inve.linea, SUM ((movil.cantidad-movil.cantidad_rec)*movil.valor) AS valor, SUM ((movil.cantidad-movil.cantidad_rec)*movil.valor*movil.iva/100) AS iva,SUM ((movil.cantidad-movil.cantidad_rec)* (movil.valor/(1+(inve.iva/100))*inve.iva/100)) AS iva_inve FROM movil, OUTER inve WHERE movil.item = inve.item AND movil.transaccion = '$transaccion' AND movil.numero = $numero GROUP BY inve.linea";
          if ($motor == "Oci8po")
             $mvl = "SELECT inve.linea, SUM ((movil.cantidad-movil.cantidad_rec)*movil.valor) AS valor, SUM ((movil.cantidad-movil.cantidad_rec)*movil.valor*movil.iva/100) AS iva,SUM ((movil.cantidad-movil.cantidad_rec)* (movil.valor/(1+(inve.iva/100))*inve.iva/100)) AS iva_inve FROM movil, inve WHERE movil.item = inve.item(+) AND movil.transaccion = '$transaccion' AND movil.numero = $numero GROUP BY inve.linea";
          $rece2 = lee_todo($mvl);
          for($m=0; $m<count($rece2); $m++)
             {	
              $mlin = $rece2[$m];
              $linea = trim($mlin['linea']);
              $valor = trim($mlin['valor']);
              $iva   = trim($mlin['iva']);
              $iva_o = $iva;
              $iva_i = trim($mlin['iva_inve']);
              $iva_inve = 0;
              if ($iva == 0 & $iva_i>0)
                 {
                 $iva_inve = 1;
#                el iva se llevo al inventario, para reteiva debe trabajar con el iva_i
                 $iva = $iva_i;
                 }
#echo "valor:$valor iva:$iva";
              if (strlen(trim($mat_eac[$j]['moneda']))>0)
                 {
                 $consulta = "SELECT movie.cambio_e FROM movie WHERE comprob = '$transaccion' AND numero = $numero ";
                 $cam = lee_uno($consulta);
                 if ($cam['cambio_e'] !=0)
                    {
                    $valor = $valor / $cam['cambio_e'];
                    $iva = $iva / $cam['cambio_e'];
                    }
                 }

              if (trim($nit_dueno['pais'])=="COLOMBIA")
                 $iva = round($iva,0);
              else
                 $iva = round($iva,2);

              $mat_rec[$n1]['tipo_doc']   = $transaccion;
              $mat_rec[$n1]['numero_doc'] = $numero;
              $mat_rec[$n1]['saldo_doc']  = $saldo_doc;
              $mat_rec[$n1]['valor']      = $valor;
              $base_ica += $valor;
              $mat_rec[$n1]['iva']        = $iva;
              $mat_rec[$n1]['cuenta']     = $mat_eac[$j]['cuenta'];

              $consulta = "SELECT lineas.linea, lineas.c_compra,A.nom_cta AS n_c_compra, lineas.ret_compra, B.nom_cta AS n_ret_compra,B.minimo_ret AS min_ret_compra, B.porc_iva AS porc_ret_compra, lineas.iva_compra, C.nom_cta AS n_iva_compra,lineas.c_retivadb, D.nom_cta AS n_c_retivadb, lineas.c_retiva,E.nom_cta AS n_c_retiva,E.minimo_ret AS min_ret_iva,E.porc_iva AS porc_ret_iva,lineas.impoconsumo, F.nom_cta AS n_impoconsumo FROM lineas, OUTER cuentas A, OUTER cuentas B, OUTER cuentas C, OUTER cuentas D, OUTER cuentas E, OUTER cuentas F WHERE lineas.impoconsumo = F.cuenta AND lineas.c_retivadb = D.cuenta AND lineas.c_retiva = E.cuenta AND lineas.iva_compra = C.cuenta AND lineas.ret_compra=B.cuenta AND lineas.c_compra = A.cuenta AND lineas.linea = '$linea' ";

              if ($motor == "Oci8po")
                 $consulta = "SELECT lineas.linea, lineas.c_compra,A.nom_cta AS n_c_compra, lineas.ret_compra, B.nom_cta AS n_ret_compra,B.minimo_ret AS min_ret_compra, B.porc_iva AS porc_ret_compra, lineas.iva_compra, C.nom_cta AS n_iva_compra,lineas.c_retivadb, D.nom_cta AS n_c_retivadb, lineas.c_retiva,E.nom_cta AS n_c_retiva,E.minimo_ret AS min_ret_iva,E.porc_iva AS porc_ret_iva,lineas.impoconsumo, F.nom_cta AS n_impoconsumo FROM lineas, cuentas A, cuentas B, cuentas C, cuentas D, cuentas E, cuentas F WHERE lineas.impoconsumo = F.cuenta(+) AND lineas.c_retivadb = D.cuenta(+) AND lineas.c_retiva = E.cuenta(+) AND lineas.iva_compra = C.cuenta(+) AND lineas.ret_compra=B.cuenta(+) AND lineas.c_compra = A.cuenta(+) AND lineas.linea = '$linea' ";
# echo "$recefac $consulta <br>
";
              $matlinn = lee_todo($consulta);
              for($n=0; $n<count($matlinn); $n++)
                 {	
                 $mat_lineas = $matlinn[$n];
                 if ($recefac=="S") 
#                 impuestos se causan en recefac 
                    {
                     #retencion compra
                    $min_ret = $mat_lineas['min_ret_compra'];
                    if (strlen(trim($min_ret))==0)
                       $min_ret = 0;

                    if ($valor <= $min_ret)
                       {
                       $ret_com = 0;
                       if ($iva_inve == 1)
                          {
                          $baseg=$valor-$iva;
                          }
                       else
                          {
                          $baseg=$valor;
                          }
                       }
                    else
                       {
                       if ($iva_inve == 1)
                          {
                          $baseg=$valor-$iva;
                          $ret_com=($valor-$iva)*$mat_lineas['porc_ret_compra']/100;
                          }
                       else
                          {
                          $baseg=$valor;
                          $ret_com=$valor*$mat_lineas['porc_ret_compra']/100;
                          }
                       if (trim($nit_dueno['pais'])=="COLOMBIA")
                          $ret_com = round($ret_com,0);
                       else
                          $ret_com = round($ret_com,2);

                       if ($nit_prove['autoret']=="S")
                          {
                          }
                       else
                          {
                          $mat_rec[$n1]['ret_compra'] = $ret_com;
                          $ret_com =-$ret_com;
                          $cuenta  = $mat_lineas['ret_compra'];
                          $nom_cta = $mat_lineas['n_ret_compra'];
                          $descripcion = "RETENCION COMPRAS";
                          }
#echo "ret:$cuenta valor:$ret_com <br>
";
                       if ($nit_prove['autoret']=="S")
                          {
                          }
                       else
                          {
                          //llena_movi($cuenta, $nom_cta, $centro, $n_centro, $ret_com, $descripcion, $compr, $f_contable, $nit, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);
                          }
                       }

                    #iva compra
                    if (trim($nit_dueno['pais'])=="COLOMBIA")
                        $iva = round($iva,0);
                    else
                        $iva = round($iva,2);

                    if ($nit_prove['t_contrib']=="S")
                       {
                       }
                    else
                       {
                       if ($iva_o !=0)
                          {
                          $cuenta = $mat_lineas['iva_compra'];
                          $nom_cta = $mat_lineas['n_iva_compra'];
                          $descripcion = "IVA COMPRAS";
                          llena_movi($cuenta, $nom_cta, $centro, $n_centro, $iva, $descripcion, $compr, $f_contable, $nit, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);
                          }
                       else
                          $mat_rec[$n1]['iva'] = 0;
                      }
       
                     #retencion iva
                     $cuenta  = $mat_lineas['c_retiva'];
                     $nom_cta = $mat_lineas['n_c_retiva'];
                     $retiva=$iva*$mat_lineas['porc_ret_iva']/100;
                     $descripcion = "RETENCION IVA COMPRAS";
                     if (trim($nit_dueno['pais'])=="COLOMBIA")
                        $retiva = round($retiva,0);
                     else
                        $retiva = round($retiva,2);

#echo $retiva.":$valor_par:$min_ret:gggggggggggggggggg:<br>
";
                    if ($valor_par <=$min_ret)
                        $retiva = 0;
              
                     $retiva =-$retiva;
                     if ((trim($nit_prove['t_contrib'])=="N") & 
                         (trim($nit_dueno['t_contrib'])=="E" || trim($nit_dueno['t_contrib'])=="G"))
                        {
       #              retencion del grande al mas chiqiuito que no es simplicado
                         $mat_rec[$n1]['retiva'] = $retiva;
                         llena_movi($cuenta, $nom_cta, $centro, $n_centro, $retiva, $descripcion, $compr, $f_contable, $nit, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);
                        }
                     else
                        {
       #              retencion al regimen simplificado 
                        if ($nit_prove['t_contrib']=="S" & ($nit_dueno['t_contrib']=="N" || 
                             $nit_dueno['t_contrib']=="E" || $nit_dueno['t_contrib']=="G"))
                           {
                           llena_movi($cuenta, $nom_cta, $centro, $n_centro, $retiva, $descripcion, $compr, $f_contable, $nit, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);
                           $cuenta = $mat_lineas['c_retivadb'];
                           $nom_cta = $mat_lineas['n_c_retivadb'];
                           $retiva =-$retiva;
                           llena_movi($cuenta, $nom_cta, $centro, $n_centro, $retiva, $descripcion, $compr, $f_contable, $nit, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);
                           }
                        }
                    }
                 else
                    {
#                 impuestos fueron causados en recealm
                    }
                 }
              $n1++;
             }
          }
      }

   if ($recefac == "S" && $nit_prove['autoret'] != "S") 
   {
      $k = count($mat_rec);
      $t_fac = 0;
      for ($r=0; $r<$k; $r++)
      {
          $t_fac += $mat_rec[$r]['valor'];
      }
      if ($t_fac == $min_ret || $t_fac > $min_ret)
      {
         for ($r=0; $r<$k; $r++)
         {
             $mat_rec[$r]['ret_compra'] = $mat_rec[$r]['valor'] * $mat_lineas['porc_ret_compra']/100;
             $ret_com = $mat_rec[$r]['ret_compra'];
             $ret_com =-$ret_com;
             $cuenta  = $mat_lineas['ret_compra'];
             $nom_cta = $mat_lineas['n_ret_compra'];
             $descripcion = "RETENCION COMPRAS";
             $baseg = $mat_rec[$r]['valor'];
             llena_movi($cuenta, $nom_cta, $centro, $n_centro, $ret_com, $descripcion, $compr, $f_contable, $nit, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);
         }
      }
   }

   return $mat_rec;
}

function genera_movi()
{
global $icaciu, $mat_mon, $recefac, $mat_ica, $mat_gas, $moneda, $diferencia, $cuenta_i, $prove, $tipo_doc, $numero_doc, $mat_ant,  $a_movi, $f_contable, $fechai, $fechaf, $compr, $puerto, $base, $host, $usuario, $conex, $motor, $fmtfecha;

   $centro = trim($a_movi[0]['centro']);
#echo "c:$compr";
   $rec = "SELECT nits.tipoclie FROM nits WHERE nits.nit='$prove'";
   $nit_prove = lee_uno($rec);
   $sql = "SELECT plazo FROM prove WHERE nit=$prove";
   $res = lee_uno($sql);
   $pzo = $res['plazo'];
   if (strlen(trim($pzo)) == 0)
      $pzo = 0;

   $f_vencimiento = fecha_mas_dia($f_contable,$fmtfecha,$pzo);
   if (strlen($centro)==0)
      {
       ;echo '       <script language="javascript" type="text/javascript" >
       alert(\'El centro de costo esta errado \');
       </script>
       ';
      $centro = "1";
      }

   $cambio = 1;
   if (strlen(trim($moneda))>0)
      {
      for($k=0; $k<count($mat_mon); $k++)
         {
         if (trim($mat_mon[$k]['cod_mon'])==trim($moneda))
            {
            $cambio = $mat_mon[$k]['cambio'];
            break;
            }
         }
      if ($k>= count($mat_mon))
         {
         ;echo '         <script language="javascript" type="text/javascript" >
         alert(\'Moneda errada  '; echo $moneda;;echo ' \');
         </script>
         ';
         $mat_movil=array();
         return;
         }
      if (strlen(trim($cambio))==0)
         {
         ;echo '         <script language="javascript" type="text/javascript" >
         alert(\'Cambio errado  '; echo $moneda;;echo ' \');
         </script>
         ';
         $mat_movil=array();
         return;
         }
      }

   $baseg = 0;
   $valor=0;
   for($j=0; $j<count($a_movi); $j++)
      {
       $valor=$valor+ $a_movi[$j]['valor'];
      }

   if ($diferencia != 0)
      {
      $valor = $valor + $diferencia;
      $cuenta   = $cuenta_i;
      $nom_cta  = " ";
      $centro   = $a_movi[0]['centro'];
      $n_centro = $a_movi[0]['n_centro'];
      $nombre   = $a_movi[0]['nombre'];
      $cuenta_t = $a_movi[0]['cuenta_t'];
      $nom_ctat = $a_movi[0]['nom_ctat'];
      $descripcion = "DIFERENCIA FACTURA/PROVISION $tipo_doc $numero_doc ";
      if (strlen($cuenta)==0)
         {
         }
      else
         llena_movi($cuenta, $nom_cta, $centro, $n_centro, $diferencia, $descripcion, $compr, $f_contable, $prove, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);
      }
      
   if ($valor!=0)
      {
      $valor    = -$valor;
      $cuenta   = $a_movi[0]['cuenta'];
      $nom_cta  = $a_movi[0]['nom_cta'];
      $centro   = $a_movi[0]['centro'];
      $n_centro = $a_movi[0]['n_centro'];
      $nombre   = $a_movi[0]['nombre'];
      $cuenta_t = $a_movi[0]['cuenta_t'];
      $nom_ctat = $a_movi[0]['nom_ctat'];
      $descripcion = "RADICACION FACTURA $tipo_doc $numero_doc";
      $desc1    = $descripcion;
      $cta_doc  = $cuenta;
      $nom_doc  = $nom_cta;
      if (strlen($cuenta)==0)
         {
         die("La cuenta por pagar esta errada, puede estar errada la forma de pago $f_pago de la orden de compra");
         }
# echo " cxp =$cuenta, $nom_cta,cc= $centro, $n_centro,v= $valor,d= $descripcion, c= $compr, $f_contable,nit= $nit, $nombre $tipo_doc, $numero_doc <br>
";
      llena_movi($cuenta, $nom_cta, $centro, $n_centro, $valor, $descripcion, $compr, $f_contable, $prove, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);
      }

   $valor = abs($valor);
   $tot_ant=0;
   for($j=0; $j<count($mat_ant); $j++)
      {
      $tot_ant = $tot_ant + $mat_ant[$j]['saldo'];
      }

   if ($tot_ant > $valor)
      {
      $tot_ant = $valor;
      }
 
   $valor=$tot_ant;
   if ($valor != 0)
      {
      $descripcion = "APLICACION DE ANTICIPO";
      llena_movi($cuenta, $nom_cta, $centro, $n_centro, $valor, $descripcion, $compr, $f_contable, $prove, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);

      for($j=0; $j<count($mat_ant); $j++)
         {
         if ($mat_ant[$j]['saldo']>$tot_ant)
             $val = $tot_ant;
         else 
             $val = $mat_ant[$j]['saldo'];

         $cuenta     = $mat_ant[$j]['cuenta'];

         $tot_ant = $tot_ant - $val;
         $val = -$val;
         llena_movi($cuenta, $nom_cta, $centro, $n_centro, $val, $descripcion, $compr, $f_contable, $prove, $nombre, $mat_ant[$j]['t_pedido'], $mat_ant[$j]['n_pedido'], $baseg, $cuenta_t, $nom_ctat, $concepto,$activi);
         if ($tot_ant<= 0) 
            break;
         }
      }

#  aplica otros cargos 
   for($j=0; $j<count($mat_gas); $j++)
      {
      if ($mat_gas[$j]['valor']!=0)
         {
         $val         = $mat_gas[$j]['valor'];
         $cuenta      = $mat_gas[$j]['cuenta'];
         $nom_cta     = $mat_gas[$j]['nom_cta'];
         $descripcion = $mat_gas[$j]['notas'];
         if ($mat_gas[$j]['debcre']=="C")
            $val = -$val;
  
         llena_movi($cuenta, $nom_cta, $centro, $n_centro, $val, $descripcion, $compr, $f_contable, $prove, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $mat_gas[$j]['concepto'],$activi);
         $val = -$val;
         llena_movi($cta_doc, $nom_doc, $centro, $n_centro, $val, $desc1, $compr, $f_contable, $prove, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $nada,$activi);
         }
      }

   if ($mat_ica['ica']>0 && $recefac=="S") 
      {
      $descripcion = "ICA";
      if (strlen(trim($moneda))>0)
         $val     = -$mat_ica['retica'] /$cambio;
      else
         $val     = -$mat_ica['retica'];

      $cuenta  = $mat_ica['cuenta'];
      $nom_cta = $mat_ica['nom_cta'];
      $lee ="SELECT minimo_ret FROM cuentas WHERE cuenta = '$cuenta' ";
      $mc = lee_uno($lee);
      if ($mc['minimo_ret'] >= 0 && $mat_ica['base'] >= $mc['minimo_ret'])
         {
         llena_movi($cuenta, $nom_cta, $centro, $n_centro, $val, $descripcion, $compr, $f_contable, $prove, $nombre, $tipo_doc, $numero_doc, $mat_ica['base'], $cuenta_t, $nom_ctat, $concepto,$mat_ica['ica']);
         $val = -$val;
         llena_movi($cta_doc, $nom_doc, $centro, $n_centro, $val, $descripcion, $compr, $f_contable, $prove, $nombre, $tipo_doc, $numero_doc, $baseg, $cuenta_t, $nom_ctat, $concepto,$mat_ica['ica']);
         }
      }   

   $hoy = hoy($fmtfecha);
   for($j=0; $j<count($a_movi); $j++)
      {
      if ($a_movi[$j]['valor']>0)
         $a_movi[$j]['deb_cre']= "D";
      else
         {
         $a_movi[$j]['deb_cre']= "C";
         $a_movi[$j]['valor']= -$a_movi[$j]['valor'];
         }
      $a_movi[$j]['comprob']   = $compr;
      $a_movi[$j]['fecha_grab']= $hoy;
      $a_movi[$j]['grabador']  = $usuario;
      $a_movi[$j]['f_vence']   = $f_vencimiento;
      }

#  moneda ext 
   if (strlen(trim($moneda))>0)
      {
      $err=0;
      for($j=0; $j<count($a_movi); $j++)
         {
         $a_movi[$j]['cod_mon']= $moneda;
         $a_movi[$j]['cambio'] = $cambio;
         $a_movi[$j]['valor_me']= $a_movi[$j]['valor'];
         $a_movi[$j]['valor']= round($a_movi[$j]['valor']*$cambio,2);
         if ($a_movi[$j]['deb_cre']== "D") 
            $err=$err+$a_movi[$j]['valor'];
         else
            $err=$err-$a_movi[$j]['valor'];
         }

      if ($err!=0) 
         $a_movi[1]['valor'] = $a_movi[1]['valor']+$err;
      }
   ;echo '   <script languaje="JavaScript"> location.href=\'lismovc.php?&prog=recefac\';</script>
   ';
}