<?php
//  ** TELA baixar ctp**
//
$sNomeIdJan1 = 'iJan_T_Baixa';
$bDir_Baixar = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'B');

// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = $sNomeIdJan1; 
$oJanelaPrinc->nTop    = 40;
$oJanelaPrinc->nLeft   = 25;
$oJanelaPrinc->nWidth  = 660;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Baixar CTP';
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso.$nQdrNomeAcs.".Teclas_F(this,event);";
$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible';";
//
$oJanelaPrinc->sJavOnClickF =
   "parent.document.forms.fmPTelBaixa.acao.value='FECHAR';".
   "parent.document.forms.fmPTelBaixa.submit(); ".
   "";
$oJanelaPrinc->aIdsObjList =
   ARRAY( 'i_PAG_DtDigP_', 'i_PAG_CodCus_', 'i_PAG_CodCta_', 'i_PAG_CodMod_','i_PAG_HisPag_' );

$sCus_CodCus = @$_POST['CTP_CodCus_'];
//
// Conferir senha
If ( $sAcao=="CFM_BAIXA" ) {
   $bGravarReg = False;
   
   $s_DtaPag = @$_POST['CTP_DtDigP_'];
   //$n_CodCus = Somente_Numeros(@$_POST['CTP_CodCus_'])+0;
   $n_CodCus = Somente_Numeros(@$aSessao['COD_CUS_B'])+0;
   $n_CodCta = Somente_Numeros(@$_POST['CTP_CodCta_'])+0;
   $n_CodMod = Somente_Numeros(@$_POST['CTP_CodMod_'])+0;
   $s_Histor = UTF8_DECODE(@$_POST['CTP_HisPag_']);
   $n_CodMov = Somente_Numeros(@$_POST['CTP_Id_Mov_'])+0;
   
   
   $nCTP_DtaPag = ConvertDataSTR(ConvertDataBRUS($s_DtaPag));
   
   If ($nCTP_DtaPag<MKTIME(0,0,0,1,1,1990)) {
      $sRet_Javs .=
	     'parent.document.getElementById("i_PAG_DtDigP_").focus();'.
		 Info_Evento('Data de inclusão inválida.',1);
   } ElseIf (STRLEN($s_Histor)<=0) {
	  $sRet_Javs .=
	     'parent.document.getElementById("i_PAG_HisPag_").focus();'.
		 Info_Evento('O histórico é obrigatório.',1);	 
   } ElseIf ($n_CodMod<=0) {
      $sRet_Javs .=
         'parent.document.getElementById("i_PAG_CodMod_").focus();'.
		 Info_Evento('Escolha uma modalidade de pagamento, é obrigatório.',0).
		 '';
   
   } ElseIf ($n_CodCus>0) {
      $Row = MYSQL_QUERY("SELECT * FROM cad_centro_custo WHERE CUS_CODIGOI=".$n_CodCus.";") or die(MYSQL_ERROR());
	  If ( $Row = MYSQL_FETCH_OBJECT($Row) ) {
	     If ( Somente_Numeros(SUBSTR($Row->CUS_CODIGO,4,3))+0==0 ) {
		    $sRet_Javs .=
		       Info_Evento('Não pode escolher um grupo do centro de custo, só o item.',1).
		       '';
	  	 } Else {
			   $bGravarReg = True;
		 }
	  } Else {
		 $sRet_Javs .=
		    Info_Evento('Erro interno, codigo do centro de custo não localizado.',1).
		    '';
	   }
   } ElseIf ($n_CodCta>0) {
      $Row = MYSQL_QUERY("SELECT * FROM cad_contas WHERE CTA_CODIGO=".$n_CodCta.";") or die(MYSQL_ERROR());
	  If (MYSQL_NUM_ROWS($Row)==0) {
	     $sRet_Javs .=
		    Info_Evento('Erro interno, codigo da conta não localizado.',1).
		    '';
	     } Else {
		    $bGravarReg = True;
		 }
   } Else {
      $bGravarReg = True;
   }
	   //
   If ($bGravarReg) {
	
   $Row_FinCtp = MYSQL_QUERY("SELECT * FROM fin_contas_pagar WHERE CTP_ID_MOV=".$n_CodMov.";") or die(MYSQL_ERROR());
   If ( $Row_FinCtp = MYSQL_FETCH_ARRAY($Row_FinCtp) ) { 
      //echo "<script>alert('".'1'."');</script>";
	  //
	  $sSQLQuery =
         "UPDATE fin_contas_pagar SET ".
		     "CTP_DTAPAG='".DATE("Y-m-d H:i:s")."',".
		     "CTP_DTDIGP='".ConvertDataBRUS($s_DtaPag)."',".
		     "CTP_FUNPAG='".$R_CadFuncionario->FUN_CODIGO."',".
		 	 "CTP_VALPAG='".@$aSessao['ValPag']."',".
		 	 "CTP_VALDUP=0,".
		     "CTP_CODCUS= ".$n_CodCus. ",".
		     "CTP_CODCTA= ".$n_CodCta. ",".
		     "CTP_CODMOD= ".$n_CodMod. ",".
		     "CTP_HISPAG=".SQL_Bin($s_Histor)." ".
		  " WHERE CTP_ID_MOV=".$n_CodMov.";";
      MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
   
      //If ( $$nCTP_Id_Mov>0 ) { //gustavo 01/12/2016
      //If ( $nCTP_Id_Mov>0 ) {  // ANDRE 30/06/2017
      If ( $n_CodMov>0 ) {
         // Gravar movimento de conta financeira
         $sMco_NumDoc = $Row_FinCtp['CTP_NUMDUP'];
	     $SMco_Histor = $s_Histor;
         $sSQLQuery =
	        "INSERT INTO mov_contas(".
		       "MCO_CODEMP, MCO_E_DTHR, MCO_FUNINC, MCO_CODDIG, MCO_CODCON, ".
		       "MCO_CODCUS, MCO_NUMDOC, MCO_L_DATA, MCO_VALLAN, MCO_CREDEB, ".
		       "MCO_CODCTP, MCO_HISTOR ".
	        ") VALUES (".
		       $Dados_Empresa['EMP_CODIGOI']    .",".
		       "'".DATE("Y-m-d H:i:s")          ."',".
		       $R_CadFuncionario->FUN_CODIGO    .",".
		       $R_CadFuncionario->FUN_CODIGO    .",".
		       $n_CodCta                        .",".
		       $n_CodCus                        .",".
		       "'".$sMco_NumDoc                 ."',".
		 	   "'".ConvertDataBRUS($s_DtaPag)   ."',".  //DATA DIGITADA DE PAGAMENTO NA HORA DA BAIXA
		      	@$aSessao['ValPag']             .",".
		      	"0"                             .",".
		      	$n_CodMov                       .",".
		        SQL_Bin($SMco_Histor)           ." ".
		    ");";
         MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
			 //
      }
   
   }
   
   $sRet_Javs .=
     $sJavaExeCfm.
     $oJanelaPrinc->sJavOnClickF.
	 "";
   }	
// atualizar
} ElseIf ($sAcao=="ATUALIZA") {
	//$nCTP_CodCus = Somente_Numeros(@$_POST['CTP_CodCus_'])+0;
	$nCTP_CodCta = Somente_Numeros(@$_POST['CTP_CodCta_'])+0;
	$nCTP_CodMod = Somente_Numeros(@$_POST['CTP_CodMod_'])+0;
	$sCTP_HisPag = UTF8_DECODE(@$_POST['CTP_HisPag_']);
	$sCTP_DtDigP = @$_POST['CTP_DtDigP_'];
	
	$nCTP_CodCus = Somente_Numeros($sCus_CodCus)+0;
	$sCTP_NomCus = "";
	
	// centro de custo
	If ( SUBSTR($sCus_CodCus,0,1)=="/" ) {
	   $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $sCus_CodCus );
	   $sCTP_NomCus = "(Consulta)";
	   $sCus_CodCus = '';
       $sRet_Javs .= 
	   $sJavaTravarJ.
	      "setTimeout( function () { ".
		     "var fm = parent.document.forms.fmPTelBaixa;".
		     "TargetAnt = fm.target;".
		     "fm.target='car_".$sNomeAcesso.($nQdrNomeAcs+1)."';".
		     "fm.acao.value=''; ".
		     "fm.submod.value='BAIXA_CSL_PSQCUS'; ".
		     "fm.submit();".
		     "fm.target = TargetAnt;".
		     "fm.submod.value='".$sSubModulo."'; ".
		  "} , 100);".
		  "";
		 //
	   $aSessao[$sNomeAcesso.'_Vars']['Ant_Jan_Id'] = $oJanelaPrinc->sIdObj;
	   $aSessao[$sNomeAcesso.'_Vars']['Ant_Inp_Id'] = $oJanelaPrinc->aIdsObjList[1];
	   $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'] =
	      "parent.Car_".$sNomeAcesso.$nQdrNomeAcs.".Atualiza();".
	      "";
		  //
	  
	} Else {
	   
	   
	   
	   $nCus_CodTmp = $nCTP_CodCus;
  	   $sSQL= 
	      "SELECT ".
		     "CUS_CODIGOI, ".
			 "CUS_CODIGO,  ".
			 "CUS_DESCRI,  ".
			 "CUS_CREDEB ".
		  "FROM cad_centro_custo ".
		  "WHERE ".
		     "CUS_CODIGOI=".$nCus_CodTmp." AND CUS_ATIVO_ ;";
		  
	   $Row_CadCus = MYSQL_QUERY($sSQL) or die($sSQL.MYSQL_ERROR());
		  
	   If ( $Row_CadCus = MYSQL_FETCH_OBJECT($Row_CadCus) ) {
	      $sCTP_NomCus = $Row_CadCus->CUS_DESCRI;
		  $nCTP_CodCus = $Row_CadCus->CUS_CODIGO;
		  $aSessao['COD_CUS_B'] = $Row_CadCus->CUS_CODIGOI;
	   } Else {
	      If ( STRLEN( $nCus_CodTmp )> 3) {
		     
			 
			 $nCus_CodTmp = Str_Zero(SUBSTR( $nCus_CodTmp,0,1),3).'.'.Str_Zero(SUBSTR($nCus_CodTmp,1,3 ),3);
			 
			 $sSQL= 
		        "SELECT ".
			       "CUS_CODIGOI, ".
			       "CUS_CODIGO,  ".
			       "CUS_DESCRI,  ".
			       "CUS_CREDEB ".
			    "FROM cad_centro_custo ".
			    "WHERE ".
			       "CUS_CODIGO=".$nCus_CodTmp." AND CUS_ATIVO_ ;";
				   
			 $Row_CadCus = MYSQL_QUERY($sSQL) or die($sSQL.MYSQL_ERROR());   
		     If ( $Row_CadCus = MYSQL_FETCH_OBJECT($Row_CadCus) ) {
		        $sCTP_NomCus = $Row_CadCus->CUS_DESCRI;
		        $nCTP_CodCus = $Row_CadCus->CUS_CODIGO;
			    $aSessao['COD_CUS_B'] = $Row_CadCus->CUS_CODIGOI;
             } Else {			 
			    If ($nCTP_CodCus>0){
			       $sCTP_NomCus = "( Custo não encontrado )";
		           $aSessao['COD_CUS_B'] = 0;
			    }
			    $nCTP_CodCus = '';	
			 
			 }			

		  } Else {			 
		    If ($nCTP_CodCus>0){
		       $sCTP_NomCus = "( Custo não encontrado )";
		       $aSessao['COD_CUS_B'] = 0;
		    }
			$nCTP_CodCus = '';	
			 
		  }
	   }	 
			 //
		  
	}
	
	
	$sRet_Javs .=
	   "parent.document.getElementById( 'i_PAG_CodCus_').value='"    .$nCTP_CodCus."';".
	   'parent.document.getElementById("i_CodCus_Descri").innerHTML="'.$sCTP_NomCus.'";'.
	   "parent.document.getElementById( 'i_PAG_CodCta_').value='"    .$nCTP_CodCta."';".
	   "parent.document.getElementById( 'i_PAG_CodMod_').value='"    .$nCTP_CodMod."';".
	   "parent.document.getElementById( 'i_PAG_HisPag_').value='"    .$sCTP_HisPag."';".
	   "parent.document.getElementById( 'i_PAG_DtDigP_').value='"    .$sCTP_DtDigP."';".
	   "";	
	

} ElseIf ( $sAcao=="FECHAR" ) {
   $sRet_Javs .=
	   "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	   "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
       "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
	   $sJavaExePos.
	   "";
   If (ISSET($aSessao['COD_CUS_B'])) { 
       UNSET($aSessao['COD_CUS_B']);
   }   
   If (ISSET($aSessao['CodCus'])) {  
      UNSET($aSessao['CodCus']);
   }
   If (ISSET($aSessao['CodCta'])) {  
      UNSET($aSessao['CodCta']);
   }
   If (ISSET($aSessao['ValPag'])) {  
      UNSET($aSessao['ValPag']);
   }

   //
// JANELA TELA PRINCIPAL
} Else {
	
	//
$nCOD_CUS = 0;
$nCOD_CTA = 0;
If (ISSET($aSessao['CodCus'])) {  
    $nCOD_CUS = Somente_Numeros($aSessao['CodCus'])+0;
}
//
If (ISSET($aSessao['CodCta'])) {  
    $nCOD_CTA = Somente_Numeros($aSessao['CodCta'])+0;
}
   //
   // Montagem nos itens de modalidade de pagamento para a combobox
   $sHTML_Combo_CodMod = '<option value="0">* Forma de pagamento *</option>';
   $Rows = MYSQL_QUERY("SELECT * FROM cad_modalidade_pag WHERE MPG_TRAVADO=0 AND MPG_MOS_PAG ORDER BY MPG_N_ORDEM ASC;") or die(MYSQL_ERROR());
   While ($Row = MYSQL_FETCH_OBJECT($Rows)) {
      $sHTML_Combo_CodMod .=
	     '<option value="'.$Row->MPG_CODIGOI.'">'.
		    $Row->MPG_DESCRIC.
		 '</option>';
   }
	   
   // Montagem nos itens do cadastro de contas para a combobox
   $sHTML_Combo_CodCTA = '<option value="0">* Conta financeira *</option>';
   $Rows = MYSQL_QUERY("SELECT * FROM cad_contas WHERE CTA_ATIVO_ ORDER BY CTA_CODIGO ASC;") or die(MYSQL_ERROR());
   While ($Row = MYSQL_FETCH_OBJECT($Rows)) {
      //echo "<script>alert('".$Row->CTA_CODIGO."');</script>";	
	  $sHTML_Combo_CodCTA .=
	  '<option value="'.$Row->CTA_CODIGO.'" '.($Row->CTA_CODIGO==$nCOD_CTA ? 'selected' : '').'>'.$Row->CTA_DESCRI.'</option>';
   }
	
    
   // Montagem nos itens do cadastro de centro de custo para a combobox
   $sHTML_Combo_CodCUS = '<option value="0">* Centro de custo *</option>';
   $Rows = MYSQL_QUERY("SELECT * FROM cad_centro_custo WHERE CUS_ATIVO_ AND CUS_CREDEB=0 ORDER BY CUS_CODIGO ASC;") or die(MYSQL_ERROR());
   While ($Row = MYSQL_FETCH_OBJECT($Rows)) {
      $sHTML_Combo_CodCUS .=
	     //'<option value="'.$Row->CUS_CODIGOI.'">'.
		 //   ( ( Somente_Numeros(SUBSTR($Row->CUS_CODIGO,4,3))+0==0 ) ? "" : "&nbsp;&nbsp;" ).
		 //'<option value="'.$Row->DIR_CODIGOI.'" '.($Row->DIR_CODIGO==CadFun     ? 'selected' : '').'>'.$Row->DIR_DESCRI.'</option>';
		 '<option value="'.$Row->CUS_CODIGOI.'" '.($Row->CUS_CODIGOI==$nCOD_CUS ? 'selected' : '').'>'.$Row->CUS_CODIGO.'-'.$Row->CUS_DESCRI.'</option>';
   }
   
      
	   
   // Tela HTML
   $sRet_TelaJ_HTML =
	  $oJanelaPrinc->MontaJanHTML(True).
      '<form name="fmPTelBaixa" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.($nQdrNomeAcs+1).'">'.
         '<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.'">'.
		 '<input name="CTP_Id_Mov_" type="hidden" value="'.@$_POST['Ctp_Id_Mov'].'">'.
		 '<input name="CTP_CodCus_" type="hidden" value="">'.
         '<input name="CTP_CodCta_" type="hidden" value="">'.
         '<input name="CTP_CodMod_" type="hidden" value="">'.
		 '<input name="CTP_HisPag_" type="hidden" value="">'.
		 '<input name="CTP_DtDigP_" type="hidden" value="">'.
      '</form>'.
	  '<table>'.
	     '<tr>'.
		    '<td width="120px" height="26px" valign="middle" align="right" style="font-size:16px;">'.
		       'Valor: R$'.
		   	'</td>'.
		   	'<td width="80px"align="left" valign="middle" style="font-size:16px;" >'.
		   	   '<span id="sp_PAG_ValDup">0,00</span>'.
		   	'</td>'.
	     '</tr>'.
	  '</table>'.
	  '<table>'.
	     '<tr>'.
		    '<td>'.
		       '<div style="height:10px"></div>'.
	           '<div style="width:660px; height:4px; background-color:#91D8F8;"></div>'.
	           '<div style="height:10px"></div>'.
		    '</td>'.
		 '</tr>'.
	  '</table>'.
	  '<table border="0">'.
	     '<tr>'.
            '<td width="160px" height="26px" valign="middle" align="right">'.
		       'Data de pagamento:'.
			   '&nbsp;&nbsp;'.
		   	   '<img src="images/bimg_calendario.png" border="0" id="bt_CTP_DtDP" style="cursor:pointer;">'.
			   '&nbsp;&nbsp;'.'&nbsp;&nbsp;'.
			'</td>'.				   
		    '<td valign="middle" align="left">'.
		   	   '<input id="i_PAG_DtDigP_" value="'.ConvertDataUSBR(DATE("Y-m-d")).'" type="text" maxlength="10" style="width:100px;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Atualiza();">'.
		   	   '<span style="font-size:16px;color:#FF0000;">'.
			      '&nbsp;&nbsp;'.
	    	      '*'.
		       '</span>'.
			'</td>'. 
	     '</tr>'.
	  '</table>'.
	  '<table>'.
	     /*'<tr>'.
		    '<td width="120px" height="26px" valign="middle" align="right">'.
		       'Custo:'.
		   	'</td>'.
		   	'<td align="left" valign="middle">'.
		   	   '<select id="i_PAG_CodCus_" style="width:400px;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Atualiza();">'.
			      $sHTML_Combo_CodCUS.
		   	   '</select>'.
			   '<span style="font-size:16px;color:#FF0000;">'.
			      '&nbsp;&nbsp;'.
	    	      '*'.
		       '</span>'.
		   	'</td>'.
		 '</tr>'.*/
		 '<tr>'.
       	    '<td height="26px" align="right">'.
		       'Centro de custo:&nbsp;'.
		       HTML_Botao( 3, 'MovC_BT_PsqCus' , "document.getElementById('i_PAG_CodCus_').value='/';". 
		                                         "Car_".$sNomeAcesso.$nQdrNomeAcs.".Atualiza();"
		                    , ''  ,'images/btimg_lupa.png',24).
		       '&nbsp;'.
		    '</td>'.
		    '<td align="left">'.
		       '<input id="i_PAG_CodCus_"  type="text" value="'.$nCOD_CUS.'" style="width:99%;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Atualiza();">'.
       	    '</td>'.
       	    '<td align="right">'.
		       '<span id="i_CodCus_Descri" style="font-weight:bold;"></span>'.
		       '<span style="font-size:16px;color:#FF0000;">'.
		          '&nbsp;&nbsp;'.
	              '*'.
		       '</span>'.
		    '</td>'.
       	 '</tr>'.
	  '</table>'.
	  '<table>'.
	     '<tr>'.
		    '<td width="120px" height="26px" valign="middle" align="right">'.
		   	   'Conta:'.
		   	'</td>'.
		   	'<td align="left" valign="middle">'.
		   	   '<select id="i_PAG_CodCta_"  style="width:400px;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Atualiza();">'.
			      $sHTML_Combo_CodCTA.
		   	   '</select>'.
			   '<span style="font-size:16px;color:#FF0000;">'.
			      '&nbsp;&nbsp;'.
	    	      '*'.
		       '</span>'.
		   	'</td>'.
		 '</tr>'.
      '</table>'.
	  '<table>'.
	     '<tr>'.
		    '<td width="120px" height="26px" valign="middle" align="right">'.
		   	   'Modalidade:'.
		   	'</td>'.
		    '<td align="left" valign="middle">'.
		   	   '<select id="i_PAG_CodMod_" style="width:400px;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Atualiza();">'.
			      $sHTML_Combo_CodMod.
		   	   '</select>'.
			   '<span style="font-size:16px;color:#FF0000;">'.
			      '&nbsp;&nbsp;'.
	    	      '*'.
		       '</span>'.
		   	'</td>'.
		 '</tr>'.
	  '</table>'.
	  '<table>'.
         '<tr>'.
	        '<td width="120px" height="26px" valign="middle" align="right">'.
		   	   'Histórico:'.
		   	'</td>'.
		   	'<td align="left" valign="middle">'.
		   	   '<input id="i_PAG_HisPag_" type="text" maxlength="200" style="width:400px;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Atualiza();">'.
		   	   '<span style="font-size:16px;color:#FF0000;">'.
			      '&nbsp;&nbsp;'.
	    	      '*'.
		       '</span>'.
			'</td>'.
			
		 '</tr>'.
	  '</table>'.
	  
	  //
      '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       //'<td align="left">'.
        //HTML_Botao( 3, 'objCtpPmCan_BT_Cfm', "parent.document.forms.fmPTelBaixa.Senha_Aut.value = parent.document.getElementById('i_CtpPmCan_Senha').value;".
        //                                     "parent.document.forms.fmPTelBaixa.acao.value='CFM_SENHA';".
        //                                     "parent.document.forms.fmPTelBaixa.submit(); ".
	  	//								     ""
        //             , 'Ok (ENTER)' ,'images/btimg_ativar.png',120).
					 
		'<td align="left" width="150px">'.
		    HTML_Botao( 3, 'bt_CTP_Bai_Dup_PagT', 'Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Baixar();'
			
			//"parent.document.forms.fmPTelBaixa.acao.value='CFM_BAIXA';".
            //                                      "parent.document.forms.fmPTelBaixa.submit(); "
		   , 'Efetuar Baixa (F4)' ,'images/btimg_ativar.png',180).
        '</td>'.
           			 
					 
       //'</td>'.
       '<td width="50%" align="right">'.
        HTML_Botao( 3, 'bt_CTP_Bai_Dup_Fch', $oJanelaPrinc->sJavOnClickF
 		       			, 'Voltar (ESC)' ,'images/btimg_fechar.png',120).
       '</td>'.
      '</tr></table>'.
	  //
	  $oJanelaPrinc->MontaJanHTML(False);
   //
   // Java anterior
   $sRet_Javs .=
      'function Atualiza() {'.
	     "var fm = parent.document.forms.fmPTelBaixa;".
	     "fm.target = 'car_".$sNomeAcesso.($nQdrNomeAcs+1)."';".
         "fm.CTP_CodCus_.value=parent.document.getElementById('i_PAG_CodCus_').value;".
	     "fm.CTP_CodCta_.value=parent.document.getElementById('i_PAG_CodCta_').value;".
	     "fm.CTP_CodMod_.value=parent.document.getElementById('i_PAG_CodMod_').value;".
	     "fm.CTP_HisPag_.value=parent.document.getElementById('i_PAG_HisPag_').value;".
	     "fm.CTP_DtDigP_.value=parent.document.getElementById('i_PAG_DtDigP_').value;".
		 "fm.acao.value='ATUALIZA'; ".
         "fm.submit();".
      '}'.
	  'function Baixar() {'.
	     "var fm = parent.document.forms.fmPTelBaixa;".
	     "fm.target = 'car_".$sNomeAcesso.($nQdrNomeAcs+2)."';".
         "fm.CTP_CodCus_.value=parent.document.getElementById('i_PAG_CodCus_').value;".
	     "fm.CTP_CodCta_.value=parent.document.getElementById('i_PAG_CodCta_').value;".
	     "fm.CTP_CodMod_.value=parent.document.getElementById('i_PAG_CodMod_').value;".
	     "fm.CTP_HisPag_.value=parent.document.getElementById('i_PAG_HisPag_').value;".
	     "fm.CTP_DtDigP_.value=parent.document.getElementById('i_PAG_DtDigP_').value;".
         "fm.acao.value='CFM_BAIXA'; ".
	     "fm.submit();".
      '}'.
	  
	  "function Teclas_F( Objeto, Evento ) {".
        "vNumTecla = parent.Tecla_Apertada(Evento); ".
	    "if ( vNumTecla==116) { ".         // ** [F5] **     Não atualizar
            //
	    "} else if ( vNumTecla==115) { ". // ** [F4] **          Gravar baixa
	       "if ( parent.document.getElementById('bt_CTP_Bai_Dup_PagT').style.display != 'none' ) {".
		      "setTimeout( parent.document.getElementById('bt_CTP_Bai_Dup_PagT').onclick , 10);".
		   "}".
		"} else if ( vNumTecla==13) { ".   // ** [ENTER] **
            //"setTimeout( parent.document.getElementById('objCtpPmCan_BT_Cfm').onclick , 10);".
        "} else if ( vNumTecla==27 ) { ".  // [ESC]
            //"parent.".$sJava_Desfoca_Input.
            "setTimeout( parent.document.getElementById('bt_CTP_Bai_Dup_Fch').onclick , 10);".
		"} else {".
		  "return true;".
		"} ".
        "return false;".
      '}'.
	  '';
   //
   // Java posterior
   $sRet_JavsPos .=
      ($bDir_Baixar ? 
	     '' 
	  :
		 "parent.document.getElementById('bt_CTP_Bai_Dup_PagT').style.display='none';"
	  ).
	  "parent.document.getElementById('sp_PAG_ValDup').innerHTML='".FormatoMoeda(@$aSessao['ValPag'])."';".
      "parent.document.getElementById('i_PAG_DtDigP_').focus();".
	  'Atualiza();'.
	  'parent.Calendar.setup({ '.
            'inputField : "i_PAG_DtDigP_", '.
            'trigger    : "bt_CTP_DtDP", '.
            'onSelect   : function() { this.hide(); Atualiza_Dados(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
	      
	  '';
   //
   //
   
//  ** CONSULTA AO CADASTRO DE CENTRO DE CUSTO **
} 


?>