<?php
REQUIRE_ONCE "./global/fin_funcoes.inc";                  // Carrega as funcoes de contas á receber
//
$sNomeIdJan1    = 'iJan_Ctp_Princ';     // Tela de consulta das contas á pagar
$sNomeIdJan2    = 'iJan_Ctp_EdtBx';     // Tela para editar a baixa da duplicata
$sNomeIdJan3    = 'iJan_Ctp_TelBx';     // Tela de consulta para baixa das contas
$sNomeIdJan4    = 'iJan_Ctp_In_Ed';     // Tela de inclusão / edicão
$sNomeIdJan5    = 'iJan_Ctp_In_Pc';     // Tela de inclusão de parcelamento
$sCorBarraInf   = '#E8E3CE';
$sData_Trabalho = SQLVarConfig('DATA_DE_TRABALHO');
$sCan_Senha_Ctp      = SQLVarConfig('SENHA_INATIVAR_CTP');


$aQuadrosAds    = ARRAY('CADFOR' => 10);

$sLinha_Risco = '<div style="height:4px"></div>'.
	            '<div style="width:990px; height:4px; background-color:#91D8F8;"></div>'.
	            '<div style="height:4px"></div>';

//
// ** TELA DE CONSULTA DAS DUPLICATAS **
//
If ( EMPTY($sSubModulo) ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan1;
    $oJanelaPrinc->nTop    = 5;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 960;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Contas á pagar (Consulta)';
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
	$oJanelaPrinc->aIdsObjList =
	   ARRAY( 'in_CTP_Cod_For','in_CTP_Dt1V','in_CTP_Dt2V','sl_CTP_Opcao_','in_CTP_Cod_Cus','in_CTP_Cod_Cta' );
    //
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible';";
	$sJavaFechaEr = 'document.location.href = "./car_js.php?mod='.$sModulo.'&submod='.$sSubModulo.'&nomeacs='.$sNomeAcesso.'&acao=FECHAR";';
	$oJanelaPrinc->sJavOnClickF =
		 "var fm = parent.document.forms.fmPDup_Pesq;".
		 "fm.target = 'car_".$sNomeAcesso."2';".
         "fm.acao.value='FECHAR'; ".
         "fm.submit();".
		 "";
	//
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
	$oTabelaRegs->sIdObjTabela = 'iQdr_LstCSL';
    $oTabelaRegs->GLstCampos( 'CTP_NUMDUP,Duplicata,66px,STRZERO=8;'.
	                          //'MPG_DESCRIC,Modalidade,100px;'.
							  'CTP_NUMPAR,Parcela,45px,;'.
	                          'CTP_DTAENT,Entrada,76px,DTA;'.
	                          'CTP_DTAVEN,Vencimento,76px,DTA;'.
							  //'FOR_CODIGO,Cód.Forn.,66px,STRZERO=8;'.
							  'FOR_FANTAS,Fornecedor;'.
							  'CUS_DESCRI,Centro de custo,100px,;'.
							  'CTP_VALDUP,Valor,80px,MOE;'.
							  'CTP_VALPAG,Pago,90px,MOE;'
                            );
    $oTabelaRegs->sCampoIndice = 'CTP_ID_MOV';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 400;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."1.P_Atu();";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>); ";
    $oTabelaRegs->sLinhaOnDblClk = "Car_".$sNomeAcesso."1.Editar_Dup();";
    $oTabelaRegs->sJavSelectReg =
	   "sSelIndice = S_Indice;".
	   "parent.document.getElementById('bt_CTP_Csl_Edt').style.display='inline-block';".
	   "parent.document.getElementById('bt_CTP_Csl_Can').style.display='inline-block';".
	   "";
	//
	$aDadosS = @$aSessao[$sNomeAcesso.'_PriCSL'];
	//
	// ** Tela principal **
	If ( EMPTY($sAcao) )  {
	   $aDadosS = ARRAY(
	        "PESQ_CODFOR"  => 0,
			//"PESQ_DT1VEN"  => ConvertDataSTR( $sData_Trabalho ),
			//"PESQ_DT2VEN"  => ConvertDataSTR( $sData_Trabalho ),
			"PESQ_DT1VEN"  => ConvertDataSTR(DATE("Y-m-d")),
			"PESQ_DT2VEN"  => ConvertDataSTR(DATE("Y-m-d")),
			"PESQ_OPCAOR"  => 1,
			"INICIO_MOD"   => True,
			"PESQ_CODCUS"  => 0,
			"PESQ_CODCTA"  => 0
		   );
	   //
	   // Montagem nos itens do cadastro de centro de custo para a combobox
          $sHTML_Combo_CodCUS = '<option value="0">* Todos *</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;" ).
		           $Row->CUS_CODIGO.'-'.$Row->CUS_DESCRI.
		        '</option>';
          }
		  // Montagem nos itens do cadastro de contas para a combobox
          $sHTML_Combo_CodCTA = '<option value="0">* Todos *</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)) {
             $sHTML_Combo_CodCTA .=
	            '<option value="'.$Row->CTA_CODIGO.'">'.
		           $Row->CTA_DESCRI.
		        '</option>';
          }
		  
	   
	   
	   
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  '<style type="text/css">'.   
	          CSS_Estilos(1,$oJanelaPrinc->sIdObj."_Balao").
            '*{'.                         
             'font-family: Arial, sans-serif;'.
            '}'.                          
		  '</style>'.      
		  '<div style="position:absolute; top:-300px;">'.
           '<form name="fmPDup_Pesq" 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.'">'.
            '<input name="Pesq_NumCam" type="hidden" value="">'.
            '<input name="Pesq_CodFor" type="hidden" value="">'.
            '<input name="Pesq_Dt1Ven" type="hidden" value="">'.
            '<input name="Pesq_Dt2Ven" type="hidden" value="">'.
            '<input name="Pesq_OpcaoR" type="hidden" value="">'.
            '<input name="Ctp_Id_Mov" type="hidden" value="">'.
			'<input name="Pesq_CodCus" type="hidden" value="">'.
			'<input name="Pesq_CodCta" type="hidden" value="">'.
		   '</form>'.
		  '</div>'.
		  '<style type="text/css" rel="stylesheet">'.
		    '.Tab_CTP_Rec '.
		      'input,select {'.
		        'height:20px;'.
		        'background:#FFFFFF;'.
		        'border-width:1px;'.
		        'border-style:solid;'.
		        'border-color: #0099FF;'.
		        'font-size:13px;'.
		        'font-weight:bold;'.
		        'color:#444444;'.
		    '}'.
		    '.Tab_CTP_Rec '.
		      'td {'.
			  'height:30px;'.
		      'font-size:14px;'.
		      'color:#222222;'.
		    '}'.
		    '.Tab_CTP_Rec '.
		      'span {'.
		      'font-size:15px;'.
		      'font-weight:bold;'.
		      'color:#444444;'.
		    '}'.
		  '</style>'.
		  '<div style="height:2px;"></div>'.
		  '<table width="100%">'.
		   '<tr>'.
		    '<td width="100px" align="right">'.
			 'Fornecedor:'.
			 '<input type="image" style="position:relative; left:5px;" src="./images/interroga.png" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."1.Interroga_Img('Q_FinRec_Balao_Mod');".'">'.
               '<span id="Q_FinRec_Balao_Mod" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	          'Digite um Código <br>ou Telefone <br>'.
				  'de um Fornecedor<br>'.
				  'ou /(barra) <br> p/ consulta.'.
			   '</span>'.      
			'</td>'.
		    '<td width="270px" align="left">'.
			 '<input id="in_CTP_Cod_For" type="text" maxlength="30" style="width:60px;" onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados();">'.
			 '&nbsp;&nbsp;'.
			 //
			 HTML_Botao( 3, 'Ent_BT_Psq' , "document.getElementById('in_CTP_Cod_For').value='/';". 
			                               'Car_'.$sNomeAcesso.'1.Atualiza_Dados();'
			              , ''  ,'ima	ges/btimg_lupa.png',24).
			  //
			 '<span id="sp_CSL_ForNom" style="font-weight:bold;"></span>'.
			'</td>'.
		    '<td width="160px" align="right">'.
			 'Período de vencimento:'.
			'</td>'.
		    '<td align="left">'.
			 '<table>'.
			  '<tr>'.
			   '<td width="28px" align="center">'.
			    '<img src="images/bimg_calendario.png" border="0" id="bt_CTP_Dt1V" style="cursor:pointer;">'.
			   '</td>'.
			   '<td width="80px" align="left">'.
			    '<input id="in_CTP_Dt1V" type="text" maxlength="10" value="'.ConvertDataUSBR(DATE("Y-m-d")).'" style="width:75px;" onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados();">'.
			   '</td>'.
			   '<td width="28px" align="center">'.
			    '<img src="images/bimg_calendario.png" border="0" id="bt_CTP_Dt2V" style="cursor:pointer;">'.
			   '</td>'.
			   '<td width="80px" align="right">'.
			    '<input id="in_CTP_Dt2V" type="text" maxlength="10" value="'.ConvertDataUSBR(DATE("Y-m-d")).'" style="width:75px;" onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados();">'.
			   '</td>'.
			  '</tr>'.
			 '</table>'.
			'</td>'.
		    '<td width="10px" align="right">'.
			'</td>'.
            '<td width="100px" align="left" valign="middle">'.
		   	 '<select id="sl_CTP_Opcao_" style="width:99%;" onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados();">'.
		   	  '<option value="1">Em aberto</option>'.
		   	  '<option value="2">Pagas</option>'.
		   	  '<option value="0">Todas</option>'.
			 '</select>'.
            '</td>'.
		    '<td width="10px" align="right">'.
			'</td>'.
		    '<td align="left">'. 
       	     HTML_Botao( 3, 'Ent_BT_Psq' , 'Car_'.$sNomeAcesso.'1.P_Atu();'
			              , ''  ,'images/btimg_lupa.png',24).
						  
			'</td>'.
		   '</tr>'.
		  '</table>'.
		  //
		  '<table>'.
	         
			 '<tr>'.
		        '<td height="26px" align="right" width="100px">'.
		           'Centro de custo:'.
		        '</td>'.
		        '<td width="210px" align="left">'.
		           '<select id="in_CTP_Cod_Cus" style="width:210px;" onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados();">'.
			            $sHTML_Combo_CodCUS.
		           '</select>'.
		        '</td>'.
		        '<td width="10px" align="right">'.
			    '</td>'.
		        '<td align="left">'. 
       	           HTML_Botao( 3, 'Ent_BT_Psq' , 'Car_'.$sNomeAcesso.'1.P_Atu();'
			                    , ''  ,'images/btimg_lupa.png',24).
			    '</td>'.
				'<td width="304px" height="26px" valign="middle" align="right">'.
		           'Conta financeira:'.
		        '</td>'.
		        '<td align="left" width="210px">'.
		           '<select id="in_CTP_Cod_Cta" style="width:210px;" onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados();">'.
			          $sHTML_Combo_CodCTA.
		           '</select>'.
		        '</td>'.
				'<td width="11px" align="right">'.
			    '</td>'.
		        '<td align="left">'. 
       	           HTML_Botao( 3, 'Ent_BT_Psq' , 'Car_'.$sNomeAcesso.'1.P_Atu();'
			                    , ''  ,'images/btimg_lupa.png',24).
			    '</td>'.
		     '</tr>'.
          '</table>'.
		  // Lista das duplicatas
		  $oTabelaRegs->MontaDivHtml().
		  //
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
           '<td width="8px" height="40px" align="left">&nbsp;</td>'.
           '</td>'.
           '<td align="left" width="110px">'.
       	    HTML_Botao( 3, 'bt_CTP_Csl_Nov', 'Car_'.$sNomeAcesso.'1.Novo_Dup();'
			             , 'Novo (F6)'   ,'images/btimg_novo.png',100).
           '</td>'.
           '<td align="left" width="200px">'.
       	    HTML_Botao( 3, 'bt_CTP_Csl_NvP', 'Car_'.$sNomeAcesso.'1.Novo_DupP();'
			             , 'Novo parcelamento (F4)','images/btimg_novo.png',190).
           '</td>'.
           '<td align="left" width="116px">'.
            HTML_Botao( 3, 'bt_CTP_Csl_Edt', 'Car_'.$sNomeAcesso.'1.Editar_Dup();'
                         , 'Editar (F7)' ,'images/btimg_editar.png',100).
           '</td>'.
           '<td align="left" width="126px">'.
            HTML_Botao( 3, 'bt_CTP_Csl_Can', 'Car_'.$sNomeAcesso.'1.Cancela_Dup();'
                         , 'Inativar (F8)' ,'images/btimg_remover.png',130).
           '</td>'.
           '<td align="right" width="126px">'.
            HTML_Botao( 3, 'bt_CTP_Csl_Bai', 'Car_'.$sNomeAcesso.'1.Chamar_Baixas();'
                         , 'Pagar Contas (F9)' ,'images/btimg_dinheiro.png',150).
           '</td>'.
           '<td align="right">'.
            HTML_Botao( 3, 'bt_CTP_Psq_Canc', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png',130).
           '</td>'.
           '<td width="8px" align="left">&nbsp;</td>'.
           '</td>'.
          '</tr></table>'.
		  //
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
	   // Java anterior
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
	      "sSelIndice='0';".
          "function P_Atu() {".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('bt_CTP_Csl_Edt').style.display='none';".
		    "parent.document.getElementById('bt_CTP_Csl_Can').style.display='none';".
			"sSelIndice='0';".
         	"setTimeout( function() { ".
		       "var fm = parent.document.forms.fmPDup_Pesq;".
		       "fm.target = 'car_".$sNomeAcesso."3';".
               "fm.acao.value='LISTAR_REG';".
               "fm.Pesq_NumCam.value=nPesq_CampoSel+''; ".
               "fm.submit();".
			" }, 300);".
            'parent.document.getElementById("in_CTP_Cod_For").focus();'.
          '}'.
	      'function Atualiza_Dados() {'.
		    "var fm = parent.document.forms.fmPDup_Pesq;".
		    'fm.Pesq_CodFor.value = parent.document.getElementById("in_CTP_Cod_For").value;'.
			'fm.Pesq_Dt1Ven.value = parent.document.getElementById("in_CTP_Dt1V").value;'.
			'fm.Pesq_Dt2Ven.value = parent.document.getElementById("in_CTP_Dt2V").value;'.
			'fm.Pesq_OpcaoR.value = parent.document.getElementById("sl_CTP_Opcao_").value;'.
			'fm.Pesq_CodCus.value = parent.document.getElementById("in_CTP_Cod_Cus").value;'.
			'fm.Pesq_CodCta.value = parent.document.getElementById("in_CTP_Cod_Cta").value;'.
		    "fm.target = 'car_".$sNomeAcesso."2';".
            "fm.acao.value='ATUALIZA_DADOS'; ".
            "fm.submit();".
          '}'.
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
			 "sAntFocus = parent.sIdHasFocus;".
		     "if ( vNumTecla==116) { ".        // ** [F5] **          Não atualizar
                 //
		     "} else if ( vNumTecla==115) { ". // ** [F4] **          Incluir parcelamento
			     "if ( parent.document.getElementById('bt_CTP_Csl_NvP').style.display != 'none' ) {".
				     "Novo_DupP();".
				 "}".
				 //
		     "} else if ( vNumTecla==117) { ". // ** [F6] **          Nova duplicata
			     "if ( parent.document.getElementById('bt_CTP_Csl_Nov').style.display != 'none' ) {".
				     "Novo_Dup();".
				 "}".
				 //
		     "} else if ( vNumTecla==118) { ". // ** [F7] **          Editar duplicata
			     "if ( parent.document.getElementById('bt_CTP_Csl_Edt').style.display != 'none' ) {".
				     "Editar_Dup();".
				 "}".
		     "} else if ( vNumTecla==119) { ". // ** [F8] **          Deletar duplicata
			     "if ( parent.document.getElementById('bt_CTP_Csl_Can').style.display != 'none' ) {".
				     "Cancela_Dup();".
				 "}".
				 //
		     "} else if ( vNumTecla==120) { ". // ** [F9] **          Chamar tela de baixa de duplicatas
			     "Chamar_Baixas();".
				 //
		     "} else if ( vNumTecla==27) { ".  // ** [ESC] **         // (SAIR)
                 $oJanelaPrinc->sJavOnClickF.
				 //
		     "} else if ( vNumTecla==13) { ".  // ** [ENTER] **
			     "while (true) {".
				    "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),sAntFocus);".
				    "if ( sTempId.length>0 ) {".
				        "parent.document.getElementById(sTempId).focus();".
					    "if (sTempId == parent.sIdHasFocus ) {".
						    //'parent.document.getElementById(sTempId).select();'.
						    "break;".
						"}".
						"sAntFocus=sTempId;".
				    "} else {".
    	                "P_Atu();".
						'break;'.
				    "}".
				 "}".
			     //
			 "} else {".
		         "P_TeclasPress_fm(Evento);".
			     "return true;".
			 "}".
			 "return false;".
          '}'.
          $oTabelaRegs->MontaJavaPri().
		  'function Editar_Dup() {'.
		    "var fm = parent.document.forms.fmPDup_Pesq;".
		    "fm.target = 'car_".$sNomeAcesso."2';".
            'fm.submod.value="EDT";'.
            "fm.acao.value='';".
			'fm.Ctp_Id_Mov.value = sSelIndice;'.
            "fm.submit();".
            'fm.submod.value="'.$sSubModulo.'";'.
			'fm.Ctp_Id_Mov.value = "";'.
		  '}'.
		  'function Novo_Dup() {'.
		    "var fm = parent.document.forms.fmPDup_Pesq;".
		    "fm.target = 'car_".$sNomeAcesso."2';".
            'fm.submod.value="EDT";'.
            "fm.acao.value='';".
			'fm.Ctp_Id_Mov.value = "NOVO";'.
            "fm.submit();".
            'fm.submod.value="'.$sSubModulo.'";'.
			'fm.Ctp_Id_Mov.value = "";'.
		  '}'.
		  'function Novo_DupP() {'.
		    "var fm = parent.document.forms.fmPDup_Pesq;".
		    "fm.target = 'car_".$sNomeAcesso."2';".
            'fm.submod.value="NOVO_PARC";'.
            "fm.acao.value='';".
            "fm.submit();".
            'fm.submod.value="'.$sSubModulo.'";'.
		  '}'.
		  'function Cancela_Dup() {'.
		    "var fm = parent.document.forms.fmPDup_Pesq;".
			'fm.Ctp_Id_Mov.value = sSelIndice;'.
	        "parent.Qdr_Prompt_H(true,'Tem certeza que deseja INATIVAR esta duplicata?',".
		       JAVA_CharCode(
			      "if (_NUM_BOT_==1) { ".
				     ( STRLEN($sCan_Senha_Ctp)==0 ?
		                Info_Evento('Senha de inativar não configurada.<br> Operação não permitida ! <br><br>Configuração do Ecook <br> Aba Senhas. ',1)
					  :
                       
						$sJavaTravarJ.
	                    "var fm = parent.document.forms.fmPDup_Pesq;".
                        "fm.acao.value='';".
                        "fm.submod.value='CFM_INATIVAR';".
			            "TargetAnt = fm.target;".
			            "fm.target='car_".$sNomeAcesso."6';".
                        "fm.submit();".
						"fm.target = TargetAnt;".
                        "fm.submod.value='';"
					  ).
				 "}"
		         
			   ).
			",['Sim','Não']);".
		  '}'.
		  'function Chamar_Baixas() {'.
              "var iQdr = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."'); ".
    	      'iQdr.innerHTML = ""; '.
			  'sSelIndice=0;'.
              $sJavaTravarJ.
              "var fm = parent.document.forms.fmPDup_Pesq;".
			  "sTargetAnt = fm.target;".
              "fm.target = 'car_".$sNomeAcesso."5';".
              "fm.submod.value='TEL_BAIXA'; ".
		      "fm.acao.value=''; ".
              "fm.submit();".
			  "fm.target = sTargetAnt;".
              "fm.submod.value=''; ".
		  '}'.
		  '';
	   //
       // Java posterior
       $sRet_JavsPos .=
    	  "P_Atu();".
          'parent.Calendar.setup({ '.
            'inputField : "in_CTP_Dt1V", '.
            'trigger    : "bt_CTP_Dt1V", '.
            'onSelect   : function() { this.hide(); Atualiza_Dados(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
          'parent.Calendar.setup({ '.
            'inputField : "in_CTP_Dt2V", '.
            'trigger    : "bt_CTP_Dt2V", '.
            'onSelect   : function() { this.hide(); Atualiza_Dados(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
		  "function Interroga_Img(sObjeto) {".
            "if ( parent.document.getElementById(sObjeto).style.display == 'none') {".
              'parent.document.getElementById(sObjeto).style.display="inline";'. 
            "} else {".                   
              'parent.document.getElementById(sObjeto).style.display="none";'. 
            "}".                          
          "}".                            
	      '';
	//
	// LISTAR REGISTROS DE CONTAS Á PAGAR
	} ElseIf ($sAcao=="LISTAR_REG") {
	   $sParamSQL = '';
	   $nP_NumCam = @$_REQUEST['Pesq_NumCam']+0;
	   
	   If ( $nP_NumCam==0 ) { $nP_NumCam=1; }
       $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
	   
		
	   //
	   $sSQLParm = 'CTP_FUNCAN=0 AND CTP_CODEMP='.$Dados_Empresa['EMP_CODIGOI'];
	   $sRet_TelaJ_HTML = '';
	   If ( $aDadosS['PESQ_DT1VEN']>0 ) {
	      $sSQLParm .= ' AND CTP_DTAVEN>="'.DATE("Y-m-d",$aDadosS['PESQ_DT1VEN']).'"';
	   }
	   If ( $aDadosS['PESQ_DT2VEN']>0 ) {
	      $sSQLParm .= ' AND CTP_DTAVEN<="'.DATE("Y-m-d",$aDadosS['PESQ_DT2VEN']).'"';
	   }
	   //
	   If ( $aDadosS['PESQ_CODFOR']>0 ) {
	      $sSQLParm .= ' AND CTP_CODFOR='.$aDadosS['PESQ_CODFOR'];
	   }
	   
	   //
	   If ( $aDadosS['PESQ_CODCUS']>0 ) {
	      $sSQLParm .= ' AND CTP_CODCUS='.$aDadosS['PESQ_CODCUS'];
	   }
	   //
	   If ( $aDadosS['PESQ_CODCTA']>0 ) {
	      $sSQLParm .= ' AND CTP_CODCTA='.$aDadosS['PESQ_CODCTA'];
	   }
	   If ( $aDadosS['PESQ_OPCAOR']==1 ) {           // Em aberto
	      $sSQLParm .= ' AND CTP_DTAPAG=0';
	   } ElseIf ( $aDadosS['PESQ_OPCAOR']==2 ) {     // Pagas
	      $sSQLParm .= ' AND CTP_DTAPAG>0';
	   }
	   
	   
	   $sParamSQL .= ' ORDER BY '.$aLstCampo[0].' ASC ';
	   
	   //
	   $oTabelaRegs->s_PHP_ColunaTb =
		  'If ( $aBDCamposN[$nContador]=="CTP_NUMPAR" ) {'.
		     '$sConteudoCRow = $Row_Temp2Tabela["CTP_NUMPAR"]."/".$Row_Temp2Tabela["CTP_TOTPAR"];'.
		  //'} elseif ( $aBDCamposN[$nContador]=="CTP_CODCUS" ) {'.
		  //   '$sConteudoCRow = $Row_Temp2Tabela["CUS_DESCRI"];'.
		  '}'.
		  "";
	   
	   //
	   $oTabelaRegs->sBDQuery =
	      "SELECT ctp.CTP_ID_MOV , ctp.CTP_NUMDUP, ctp.CTP_NUMPAR, ctp.CTP_DTAENT, ctp.CTP_DTAVEN, ".
		         "ctp.CTP_VALDUP , ctp.CTP_VALPAG, ctp.CTP_TOTPAR, ctp.CTP_CODCUS,".
				 "mpg.MPG_DESCRIC, ".
				 "frn.FOR_CODIGO , frn.FOR_FANTAS, ".
				 "cus.CUS_DESCRI ".
		  "FROM      fin_contas_pagar    AS  ctp ".
		  "LEFT JOIN cad_fornecedor      AS  frn  ON  ctp.CTP_CODFOR = frn.FOR_CODIGO  ".
		  "LEFT JOIN cad_modalidade_pag  AS  mpg  ON  ctp.CTP_CODMOD = mpg.MPG_CODIGOI ".
		  "LEFT JOIN cad_centro_custo    AS  cus  ON  ctp.CTP_CODCUS = cus.CUS_CODIGOI ".
		  "LEFT JOIN cad_contas          AS  cta  ON  ctp.CTP_CODCTA = cta.CTA_CODIGO  ".
		  "WHERE ".$sSQLParm." ".
		  //"ORDER BY CTP_DTAVEN ASC, CTP_DTAENT ASC, CTP_ID_MOV ASC ".
		  $sParamSQL. 
	      ";";
	   
	   //
       $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
	   //
	   If ( (! $aDadosS['INICIO_MOD']) && STRLEN($sRet_TelaJ_HTML)<5 ) {
	      $sRet_TelaJ_HTML =
	        '<table width="100%" height="100%"><tr><td align="center" valign="middle" style="font-size:18px; font-weight:bold; color:#888888;">'.
	         'NENHUMA DUPLICATA Á PAGAR ENCONTRADA'.
	        '</td></tr></table>'. 
	        '';
	   }
	   //
       // Java
       $sRet_Javs .=
           "var iQdr = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."'); ".
    	   'iQdr.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).'; '.
           'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
		   'parent.Car_'.$sNomeAcesso.'1.P_Sel('.$nP_NumCam.');'.
		   "";
       $sRet_TelaJ_HTML = '';
	   $aDadosS['INICIO_MOD'] = False;
	   //
    //
    // ATUALIZAR DADOS EM MEMÓRIA
    } ElseIf ( $sAcao=="ATUALIZA_DADOS" ) {
	   $s_CodFor = @$_POST['Pesq_CodFor'];
	   $s_Dt1Ven = @$_POST['Pesq_Dt1Ven'];
	   $s_Dt2Ven = @$_POST['Pesq_Dt2Ven'];
	   $n_OpcaoR = @$_POST['Pesq_OpcaoR']+0;
	   $s_CodCus = @$_POST['Pesq_CodCus'];
	   $s_CodCta = @$_POST['Pesq_CodCta'];
	   $s_Fantas = '';
	   
	   
	   
	   If ( $aDadosS['PESQ_CODFOR']<>$s_CodFor ) {
	      $aDadosS['CTP_BAIXA_']=ARRAY();
	      //
          // Java
          $sRet_Javs .=
             "var iQdr = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."'); ".
    	     'iQdr.innerHTML = ""; '.
             'parent.Car_'.$sNomeAcesso.'4.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
		     "";
	   }
	   $aDadosS['PESQ_CODFOR']=0;
	   $aDadosS['PESQ_OPCAOR']=$n_OpcaoR;
	   If ( SUBSTR($s_CodFor,0,1)=="/" ) {
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $s_CodFor );
		  $s_CodFor = '';
		  $s_Fantas = "(Consulta)";
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fmPDup_Pesq;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."10';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='CSL_PSQFOR'; ".
		          "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[0];
	      $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'] =
               "parent.Car_".$sNomeAcesso."1.Atualiza_Dados();".
	           "parent.Car_".$sNomeAcesso."1.P_Atu();".
               "";
		  //
	   } Else {
	       //$s_CodFor = Somente_Numeros($s_CodFor)+0;
	       If ( ! EMPTY($s_CodFor) ) {
	          $Row_CadFor = MYSQL_QUERY("SELECT * FROM cad_fornecedor WHERE FOR_CODIGO='".$s_CodFor."' AND FOR_ATIVO_;") or die(MYSQL_ERROR());
		      If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
		         $s_Fantas = $Row_CadFor->FOR_FANTAS;
		    	 $s_CodFor = Str_Zero($s_CodFor,6);
	             $aDadosS['PESQ_CODFOR']=$Row_CadFor->FOR_CODIGO;
		      } Else {      // Fornecedor não encontrado
                 $sSQLQueryA =
			       "SELECT TEL_NUMERO,TEL_TRAREG,TEL_CODCAD FROM cad_telefones ".
	               "WHERE ".
		  	       "TEL_NUMERO='".STR_REPLACE("-","",$s_CodFor)."' AND ".
		  	       "(TEL_TRAREG=0 OR TEL_TRAREG=2) ".
		  	       ";";
			     $RowsT = MYSQL_QUERY($sSQLQueryA) Or Die($sSQLQueryA.'<br>'.MYSQL_ERROR());
                 If ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
			        $s_CodFor = $RowT->TEL_CODCAD;
				    $sSQLQueryC = "SELECT FOR_CODIGO, FOR_FANTAS FROM cad_fornecedor WHERE FOR_CODIGO='".$RowT->TEL_CODCAD."' AND FOR_ATIVO_;"; 
			        $Row_CadFor = MYSQL_QUERY($sSQLQueryC) Or Die(MYSQL_ERROR().'<br>'.$sSQLQueryC);
			        If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
	                   $s_CodFor = Str_Zero($s_CodFor,6);
	                   $s_Fantas = $Row_CadFor->FOR_FANTAS;
					   $aDadosS['PESQ_CODFOR']=$Row_CadFor->FOR_CODIGO;
				    } Else {
				       $s_CodFor = '';
	                   $s_Fantas = '(Fornecedor não encontrado)';
		            }
				 } Else {
				    $s_CodFor = '';
	                $s_Fantas = '(Fornecedor não encontrado)';
				 }
		      }		 
	       } Else {         // Codigo vazio
	          $s_Fantas = '(Todos)';
		      $s_CodFor = '';
	       }
	   }
	   FOR ($nContar=1;$nContar<=2;$nContar++) {
	     $s_Temp1 = '';
	     $n_Temp1 = 0;
		 EVAL( '$s_Temp1=$s_Dt'.$nContar.'Ven;' );
	     $n_Temp1 = ConvertDataSTR(ConvertDataBRUS($s_Temp1));
	     If ( $n_Temp1 < MKTIME(0,0,0,1,1,2000) ) {
	        $s_Temp1 = '';
	     } Else {
	        $s_Temp1 = DATE("d/m/Y",$n_Temp1);
	     }
		 EVAL( '$s_Dt'.$nContar.'Ven=$s_Temp1;' );
	     $aDadosS['PESQ_DT'.$nContar.'VEN']=$n_Temp1;
	   }
	   
	   
	   //
       $aDadosS['PESQ_CODCUS']= $s_CodCus;
	   $aDadosS['PESQ_CODCTA']= $s_CodCta;
	   // Java
       $sRet_Javs .=
	        'parent.document.getElementById("in_CTP_Cod_For").value = "'.$s_CodFor.'";'.
			'parent.document.getElementById("sp_CSL_ForNom").innerHTML = '.JAVA_CharCode_Mini($s_Fantas).';'.
			'parent.document.getElementById("in_CTP_Dt1V").value = "'.$s_Dt1Ven.'";'.
			'parent.document.getElementById("in_CTP_Dt2V").value = "'.$s_Dt2Ven.'";'.
			'parent.document.getElementById("in_CTP_Cod_Cus").value = "'.$s_CodCus.'";'.
			'parent.document.getElementById("in_CTP_Cod_Cta").value = "'.$s_CodCta.'";'.
			"";
	//
    // CANCELA DUPLICATA
    } ElseIf ( $sAcao=="CAN_DUP" ) {
       $sCTP_Id_Mov = @$_POST['Ctp_Id_Mov'];
	   $sCTP_DtaVen = @$_POST['CTP_DtaVen'];
	   $sCTP_ValDup = @$_POST['CTP_ValDup'];
	   
	   $bPod_Ina = True;
	   $Row_FinCTP = MYSQL_QUERY("SELECT * FROM fin_contas_pagar WHERE CTP_ID_MOV='".($sCTP_Id_Mov+0)."' ;") or die(MYSQL_ERROR());
       If ( $Row_FinCTP = MYSQL_FETCH_ARRAY($Row_FinCTP)) {
		 If ( $Row_FinCTP['CTP_VALPAG']>0 ) {
	        $bPod_Ina = False;
            $sRet_Javs .= 
		       Info_Evento('Não é permitido inativar uma duplicata já paga.',1);
		 }
	   } Else {
	     $bPod_Ina = False;
         $sRet_Javs .= 
		    Info_Evento('Duplicata á pagar não encontrada.',1);
	   }
	   
	   
	   If ( $bPod_Ina ) {
	   
	      ///
	      $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='".$sCTP_Id_Mov."';";
	      MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
	      
		  //GRAVA NO ARQUIVO LOG_CTRCTP 
		  $Row_FinCTP = MYSQL_QUERY("SELECT * FROM fin_contas_pagar WHERE CTP_ID_MOV='".($sCTP_Id_Mov+0)."' ;") or die(MYSQL_ERROR());
          If ( $Row_FinCTP = MYSQL_FETCH_ARRAY($Row_FinCTP)) {
		     $sSQLQueryL =
                "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 (".
	               " ".($sCTP_Id_Mov+0)          ." ,".
				   $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'] ."',".
				   "'".$sCTP_DtaVen              ."',". 
	               $Row_FinCTP['CTP_VALDUP']     .",".
				   "'".$sCTP_ValDup              ."',". 
	               "1,".
				   "1 ".  //CANCELOU
	            "); ";
              MYSQL_QUERY($sSQLQueryL) or die(MYSQL_ERROR().' '.$sSQLQueryL);
	      }
		  //
		  ///
	      ///
          $sRet_Javs .=
			  "parent.JanEspera(false);".
	          'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
			  "";
			  
			  
			  
			  
	   }
	//
	// CANCELA DUPLICATA
    //} ElseIf ( $sAcao=="BAI_DUP" ) {
       
	
	
	
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
          "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
          'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
          "";
    }
  	$aSessao[$sNomeAcesso.'_PriCSL'] = $aDadosS;
//
//  ** CADASTRO (NOVO/EDITA) DUPLICATA **
//
} ElseIf ( $sSubModulo=="EDT" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan4; 
    $oJanelaPrinc->nTop    = 50;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 610;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft   += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Duplicata á pagar';
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."2.Teclas_F(this,event);";
	$oJanelaPrinc->aIdsObjList =
	   ARRAY('iCadECTP_NumDup','iCadECTP_NumPar','iCadECTP_TotPar','iCadECTP_CodFor','iCadECTP_DtaInc','iCadECTP_DtaVen',
	         'iCadECTP_ValDup','iCadECTP_Histor','iCadECTP_CodCus','iCadECTP_CodCta'
	);
	//
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnClickF =
	     $sJavaTravarJ.
         "document.forms.fm_RegDup.acao.value='FECHAR'; ".
         "document.forms.fm_RegDup.submit();".
		 "";
	//
    $sCTP_Id_Mov = @$_POST['Ctp_Id_Mov'];
	$sCTP_NumDup = @$_POST['CTP_NumDup'];
    $sCTP_NumPar = @$_POST['CTP_NumPar'];
    $sCTP_TotPar = @$_POST['CTP_TotPar'];
    $sCTP_CodFor = @$_POST['CTP_CodFor'];
    $sCTP_DtaInc = @$_POST['CTP_DtaInc'];
    $sCTP_DtaVen = @$_POST['CTP_DtaVen'];
	$sCTP_ValDup = @$_POST['CTP_ValDup'];
	$sCTP_Histor = UTF8_DECODE(@$_POST['CTP_Histor']);
	$sCTP_CodMod = @$_POST['CTP_CodMod'];
	//$sCus_CodCus = Somente_Numeros(@$_POST['CTP_CodCus'])+0;
	$sCus_CodCus = @$_POST['CTP_CodCus'];
	$sCta_CodCta = Somente_Numeros(@$_POST['CTP_CodCta'])+0;
	$sId_Campo_S = @$_POST['Id_Campo_Sel'];
	//
	// VALIDAR OS CAMPOS
    If ( $sAcao=="VALIDA_CAMPOS" ) {
	   $sCTP_NumDup = Somente_Numeros($sCTP_NumDup)+0;
	   $nCTP_CodFor = Somente_Numeros($sCTP_CodFor)+0;
	   $sCTP_NumPar = Somente_Numeros($sCTP_NumPar)+0;
	   $sCTP_TotPar = Somente_Numeros($sCTP_TotPar)+0;
	   $sCTP_NomFor = "";
	   $sCTP_Histor = $sCTP_Histor;
	   //$sCus_CodCus = Somente_Numeros($sCus_CodCus)+0;
	   $nCus_CodCus = Somente_Numeros($sCus_CodCus)+0;
	   $sCTP_NomCus = "";
	   //$nCus_CodCus = 0;
	   $sCta_CodCta = Somente_Numeros($sCta_CodCta)+0;
	   //
	   // ** Validar
	   If ( $sCTP_NumDup==0 ) {
	      $sCTP_NumDup = "";
	   } Else {
	      $sCTP_NumDup = Str_Zero($sCTP_NumDup,8);
	   }
	   //
	   If ( $sCTP_NumPar>99 OR $sCTP_NumPar==0 ) { $sCTP_NumPar = 1; }
	   If ( $sCTP_TotPar>99 Or $sCTP_TotPar==0 ) { $sCTP_TotPar = 1; }
	   If ( $sCTP_NumPar>$sCTP_TotPar ) { $sCTP_NumPar=1; $sCTP_TotPar=1; }
	   $sCTP_NumPar = Str_Zero($sCTP_NumPar,2);
	   $sCTP_TotPar = Str_Zero($sCTP_TotPar,2);
	   //
	   If ( SUBSTR($sCTP_CodFor,0,1)=="/" ) {
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $sCTP_CodFor );
		  $sCTP_NomFor = "(Consulta)";
		  $sCTP_CodFor = '';
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fm_RegDup;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."10';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='CSL_PSQFOR'; ".
		          "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[3];
	      $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'] =
		       'parent.Car_'.$sNomeAcesso.'2.Valida_Campos();'.
               "";
		  //
	   } ElseIf ( $nCTP_CodFor==0 ) {
          $sCTP_NomFor = "( O fornecedor é obrigatório )";
		  $sCTP_CodFor = '';
	   } Else {
	      $Row_CadFor = MYSQL_QUERY("SELECT * FROM cad_fornecedor WHERE FOR_CODIGO='".$nCTP_CodFor."' AND FOR_ATIVO_ LIMIT 1;") or die(MYSQL_ERROR());
		  If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
		     $sCTP_CodFor = Str_Zero($Row_CadFor->FOR_CODIGO,8);
			 $sCTP_NomFor = $Row_CadFor->FOR_FANTAS;
		     $nCus_CodCus = $Row_CadFor->FOR_CODCUS;
		  } Else {
             $sSQLQueryA =
			    "SELECT TEL_NUMERO,TEL_TRAREG,TEL_CODCAD FROM cad_telefones ".
	            "WHERE ".
		  	    "TEL_NUMERO='".STR_REPLACE("-","",$sCTP_CodFor)."' AND ".
				"TEL_TIPCAD=2 AND ".
		  	    "(TEL_TRAREG=0 OR TEL_TRAREG=2) ".
		  	    ";";
                 
			 $RowsT = MYSQL_QUERY($sSQLQueryA) Or Die($sSQLQueryA.'<br>'.MYSQL_ERROR());
             If ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
			    $sCTP_CodFor = $RowT->TEL_CODCAD;
			    $sSQLQueryC = "SELECT FOR_CODIGO, FOR_FANTAS, FOR_CODCUS FROM cad_fornecedor WHERE FOR_CODIGO='".$RowT->TEL_CODCAD."' AND FOR_ATIVO_;"; 
			    $Row_CadFor = MYSQL_QUERY($sSQLQueryC) Or Die(MYSQL_ERROR().'<br>'.$sSQLQueryC);
			    If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
	               $sCTP_CodFor = Str_Zero($sCTP_CodFor,6);
	               $sCTP_NomFor = $Row_CadFor->FOR_FANTAS;
				   $nCus_CodCus = $Row_CadFor->FOR_CODCUS;
			    } Else {
                   $sCTP_NomFor = "( Fornecedor não encontrado )";
		           $sCTP_CodFor = '';			 
			    }
			  
		     } Else {
			    //
			    $sCTP_NomFor = "( Fornecedor não encontrado )";
		        $sCTP_CodFor = '';
			 }
			 //
		  }
	   }
	   
	   
	   // centro de custo
	   If ( SUBSTR($sCus_CodCus,0,1)=="/" ) {
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $sCus_CodCus );
		  //$sCTP_NomFor = "(Consulta)";
		  $sCTP_NomCus = "(Consulta)";
		  $sCus_CodCus = '';
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fm_RegDup;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."9';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='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[8];
	      $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'] =
		       'parent.Car_'.$sNomeAcesso.'2.Valida_Campos();'.
               "";
		  //
	   
	   } Else {
		  
		  If ($nCus_CodCus>0){ 
		    $nCus_CodTmp = ($nCus_CodCus+0);
		  } Else {
		     $nCus_CodTmp = ($sCus_CodCus+0);
		  }
		  $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;
		     $nCus_CodCus = $Row_CadCus->CUS_CODIGO;
			 $aSessao['COD_CUS'] = $Row_CadCus->CUS_CODIGOI;
		  } Else {
			 
			 If ( STRLEN( $nCus_CodTmp )> 3) {
			    $nCus_CodTmp = Str_Zero($nCus_CodTmp,7);
			    $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;
		           $nCus_CodCus = $Row_CadCus->CUS_CODIGO;
			       $aSessao['COD_CUS'] = $Row_CadCus->CUS_CODIGOI;
                } Else {			 
			       If ($nCus_CodCus>0){
			          $sCTP_NomCus = "( Custo não encontrado )";
		              $aSessao['COD_CUS'] = 0;
			       }
			       $nCus_CodCus = '';	
			 
			    }			

			 } Else {			 
			    If ($nCus_CodCus>0){
			       $sCTP_NomCus = "( Custo não encontrado )";
		           $aSessao['COD_CUS'] = 0;
			    }
			    $nCus_CodCus = '';	
			 
			 }
		  }	 

		  
		  
			 //
		  
	   }
	   //
	   $nCTP_DtaInc = ConvertDataSTR(ConvertDataBRUS($sCTP_DtaInc));
	   If ( $nCTP_DtaInc < MKTIME(0,0,0,1,1,1990) ) {
	      //$nCTP_DtaInc = ConvertDataSTR($sData_Trabalho);
	      $nCTP_DtaInc = 0;
	   }
	   If ( $nCTP_DtaInc==0 ) {
	      $sCTP_DtaInc = '';
	   } Else {
	      $sCTP_DtaInc = DATE("d/m/Y",$nCTP_DtaInc);
	   }
	   //
	   $nCTP_DtaVen = ConvertDataSTR(ConvertDataBRUS($sCTP_DtaVen));
	   If ( $nCTP_DtaVen < MKTIME(0,0,0,1,1,1990) OR $nCTP_DtaVen < $nCTP_DtaInc) {
	      $nCTP_DtaVen = 0;
	   }
	   If ($nCTP_DtaVen==0) {
	      $sCTP_DtaVen = '';
	   } Else {
	      $sCTP_DtaVen = DATE("d/m/Y",$nCTP_DtaVen);
	   }
	   //
	   If ( $sId_Campo_S==$oJanelaPrinc->aIdsObjList[3] ) {  // Puxar centro de custo padrão do fornecedor
		  $sCus_CodCus = $nCus_CodCus;
	   }
	   //
	   $nCTP_ValDup = STR_REPLACE(',','.',Somente_Numeros($sCTP_ValDup,',.'))+0;
	   $sCTP_ValDup = FormatoMoeda($nCTP_ValDup);
	   //
	   // Rescreve na tela
       $sRet_Javs .= 
    	  'parent.document.getElementById("iCadECTP_NumDup").value="'.$sCTP_NumDup.'";'.
		  'parent.document.getElementById("iCadECTP_NumPar").value="'.$sCTP_NumPar.'";'.
		  'parent.document.getElementById("iCadECTP_TotPar").value="'.$sCTP_TotPar.'";'.
		  'parent.document.getElementById("iCadECTP_CodFor").value="'.$sCTP_CodFor.'";'.
		  'parent.document.getElementById("sp_CadECTP_For").innerHTML="'.$sCTP_NomFor.'";'.
		  'parent.document.getElementById("iCadECTP_DtaInc").value="'.$sCTP_DtaInc.'";'.
		  'parent.document.getElementById("iCadECTP_DtaVen").value="'.$sCTP_DtaVen.'";'.
		  'parent.document.getElementById("iCadECTP_ValDup").value="'.$sCTP_ValDup.'";'.
		  'parent.document.getElementById("iCadECTP_Histor").value="'.$sCTP_Histor.'";'.
		  //'parent.document.getElementById("iCadECTP_CodCus").value="'.$sCus_CodCus.'";'.
		  'parent.document.getElementById("iCadECTP_CodCus").value="'.$nCus_CodCus.'";'.
		  'parent.document.getElementById("in_Mco_CodCus_Descri").innerHTML="'.$sCTP_NomCus.'";'.
		  'parent.document.getElementById("iCadECTP_CodCta").value="'.$sCta_CodCta.'";'.
		  '';
	//
	// SALVAR
    } ElseIf ( $sAcao=="SALVAR" ) {
	   //
	   $sCTP_NumDup = Somente_Numeros($sCTP_NumDup)+0;
	   $sCTP_NumPar = Somente_Numeros($sCTP_NumPar)+0;
	   $sCTP_TotPar = Somente_Numeros($sCTP_TotPar)+0;
	   $sCTP_CodFor = Somente_Numeros($sCTP_CodFor)+0;
	   $sCTP_DtaInc = ConvertDataBRUS($sCTP_DtaInc);
	   $sCTP_DtaVen = ConvertDataBRUS($sCTP_DtaVen);
       //$sCus_CodCus = $sCus_CodCus;
	   $sCus_CodCus = $aSessao['COD_CUS'];
	   $sCta_CodCta = $sCta_CodCta;
	   $sCTP_Histor  = $sCTP_Histor;
	   $sCTP_ValDup = STR_REPLACE(',','.',Somente_Numeros($sCTP_ValDup,',.'))+0;
	   //
	   $nCTP_DtaInc = ConvertDataSTR($sCTP_DtaInc);
	   $nCTP_DtaVen = ConvertDataSTR($sCTP_DtaVen);
	   
	   $bBt_Baixa = ($_POST['Prx_Acao_B']=="BAIXAR" && $sCTP_ValDup>0 && $sCTP_CodFor>0);
	   $aSessao['Bt_Baixa'] = $bBt_Baixa;
	   
	   //
	   $bGravarReg = False;
       $sRet_Javs .= 
	      "parent.JanEspera(false);".
		  "";
	   If ( $sCTP_CodFor==0 ) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_CodFor").focus();'.
		     Info_Evento('O Fornecedor é obrigatório.',1);
	   } ElseIf ($sCTP_NumPar==0 OR $sCTP_TotPar==0 ) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_NumPar").focus();'.
		     Info_Evento('Numero de parcelas inválido.',1);
	   } ElseIf ($sCTP_ValDup<=0) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_ValDup").focus();'.
		     Info_Evento('Valor da duplicata é inválido.',1);
	   } ElseIf ($nCTP_DtaInc<MKTIME(0,0,0,1,1,1990)) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_DtaInc").focus();'.
		     Info_Evento('Data de inclusão inválida.',1);
	   } ElseIf ($nCTP_DtaVen<MKTIME(0,0,0,1,1,1990)) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_DtaVen").focus();'.
		     Info_Evento('A data de vencimento deve ser igual ou maior a data de inclusão.',1);
       } ElseIf ($sCTP_NumDup<=0) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_NumDup").focus();'.
		     Info_Evento('O Número do Documento é obrigatório.',1);	 
       } ElseIf (STRLEN($sCTP_Histor)<=0) {
			$sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_Histor").focus();'.
		     Info_Evento('O histórico é obrigatório.',1);	 
       } ElseIf ($sCus_CodCus>0) {
	      $Row = MYSQL_QUERY("SELECT * FROM cad_centro_custo WHERE CUS_CODIGOI=".$sCus_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 ($sCta_CodCta>0) {
	      $Row = MYSQL_QUERY("SELECT * FROM cad_contas WHERE CTA_CODIGO=".$sCta_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) {
	      If ( $sCTP_Id_Mov=="NOVO" ) {
             //$nCTP_Id_Mov = MYSQL_QUERY("SHOW TABLE STATUS LIKE 'fin_contas_pagar';") or die(MYSQL_ERROR());
			 //$nCTP_Id_Mov = MYSQL_FETCH_OBJECT($nCTP_Id_Mov);
			 //$nCTP_Id_Mov = $nCTP_Id_Mov->Auto_increment;
             MYSQL_QUERY(   // Cria um novo registro
               "INSERT INTO fin_contas_pagar(CTP_CODEMP,CTP_DTAENT,CTP_VALORI,CTP_FUNINC)".
			   " VALUES (".
			     $Dados_Empresa['EMP_CODIGOI'].",".
				 "'".DATE("Y-m-d H:i:s")."',".
				 $sCTP_ValDup.",".
				 $R_CadFuncionario->FUN_CODIGO.
			   "); "
			 ) Or // Erro ao garavar o novo registro
	           $sRet_Javs .= Info_Evento('ERRO FATAL: '.MYSQL_ERROR(),1)
			 ;
			 $nCTP_Id_Mov = MYSQL_INSERT_ID();
			 //
	      } Else {
	         $nCTP_Id_Mov = Somente_Numeros($sCTP_Id_Mov)+0;
	      }
	      $Row_FinCTP = MYSQL_QUERY("SELECT * FROM fin_contas_pagar WHERE CTP_ID_MOV=".($nCTP_Id_Mov)." ;") or die(MYSQL_ERROR());
          If ($Row_FinCTP = MYSQL_FETCH_ARRAY($Row_FinCTP)) {
		     //If ( $sCTP_NumDup==0 ) { $sCTP_NumDup=$nCTP_Id_Mov; } // Automático
		     //
			
			 
			 
             MYSQL_QUERY(   // Cria um novo registro
               "UPDATE fin_contas_pagar SET ".
				 'CTP_NUMDUP="'.$sCTP_NumDup.'",'.
				 'CTP_NUMPAR="'.$sCTP_NumPar.'",'.
				 'CTP_TOTPAR="'.$sCTP_TotPar.'",'.
				 'CTP_CODFOR="'.$sCTP_CodFor.'",'.
				 'CTP_DTAFIC="'.$sCTP_DtaInc.'",'.
				 'CTP_DTAVEN="'.$sCTP_DtaVen.'",'.
				 'CTP_VALDUP="'.$sCTP_ValDup.'",'.
				 'CTP_HISTOR='.SQL_Bin($sCTP_Histor).",".
				 'CTP_FUNALT="'.$R_CadFuncionario->FUN_CODIGO.'",'.
                 "CTP_ULTALT='".DATE("Y-m-d H:i:s")."',".
				 'CTP_CODCTA="'.$sCta_CodCta.'",'.
				 'CTP_CODCUS="'.$sCus_CodCus.'" '.
               "WHERE CTP_ID_MOV=".($nCTP_Id_Mov)."; ") or die(MYSQL_ERROR());
	         
			 $aSessao['CodCus'] = $sCus_CodCus;
             $aSessao['CodCta'] = $sCta_CodCta;
             $aSessao['ValPag'] = $sCTP_ValDup;
			 
			 
			  If ( $sCTP_Id_Mov<>"NOVO" ) {
			     ///GRAVA LOG DE ALTERAÇÃO
			     $sSQLQueryL =
                 "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 (".
	                " ".($sCTP_Id_Mov+0)          ." ,".
				    $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'] ."',".
				    "'".$sCTP_DtaVen              ."',". 
	                $Row_FinCTP['CTP_VALDUP']     .",".
				    "'".$sCTP_ValDup              ."',". 
	                "1,".
				    "0 ".   // alterou
	             "); ";
                 MYSQL_QUERY($sSQLQueryL) or die(MYSQL_ERROR().' '.$sSQLQueryL);
			 }
			 
			 // atualizar registro
	      } Else {
             // Erro: registro não existe
	         $sRet_Javs .= Info_Evento('ERRO FATAL: Registro de faturamento CTP_ID_MOV=('.$nCTP_Id_Mov.') não existe para gravar.',1);
	      }
          
		  If ($bBt_Baixa) {
		      
			  //
		  } Else {
			 
		     $sRet_Javs .= 
		        $sJavaTravarJ.
	            "document.location.href = './car_js.php?nomeacs=".$sNomeAcesso."&mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&acaoAnt=".$sAcao."';";
		  }
       }
	   
	   If ($bGravarReg) {
		   If ($bBt_Baixa) {
		      $sRet_Javs .= 
		         $sJavaTravarJ.
		         "setTimeout( function () { ".
			        "var fm = parent.document.forms.fm_RegDup;".
			        "TargetAnt = fm.target;".
			        "fm.target='car_".$sNomeAcesso."9';".
		            "fm.acao.value=''; ".
					"fm.Ctp_Id_Mov.value='".$nCTP_Id_Mov."';".
				    "fm.submod.value='CFM_BAIXA'; ".
		            "fm.submit();".
			        "fm.target = TargetAnt;".
		            "fm.submod.value='".$sSubModulo."'; ".
					"document.location.href = './car_js.php?mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR';".
		         "} , 100);".
		         "";
		   }	   
	   
	   }
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .= 
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
		  "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
    	  ( @$aSessao['Bt_Baixa'] ?
		     ""
		  :
		     'parent.document.getElementById("in_CTP_Cod_For").focus();'.
		     "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';" ).
		  (@$_REQUEST['acaoAnt']=='SALVAR' ? "parent.Car_".$sNomeAcesso."1.P_Atu();" : '').
		  "";
		  
		  If( ISSET($aSessao['Bt_Baixa']) ) {
		     UNSET($aSessao['Bt_Baixa']);
		  }	 
	//
	// PUXAR REGISTRO
	} Else {
	   $bMontarJanela = True;
	   $bNovaDup = False;
	   If ( $sCTP_Id_Mov == 'NOVO' ) {
	      $Row_FinCTP = ARRAY();
	      $bNovaDup = True;
	      // Novo
	   } ElseIf ( (Somente_Numeros($sCTP_Id_Mov)+0)==0) {
	      $bMontarJanela = False;
          $sRet_Javs .= 
		     "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	   	     Info_Evento('Selecione uma duplicata á pagar.',0);
	   } Else {
          $Row_FinCTP = MYSQL_QUERY("SELECT * FROM fin_contas_pagar WHERE CTP_ID_MOV='".($sCTP_Id_Mov+0)."' ;") or die(MYSQL_ERROR());
          If ( $Row_FinCTP = MYSQL_FETCH_ARRAY($Row_FinCTP)) {
		     If ( $Row_FinCTP['CTP_VALPAG']>0 ) {
	            $bMontarJanela = False;
                $sRet_Javs .= 
		           "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	   	           Info_Evento('Não é permitido alterar uma duplicata já paga.',1);
			 }
		  } Else {
	         $bMontarJanela = False;
             $sRet_Javs .= 
		        "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	   	        Info_Evento('Duplicata á pagar não encontrada.',1);
	      }
	   }
	   //
	   $sCTP_DtaFic = ConvertDataSTR(@$Row_FinCTP['CTP_DTAFIC']);
	   If ( $sCTP_DtaFic<MKTIME(0,0,0,1,1,1990) ) {
	      //$sCTP_DtaFic = ConvertDataUSBR($sData_Trabalho);
		  $sCTP_DtaFic = ConvertDataUSBR(DATE("Y-m-d"));
	   } Else {
	      $sCTP_DtaFic = DATE("d/m/Y",$sCTP_DtaFic);
	   }
	   //
	   $sCTP_DtaVen = ConvertDataSTR(@$Row_FinCTP['CTP_DTAVEN']);
	   If ( $sCTP_DtaVen<MKTIME(0,0,0,1,1,1990) ) {
	      //$sCTP_DtaVen = ConvertDataUSBR($sData_Trabalho);
		  $sCTP_DtaVen = ConvertDataUSBR(DATE("Y-m-d"));
		  
	   } Else {
	      $sCTP_DtaVen = DATE("d/m/Y",$sCTP_DtaVen);
	   }
       //
	   If ($bMontarJanela) {
		  // Confirma a baixa do registro
	      $sJavClkBaix =
		     JAVA_CharCode(
		        "if (_NUM_BOT_==1) { ".
                   'parent.document.forms.fm_RegDup.Prx_Acao_B.value='."'BAIXAR'".';'.
				   'Car_'.$sNomeAcesso.'2.Salvar_Dup();'.
			    "} else {".
			       'Car_'.$sNomeAcesso.'2.Salvar_Dup();'.
			    "}"
		     );
		   
		  $sJavClkBaix =
		     "Qdr_Prompt_H(true,'Baixar Duplicata?',".$sJavClkBaix.",['Sim','Não']); ";
		  //
		  // 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.'" '.($Row->CUS_CODIGOI==@$Row_FinCTP['CTP_CODCUS'] ? 'selected' : '').'>'.
		           ( ( Somente_Numeros(SUBSTR($Row->CUS_CODIGO,4,3))+0==0 ) ? "" : "&nbsp;&nbsp;" ).
		           $Row->CUS_CODIGO.'-'.$Row->CUS_DESCRI.
		        '</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)) {
             $sHTML_Combo_CodCTA .=
	            '<option value="'.$Row->CTA_CODIGO.'" '.($Row->CTA_CODIGO==@$Row_FinCTP['CTP_CODCTA'] ? 'selected' : '').'>'.
		           $Row->CTA_DESCRI.
		        '</option>';
          }
		  
		  
          $aSessao['COD_CUS'] = @$Row_FinCTP['CTP_CODCUS'];		  
		  
          // Tela HTML
	      //
          $sRet_TelaJ_HTML =
       	  $oJanelaPrinc->MontaJanHTML(True).
		  '<style type="text/css">'.   
	          CSS_Estilos(1,$oJanelaPrinc->sIdObj."_Balao").
            '*{'.                         
             'font-family: Arial, sans-serif;'.
            '}'.                          
		  '</style>'.      
             '<form name="fm_RegDup" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'3">'.
              '<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="'.$sCTP_Id_Mov.'">'.
			  '<input name="Prx_Acao_B" type="hidden" value="">'.
			  '<input name="Id_Campo_Sel" type="hidden" value="">'.
			 '<style type="text/css" rel="stylesheet">'.
		      '.Div_CTP_Dup '.
		        'input,select {'.
		   	   'height:20px;'.
		   	   'background:#FFFFFF;'.
		   	   'border-width:1px;'.
		   	   'border-style:solid;'.
		   	   'border-color: #0099FF;'.
		   	   'font-size:12px;'.
		   	   'font-weight:bold;'.
		   	   'color:#444444;'.
		        '}'.
		      '.Div_CTP_Dup '.
		   	 'span {'.
		   	   'font-size:12px;'.
		   	   'font-weight:bold;'.
		   	   'color:#444444;'.
		   	 '}'.
		     '</style>'.
		     '<div class="Div_CTP_Dup">'.
			  ( $bNovaDup ?
          	  '<table width="100%"></tr>'.
          	   '<td height="40px" align="center" valign="middle" style="font-size:13px; font-weight:bold; color:#333333; background-color:#FFFF66;">'.
			    '* Nova duplicata á pagar *'.
			   '</td>'.
          	  '</tr></table>'
			  : "").
			  '<div style="height:10px;"></div>'.
          	  '<table width="100%"></tr>'.
          	   '<td width="4px" height="24px">&nbsp;</td>'.
          	   '<td align="right" width="120px">'.
	   	        'Nº Documento:'.
          	   '</td>'.
          	   '<td width="73px">'.
	   		    '<input id="iCadECTP_NumDup" name="CTP_NumDup" type="text" value="'.@$Row_FinCTP['CTP_NUMDUP'].'" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
          	   
			   
			   '</td>'.
			   '<td>'.
			      '<span style="font-size:10px;color:#FF0000;">'.
			         '&nbsp;&nbsp;'.
	    	         '* Obrigatório'.
		          '</span>'.
			   '</td>'.
          	   '<td align="right" width="120px">'.
	   	        'Numero da parcela:'.
          	   '</td>'.
          	   '<td width="30px">'.
	   		    '<input id="iCadECTP_NumPar" name="CTP_NumPar" type="text" value="'.@$Row_FinCTP['CTP_NUMPAR'].'" maxlength="2" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
          	   '</td>'.
          	   '<td align="right" width="140px">'.
	   	        'Total de Parcelas:'.
          	   '</td>'.
          	   '<td width="30px">'.
	   		    '<input id="iCadECTP_TotPar" name="CTP_TotPar" type="text" value="'.@$Row_FinCTP['CTP_TOTPAR'].'" maxlength="2" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
          	   '</td>'.
          	   '<td>'.
          	   '</td>'.
          	  '</tr></table>'.
          	  '<table width="100%"></tr>'.
          	   '<td width="4px" height="24px">&nbsp;</td>'.
          	   
			   
			   '<td align="right" width="120px">'.
	   	        'Fornecedor:'.
				   '&nbsp;&nbsp;'.
			      '<input type="image" style="position:relative; left:5px;" src="./images/interroga.png" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."1.Interroga_Img('Q_FinRec_Balao_For');".'">'.
				  '<span id="Q_FinRec_Balao_For" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	             'Digite um Código <br>ou Telefone <br>'.
				     'de um Fornecedor<br>'.
				     'ou /(barra) <br> p/ consulta.'.
			      '</span>'.
			   '&nbsp;&nbsp;'.
				
				
          	   '</td>'.
          	   '<td width="73px">'.
	   		    '<input id="iCadECTP_CodFor" name="CTP_CodFor" type="text" value="'.@$Row_FinCTP['CTP_CODFOR'].'" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
          	   
               '</td>'.
			   
          	   '<td>'.
	   	        '<span id="sp_CadECTP_For" style="font-weight:bold;"></span>'.
          	   '</td>'.
          	  '</tr></table>'.
          	  '<table width="100%"></tr>'.
          	   '<td width="4px" height="24px">&nbsp;</td>'.
          	   '<td align="right" width="120px">'.
	   	        'Data de lançamento:'.
          	   '</td>'.
			   '<td width="73px" align="left">'.
			    '<input id="iCadECTP_DtaInc" name="CTP_DtaInc" type="text" maxlength="10" value="'.$sCTP_DtaFic.'" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
				'</td>'.
			   '<td width="28px" align="center">'.
			    '<img src="images/bimg_calendario.png" border="0" id="bt_CadECTP_DtaInc" style="cursor:pointer;">'.
			   '</td>'.
          	   '<td align="right" width="194px">'.
	   	        'Data de vencimento:'.
          	   '</td>'.
			   '<td width="73px" align="left">'.
			    '<input id="iCadECTP_DtaVen" name="CTP_DtaVen" type="text" maxlength="10" value="'.$sCTP_DtaVen.'"style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
			   '</td>'.
			   '<td width="28px" align="center">'.
			    '<img src="images/bimg_calendario.png" border="0" id="bt_CadECTP_DtaVen" style="cursor:pointer;">'.
			   '</td>'.
          	   '<td>'.
			   '</td>'.
          	  '</tr></table>'.
          	  '<table width="100%"></tr>'.
          	   '<td width="4px" height="24px">&nbsp;</td>'.
          	   '<td align="right" width="120px">'.
	   	        'Valor:'.
          	   '</td>'.
			   '<td width="73px" align="left">'.
			    '<input id="iCadECTP_ValDup" name="CTP_ValDup" type="text" maxlength="12" value="'.FormatoMoeda(@$Row_FinCTP['CTP_VALDUP']+0).'" style="text-align:right; width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
			   '</td>'.
			   '<td>'.
			      '<span style="font-size:10px;color:#FF0000;">'.
			         '&nbsp;&nbsp;'.
	    	         '* Obrigatório'.
		          '</span>'.
			   '</td>'.
          	   '<td>'.
			   '</td>'.
          	  '</tr></table>'.
          	  //
			  '<table width="100%"><tr>'.
          	   '<td width="4px" height="24px">&nbsp;</td>'.
          	   '<td align="right" width="120px">'.
	   	        'Histórico:'.
          	   '</td>'.
			   '<td width="410px" align="left">'.
			    '<input id="iCadECTP_Histor" name="CTP_Histor" type="text" maxlength="60" style="width:99%;">'.
			   '</td>'.
			   '<td>'.
			      '<span style="font-size:10px;color:#FF0000;">'.
			         '&nbsp;&nbsp;'.
	    	         '* Obrigatório'.
		          '</span>'.
			   '</td>'.
          	   '<td>'.
			   '</td>'.
          	  '</tr></table>'.
			  //
			  '<table>'.
				 //'<tr>'.
				 //   '<td width="4px" height="24px">&nbsp;</td>'.
		         //   '<td height="26px" align="right" width="120px">'.
		         //      'Centro de custo:'.
		   	     //   '</td>'.
		   	     //   '<td width="410px" align="left">'.
		   	     //      '<select id="iCadECTP_CodCus" name="CTP_CodCus" style="width:400px;">'.
			     //         $sHTML_Combo_CodCUS.
		   	     //      '</select>'.
		   	     //   '</td>'.
		         //'</tr>'.
				 '<tr>'.
       	            '<td height="26px" align="right">'.
		               'Centro de custo:&nbsp;'.
			              HTML_Botao( 3, 'MovC_BT_PsqCus' , "document.getElementById('iCadECTP_CodCus').value='/';". 
			                                                "Car_".$sNomeAcesso."2.Valida_Campos();"
			              , ''  ,'images/btimg_lupa.png',24).
		                  '&nbsp;'.
		            '</td>'.
					'<td align="left">'.
		               '<input id="iCadECTP_CodCus" name="CTP_CodCus" type="text" value="'.@$Row_FinCTP['CTP_CODCUS'].'" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
       	            '</td>'.
       	            '<td align="right">'.
		               //'<input id="in_Mco_CodCus_Descri" readonly type="text" style="width:290px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	               '<span id="in_Mco_CodCus_Descri" style="font-weight:bold;"></span>'.
					'</td>'.
       	         '</tr>'.
				 
	          '</table>'.
			  '<table>'.
	             '<tr>'.
				    '<td width="4px" height="24px">&nbsp;</td>'.
		            '<td width="120px" height="26px" valign="middle" align="right">'.
		   	           'Conta:'.
		   	        '</td>'.
		   	        '<td align="left" width="410px">'.
		   	           '<select id="iCadECTP_CodCta" name="CTP_CodCta" style="width:400px;">'.
			              $sHTML_Combo_CodCTA.
		   	           '</select>'.
		   	        '</td>'.
		         '</tr>'.
              '</table>'.
			  //
			  '</div>'.
	   	     //
             '</form>'.
             '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
          	  '<td width="4px" height="40px" align="left">&nbsp;</td>'.
          	  '</td>'.
          	  '<td>'.
          	   //HTML_Botao( 3, 'EdtDup_BT_Svl', 'Car_'.$sNomeAcesso.'2.Salvar_Dup();'
	   		   //             , 'Salvar (F10)' ,'images/btimg_salvar.png').'&nbsp;&nbsp;'.
          	   HTML_Botao( 3, 'EdtDup_BT_Svl', $sJavClkBaix
	   	                , 'Salvar (F10)' ,'images/btimg_salvar.png').
           
			  
			  
			  '</td>'.
          	  '<td width="120px" align="left">'.
          	   HTML_Botao( 3, 'EdtDup_BT_Fec', $oJanelaPrinc->sJavOnClickF
                            , 'Sair (ESC)'   ,'images/btimg_fechar.png').
          	  '</td>'.
          	 '</tr></table>'.
       	     $oJanelaPrinc->MontaJanHTML(False);
	      //
          // Java anterior
          $sRet_Javs .= 
	   	     "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='visible';".
		     "parent.Disabled_In_Elems('".$sNomeIdJan1."',true);".
			 //
	   		 "function Valida_Campos() {".
	   		     "var fm = parent.document.forms.fm_RegDup;".
	   		     "fm.acao.value='VALIDA_CAMPOS'; ".
				 "fm.Id_Campo_Sel.value=parent.sIdHasFocus;".
                 //"fm.Prx_Acao_B.value=''; ".				 
	   		     "fm.submit();".
				 "fm.Id_Campo_Sel.value='';".
	   		 "}".
			 "function Salvar_Dup() {".
                 "parent.JanEspera(true, 'Salvando duplicata...');".
				 'Valida_Campos();'.
                 "setTimeout( function () { ".
				    "parent.document.forms.fm_RegDup.acao.value='SALVAR'; ".
       	            "parent.document.forms.fm_RegDup.submit();".
				 "},500);".
			 "}".
	   		 "";
	      //
          // Java posterior
          $sRet_JavsPos .=
       	     'parent.document.getElementById("iCadECTP_Histor").value='.JAVA_CharCode_Mini(@$Row_FinCTP['CTP_HISTOR']).';'.
	   	     'Valida_Campos();'.
       	     'parent.document.getElementById("iCadECTP_NumDup").focus();'.
	   	     //
	   	     "function Teclas_F( Objeto, Evento ) {".
                "vNumTecla = parent.Tecla_Apertada(Evento);".
                "if ( vNumTecla==121) { ".        //  ** [F10] **         // (Gravar)
                "setTimeout( parent.document.getElementById('EdtDup_BT_Svl').onclick , 100);".
				//"Salvar_Dup();".
	   	        "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                    "setTimeout( parent.document.getElementById('EdtDup_BT_Fec').onclick , 100);".
	   	        "} else if ( vNumTecla==13) { ".
	   		        "sAntFocus = parent.sIdHasFocus;".
	   		        "while (true) {".
	   			       "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),sAntFocus);".
	   			       "if ( sTempId.length>0 ) {".
	   			           "parent.document.getElementById(sTempId).focus();".
	   				       "if (sTempId == parent.sIdHasFocus ) { break; }".
	   				       "sAntFocus=sTempId;".
	   			       "} else {".
       	                   'parent.document.getElementById("iCadECTP_NumDup").focus();'.
	   				   	'break;'.
	   			       "}".
	   			    "}".
	   		     //
	   		    "} else {".
	   		        "return true;".
	   		    "}".
	   		    "return false;".
	   	     '}'.
             'parent.Calendar.setup({ '.
               'inputField : "iCadECTP_DtaInc", '.
               'trigger    : "bt_CadECTP_DtaInc", '.
               'onSelect   : function() { this.hide(); Valida_Campos(); }, '.
               'showTime   : 0, '.
               'dateFormat : "%d/%m/%Y" '.
             '});'.
             'parent.Calendar.setup({ '.
               'inputField : "iCadECTP_DtaVen", '.
               'trigger    : "bt_CadECTP_DtaVen", '.
               'onSelect   : function() { this.hide(); Valida_Campos(); }, '.
               'showTime   : 0, '.
               'dateFormat : "%d/%m/%Y" '.
             '});'.
	         '';
          //
	   } Else {
	      $sAcao = 'FECHAR';
	   }
	}
	//
//
//  ** NOVO PARCELAMENTO **
} ElseIf ( $sSubModulo=="NOVO_PARC" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan5;
    $oJanelaPrinc->nTop    = 10;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 610;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Inclusão de parcelamento';
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."2.Teclas_F(this,event);";
	$oJanelaPrinc->aIdsObjList =
	   ARRAY( 'iCadECTP_CodFor', 'iCadECTP_NumDup', 'iCadECTP_DtaInc', 'iCadECTP_TotPar', 'iCadECTP_ValDup', 'iCadECTP_PPcDup',
	          'iCadECTP_DiaVen', 'iCadECTP_Histor', 'iCadECTP_CodCus');
    //
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$sJavaFechaEr = 'document.location.href = "./car_js.php?mod='.$sModulo.'&submod='.$sSubModulo.'&nomeacs='.$sNomeAcesso.'&acao=FECHAR";';
	$oJanelaPrinc->sJavOnClickF =
		 "var fm = parent.document.forms.fm_RegDup;".
		 "fm.target = 'car_".$sNomeAcesso."3';".
         "fm.acao.value='FECHAR'; ".
         "fm.submit();".
		 "";
	//
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sIdObjTabela = 'iQdr_LstParc';
    $oTabelaRegs->GLstCampos( 'CTP_NUMDUP,Duplicata,66px,STRZERO=8;'.
							  'CTP_NUMPAR,Parcela,50px;'.
	                          'CTP_DTAENT,Entrada,85px,DTA;'.
	                          'CTP_DTAVEN,Vencimento,85px,DTA;'.
							  'CTP_VALDUP,Valor da parcela,120px,MOE;'.
							  'CTP_VALRES,Valor total restante,,MOE;'
                            );
    $oTabelaRegs->sCampoIndice   = 'CTP_ID_MOV';
    $oTabelaRegs->nWidth         = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight        = 320;    // Altura
	$oTabelaRegs->bUsarSoMatriz  = True;
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."2.P_Sel(<NUMCAM>);";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."2.PRow_Sel(<QTDCOL>,<SELLIN>); ";
    //$oTabelaRegs->sLinhaOnDblClk = "Car_".$sNomeAcesso."2.Editar_Dup();";
    $oTabelaRegs->sJavSelectReg  =
	   "sSelIndice = S_Indice;".
	   "";
    //
	$nMim_ValorT = 50;      // Só aceitar parcelamento na quantidade apartir de R$ 50,00
	$nMim_ValorP = 5 ;      // Parcela mínima de R$ 5,00
	//
	$aDadosS = @$aSessao[$sNomeAcesso.'_NovParc'];
    $sCTP_Id_Mov = @$_POST['Ctp_Id_Mov'];
	$sCTP_CodFor = @$_POST['CTP_CodFor'];
	$sCTP_NumDup = @$_POST['CTP_NumDup'];
    $sCTP_DtaInc = @$_POST['CTP_DtaInc'];
    $sCTP_TotPar = @$_POST['CTP_TotPar'];
	$sCTP_ValDup = @$_POST['CTP_ValDup'];
	$sCTP_PPcDup = @$_POST['CTP_PPcDup'];
    $sCTP_DiaVen = @$_POST['CTP_DiaVen'];
	$sCTP_Histor = UTF8_DECODE(@$_POST['CTP_Histor']);
    $sCTP_CodCus = @$_POST['CTP_CodCus'];
	$sId_Campo_S = @$_POST['Id_Campo_Sel'];
	//
	// ** Tela principal **
	If ( EMPTY($sAcao) )  {
	   $aDadosS = ARRAY();
	   //
	   // 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;" ).
	            $Row->CUS_CODIGO.'-'.$Row->CUS_DESCRI.
	         '</option>';
       }
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fm_RegDup_2" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'4">'.
           '<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.'">'.
		  '</form>'.
          '<form name="fm_RegDup" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'3">'.
           '<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="Prx_Acao" type="hidden" value="">'.
           '<input name="Id_Campo_Sel" type="hidden" value="">'.
           '<table width="100%"></tr>'.
            '<td align="right" width="105px">'.
	   	     'Fornecedor:'.
            '</td>'.
            '<td width="73px">'.
	   	     '<input id="iCadECTP_CodFor" name="CTP_CodFor" type="text" value="" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
            '</td>'.
            '<td>'.
	   	     '<span id="sp_CadECTP_For" style="font-weight:bold;"></span>'.
            '</td>'.
           '</tr></table>'.
           '<table width="100%"></tr>'.
            '<td align="right" width="105px">'.
	   	     'Nº Documento:'.
            '</td>'.
            '<td width="73px">'.
	   	       '<input id="iCadECTP_NumDup" name="CTP_NumDup" type="text" value="" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
            '</td>'.
            '<td align="right" width="110px">'.
	   	     'Primeiro vencimento:'.
            '</td>'.
		    '<td width="73px" align="left">'.
		     '<input id="iCadECTP_DtaInc" name="CTP_DtaInc" type="text" maxlength="10" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
		    '</td>'.
		    '<td width="28px" align="center">'.
		     '<img src="images/bimg_calendario.png" border="0" id="bt_CadECTP_DtaInc" style="cursor:pointer;">'.
		    '</td>'.
            '<td align="right" width="130px">'.
	   	     'Quantidade de parcelas:'.
            '</td>'.
            '<td width="30px">'.
	   	     '<input id="iCadECTP_TotPar" name="CTP_TotPar" type="text" maxlength="2" style="width:99%; text-align:center;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
            '</td>'.
            '<td>'.
            '</td>'.
           '</tr></table>'.
           '<table width="100%"></tr>'.
            '<td align="right" width="105px">'.
	   	     'Valor total:'.
            '</td>'.
		    '<td width="73px" align="left">'.
		     '<input id="iCadECTP_ValDup" name="CTP_ValDup" type="text" maxlength="12" style="text-align:right; width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
		    '</td>'.
            '<td align="right" width="110px">'.
	   	     'Valor da entrada:'.
            '</td>'.
		    '<td width="73px" align="left">'.
		     '<input id="iCadECTP_PPcDup" name="CTP_PPcDup" type="text" maxlength="12" style="text-align:right; width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
		    '</td>'.
            '<td align="right" width="162px">'.
	   	     'Dia de vencimento:'.
            '</td>'.
		    '<td width="30px" align="left">'.
		     '<input id="iCadECTP_DiaVen" name="CTP_DiaVen" type="text" maxlength="2" style="width:99%; text-align:center;">'.
		    '</td>'.
            '<td>'.
		    '</td>'.
           '</tr></table>'.
           '<table width="100%"></tr>'.
            '<td align="right" width="105px">'.
	   	     'Histórico:'.
            '</td>'.
		    '<td width="469px" align="left">'.
		     '<input id="iCadECTP_Histor" name="CTP_Histor" type="text" maxlength="60" style="width:99%;">'.
		    '</td>'.
            '<td>'.
		    '</td>'.
           '</tr></table>'.
		   '<table>'.
	        '<tr>'.
		      '<td height="26px" align="right" width="105px">'.
		        'Centro de custo:'.
		      '</td>'.
		      '<td width="469px" align="left">'.
		       '<select id="iCadECTP_CodCus" name="CTP_CodCus" style="width:99%;">'.
		          $sHTML_Combo_CodCUS.
		       '</select>'.
		      '</td>'.
		    '</tr>'.
	       '</table>'.
		  '</form>'.
		  // Lista das duplicatas
		  $oTabelaRegs->MontaDivHtml().
		  //
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
           '<td width="4px" height="40px" align="left">&nbsp;</td>'.
           '</td>'.
           '<td>'.
             HTML_Botao( 3, 'btNovDup_BT_Svl', 'Car_'.$sNomeAcesso.'2.Salvar_Dup();'
	   	                  , 'Salvar (F10)' ,'images/btimg_salvar.png').
           
		   '</td>'.
           '<td width="120px" align="left">'.
            HTML_Botao( 3, 'btNovDup_BT_Fec', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)'   ,'images/btimg_fechar.png').
           '</td>'.
          '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       // Java anterior
       $sRet_Javs .= 
          "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='visible';".
		  "parent.Disabled_In_Elems('".$sNomeIdJan1."',true);".
		  //
	   	  "function Valida_Campos() {".
	   	      "var fm = parent.document.forms.fm_RegDup;".
			  "fm.Id_Campo_Sel.value=parent.sIdHasFocus;".
	   	      "fm.acao.value='VALIDA_CAMPOS'; ".
	   	      "fm.submit();".
	   	      "fm.Prx_Acao.value=''; ".
			  "fm.Id_Campo_Sel.value='';".
	   	  "}".
		  //
		  "function Salvar_Dup() {".
             "parent.JanEspera(true, 'Salvando duplicata...');".
		  	 //'Valida_Campos();'.
             "setTimeout( function () { ".
		  	   "parent.document.forms.fm_RegDup.acao.value='SALVAR'; ".
       	       "parent.document.forms.fm_RegDup.submit();".
		  	 "},500);".
		  "}".
		  //
		  $oTabelaRegs->MontaJavaPri().
	      "sSelIndice='0';".
          "function P_Atu() {".
		    $oTabelaRegs->MontaJavaAgu().
			"sSelIndice='0';".
         	"setTimeout( function() { ".
		       "var fm = parent.document.forms.fm_RegDup_2;".
		       "AntTarget = fm.target;".
		       "fm.target = 'car_".$sNomeAcesso."5';".
               "fm.acao.value='GERAR_LISTA'; ".
		       "fm.target = AntTarget;".
               "fm.submit();".
			" }, 300);".
          '}'.
		  //
	   	  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".        //  ** [F10] **         // (Gravar)
                 "Salvar_Dup();".
	   	     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                 "setTimeout( parent.document.getElementById('btNovDup_BT_Fec').onclick , 100);".
	   	     "} else if ( vNumTecla==13) { ".
	   		       "sAntFocus = parent.sIdHasFocus;".
				   "if ( sAntFocus == 'iCadECTP_DiaVen' ) {".
				       'parent.document.forms.fm_RegDup.Prx_Acao.value='."'LISTAR'".';'.
					   'Valida_Campos();'.
				   "}".
	   		       "while (true) {".
	   			       "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),sAntFocus);".
	   			       "if ( sTempId.length>0 ) {".
	   			           "parent.document.getElementById(sTempId).focus();".
	   				       "if (sTempId == parent.sIdHasFocus ) { break; }".
	   				       "sAntFocus=sTempId;".
	   			       "} else {".
       	                'parent.document.getElementById("'.$oJanelaPrinc->aIdsObjList[0].'").focus();'.
	   				   	'break;'.
	   			       "}".
	   			    "}".
	   		    //
	   		   "} else {".
	   		       "return true;".
	   		   "}".
	   		   "return false;".
	   	  '}'.
          "";
       //
       // Java posterior
       $sRet_JavsPos .=
		  "parent.document.getElementById('btNovDup_BT_Svl').style.display='none';".
	      'parent.document.getElementById("'.$oJanelaPrinc->aIdsObjList[0].'").focus();'.
		  'Valida_Campos();'.
		  'P_Atu();'.
		  //
          'parent.Calendar.setup({ '.
            'inputField : "iCadECTP_DtaInc", '.
            'trigger    : "bt_CadECTP_DtaInc", '.
            'onSelect   : function() { this.hide(); Valida_Campos(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
	      "";
	   //
	} ElseIf ( $sAcao=="VALIDA_CAMPOS" ) {
	   $nCTP_CodFor = Somente_Numeros($sCTP_CodFor)+0;
	   $nCTP_DtaInc = ConvertDataSTR(ConvertDataBRUS($sCTP_DtaInc));
	   $nCTP_TotPar = Somente_Numeros($sCTP_TotPar)+0;
	   $nCTP_ValDup = STR_REPLACE(',','.',Somente_Numeros($sCTP_ValDup,',.'))+0;
	   $nCTP_PPcDup = STR_REPLACE(',','.',Somente_Numeros($sCTP_PPcDup,',.'))+0;
	   $nCTP_DiaVen = Somente_Numeros($sCTP_DiaVen)+0;
	   $nCTP_CodCus = 0;
	   //
	   // ** Validar
	   //If ( $sCTP_NumDup==0 ) {
	   //   $sCTP_NumDup = "";
	   //} Else {
	   //   $sCTP_NumDup = Str_Zero($sCTP_NumDup,8);
	   //}
	   //
	   If ( $nCTP_TotPar>99 Or $nCTP_TotPar<2 ) { $nCTP_TotPar = 2; }
	   //
	   If ( SUBSTR($sCTP_CodFor,0,1)=="/" ) {
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $sCTP_CodFor );
		  $sCTP_NomFor = "(Consulta)";
		  $sCTP_CodFor = '';
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fm_RegDup;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."10';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='CSL_PSQFOR'; ".
		          "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[0];
	      $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'] =
               "parent.Car_".$sNomeAcesso."2.Valida_Campos();".
               "";
		  //
	   } ElseIf ( $nCTP_CodFor==0 ) {
          $sCTP_NomFor = "( O fornecedor é obrigatório )";
		  $sCTP_CodFor = '';
	   } Else {
	      $Row_CadFor = MYSQL_QUERY("SELECT * FROM cad_fornecedor WHERE FOR_CODIGO='".$nCTP_CodFor."' AND FOR_ATIVO_ LIMIT 1;") or die(MYSQL_ERROR());
		  If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
		     $sCTP_CodFor = $Row_CadFor->FOR_CODIGO;
			 $sCTP_NomFor = $Row_CadFor->FOR_FANTAS;
			 $nCTP_CodCus = $Row_CadFor->FOR_CODCUS;
		  } Else {
             $sSQLQueryA =
			    "SELECT TEL_NUMERO,TEL_TRAREG,TEL_CODCAD FROM cad_telefones ".
	            "WHERE ".
		  	    "TEL_NUMERO='".STR_REPLACE("-","",$sCTP_CodFor)."' AND ".
				"TEL_TIPCAD=2 AND ".
		  	    "(TEL_TRAREG=0 OR TEL_TRAREG=2) ".
		  	    ";";
                 
			 $RowsT = MYSQL_QUERY($sSQLQueryA) Or Die($sSQLQueryA.'<br>'.MYSQL_ERROR());
             If ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
			    $sCTP_CodFor = $RowT->TEL_CODCAD;
			    $sSQLQueryC = "SELECT FOR_CODIGO, FOR_FANTAS FROM cad_fornecedor WHERE FOR_CODIGO='".$RowT->TEL_CODCAD."' AND FOR_ATIVO_;"; 
			    $Row_CadFor = MYSQL_QUERY($sSQLQueryC) Or Die(MYSQL_ERROR().'<br>'.$sSQLQueryC);
			    If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
	               $sCTP_NomFor = $Row_CadFor->FOR_FANTAS;
			       $nCTP_CodCus = $Row_CadFor->FOR_CODCUS;
			    } Else {
                   $sCTP_NomFor = "( Fornecedor não encontrado )";
		           $sCTP_CodFor = '';			 
			    }
			  
		     } Else {
			    //
			    $sCTP_NomFor = "( Fornecedor não encontrado )";
		        $sCTP_CodFor = '';
			 }
			 //
		  }
	   }
	   $nCTP_CodFor = Somente_Numeros($sCTP_CodFor)+0;
	   If ( $nCTP_CodFor>0 ) {
	      $sCTP_CodFor = Str_Zero($sCTP_CodFor,8);
	   } Else {
	      $sCTP_CodFor = '';
	   }
	   //
	   If ( $nCTP_DtaInc < MKTIME(0,0,0) ) {
	      $nCTP_DtaInc = MKTIME(0,0,0);
	   }
	   //
	   If ( $nCTP_DiaVen<1 Or $nCTP_DiaVen>28 ) {
	      $nCTP_DiaVen = DATE("d",$nCTP_DtaInc);
	      If ( $nCTP_DiaVen>28 ) {
		     $nCTP_DiaVen = 28;
		  }
	   }
	   //
	   If ( $nCTP_ValDup<$nMim_ValorT ) {
	      $nCTP_ValDup = 0;
	   } Else {
	      If ( $nCTP_ValDup-$nCTP_PPcDup<$nMim_ValorT ) {
		     $nCTP_PPcDup = $nCTP_ValDup-$nMim_ValorT;
		  }
	   }
	   If ( $nCTP_ValDup>0 && $nCTP_ValDup<99 ) {
	      $nSmu_Parcelas = FLOOR(($nCTP_ValDup-$nCTP_PPcDup) / $nMim_ValorP);
		  If ( $nSmu_Parcelas < $nCTP_TotPar ) {
		     $nCTP_TotPar = $nSmu_Parcelas;
		  }
	   }
	   //
	   If ( $sId_Campo_S==$oJanelaPrinc->aIdsObjList[0] ) {
		  $sCTP_CodCus = $nCTP_CodCus;
	   }
	   //
	   $sCTP_DtaInc = DATE("d/m/Y",$nCTP_DtaInc);
	   $sCTP_ValDup = FormatoMoeda($nCTP_ValDup);
	   $sCTP_PPcDup = FormatoMoeda($nCTP_PPcDup);
	   $sCTP_TotPar = Str_Zero($nCTP_TotPar,2);
	   $sCTP_DiaVen = Str_Zero($nCTP_DiaVen,2);
	   $bBt_Calcula = ($_POST['Prx_Acao']=="LISTAR" && $nCTP_ValDup>0 && $nCTP_CodFor>0);
	   //
	   $aDadosS["CTP_NUMDUP"] = $sCTP_NumDup;
	   $aDadosS["CTP_CODFOR"] = $nCTP_CodFor;
	   $aDadosS["CTP_DTAINC"] = $nCTP_DtaInc;
	   $aDadosS["CTP_VALDUP"] = $nCTP_ValDup;
	   $aDadosS["CTP_PPCDUP"] = $nCTP_PPcDup;
	   $aDadosS["CTP_TOTPAR"] = $nCTP_TotPar;
	   $aDadosS["CTP_DIAVEN"] = $nCTP_DiaVen;
	   //
	   $sRet_TelaJ_HTML =
	     '<table width="100%" height="100%"><tr><td align="center" valign="middle" style="font-size:18px; font-weight:bold; color:#888888;">'.
	      'NENHUMA PARCELA CALCULADA'.
	     '</td></tr></table>'. 
	     '';
	   //
	   // ** Rescreve na tela
       $sRet_Javs .= 
          "var iQdr = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."'); ".
    	  'iQdr.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).'; '.
    	  'parent.document.getElementById("iCadECTP_NumDup").value="'.$sCTP_NumDup.'";'.
		  'parent.document.getElementById("iCadECTP_TotPar").value="'.$sCTP_TotPar.'";'.
		  'parent.document.getElementById("iCadECTP_CodFor").value="'.$sCTP_CodFor.'";'.
		  'parent.document.getElementById("sp_CadECTP_For").innerHTML="'.$sCTP_NomFor.'";'.
		  'parent.document.getElementById("iCadECTP_DtaInc").value="'.$sCTP_DtaInc.'";'.
		  'parent.document.getElementById("iCadECTP_DiaVen").value="'.$sCTP_DiaVen.'";'.
		  'parent.document.getElementById("iCadECTP_ValDup").value="'.$sCTP_ValDup.'";'.
		  'parent.document.getElementById("iCadECTP_PPcDup").value="'.$sCTP_PPcDup.'";'.
		  'parent.document.getElementById("iCadECTP_CodCus").value="'.$sCTP_CodCus.'";'.
		  ( $bBt_Calcula ? "parent.Car_".$sNomeAcesso."2.P_Atu();" : "").
		  '';
	   $sRet_TelaJ_HTML = "";
	   //
	// Gerar parcelas em duplicatas
	} ElseIf ( $sAcao=="GERAR_LISTA" ) {
	   //
	   $oTabelaRegs->aLstItensTab = ARRAY();
	   If ( (@$aDadosS["CTP_VALDUP"]+0)>0 ) {
	      $nCnt_Parcela = 0;
	      $nCnt_Prx_Mes = 0;
	      $nValorRes    = $aDadosS["CTP_VALDUP"];
		  $nQtd_Prc     = $aDadosS["CTP_TOTPAR"];
		  If ( $aDadosS["CTP_PPCDUP"]>0 ) { $nQtd_Prc -= 1; }
	      $nPadrao_Prc  = FLOOR((($aDadosS["CTP_VALDUP"]-$aDadosS["CTP_PPCDUP"]) / $nQtd_Prc)*100)/100;
	      While ( True ) {
	        $nCnt_Parcela++;
	        $nDataVenc = $aDadosS["CTP_DTAINC"];
		    If ( $aDadosS["CTP_PPCDUP"]>0 && $nCnt_Parcela==1 ) {
		   	   $nValorPrc = $aDadosS["CTP_PPCDUP"];
		    } Else {
		       $nCnt_Prx_Mes++;
		   	   $nDataVenc = MKTIME(0,0,0,(DATE("m",$nDataVenc)+$nCnt_Prx_Mes), $aDadosS["CTP_DIAVEN"], DATE("Y",$nDataVenc));
		       $nValorPrc = $nPadrao_Prc;
		    }
		    $nValorRes -= $nValorPrc;
			If ( $nCnt_Parcela == $aDadosS["CTP_TOTPAR"] && $nValorPrc>0 ) {
			   $nValorPrc += $nValorRes;
			   $nValorRes  = 0;
			}
	        $aItem =
		      ARRAY( "CTP_ID_MOV" => $nCnt_Parcela+100,
		             "CTP_NUMDUP" => $aDadosS["CTP_NUMDUP"],
	                 "CTP_NUMPAR" => $nCnt_Parcela,
	                 "CTP_DTAENT" => DATE("Y-m-d"),
	                 "CTP_DTAVEN" => DATE("Y-m-d",$nDataVenc),
	                 "CTP_VALDUP" => $nValorPrc,
	                 "CTP_VALRES" => $nValorRes
		      );
			//
			$oTabelaRegs->aLstItensTab[] = $aItem;
		    If ( $nCnt_Parcela == $aDadosS["CTP_TOTPAR"] ) { BREAK; }
	      }
	   }
	   $aDadosS["LISTA_PARC"] = $oTabelaRegs->aLstItensTab;
	   //
	   $bBt_Salvar = False;
	   If ( EMPTY($oTabelaRegs->aLstItensTab) ) {
	      $sRet_TelaJ_HTML =
	        '<table width="100%" height="100%"><tr><td align="center" valign="middle" style="font-size:18px; font-weight:bold; color:#888888;">'.
	         'NENHUMA PARCELA CALCULADA'.
	        '</td></tr></table>'. 
	        '';
	   } Else {
          $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
		  $bBt_Salvar = True;
	   }
	   //
       // Java
       $sRet_Javs .=
           "var iQdr = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."'); ".
    	   'iQdr.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).'; '.
           'parent.Car_'.$sNomeAcesso.'3.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
		   "parent.document.getElementById('btNovDup_BT_Svl').style.display='".($bBt_Salvar ? "inline-block" : "none")."';".
		   "";
       $sRet_TelaJ_HTML = '';
	//
    // SALVAR DUPLICATAS
    } ElseIf ( $sAcao=="SALVAR" ) {
	   $aListaPrc = @$aDadosS["LISTA_PARC"];
	   $bGravarReg = False;
	   $sRet_Javs .= 
	      "parent.JanEspera(false);".
		  "";
	   If ( (0+@$aDadosS["CTP_CODFOR"])==0 ) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_CodFor").focus();'.
		     Info_Evento('O Fornecedor é obrigatório.',1);
	   } ElseIf ( (0+@$aDadosS["CTP_TOTPAR"])<2 ) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_TotPar").focus();'.
		     Info_Evento('Numero de parcelas inválido.',1);
	   } ElseIf ((0+@$aDadosS["CTP_VALDUP"])<=0) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_ValDup").focus();'.
		     Info_Evento('Valor da duplicata é inválido.',1);
	   } ElseIf ( EMPTY($aListaPrc) ) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTP_NumDup").focus();'.
		     Info_Evento('Nenhuma parcela calculada para salvar.',1);
	   
	   } Else {
	      $bGravarReg = True;
	   }
	   //
	   If ($bGravarReg) {
	      ForEach ( $aListaPrc As $aParcela ) {
            MYSQL_QUERY(   // Cria um novo registro
              "INSERT INTO fin_contas_pagar(".
			      "CTP_CODEMP,CTP_DTAENT,CTP_VALORI,CTP_FUNINC,".
				  "CTP_NUMDUP,CTP_NUMPAR,CTP_TOTPAR,CTP_CODFOR,".
				  "CTP_DTAFIC,CTP_DTAVEN,CTP_VALDUP,CTP_HISTOR,".
				  "CTP_FUNALT,CTP_ULTALT,CTP_CODCUS".
	          ") VALUES (".
	              $Dados_Empresa['EMP_CODIGOI'].",".
	        	  "'".DATE("Y-m-d H:i:s")."',".
	        	  $aParcela['CTP_VALDUP'].",".
	        	  $R_CadFuncionario->FUN_CODIGO.",".
				  "'".$aParcela['CTP_NUMDUP']."',".
				  $aParcela['CTP_NUMPAR'].",".
				  $aDadosS["CTP_TOTPAR"].",".
				  $aDadosS["CTP_CODFOR"].",".
				  "'".$sData_Trabalho."',".
				  "'".$aParcela['CTP_DTAVEN']."',".
				  $aParcela["CTP_VALDUP"].",".
				 SQL_Bin($sCTP_Histor).",".
				 "'".$R_CadFuncionario->FUN_CODIGO."',".
                 "'".DATE("Y-m-d H:i:s")."',".
				 "'".$sCTP_CodCus."' ".
 	          "); "
	          ) OR // Erro ao garavar o novo registro
	            $sRet_Javs .= Info_Evento('ERRO FATAL: '.MYSQL_ERROR(),1)
	          ;
		    $nCTP_Id_Mov = MYSQL_INSERT_ID();
	        //
		  }
          $sRet_Javs .= 
		     $sJavaTravarJ.
	         "document.location.href = './car_js.php?nomeacs=".$sNomeAcesso."&mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&acaoAnt=".$sAcao."';".
			 "";
 	   }
	//
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
		  "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
    	  'parent.document.getElementById("in_CTP_Cod_For").focus();'.
		  "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
          "";
	   UNSET( $aDadosS );
	}
	//
	If ( ISSET($aDadosS) ) {
	   $aSessao[$sNomeAcesso.'_NovParc'] = $aDadosS;
	} Else {
	   UNSET( $aSessao[$sNomeAcesso.'_NovParc'] );
	}
//
//  ** TELA DE CONSULTA DE BAIXA CONTAS Á PAGAR **
//
} ElseIf ( $sSubModulo=="TEL_BAIXA" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan3;
    $oJanelaPrinc->nTop    = 5;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 960;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Contas á pagar (Baixa)';
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."5.Teclas_F(this,event);";
	$oJanelaPrinc->aIdsObjList =
	   ARRAY( 'in_CTP_Cod_For','in_CTP_Dt1V','in_CTP_Dt2V','sl_CTP_Opcao_' );
    //
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible';";
	$sJavaFechaEr = 'parent.document.location.href = "./car_js.php?mod='.$sModulo.'&submod='.$sSubModulo.'&nomeacs='.$sNomeAcesso.'&acao=FECHAR";';
	$oJanelaPrinc->sJavOnClickF =
		 "var fm = parent.document.forms.fmPCTP_Pesq;".
		 "fm.target = 'car_".$sNomeAcesso."6';".
         "fm.acao.value='FECHAR_CF';".
         "fm.submit();".
		 "";
	$oJanelaPrinc->aIdsObjList =
	   ARRAY( 'i_CTP_Cod_For','i_CTP_Dt1Venc','i_CTP_Dt2Venc', 'i_CTP_Val_Bai', 'i_CTP_CodCUS', 'i_CTP_CodMod', 'i_CTP_CodCTA' );
	//
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sIdObjTabela = 'iQdr_LstCTP';
    //$oTabelaRegs->sTabelas     = 'fin_contas_pagar,cad_fornecedor';
	$oTabelaRegs->GLstCampos( 'CTP_NUMDUP,Duplicata,66px,STRZERO=8;'.
							  'CTP_NUMPAR,Parcela,45px,;'.
	                          'CTP_DTAFIC,Entrada,76px,DTA;'.
							  //'FOR_CODIGO,Cód.Forn.,66px,STRZERO=8;'.
							  'FOR_FANTAS,Fornecedor;'.
							  'CUS_DESCRI,Centro de custo,100px,;'.
							  'CTP_HISTOR,Histórico,70px,;'.
	                          'CTP_DTAVEN,Vencimento,76px,DTA;'.
							  'CTP_VALDUP,Valor,80px,MOE;'.
							  //'CTP_VALJUR,Juros,80px,MOE;'.
							  //'CTP_VALDES,Desconto,80px,MOE;'.
							  'CTP_VALPAG,Á Baixar,90px,MOE;'
                            );
    $oTabelaRegs->sCampoIndice = 'CTP_ID_MOV';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 220;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."5.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."5.P_Atu()";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."5.PRow_Sel(<QTDCOL>,<SELLIN>); ";
    $oTabelaRegs->sLinhaOnDblClk = "Car_".$sNomeAcesso."5.Abrir_CTP();";
    $oTabelaRegs->sJavSelectReg =
	   "sSelIndice = S_Indice;".
	   "parent.document.getElementById('bt_CTP_Pag_ADup').style.display='inline-block';".
	   "";
	$aDadosS = @$aSessao[$sNomeAcesso.'_PriCTP'];
	
	//
	// ** Tela principal **
	If ( EMPTY($sAcao) )  {
	   $aDadosS = ARRAY(
	        "PESQ_CODFOR"  => 0,
			//"PESQ_DT1VEN"  => 0,
			//"PESQ_DT2VEN"  => 0,
			//"PESQ_DT1VEN"  => ConvertDataSTR( $sData_Trabalho ),
			//"PESQ_DT2VEN"  => ConvertDataSTR( $sData_Trabalho ),
			"PESQ_DT1VEN"  => ConvertDataSTR( DATE("Y-m-d")  ),
			"PESQ_DT2VEN"  => ConvertDataSTR( DATE("Y-m-d") ),
			"CTP_BAIXA_"   => ARRAY(),
			"INICIO_MOD"   => True
		   );
	   // 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>';
       }
	   $aSessao[$sNomeAcesso.'_ComboMPG'] = $sHTML_Combo_CodMod;
	   // 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)) {
           $sHTML_Combo_CodCTA .=
		     '<option value="'.$Row->CTA_CODIGO.'">'.
			 $Row->CTA_DESCRI.
			 '</option>';
       }
	   $aSessao[$sNomeAcesso.'_ComboCTA'] = $sHTML_Combo_CodCTA;
	   // 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;" ).
			 $Row->CUS_CODIGO.'-'.$Row->CUS_DESCRI.
			 '</option>';
       }
	   $aSessao[$sNomeAcesso.'_ComboCUS'] = $sHTML_Combo_CodCUS;
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  '<div style="position:absolute; top:-300px;">'.
           '<form name="fmPCTP_Pesq" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'7">'.
            '<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="Pesq_NumCam" type="hidden" value="">'.
            '<input name="Pesq_CodFor" type="hidden" value="">'.
            '<input name="Pesq_Dt1Ven" type="hidden" value="">'.
            '<input name="Pesq_Dt2Ven" type="hidden" value="">'.
            '<input name="Pesq_ValorBai" type="hidden" value="">'.
            '<input name="Pesq_CodMpg" type="hidden" value="">'.
            '<input name="Pesq_CodCta" type="hidden" value="">'.
            '<input name="Pesq_CodCus" type="hidden" value="">'.
            '<input name="Ctp_Id_Mov" type="hidden" value="">'.
           '</form>'.
		  '</div>'.
		  '<style type="text/css" rel="stylesheet">'.
		    '.Tab_CTP_Rec '.
		      'input,select {'.
		        'height:20px;'.
		        'background:#FFFFFF;'.
		        'border-width:1px;'.
		        'border-style:solid;'.
		        'border-color: #0099FF;'.
		        'font-size:13px;'.
		        'font-weight:bold;'.
		        'color:#444444;'.
		    '}'.
		    '.Tab_CTP_Rec '.
		      'td {'.
			   'height:30px;'.
		       'font-size:14px;'.
		       'color:#222222;'.
		    '}'.
		    '.Tab_CTP_Rec '.
		      'span {'.
		       'font-size:15px;'.
		       'font-weight:bold;'.
		       'color:#444444;'.
		    '}'.
			CSS_Estilos(1,$oJanelaPrinc->sIdObj."_Balao").
            '*{'.                         
               'font-family: Arial, sans-serif;'.
            '}'.                          
		  '</style>'.
		  //'<div style="height:2px;"></div>'.
		  '<table border= "0" width="100%">'.
		   '<tr>'.
		    '<td width="100px" align="right">'.
			 'Fornecedor:'.
			 '<input type="image" style="position:relative; left:5px;" src="./images/interroga.png" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."5.Interroga_Img('Q_CTPRec_Balao_Mod');".'">'.
             '<span id="Q_CTPRec_Balao_Mod" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	        'Código do Fornecedor<br>'.
				'Em Branco<br>(Todos Fornecedores)<br>'.
				'Não Terá a opção <br>'.
				'de baixa por valor<br>'.
				'<br>'.
				'Digite um Código <br>ou Telefone <br>'.
				'de um Fornecedor<br>'.
				'ou /(barra) <br> p/ consulta.'.
				
             '</span>'.            
			'</td>'.
		    '<td width="300px" align="left">'.
			 '<input id="i_CTP_Cod_For" type="text" maxlength="30" style="width:65px;" onchange="Car_'.$sNomeAcesso.'5.Atualiza_Dados();">'.
			 '&nbsp;&nbsp;'.
			 //
			 HTML_Botao( 3, 'Ent_BT_Psq_1' , "document.getElementById('i_CTP_Cod_For').value='/';". 
			                                'Car_'.$sNomeAcesso.'5.Atualiza_Dados();'
			              , ''             ,'images/btimg_lupa.png',24).
			  //
			 '&nbsp;&nbsp;'.
			 '<span id="sp_CTP_ForNom" style="font-weight:bold;"></span>'.
			'</td>'.
		    '<td width="160px" align="right">'.
			 'Período de vencimento:'.
			'</td>'.
		    '<td align="left" width="270px">'.
			 '<table border= "0">'.
			  '<tr>'.
			   '<td width="28px" align="center">'.
			    '<img src="images/bimg_calendario.png" border="0" id="bt_CTP_Dt1Venc" style="cursor:pointer;">'.
			   '</td>'.
			   '<td width="80px" align="left">'.
			    '<input id="i_CTP_Dt1Venc" type="text" value="'.ConvertDataUSBR(DATE("Y-m-d")).'" maxlength="10" style="width:75px;" onchange="Car_'.$sNomeAcesso.'5.Atualiza_Dados();">'.
			   '</td>'.
			   '<td width="28px" align="center">'.
			    '<img src="images/bimg_calendario.png" border="0" id="bt_CTP_Dt2Venc" style="cursor:pointer;">'.
			   '</td>'.
			   '<td width="80px" align="right">'.
			    '<input id="i_CTP_Dt2Venc" type="text" value="'.ConvertDataUSBR(DATE("Y-m-d")).'" maxlength="10" style="width:75px;" onchange="Car_'.$sNomeAcesso.'5.Atualiza_Dados();">'.
			   '</td>'.
			   '<td align="left">'. 
       	          HTML_Botao( 3, 'Ent_BT_Psq' , 'Car_'.$sNomeAcesso.'5.P_Atu();'
			          , ''  ,'images/btimg_lupa.png',24).
					  '<input type="image" style="position:relative; left:5px;" src="./images/interroga.png" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."1.Interroga_Img('Q_FinRec_Balao_');".'">'.
                      '<span id="Q_FinRec_Balao_" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	                 'Ao Clicar <br>'.
					     '<br>'.
					     'Numa duplicata na lista <br>'.
					     'abaixo terá a opção de: <br>'.
					     'MARCAR E DESMARCAR <br>'.
					     'para poder <br>'.
					     'dar baixa.'.
				      '</span>'.
			'</td>'.
			  '</tr>'.
			 '</table>'.
			'</td>'.
		   '</tr>'.
		  '</table>'.
		  // Lista das duplicatas
		  $oTabelaRegs->MontaDivHtml().
		  //
		  // Barra inferior
		  '<div class="Tab_CTP_Rec" style="height:180px">'.
		  $sLinha_Risco.
		  '<table width="100%">'.
		   '<tr>'.
		    '<td width="650px" align="left" valign="top">'.
			 //
		     //'<table>'.
		     //   '<tr>'.
			 //      '<td width="100px" align="right">'.
			          //'Total devedor:'.
			 //      '</td>'.
		     //      '<td align="left">'.
			          //'<span id="sp_CTP_TotalDev">R$ 0,00</span>'.
			 //      '</td>'.
		     //   '</tr>'.
		     //'</table>'.
			 //
			 '<div id="tr_ValorBaixar">'.
                '<table>'.
		           '<tr>'.
			          '<td width="300px" height="4px"align="left">'.
			             '<span style="font-size:14px;color:#FF0000;">'.
                            'EFETUAR BAIXA POR VALOR'.				         
						 '</span>'.
						 
			          '</td>'.
		           '</tr>'.
				'</table>'.		  
                '<table>'.
			  //
			   '<tr>'.
		        '<td align="right" width="160px" style="font-size:12px;">'.
			     'Valor a baixar:'.
			    '</td>'.
		        '<td align="left" width="50px">'.
			       '<input id="i_CTP_Val_Bai" type="text" maxlength="8" style="width:65px;">'.
			          
				'</td>'.
				'<td>'.
				   '<input type="image" style="position:relative; left:5px;" src="./images/interroga.png" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."5.Interroga_Img('Q_FinRec_Balao_Bai');".'">'.
                   '<span id="Q_FinRec_Balao_Bai" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	              'Informe aqui: <br>'.
					  '<br>'.
					  'o valor a ser baixado <br>'.
					  'das duplicatas <br>'.
					  'acima'.
				   '</span>'.
				'</td>'.	  
				'<td align="right" width="40px" style="font-size:12px;">'.
			       'Conta:'.
			    '</td>'.
			    '<td align="left" width="237px">'.
		   	       '<select id="i_CTP_CodCTA" style="width:100%;">'.
			 	      $sHTML_Combo_CodCTA.
		   	       '</select>'.
				'</td>'.
				'<td>'.
				   '<span style="font-size:10px;color:#FF0000;">'.
                      '*'.				         
				   '</span>'.
				'<td>'.
				
				//'<td align="left">'. 
				//'&nbsp;&nbsp;'.
       	        // HTML_Botao( 3, 'Ent_BT_Psq' , 'Car_'.$sNomeAcesso.'5.P_Atu();'
			    //              , 'Aplicar'           ,'images/btimg_lupa.png',124).
			    //'</td>'.
			   '</tr>'.
			  '</table>'.
			  '<table>'.
			   '<tr>'.
			    '<td align="right" width="160px" style="font-size:12px;">'.
			     'Centro de custo:'.
			    '</td>'.
			    '<td align="left" width="380px">'.
		   	     '<select id="i_CTP_CodCUS" style="width:100%;">'.
			 	  $sHTML_Combo_CodCUS.
		   	     '</select>'.
				 
			    '</td>'.
				'<td>'.
				   '<span style="font-size:10px;color:#FF0000;">'.
                      '*'.				         
				   '</span>'.
				'<td>'.
			   '</tr>'.
			  '</table>'.
			  '<table>'.
			   '<tr>'.
			    '<td align="right" width="160px" style="font-size:12px;">'.
			     'Modalidade de pagamento:'.
			    '</td>'.
			    '<td align="left" width="200px">'.
		   	     '<select id="i_CTP_CodMod" style="width:100%;">'.
			 	  $sHTML_Combo_CodMod.
		   	     '</select>'.
				'</td>'.
			    '<td width="20px">'.
				   '<span style="font-size:10px;color:#FF0000;">'.
                      '*'.				         
				   '</span>'.
				'<td>'.
				'<td align="left">'. 
				   '&nbsp;&nbsp;'.
       	           HTML_Botao( 3, 'Ent_BT_Psq' , 'Car_'.$sNomeAcesso.'5.P_Atu();'
			                    , 'Aplicar'           ,'images/btimg_lupa.png',124).
			    '</td>'.
				
				
				//'<td align="right" width="60px" style="font-size:12px;">'.
			    // 'Conta:'.
			    //'</td>'.
			    //'<td align="left" width="140px">'.
		   	    // '<select id="i_CTP_CodCTA" style="width:100%;">'.
			 	//  $sHTML_Combo_CodCTA.
		   	    // '</select>'.
				 
			    //'</td>'.
				//'<td>'.
				 //  '<span style="font-size:10px;color:#FF0000;">'.
                 //     '*Obrigatório'.				         
				//   '</span>'.
				//'<td>'.
		       '</tr>'.
			  '</table>'.
			 '</div>'.
			 //
			'</td>'.
		    '<td>'.
			'</td>'.
		    '<td width="260px" align="left" valign="top">'.
			 //
		     '<table>'.
		      '<tr>'.
			        '<td width="100px" align="right" >'.
			           'Total devedor:'.
			        '</td>'.
		            '<td align="left">'.
			           '<span id="sp_CTP_TotalDev">R$ 0,00</span>'.
			        '</td>'.
			     '</tr>'.
			  
			  '<tr>'.
		       '<td width="100px" align="right" >'.
			    'Á Baixar (+):'.
			   '</td>'.
		       '<td align="left">'.
			    '<span id="sp_CTP_TotalPagB">R$ 0,00</span>'.
			   '</td>'.
		      '</tr>'.
		      '<tr>'.
		       '<td align="right" >'.
			    'Juros (+):'.
			   '</td>'.
		       '<td align="left">'.
			    '<span id="sp_CTP_TotalJuros">R$ 0,00</span>'.
			   '</td>'.
		      '</tr>'.
		      '<tr>'.
		       '<td align="right" >'.
			    'Descontos (-):'.
			   '</td>'.
		       '<td align="left">'.
			    '<span id="sp_CTP_TotalDesc">R$ 0,00</span>'.
			   '</td>'.
		      '</tr>'.
		      '<tr>'.
		       '<td align="right" >'.
			    'Líquido á baixar (+):'.
			   '</td>'.
		       '<td align="left">'.
			    '<span id="sp_CTP_TotalPag">R$ 0,00</span>'.
			   '</td>'.
		      '</tr>'.
		     '</table>'.
			 //
			'</td>'.
		   '</tr>'.
		  '</table>'.
		  '</div>'.
		  //
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
           '<td width="8px" height="40px" align="left">&nbsp;</td>'.
           '</td>'.
           '<td align="left" width="150px">'.
            HTML_Botao( 3, 'bt_CTP_Psq_PagT', 'Car_'.$sNomeAcesso.'5.Baixar();'
                         , 'Efetuar Baixas (F4)' ,'images/btimg_ativar.png',180).
           '</td>'.
           '<td align="left" width="190px">'.
            HTML_Botao( 3, 'bt_CTP_Pag_ADup', 'Car_'.$sNomeAcesso.'5.Abrir_CTP();'
                         , 'Marcar/Desmarcar (F7)' ,'images/btimg_editar.png',180).
           '</td>'.
           '<td align="right">'.
            HTML_Botao( 3, 'bt_CTP_Psq_Canc', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png',130).
           '</td>'.
           '<td width="8px" align="left">&nbsp;</td>'.
           '</td>'.
          '</tr></table>'.
		  //
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
	   // Java anterior
       $sRet_Javs .=
		  //
	      "sSelIndice='0';".
          "function P_Atu() {".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('bt_CTP_Pag_ADup').style.display='none';".
			"sSelIndice='0';".
         	"setTimeout( function() { ".
		       "var fm = parent.document.forms.fmPCTP_Pesq;".
		       "fm.target = 'car_".$sNomeAcesso."7';".
			   "fm.acao.value='LISTAR_REG'; ".
			   "fm.Pesq_NumCam.value=nPesq_CampoSel+''; ".
			   "fm.Pesq_CodMpg.value = parent.document.getElementById('i_CTP_CodMod').value;".
			   "fm.Pesq_CodCta.value = parent.document.getElementById('i_CTP_CodCTA').value;".
			   "fm.Pesq_CodCus.value = parent.document.getElementById('i_CTP_CodCUS').value;".
			   "fm.Pesq_ValorBai.value = parent.document.getElementById('i_CTP_Val_Bai').value;".
               "fm.submit();".
			" }, 300);".
            'parent.document.getElementById("'.$oJanelaPrinc->aIdsObjList[0].'").focus();'.
          '}'.
          $oTabelaRegs->MontaJavaPri().
		  //
	      'function Atualiza_Dados() {'.
		    "var fm = parent.document.forms.fmPCTP_Pesq;".
		    'fm.Pesq_CodFor.value = parent.document.getElementById("i_CTP_Cod_For").value;'.
            'fm.Pesq_Dt1Ven.value = parent.document.getElementById("i_CTP_Dt1Venc").value;'.
			'fm.Pesq_Dt2Ven.value = parent.document.getElementById("i_CTP_Dt2Venc").value;'.
		    "fm.target = 'car_".$sNomeAcesso."8';".
            "fm.acao.value='ATUALIZA_DADOS'; ".
            "fm.submit();".
          '}'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
			 "sAntFocus = parent.sIdHasFocus;".
		     "if ( vNumTecla==116) { ".        // ** [F5] **          Não atualizar
                 //
		     "} else if ( vNumTecla==115) { ". // ** [F4] **          Gravar baixa
			     "if ( parent.document.getElementById('bt_CTP_Psq_PagT').style.display != 'none' ) {".
				     "Baixar();".
				 "}".
			     //
		     "} else if ( vNumTecla==118) { ". // ** [F7] **          Abrir Baixa
			     "if ( parent.document.getElementById('bt_CTP_Pag_ADup').style.display != 'none' ) {".
				     "Abrir_CTP();".
				 "}".
				 //
		     "} else if ( vNumTecla==27) { ".  // ** [ESC] **         // (SAIR)
                 $oJanelaPrinc->sJavOnClickF.
				 //
		     "} else if ( vNumTecla==13) { ".  // ** [ENTER] **
			     "while (true) {".
				    "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),sAntFocus);".
				    "if ( sTempId.length>0 ) {".
				        "parent.document.getElementById(sTempId).focus();".
					    "if (sTempId == parent.sIdHasFocus ) {".
						    //'parent.document.getElementById(sTempId).select();'.
						    "break;".
						"}".
						"sAntFocus=sTempId;".
				    "} else {".
    	                "P_Atu();".
						'break;'.
				    "}".
				 "}".
			     //
			 "} else {".
		         "P_TeclasPress_fm(Evento);".
			     "return true;".
			 "}".
			 "return false;".
          '}'.
		  'function Abrir_CTP() {'.
		    "var fm = parent.document.forms.fmPCTP_Pesq;".
		    "fm.target = 'car_".$sNomeAcesso."6';".
            'fm.submod.value="EDT_BAIXA";'.
            "fm.acao.value='';".
			'fm.Ctp_Id_Mov.value = sSelIndice;'.
            "fm.submit();".
            'fm.submod.value="'.$sSubModulo.'";'.
			'fm.Ctp_Id_Mov.value = "";'.
		  '}'.
		  'function Baixar() {'.
            "parent.JanEspera(true, 'Baixando duplicatas recebidas... Aguarde...');".
		    "var fm = parent.document.forms.fmPCTP_Pesq;".
		    "fm.target = 'car_".$sNomeAcesso."6';".
            "fm.acao.value='GRAVAR_BAIXA'; ".
            "fm.submit();".
		  '}'.
		  '';
	   //
       // Java posterior
       $sRet_JavsPos .=
	      "function Interroga_Img(sObjeto) {".
             "if ( parent.document.getElementById(sObjeto).style.display == 'none') {".
                'parent.document.getElementById(sObjeto).style.display="inline";'.
             "} else {".
                'parent.document.getElementById(sObjeto).style.display="none";'.
             "}".
          "}".
	      "parent.document.getElementById('bt_CTP_Psq_PagT').style.display='none';".
	      "parent.document.getElementById('bt_CTP_Pag_ADup').style.display='none';".
		  "Atualiza_Dados();".
    	  "P_Atu();".
		  //
          'parent.Calendar.setup({ '.
            'inputField : "i_CTP_Dt1Venc", '.
            'trigger    : "bt_CTP_Dt1Venc", '.
            'onSelect   : function() { this.hide(); Atualiza_Dados(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
          'parent.Calendar.setup({ '.
            'inputField : "i_CTP_Dt2Venc", '.
            'trigger    : "bt_CTP_Dt2Venc", '.
            'onSelect   : function() { this.hide(); Atualiza_Dados(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
	      '';
	   //
    //
    // ATUALIZAR DADOS EM MEMÓRIA
    } ElseIf ( $sAcao=="ATUALIZA_DADOS" ) {
	   $sCTP_CodFor = @$_POST['Pesq_CodFor'];
	   $s_Dt1Ven    = @$_POST['Pesq_Dt1Ven'];
	   $s_Dt2Ven    = @$_POST['Pesq_Dt2Ven'];
	   $sCTP_NomFor = '';
	   //$nP_NumCam = @$_REQUEST['Pesq_NumCam']+0;
	   // If ( $nP_NumCam==0 ) { $nP_NumCam=1; }
	   If ( $aDadosS['PESQ_CODFOR']<>$sCTP_CodFor ) {
	      $aDadosS['CTP_BAIXA_']=ARRAY();
	      //
          // Java
          $sRet_Javs .=
             "var iQdr = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."'); ".
    	     'iQdr.innerHTML = ""; '.
             'parent.Car_'.$sNomeAcesso.'5.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
             //'parent.Car_'.$sNomeAcesso.'5.P_Sel('.$nP_NumCam.');'.			 
		     "";
	   }
	   $aDadosS['PESQ_CODFOR']=0;
	   If ( SUBSTR($sCTP_CodFor,0,1)=="/" ) {
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $sCTP_CodFor );
		  $sCTP_NomFor = "(Consulta)";
		  $sCTP_CodFor = '';
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fmPCTP_Pesq;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."10';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='CSL_PSQFOR'; ".
		          "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[0];
	      $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'] =
               "parent.Car_".$sNomeAcesso."5.Atualiza_Dados();".
               "";
		  //
	   } ElseIf ( (0+$sCTP_CodFor)==0 ) {
          $sCTP_NomFor = "( Todos os fornecedores )";
		  $sCTP_CodFor = '';
	   } Else {
	      $Row_CadFor = MYSQL_QUERY("SELECT * FROM cad_fornecedor WHERE FOR_CODIGO='".$sCTP_CodFor."' AND FOR_ATIVO_ LIMIT 1;") or die(MYSQL_ERROR());
		  If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
		     $sCTP_CodFor = $Row_CadFor->FOR_CODIGO;
			 $sCTP_NomFor = $Row_CadFor->FOR_FANTAS;
             $aDadosS['PESQ_CODFOR'] = $Row_CadFor->FOR_CODIGO;
		  } Else {
             $sSQLQueryA =
			    "SELECT TEL_NUMERO,TEL_TRAREG,TEL_CODCAD FROM cad_telefones ".
	            "WHERE ".
		  	    "TEL_NUMERO='".STR_REPLACE("-","",$sCTP_CodFor)."' AND ".
				"TEL_TIPCAD=2 AND ".
		  	    "(TEL_TRAREG=0 OR TEL_TRAREG=2) ".
		  	    ";";
			 $RowsT = MYSQL_QUERY($sSQLQueryA) Or Die($sSQLQueryA.'<br>'.MYSQL_ERROR());
             If ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
			    $sCTP_CodFor = $RowT->TEL_CODCAD;
			    $sSQLQueryC = "SELECT FOR_CODIGO, FOR_FANTAS FROM cad_fornecedor WHERE FOR_CODIGO='".$RowT->TEL_CODCAD."' AND FOR_ATIVO_;"; 
			    $Row_CadFor = MYSQL_QUERY($sSQLQueryC) Or Die(MYSQL_ERROR().'<br>'.$sSQLQueryC);
			    If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
	               $sCTP_NomFor = $Row_CadFor->FOR_FANTAS;
                   $aDadosS['PESQ_CODFOR'] = $Row_CadFor->FOR_CODIGO;
			    } Else {
                   $sCTP_NomFor = "( Fornecedor não encontrado )";
		           $sCTP_CodFor = '';			 
			    }
		     } Else {
			    $sCTP_NomFor = "( Fornecedor não encontrado )";
		        $sCTP_CodFor = '';
			 }
			 //
		  }
	   }
	   If ( ! EMPTY($sCTP_CodFor) ) {
	      $sCTP_CodFor = Str_Zero($sCTP_CodFor,6);
	   }
	   //
	   FOR ($nContar=1;$nContar<=2;$nContar++) {
	     $s_Temp1 = '';
	     $n_Temp1 = 0;
		 EVAL( '$s_Temp1=$s_Dt'.$nContar.'Ven;' );
	     $n_Temp1 = ConvertDataSTR(ConvertDataBRUS($s_Temp1));
	     If ( $n_Temp1 < MKTIME(0,0,0,1,1,2000) ) {
	        $s_Temp1 = '';
	     } Else {
	        $s_Temp1 = DATE("d/m/Y",$n_Temp1);
	     }
		 EVAL( '$s_Dt'.$nContar.'Ven=$s_Temp1;' );
	     $aDadosS['PESQ_DT'.$nContar.'VEN']=$n_Temp1;
	   }
	   //
       // Java
       $sRet_Javs .=
	     'parent.document.getElementById("i_CTP_Cod_For").value = "'.$sCTP_CodFor.'";'.
		 'parent.document.getElementById("sp_CTP_ForNom").innerHTML = '.JAVA_CharCode_Mini(SUBSTR($sCTP_NomFor,0,32)).';'.
		 'parent.document.getElementById("i_CTP_Dt1Venc").value = "'.$s_Dt1Ven.'";'.
		 'parent.document.getElementById("i_CTP_Dt2Venc").value = "'.$s_Dt2Ven.'";'.
		 'parent.document.getElementById("tr_ValorBaixar").style.display = "'.(($sCTP_CodFor+0>0) ? '' : 'none').'";'.
		 "";
	   //
	//
	// LISTAR REGISTROS DE CONTAS Á PAGAR
	} ElseIf ($sAcao=="LISTAR_REG")  {
	   //
	   $sParamSQL = '';
	   $nP_NumCam = @$_REQUEST['Pesq_NumCam']+0;
	   
	   If ( $nP_NumCam==0 ) { $nP_NumCam=1; }
       $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
	    
	   //
	   $n_ValorBaixa = STR_REPLACE(',','.',Somente_Numeros(@$_POST['Pesq_ValorBai'],',.'))+0;
	   $n_Cus_CodPag = Somente_Numeros(@$_POST['Pesq_CodCus'])+0;
	   $n_Mpg_CodPag = Somente_Numeros(@$_POST['Pesq_CodMpg'])+0;
	   $n_Cta_CodPag = Somente_Numeros(@$_POST['Pesq_CodCta'])+0;
	   $n_TotalDev   = 0;
	   $n_TotalPagB  = 0;
	   $n_TotalDesc  = 0;
	   $n_TotalJuros = 0;
	   $n_TotalPag   = 0;
	   $bBaixarDeup  = $n_ValorBaixa>0;
	   $bTemErro  = False;
	   
	   //
	   $aListaBaixas = $aDadosS['CTP_BAIXA_'];
	   //
	   $sSQLParm = ' AND CTP_DTACAN=0 AND CTP_CODEMP='.$Dados_Empresa['EMP_CODIGOI'].'';
	   $sRet_TelaJ_HTML = '';
	   If ( $aDadosS['PESQ_DT1VEN']>0 ) {
	      $sSQLParm .= ' AND CTP_DTAVEN>="'.DATE("Y-m-d",$aDadosS['PESQ_DT1VEN']).'"';
	   }
	   If ( $aDadosS['PESQ_DT2VEN']>0 ) {
	      $sSQLParm .= ' AND CTP_DTAVEN<="'.DATE("Y-m-d",$aDadosS['PESQ_DT2VEN']).'"';
	   }
	   If ( $aDadosS['PESQ_CODFOR']==0 ) {
		  $n_ValorBaixa=0;
	   }
	   //
	   If ( $aDadosS['PESQ_CODFOR']>0 ) {
	      $sSQLParm .= ' AND CTP_CODFOR='.$aDadosS['PESQ_CODFOR'];
	   }
	   //
	   
	   $sParamSQL .= ' ORDER BY '.$aLstCampo[0].' ASC ';
	   //
	   If ( $bBaixarDeup && ($n_Cus_CodPag==0) ) {
		  $bBaixarDeup = False;
		  $bTemErro = True;
          $sRet_Javs .=
		     Info_Evento('Escolha um centro de custo, é obrigatório.',0).
		     '';
	   }
	   If ( $bBaixarDeup && ($n_Cta_CodPag==0) ) {
		  $bBaixarDeup = False;
		  $bTemErro = True;
          $sRet_Javs .=
		     Info_Evento('Escolha uma conta financeira, é obrigatório.',0).
		     '';
			 
	   }
	   If ( $bBaixarDeup && ($n_Mpg_CodPag==0) ) {
		  $bBaixarDeup = False;
		  $bTemErro = True;
          $sRet_Javs .=
		     Info_Evento('Escolha uma modalidade de pagamento, é obrigatório.',0).
		     '';
	   }
	   If ( $bBaixarDeup ) {
	      //
		  
		  //
		  $Row = MYSQL_QUERY("SELECT * FROM cad_centro_custo WHERE CUS_CODIGOI=".$n_Cus_CodPag.";") or die(MYSQL_ERROR());
		  If ( $Row = MYSQL_FETCH_OBJECT($Row) ) {
			  
			  If ( Somente_Numeros(SUBSTR($Row->CUS_CODIGO,4,3))+0==0 ) {
		         $bBaixarDeup = False;
				 $bTemErro = True;
                 $sRet_Javs .=
		            Info_Evento('Não pode escolher um grupo do centro de custo, só o item.',0).
		            '';
			  }
		  } Else {
		     $bBaixarDeup = False;
			 $bTemErro = True;
             $sRet_Javs .=
		        Info_Evento('Erro interno, codigo do centro de custo não localizado.',0).
		        '';
		  }
	   }
	   
	   //
	   If ( True ) {
		  //
		  If ( $bBaixarDeup && $n_ValorBaixa>0 ) {
		     
			 $n_BaixarPag = $n_ValorBaixa;
	         
			 $Sql =
             "SELECT *  ".
			 "FROM fin_contas_pagar ".
			 "LEFT JOIN cad_centro_custo    AS  cus  ON  CTP_CODCUS = cus.CUS_CODIGOI ".
			 "WHERE ".
			 "CTP_DTAPAG=0".$sSQLParm.
			 //" ORDER BY CTP_DTAVEN ASC, CTP_ID_MOV ASC;".
			 $sParamSQL.
			 "";

			 
			 $Rows_FinCtp = MYSQL_QUERY($Sql) or die(MYSQL_ERROR());
             While ($Row_FinCtp = MYSQL_FETCH_ARRAY($Rows_FinCtp)) {
			    If ( $n_BaixarPag==0 ) { Break; }
			    If ( $Row_FinCtp['CTP_VALDUP'] > $n_BaixarPag ) {   // Valor da duplicata é maior que o recebimento
				   $n_ValPag = $n_BaixarPag;
				   $n_BaixarPag = 0;
	               $aCTP_Dup = ARRAY(
	                    "CTP_ID_MOV"   => $Row_FinCtp['CTP_ID_MOV'],
						"CTP_CODCUS"   => $n_Cus_CodPag,
						"CTP_CODMOD"   => $n_Mpg_CodPag,
						"CTP_CODCTA"   => $n_Cta_CodPag,
	               	    'CTP_PAGTOTAL' => 0,
	               	    'CTP_VALPAG'   => $n_ValPag,
	               	    'CTP_VALJUR'   => 0,
	               	    'CTP_VALDES'   => 0,
	               	    'CTP_VALDUP'   => $Row_FinCtp['CTP_VALDUP'],
						'CUS_DESCRI'   => $Row_FinCtp['CUS_DESCRI']
	               	   );
				} Else {                                           // Valor do recebimento é maior ou igual que a duplicata
				   $n_BaixarPag = $n_BaixarPag - $Row_FinCtp['CTP_VALDUP'];
				   $n_ValPag = $Row_FinCtp['CTP_VALDUP'];
	               $aCTP_Dup = ARRAY(
	                    "CTP_ID_MOV"   => $Row_FinCtp['CTP_ID_MOV'],
						"CTP_CODCUS"   => $n_Cus_CodPag,
						"CTP_CODMOD"   => $n_Mpg_CodPag,
						"CTP_CODCTA"   => $n_Cta_CodPag,
	               	    'CTP_PAGTOTAL' => 1,
	               	    'CTP_VALPAG'   => $n_ValPag,
	               	    'CTP_VALJUR'   => 0,
	               	    'CTP_VALDES'   => 0,
	               	    'CTP_VALDUP'   => $Row_FinCtp['CTP_VALDUP'],
						'CUS_DESCRI'   => $Row_FinCtp['CUS_DESCRI']
	               	   );
				}
			    $aListaBaixas[$aCTP_Dup["CTP_ID_MOV"]] = $aCTP_Dup;
		     }
		  
		  }
		  
		  $aDadosS['CTP_BAIXA_'] = $aListaBaixas;
		  //
	      $oTabelaRegs->sBDQuery =
              "SELECT ".
                "CTP.*, ".
				"frn.FOR_CODIGO , frn.FOR_FANTAS, ".
				"CTP.CTP_CODCUS, ".
				"cus.CUS_DESCRI ".
				//"COALESCE(MPG.MPG_DESCRIC,'') AS MPG_DESCRIC,".
                //"COALESCE(FAT.FAT_SQCOMAN, 0) AS FAT_SQCOMAN,".
                //"COALESCE(FAT.FAT_TIP_LOC,98) AS FAT_TIP_LOC ".
              "FROM fin_contas_pagar AS CTP ".
              //"LEFT JOIN cad_modalidade_pag AS MPG ON MPG.MPG_CODIGOI=CTR.CTR_CODMOD ".
              //"LEFT JOIN fat_geral AS FAT ON FAT.FAT_CODIGOI=CTR.CTR_CODFAT ".
			  "LEFT JOIN cad_fornecedor      AS  frn  ON  CTP.CTP_CODFOR = frn.FOR_CODIGO ".
			  "LEFT JOIN cad_centro_custo    AS  cus  ON  CTP.CTP_CODCUS = cus.CUS_CODIGOI ".
              "WHERE CTP.CTP_DTAPAG=0 ".$sSQLParm." ".
              //"ORDER BY CTP_DTAVEN ASC, CTP_ID_MOV ASC;".
              $sParamSQL.
			  "";
			  
			  			  
			  
		  //
		  $oTabelaRegs->s_PHP_LinhaTb =
		      'Global $aListaBaixas, $n_TotalDev, $n_TotalPagB, $n_TotalDesc, $n_TotalJuros;'.
			  '$b_Baixado = False;'.
			  '$n_TotalDev += $Row_Temp2Tabela["CTP_VALDUP"];'.
		      'If ( @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CTP_VALPAG"]>0) {'.
			      '$s_CorLinha = "#D2FFC4";'.
				  '$b_Baixado = True;'.
		      '} ElseIf ( @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CTP_VALDES"]>0) {'.
			      '$s_CorLinha = "#66FFCC";'.
				  '$b_Baixado = True;'.
			  '}'.
			  'If ($b_Baixado) {'.
				 '$b_PagTotal = @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CTP_PAGTOTAL"]+0;'.
				 'If ($b_PagTotal) {'.
			         '$n_TotalPagB += $Row_Temp2Tabela["CTP_VALDUP"];'.
				 '} Else {'.
			         '$n_TotalPagB += @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CTP_VALPAG"];'.
				 '}'.
				 '$n_TotalDesc  += @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CTP_VALDES"];'.
				 '$n_TotalJuros += @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CTP_VALJUR"];'.
			  '} Else {'.
			     '$n_Temp_1 = ConvertDataSTR($Row_Temp2Tabela["CTP_DTAVEN"]);'.
		         'If ( $n_Temp_1<MKTIME(0,0,0) ) {'.
			         '$s_CorLinha = "#FFDBA6";'.
			     '}'.
			  '}'.
			  '';
		  //
		  $oTabelaRegs->s_PHP_ColunaTb =
		      'Global $aListaBaixas, $n_TotalPag;'.
			  'If ( $aBDCamposN[$nContador]=="CTP_VALPAG" ) {'.
			     '$n_Temp_1 = @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CTP_VALPAG"];'.
				 '$b_Temp_2 = @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CTP_PAGTOTAL"]+0;'.
		         'If ( $n_Temp_1>0 ) {'.
				     '$n_TotalPag  += $n_Temp_1;'.
			         '$sConteudoCRow = "R$ ".FormatoMoeda($n_Temp_1);'.
					 'if ( ! $b_Temp_2 ) {'.    // Recebido parcialmente
					     '$sConteudoCRow = $sConteudoCRow."";'.
					 '}'.
			     '}'.
			  '} ElseIf ( $aBDCamposN[$nContador]=="CTP_VALJUR" ) {'.
			     '$n_Temp_1 = @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CTP_VALJUR"];'.
		         'If ( $n_Temp_1>0 ) {'.
			         '$sConteudoCRow = "R$ ".FormatoMoeda($n_Temp_1);'.
			     '}'.
			  '} ElseIf ( $aBDCamposN[$nContador]=="CTP_VALDES" ) {'.
			     '$n_Temp_1 = @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CTP_VALDES"];'.
		         'If ( $n_Temp_1>0 ) {'.
			         '$sConteudoCRow = "R$ ".FormatoMoeda($n_Temp_1);'.
			     '}'.
			  '} ElseIf ( $aBDCamposN[$nContador]=="CTP_NUMPAR" ) {'.
			     '$sConteudoCRow = $Row_Temp2Tabela["CTP_NUMPAR"]."/".$Row_Temp2Tabela["CTP_TOTPAR"];'.
			  //VER COM ANDRE ///
			  '} ElseIf ( $aBDCamposN[$nContador]=="CTP_CODCUS" ) {'.
			     '$sConteudoCRow = @$aListaBaixas[$Row_Temp2Tabela["CTP_ID_MOV"]]["CUS_DESCRI"];'.
			  '}'.
			  '';
		  //
          $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
		  
		  
		  
		  //
	      //} Else {
	      //$aDadosS['CTP_BAIXA_'] = ARRAY();
	      If ( EMPTY($oTabelaRegs->aLstItensTab) ) {
	         $sRet_TelaJ_HTML =
		       '<table width="100%" height="100%"><tr><td align="center" valign="middle" style="font-size:18px; font-weight:bold; color:#888888;">'.
		        'NENHUM ENCONTRADO'.
		       '</td></tr></table>'. 
		       '';
		  }
	   }
	   //
       // Java
       $sRet_Javs .=
           "var iQdr = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."'); ".
    	   'iQdr.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).'; '.
           'parent.Car_'.$sNomeAcesso.'5.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
		   'parent.Car_'.$sNomeAcesso.'5.P_Sel('.$nP_NumCam.');'.
		   'parent.document.getElementById("sp_CTP_TotalDev").innerHTML="'  .'R$ '.FormatoMoeda($n_TotalDev)  .'";'.
		   'parent.document.getElementById("sp_CTP_TotalPagB").innerHTML="' .'R$ '.FormatoMoeda($n_TotalPagB) .'";'.
		   'parent.document.getElementById("sp_CTP_TotalDesc").innerHTML="' .'R$ '.FormatoMoeda($n_TotalDesc) .'";'.
		   'parent.document.getElementById("sp_CTP_TotalJuros").innerHTML="'.'R$ '.FormatoMoeda($n_TotalJuros).'";'.
		   'parent.document.getElementById("sp_CTP_TotalPag").innerHTML="'  .'R$ '.FormatoMoeda($n_TotalPag)  .'";'.
		   ( $bTemErro ? 
		     ""    // não pode limpar o valor
		   :
		     "parent.document.getElementById('i_CTP_Val_Bai').value='';"
	       ).
		   "parent.document.getElementById('bt_CTP_Psq_PagT').style.display='".($n_TotalPagB>0 ? 'inline-block' : 'none')."';".
		   "";
       $sRet_TelaJ_HTML = '';
	   $aDadosS['INICIO_MOD'] = False;
	//
	// GRAVAR BAIXA DAS DUPLICATAS PAGAS EM MEMÓRIA
    } ElseIf ( $sAcao=="GRAVAR_BAIXA" ) {
	   //
	   $aListaBaixas = $aDadosS['CTP_BAIXA_'];
	   //
       $sRet_Javs .=
           "parent.JanEspera(false);".
		   "";
	   //
	   $nValorPagTotal = 0;
	   $sCtp_Lst_Ids   = '';
	   ForEach ( $aListaBaixas as $aBaixaDup ) {
	      $Row_FinCtp = MYSQL_QUERY("SELECT * FROM fin_contas_pagar WHERE CTP_ID_MOV=".$aBaixaDup['CTP_ID_MOV'].";") or die(MYSQL_ERROR());
          If ( ! $Row_FinCtp = MYSQL_FETCH_ARRAY($Row_FinCtp) ) { CONTINUE; }
	      $nValPagB        = $aBaixaDup['CTP_VALPAG'] + $aBaixaDup['CTP_VALDES'] + $aBaixaDup['CTP_VALJUR'];
	      $nValorPagTotal += $aBaixaDup['CTP_VALPAG'] + $aBaixaDup['CTP_VALJUR'];
	      $nCtp_Salvo_Id   = 0;
	      If ( $aBaixaDup['CTP_PAGTOTAL'] ) {   // Pagamento total
	   	     $nCtp_Salvo_Id = $aBaixaDup['CTP_ID_MOV'];
	   	     //
	         $sSQLQuery =
	            "UPDATE fin_contas_pagar SET ".
	    	       "CTP_DTAPAG='".DATE("Y-m-d H:i:s")."',".
				   "CTP_DTDIGP='".( EMPTY($aBaixaDup['CTP_DTDIGP']) ? DATE("Y-m-d") : DATE("Y-m-d", $aBaixaDup['CTP_DTDIGP']) )."',".
	   		       "CTP_FUNPAG='".$R_CadFuncionario->FUN_CODIGO."',".
	    	   	   "CTP_VALPAG='".$nValPagB."',".
	    	   	   "CTP_VALJUR='".$aBaixaDup['CTP_VALJUR']."',".
	    	       "CTP_VALDES='".$aBaixaDup['CTP_VALDES']."',".
	    	       "CTP_VALDUP=0,".
				   "CTP_CODCUS= ".$aBaixaDup['CTP_CODCUS']. ",".
				   "CTP_CODCTA= ".$aBaixaDup['CTP_CODCTA']. ",".
				   "CTP_CODMOD= ".$aBaixaDup['CTP_CODMOD']. ",".
	    	       "CTP_HISPAG=".SQL_Bin(@$aBaixaDup['CTP_HISPAG'])." ".
	            " WHERE CTP_ID_MOV=".$aBaixaDup['CTP_ID_MOV'].";";
	         MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
	   	     //
	      } Else {                                 // Pagamento parcial
	         $sSQLQuery =
	            "UPDATE fin_contas_pagar SET ".
	    	       "CTP_VALDUP='".($aBaixaDup['CTP_VALDUP'] - $nValPagB)."'	".
	            " WHERE CTP_ID_MOV=".$aBaixaDup['CTP_ID_MOV'].";";
	         MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
	    	 //
	    	 $sHistorico =
	   	       @$aBaixaDup['CTP_HISPAG'].
	   	       //CHR(13).
	   		   //"Referente a baixa parcial da duplicata.".
	   		   "";
	        //
            $nCtp_Salvo_Id = MYSQL_QUERY("SHOW TABLE STATUS LIKE 'fin_contas_pagar';") or die(MYSQL_ERROR());
	        $nCtp_Salvo_Id = MYSQL_FETCH_OBJECT($nCtp_Salvo_Id);
	        $nCtp_Salvo_Id = $nCtp_Salvo_Id->Auto_increment;
	    	//
            $sSQLQuery =
                "INSERT INTO fin_contas_pagar(".
	              "CTP_CODEMP, CTP_NUMDUP, CTP_NUMPAR, CTP_TOTPAR, CTP_CODFOR, CTP_FUNINC, CTP_DTAFIC, CTP_DTAENT, ".
                  "CTP_DTAVEN, CTP_VALORI, CTP_CODMOD, CTP_CODCTA, CTP_CODCUS, CTP_HISTOR, CTP_VALPAG, CTP_VALJUR, ".
	    		  "CTP_VALDES, CTP_PAGPAR, CTP_FUNPAG, CTP_DTAPAG, CTP_DTDIGP ".
	            ") VALUES (".
	                $Dados_Empresa['EMP_CODIGOI'] . ",".
	          	    $Row_FinCtp['CTP_NUMDUP']     . ",".
	          	    $Row_FinCtp['CTP_NUMPAR']     . ",".
	          	    $Row_FinCtp['CTP_TOTPAR']     . ",".
	          	    $Row_FinCtp['CTP_CODFOR']     . ",".
	          	    $R_CadFuncionario->FUN_CODIGO . ",".
	          	    "'".$sData_Trabalho           ."',".
	          	    "'".DATE("Y-m-d H:i:s")."',".
	          	    "'".$Row_FinCtp['CTP_DTAVEN'] ."',".
	          	    $nValPagB                     . ",".
				    $aBaixaDup['CTP_CODMOD']      . ",".
				    $aBaixaDup['CTP_CODCTA']      . ",".
				    $aBaixaDup['CTP_CODCUS']      . ",".
	          		SQL_Bin( $sHistorico )        . ",".
	    			"'".$nValPagB                 ."',".
	    			"'".$aBaixaDup['CTP_VALJUR']  ."',".
	    			"'".$aBaixaDup['CTP_VALDES']  ."',".
	    			"1,".
	   		    "'".$R_CadFuncionario->FUN_CODIGO."',".
	    			"'".DATE("Y-m-d H:i:s")."',". //DATA REAL 
					"'".( EMPTY($aBaixaDup['CTP_DTDIGP']) ? DATE("Y-m-d") : DATE("Y-m-d", $aBaixaDup['CTP_DTDIGP'] ))."' ".  //DATA DE PAGAMENTO QUE CLIENTE DIGITOU NA HORA DA BAIXA 
	            "); ";
             MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
	         //
	      }
	      If ( $nCtp_Salvo_Id>0 ) {
	         $sCtp_Lst_Ids .= (STRLEN($sCtp_Lst_Ids)>0 ? "," : "").$nCtp_Salvo_Id;
			 // Gravar movimento de conta financeira
			 $sMco_NumDoc = $Row_FinCtp['CTP_NUMDUP'];
			 $SMco_Histor = @$aBaixaDup['CTP_HISPAG'];
             $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    .",".
					$aBaixaDup['CTP_CODCTA']         .",".
					$aBaixaDup['CTP_CODCUS']         .",".
				 "'".$sMco_NumDoc                   ."',".
		 	     //"'".$sData_Trabalho                ."',".
				 "'".( EMPTY($aBaixaDup['CTP_DTDIGP'] ) ? DATE("Y-m-d") : DATE("Y-m-d", $aBaixaDup['CTP_DTDIGP']))."',".  //DATA DIGITADA DE PAGAMENTO NA HORA DA BAIXA
				 $nValPagB                        .",".
					"0"                              .",".
					$nCtp_Salvo_Id                   .",".
				    SQL_Bin($SMco_Histor)            ." ".
			   ");";
             MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
			 //
	      }
		  //
		  $aDadosS['CTP_BAIXA_'] = ARRAY();
		  //
          $sRet_Javs .=
		     'parent.Car_'.$sNomeAcesso.'5.P_Atu();'.
		     Info_Evento('Duplicatas baixadas.',0).
			 "";
		  //
	      //
	   }
	//
    // ABANDONAR BAIXAS DAS DUPLICATAS
    } ElseIf ( $sAcao=="ABANDONAR" ) {
	   $aDadosS['CTP_BAIXA_'] = ARRAY();
 	   $aDadosS['INICIO_MOD'] = True;
       $sRet_Javs .=
		   "parent.document.getElementById('i_CTP_Cod_For').value='';".
		   'parent.Car_'.$sNomeAcesso.'5.Atualiza_Dados();'.
           "setTimeout( function () { ".
		     'parent.Car_'.$sNomeAcesso.'5.P_Atu();'.
		   "}, 400);".
		   Info_Evento('NADA FOI BAIXADO.',0).
		   "";
	//
    // CONFIRMAÇÃO DE FECHAMENTO
    } ElseIf ( $sAcao=="FECHAR_CF" ) {
	   If ( COUNT($aDadosS['CTP_BAIXA_'])>0 ) {
          $sRet_Javs .=
	        "parent.Qdr_Prompt_H(true,'Tem certeza que deseja ABANDONAR as baixas das duplicatas?<br>NADA SERÁ BAIXADO.',".
		       JAVA_CharCode(
			      "if (_NUM_BOT_==1) { ".
		              "var fm = parent.document.forms.fmPCTP_Pesq;".
		              "fm.target = 'car_".$sNomeAcesso."6';".
                      "fm.acao.value='ABANDONAR';".
                      "fm.submit();".
			      "}"
		       ).
			",['Sim','Não']);".
			"";
	      //
	   } Else {
          $sRet_Javs .=
             $sJavaTravarJ.
		     "var fm = parent.document.forms.fmPCTP_Pesq;".
		     "fm.target = 'car_".$sNomeAcesso."6';".
             "fm.acao.value='FECHAR';".
             "fm.submit();".
			 "";
	   }
	//
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
	   UNSET( $aSessao[$sNomeAcesso.'_ComboMPG'] );
	   UNSET( $aSessao[$sNomeAcesso.'_ComboCTA'] );
	   UNSET( $aSessao[$sNomeAcesso.'_ComboCUS'] );
       $sRet_Javs .=
          "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
		  "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
    	  'parent.document.getElementById("in_CTP_Cod_For").focus();'.
		  "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
		  "parent.Car_".$sNomeAcesso."1.P_Atu();".
          "";
 	}
    //
	$aSessao[$sNomeAcesso.'_PriCTP'] = $aDadosS;
//
//  ** TELA DE EDIÇÃO DA BAIXA DA DUPLICATA **
//
} ElseIf ( $sSubModulo=="EDT_BAIXA" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan2;
    $oJanelaPrinc->nTop    = 20;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 550;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Baixa conta (Pagar)';
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."6.Teclas_F(this,event);";
    //
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
 	$sJavaDesTraJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='hidden'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',false);";
	$sJavaFechaEr = 'parent.document.location.href = "./car_js.php?mod='.$sModulo.'&submod='.$sSubModulo.'&nomeacs='.$sNomeAcesso.'&acao=FECHAR";';
	$oJanelaPrinc->sJavOnClickF =
         $sJavaTravarJ.
		 "var fm = parent.document.forms.fmPCTP_Pag;".
		 "fm.target = 'car_".$sNomeAcesso."6';".
         "fm.acao.value='FECHAR'; ".
         "fm.submit();".
		 "";
	//
  	$aDadosS = @$aSessao[$sNomeAcesso.'_PagCTP'];
	$sHTML_Combo_CodCUS = $aSessao[$sNomeAcesso.'_ComboCUS'];
	$sHTML_Combo_CodCTA = $aSessao[$sNomeAcesso.'_ComboCTA'];
	$sHTML_Combo_CodMod = $aSessao[$sNomeAcesso.'_ComboMPG'];
	// **
	If ($sAcao=="ATUALIZA") {
	   $bCTP_PagTotal = Somente_Numeros(@$_POST['CTP_PagTotal'])+0;
       $nCTP_ValPag = STR_REPLACE(',','.',Somente_Numeros(@$_POST['CTP_ValPag'],',.'))+0;
	   $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_ValRes = 0;
	   //
	   $sSQLQuery =
	      "SELECT ".
		       "CTP.*, FRN.* ".
		  "FROM      fin_contas_pagar AS CTP ".
		  "LEFT JOIN   cad_fornecedor AS FRN  ON  FRN.FOR_CODIGO = CTP.CTP_CODFOR ".
		  "WHERE ".
               "CTP_ID_MOV=".$aDadosS['CTP_ID_MOV'].
		  ";";
	   $Row_FinCtp = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
       If ($Row_FinCtp = MYSQL_FETCH_ARRAY($Row_FinCtp)) {
	      // Calculos
		  $nCTP_ValDup   = $Row_FinCtp['CTP_VALDUP'];
	      If ( $aDadosS['CTP_VALDUP']<0 ) {
	         $nCTP_ValPag = $nCTP_ValDup;
		  }
		  $nCTP_ValJur   = $Row_FinCtp['CTP_VALJUR'];
		  $nCTP_ValDes   = $Row_FinCtp['CTP_VALDES'];
		  $n_TotaDup     = ( $Row_FinCtp['CTP_VALDUP'] + $nCTP_ValJur ) - $nCTP_ValDes;
		  If ( $bCTP_PagTotal ) { // Pagamento total
		     If ( $nCTP_ValPag > $n_TotaDup ) {
			    $nCTP_ValJur = $nCTP_ValPag - $n_TotaDup;
		     } Else {
			    $nCTP_ValDes = $n_TotaDup - $nCTP_ValPag;
			 }
		  } Else {                // Pagamento parcial
		     If ( $nCTP_ValPag > $n_TotaDup ) {
			    $nCTP_ValJur = $nCTP_ValPag - $n_TotaDup;
		     } Else {
			    $nCTP_ValRes = $n_TotaDup - $nCTP_ValPag;
			 }
		  }
		  If ( $nCTP_CodCus==0 ) {
			 $nCTP_CodCus = $Row_FinCtp['CTP_CODCUS'];
		  }
		  If ( $nCTP_CodMod==0 ) {
			 $nCTP_CodMod = $Row_FinCtp['CTP_CODMOD'];
		  }
		  If ( $nCTP_CodCta==0 ) {
			 $nCTP_CodCta = $Row_FinCtp['CTP_CODCTA'];
		  }
		  
		  If ( STRLEN($sCTP_HisPag)==0 ) {
			 $sCTP_HisPag = $Row_FinCtp['CTP_HISTOR'];
		  }
		  //
		  $aDadosS['CTP_PAGTOTAL'] = $bCTP_PagTotal;
		  $aDadosS['CTP_VALPAG']   = $nCTP_ValPag;
		  $aDadosS['CTP_VALJUR']   = $nCTP_ValJur;
		  $aDadosS['CTP_VALDES']   = $nCTP_ValDes;
		  $aDadosS['CTP_VALDUP']   = $nCTP_ValDup;
		  $aDadosS['CTP_CODCUS']   = $nCTP_CodCus;
		  $aDadosS['CTP_CODCTA']   = $nCTP_CodCta;
		  $aDadosS['CTP_CODMOD']   = $nCTP_CodMod;
		  $aDadosS['CTP_HISPAG']   = $sCTP_HisPag;
		  $aDadosS['CTP_DTDIGP']   = ConvertDataSTR(ConvertDataBRUS($sCTP_DtDigP));
		  // Ajustes
	      $sCTP_DadosFor = Str_Zero($Row_FinCtp['FOR_CODIGO'],8).' - '.PegarPorPausa($Row_FinCtp['FOR_FANTAS'],6);
		  $sCTP_NumDup   = Str_Zero($Row_FinCtp['CTP_NUMDUP'],8);
		  $nCTP_Vencim   = ConvertDataSTR($Row_FinCtp['CTP_DTAVEN']);
		  $sCTP_Vencim   = ConvertDataUSBR($Row_FinCtp['CTP_DTAVEN']);
		  $sCTP_ValDup   = "R$ ".FormatoMoeda( $Row_FinCtp['CTP_VALDUP'] );
		  $sCTP_ValPag   = "R$ ".FormatoMoeda( $nCTP_ValPag );
		  $sCTP_ValJur   = "R$ ".FormatoMoeda( $nCTP_ValJur );
		  $sCTP_ValDes   = "R$ ".FormatoMoeda( $nCTP_ValDes );
		  $sCTP_ValRes   = "R$ ".FormatoMoeda( $nCTP_ValRes );
		  // Java
          $sRet_Javs .=
	          "parent.document.getElementById('sp_PAG_ForNom').innerHTML=".JAVA_CharCode_Mini($sCTP_DadosFor).";".
			  "parent.document.getElementById('sp_PAG_NumDup').innerHTML='".$sCTP_NumDup."';".
			  "parent.document.getElementById('sp_PAG_Vencim').innerHTML='".$sCTP_Vencim."';".
			  "parent.document.getElementById('sp_PAG_ValDup').innerHTML='".$sCTP_ValDup."';".
			  "parent.document.getElementById( 'i_PAG_ValPag').value='"    .$sCTP_ValPag."';".
			  "parent.document.getElementById( 'i_PAG_CodCus').value='"    .$nCTP_CodCus."';".
			  "parent.document.getElementById( 'i_PAG_CodCta').value='"    .$nCTP_CodCta."';".
			  "parent.document.getElementById( 'i_PAG_CodMod').value='"    .$nCTP_CodMod."';".
			  "parent.document.getElementById('sp_PAG_ValJur').innerHTML='".$sCTP_ValJur."';".
			  "parent.document.getElementById('sp_PAG_ValDes').innerHTML='".$sCTP_ValDes."';".
			  "parent.document.getElementById('sp_PAG_ValRes').innerHTML='".$sCTP_ValRes."';".
			  "parent.document.getElementById( 'i_PAG_HisPag').value='"    .$sCTP_HisPag."';".
			  "parent.document.getElementById( 'i_PAG_DtDigP').value='"    .$sCTP_DtDigP."';".
			  "var spVenc = parent.document.getElementById('sp_PAG_Vencim');".
			  ( $nCTP_Vencim < MKTIME(0,0,0) ?   // Duplicata vencida
			    "spVenc.style.color = '#FF0000';"
			  :
			    "spVenc.style.color = '';"
			  ).
			  "parent.document.getElementById('sp_PAG_Histor').innerHTML=".JAVA_CharCode_Mini($Row_FinCtp['CTP_HISTOR']).";".
			  '';
	   } Else {
           $sRet_Javs .=
	   	     "";
	   }
    //
    // CONFIRMA A BAIXA
    } ElseIf ( $sAcao=="CONFIRMA" ) {
       $sRet_Javs .=
		  "parent.JanEspera(false);".
		  "";
	   $bExecutar = True;
	   If ( $aDadosS['CTP_PAGTOTAL'] ) { // Pagamento total
	   } Else {                          // Pagamento parcial
	      If ( $aDadosS['CTP_VALPAG'] >= $aDadosS['CTP_VALDUP'] ) {
		     $bExecutar = False;
             $sRet_Javs .=
			    Info_Evento('Para pagamento parcial, o valor pago<br>deve ser menor que o da duplicata.',0).
			    '';
		  }
	   }
	   If ( $bExecutar && (@$aDadosS['CTP_CODCUS']+0==0) ) {
		  $bExecutar = False;
          $sRet_Javs .=
		     Info_Evento('Escolha um centro de custo, é obrigatório.',0).
		     '';
	   }
	   If ( $bExecutar && (@$aDadosS['CTP_CODCTA']==0) ) {
		  $bExecutar = False;
          $sRet_Javs .=
		     Info_Evento('Escolha uma conta financeira, é obrigatório.',0).
		     '';
	   }
	   If ( $bExecutar && (@$aDadosS['CTP_CODMOD']+0==0) ) {
		  $bExecutar = False;
          $sRet_Javs .=
		     Info_Evento('Escolha uma modalidade de pagamento, é obrigatório.',0).
		     '';
	   }
	   If ( $bExecutar && (STRLEN(@$aDadosS['CTP_HISPAG'])==0) ) {
		  $bExecutar = False;
          $sRet_Javs .=
		     Info_Evento('Histórico é obrigatório.',0).
		     '';
	   }
	   
	   If ( $bExecutar && (@$aDadosS['CTP_DTDIGP']+0)==0 ) {
		  $bExecutar = False;
          $sRet_Javs .=
		     Info_Evento('Data de Pagamento é obrigatório.',0).
		     '';
	   }
	   
	   If ( $bExecutar ) {
	      $Row = MYSQL_QUERY("SELECT * FROM cad_centro_custo WHERE CUS_CODIGOI=".$aDadosS['CTP_CODCUS'].";") or die(MYSQL_ERROR());
		  If ( $Row = MYSQL_FETCH_OBJECT($Row) ) {
			  If ( Somente_Numeros(SUBSTR($Row->CUS_CODIGO,4,3))+0==0 ) {
		         $bExecutar = False;
                 $sRet_Javs .=
		            Info_Evento('Não pode escolher um grupo do centro de custo, só o item.',0).
		            '';
			  } Else {
				 $aDadosS['CUS_DESCRI'] = $Row->CUS_DESCRI;
			  }
		  } Else {
		     $bExecutar = False;
             $sRet_Javs .=
		        Info_Evento('Erro interno, codigo do centro de custo não localizado.',0).
		        '';
		  }
	   }
	   If ( $bExecutar ) {
	      $aSessao[$sNomeAcesso.'_PriCTP']['CTP_BAIXA_'][$aDadosS['CTP_ID_MOV']] = $aDadosS;
          $sRet_Javs .=
	         'parent.Car_'.$sNomeAcesso.'5.P_Atu();'.
	          $oJanelaPrinc->sJavOnClickF.
	          '';
	   }
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	      "parent.document.getElementById('".$sNomeIdJan3."_Travar').style.visibility='hidden';".
		  "parent.Disabled_In_Elems('".$sNomeIdJan3."',false);".
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
          'parent.document.getElementById("i_CTP_Cod_For").focus();'.
		   "";
	//
	// ** Tela principal **
	} Else {
	   //
	   $bExibirTela = True;
	   $bDigitado = False;
	   $nCtp_Id_Mov = Somente_Numeros(@$_POST['Ctp_Id_Mov'])+0;
	   $aDadosS = ARRAY(
	        "CTP_ID_MOV"   => $nCtp_Id_Mov,
			'CTP_PAGTOTAL' => 1,
			'CTP_VALPAG'   => 0,
			'CTP_VALJUR'   => 0,
			'CTP_VALDES'   => 0,
			'CTP_VALDUP'   => -1,
			'CTP_CODCUS'   => 0,
			'CTP_CODCTA'   => 0,
			'CTP_CODMOD'   => 0,
			'CTP_HISPAG'   => '',
			'CTP_DTDIGP'   => 0,
			'CUS_DESCRI'   => ''
			);
	   //
	   $aTemp = @$aSessao[$sNomeAcesso.'_PriCTP']['CTP_BAIXA_'][$aDadosS['CTP_ID_MOV']];
	   If ( @$aTemp['CTP_VALPAG']>0 OR @$aTemp['CTP_VALDES']>0 ) {
	      $aDadosS = $aTemp;
		  $bDigitado = True;
	      $bExibirTela = False;
	   }
	   //
	   If ($bDigitado) {
	      UNSET( $aSessao[$sNomeAcesso.'_PriCTP']['CTP_BAIXA_'][$aDadosS['CTP_ID_MOV']] );
          $sRet_Javs .=
	        'parent.Car_'.$sNomeAcesso.'5.P_Atu();'.
			'';
	   }
	   //
	   If ($bExibirTela) {
	      //
	      $oJanelaPrinc->aIdsObjList =
	         ARRAY( 'i_PAG_PagTotal','i_PAG_DtDigP','i_PAG_ValPag', 'i_PAG_CodCus', 'i_PAG_CodCta', 'i_PAG_CodMod','i_PAG_HisPag' );
	      //
          // Tela HTML
          $sRet_TelaJ_HTML =
    	     $oJanelaPrinc->MontaJanHTML(True).
		     '<div style="position:absolute; top:-300px;">'.
              '<form name="fmPCTP_Pag" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'7">'.
               '<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_PagTotal" type="hidden" value="">'.
               '<input name="CTP_ValPag" type="hidden" value="">'.
               '<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>'.
		     '</div>'.
		     '<style type="text/css" rel="stylesheet">'.
		      '.Div_CTP_Pag '.
		        'input,select {'.
		   	   'height:20px;'.
		   	   'background:#FFFFFF;'.
		   	   'border-width:1px;'.
		   	   'border-style:solid;'.
		   	   'border-color: #0099FF;'.
		   	   'font-size:13px;'.
		   	   'font-weight:bold;'.
		   	   'color:#444444;'.
		        '}'.
		      '.Div_CTP_Pag '.
		   	 'span {'.
		   	   'font-size:13px;'.
		   	   'font-weight:bold;'.
		   	   'color:#444444;'.
		   	 '}'.
		     '</style>'.
		     '<div class="Div_CTP_Pag">'.
		     '<table>'.
		      '<tr>'.
		       '<td width="120px" height="26px" align="right" valign="middle">'.
		   	    'Fornecedor:'.
		   	   '</td>'.
		   	   '<td align="left" valign="middle">'.
		   	    '<span id="sp_PAG_ForNom"></span>'.
		   	   '</td>'.
		      '</tr>'.
		     '</table>'.
		     '<table>'.
		      '<tr>'.
		       '<td width="120px" height="26px" valign="middle" align="right">'.
		   	    'Duplicata:'.
		   	   '</td>'.
		   	   '<td width="80px" valign="middle" align="left">'.
		   	    '<span id="sp_PAG_NumDup"></span>'.
		   	   '</td>'.
		   	   '<td width="100px" valign="middle" align="right">'.
		   	    'Vencimento:'.
		   	   '</td>'.
		   	   '<td align="left" valign="middle">'.
		   	    '<span id="sp_PAG_Vencim">00/00/0000</span>'.
		   	   '</td>'.
		      '</tr>'.
		     '</table>'.
		     '<table>'.
		      '<tr>'.
		       '<td width="120px" height="26px" valign="middle" align="right">'.
		   	    'Histórico:'.
		   	   '</td>'.
		   	   '<td align="left" valign="middle">'.
		   	    '<span id="sp_PAG_Histor"></span>'.
		   	   '</td>'.
		      '</tr>'.
		     '</table>'.
		     '<table>'.
		      '<tr>'.
		       '<td width="120px" height="26px" valign="middle" align="right">'.
		   	    'Valor:'.
		   	   '</td>'.
		   	   '<td width="80px"align="left" valign="middle">'.
		   	    '<span id="sp_PAG_ValDup">0,00</span>'.
		   	   '</td>'.
		       '<td width="100px" height="26px" valign="middle" align="right">'.
		   	    'Pagamento total:'.
		   	   '</td>'.
		   	   '<td align="left" valign="middle">'.
		   	    '<select id="i_PAG_PagTotal" style="width:100px;" onchange="Car_'.$sNomeAcesso.'6.Atualiza();">'.
		   	     '<option value="1">Sim</option>'.
		   	     '<option value="0" '.( ((@$aDadosS['CTP_PAGTOTAL']+0)==0) ? 'selected' : '').'>Não</option>'.
		   	    '</select>'.
		   	   '</td>'.
		      '</tr>'.
		     '</table>'.
		     '<table border="0">'.
		        '<tr>'.
                   '<td width="160px" height="26px" valign="middle" align="right">'.
		   	          'Data de pagamento:'.
					  '&nbsp;&nbsp;'.
		   	       //'</td>'.
		   	       //'<td align="left">'.
			          '<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.'6.Atualiza();">'.
		   	       '</td>'. 
				   
                   				   
			    '</tr>'.
				'</table>'.
				'<table border="0">'.
				
		      '<tr>'.
		       '<td width="120px" height="26px" valign="middle" align="right">'.
		   	    'Valor pago:'.
		   	   '</td>'.
			   
		   	   '<td width="80px" valign="middle" align="left">'.
		   	    '<input id="i_PAG_ValPag" value="'.@$aDadosS['CTP_VALPAG'].'" type="text" maxlength="10" style="width:100px;" onchange="Car_'.$sNomeAcesso.'6.Atualiza();">'.
		   	   '</td>'.
		       '<td width="80px" valign="middle" align="right">'.
		   	    'Juros:'.
		   	   '</td>'.
		   	   '<td align="left" valign="middle">'.
		   	    '<span id="sp_PAG_ValJur">0,00</span>'.
		   	   '</td>'.
		      '</tr>'.
		     '</table>'.
		     '<table>'.
		      '<tr>'.
		       '<td width="120px" height="26px" valign="middle" align="right">'.
		   	    'Valor restante:'.
		   	   '</td>'.
		   	   '<td width="80px" align="left" valign="middle">'.
		   	    '<span id="sp_PAG_ValRes">0,00</span>'.
		   	   '</td>'.
		       '<td width="100px" height="26px" valign="middle" align="right">'.
		   	    'Desconto:'.
		   	   '</td>'.
		   	   '<td width="80px" align="left" valign="middle">'.
		   	    '<span id="sp_PAG_ValDes">0,00</span>'.
		   	   '</td>'.
		      '</tr>'.
		     '</table>'.
		     '<table>'.
		      '<tr>'.
		       '<td width="120px" height="26px" valign="middle" align="right">'.
		   	    'Centro de custo:'.
		   	   '</td>'.
		   	   '<td align="left" valign="middle">'.
		   	    '<select id="i_PAG_CodCus" style="width:400px;">'.
				 $sHTML_Combo_CodCUS.
		   	    '</select>'.
				'<span style="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;">'.
				 $sHTML_Combo_CodCTA.
		   	    '</select>'.
				'<span style="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;">'.
				 $sHTML_Combo_CodMod.
		   	    '</select>'.
				'<span style="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" value="'.@$aDadosS['CTP_HISPAG'].'" type="text" maxlength="200" style="width:400px;"  onchange="Car_'.$sNomeAcesso.'6.Atualiza();">'.
				'<span style="color:#FF0000;">'.
				   '&nbsp;&nbsp;'.
	    	       '*'.
		    	'</span>'.
		   	   '</td>'.
		      '</tr>'.
		     '</table>'.
			 //
             '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
              '<td width="8px" height="40px" align="left">&nbsp;</td>'.
              '</td>'.
              '<td align="left" width="150px">'.
               HTML_Botao( 3, 'bt_CTP_Pag_Conf', 'Car_'.$sNomeAcesso.'6.Confirma();'
                            , 'Confirmar (F10)' ,'images/btimg_ativar.png',130).
              '</td>'.
              '<td align="right" width="136px">'.
               HTML_Botao( 3, 'bt_CTP_Pag_Canc', $oJanelaPrinc->sJavOnClickF
                            , 'Cancelar (ESC)' ,'images/btimg_fechar.png',130).
              '</td>'.
              '<td width="8px" align="left">&nbsp;</td>'.
              '</td>'.
             '</tr></table>'.
		     '</div>'.
		     //
    	     $oJanelaPrinc->MontaJanHTML(False);
          //
	      // Java anterior
          $sRet_Javs .=
	         "parent.document.getElementById('".$sNomeIdJan3."_Travar').style.visibility='visible';".
		     "parent.Disabled_In_Elems('".$sNomeIdJan3."',true);".
		     "function Teclas_F( Objeto, Evento ) {".
                "vNumTecla = parent.Tecla_Apertada(Evento);".
		   	    "sAntFocus = parent.sIdHasFocus;".
		        "if ( vNumTecla==116) { ".        //  ** [F5] **          Não atualizar
                    //
		        "} else if ( vNumTecla==121) { ". //  ** [F10] **         Confirmar
		   	        "Confirma();".
		   	        //
		        "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                    $oJanelaPrinc->sJavOnClickF.
		   		    //
		        "} else if ( vNumTecla==13) { ".  //  ** [ENTER] **
		   	      "while (true) {".
		   		    "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),sAntFocus);".
		   		    "if ( sTempId.length>0 ) {".
		   		        "parent.document.getElementById(sTempId).focus();".
		   			    "if (sTempId == parent.sIdHasFocus ) {".
		   				    //'parent.document.getElementById(sTempId).select();'.
		   				    "break;".
		   				"}".
		   				"sAntFocus=sTempId;".
		   		    "} else {".
                        'parent.document.getElementById("i_PAG_PagTotal").focus();'.
		   				'break;'.
		   		    "}".
		   		 "}".
		   	     //
		   	   "} else {".
		   	     "return true;".
		   	   "}".
		   	   "return false;".
             '}'.
		     'function Atualiza() {'.
		       "var fm = parent.document.forms.fmPCTP_Pag;".
		       "fm.target = 'car_".$sNomeAcesso."9';".
               "fm.acao.value='ATUALIZA'; ".
		   	   "fm.CTP_PagTotal.value=parent.document.getElementById('i_PAG_PagTotal').value;".
		   	   "fm.CTP_ValPag.value=parent.document.getElementById('i_PAG_ValPag').value;".
		   	   "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.submit();".
		     '}'.
		     'function Confirma() {'.
			   "parent.".$sJava_Desfoca_Input.
			   "Atualiza();".
			   "parent.JanEspera(true, 'Confirmando...');".
         	   "setTimeout( function() { ".
		         "var fm = parent.document.forms.fmPCTP_Pag;".
		         "fm.target = 'car_".$sNomeAcesso."8';".
                 "fm.acao.value='CONFIRMA'; ".
                 "fm.submit();".
			    "} , 700);".
		     '}'.
		     '';
	      //
          // Java posterior
          $sRet_JavsPos .=
		     ( @$aDadosS['CTP_CODMOD']+0==0 ? '' :
		     "parent.document.getElementById('i_PAG_CodMod').value = '".@$aDadosS['CTP_CODMOD']."';"
			 ).
	         'Atualiza();'.
             'parent.document.getElementById("i_PAG_PagTotal").focus();'.
			 'parent.Calendar.setup({ '.
                'inputField : "i_PAG_DtDigP", '.
                'trigger    : "bt_CTP_DtDP", '.
                'onSelect   : function() { this.hide(); Atualiza(); }, '.
                'showTime   : 0, '.
                'dateFormat : "%d/%m/%Y" '.
             '});'.
	         '';
       } Else {
	      $sAcao = "FECHAR";
       }
	}
  	$aSessao[$sNomeAcesso.'_PagCTP'] = $aDadosS;
	//
//
//  ** CONSULTA AO CADASTRO DE FORNECEDORES **
} ElseIf ( $sSubModulo=="CSL_PSQFOR" ) {
   $bDir_Consult = True;
   $nQdrNomeAcs  = 10;
   $sNomeIdJ_Ant = $aSessao[$sNomeAcesso.'_Vars']['Ant_Jan_Id'];
   $sNomeIdCampo = $aSessao[$sNomeAcesso.'_Vars']['Ant_Inp_Id'];
   $sJavaExePos  = $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'];
   REQUIRE "./modulos/consulta_fornecedor.inc";
   //

   
//  ** CONSULTA AO CADASTRO DE CENTRO DE CUSTO **
} ElseIf ( $sSubModulo=="CSL_PSQCUS" ) {
   $bDir_Consult = True;
   $nQdrNomeAcs  = 9;
   $bCTP = 1;
   $s_Filtro_SQL = '';
   $sNomeIdJ_Ant = $aSessao[$sNomeAcesso.'_Vars']['Ant_Jan_Id'];
   $sNomeIdCampo = $aSessao[$sNomeAcesso.'_Vars']['Ant_Inp_Id'];
   $sJavaExePos  = $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'];
   REQUIRE "./modulos/consulta_centro_custos.inc";
   
// 
} ElseIf ( $sSubModulo=="BAIXA_CSL_PSQCUS" ) {
   $bDir_Consult = True;
   $nQdrNomeAcs  = 10;
   $bCTP = 1;
   $s_Filtro_SQL = '';
   $sNomeIdJ_Ant = $aSessao[$sNomeAcesso.'_Vars']['Ant_Jan_Id'];
   $sNomeIdCampo = $aSessao[$sNomeAcesso.'_Vars']['Ant_Inp_Id'];
   $sJavaExePos  = $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'];
   REQUIRE "./modulos/consulta_centro_custos.inc";

  
} ElseIf ( $sSubModulo=="CFM_INATIVAR" ) {
   $sNomeIdJ_Ant = $sNomeIdJan1;          
   $sNomeIdCampo = "in_CTP_Cod_For";  
   $sJavaExeCfm  = 
       "vAnt_target = parent.document.forms.fmPDup_Pesq.target;".
       "NomeQdrCar = vAnt_target;".
       "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'2';".
       "parent.document.forms.fmPDup_Pesq.target = NomeQdrCar;".
       "parent.document.forms.fmPDup_Pesq.acao.value='CAN_DUP';".
       "parent.document.forms.fmPDup_Pesq.submit(); ".	 
       "parent.document.forms.fmPDup_Pesq.Ctp_Id_Mov.value='';".
	   "parent.document.forms.fmPDup_Pesq.target = vAnt_target;".
	   "";                             
     
	 $sJavaExePos  =  
	   "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
       "parent.document.getElementById('".$sNomeIdCampo."').focus();".
	   "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".  	 
       "";                             
     REQUIRE "./modulos/tela_senha_ctp.inc";       
} ElseIf ( $sSubModulo=="CFM_BAIXA" ) {
   $bDir_Consult = True;
   $nQdrNomeAcs  = 9;
   $sNomeIdJ_Ant = $sNomeIdJan4;          
   $sNomeIdCampo = "in_CTP_Cod_For"; 
   
   $sJavaExeCfm  = 
      Info_Evento('Duplicata baixada.',0).
      "";                             
   $sJavaExePos  =  
	  "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	  "parent.document.getElementById('".$sNomeIdCampo."').focus();".
	  "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".  	 
	  'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
	  "";		  
      
   REQUIRE "./modulos/baixa_dup_inc.inc";

	 
	 
}	 
//
?>

