<?php
REQUIRE_ONCE "./global/est_funcoes.inc";
$bDir_Cancela = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'C');   // Cancelar documento
$sNomeIdJPrin = "iJan_EstCanDoc";
$sCorBarraInf = '#E8E3CE';
$sPulaLinha   = CHR(13).CHR(10);
//
//  ** PRINCIPAL **
If ( EMPTY($sSubModulo) ) {
   // Criar objeto Janela
   $oJan = New R_Janela();
   $oJan->sIdObj  = $sNomeIdJPrin;
   $oJan->nWidth  = 720;   // Largura
   $oJan->nHeight = 0;     // Altura
   $oJan->nTop    = 10;
   $oJan->nLeft   = 0;
   $oJan->nLeft  += ($nTela_W/2)-($oJan->nWidth/2);
   $oJan->sTitulo = 'Cancelamento de documentos de entrada';
   $oJan->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
   //
   $sJavaTravarJ = "parent.document.getElementById('".$oJan->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJan->sIdObj."',true);";
   $oJan->sJavOnClickF = 
       $sJavaTravarJ.
   	   "parent.document.forms.fmPCanDocV.acao.value='FECHAR'; ".
   	   "parent.document.forms.fmPCanDocV.submod.value=''; ".
   	   "parent.document.forms.fmPCanDocV.submit();".
   	   "";
   //
   $sEtg_Idn_Etg = @$_POST['ETG_IDN_ETG'];
   $nEtg_Idn_Etg = Somente_Numeros($sEtg_Idn_Etg)+0;
   //
   // >> Inicial
   If ( EMPTY($sAcao) ) {
      //
      // lista dos objetos na janela
      $oJan->aIdsObjList =
          ARRAY( 'iDoc_Etg_IdN' );
      //
      // Montar janela HTML
      $sRet_TelaJ_HTML =
	     // 1º linha
       	 '<table width="100%">'.
		  '<tr>'.
           '<td align="left">'.
		    '<span class="Titulo">Nr. Controle</span>'.
		   '</td>'.
		   '<td width="6px"></td>'.
           '<td align="center">'.
		    '<span class="Titulo_N">Nr. do DOC</span>'.
		   '</td>'.
		   '<td width="6px"></td>'.
           '<td align="center">'.
		    '<span class="Titulo_N">Série</span>'.
		   '</td>'.
		   '<td width="6px"></td>'.
           '<td align="left">'.
		    '<span class="Titulo">Fornecedor</span>'.
		   '</td>'.
		  '</tr>'.
		  // campos
		  '<tr>'.
		   '<td valign="middle">'.
		    // -- campo do número de controle
       	    '<table width="100%"><tr>'.
		 	 '<td>'.
       	      '<input id="iDoc_Etg_IdN" name="ETG_IDN_ETG" type="text" maxlength="7" style="width:62px;" onchange="Car_'.$sNomeAcesso.'1.Volta_EtnGeral();">'.
		 	 '</td>'.
		 	 '<td align="left">'.
       	      HTML_Botao( 3, 'oDoc_Psq_Etg_Id', "document.getElementById('iDoc_Etg_IdN').value='/';".
		 	                                    "Car_".$sNomeAcesso."1.Abrir_Doc();"
		 	               , ''  ,'images/btimg_lupa.png',20).
		 	 '</td>'.
       	    '</tr></table>'.
		 	// --
		   '</td>'.
		   '<td></td>'.
		   '<td valign="middle">'.
		    // -- campo do número do documento (Número da Nota Fiscal)
       	     '<input id="iDoc_Etg_NFiscal" readonly type="text" style="text-align:center; width:110px;">'.
			// --
		   '</td>'.
		   '<td></td>'.
		   '<td valign="middle">'.
		    // -- campo da série do documento (Nota Fiscal)
       	     '<input id="iDoc_Etg_NFSerie" readonly type="text" style="text-align:center; width:40px;">'.
			// --
		   '</td>'.
		   '<td></td>'.
		   '<td valign="middle">'.
		    // -- campo do fornecedor
       	    '<table width="100%"><tr>'.
		 	 '<td>'.
       	      '<input id="iDoc_Etg_Cod_For" type="text" style="width:38px;" readonly>'.
		 	 '</td>'.
		 	 '<td>'.
       	      '<input id="iDoc_For_Descric" type="text" style="width:360px;" readonly>'.
		 	 '</td>'.
       	    '</tr></table>'.
		 	// --
		   '</td>'.
		  '</tr>'.
		 '</table>'.
		 '';
	  //
      $sRet_TelaJ_HTML =
         $oJan->MontaJanHTML(True).
		 '<style type="text/css" rel="stylesheet">'.
          '.CanDocEnt table {'.
		    'margin-left:0px; margin-top:0px; margin-right:0px; margin-bottom:0px; padding:0px; border-spacing:0px;'.
			'color:#222222;'.
			'font-family: "arial";'.
			'font-size:12px;'.
		  '}'.
          '.CanDocEnt span.Titulo {'.
		    'display:inline-block;'.
			'position:relative;'.
			'left:6px;'.
		  '}'.
          '.CanDocEnt span.Titulo {'.
		    'display:inline-block;'.
			'position:relative;'.
		  '}'.
          '.CanDocEnt input,select {'.
		    'display:inline-block;'.
		    'height:24px;'.
			'color:#000000;'.
			'font-family: "arial";'.
			'font-size:14px;'.
			'background:#FFFFFF;'.
			'border-width:1px;'.
			'border-style:solid;'.
			'border-color:#D6D0AE;'.
          '}'.
          '.CanDocEnt input:read-only {'.
			'background:#F0EFE8;'.
			'border-color:#DBDAD2;'.
          '}'.
		 '</style>'.
         '<form name="fmPCanDocV" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'2">'.
          '<input name="mod" type="hidden" value="'.$sModulo.'">'.
          '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
          '<input name="acao" type="hidden" value="">'.
          '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
       	  '<table width="'.($oJan->nWidth-8).'px" class="CanDocEnt">'.
		   '<tr>'.
       	    '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
       	    '<td align="left">'.
		     $sRet_TelaJ_HTML.
		    '</td>'.
       	    '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
		   '</tr>'.
		  '</table>'.
		 '</form>'.
		 // Divisão
         '<div style="height:3px;"></div>'.
         '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
         '<div style="height:3px;"></div>'.
		 '<div id="dv_CanDoc_Texto" style="width:100%; height:400px; background:#FFFFFF; overflow:auto;">'.
          //'<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">'.
          // '<tr><td align="center" valign="middle" style="color:#555555;">'.
          // 'Aguarde um momento...<br>'.
          // '<img src="images/img_load1.gif" border="0">'.
          // '</td></tr>'.
          //'</table>'.
		 '</div>'.
		 // Divisão
         '<div style="height:3px;"></div>'.
         '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
         '<div style="height:3px;"></div>'.
		 // Barra inferior
       	 '<table width="100%" style="background-color:'.$sCorBarraInf.';">'.
		  '<tr>'.
           '<td width="8px"></td>'.
           '<td width="212px" align="left" valign="center">'.
       	     HTML_Botao( 3, 'oDoc_Bt_Can', "Car_".$sNomeAcesso."1.Cancelar_Doc();"
			              , 'Cancelar documento (F4)','images/btimg_remover.png' , 190).
		   '</td>'.
           '<td align="left"></td>'.
           '<td width="124px" align="right" valign="center">'.
       	     HTML_Botao( 3, 'oDoc_Bt_Sai', $oJan->sJavOnClickF
			              , 'Sair (ESC)'     ,'images/btimg_fechar.png'          , 102).
		   '</td>'.
           '<td width="4px"></td>'.
		  '</tr>'.
		 '</table>'.
         $oJan->MontaJanHTML(False);
      //
      // Java inicial
      $sRet_Javs .=
        'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
 	    "";
      // Java posterior
      $sRet_JavsPos .=
	    "var FmV = parent.document.forms['fmPCanDocV'];".
		//
		"function Focar_EtgId() {".
	       "parent.document.getElementById('iDoc_Etg_IdN').focus();".
	       "parent.document.getElementById('iDoc_Etg_IdN').select();".
		"}".
	    "parent.document.getElementById('oDoc_Bt_Can').style.display='none';".
		"Focar_EtgId();".
		//
		"function Teclas_F( Objeto, Evento ) {".
           "vNumTecla = parent.Tecla_Apertada(Evento);".
           "if ( vNumTecla==115) { ".           //  ** [F4] **       (Cancelar documento)
			   "if (parent.document.getElementById('oDoc_Bt_Can').style.display != 'none') { ".
                   "setTimeout( parent.document.getElementById('oDoc_Bt_Can').onclick , 1);".
			   "}".
		   "} else if ( vNumTecla==116) { ".    //  ** [F5] **       Não atualizar
		       //
		   "} else if ( vNumTecla==27) { ".     //  ** [ESC] **      (SAIR)
              "setTimeout( function () { ".$oJan->sJavOnClickF." } , 1);".
           "} else if ( vNumTecla==13) { ".     //  ** [ENTER] **
			  'Abrir_Doc();'.
              'Focar_EtgId();'.
		   "} else if ( parent.sIdHasFocus=='iDoc_TabItem_Tecla' ) { ".   //  Navegar na tabela
              "P_TeclasPress_fm(Evento);".
		   "} else {".
			  "return true;".
		   "}".
		   "return false;".
		"}".
		//
		"function Abrir_Doc() {".
           "FmV.acao.value='ABRDOC';".
           "setTimeout( function() { FmV.submit(); }, 1);".
		"}".
		"function Cancelar_Doc() {".
		   "parent.Qdr_Prompt_H(true,'Confirma o cancelamento deste documento?',".
		      JAVA_CharCode(            
		        "if (_NUM_BOT_==1) { ".  
	                "JanEspera(true, 'Aguarde, efetuando cancelamento do documento...');".
                    "setTimeout( function() {".
                       "Car_".$sNomeAcesso."1.FmV.acao.value='CANDOC';".
		               "Car_".$sNomeAcesso."1.FmV.submit(); ".
		            "}, 500);".
		   	    "}"
			  ).                      
		   ",['Sim','Não']);".
		"}".
		"";
   //
   // >> Abrir documento na tela
   } ElseIf ( $sAcao=="ABRDOC" ) {
      $nEtg_NFiscal = 0;
      $sEtg_NFSerie = '';
      $nEtg_Cod_For = 0;
      $sFor_Descric = '';
	  $sHTML_Rel    = '';
      $bBotaoCancelar = False;
      // Consulta
      If ( SUBSTR($sEtg_Idn_Etg,0,1)=='/' ) {
         $sRet_Javs .=
            "var FmV = parent.document.forms['fmPCanDocV'];".
            "setTimeout( function () {".
         	  "TargetAnt = FmV.target;".   
         	  "FmV.target='car_".$sNomeAcesso."6';".
              "FmV.acao.value='';".
              "FmV.submod.value='ENT_DOC_CSL';".
              "FmV.submit();".
              "FmV.submod.value='';".
         	  "FmV.target = TargetAnt;".
            "}, 10);".
            "";
      // Abrir documento
      } ElseIf ( $nEtg_Idn_Etg>0 ) {
        $sSQLQuery =
      	    "SELECT etg.*,".
			       "esp.ESP_DESCRIC,".
				   "frn.FOR_FANTAS as FOR_DESCRIC,".
				   "rop.FUN_NOMECP as ROP_NOMECMP ".
      	    "FROM est_entrada_geral as etg ".
            "LEFT JOIN cad_especie_doc as esp ON ESP_IDN_ESP=ETG_ESP_DOC ".
            "LEFT JOIN cad_fornecedor  as frn ON FOR_CODIGO =ETG_COD_FOR ".
            "LEFT JOIN cad_funcionario as rop ON FUN_CODIGO =ETG_RCODOPE ".
      		"WHERE ETG_IDN_ETG=".($nEtg_Idn_Etg).";";
        $Rows = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
      	// Registro encontrado
      	If ( $Row_Est_Geral = MYSQL_FETCH_OBJECT($Rows) ) {
		   $nEtg_NFiscal = $Row_Est_Geral->ETG_NFISCAL;
		   $sEtg_NFSerie = $Row_Est_Geral->ETG_NFSERIE;
		   $nEtg_Cod_For = $Row_Est_Geral->ETG_COD_FOR;
		   $sFor_Descric = $Row_Est_Geral->FOR_DESCRIC;
		   //
		   // ** Montar documento na forma de texto **
		   $sDoc_Texto =
		      ( $Row_Est_Geral->ETG_CAN_OPE>0 ?
   			    AlinhaStr("** DOCUMENTO CANCELADO ".DATE("d/m/Y H:i:s",ConvertDtHrSTR($Row_Est_Geral->ETG_CAN_DTH))." **",1,80).$sPulaLinha
			  : ''.
			    ( $Row_Est_Geral->ETG_EFETIVA==0 ? AlinhaStr("** DOCUMENTO PENDETE PARA EFETIVAR **",1,80).$sPulaLinha : '')
			  ).
		      STR_REPEAT("=", 80).$sPulaLinha.
		      '| Controle.: '.Str_Zero($Row_Est_Geral->ETG_IDN_ETG,7)."       ".
			     'Rec.por.: '.AlinhaStr($Row_Est_Geral->ROP_NOMECMP,0,13)." ".
			     'Fornec..: '.AlinhaStr($Row_Est_Geral->FOR_DESCRIC,0,17)." ".
				 "|".$sPulaLinha.
		      '| Especie..: '.AlinhaStr($Row_Est_Geral->ESP_DESCRIC,0,37)." ".
		         'N.Serie.: '.AlinhaStr($Row_Est_Geral->ETG_NFISCAL.'-'.$Row_Est_Geral->ETG_NFSERIE,0,17)." ".
				 "|".$sPulaLinha.
		      '| Emissao..: '.AlinhaStr(ConvertDataUSBR($Row_Est_Geral->ETG_DATAEMS),0,13)." ".
		         'Entrada.: '.AlinhaStr(DATE("d/m/Y H:i:s",ConvertDtHrSTR($Row_Est_Geral->ETG_DATAENT)),0,41)." ".
			  "|".$sPulaLinha.
			  ( STRLEN($Row_Est_Geral->ETG_NFCHAVE)>0 ?
		      '| Chave....: '.AlinhaStr($Row_Est_Geral->ETG_NFCHAVE,0,65)." ".
			  "|".$sPulaLinha
			  : '' ).
		      STR_REPEAT("-", 80).$sPulaLinha.
		      '';
		   //
		   $sSQLQuery =
		      "SELECT ".
                "item.*, ".
                "prod.ITE_CODIGOL,".
                "prod.ITE_DESCRIC,".
                "prod.ITE_SIG_UNIDADE AS ITE_UNIDADE,".
		   	    "prod.ITE_PRE_CUSTO_E ".
		      "FROM est_entrada_itens as item ".
              "LEFT JOIN cad_produto as prod ON ITE_CODIGOI=ETD_COD_ITE ".
              "WHERE ETD_IDN_ETG=".$Row_Est_Geral->ETG_IDN_ETG.";";
           $Rows = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
      	   While ( $Row_Est_Item = MYSQL_FETCH_OBJECT($Rows) ) {
		      $sDoc_Texto .=
		        '|'. AlinhaStr(                   $Row_Est_Item->ITE_CODIGOL           ,3,6 ).
		        '| '.AlinhaStr(                   $Row_Est_Item->ITE_DESCRIC           ,0,29).
		        '|'. AlinhaStr(                   $Row_Est_Item->ITE_UNIDADE           ,3,4 ).
		        '|'. AlinhaStr(NUMBER_FORMAT(     $Row_Est_Item->ETD_QTD_ITE,3,',','') ,2,8 ). " ".
		        '|'. AlinhaStr("R$ ".FormatoMoeda($Row_Est_Item->ETD_UNI_ITE)          ,2,11). " ".
		        '|'. AlinhaStr("R$ ".FormatoMoeda($Row_Est_Item->ETD_TOT_ITE)          ,2,11)." |".
			    $sPulaLinha;
		   }
		   $sDoc_Texto .=
		      STR_REPEAT("-", 80).$sPulaLinha.
			  "|".AlinhaStr("Valor Total Itens..:",2,59).AlinhaStr("R$ ".FormatoMoeda($Row_Est_Geral->ETG_I_TOTAL),2,18)." |".$sPulaLinha.
			  "|".AlinhaStr(         "Desconto..:",2,59).AlinhaStr("R$ ".FormatoMoeda($Row_Est_Geral->ETG_VAL_DES),2,18)." |".$sPulaLinha.
			  "|".AlinhaStr(      "Valor total..:",2,59).AlinhaStr("R$ ".FormatoMoeda($Row_Est_Geral->ETG_D_TOTAL),2,18)." |".$sPulaLinha.
			  '';
		   //
		   // Puxar contas á pagar
           $sSQLQuery =
		     "SELECT * ".
		     "FROM fin_contas_pagar ".
		     "WHERE CTP_ETG_ID='".$Row_Est_Geral->ETG_IDN_ETG."' ".
		     ";";
           $Rows_FinCTP = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR()."<br>".$sSQLQuery);
		   If ( MYSQL_NUM_ROWS($Rows_FinCTP) ) {
		      $sDoc_Texto .=
		         STR_REPEAT("-", 80).$sPulaLinha.
				 "|".AlinhaStr("* CONTAS A PAGAR VINCULADA *",3,78)."|".
				 $sPulaLinha.
		         '';
			  $n_TotGe_Qtd = 0;
			  $n_TotGe_Val = 0;
			  $n_TotGe_Rec = 0;
              While ( $Row_FinCTP = MYSQL_FETCH_ARRAY($Rows_FinCTP, MYSQL_ASSOC)) {
				 $sTextoCTP = "";
				 $n_TotGe_Qtd++;
				 $n_TotGe_Val += $Row_FinCTP['CTP_VALDUP'];
				 $n_TotGe_Rec += $Row_FinCTP['CTP_VALPAG'];
				 If ( $Row_FinCTP['CTP_CANCEL']>0 ) {
				    $sTextoCTP = "Cancelado em ".ConvertDataUSBR($Row_FinCTP['CTP_DTACAN']).".";
				 } ElseIf ( $Row_FinCTP['CTP_VALPAG']>0 ) {
				    $sTextoCTP = "Pago em ".ConvertDataUSBR($Row_FinCTP['CTP_DTAPAG']).".";
			     }
		         $sDoc_Texto .=
		           '| '.AlinhaStr(      Str_Zero($Row_FinCTP['CTP_NUMDUP'],8)             ,0,8 )." ".
		           '| '.AlinhaStr(      Str_Zero($Row_FinCTP['CTP_NUMPAR'],2).
				                    "/".Str_Zero($Row_FinCTP['CTP_TOTPAR'],2)             ,0,5 )." ".
		           '| '.AlinhaStr(     ConvertDataUSBR($Row_FinCTP['CTP_DTAVEN'])         ,3,10)." ".
		           '| '.AlinhaStr(     $sTextoCTP                                         ,3,30)." ".
		           '| '.AlinhaStr( "R$ ".FormatoMoeda(
				                            ($Row_FinCTP['CTP_VALDUP']==0 ?
									           $Row_FinCTP['CTP_VALPAG']
								             : $Row_FinCTP['CTP_VALDUP']
									        )
								         )
								 ,2,11)." |".
			       $sPulaLinha;
			  }
		      $sDoc_Texto .=
		          STR_REPEAT("-", 80).$sPulaLinha.
			      "|".
                  AlinhaStr("Qtd de duplicatas: ".$n_TotGe_Qtd,0,24)." | ".
                  AlinhaStr("Total pago: ".FormatoMoeda($n_TotGe_Rec),2,24)." | ".
                  AlinhaStr("Total devedor: ".FormatoMoeda($n_TotGe_Val),2,24).
				  "|".$sPulaLinha.
  		          ( $Row_Est_Geral->ETG_CAN_OPE==0 ?
		            STR_REPEAT("-", 80).$sPulaLinha.
				    "|".AlinhaStr("AVISO: Duplicatas que estao pagas nao serao canceladas",3,78)."|".$sPulaLinha
                  : "").
				  "";
		   }
		   //
		   $sDoc_Texto .=
		      STR_REPEAT("=", 80).$sPulaLinha.
			  '';
		   //
		   // Converter em HTML
           $sHTML_Rel = $sDoc_Texto;
           $sHTML_Rel = STR_REPLACE(CHR(10),"",$sHTML_Rel);
           $sHTML_Rel = STR_REPLACE(CHR(13),"<br>",$sHTML_Rel);
           $sHTML_Rel = STR_REPLACE(CHR(32),"&nbsp;",$sHTML_Rel);
           $sHTML_Rel =
             '<div align="center" style="-moz-user-select:text; -khtml-user-select:text; -webkit-user-select:text; -ms-user-select:text; user-select: text; cursor:auto;">'.
              '<table border="0" cellspacing="0" cellpadding="0"><tr><td align="left" style="font-size:13px; font-family:Courier New,Courier,mono;">'.
               $sHTML_Rel.
              '</td></tr></table>'.
             '</div>';
		   // Habilitar botão de cancelar quando o documento não estiver cancelado
		   $bBotaoCancelar = ($Row_Est_Geral->ETG_CAN_OPE==0);
		   //
		// Registro não encontrado
		} Else {
		   $nEtg_Idn_Etg = 0;
           $sRet_Javs .=
		      "parent.Car_".$sNomeAcesso."1.Focar_EtgId();".
		      Info_Evento("ERRO: Não foi possível encontrar o documento.",1).
			  "";
		   //
		}
		//
	  }
      $sRet_Javs .=
         "parent.document.getElementById('iDoc_Etg_IdN').value='"    .Str_Zero($nEtg_Idn_Etg, 7)."';".
		 "parent.document.getElementById('iDoc_Etg_NFiscal').value='".$nEtg_NFiscal."';".
		 "parent.document.getElementById('iDoc_Etg_NFSerie').value='".$sEtg_NFSerie."';".
		 "parent.document.getElementById('iDoc_Etg_Cod_For').value='".Str_Zero($nEtg_Cod_For, 4)."';".
         "parent.document.getElementById('iDoc_For_Descric').value='".$sFor_Descric."';".
         "parent.document.getElementById('dv_CanDoc_Texto').innerHTML = ".JAVA_CharCode($sHTML_Rel).";".
		 "parent.document.getElementById('oDoc_Bt_Can').style.display='".($bBotaoCancelar ? 'inline-block' : 'none')."';".
         "";
   //
   // >> Cancelar documento
   } ElseIf ( $sAcao=="CANDOC" ) {
      //
	  $sRet_Javs .= "parent.JanEspera(false);";
	  //
      $sSQLQuery =
          "SELECT etg.* ".
          "FROM est_entrada_geral as etg ".
      	"WHERE ETG_IDN_ETG=".($nEtg_Idn_Etg)." AND ETG_CAN_OPE=0;";
      $Rows = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
      // Registro encontrado
      If ( $Row_Est_Geral = MYSQL_FETCH_OBJECT($Rows) ) {
	     // MySql: Iniciar transação
	     MYSQL_QUERY("START TRANSACTION;");
         // Gravar cancelamento
         $sSQLQuery = "UPDATE est_entrada_geral SET ".
                         "ETG_CAN_DTH='".DATE('Y-m-d H:i:s')."',".
         				 "ETG_CAN_OPE='".$R_CadFuncionario->FUN_CODIGO."' ".
                      "WHERE ETG_IDN_ETG=".$Row_Est_Geral->ETG_IDN_ETG.";";
         MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		 // Baixar estoque
		 If ( $Row_Est_Geral->ETG_EFETIVA ) {
            $sSQLQuery =
                "SELECT * FROM est_entrada_itens ".
            	"WHERE ETD_IDN_ETG=".($nEtg_Idn_Etg).";";
            $Rows_Itens = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			While ( $Row_Item = MYSQL_FETCH_OBJECT($Rows_Itens) ) {
			   // Estornar movimento de estoque
			   SQLIns_Est_Movimento( $Row_Item->ETD_COD_ITE, -$Row_Item->ETD_QTD_ITE, 0, $Row_Item->ETD_IDN_ETD,
			                         'Estorno ref. ao cancelamento do doc. de entrada '.$Row_Est_Geral->ETG_IDN_ETG.'.');
			}
		 }
		 // Gravar cancelamento em contas á pagar (fin_contas_pagar)
         $sSQLQuery =
		   "SELECT * ".
		   "FROM fin_contas_pagar ".
		   "WHERE CTP_ETG_ID='".$nEtg_Idn_Etg."' ".
		     "AND CTP_CANCEL=0 ".
			 "AND CTP_VALPAG=0 ".
		   ";";
         $Rows_FinCTP = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR()."<br>".$sSQLQuery);
         While ( $Row_FinCTP = MYSQL_FETCH_ARRAY($Rows_FinCTP, MYSQL_ASSOC)) {
			// Gravar na tabela de contas á pagar
            $sSQLQuery =
               "UPDATE fin_contas_pagar SET ".
                  "CTP_CANCEL = 1,".
            	  "CTP_FUNCAN = ".$R_CadFuncionario->FUN_CODIGO.",".
            	  "CTP_DTACAN = '".DATE("Y-m-d H:i:s")."' ".
               "WHERE CTP_ID_MOV='".$Row_FinCTP['CTP_ID_MOV']."'".
			   ";";
            MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
            // Gravar na tabela de logs (Log_CtrCtp)
            $sSQLQuery =
               "INSERT INTO log_ctrctp(".
                  "LOG_ID_CRP, LOG_CODOPE, LOG_DTAREA, LOG_DTATAB, LOG_NUMDOC, LOG_CLIFOR, LOG_DTVANT, LOG_DTVATU,".
         	      "LOG_VLRANT, LOG_VLRATU, LOG_TIPCPR, ".
                  "LOG_TIPCAN ".
               ") VALUES (".
                  " ".$Row_FinCTP['CTP_ID_MOV'] ." ,".
         	      $R_CadFuncionario->FUN_CODIGO .",".
                  "'".DATE("Y-m-d H:i:s")       ."',".
         	      "'".$sData_Trabalho           ."',".
         	      $Row_FinCTP['CTP_NUMDUP']     .",".
                  $Row_FinCTP['CTP_CODFOR']     .",".
         	      "'".$Row_FinCTP['CTP_DTAVEN'] ."',".
         	      "'".$Row_FinCTP['CTP_DTAVEN'] ."',". 
                      $Row_FinCTP['CTP_VALDUP'] .",".
                      $Row_FinCTP['CTP_VALDUP'] .",".
                  "1,".
         	      "1 ".  // Cancelou
               "); ";
            MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
         }
		 // MySql: Salvar a transação
		 MYSQL_QUERY("COMMIT;");
		 // Javascript
         $sRet_Javs .=
	        "parent.Car_".$sNomeAcesso."1.Abrir_Doc();".
	        "parent.Car_".$sNomeAcesso."1.Focar_EtgId();".
	        Info_Evento("Documento cancelado com êxito.",0).
	  	    "";
	  // Registro não encontrado
	  } Else {
         $sRet_Javs .=
            "parent.document.getElementById('iDoc_Etg_IdN').value='';".
	        "parent.Car_".$sNomeAcesso."1.Abrir_Doc();".
	        "parent.Car_".$sNomeAcesso."1.Focar_EtgId();".
	        Info_Evento("ERRO: Não foi possível encontrar o documento para cancelamento.",1).
	  	    "";
	     //
	  }
   //
   // >> Fechar janela
   } ElseIf ( $sAcao=="FECHAR" ) {
      //
      $sRet_Javs .=
         "parent.document.getElementById('dv_MenuL_Barra').style.visibility='visible';".
         "parent.RmElem('".$oJan->sIdObj."');";
   }
//
//  ** TELA DE PESQUISA DOS DOCUMENTOS DE ENTRADA **
} ElseIf ( $sSubModulo=="ENT_DOC_CSL" ) {
   $sNomeIdJ_Ant = $sNomeIdJPrin;
   $sNomeIdCampo = "iDoc_Etg_IdN";
   $bDir_Consult = True;
   $nQdrNomeAcs  = 6;
   $sJavaExePos  =
      "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".
	  "parent.Car_".$sNomeAcesso."1.Abrir_Doc();".
      '';
   REQUIRE "./modulos/consulta_ent_doc.inc";
   //
}
?>