
---------- CG_ACTUALIZA.PHP

---------- CG_CONCI_ASIGNA.PHP
   function eliminar_extracto ($campos_form, $iextracto){
      $xiextracto=$_POST['XIEXTRACTO']; // Identi de la tabla M_EXTRACTOS_MOV
      // Quitamos el IEXTRACTO del campo hidden XIEXTRACTO
      $siextracto=''; // Ser el nuevo $xiextracto pero sin el extracto eliminado
      $tsaux=explode(',',$xiextracto);
            if ($saux!=$iextracto){
               if ($siextracto==''){
                  $siextracto=$saux;
                  $siextracto.=','.$saux;
      $_POST['XIEXTRACTO']=$siextracto;
      $xiextracto=$siextracto;
      $_POST['XIEXTRACTO']=$siextracto;
      $respuesta->script('document.Lista.XIEXTRACTO.value=\''.$xiextracto.'\';');
         $respuesta->script('window.document.frame_aux2.document.Lista.XIEXTRACTO.value=\''.$xiextracto.'\';');
         $respuesta->script('window.document.frame_aux.document.Lista.XIEXTRACTO.value=\''.$xiextracto.'\';');
      $xiextracto=$_POST['XIEXTRACTO'];
            $fl.=' and (IEXTRACTO#i0 OR IEXTRACTO IS NULL)';
         $fl.=' and IEXTRACTO NOT IN (SELECT IEXTRACTO from M_DOCINDEX WHERE';
         if ($_POST['XIEXTRACTO']!=''){
            $xiextracto=$_POST['XIEXTRACTO']; // Identi de la tabla M_EXTRACTOS_MOV
            // Quitamos el IEXTRACTO del campo hidden XIEXTRACTO
            $siextracto=''; // Ser el nuevo $xiextracto pero sin el extracto eliminado
            $tsaux=explode(',',$xiextracto);
                  if ($siextracto==''){
                     $siextracto=$saux;
                     $siextracto.=','.$saux;
            if ($siextracto!=''){
               $fl.=' AND IEXTRACTO NOT IN ('.$siextracto.')';
         Desconciliar ($_POST['XIEXTRACTO_OLD']);
         unset($_POST['XIEXTRACTO']);
         unset($_POST['XIEXTRACTO_OLD']);
      unset($_POST['XIEXTRACTO']);
         $tmp_iextracto='';
         $buffer='select DISTINCT(IEXTRACTO) AS IEXTRACTO FROM M_DOCINDEX where';
            if ($tele['IEXTRACTO']!='' && $tele['IEXTRACTO']!='-999999' && $tele['IEXTRACTO']!=-999999){
               if ($tmp_iextracto==''){
                  $tmp_iextracto =$tele['IEXTRACTO'];
                  $tmp_iextracto.=','.$tele['IEXTRACTO'];
         $_POST['XIEXTRACTO']=$tmp_iextracto;
         if ($_POST['XIEXTRACTO']!=''){
         $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
         $buffer='select IEXTRACTO FROM M_EXTRACTOS_MOV'.$xnolock.' where ';
         $_POST['XIEXTRACTO']=$tele['IEXTRACTO'];
         $_POST['XIEXTRACTO']=Obtener_iextractos();
         $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
      $_POST['XIEXTRACTO']='';
      $_POST['XIEXTRACTO_OLD']='';
         $tmp_iextracto='';
         $buffer='select DISTINCT(IEXTRACTO) AS IEXTRACTO FROM M_DOCINDEX where';
            if ($tele['IEXTRACTO']!='' && $tele['IEXTRACTO']!='-999999' && $tele['IEXTRACTO']!=-999999){
               if ($tmp_iextracto==''){
                  $tmp_iextracto =$tele['IEXTRACTO'];
                  $tmp_iextracto.=','.$tele['IEXTRACTO'];
         $_POST['XIEXTRACTO']=$tmp_iextracto;
         if ($_POST['XIEXTRACTO']!=''){
         $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
         $buffer='select IEXTRACTO FROM M_EXTRACTOS_MOV'.$xnolock.' where ';
         $_POST['XIEXTRACTO']=$tele['IEXTRACTO'];
         $_POST['XIEXTRACTO']=Obtener_iextractos();
         $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
   $xiextracto=$_POST['XIEXTRACTO'];
         $_POST['XIEXTRACTO']='';
         $_POST['XIEXTRACTO_OLD']='';
            $tmp_iextracto='';
            $buffer='select DISTINCT(IEXTRACTO) AS IEXTRACTO FROM M_DOCINDEX where';
               if ($tele['IEXTRACTO']!='' && $tele['IEXTRACTO']!='-999999' && $tele['IEXTRACTO']!=-999999){
                  if ($tmp_iextracto==''){
                     $tmp_iextracto =$tele['IEXTRACTO'];
                     $tmp_iextracto.=','.$tele['IEXTRACTO'];
            $_POST['XIEXTRACTO']=$tmp_iextracto;
            if ($_POST['XIEXTRACTO']!=''){
            $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
            $buffer='select IEXTRACTO FROM M_EXTRACTOS_MOV'.$xnolock.' where ';
            $_POST['XIEXTRACTO']=$tele['IEXTRACTO'];
            $_POST['XIEXTRACTO']=Obtener_iextractos();
            $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
         $tiextracto=explode (',',$xiextracto);
         for ($e=0;$e<sizeof($tiextracto);$e++){
            $siextracto=$tiextracto[$e];
            if ($siextracto!=''){
                  $buffer='select CCIAMC,CUENTA,TIPO,FECHA_OPE from M_EXTRACTOS_MOV'.$xnolock.' where IEXTRACTO='.$siextracto;
         $_POST['XIEXTRACTO']='';
         $_POST['XIEXTRACTO_OLD']='';
   echo ("<input type='HIDDEN'  name='XIEXTRACTO'           id='XIEXTRACTO'          value='".$_POST['XIEXTRACTO']."'>\n");
   echo ("<input type='HIDDEN'  name='XIEXTRACTO_OLD'       id='XIEXTRACTO_OLD'      value='".$_POST['XIEXTRACTO_OLD']."'>\n");
      echo "  document.Lista.XIEXTRACTO.value='';\n";
      echo "  document.Lista.XIEXTRACTO_OLD.value='';\n";
      echo("   if (document.Lista.XIEXTRACTO.value==document.Lista.XIEXTRACTO_OLD.value && document.Lista.XIAPUNTE.value==document.Lista.XIAPUNTE_OLD.value){\n");
      echo "      document.Lista.XIEXTRACTO.value='';\n";
      echo "      document.Lista.XIEXTRACTO_OLD.value='';\n";
      echo("  document.Lista.XIEXTRACTO_OLD.value=document.Lista.XIEXTRACTO.value;\n");
   echo("function Quitar_extracto(iextracto){\n");
   echo '   xajax_eliminar_extracto(xajax.getFormValues(\'Lista\'), iextracto);'; echo ("\n");
      $xiextracto=$_POST['XIEXTRACTO'];
      if (trim(str_replace(',','',$xiextracto))==''){$xiextracto='-999999';}
      Desconciliar ($_POST['XIEXTRACTO_OLD']); // Desconciliamos los IEXTRACTOS que teniamos al inicio
      $tiextracto=explode (',',$xiextracto);
      for ($e=0;$e<sizeof($tiextracto);$e++){
         if ($tiextracto[$e]!=''){
            $saux_extractos.=$tiextracto[$e];
         $buffer='update M_EXTRACTOS_MOV set TIPO=\'MANUAL\', FECHA_CONCI=\''.$sfecha.'\' where WEB=\''.$_POST['GERWEB'].'\' and EMPRESA=\''.$_POST['GEREMPRESA'].'\' and IEXTRACTO IN ('.$saux_extractos.')';
         for ($e=0;$e<sizeof($tiextracto);$e++){
            $siextracto=$tiextracto[$e];
            if ($siextracto!=''){
                     $buffer.='CCIADT,SAPRDT,TICODT,NUCODT,TIPO,IEXTRACTO,CUENDT,TAUXDT,CAUXDT,IMPORTE,SIMIDT,COMPROBANTE,FECHA_CONCI) values (';
                     $buffer.='\''.$cciadt.'\','.$saprdt.','.$ticodt.','.$nucodt.',\'EX\','.$siextracto.',\''.$cuendt.'\',\''.$tauxdt.'\',\''.$cauxdt.'\','.$importe.','.$simidt.',\''.$cciadt.'/'.$saprdt.'/'.$ticodt.'/'.$nucodt.'/'.$simidt.'\',\'' . $fechahoy . '\')';
                     $buffer="update M_DOCGLB01 set IEXTRACTO=" . $siextracto;

---------- CG_CONCI_CHGTIPO.PHP
            $buffer="select TIPO, IEXTRACTO from M_EXTRACTOS_MOV where rrn(M_EXTRACTOS_MOV) = " . $rowid;
                  $buffer ="delete from M_DOCINDEX where IEXTRACTO=" . $t['IEXTRACTO'];
               // $buffer.="   and IEXTRACTO=-999999";
                     $buffer.="   TIPO, IEXTRACTO";

---------- CG_CONCI_DESCO.PHP
         $buffer="select IEXTRACTO from M_DOCINDEX where CCIADT='" . $td[0];
            if ($tglb['IEXTRACTO']!=-999999) {
               $buffer.="SAPRDT=0, TICODT=0, NUCODT=0, SIMIDT=0 WHERE IEXTRACTO='" . $tglb['IEXTRACTO'];
            $buffer="update M_DOCGLB01 set IEXTRACTO=0, FECHA_CONCI='' where CCIADT='" . $td[0];

---------- CG_CONCI_RESU.PHP
         $buffer.="IEXTRACTO DESC";
      $buffer.=" order by FECHA_OPE, IEXTRACTO";
               $pdf->Text(145, $posi, "IEXTRACTO");
               $gxls_sheet1->writeString($nlinea, 7, "IEXTRACTO", 'STY10U_LEFT');
//         $buffer.="AS D, M_EXTRACTOS_MOV AS E WHERE D.IEXTRACTO=E.IEXTRACTO and ";
      $fvalor=$textra['IEXTRACTO'];
      $fvalor=$textra['IEXTRACTO'];
         $buffer.="   and CUENTA='" . $cuenta . "' order by fecha_ope, iextracto";
                 $buffer="update M_EXTRACTOS_MOV set saldo=$ttsaldo where IEXTRACTO=" . $te['IEXTRACTO'];

---------- CG_CONCI_SALDOS.PHP

---------- CG_CONTABIL.PHP
   $ifactura=$iextracto='';
      $buffer="select IDENTI, IEXTRACTO, CUENTA, FECHA_OPE, DH, DEBE, HABER, TIPO, CLIENPROV, IFACTURA, FECHADOC, CE, CTACE, DESCRICE, IASIENTO FROM M_EXTRACTOS_MOV".$xnolock." where identi = " . $_POST[ROWID];
      $iextracto=$tfac[IEXTRACTO];
      $buffer.="GASTOS, SUPLIDOS, BASE_IRPF, IMPORTE_IRPF, TOTAL, COMISION, IEXTRACTO, IEXTRACTO2, IEXTRACTO3, ESTADO, FORMACOBRO, FECHA_COBRO, IMPORTE_COBRO, ";
      $iextracto=$tfac[IEXTRACTO];
      if ($io_test>=2) { echo "-----------------------------------<br>iextracto: " . $tfac['IEXTRACTO'] . ":" . $tfac['IEXTRACTO2'] . "<br>"; }
         if ($io_test>=2) { echo "ANTES DE ----------------------------------<br>iextracto: " . $tfac['IEXTRACTO'] . ":" . $tfac['IEXTRACTO2'] . "<br>"; }
         if ($tfac[IEXTRACTO]!=0) {
            $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO];
            $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO];
         if ($tfac[IEXTRACTO2]!=0) {
            $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO2];
            $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO2];
         if ($tfac[IEXTRACTO3]!=0) {
            $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO3];
            $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO3];
                  if (($ii==1) && ($tfac[IEXTRACTO]!=0)) {
                     $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO];
                     $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO];
                  if (($ii==2) && ($tfac[IEXTRACTO2]!=0)) {
                     $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO2];
                     $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO2];
                  if (($ii==3) && ($tfac[IEXTRACTO3]!=0)) {
                     $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO3];
                     $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO3];
      $buffer.="FORMAPAGO2, FECHA_PAGO2, IMPORTE_PAGO2, FORMAPAGO3, FECHA_PAGO3, IMPORTE_PAGO3, IEXTRACTO, IEXTRACTO2, IEXTRACTO3, FECHA_CONTA, ";
      $iextracto=$tfac[IEXTRACTO];
         echo "--------------------------------------------------<br>iextracto=" . $tfac['IEXTRACTO'] . " ivas: " . $tfac['IVA1'] . ":" . $tfac['IVA2'] . "<br>";
         if ($io_test>=2) { echo "ANTES DE ----------------------------------<br>iextracto: " . $tfac['IEXTRACTO'] . ":" . $tfac['IEXTRACTO2'] . "<br>"; }
         if ($tfac[IEXTRACTO]!=0) {
            $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO];
            $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO];
         if ($tfac[IEXTRACTO2]!=0) {
            $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO2];
            $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO2];
         if ($tfac[IEXTRACTO3]!=0) {
            $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO3];
            $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO3];
                  if (($ii==1) && ($tfac[IEXTRACTO]!=0)) {
                     $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO];
                     $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO];
                  if (($ii==2) && ($tfac[IEXTRACTO2]!=0)) {
                     $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO2];
                     $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO2];
                  if (($ii==3) && ($tfac[IEXTRACTO3]!=0)) {
                     $buffer="select IASIENTO FROM M_EXTRACTOS_MOV where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO3];
                     $buffer="update M_EXTRACTOS_MOV set CE = 'S', IASIENTO = '" . $sasiento . "' where web = '" . $xweb . "' and iextracto = " . $tfac[IEXTRACTO3];
      $xiextracto=$_POST['XIEXTRACTO'];
                  $buffer='select IEXTRACTO FROM M_EXTRACTOS_MOV'.$xnolock.' where ';
                  $nuevo_iextracto=$tele['IEXTRACTO'];
                  if ($nuevo_iextracto!=''){
                     $tsaux=explode(',',$xiextracto);
                        if (trim($tsaux[$i])==trim($nuevo_iextracto)){
                        $xiextracto.=','.$nuevo_iextracto;
            $_POST['XIEXTRACTO']=$xiextracto;
                     $tsaux=explode('#S#',$xiextracto);
      echo ("<input type='hidden' name='XIEXTRACTO'               id='XIEXTRACTO'                value=\"".$_POST['XIEXTRACTO']."\">\n");
               echo '   window.parent.document.Lista.XIEXTRACTO.value=\''.$xiextracto.'\';';  echo "\n";

---------- CG_CONCI_ASIGNA.PHP_20150209
   function eliminar_extracto ($campos_form, $iextracto){
      $xiextracto=$_POST['XIEXTRACTO']; // Identi de la tabla M_EXTRACTOS_MOV
      // Quitamos el IEXTRACTO del campo hidden XIEXTRACTO
      $siextracto=''; // Ser el nuevo $xiextracto pero sin el extracto eliminado
      $tsaux=explode(',',$xiextracto);
            if ($saux!=$iextracto){
               if ($siextracto==''){
                  $siextracto=$saux;
                  $siextracto.=','.$saux;
      $_POST['XIEXTRACTO']=$siextracto;
      $xiextracto=$siextracto;
      $_POST['XIEXTRACTO']=$siextracto;
      $respuesta->script('document.Lista.XIEXTRACTO.value=\''.$xiextracto.'\';');
         $respuesta->script('window.document.frame_aux2.document.Lista.XIEXTRACTO.value=\''.$xiextracto.'\';');
         $respuesta->script('window.document.frame_aux.document.Lista.XIEXTRACTO.value=\''.$xiextracto.'\';');
      $xiextracto=$_POST['XIEXTRACTO'];
            $fl.=' and (IEXTRACTO#i0 OR IEXTRACTO IS NULL)';
         $fl.=' and IEXTRACTO NOT IN (SELECT IEXTRACTO from M_DOCINDEX WHERE';
         if ($_POST['XIEXTRACTO']!=''){
            $xiextracto=$_POST['XIEXTRACTO']; // Identi de la tabla M_EXTRACTOS_MOV
            // Quitamos el IEXTRACTO del campo hidden XIEXTRACTO
            $siextracto=''; // Ser el nuevo $xiextracto pero sin el extracto eliminado
            $tsaux=explode(',',$xiextracto);
                  if ($siextracto==''){
                     $siextracto=$saux;
                     $siextracto.=','.$saux;
            if ($siextracto!=''){
               $fl.=' AND IEXTRACTO NOT IN ('.$siextracto.')';
         Desconciliar ($_POST['XIEXTRACTO_OLD']);
         unset($_POST['XIEXTRACTO']);
         unset($_POST['XIEXTRACTO_OLD']);
      unset($_POST['XIEXTRACTO']);
         $tmp_iextracto='';
         $buffer='select DISTINCT(IEXTRACTO) AS IEXTRACTO FROM M_DOCINDEX where';
            if ($tele['IEXTRACTO']!='' && $tele['IEXTRACTO']!='-999999' && $tele['IEXTRACTO']!=-999999){
               if ($tmp_iextracto==''){
                  $tmp_iextracto =$tele['IEXTRACTO'];
                  $tmp_iextracto.=','.$tele['IEXTRACTO'];
         $_POST['XIEXTRACTO']=$tmp_iextracto;
         if ($_POST['XIEXTRACTO']!=''){
         $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
         $buffer='select IEXTRACTO FROM M_EXTRACTOS_MOV'.$xnolock.' where ';
         $_POST['XIEXTRACTO']=$tele['IEXTRACTO'];
         $_POST['XIEXTRACTO']=Obtener_iextractos();
         $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
      $_POST['XIEXTRACTO']='';
      $_POST['XIEXTRACTO_OLD']='';
         $tmp_iextracto='';
         $buffer='select DISTINCT(IEXTRACTO) AS IEXTRACTO FROM M_DOCINDEX where';
            if ($tele['IEXTRACTO']!='' && $tele['IEXTRACTO']!='-999999' && $tele['IEXTRACTO']!=-999999){
               if ($tmp_iextracto==''){
                  $tmp_iextracto =$tele['IEXTRACTO'];
                  $tmp_iextracto.=','.$tele['IEXTRACTO'];
         $_POST['XIEXTRACTO']=$tmp_iextracto;
         if ($_POST['XIEXTRACTO']!=''){
         $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
         $buffer='select IEXTRACTO FROM M_EXTRACTOS_MOV'.$xnolock.' where ';
         $_POST['XIEXTRACTO']=$tele['IEXTRACTO'];
         $_POST['XIEXTRACTO']=Obtener_iextractos();
         $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
   $xiextracto=$_POST['XIEXTRACTO'];
         $_POST['XIEXTRACTO']='';
         $_POST['XIEXTRACTO_OLD']='';
            $tmp_iextracto='';
            $buffer='select DISTINCT(IEXTRACTO) AS IEXTRACTO FROM M_DOCINDEX where';
               if ($tele['IEXTRACTO']!='' && $tele['IEXTRACTO']!='-999999' && $tele['IEXTRACTO']!=-999999){
                  if ($tmp_iextracto==''){
                     $tmp_iextracto =$tele['IEXTRACTO'];
                     $tmp_iextracto.=','.$tele['IEXTRACTO'];
            $_POST['XIEXTRACTO']=$tmp_iextracto;
            if ($_POST['XIEXTRACTO']!=''){
            $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
            $buffer='select IEXTRACTO FROM M_EXTRACTOS_MOV'.$xnolock.' where ';
            $_POST['XIEXTRACTO']=$tele['IEXTRACTO'];
            $_POST['XIEXTRACTO']=Obtener_iextractos();
            $_POST['XIEXTRACTO_OLD']=$_POST['XIEXTRACTO'];
         $tiextracto=explode (',',$xiextracto);
         for ($e=0;$e<sizeof($tiextracto);$e++){
            $siextracto=$tiextracto[$e];
            if ($siextracto!=''){
                  $buffer='select CCIAMC,CUENTA,TIPO,FECHA_OPE from M_EXTRACTOS_MOV'.$xnolock.' where IEXTRACTO='.$siextracto;
         $_POST['XIEXTRACTO']='';
         $_POST['XIEXTRACTO_OLD']='';
   echo ("<input type='HIDDEN'  name='XIEXTRACTO'           id='XIEXTRACTO'          value='".$_POST['XIEXTRACTO']."'>\n");
   echo ("<input type='HIDDEN'  name='XIEXTRACTO_OLD'       id='XIEXTRACTO_OLD'      value='".$_POST['XIEXTRACTO_OLD']."'>\n");
      echo "  document.Lista.XIEXTRACTO.value='';\n";
      echo "  document.Lista.XIEXTRACTO_OLD.value='';\n";
      echo("   if (document.Lista.XIEXTRACTO.value==document.Lista.XIEXTRACTO_OLD.value && document.Lista.XIAPUNTE.value==document.Lista.XIAPUNTE_OLD.value){\n");
      echo "      document.Lista.XIEXTRACTO.value='';\n";
      echo "      document.Lista.XIEXTRACTO_OLD.value='';\n";
      echo("  document.Lista.XIEXTRACTO_OLD.value=document.Lista.XIEXTRACTO.value;\n");
   echo("function Quitar_extracto(iextracto){\n");
   echo '   xajax_eliminar_extracto(xajax.getFormValues(\'Lista\'), iextracto);'; echo ("\n");
      $xiextracto=$_POST['XIEXTRACTO'];
      if (trim(str_replace(',','',$xiextracto))==''){$xiextracto='-999999';}
      Desconciliar ($_POST['XIEXTRACTO_OLD']); // Desconciliamos los IEXTRACTOS que teniamos al inicio
      $tiextracto=explode (',',$xiextracto);
      for ($e=0;$e<sizeof($tiextracto);$e++){
         if ($tiextracto[$e]!=''){
            $saux_extractos.=$tiextracto[$e];
         $buffer='update M_EXTRACTOS_MOV set TIPO=\'MANUAL\', FECHA_CONCI=\''.$sfecha.'\' where WEB=\''.$_POST['GERWEB'].'\' and EMPRESA=\''.$_POST['GEREMPRESA'].'\' and IEXTRACTO IN ('.$saux_extractos.')';
         for ($e=0;$e<sizeof($tiextracto);$e++){
            $siextracto=$tiextracto[$e];
            if ($siextracto!=''){
                     $buffer.='CCIADT,SAPRDT,TICODT,NUCODT,TIPO,IEXTRACTO,CUENDT,TAUXDT,CAUXDT,IMPORTE,SIMIDT,COMPROBANTE,FECHA_CONCI) values (';
                     $buffer.='\''.$cciadt.'\','.$saprdt.','.$ticodt.','.$nucodt.',\'EX\','.$siextracto.',\''.$cuendt.'\',\''.$tauxdt.'\',\''.$cauxdt.'\','.$importe.','.$simidt.',\''.$cciadt.'/'.$saprdt.'/'.$ticodt.'/'.$nucodt.'/'.$simidt.'\',\'' . $fechahoy . '\')';
                     $buffer="update M_DOCGLB01 set IEXTRACTO=" . $siextracto;

---------- CG_CTA.PHP
   $buffer="select RRN(M_DOCGLB01) AS IDENTI, CCIADT, SAPRDT, TICODT, NUCODT, SIMIDT from M_DOCGLB01 where IEXTRACTO=0";
      $buffer="select IEXTRACTO, FECHA_CONCI from m_docindex where CCIADT='" . $tb['CCIADT'];
      if ($io_test>=2) { echo "iextracto --------------------------------------------- <br>"; }
         $buffer="update M_DOCGLB01 set IEXTRACTO=" . $td['IEXTRACTO']. ", FECHA_CONCI='" . $td['FECHA_CONCI']. "' where RRN(M_DOCGLB01)=" . $tb['IDENTI'];
         $buffer.="IEXTRACTO,IMPORTE,SIMIDT,COMPROBANTE,FECHA_CONCI) values ('" . $cuenta;

---------- CG_ESPECIAL.PHP
   //  LIBERA - Liberar un asinento que esta como IEXTRACTO=-999999,lo deja como 0
            $buffer="update M_DOCGLB01 set iextracto=0, FECHA_CONCI='' where COMPROBANTE='$comprobante'";
   //  PON999 - Liberar un asinento que esta como IEXTRACTO=-999999,lo deja como 0
            $buffer="update M_DOCGLB01 set iextracto=-999999, FECHA_CONCI='" . $fechahoy . "' where COMPROBANTE='$comprobante'";
            $buffer.="IEXTRACTO,IMPORTE,SIMIDT,COMPROBANTE,FECHA_CONCI) values ('";

---------- CG_GLB01.PHP
      $buffer="update M_EXTRACTOS_MOV set SALDO=" . $saldo . " where IEXTRACTO=";
      $buffer.= $tmov['IEXTRACTO'];
         $buffer.="CLDODT, NDOCDT, IMPORTE, TIPO, IEXTRACTO ) values (";

---------- CG_TEST.PHP

---------- GENLISTA.PHP_OLD
                     //$operacion_ejecutar  = 'document.Lista.XIAPUNTE.value=window.parent.document.Lista.XIAPUNTE.value;document.Lista.XIEXTRACTO.value=window.parent.document.Lista.XIEXTRACTO.value;Externa(\''.Gerurl($xrutespecial1).'\',\'\',\''.$snv.'\');';
                     $operacion_ejecutar  = '$(\'#XIAPUNTE\').val($(\'#XIAPUNTE\',window.parent.document).val());$(\'#XIEXTRACTO\').val($(\'#XIEXTRACTO\',window.parent.document).val());Externa(\''.Gerurl($xrutespecial1).'\',\'\',\''.$snv.'\');';
      //if ($_POST['XIEXTRACTO']!='' || $_POST['XIAPUNTE']!=''){
         echo ("<input type='hidden' name='XIEXTRACTO'                  id='XIEXTRACTO'                  value=\"".$_POST['XIEXTRACTO']."\"/>\n");

---------- GENPARA.PHP

---------- GLC_NORMA43.PHP
                     $buffer.= " order by FECHA_OPE DESC, IEXTRACTO DESC";
      //  Obtener el max IEXTRACTO para nuestra web
      $iextracto=1;
         $w_buffer="select MAX(IEXTRACTO) as IEXTRACTO from M_EXTRACTOS_MOV where web='" . $xweb . "' and empresa='" . $xempresa . "'";
         $w_buffer="select MAX(IEXTRACTO) as IEXTRACTO from GLC_EXTRACTOS_MOV where web='" . $xweb . "' and empresa='" . $xempresa . "'";
      if ($rce=='') { $iextracto=$te[IEXTRACTO]+1; }
         $w_buffer.="  (WEB, EMPRESA, IEXTRACTO, CCIAMC, CUENMC, TAUXMC, CAUXMC, CUENTA, FECHA_OPE, FECHA_VAL, DH, DEBE, HABER, SALDO, DIVISA, OFIORI, CONCEC, CONCEP, CONCEP1, CONCEP2, NDOCUMENTO, REF1, REF2, TIPO, IMPORTE, FECHA_ALTA) ";
         $w_buffer.="  (WEB, EMPRESA, IEXTRACTO, CUENTA, FECHA_OPE, FECHA_VAL, DH, DEBE, HABER, SALDO, DIVISA, OFIORI, CONCEC, CONCEP, CONCEP1, CONCEP2, NDOCUMENTO, REF1, REF2, TIPO, CLIENPROV, IFACTURA, FECHADOC, CE, CTACE, DESCRICE) ";
      $w_buffer.="  '" . $iextracto. "',";
      // echo "cia: " . $cia . " iextracto: " . $iextracto . " sql: " . $w_buffer . "<br>";
               if ($te['IEXTRACTO']!=-999999) {
                  $buffer="delete from M_DOCINDEX where TIPO='EX' and IEXTRACTO='" . $te['IEXTRACTO'] . "'";
               $buffer.="IEXTRACTO,IMPORTE,SIMIDT,COMPROBANTE,FECHA_CONCI) values ('";
               $buffer.="','EX',". $te['IEXTRACTO'] . "," . $tglb01['MONTDT'];
               $buffer.=" where IEXTRACTO='" . $te['IEXTRACTO'] . "'";
               $buffer="update M_DOCGLB01 set IEXTRACTO=" . $te['IEXTRACTO'] . ",FECHA_CONCI='" . $fechahoy . "' where CCIADT='";
               if ($te['IEXTRACTO']!=-999999) {
                  $buffer="delete from M_DOCINDEX where TIPO='EX' and IEXTRACTO='" . $te['IEXTRACTO'] . "'";
               $buffer.="IEXTRACTO,IMPORTE,SIMIDT,COMPROBANTE,FECHA_CONCI) values ('" . $te['CUENTA'];
               $buffer.="','EX',". $te['IEXTRACTO'] . ", " . $tglb01['MONTDT'];
               $buffer.="' and EMPRESA='" . $xempresa . "' and IEXTRACTO='" . $te['IEXTRACTO'] . "'";
      $buffer.=" and (IEXTRACTO=0 OR IEXTRACTO IS NULL) ";
         $buffer.="IEXTRACTO,IMPORTE,SIMIDT,COMPROBANTE,FECHA_CONCI) values ('";
         $buffer="update M_DOCGLB01 set IEXTRACTO=-999999, FECHA_CONCI='" . $fechahoy . "' where RRN(M_DOCGLB01)=" . $tglb01['IDENTI'];
      $buffer.=" and (IEXTRACTO=0 OR IEXTRACTO IS NULL) ";
         $buffer.="IEXTRACTO,IMPORTE,SIMIDT,COMPROBANTE,FECHA_CONCI) values ('";
         $buffer="update M_DOCGLB01 set IEXTRACTO=-999999, FECHA_CONCI='" . $fechahoy . "' where RRN(M_DOCGLB01)=" . $tglb01['IDENTI'];
      $buffer.=" and (IEXTRACTO=0 OR IEXTRACTO IS NULL) ORDER BY FVALOR, MONTDT";
         $buffer.=" and (IEXTRACTO=0 OR IEXTRACTO IS NULL)";
            $buffer.="IEXTRACTO,IMPORTE,SIMIDT,COMPROBANTE,FECHA_CONCI) values ('";
            $buffer.="IEXTRACTO,IMPORTE,SIMIDT,COMPROBANTE,FECHA_CONCI) values ('";
            $buffer="update M_DOCGLB01 set IEXTRACTO=-999999, FECHA_CONCI='" . $fechahoy . "' where RRN(M_DOCGLB01)=" . $tb1['IDENTI'];
            $buffer="update M_DOCGLB01 set IEXTRACTO=-999999, FECHA_CONCI='" . $fechahoy . "' where RRN(M_DOCGLB01)=" . $tb2['IDENTI'];
         if (($td['IEXTRACTO']!='') && ($td['EXTRACTO']!='-999999')) {
            $gextra.=$td['IEXTRACTO'].",";
         echo "/" . $td['NUCODT'] . "/" . $td['SIMIDT'] . "   importe: " . $td['IMPORTE'] . " iextracto: " . $td['IEXTRACTO'];
      $buffer.="M_DOCINDEX.SIMIDT, IMPORTE, MONTDT, IEXTRACTO from M_DOCINDEX, GLB01 WHERE M_DOCINDEX.CCIADT=GLB01.CCIADT AND ";
         echo "/" . $td['NUCODT'] . "/" . $td['SIMIDT'] . "   importe glb01: " . $td['MONTDT'] . "  importe extracto: " . $td['IMPORTE'] . " iextracto: " . $td['IEXTRACTO'];
         $buffer.=" where IEXTRACTO in (";
         $buffer.="select IEXTRACTO FROM M_DOCINDEX where (CCIADT || CHAR(SAPRDT) || CHAR(TICODT) || ";
         $buffer.=" TAUXDT='BA' ) AND IEXTRACTO <> -999999)";
            $buffer ="UPDATE M_EXTRACTOS_MOV SET FECHA_CONCI='', SAPRDT=NULL, TICODT=NULL, NUCODT=NULL, SIMIDT=NULL, TIPO='PENDIENTE' WHERE IEXTRACTO IN (";
            $buffer.="SELECT IEXTRACTO FROM M_DOCINDEX where (CCIADT || CHAR(SAPRDT) || CHAR(TICODT) || ";
            $buffer ="UPDATE M_EXTRACTOS_MOV SET FECHA_CONCI='', SAPRDT=NULL, TICODT=NULL, NUCODT=NULL, SIMIDT=NULL, TIPO='PENDIENTE' WHERE IEXTRACTO IN (";
            $buffer.="SELECT IEXTRACTO FROM M_DOCINDEX where (CCIADT || CHAR(SAPRDT) || CHAR(TICODT) || ";
            $buffer.="M_DOCINDEX.NUCODT=GLB01.NUCODT AND M_DOCINDEX.SIMIDT=GLB01.SIMIDT AND IMPORTE <> MONTDT ) AND IEXTRACTO <> -999999 ) ";
         $buffer.="' and IEXTRACTO=-999999";
      $buffer ="select * from M_EXTRACTOS_MOV where SAPRDT=0 OR SAPRDT IS NULL order by IEXTRACTO";
         $buffer.=" where IEXTRACTO=" . $te['IEXTRACTO'];
            $buffer.=" where IEXTRACTO=" . $te['IEXTRACTO'];

---------- PENSANTE.PHP

---------- CG_CONCI.INC
      $xfiltronew.="     and IEXTRACTO=-999999";
      $xfiltronew.="     and IEXTRACTO<>-999999";
      $xfiltronew="IEXTRACTO <> IEXTRACTO";
      $buffer ="select IEXTRACTO from M_DOCINDEX";
      $xfiltronew="IEXTRACTO = " . $tm[IEXTRACTO];
         $buffer="select * from M_EXTRACTOS_MOV where IEXTRACTO=" . $rowid;
      $buffer="select * from M_DOCINDEX where TIPO='EX' and IEXTRACTO=" . $te['IEXTRACTO'];
         $buffer="select CUENTA from M_EXTRACTOS_MOV where IEXTRACTO=" . $_POST['ROWID'];
         $buffer.="IEXTRACTO=" . $_POST['ROWID'];
               $buffer="select * FROM M_EXTRACTOS_MOV where IEXTRACTO=" . $rowid[$i];
   //  Obten_iextracto. Obtener el iextracto asociado.
   function Obten_iextracto () {

---------- CG_CONTA.INC
      global $xnfactura, $xproveedor, $xcliente, $xcif, $tiva, $iiva, $totiva, $totbase, $xlibro, $xtipo, $ifactura, $iextracto;
      if (($xtipo=='EX') || ($iextracto!='')) { $buffer.="'" . $iextracto . "',"; } else { $buffer.="'', "; }
      $xiextracto=$_POST['XIEXTRACTO'];
      $tiextracto=explode(',',$xiextracto);
      for ($e=0;$e<sizeof($tiextracto);$e++){
         $siextracto=$tiextracto[$e];
         if ($siextracto!=''){
      $tiextracto=explode(',',$xiextracto);
      for ($e=0;$e<sizeof($tiextracto);$e++){
         $siextracto=$tiextracto[$e];
         if ($siextracto!=''){
            $buffer="select * from M_EXTRACTOS_MOV where IEXTRACTO = " .$siextracto;;
            $scod_html.="<img id=\"VALOR".$x."_IMG\" src=\"/".$_POST['GERPERFIL']."/graficos/delete.ico\" onclick=\"Quitar_extracto('".$siextracto."')\" style=\"cursor:pointer;\"/>";
      $xiextracto=$_POST['XIEXTRACTO'];
      $tiextracto=explode(',',$xiextracto);
      for ($e=0;$e<sizeof($tiextracto);$e++){
         $siextracto=$tiextracto[$e];
         if ($siextracto!=''){
            $buffer="select DH,DEBE,HABER from M_EXTRACTOS_MOV where IEXTRACTO = " .$siextracto;;
   function Obtener_iextractos () {
      $xiextracto=$_POST['XIEXTRACTO'];
      $tmp_iextracto='';
      $tiextracto=explode (',',$xiextracto);
      for ($e=0;$e<sizeof($tiextracto);$e++){
         $siextracto=$tiextracto[$e];
         if ($siextracto!=''){
            $buffer.=' IEXTRACTO=\''.$siextracto.'\' and TIPO=\'EX\'';
            $buffer='select DISTINCT(IEXTRACTO) AS IEXTRACTO FROM M_DOCINDEX where';
               if ($tmp_iextracto==''){
                  $tmp_iextracto =$tele['IEXTRACTO'];
                  $tmp_iextracto.=','.$tele['IEXTRACTO'];
      if ($tmp_iextracto==''){
         $tmp_iextracto=$xiextracto;
      return $tmp_iextracto;
      $xiextracto=$_POST['XIEXTRACTO']; // Identi de la tabla M_EXTRACTOS_MOV
      $tiextracto=explode (',',$xiextracto);
      for ($e=0;$e<sizeof($tiextracto);$e++){
         if ($tiextracto[$e]!='' && $tiextracto[$e]!='-999999' && $tiextracto[$e]!=-999999){
            $saux_extractos.=$tiextracto[$e];
         $buffer.=' IEXTRACTO IN ('.$saux_extractos.') and TIPO=\'EX\' group by CCIADT, SAPRDT, TICODT, NUCODT, SIMIDT';
      $xiextracto=$_POST['XIEXTRACTO'];
      $tiextracto=explode(',',$xiextracto);
      for ($e=0;$e<sizeof($tiextracto);$e++){
         $siextracto=$tiextracto[$e];
         if ($siextracto!=''){
   function Desconciliar ($xiextracto) {
      $tiextracto=explode (',',$xiextracto);
      for ($e=0;$e<sizeof($tiextracto);$e++){
         if ($tiextracto[$e]!=''){
            $saux_extractos.=$tiextracto[$e];
         $buffer.=' TIPO=\'EX\' and IEXTRACTO IN ('.$saux_extractos.')';
         $buffer.=' IEXTRACTO IN ('.$saux_extractos.')';
         $buffer="update m_docglb01 set IEXTRACTO=0, FECHA_CONCI='' where IEXTRACTO IN (".$saux_extractos.")";

---------- GENLISTA_EXCEL.INC

---------- U_COMUN.INC
      if ($_POST['XIEXTRACTO']!=''){
         $hpara.='&XIEXTRACTO='   . $_POST['XIEXTRACTO'];     // utilizara el mismo numero de sesion en control ejecucion
