<?php
REQUIRE_ONCE "./global/fin_funcoes.inc";                  // Carrega as funcoes de contas á receber
REQUIRE_ONCE "./global/funcoes_cc_cli.inc";               // Carrega as funcoes de conta corrente de cliente
//
$sNomeIdJan1 = 'iJan_Ctr_Princ';   // Tela de consulta das contas á receber
$sNomeIdJan2 = 'iJan_Ctr_Receb';   // Tela de baixa
$sNomeIdJan3 = 'iJan_Ctr_TelRe';   // Tela de consulta para baixa
$sNomeIdJan4 = 'iJan_Ctr_In_Ed';   // Tela de inclusão / edicão
$sCorBarraInf = '#E8E3CE';
//
$sNomeIdJan1_Cxa = 'iJan_Cxa_Princ';   // Tela das mesas, balcão e Disk Entrega (Principal)
$sData_Trabalho  = SQLVarConfig('DATA_DE_TRABALHO');
$sTipoLocal      = SQLVarConfig('NOME_LOCAIS_SVC');
$sCan_Senha_Ctr      = SQLVarConfig('SENHA_INATIVAR_CTR');

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


$aQuadrosAds = ARRAY( "RELFTG" => 10 );   // Quadros iframe adicionais				
//
//
// ** 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 á receber (Consulta)';
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
    //
	$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->sTabelas     = 'fin_contas_receber,cad_modalidade_pag,cad_cliente';
    //CTR_CODMOD=MPG_CODIGOI
	$oTabelaRegs->sBDQuery =
      'SELECT * FROM fin_contas_receber '.
      'LEFT JOIN cad_modalidade_pag  ON  CTR_CODMOD = MPG_CODIGOI '.
      'LEFT JOIN cad_cliente         ON  CTR_CODCLI = CLI_CODIGOI '.
      '';
    $oTabelaRegs->sIdObjTabela = 'iQdr_LstCSL';
    $oTabelaRegs->GLstCampos( 'CTR_NUMDUP,Duplicata,66px,STRZERO=8;'.
	                          'MPG_DESCRIC,Modalidade,100px;'.
							  'CTR_NUMPAR,Parcela,45px,;'.
	                          'CTR_DTAENT,Entrada,76px,DTA;'.
	                          'CTR_DTAVEN,Vencimento,76px,DTA;'.
							  //'CTR_HISTOR,Historico,;'.
							  'CLI_CODIGOI,Cliente,66px,STRZERO=8;'.
							  'CLI_NOMECP,Nome do cliente;'.
							  'CTR_VALDUP,Valor,80px,MOE;'.
							  //'CTR_VALJUR,Juros,80px,MOE;'.
							  //'CTR_VALDES,Desconto,80px,MOE;'.
							  'CTR_VALREC,Recebido,90px,MOE;'
                            );
    $oTabelaRegs->sCampoIndice = 'CTR_ID_MOV';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 400;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>);";
    $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_CTR_Csl_Edt').style.display='inline-block';".
	   "parent.document.getElementById('bt_CTR_Csl_Can').style.display='inline-block';".
	   "";
	//
	$aDadosS = @$aSessao[$sNomeAcesso.'_PriCSL'];
	//
	// ** Tela principal **
	If ( EMPTY($sAcao) )  {
	   $aDadosS = ARRAY(
	        "PESQ_CODCLI"  => 0,
			"PESQ_DT1VEN"  => ConvertDataSTR( DATE("Y-m-d") ),
			"PESQ_DT2VEN"  => ConvertDataSTR( DATE("Y-m-d") ),
			"PESQ_OPCAOR"  => 1,
			"INICIO_MOD"   => True
		   );
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY( 'in_CTR_Cod_Cli','in_CTR_Dt1V','in_CTR_Dt2V','sl_CTR_Opcao_' );
	   //
       // 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_CodCli" 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="Ctr_Id_Mov" type="hidden" value="">'.
           '</form>'.
		  '</div>'.
		  '<style type="text/css" rel="stylesheet">'.
		    '.Tab_CTR_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_CTR_Rec '.
		      'td {'.
			  'height:30px;'.
		      'font-size:14px;'.
		      'color:#222222;'.
		    '}'.
		    '.Tab_CTR_Rec '.
		      'span {'.
		      'font-size:15px;'.
		      'font-weight:bold;'.
		      'color:#444444;'.
		    '}'.
		  '</style>'.
		  '<div style="height:2px;"></div>'.
		  '<table width="100%">'.
		   '<tr>'.
		    '<td width="60px" align="right">'.
			 'Cliente:'.
			 '<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;">'.
    	          //'Ex: <br>'.
				  //'13 ou<br>'.
				  //'998772190'.
				  'Digite um Código <br>ou Telefone <br>'.
				  'de um Cliente<br>'.
				  'ou /(barra) <br> p/ consulta.'.
				  
               '</span>'.      
			'</td>'.
		    '<td width="300px" align="left">'.
			 '<input id="in_CTR_Cod_Cli" type="text" maxlength="30" style="width:60px;" onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados();">'.
			 '&nbsp;&nbsp;'.
			 //
			 HTML_Botao( 3, 'Ent_BT_Psq' , "document.getElementById('in_CTR_Cod_Cli').value='/';". 
			                               'Car_'.$sNomeAcesso.'1.Atualiza_Dados();'
			              , ''  ,'images/btimg_lupa.png',24).
			  //
			 '<span id="sp_CSL_CliNom" 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_CTR_Dt1V" style="cursor:pointer;">'.
			   '</td>'.
			   '<td width="80px" align="left">'.
			    '<input id="in_CTR_Dt1V" type="text" value="'.ConvertDataUSBR(DATE("Y-m-d")).'" maxlength="10" 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_CTR_Dt2V" style="cursor:pointer;">'.
			   '</td>'.
			   '<td width="80px" align="right">'.
			    '<input id="in_CTR_Dt2V" type="text" value="'.ConvertDataUSBR(DATE("Y-m-d")).'" maxlength="10" 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_CTR_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>'.
		  // 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_CTR_Csl_Nov', 'Car_'.$sNomeAcesso.'1.Novo_Dup();'
			             , 'Novo (F6)'   ,'images/btimg_novo.png',100).
           '</td>'.
           '<td align="left" width="110px">'.
            HTML_Botao( 3, 'bt_CTR_Csl_Edt', 'Car_'.$sNomeAcesso.'1.Editar_Dup();'
                         , 'Editar (F7)' ,'images/btimg_editar.png',100).
           '</td>'.
           '<td align="left" width="120px">'.
            HTML_Botao( 3, 'bt_CTR_Csl_Can', 'Car_'.$sNomeAcesso.'1.Cancela_Dup();'
                         , 'Inativar (F8)' ,'images/btimg_remover.png',110).
           '</td>'.
           '<td align="right" width="160px">'.
            HTML_Botao( 3, 'bt_CTR_Csl_Bai', 'Car_'.$sNomeAcesso.'1.Chamar_Baixas();'
                         , 'Receber Contas (F9)' ,'images/btimg_dinheiro.png',160).
           '</td>'.
           '<td align="right">'.
            HTML_Botao( 3, 'bt_CTR_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_CTR_Csl_Edt').style.display='none';".
		    "parent.document.getElementById('bt_CTR_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.submit();".
			" }, 300);".
            'parent.document.getElementById("in_CTR_Cod_Cli").focus();'.
          '}'.
	      'function Atualiza_Dados() {'.
		    "var fm = parent.document.forms.fmPDup_Pesq;".
		    'fm.Pesq_CodCli.value = parent.document.getElementById("in_CTR_Cod_Cli").value;'.
			'fm.Pesq_Dt1Ven.value = parent.document.getElementById("in_CTR_Dt1V").value;'.
			'fm.Pesq_Dt2Ven.value = parent.document.getElementById("in_CTR_Dt2V").value;'.
			'fm.Pesq_OpcaoR.value = parent.document.getElementById("sl_CTR_Opcao_").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==117) { ". // ** [F6] **          Nova duplicata
			     "if ( parent.document.getElementById('bt_CTR_Csl_Nov').style.display != 'none' ) {".
				     "Novo_Dup();".
				 "}".
				 //
		     "} else if ( vNumTecla==118) { ". // ** [F7] **          Editar duplicata
			     "if ( parent.document.getElementById('bt_CTR_Csl_Edt').style.display != 'none' ) {".
				     "Editar_Dup();".
				 "}".
		     "} else if ( vNumTecla==119) { ". // ** [F8] **          Deletar duplicata
			     "if ( parent.document.getElementById('bt_CTR_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.Ctr_Id_Mov.value = sSelIndice;'.
            "fm.submit();".
            'fm.submod.value="'.$sSubModulo.'";'.
			'fm.Ctr_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.Ctr_Id_Mov.value = "NOVO";'.
            "fm.submit();".
            'fm.submod.value="'.$sSubModulo.'";'.
			'fm.Ctr_Id_Mov.value = "";'.
		  '}'.
		  'function Cancela_Dup() {'.
		    "var fm = parent.document.forms.fmPDup_Pesq;".
			'fm.Ctr_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_Ctr)==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='';"
					  ).
				 "}"
					  
					  //"parent.JanEspera(true,'Deletando duplicata... Aguarde...');".
		              //"var fm = parent.document.forms.fmPDup_Pesq;".
		              //"fm.target = 'car_".$sNomeAcesso."2';".
                      //"fm.acao.value='CAN_DUP';".
                      //"fm.submit();".
                      //"fm.acao.value='';".
			          //'fm.Ctr_Id_Mov.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."4';".
              "fm.submod.value='TEL_REC'; ".
		      "fm.acao.value=''; ".
              "fm.submit();".
			  "fm.target = sTargetAnt;".
              "fm.submod.value=''; ".
		  '}'.
		  '';
	   //
       // Java posterior
       $sRet_JavsPos .=
    	  "P_Atu();".
          'parent.Calendar.setup({ '.
            'inputField : "in_CTR_Dt1V", '.
            'trigger    : "bt_CTR_Dt1V", '.
            'onSelect   : function() { this.hide(); Atualiza_Dados(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
          'parent.Calendar.setup({ '.
            'inputField : "in_CTR_Dt2V", '.
            'trigger    : "bt_CTR_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 Á RECEBER
	} ElseIf ($sAcao=="LISTAR_REG") {
	   //
	   //$sSQLParm = 'CTR_CANCEL=0 AND CTR_CODEMP='.$Dados_Empresa['EMP_CODIGOI'].' AND CTR_CODCLI=CLI_CODIGOI';
	   $sSQLParm = 'CTR_CANCEL=0 AND CTR_CODEMP='.$Dados_Empresa['EMP_CODIGOI'].' ';
	   $sRet_TelaJ_HTML = '';
	   If ( $aDadosS['PESQ_DT1VEN']>0 ) {
	      $sSQLParm .= ' AND CTR_DTAVEN>="'.DATE("Y-m-d",$aDadosS['PESQ_DT1VEN']).'"';
	   }
	   If ( $aDadosS['PESQ_DT2VEN']>0 ) {
	      $sSQLParm .= ' AND CTR_DTAVEN<="'.DATE("Y-m-d",$aDadosS['PESQ_DT2VEN']).'"';
	   }
	   //
	   If ( $aDadosS['PESQ_CODCLI']>0 ) {
	      $sSQLParm .= ' AND CTR_CODCLI='.$aDadosS['PESQ_CODCLI'];
	   }
	   If ( $aDadosS['PESQ_OPCAOR']==1 ) {
	      $sSQLParm .= ' AND CTR_DTAREC=0';
	   } ElseIf ( $aDadosS['PESQ_OPCAOR']==2 ) {
	      $sSQLParm .= ' AND CTR_DTAREC>0';
	   }
	   //
	   $oTabelaRegs->s_PHP_ColunaTb =
			  'If ( $aBDCamposN[$nContador]=="CTR_NUMPAR" ) {'.
			     '$sConteudoCRow = $Row_Temp2Tabela["CTR_NUMPAR"]."/".$Row_Temp2Tabela["CTR_TOTPAR"];'.
			  '}';
	   
	   //
       //$oTabelaRegs->sBDParametros = 'WHERE CTR_CODMOD=MPG_CODIGOI AND '.$sSQLParm.' ORDER BY CTR_DTAVEN ASC, CTR_DTAREC ASC, CTR_ID_MOV ASC';
       $oTabelaRegs->sBDQuery .= 'WHERE '.$sSQLParm.' ORDER BY CTR_DTAVEN ASC, CTR_DTAREC ASC, CTR_ID_MOV ASC';
	   //
       $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 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;'.
		   "";
       $sRet_TelaJ_HTML = '';
	   $aDadosS['INICIO_MOD'] = False;
	   //
    //
    // ATUALIZAR DADOS EM MEMÓRIA: CLIENTE
    } ElseIf ( $sAcao=="ATUALIZA_DADOS" ) {
	   $s_CodCli = @$_POST['Pesq_CodCli'];
	   $s_Dt1Ven = @$_POST['Pesq_Dt1Ven'];
	   $s_Dt2Ven = @$_POST['Pesq_Dt2Ven'];
	   $n_OpcaoR = @$_POST['Pesq_OpcaoR']+0;
	   $s_NomeCP = '';
	   If ( $aDadosS['PESQ_CODCLI']<>$s_CodCli ) {
	      $aDadosS['CTR_BAIXA_']=ARRAY();
	      //
          // Java
          $sRet_Javs .=
             "var iQdr = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."'); ".
    	     'iQdr.innerHTML = ""; '.
             'parent.Car_'.$sNomeAcesso.'4.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
		     "";
	   }
	   $aDadosS['PESQ_CODCLI']=0;
	   $aDadosS['PESQ_OPCAOR']=$n_OpcaoR;
	   If ( SUBSTR($s_CodCli,0,1)=="/" ) {
	      //
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $s_CodCli );
		  $s_CodCli = '';
		  $s_NomeCP = "(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_PSQCLI'; ".
		          "fm.submit();".
			      "fm.target = TargetAnt;".
		          "fm.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   } Else {
	       //$s_CodCli = Somente_Numeros($s_CodCli)+0;
	       If ( $s_CodCli>0 ) {
	          $Row_CadCli = MYSQL_QUERY("SELECT * FROM cad_cliente WHERE CLI_CODIGOI=".$s_CodCli." AND CLI_TRAREG=0;") or die(MYSQL_ERROR());
		      If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
		         $s_NomeCP = $Row_CadCli->CLI_NOMECP;
		    	 $s_CodCli = Str_Zero($s_CodCli,6);
	             $aDadosS['PESQ_CODCLI']=$Row_CadCli->CLI_CODIGOI;
		      } Else {      // Cliente não encontrado
                 $sSQLQueryA =
			       "SELECT TEL_NUMERO,TEL_TRAREG,TEL_CODCAD FROM cad_telefones ".
	               "WHERE ".
		  	       "TEL_NUMERO='".STR_REPLACE("-","",$s_CodCli)."' AND ".
				   "TEL_TIPCAD=1 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_CodCli = $RowT->TEL_CODCAD;
				    $sSQLQueryC = "SELECT CLI_CODIGOI, CLI_NOMECP FROM cad_cliente WHERE CLI_CODIGOI='".$RowT->TEL_CODCAD."' AND CLI_TRAREG=0;"; 
			        $Row_CadCli = MYSQL_QUERY($sSQLQueryC) Or Die(MYSQL_ERROR().'<br>'.$sSQLQueryC);
			        If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
	                   $s_CodCli = Str_Zero($s_CodCli,6);
	                   $s_NomeCP = $Row_CadCli->CLI_NOMECP;
					   $aDadosS['PESQ_CODCLI']=$Row_CadCli->CLI_CODIGOI;
				    } Else {
				       $s_CodCli = '';
	                   $s_NomeCP = '(Cliente não encontrado)';
		            }
				 }
		      }		 
	       } Else {         // Codigo vazio
	          $s_NomeCP = '(Todos)';
		      $s_CodCli = '';
	       }
	   }
	   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("in_CTR_Cod_Cli").value = "'.$s_CodCli.'";'.
			'parent.document.getElementById("sp_CSL_CliNom").innerHTML = '.JAVA_CharCode_Mini($s_NomeCP).';'.
			'parent.document.getElementById("in_CTR_Dt1V").value = "'.$s_Dt1Ven.'";'.
			'parent.document.getElementById("in_CTR_Dt2V").value = "'.$s_Dt2Ven.'";'.
			"";
	//
    // CANCELA DUPLICATA
    } ElseIf ( $sAcao=="CAN_DUP" ) {
       $sCTR_Id_Mov = @$_POST['Ctr_Id_Mov'];
	   $sCTR_DtaVen = @$_POST['CTR_DtaVen'];
	   $sCTR_ValDup = @$_POST['CTR_ValDup'];
	  //
	   $bPod_Ina = True;
	   $Row_FinCTR = MYSQL_QUERY("SELECT * FROM fin_contas_receber WHERE CTR_ID_MOV='".($sCTR_Id_Mov+0)."' ;") or die(MYSQL_ERROR());
       If ( $Row_FinCTR = MYSQL_FETCH_ARRAY($Row_FinCTR)) {
		 If ( $Row_FinCTR['CTR_VALREC']>0 ) {
	        $bPod_Ina = False;
            $sRet_Javs .= 
		       Info_Evento('Não é permitido inativar uma duplicata já recebida.',1);
		 }
	   } Else {
	     $bPod_Ina = False;
         $sRet_Javs .= 
		    Info_Evento('Duplicata á receber não encontrada.',1);
	   }
	   If ( $bPod_Ina ) {
	   $sSQLQuery =
	      "UPDATE fin_contas_receber SET ".
			 "CTR_CANCEL=1,".
			 "CTR_FUNCAN=".$R_CadFuncionario->FUN_CODIGO.",".
			 "CTR_DTACAN='".DATE("Y-m-d H:i:s")."'".
	      " WHERE CTR_ID_MOV='".$sCTR_Id_Mov."';";
	   MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
	   
	   $Row_FinCTR = MYSQL_QUERY("SELECT * FROM fin_contas_receber WHERE CTR_ID_MOV=".($sCTR_Id_Mov+0)." ;") or die(MYSQL_ERROR());
       If ($Row_FinCTR = MYSQL_FETCH_ARRAY($Row_FinCTR)) {
	      $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 (".
	            " ".($sCTR_Id_Mov+0)          ." ,".
			    $R_CadFuncionario->FUN_CODIGO .",".
	            "'".DATE("Y-m-d H:i:s")      ."',".
			    "'".$sData_Trabalho           ."',".
				$Row_FinCTR['CTR_NUMDUP']     .",".
	            $Row_FinCTR['CTR_CODCLI']     .",".
				"'".$Row_FinCTR['CTR_DTAVEN'] ."',".
				"'".$sCTR_DtaVen              ."',". 
	            $Row_FinCTR['CTR_VALDUP']     .",".
				"'".$sCTR_ValDup              ."',". 
	            "0,".   //receber
				"1 ".  //CANCELOU
	         "); ";
             MYSQL_QUERY($sSQLQueryL) or die(MYSQL_ERROR().' '.$sSQLQueryL);
	   }
	   //
	   //
       $sRet_Javs .=
		  "parent.JanEspera(false);".
	      'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
		  "";
	  } 
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
          "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
          'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
          "";
    }
  	$aSessao[$sNomeAcesso.'_PriCSL'] = $aDadosS;
//
//  ** TELA DE BAIXA DE CONTAS Á RECEBER **
//
} ElseIf ( $sSubModulo=="REC" ) {
    // 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 (Receber)';
    $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.fmPCTR_Rec;".
		 "fm.target = 'car_".$sNomeAcesso."7';".
         "fm.acao.value='FECHAR'; ".
         "fm.submit();".
		 "";
	//
	$aSessao["JAVA_EXECUTAR_AO_FECHAR"] = 
	     $sJavaDesTraJ.
         'parent.document.getElementById("i_REC_PagTotal").focus();'.
         "";
	//
  	$aDadosS = @$aSessao[$sNomeAcesso.'_RecCTR'];
	// **
	If ($sAcao=="ATUALIZA") {
	   $bCTR_PagTotal = Somente_Numeros(@$_POST['CTR_PagTotal'])+0;
       $nCTR_ValRec = STR_REPLACE(',','.',Somente_Numeros(@$_POST['CTR_ValRec'],',.'))+0;
	   $sCTR_HisRec = UTF8_DECODE(@$_POST['CTR_HisRec']);
	   //
	   $Row_FinCtr = MYSQL_QUERY("SELECT * FROM fin_contas_receber,cad_cliente WHERE CTR_ID_MOV=".$aDadosS['CTR_ID_MOV']." AND CTR_CODCLI=CLI_CODIGOI;") or die(MYSQL_ERROR());
       If ($Row_FinCtr = MYSQL_FETCH_ARRAY($Row_FinCtr)) {
	      // Calculos
		  $nCTR_ValDup   = $Row_FinCtr['CTR_VALDUP'];
	      If ( $aDadosS['CTR_VALDUP']<0 ) {
	         $nCTR_ValRec = $nCTR_ValDup;
		  }
		  $nCTR_ValRes   = 0;
		  $nCTR_ValJur   = $Row_FinCtr['CTR_VALJUR'];
		  $nCTR_ValDes   = $Row_FinCtr['CTR_VALDES'];
		  $n_TotaDup     = ( $Row_FinCtr['CTR_VALDUP'] + $nCTR_ValJur ) - $nCTR_ValDes;
		  If ( $bCTR_PagTotal ) { // Pagamento total
		     If ( $nCTR_ValRec > $n_TotaDup ) {
			    $nCTR_ValJur = $nCTR_ValRec - $n_TotaDup;
		     } Else {
			    $nCTR_ValDes = $n_TotaDup - $nCTR_ValRec;
			 }
		  } Else {                // Pagamento parcial
		     If ( $nCTR_ValRec > $n_TotaDup ) {
			    $nCTR_ValJur = $nCTR_ValRec - $n_TotaDup;
		     } Else {
			    $nCTR_ValRes = $n_TotaDup - $nCTR_ValRec;
			 }
		  }
		  //
		  $aDadosS['CTR_PAGTOTAL'] = $bCTR_PagTotal;
		  $aDadosS['CTR_VALREC']   = $nCTR_ValRec;
		  $aDadosS['CTR_VALJUR']   = $nCTR_ValJur;
		  $aDadosS['CTR_VALDES']   = $nCTR_ValDes;
		  $aDadosS['CTR_VALDUP']   = $nCTR_ValDup;
		  $aDadosS['CTR_HISREC']   = $sCTR_HisRec;
		  // Ajustes
	      $sCTR_DadosCli = Str_Zero($Row_FinCtr['CLI_CODIGOI'],8).' - '.PegarPorPausa($Row_FinCtr['CLI_NOMECP'],6);
		  $sCTR_NumDup   = Str_Zero($Row_FinCtr['CTR_NUMDUP'],8);
		  $nCTR_Vencim   = ConvertDataSTR($Row_FinCtr['CTR_DTAVEN']);
		  $sCTR_Vencim   = ConvertDataUSBR($Row_FinCtr['CTR_DTAVEN']);
		  $sCTR_ValDup   = "R$ ".FormatoMoeda( $Row_FinCtr['CTR_VALDUP'] );
		  $sCTR_ValRec   = "R$ ".FormatoMoeda( $nCTR_ValRec );
		  $sCTR_ValJur   = "R$ ".FormatoMoeda( $nCTR_ValJur );
		  $sCTR_ValDes   = "R$ ".FormatoMoeda( $nCTR_ValDes );
		  $sCTR_ValRes   = "R$ ".FormatoMoeda( $nCTR_ValRes );
		  // Java
          $sRet_Javs .=
	          "parent.document.getElementById('sp_REC_CliNom').innerHTML=".JAVA_CharCode_Mini($sCTR_DadosCli).";".
			  "parent.document.getElementById('sp_REC_NumDup').innerHTML='".$sCTR_NumDup."';".
			  "parent.document.getElementById('sp_REC_Vencim').innerHTML='".$sCTR_Vencim."';".
			  "parent.document.getElementById('sp_REC_ValDup').innerHTML='".$sCTR_ValDup."';".
			  "parent.document.getElementById('i_REC_ValRec').value='".$sCTR_ValRec."';".
			  "parent.document.getElementById('sp_REC_ValJur').innerHTML='".$sCTR_ValJur."';".
			  "parent.document.getElementById('sp_REC_ValDes').innerHTML='".$sCTR_ValDes."';".
			  "parent.document.getElementById('sp_REC_ValRes').innerHTML='".$sCTR_ValRes."';".
			  "var spVenc = parent.document.getElementById('sp_REC_Vencim');".
			  ( $nCTR_Vencim < MKTIME(0,0,0) ?   // Duplicata vencida
			    "spVenc.style.color = '#FF0000';"
			  :
			    "spVenc.style.color = '';"
			  ).
			  "parent.document.getElementById('sp_REC_Histor').innerHTML=".JAVA_CharCode_Mini($Row_FinCtr['CTR_HISTOR']).";".
			  ( (@$Row_FinCtr['CTR_CODFAT']+0)>0 ?
			     "var fm = parent.document.forms.fmPCTR_Rec;".
			     "fm.Fat_CodigoI.value='".@$Row_FinCtr['CTR_CODFAT']."';".
				 "parent.document.getElementById('bt_CTR_Rec_Cupo').style.display='inline-block';"
			  : "" ).
			  '';
	   } Else {
           $sRet_Javs .=
	   	     "";
	   }
    //
    // CONFIRMA A BAIXA
    } ElseIf ( $sAcao=="CONFIRMA" ) {
       $sRet_Javs .=
		  "parent.JanEspera(false);".
		  "";
	   $bExecutar = True;
	   If ( $aDadosS['CTR_PAGTOTAL'] ) { // Pagamento total
	   } Else {                          // Pagamento parcial
	      If ( $aDadosS['CTR_VALREC'] >= $aDadosS['CTR_VALDUP'] ) {
		     $bExecutar = False;
             $sRet_Javs .=
			    Info_Evento('Para pagamento parcial, o valor recibido<br>deve ser menor que o da duplicata.',0).
			    '';
		  }
	   }
	   If ( $bExecutar ) {
	      $aSessao[$sNomeAcesso.'_PriCTR']['CTR_BAIXA_'][$aDadosS['CTR_ID_MOV']] = $aDadosS;
          $sRet_Javs .=
	         'parent.Car_'.$sNomeAcesso.'4.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_CTR_Cod_Cli").focus();'.
		   "";
	//
	// ** Tela principal **
	} Else {
	   //
	   $bExibirTela = True;
	   $bDigitado = False;
	   $nCtr_Id_Mov = Somente_Numeros(@$_POST['Ctr_Id_Mov'])+0;
	   $aDadosS = ARRAY(
	        "CTR_ID_MOV"   => $nCtr_Id_Mov,
			'CTR_PAGTOTAL' => 1,
			'CTR_VALREC'   => 0,
			'CTR_VALJUR'   => 0,
			'CTR_VALDES'   => 0,
			'CTR_VALDUP'   => -1,
			'CTR_HISREC'   => ''
			);
	   //
	   $aTemp = @$aSessao[$sNomeAcesso.'_PriCTR']['CTR_BAIXA_'][$aDadosS['CTR_ID_MOV']];
	   If ( @$aTemp['CTR_VALREC']>0 OR @$aTemp['CTR_VALDES']>0 ) {
	      $aDadosS = $aTemp;
		  $bDigitado = True;
	      $bExibirTela = False;
	   }
	   //
	   If ($bDigitado) {
	      UNSET( $aSessao[$sNomeAcesso.'_PriCTR']['CTR_BAIXA_'][$aDadosS['CTR_ID_MOV']] );
          $sRet_Javs .=
	        'parent.Car_'.$sNomeAcesso.'4.P_Atu();'.
			'';
	   }
	   //
	   If ($bExibirTela) {
	      //
	      $oJanelaPrinc->aIdsObjList =
	         ARRAY( 'i_REC_PagTotal','i_REC_ValRec','i_REC_HisRec' );
	      //
          // Tela HTML
          $sRet_TelaJ_HTML =
    	     $oJanelaPrinc->MontaJanHTML(True).
		     '<div style="position:absolute; top:-300px;">'.
              '<form name="fmPCTR_Rec" 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="CTR_PagTotal" type="hidden" value="">'.
               '<input name="CTR_ValRec" type="hidden" value="">'.
			   '<input name="CTR_HisRec" type="hidden" value="">'.
			   '<input name="Fat_CodigoI" type="hidden" value="">'.
              '</form>'.
		     '</div>'.
		     '<style type="text/css" rel="stylesheet">'.
		      '.Div_CTR_Rec '.
		        'input,select {'.
		   	   'height:20px;'.
		   	   'background:#FFFFFF;'.
		   	   'border-width:1px;'.
		   	   'border-style:solid;'.
		   	   'border-color: #0099FF;'.
		   	   'font-size:13px;'.
		   	   'font-weight:bold;'.
		   	   'color:#444444;'.
		        '}'.
		      '.Div_CTR_Rec '.
		   	 'span {'.
		   	   'font-size:13px;'.
		   	   'font-weight:bold;'.
		   	   'color:#444444;'.
		   	 '}'.
		     '</style>'.
		     '<div class="Div_CTR_Rec">'.
		     '<table>'.
		      '<tr>'.
		       '<td width="120px" height="26px" align="right" valign="middle">'.
		   	    'Cliente:'.
		   	   '</td>'.
		   	   '<td align="left" valign="middle">'.
		   	    '<span id="sp_REC_CliNom"></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_REC_NumDup"></span>'.
		   	   '</td>'.
		   	   '<td width="100px" valign="middle" align="right">'.
		   	    'Vencimento:'.
		   	   '</td>'.
		   	   '<td align="left" valign="middle">'.
		   	    '<span id="sp_REC_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_REC_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_REC_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_REC_PagTotal" style="width:100px;" onchange="Car_'.$sNomeAcesso.'6.Atualiza();">'.
		   	     '<option value="1">Sim</option>'.
		   	     '<option value="0" '.( ((@$aDadosS['CTR_PAGTOTAL']+0)==0) ? 'selected' : '').'>Não</option>'.
		   	    '</select>'.
		   	   '</td>'.
		      '</tr>'.
		     '</table>'.
		     '<table>'.
		      '<tr>'.
		       '<td width="120px" height="26px" valign="middle" align="right">'.
		   	    'Valor recebido:'.
		   	   '</td>'.
		   	   '<td width="80px" valign="middle" align="left">'.
		   	    '<input id="i_REC_ValRec" value="'.@$aDadosS['CTR_VALREC'].'" 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_REC_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_REC_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_REC_ValDes">0,00</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_REC_HisRec" value="'.@$aDadosS['CTR_HISREC'].'" type="text" maxlength="200" style="width:400px;"  onchange="Car_'.$sNomeAcesso.'6.Atualiza();">'.
		   	   '</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_CTR_Rec_Conf', 'Car_'.$sNomeAcesso.'6.Confirma();'
                            , 'Confirmar (F10)' ,'images/btimg_ativar.png',130).
              '</td>'.
              '<td align="center">'.
               HTML_Botao( 3, 'bt_CTR_Rec_Cupo', 'Car_'.$sNomeAcesso.'6.Abrir_Cupom();'
                            , 'Comanda (F9)' ,'images/btimg_comandas.png',140).
              '</td>'.
              '<td align="right" width="136px">'.
               HTML_Botao( 3, 'bt_CTR_Rec_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==120) { ". //  ** [F9] **          Abrir comanda
                    "if ( parent.document.getElementById('bt_CTR_Rec_Cupo').style.display != 'none') {".
				        "Abrir_Cupom();".
					 "}".
		   	        //
		        "} 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_REC_PagTotal").focus();'.
		   				'break;'.
		   		    "}".
		   		 "}".
		   	     //
		   	   "} else {".
		   	     "return true;".
		   	   "}".
		   	   "return false;".
             '}'.
		     'function Atualiza() {'.
		       "var fm = parent.document.forms.fmPCTR_Rec;".
		       "fm.target = 'car_".$sNomeAcesso."7';".
               "fm.acao.value='ATUALIZA'; ".
		   	   "fm.CTR_PagTotal.value=parent.document.getElementById('i_REC_PagTotal').value;".
		   	   "fm.CTR_ValRec.value=parent.document.getElementById('i_REC_ValRec').value;".
		   	   "fm.CTR_HisRec.value=parent.document.getElementById('i_REC_HisRec').value;".
               "fm.submit();".
		     '}'.
		     'function Confirma() {'.
			   "parent.".$sJava_Desfoca_Input.
			   "Atualiza();".
			   "parent.JanEspera(true, 'Confirmando...');".
         	   "setTimeout( function() { ".
		         "var fm = parent.document.forms.fmPCTR_Rec;".
		         "fm.target = 'car_".$sNomeAcesso."7';".
                 "fm.acao.value='CONFIRMA'; ".
                 "fm.submit();".
			    "} , 700);".
		     '}'.
		     "function Abrir_Cupom() {".
		          $sJavaTravarJ.
		          "var fm = parent.document.forms.fmPCTR_Rec;".
			      "sAntTarget = fm.target;".
			      "fm.target = 'car_RELFTG2';".
			      "fm.acao.value = '_AVULSO_';".
    	          "fm.nomeacs.value='RELFTG';".
			      "fm.mod.value = 'fin_fat_geral';".
                  "fm.submod.value='CUPOM';".
			      "fm.submit();".
                  "fm.mod.value='".$sModulo."';".
                  "fm.submod.value='".$sSubModulo."';".
                  "fm.acao.value='';".
    	          "fm.nomeacs.value='".$sNomeAcesso."';".
			      "fm.target = sAntTarget;".
		     "}".
		     '';
	      //
          // Java posterior
          $sRet_JavsPos .=
			 "parent.document.getElementById('bt_CTR_Rec_Cupo').style.display='none';".
	         'Atualiza();'.
             'parent.document.getElementById("i_REC_PagTotal").focus();'.
	         '';
       } Else {
	      $sAcao = "FECHAR";
       }
	}
  	$aSessao[$sNomeAcesso.'_RecCTR'] = $aDadosS;
	//
//
//
//  ** TELA DE CONSULTA DE BAIXA CONTAS Á RECEBER **
//
} ElseIf ( $sSubModulo=="TEL_REC" ) {
    // 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 á receber (Baixa)';
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."4.Teclas_F(this,event);";
    //
	$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.fmPCTR_Pesq;".
		 "fm.target = 'car_".$sNomeAcesso."5';".
         "fm.acao.value='FECHAR_CF'; ".
         "fm.submit();".
		 "";
    //
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
	$oTabelaRegs->sTabelas     = 'fin_contas_receber,cad_modalidade_pag';
    $oTabelaRegs->sIdObjTabela = 'iQdr_LstCTR';
    $oTabelaRegs->GLstCampos( 'CTR_NUMDUP,Duplicata,66px,STRZERO=8;'.
	                          //'MPG_DESCRIC,Tipo,150px;'.
							  'CTR_NUMPAR,Parcela,45px,;'.
	                          'CTR_DTAFIC,Entrada,76px,DTA;'.
							  'FAT_TIP_LOC,Venda,80px;'.
							  'CTR_HISTOR,Historico,;'.
	                          'CTR_DTAVEN,Vencimento,76px,DTA;'.
							  'CTR_VALDUP,Valor,80px,MOE;'.
							  'CTR_VALJUR,Juros,80px,MOE;'.
							  'CTR_VALDES,Desconto,80px,MOE;'.
							  'CTR_VALREC,Á Baixar,90px,MOE;'
                            );
    $oTabelaRegs->sCampoIndice = 'CTR_ID_MOV';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 212;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."4.P_Sel(<NUMCAM>);";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."4.PRow_Sel(<QTDCOL>,<SELLIN>); ";
    $oTabelaRegs->sLinhaOnDblClk = "Car_".$sNomeAcesso."4.Abrir_CTR();";
    $oTabelaRegs->sJavSelectReg =
	   "sSelIndice = S_Indice;".
	   "parent.document.getElementById('bt_CTR_Rec_ADup').style.display='inline-block';".
	   "";
	//
	$aDadosS = @$aSessao[$sNomeAcesso.'_PriCTR'];
	//
	// LISTAR REGISTROS DE CONTAS Á RECEBER
	If ($sAcao=="LISTAR_REG")  {
	   //
	   $n_BaixaRec   = STR_REPLACE(',','.',Somente_Numeros(@$_POST['Pesq_ValorRec'],',.'))+0;
	   $n_TotalDev   = 0;
	   $n_TotalRecB  = 0;
	   $n_TotalDesc  = 0;
	   $n_TotalJuros = 0;
	   $n_TotalRec   = 0;
	   //
	   $aListaBaixas = $aDadosS['CTR_BAIXA_'];
	   //
	   $sSQLParm = ' AND CTR_CANCEL=0 AND CTR_CODEMP='.$Dados_Empresa['EMP_CODIGOI'].'';
	   $sRet_TelaJ_HTML = '';
	   If ( $aDadosS['PESQ_DT1VEN']>0 ) {
	      $sSQLParm .= ' AND CTR_DTAVEN>="'.DATE("Y-m-d",$aDadosS['PESQ_DT1VEN']).'"';
	   }
	   If ( $aDadosS['PESQ_DT2VEN']>0 ) {
	      $sSQLParm .= ' AND CTR_DTAVEN<="'.DATE("Y-m-d",$aDadosS['PESQ_DT2VEN']).'"';
	   }
	   //
	   If ( $aDadosS['PESQ_CODCLI']>0 ) {
	      $sSQLParm .= ' AND CTR_CODCLI='.$aDadosS['PESQ_CODCLI'];
		  //
		  //$aListaBaixas = ARRAY();
		  If ( $n_BaixaRec>0 ) {
		     $n_BaixaRecR = $n_BaixaRec;
	         $Rows_FinCtr = MYSQL_QUERY("SELECT * FROM fin_contas_receber WHERE CTR_DTAREC=0".$sSQLParm." ORDER BY CTR_DTAVEN ASC, CTR_ID_MOV ASC;") or die(MYSQL_ERROR());
             While ($Row_FinCtr = MYSQL_FETCH_ARRAY($Rows_FinCtr)) {
			    If ( $n_BaixaRecR==0 ) { Break; }
			    If ( $Row_FinCtr['CTR_VALDUP'] > $n_BaixaRecR ) {   // Valor da duplicata é maior que o recebimento
				   $n_ValRec = $n_BaixaRecR;
				   $n_BaixaRecR = 0;
	               $aCTR_Dup = ARRAY(
	                    "CTR_ID_MOV"   => $Row_FinCtr['CTR_ID_MOV'],
	               	    'CTR_PAGTOTAL' => 0,
	               	    'CTR_VALREC'   => $n_ValRec,
	               	    'CTR_VALJUR'   => 0,
	               	    'CTR_VALDES'   => 0,
	               	    'CTR_VALDUP'   => $Row_FinCtr['CTR_VALDUP']
	               	   );
				} Else {                                           // Valor do recebimento é maior ou igual que a duplicata
				   $n_BaixaRecR = $n_BaixaRecR - $Row_FinCtr['CTR_VALDUP'];
				   $n_ValRec = $Row_FinCtr['CTR_VALDUP'];
	               $aCTR_Dup = ARRAY(
	                    "CTR_ID_MOV"   => $Row_FinCtr['CTR_ID_MOV'],
	               	    'CTR_PAGTOTAL' => 1,
	               	    'CTR_VALREC'   => $n_ValRec,
	               	    'CTR_VALJUR'   => 0,
	               	    'CTR_VALDES'   => 0,
	               	    'CTR_VALDUP'   => $Row_FinCtr['CTR_VALDUP']
	               	   );
				}
			    $aListaBaixas[$aCTR_Dup["CTR_ID_MOV"]] = $aCTR_Dup;
		     }
		  }
		  $aDadosS['CTR_BAIXA_'] = $aListaBaixas;
		  //
          //$oTabelaRegs->sBDParametros = 'WHERE CTR_CODMOD=MPG_CODIGOI AND CTR_DTAREC=0'.$sSQLParm.' ORDER BY CTR_DTAVEN ASC, CTR_ID_MOV ASC';
	      $oTabelaRegs->sBDQuery =
              "SELECT ".
                "CTR.*,".
                "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_receber AS CTR ".
              "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 ".
              "WHERE CTR.CTR_DTAREC=0 ".$sSQLParm." ".
              "ORDER BY CTR_DTAVEN ASC, CTR_ID_MOV ASC;".
              "";
		  //
		  $oTabelaRegs->s_PHP_LinhaTb =
		      'Global $aListaBaixas, $n_TotalDev, $n_TotalRecB, $n_TotalDesc, $n_TotalJuros;'.
			  '$b_Baixado = False;'.
			  '$n_TotalDev += $Row_Temp2Tabela["CTR_VALDUP"];'.
		      'If ( @$aListaBaixas[$Row_Temp2Tabela["CTR_ID_MOV"]]["CTR_VALREC"]>0) {'.
			      '$s_CorLinha = "#D2FFC4";'.
				  '$b_Baixado = True;'.
		      '} ElseIf ( @$aListaBaixas[$Row_Temp2Tabela["CTR_ID_MOV"]]["CTR_VALDES"]>0) {'.
			      '$s_CorLinha = "#66FFCC";'.
				  '$b_Baixado = True;'.
			  '}'.
			  'If ($b_Baixado) {'.
				 '$b_PagTotal = @$aListaBaixas[$Row_Temp2Tabela["CTR_ID_MOV"]]["CTR_PAGTOTAL"]+0;'.
				 'If ($b_PagTotal) {'.
			         '$n_TotalRecB += $Row_Temp2Tabela["CTR_VALDUP"];'.
				 '} Else {'.
			         '$n_TotalRecB += @$aListaBaixas[$Row_Temp2Tabela["CTR_ID_MOV"]]["CTR_VALREC"];'.
				 '}'.
				 '$n_TotalDesc  += @$aListaBaixas[$Row_Temp2Tabela["CTR_ID_MOV"]]["CTR_VALDES"];'.
				 '$n_TotalJuros += @$aListaBaixas[$Row_Temp2Tabela["CTR_ID_MOV"]]["CTR_VALJUR"];'.
			  '} Else {'.
			     '$n_Temp_1 = ConvertDataSTR($Row_Temp2Tabela["CTR_DTAVEN"]);'.
		         'If ( $n_Temp_1<MKTIME(0,0,0) ) {'.
			         '$s_CorLinha = "#FFDBA6";'.
			     '}'.
			  '}'.
			  '';
		  //
		  $oTabelaRegs->s_PHP_ColunaTb =
		      'Global $aListaBaixas, $n_TotalRec;'.
			  'If ( $aBDCamposN[$nContador]=="CTR_VALREC" ) {'.
			     '$n_Temp_1 = @$aListaBaixas[$Row_Temp2Tabela["CTR_ID_MOV"]]["CTR_VALREC"];'.
				 '$b_Temp_2 = @$aListaBaixas[$Row_Temp2Tabela["CTR_ID_MOV"]]["CTR_PAGTOTAL"]+0;'.
		         'If ( $n_Temp_1>0 ) {'.
				     '$n_TotalRec  += $n_Temp_1;'.
			         '$sConteudoCRow = "R$ ".FormatoMoeda($n_Temp_1);'.
					 'if ( ! $b_Temp_2 ) {'.    // Recebido parcialmente
					     '$sConteudoCRow = $sConteudoCRow."";'.
					 '}'.
			     '}'.
			  '} ElseIf ( $aBDCamposN[$nContador]=="CTR_VALJUR" ) {'.
			     '$n_Temp_1 = @$aListaBaixas[$Row_Temp2Tabela["CTR_ID_MOV"]]["CTR_VALJUR"];'.
		         'If ( $n_Temp_1>0 ) {'.
			         '$sConteudoCRow = "R$ ".FormatoMoeda($n_Temp_1);'.
			     '}'.
			  '} ElseIf ( $aBDCamposN[$nContador]=="CTR_VALDES" ) {'.
			     '$n_Temp_1 = @$aListaBaixas[$Row_Temp2Tabela["CTR_ID_MOV"]]["CTR_VALDES"];'.
		         'If ( $n_Temp_1>0 ) {'.
			         '$sConteudoCRow = "R$ ".FormatoMoeda($n_Temp_1);'.
			     '}'.
			  '} ElseIf ( $aBDCamposN[$nContador]=="CTR_NUMPAR" ) {'.
			     '$sConteudoCRow = $Row_Temp2Tabela["CTR_NUMPAR"]."/".$Row_Temp2Tabela["CTR_TOTPAR"];'.
			  '} ElseIf ( $aBDCamposN[$nContador]=="FAT_TIP_LOC" ) {'.
			     '$sConteudoCRow = $Row_Temp2Tabela[$aBDCamposN[$nContador]];'.
				 'If ( $sConteudoCRow==0 ) {'.
				     '$sConteudoCRow = "'.$sTipoLocal.'";'.
				 '} ElseIf ( $sConteudoCRow==1 ) {'.
				     '$sConteudoCRow = "Balcão";'.
				 '} ElseIf ( $sConteudoCRow==2 ) {'.
				     '$sConteudoCRow = "Disk entrega";'.
				 '} ElseIf ( $sConteudoCRow==3 ) {'.
				     '$sConteudoCRow = "Comanda";'.
				 '} Else {'.
				     '$sConteudoCRow = "";'.
				 '}'.
			  '}'.
			  '';
		  //
          $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
		  //
	   } Else {
	      $aDadosS['CTR_BAIXA_'] = ARRAY();
	      If ( ! $aDadosS['INICIO_MOD'] ) {
	         $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.'4.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
		   'parent.document.getElementById("sp_CTR_TotalDev").innerHTML="'  .'R$ '.FormatoMoeda($n_TotalDev)  .'";'.
		   'parent.document.getElementById("sp_CTR_TotalRecB").innerHTML="' .'R$ '.FormatoMoeda($n_TotalRecB) .'";'.
		   'parent.document.getElementById("sp_CTR_TotalDesc").innerHTML="' .'R$ '.FormatoMoeda($n_TotalDesc) .'";'.
		   'parent.document.getElementById("sp_CTR_TotalJuros").innerHTML="'.'R$ '.FormatoMoeda($n_TotalJuros).'";'.
		   'parent.document.getElementById("sp_CTR_TotalRec").innerHTML="'  .'R$ '.FormatoMoeda($n_TotalRec)  .'";'.
		   "parent.document.getElementById('i_CTR_Val_Bai').value='';".
	       "parent.document.getElementById('bt_CTR_Psq_RecT').style.display='".($n_TotalRecB>0 ? 'inline-block' : 'none')."';".
		   "";
       $sRet_TelaJ_HTML = '';
	   $aDadosS['INICIO_MOD'] = False;
	   //
    //
    // ATUALIZAR DADOS EM MEMÓRIA: CLIENTE
    } ElseIf ( $sAcao=="ATUALIZA_DADOS" ) {
	   $s_CodCli = @$_POST['Pesq_CodCli'];
	   $s_Dt1Ven = @$_POST['Pesq_Dt1Ven'];
	   $s_Dt2Ven = @$_POST['Pesq_Dt2Ven'];
	   $s_NomeCP = '';
	   If ( $aDadosS['PESQ_CODCLI']<>$s_CodCli ) {
	      $aDadosS['CTR_BAIXA_']=ARRAY();
	      //
          // Java
          $sRet_Javs .=
             "var iQdr = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."'); ".
    	     'iQdr.innerHTML = ""; '.
             'parent.Car_'.$sNomeAcesso.'4.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
		     "";
	   }
	   $aDadosS['PESQ_CODCLI']=0;
	   If ( SUBSTR($s_CodCli,0,1)=="/" ) {
          $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $s_CodCli );
		  $s_CodCli = '';
		  $s_NomeCP = "(Consulta)";
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fmPCTR_Pesq;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."10';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='TEL_REC_PSQCLI'; ".
		          "fm.submit();".
			      "fm.target = TargetAnt;".
		          "fm.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   } Else {
	      If ( $s_CodCli>0 ) {
	         $Row_CadCli = MYSQL_QUERY("SELECT * FROM cad_cliente WHERE CLI_CODIGOI=".$s_CodCli." AND CLI_TRAREG=0;") or die(MYSQL_ERROR());
		     If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
		         $s_NomeCP = $Row_CadCli->CLI_NOMECP;
		    	 $s_CodCli = Str_Zero($s_CodCli,6);
	             $aDadosS['PESQ_CODCLI']=$Row_CadCli->CLI_CODIGOI;
		     } Else {      // Cliente não encontrado
		         $sSQLQueryA =
			       "SELECT TEL_NUMERO,TEL_TRAREG,TEL_CODCAD FROM cad_telefones ".
	               "WHERE ".
		  	       "TEL_NUMERO='".STR_REPLACE("-","",$s_CodCli)."' 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_CodCli = $RowT->TEL_CODCAD;
				   $sSQLQueryC = "SELECT CLI_CODIGOI, CLI_NOMECP FROM cad_cliente WHERE CLI_CODIGOI='".$RowT->TEL_CODCAD."' AND CLI_TRAREG=0;"; 
			       $Row_CadCli = MYSQL_QUERY($sSQLQueryC) Or Die(MYSQL_ERROR().'<br>'.$sSQLQueryC);
			       If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
	                  $s_CodCli = Str_Zero($s_CodCli,6);
	                  $s_NomeCP = $Row_CadCli->CLI_NOMECP;
					  $aDadosS['PESQ_CODCLI']=$Row_CadCli->CLI_CODIGOI;
				   } Else {
				     $s_CodCli = '';
	                 $s_NomeCP = '(Cliente não encontrado)';
				   }
			  
		         }
			 }
	      } Else {         // Codigo vazio
		     $s_CodCli = '';
	      }
	   }
	   //
	   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;
	   }
	   //
	   // Habilitar botão de crédito somente quando não houver saldo devedor
	   $bBot_Credito = False;
	   If ( $aDadosS['PESQ_CODCLI']>0 ) {
	      $nCli_CodigoI = $aDadosS['PESQ_CODCLI']+0;
		  $aResumo      = FinCTR_SaldoDevedor($nCli_CodigoI);
		  $bBot_Credito = ( $aResumo[0]==0 && $aResumo[2]==0 );
	   }
	   //
       // Java
       $sRet_Javs .=
	        "parent.document.getElementById('bt_CTR_Rec_Cred').style.display='".($bBot_Credito ? 'inline-block' : 'none')."';".
	        'parent.document.getElementById("i_CTR_Cod_Cli").value = "'.$s_CodCli.'";'.
			'parent.document.getElementById("sp_CTR_CliNom").innerHTML = '.JAVA_CharCode_Mini(SUBSTR($s_NomeCP,0,25)).';'.
			'parent.document.getElementById("i_CTR_Dt1Venc").value = "'.$s_Dt1Ven.'";'.
			'parent.document.getElementById("i_CTR_Dt2Venc").value = "'.$s_Dt2Ven.'";'.
			"";
    //
	// GRAVAR BAIXA DAS DUPLICATAS RECEBIDAS EM MEMÓRIA
    } ElseIf ( $sAcao=="GRAVAR_BAIXA" ) {
	   //
	   $aListaBaixas = $aDadosS['CTR_BAIXA_'];
	   If ( $aDadosS['USA_CAIXAR'] ) {
 	      $nSeqCaixa = PuxarCaixaAberto($R_CadFuncionario->FUN_CODIGO);
	   } Else {
	      $nSeqCaixa = 0;
	   }
	   //
       $sRet_Javs .=
           "parent.JanEspera(false);".
		   "";
	   //
	   If ( $aDadosS['USA_CAIXAR'] && $nSeqCaixa==0 ) {
          $sRet_Javs .= Info_Evento('Não é possível baixar duplicata com o caixa fechado.',1);
		  //
	   } Else {
	       $nValorRecTotal = 0;
		   $sHistorico_Cai = "";
		   $sCtr_Lst_Ids   = '';
	       ForEach ( $aListaBaixas as $aBaixaDup ) {
		      $Row_FinCtr = MYSQL_QUERY("SELECT * FROM fin_contas_receber,cad_cliente WHERE CTR_ID_MOV=".$aBaixaDup['CTR_ID_MOV']." AND CTR_CODCLI=CLI_CODIGOI;") or die(MYSQL_ERROR());
              If ( ! $Row_FinCtr = MYSQL_FETCH_ARRAY($Row_FinCtr) ) { CONTINUE; }
	          $nValRecB        = $aBaixaDup['CTR_VALREC'] + $aBaixaDup['CTR_VALDES'] + $aBaixaDup['CTR_VALJUR'];
			  $nValorRecTotal += $aBaixaDup['CTR_VALREC'] + $aBaixaDup['CTR_VALJUR'];
			  $nCtr_Salvo_Id   = 0;
	          If ( $aBaixaDup['CTR_PAGTOTAL'] ) {   // Pagamento total
			     //
				 $nCtr_Salvo_Id = $aBaixaDup['CTR_ID_MOV'];
				 //
	             $sSQLQuery =
		            "UPDATE fin_contas_receber SET ".
		    	       "CTR_DTAREC='".DATE("Y-m-d H:i:s")."',".
					   "CTR_FUNREC='".$R_CadFuncionario->FUN_CODIGO."',".
		    	   	   "CTR_VALREC='".$nValRecB."',".
		    	   	   "CTR_VALJUR='".$aBaixaDup['CTR_VALJUR']."',".
		    	       "CTR_VALDES='".$aBaixaDup['CTR_VALDES']."',".
		    	       "CTR_VALDUP=0,".
		    	       "CTR_HISREC=".SQL_Bin(@$aBaixaDup['CTR_HISREC']).",".
		    	   	   "CTR_SEQCAI_BAI='".$nSeqCaixa."'".
		            " WHERE CTR_ID_MOV=".$aBaixaDup['CTR_ID_MOV'].";";
	             MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
				 $sHistorico_Cai .=
				    "** Pagamento total da duplicata Nº ".Str_Zero($Row_FinCtr['CTR_NUMDUP'],8).CHR(13).
					"   no valor de ".FormatoMoeda($aBaixaDup['CTR_VALDUP']).', foi recebido '.FormatoMoeda($aBaixaDup['CTR_VALREC'] + $aBaixaDup['CTR_VALJUR']).CHR(13);
				 //
	          } Else {                                 // Pagamento parcial
	             $sSQLQuery =
		            "UPDATE fin_contas_receber SET ".
		    	       "CTR_VALDUP='".($aBaixaDup['CTR_VALDUP'] - $nValRecB)."'	".
		            " WHERE CTR_ID_MOV=".$aBaixaDup['CTR_ID_MOV'].";";
	             MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
		    	 //
		    	 $sHistorico =
				       @$aBaixaDup['CTR_HISREC'].
				       //CHR(13).
					   //"Referente a baixa parcial da duplicata.".
					   "";
				 $sHistorico_Cai .=
				    "** Pagamento parcial da duplicata Nº ".Str_Zero($Row_FinCtr['CTR_NUMDUP'],8).CHR(13).
					"   no valor de ".FormatoMoeda($aBaixaDup['CTR_VALDUP']).', foi recebido '.FormatoMoeda($nValRecB).CHR(13);
			     //
                 $nCtr_Salvo_Id = MYSQL_QUERY("SHOW TABLE STATUS LIKE 'fin_contas_receber';") or die(MYSQL_ERROR());
			     $nCtr_Salvo_Id = MYSQL_FETCH_OBJECT($nCtr_Salvo_Id);
			     $nCtr_Salvo_Id = $nCtr_Salvo_Id->Auto_increment;
		    	 //
                 $sSQLQuery =
                    "INSERT INTO fin_contas_receber(".
		              "CTR_CODEMP, CTR_NUMDUP, CTR_NUMPAR, CTR_TOTPAR    , CTR_CODCLI, CTR_FUNINC, CTR_DTAFIC, CTR_DTAENT, ".
                      "CTR_DTAVEN, CTR_VALORI, CTR_HISTOR, CTR_SEQCAI_INC, CTR_CODMOD, CTR_CODFAT, CTR_VALREC, CTR_VALJUR, ".
		    		  "CTR_VALDES, CTR_RECPAR, CTR_FUNREC, CTR_DTAREC, CTR_SEQCAI_BAI ".
		            ") VALUES (".
		                $Dados_Empresa['EMP_CODIGOI'] . ",".
		          	    $Row_FinCtr['CTR_NUMDUP']     . ",".
		          	    $Row_FinCtr['CTR_NUMPAR']     . ",".
		          	    $Row_FinCtr['CTR_TOTPAR']     . ",".
		          	    $Row_FinCtr['CTR_CODCLI']     . ",".
		          	    $R_CadFuncionario->FUN_CODIGO . ",".
		          	    "'".$sData_Trabalho           ."',".
		          	    "'".DATE("Y-m-d H:i:s")."',".
		          	    "'".$Row_FinCtr['CTR_DTAVEN'] ."',".
		          	    $nValRecB                     . ",".
		          		SQL_Bin( $sHistorico )        . ",".
		          	    $nSeqCaixa                    . ",".
		          		$Row_FinCtr['CTR_CODMOD']     . ",".
		          		$Row_FinCtr['CTR_CODFAT']     . ",".
		    			"'".$nValRecB                 ."',".
		    			"'".$aBaixaDup['CTR_VALJUR']  ."',".
		    			"'".$aBaixaDup['CTR_VALDES']  ."',".
		    			"1,".
					    "'".$R_CadFuncionario->FUN_CODIGO."',".
		    			"'".DATE("Y-m-d H:i:s")."',".
		          	    $nSeqCaixa.
		            "); ";
                 MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
	             //
		      }
			  //
			  If ( $nCtr_Salvo_Id>0 ) {
			     $sCtr_Lst_Ids .= (STRLEN($sCtr_Lst_Ids)>0 ? "," : "").$nCtr_Salvo_Id;
			  }
			  //
	       }
		  // Incluir valor total no movimento de caixa
		  If ( $aDadosS['USA_CAIXAR'] ) {
		      $sSQLQuery =
                 "INSERT INTO mov_caixa(".
		            "MVC_SQCAIXA, MVC_COD_FUN, MVC_DATAFIC, MVC_DATAMOV, MVC_TIPOMOV, MVC_VALORMV, MVC_PARAMET".
		         ") VALUES (".
		            $nSeqCaixa.",".
		        	$R_CadFuncionario->FUN_CODIGO.",".
		        	"'".$sData_Trabalho."',".
		            "'".DATE("Y-m-d H:i:s")."',".
		            "4,".
		            "'".$nValorRecTotal."',".
		        	SQL_Bin($sHistorico_Cai).
		         "); ";
              MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
		  }
		  //
		  // Imprimir recibo
		  $sTxt_ImpCup = FinCTR_ImpPag($sCtr_Lst_Ids);
		  If ( STRLEN($sTxt_ImpCup)>0 ) {
             $sCfg_ClpExp2 = SQLVarConfig('GARCOM_CLIPPER_ARQ_EXPORTA2');
             $sIP_NomeArq = STR_REPLACE(".","_",ObterIPdoCliente());
             $sNomArqExpT = $sCfg_ClpExp2.$R_CadFuncionario->FUN_CODIGO.'_'.@$nCtr_Salvo_Id.'_IMP.TMP';
             $sNomArqExpR = $sCfg_ClpExp2.$R_CadFuncionario->FUN_CODIGO.'_'.@$nCtr_Salvo_Id.'_RECEBIMENTO_'.$sIP_NomeArq.'.REC';
             $hArqExp = FOPEN( $sNomArqExpT, "a" );
             FWRITE($hArqExp, $sTxt_ImpCup );
             FCLOSE( $hArqExp );
        	 If ( FILE_EXISTS($sNomArqExpR) ) { UNLINK($sNomArqExpR); }
        	 RENAME( $sNomArqExpT, $sNomArqExpR );
		  }
		  //
		  $aDadosS['CTR_BAIXA_'] = ARRAY();
		  //
          $sRet_Javs .=
		     'parent.Car_'.$sNomeAcesso.'4.P_Atu();'.
		     Info_Evento('Duplicatas baixadas.',0).
			 "";
		  //
	   }
	//
    // ABANDONAR BAIXAS DAS DUPLICATAS
    } ElseIf ( $sAcao=="ABANDONAR" ) {
	   $aDadosS['CTR_BAIXA_'] = ARRAY();
 	   $aDadosS['INICIO_MOD'] = true;
       $sRet_Javs .=
		   "parent.document.getElementById('i_CTR_Cod_Cli').value='';".
		   'parent.Car_'.$sNomeAcesso.'4.Atualiza_Dados();'.
           "setTimeout( function () { ".
		     'parent.Car_'.$sNomeAcesso.'4.P_Atu();'.
		   "}, 400);".
		   Info_Evento('NADA FOI BAIXADO.',0).
		   "";
	//
    // CONFIRMAÇÃO DE FECHAMENTO
    } ElseIf ( $sAcao=="FECHAR_CF" ) {
	   If ( COUNT($aDadosS['CTR_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.fmPCTR_Pesq;".
		              "fm.target = 'car_".$sNomeAcesso."6';".
                      "fm.acao.value='ABANDONAR';".
                      "fm.submit();".
			      "}"
		       ).
			",['Sim','Não']);".
			"";
	      //
	   } Else {
          $sRet_Javs .=
             $sJavaTravarJ.
		     "var fm = parent.document.forms.fmPCTR_Pesq;".
		     "fm.target = 'car_".$sNomeAcesso."5';".
             "fm.acao.value='FECHAR';".
             "fm.submit();".
			 "";
	   }
	//
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
          "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
          ( $aDadosS['USA_CAIXAR'] ?
            "parent.document.getElementById('".$sNomeIdJan1_Cxa."_Travar').style.visibility='hidden';".
            "parent.Disabled_In_Elems('".$sNomeIdJan1_Cxa."',false);".
            'parent.document.getElementById("i_CxaRec_NumLoc").focus();'
          :
		    "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
    	    'parent.document.getElementById("in_CTR_Cod_Cli").focus();'.
		    "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
		    "parent.Car_".$sNomeAcesso."1.P_Atu();"
          ).
          "";
	//
	// ** Tela principal **
	} Else {
	   $aDadosS = ARRAY(
	        "PESQ_CODCLI"  => 0,
			"PESQ_DT1VEN"  => ConvertDataSTR( DATE("Y-m-d") ),
			"PESQ_DT2VEN"  => ConvertDataSTR( DATE("Y-m-d") ),
			"CTR_BAIXA_"   => ARRAY(),
			"USA_CAIXAR"   => ( $sAcao=="_CXA_" ),
			"INICIO_MOD"   => True
		   );
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY( 'i_CTR_Cod_Cli','i_CTR_Dt1Venc','i_CTR_Dt2Venc','i_CTR_Val_Bai' );
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  '<div style="position:absolute; top:-300px;">'.
           '<form name="fmPCTR_Pesq" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'5">'.
            '<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_CodCli" type="hidden" value="">'.
            '<input name="Pesq_Dt1Ven" type="hidden" value="">'.
            '<input name="Pesq_Dt2Ven" type="hidden" value="">'.
            '<input name="Pesq_ValorRec" type="hidden" value="">'.
            '<input name="Ctr_Id_Mov" type="hidden" value="">'.
           '</form>'.
		  '</div>'.
		  '<style type="text/css" rel="stylesheet">'.
		    '.Tab_CTR_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_CTR_Rec '.
		      'td {'.
			  'height:30px;'.
		      'font-size:14px;'.
		      'color:#222222;'.
		    '}'.
		    '.Tab_CTR_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 width="100%">'.
		   '<tr>'.
		    '<td width="100px" align="right">'.
			 'Cliente:'.
			 '<input type="image" style="position:relative; left:5px;" src="./images/interroga.png" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."4.Interroga_Img('Q_CTRRec_Balao_Mod');".'">'.
             '<span id="Q_CTRRec_Balao_Mod" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	        //'Ex: <br>'.
				//'13 ou<br>'.
			    //'998772190'.
				'Digite um Código <br>ou Telefone <br>'.
				'de um Cliente<br>'.
				'ou /(barra) <br> p/ consulta.'.
             '</span>'.            
			'</td>'.
		    '<td width="300px" align="left">'.
			 '<input id="i_CTR_Cod_Cli" type="text" maxlength="30" style="width:65px;" onchange="Car_'.$sNomeAcesso.'4.Atualiza_Dados();">'.
			 '&nbsp;&nbsp;'.
			 //
			 HTML_Botao( 3, 'Ent_BT_Psq_1' , "document.getElementById('i_CTR_Cod_Cli').value='/';". 
			                                'Car_'.$sNomeAcesso.'4.Atualiza_Dados();'
			              , ''  ,'images/btimg_lupa.png',24).
			  //
			 '&nbsp;&nbsp;'.
			 '<span id="sp_CTR_CliNom" 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_CTR_Dt1Venc" style="cursor:pointer;">'.
			   '</td>'.
			   '<td width="80px" align="left">'.
			    '<input id="i_CTR_Dt1Venc" type="text" value='.ConvertDataUSBR(DATE("Y-m-d")).' maxlength="10" style="width:75px;" onchange="Car_'.$sNomeAcesso.'4.Atualiza_Dados();">'.
			   '</td>'.
			   '<td width="28px" align="center">'.
			    '<img src="images/bimg_calendario.png" border="0" id="bt_CTR_Dt2Venc" style="cursor:pointer;">'.
			   '</td>'.
			   '<td width="80px" align="right">'.
			    '<input id="i_CTR_Dt2Venc" type="text" value='.ConvertDataUSBR(DATE("Y-m-d")).' maxlength="10" style="width:75px;" onchange="Car_'.$sNomeAcesso.'4.Atualiza_Dados();">'.
			   '</td>'.
			   '<td>'.
			      HTML_Botao( 3, 'Ent_BT_Psq' , 'Car_'.$sNomeAcesso.'4.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>'.
		   //'<tr>'.
		   // '<td width="100px" align="right">'.
		//	 'Valor a baixar:'.
		//	'</td>'.
		 //   '<td colspan="3" align="left">'.
		//	 '<input id="i_CTR_Val_Bai" type="text" maxlength="8" style="width:65px;">'.
		//	 '&nbsp;&nbsp;'.
       	 //    HTML_Botao( 3, 'Ent_BT_Psq' , 'Car_'.$sNomeAcesso.'4.P_Atu();'
		//	              , ''  ,'images/btimg_lupa.png',24).
		//	'</td>'.
		 //  '</tr>'.
		  '</table>'.
		  // Lista das duplicatas
		  $oTabelaRegs->MontaDivHtml().
		  //
		  // Barra inferior
		  '<div class="Tab_CTR_Rec">'.
		  $sLinha_Risco.
		     '<table width="100%" border="0">'.
		        '<tr>'.
		           '<td width="260px" align="left" valign="top">'.
			       //
		              '<table border="0">'.
					  '<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 valign="bottom">'.
		                    '<td width="150px" align="right">'.
			                   'Valor a baixar:'.
			                '</td>'.
		                    '<td align="left">'.
			                   '<input id="i_CTR_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."4.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>'.							
							   '&nbsp;&nbsp;'.
       	                       HTML_Botao( 3, 'Ent_BT_Psq' , 'Car_'.$sNomeAcesso.'4.P_Atu();'
			                                , 'Aplicar'  ,'images/btimg_lupa.png',120).
			                '</td>'.
		                 '</tr>'.
			  //'<tr>'.
		      // '<td width="100px" align="right">'.
			  //  'Total devedor:'.
			  // '</td>'.
		      // '<td align="left">'.
			  //  '<span id="sp_CTR_TotalDev">R$ 0,00</span>'.
			  // '</td>'.
		      //'</tr>'.
		                 '</table>'.
			 //
			'</td>'.
		    '<td width="280px">'.
			'</td>'.
		    '<td width="260px" align="left" valign="top">'.
			 //
		     '<table>'.
			    '<tr>'.
		           '<td width="100px" align="right">'.
			          'Total devedor:'.
			       '</td>'.
		           '<td align="left">'.
			          '<span id="sp_CTR_TotalDev">R$ 0,00</span>'.
			       '</td>'.
		        '</tr>'.
		        '<tr>'.
		           '<td width="100px" align="right">'.
			          'Á Baixar (+):'.
			       '</td>'.
		           '<td align="left">'.
			          '<span id="sp_CTR_TotalRecB">R$ 0,00</span>'.
			       '</td>'.
		        '</tr>'.
		        '<tr>'.
		           '<td align="right">'.
			          'Juros (+):'.
			       '</td>'.
		           '<td align="left">'.
			          '<span id="sp_CTR_TotalJuros">R$ 0,00</span>'.
			       '</td>'.
		        '</tr>'.
		        '<tr>'.
		           '<td align="right">'.
			          'Descontos (-):'.
			       '</td>'.
		           '<td align="left">'.
			          '<span id="sp_CTR_TotalDesc">R$ 0,00</span>'.
			       '</td>'.
		        '</tr>'.
		        '<tr>'.
		           '<td align="right">'.
			          'Líquido á baixar (+):'.
			       '</td>'.
		           '<td align="left">'.
			          '<span id="sp_CTR_TotalRec">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_CTR_Psq_RecT', 'Car_'.$sNomeAcesso.'4.Receber_Tudo();'
                         , 'Receber (F4)' ,'images/btimg_ativar.png',130).
           '</td>'.
           '<td align="left" width="190px">'.
            HTML_Botao( 3, 'bt_CTR_Rec_Cred', 'Car_'.$sNomeAcesso.'4.Ins_Credito();'
                         , 'Inserir crédito (F6)' ,'images/btimg_ativar.png',180).
           '</td>'.
           '<td align="left" width="190px">'.
            HTML_Botao( 3, 'bt_CTR_Rec_ADup', 'Car_'.$sNomeAcesso.'4.Abrir_CTR();'
                         , 'Marcar/Desmarcar (F7)' ,'images/btimg_editar.png',180).
           '</td>'.
           '<td align="right">'.
            HTML_Botao( 3, 'bt_CTR_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 .=
	       ( $aDadosS['USA_CAIXAR'] ?
		    ""
		   :
	        'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'
		   ).
	      "sSelIndice='0';".
          "function P_Atu() {".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('bt_CTR_Rec_ADup').style.display='none';".
			"sSelIndice='0';".
         	"setTimeout( function() { ".
		       "var fm = parent.document.forms.fmPCTR_Pesq;".
		       "fm.target = 'car_".$sNomeAcesso."7';".
               "fm.acao.value='LISTAR_REG'; ".
			   "fm.Pesq_ValorRec.value = parent.document.getElementById('i_CTR_Val_Bai').value;".
               "fm.submit();".
			" }, 300);".
            'parent.document.getElementById("i_CTR_Cod_Cli").focus();'.
          '}'.
	      'function Atualiza_Dados() {'.
		    "var fm = parent.document.forms.fmPCTR_Pesq;".
		    'fm.Pesq_CodCli.value = parent.document.getElementById("i_CTR_Cod_Cli").value;'.
			'fm.Pesq_Dt1Ven.value = parent.document.getElementById("i_CTR_Dt1Venc").value;'.
			'fm.Pesq_Dt2Ven.value = parent.document.getElementById("i_CTR_Dt2Venc").value;'.
		    "fm.target = 'car_".$sNomeAcesso."7';".
            "fm.acao.value='ATUALIZA_DADOS'; ".
            "fm.submit();".
          '}'.
		  //
		  "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";'. 
             "}".                          
          "}".                            
		  //
		  "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_CTR_Psq_RecT').style.display != 'none' ) {".
				     "Receber_Tudo();".
				 "}".
			     //
		     "} else if ( vNumTecla==117) { ". // ** [F6] **          Inserir crédito
			     "if ( parent.document.getElementById('bt_CTR_Rec_Cred').style.display != 'none' ) {".
				     "Ins_Credito();".
				 "}".
		     "} else if ( vNumTecla==118) { ". // ** [F7] **          Abrir Baixa
			     "if ( parent.document.getElementById('bt_CTR_Rec_ADup').style.display != 'none' ) {".
				     "Abrir_CTR();".
				 "}".
				 //
		     "} 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 Abrir_CTR() {'.
		    "var fm = parent.document.forms.fmPCTR_Pesq;".
		    "fm.target = 'car_".$sNomeAcesso."6';".
            'fm.submod.value="REC";'.
            "fm.acao.value='';".
			'fm.Ctr_Id_Mov.value = sSelIndice;'.
            "fm.submit();".
            'fm.submod.value="'.$sSubModulo.'";'.
			'fm.Ctr_Id_Mov.value = "";'.
		  '}'.
		  'function Receber_Tudo() {'.
            "parent.JanEspera(true, 'Baixando duplicatas recebidas... Aguarde...');".
		    "var fm = parent.document.forms.fmPCTR_Pesq;".
		    "fm.target = 'car_".$sNomeAcesso."6';".
            "fm.acao.value='GRAVAR_BAIXA'; ".
            "fm.submit();".
		  '}'.
		  'function Ins_Credito() {'.
		    "var fm = parent.document.forms.fmPCTR_Pesq;".
		    "fm.target = 'car_".$sNomeAcesso."10';".
            'fm.submod.value="INS_CREDITO";'.
            "fm.acao.value='';".
            "fm.submit();".
            'fm.submod.value="'.$sSubModulo.'";'.
		  '}'.
		  '';
	   //
       // Java posterior
       $sRet_JavsPos .=
	      "parent.document.getElementById('bt_CTR_Psq_RecT').style.display='none';".
	      "parent.document.getElementById('bt_CTR_Rec_Cred').style.display='none';".
    	  "P_Atu();".
          'parent.Calendar.setup({ '.
            'inputField : "i_CTR_Dt1Venc", '.
            'trigger    : "bt_CTR_Dt1Venc", '.
            'onSelect   : function() { this.hide(); Atualiza_Dados(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
          'parent.Calendar.setup({ '.
            'inputField : "i_CTR_Dt2Venc", '.
            'trigger    : "bt_CTR_Dt2Venc", '.
            'onSelect   : function() { this.hide(); Atualiza_Dados(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
	      '';
	   //
   }
   $aSessao[$sNomeAcesso.'_PriCTR'] = $aDadosS;
   //
//
//
//  ** CONSULTA AO CADASTRO DE CLIENTES PARA TELA DE RECEBIMENTO **
} ElseIf ( $sSubModulo=="TEL_REC_PSQCLI" ) {
   $bDir_Consult = True;
   $sNomeIdJ_Ant = $sNomeIdJan3;
   $sNomeIdCampo = "i_CTR_Cod_Cli";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."4.Atualiza_Dados();";
   REQUIRE "./modulos/consulta_cliente.inc";

//
//
//  ** TELA PARA INSERIR CRÉDITO AO CLIENTE **
} ElseIf ( $sSubModulo=="INS_CREDITO" ) {
   $sNomeIdJ_Ant = $sNomeIdJan3;
   $nCli_CodigoI = @$aSessao[$sNomeAcesso.'_PriCTR']['PESQ_CODCLI']+0;
   $sJavaExePos  =
      "parent.document.getElementById('i_CTR_Cod_Cli').focus();".
      //"parent.Car_".$sNomeAcesso."4.Atualiza_Dados();".
	  "";
   REQUIRE "./modulos/i_fin_ins_credito.inc";

//
//  ** 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';
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."2.Teclas_F(this,event);";
	//
	$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();".
		 "";
	//
    $sCTR_Id_Mov = @$_POST['Ctr_Id_Mov'];
	$sCTR_NumDup = @$_POST['CTR_NumDup'];
    $sCTR_NumPar = @$_POST['CTR_NumPar'];
    $sCTR_TotPar = @$_POST['CTR_TotPar'];
    $sCTR_CodCli = @$_POST['CTR_CodCli'];
    $sCTR_DtaInc = @$_POST['CTR_DtaInc'];
    $sCTR_DtaVen = @$_POST['CTR_DtaVen'];
	$sCTR_ValDup = @$_POST['CTR_ValDup'];
	$sCTR_Histor = UTF8_DECODE(@$_POST['CTR_Histor']);
	$sCTR_CodFat = @$_POST['CTR_CodFat'];
	$sCTR_CodMod = @$_POST['CTR_CodMod'];
	//
	// VALIDAR OS CAMPOS
    If ( $sAcao=="VALIDA_CAMPOS" ) {
	   $sCTR_NumDup = Somente_Numeros($sCTR_NumDup)+0;
	   $nCTR_CodCli = Somente_Numeros($sCTR_CodCli)+0;
	   $sCTR_NumPar = Somente_Numeros($sCTR_NumPar)+0;
	   $sCTR_TotPar = Somente_Numeros($sCTR_TotPar)+0;
	   $sCTR_NomCli = "";
	   //
	   // ** Validar
	   If ( $sCTR_NumDup==0 ) {
	      $sCTR_NumDup = "Automatico";
	   } Else {
	      $sCTR_NumDup = Str_Zero($sCTR_NumDup,8);
	   }
	   //
	   If ( $sCTR_NumPar>99 OR $sCTR_NumPar==0 ) { $sCTR_NumPar = 1; }
	   If ( $sCTR_TotPar>99 Or $sCTR_TotPar==0 ) { $sCTR_TotPar = 1; }
	   If ( $sCTR_NumPar>$sCTR_TotPar ) { $sCTR_NumPar=1; $sCTR_TotPar=1; }
	   $sCTR_NumPar = Str_Zero($sCTR_NumPar,2);
	   $sCTR_TotPar = Str_Zero($sCTR_TotPar,2);
	   //
	   If ( SUBSTR($sCTR_CodCli,0,1)=="/" ) {
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $sCTR_CodCli );
		  $sCTR_NomCli = "(Consulta)";
		  $sCTR_CodCli = '';
          $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='EDT_PSQCLI'; ".
		          "fm.submit();".
			      "fm.target = TargetAnt;".
		          "fm.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   } ElseIf ( $nCTR_CodCli==0 ) {
          $sCTR_NomCli = "( O cliente é obrigatório )";
		  $sCTR_CodCli = '';
	   } Else {
	      $Row_CadCli = MYSQL_QUERY("SELECT * FROM cad_cliente WHERE CLI_CODIGOI='".$nCTR_CodCli."' AND CLI_TRAREG=0 LIMIT 1;") or die(MYSQL_ERROR());
		  If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
		     $sCTR_CodCli = Str_Zero($Row_CadCli->CLI_CODIGOI,8);
			 $sCTR_NomCli = $Row_CadCli->CLI_NOMECP;
		  } Else {
             $sSQLQueryA =
			    "SELECT TEL_NUMERO,TEL_TRAREG,TEL_CODCAD FROM cad_telefones ".
	            "WHERE ".
		  	    "TEL_NUMERO='".STR_REPLACE("-","",$sCTR_CodCli)."' AND ".
		  	    "(TEL_TRAREG=0 OR TEL_TRAREG=2) ".
		  	    ";";
                 
			 $RowsT = MYSQL_QUERY($sSQLQueryA) Or Die($sSQLQueryA.'<br>'.MYSQL_ERROR());
             If ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
			    $sCTR_CodCli = $RowT->TEL_CODCAD;
			    $sSQLQueryC = "SELECT CLI_CODIGOI, CLI_NOMECP FROM cad_cliente WHERE CLI_CODIGOI='".$RowT->TEL_CODCAD."' AND CLI_TRAREG=0;"; 
			    $Row_CadCli = MYSQL_QUERY($sSQLQueryC) Or Die(MYSQL_ERROR().'<br>'.$sSQLQueryC);
			    If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
	               $sCTR_CodCli = Str_Zero($sCTR_CodCli,6);
	               $sCTR_NomCli = $Row_CadCli->CLI_NOMECP;
			    } Else {
                   $sCTR_NomCli = "( Cliente não encontrado )";
		           $sCTR_CodCli = '';			 
			    }
			  
		     } Else {
			  //
			     $sCTR_NomCli = "( Cliente não encontrado )";
		         $sCTR_CodCli = '';			 
			  
			 }
			 
			 //
			 
		  }
	   }
	   //
	   $nCTR_DtaInc = ConvertDataSTR(ConvertDataBRUS($sCTR_DtaInc));
	   If ( $nCTR_DtaInc < MKTIME(0,0,0,1,1,1990) ) {
	      //$nCTR_DtaInc = ConvertDataSTR($sData_Trabalho);
	      $nCTR_DtaInc = 0;
	   }
	   If ( $nCTR_DtaInc==0 ) {
	      $sCTR_DtaInc = '';
	   } Else {
	      $sCTR_DtaInc = DATE("d/m/Y",$nCTR_DtaInc);
	   }
	   //
	   $nCTR_DtaVen = ConvertDataSTR(ConvertDataBRUS($sCTR_DtaVen));
	   If ( $nCTR_DtaVen < MKTIME(0,0,0,1,1,1990) OR $nCTR_DtaVen < $nCTR_DtaInc) {
	      $nCTR_DtaVen = 0;
	   }
	   If ($nCTR_DtaVen==0) {
	      $sCTR_DtaVen = '';
	   } Else {
	      $sCTR_DtaVen = DATE("d/m/Y",$nCTR_DtaVen);
	   }
	   //
	   $nCTR_ValDup = STR_REPLACE(',','.',Somente_Numeros($sCTR_ValDup,',.-'))+0;
	   $sCTR_ValDup = FormatoMoeda($nCTR_ValDup);
	   //
	   $nCTR_CodFat = Somente_Numeros($sCTR_CodFat);
	   If ( $sCTR_CodFat=="/" ) {
	      $sCTR_CodFat = '';
	   } ElseIf ( $nCTR_CodFat==0 ) {
	      $sCTR_CodFat = '';
	   } Else {
	      $sCTR_CodFat = Str_Zero($nCTR_CodFat,6);
	   }
	   //
	   // ** Re-escreve na tela
       $sRet_Javs .= 
    	  'parent.document.getElementById("iCadECTR_NumDup").value="'.$sCTR_NumDup.'";'.
		  'parent.document.getElementById("iCadECTR_NumPar").value="'.$sCTR_NumPar.'";'.
		  'parent.document.getElementById("iCadECTR_TotPar").value="'.$sCTR_TotPar.'";'.
		  'parent.document.getElementById("iCadECTR_CodCli").value="'.$sCTR_CodCli.'";'.
		  'parent.document.getElementById("sp_CadECTR_Cli").innerHTML="'.$sCTR_NomCli.'";'.
		  'parent.document.getElementById("iCadECTR_DtaInc").value="'.$sCTR_DtaInc.'";'.
		  'parent.document.getElementById("iCadECTR_DtaVen").value="'.$sCTR_DtaVen.'";'.
		  'parent.document.getElementById("iCadECTR_ValDup").value="'.$sCTR_ValDup.'";'.
		  'parent.document.getElementById("iCadECTR_CodFat").value="'.$sCTR_CodFat.'";'.
		  '';
	//
	// SALVAR
    } ElseIf ( $sAcao=="SALVAR" ) {
	   //
	   $sCTR_NumDup = Somente_Numeros($sCTR_NumDup)+0;
	   $sCTR_NumPar = Somente_Numeros($sCTR_NumPar)+0;
	   $sCTR_TotPar = Somente_Numeros($sCTR_TotPar)+0;
	   $sCTR_CodCli = Somente_Numeros($sCTR_CodCli)+0;
	   $sCTR_DtaInc = ConvertDataBRUS($sCTR_DtaInc);
	   $sCTR_DtaVen = ConvertDataBRUS($sCTR_DtaVen);
	   $sCTR_ValDup = STR_REPLACE(',','.',Somente_Numeros($sCTR_ValDup,',.-'))+0;
	   $sCTR_CodFat = Somente_Numeros($sCTR_CodFat)+0;
	   $sCTR_CodMod = Somente_Numeros($sCTR_CodMod)+0;
	   //
	   $nCTR_DtaInc = ConvertDataSTR($sCTR_DtaInc);
	   $nCTR_DtaVen = ConvertDataSTR($sCTR_DtaVen);
	   //
	   $bGravarReg = False;
       $sRet_Javs .= 
	      "parent.JanEspera(false);".
		  "";
	   If ( $sCTR_CodCli==0 ) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTR_CodCli").focus();'.
		     Info_Evento('O cliente é obrigatório.',1);
	   } ElseIf ($sCTR_NumPar==0 OR $sCTR_TotPar==0 ) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTR_NumPar").focus();'.
		     Info_Evento('Numero de parcelas inválido.',1);
	   } ElseIf ($sCTR_ValDup==0) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTR_ValDup").focus();'.
		     Info_Evento('Valor da duplicata é inválido.',1);
	   } ElseIf ($nCTR_DtaInc<MKTIME(0,0,0,1,1,1990)) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTR_DtaInc").focus();'.
		     Info_Evento('Data de inclusão inválida.',1);
	   } ElseIf ($nCTR_DtaVen<MKTIME(0,0,0,1,1,1990)) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTR_DtaVen").focus();'.
		     Info_Evento('A data de vencimento deve ser igual ou maior a data de inclusão.',1);
	   } ElseIf ($sCTR_CodMod<=0) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTR_CodMod").focus();'.
		     Info_Evento('Modalidade inválida.',1);
	   } Else {
	      $bGravarReg = True;
	   }
	   //
	   If ($bGravarReg && Fin_ContaCorrente_Saldo( $sCTR_CodCli )>0) {
	      $sRet_Javs .=
	         'parent.document.getElementById("iCadECTR_CodCli").focus();'.
		     Info_Evento('Não é permitido inserir duplicata para este cliente com créditos.',1);
		  $bGravarReg = false;
	   }
	   //
	   If ($bGravarReg) {
	      $nSub_ValDup = 0;
	      If ( $sCTR_Id_Mov<>"NOVO" ) {
	         $nCTR_Id_Mov = Somente_Numeros($sCTR_Id_Mov)+0;
	         $Row_FinCTR = MYSQL_QUERY("SELECT * FROM fin_contas_receber WHERE CTR_ID_MOV=".($nCTR_Id_Mov)." ;") or die(MYSQL_ERROR());
             If ($Row_FinCTR = MYSQL_FETCH_OBJECT($Row_FinCTR)) {
			    $nSub_ValDup = $Row_FinCTR->CTR_VALDUP;
			 }
		  }
	      $aCli_Saldos = FinCTR_SaldoDevedor( $sCTR_CodCli );
		  If ( (($aCli_Saldos[0]+$sCTR_ValDup)-$nSub_ValDup) > $aCli_Saldos[1] ) {
	         $sRet_Javs .=
	            'parent.document.getElementById("iCadECTR_CodCli").focus();'.
		        Info_Evento('Não há limite suficiente para este cliente.',1);
		     $bGravarReg = false;
		  }
	   }
	   //
	   If ($bGravarReg) {
	      If ( $sCTR_Id_Mov=="NOVO" ) {
             $nCTR_Id_Mov = MYSQL_QUERY("SHOW TABLE STATUS LIKE 'fin_contas_receber';") or die(MYSQL_ERROR());
			 $nCTR_Id_Mov = MYSQL_FETCH_OBJECT($nCTR_Id_Mov);
			 $nCTR_Id_Mov = $nCTR_Id_Mov->Auto_increment;
             MYSQL_QUERY(   // Cria um novo registro
               "INSERT INTO fin_contas_receber(CTR_CODEMP,CTR_DTAENT,CTR_VALORI,CTR_FUNINC)".
			   " VALUES (".
			     $Dados_Empresa['EMP_CODIGOI'].",".
				 "'".DATE("Y-m-d H:i:s")."',".
				 $sCTR_ValDup.",".
				 $R_CadFuncionario->FUN_CODIGO.
			   "); "
			 ) or die(MYSQL_ERROR());
	      } Else {
	         $nCTR_Id_Mov = Somente_Numeros($sCTR_Id_Mov)+0;
	      }
	      $Row_FinCTR = MYSQL_QUERY("SELECT * FROM fin_contas_receber WHERE CTR_ID_MOV=".($nCTR_Id_Mov)." ;") or die(MYSQL_ERROR());
          If ($Row_FinCTR = MYSQL_FETCH_ARRAY($Row_FinCTR)) {
		     If ( $sCTR_NumDup==0 ) { $sCTR_NumDup=$nCTR_Id_Mov; }
		     //
             MYSQL_QUERY(   // Cria um novo registro
               "UPDATE fin_contas_receber SET ".
				 'CTR_NUMDUP="'.$sCTR_NumDup.'",'.
				 'CTR_NUMPAR="'.$sCTR_NumPar.'",'.
				 'CTR_TOTPAR="'.$sCTR_TotPar.'",'.
				 'CTR_CODCLI="'.$sCTR_CodCli.'",'.
				 'CTR_DTAFIC="'.$sCTR_DtaInc.'",'.
				 'CTR_DTAVEN="'.$sCTR_DtaVen.'",'.
				 'CTR_VALDUP="'.$sCTR_ValDup.'",'.
				 'CTR_HISTOR='.SQL_Bin($sCTR_Histor).",".
				 'CTR_CODFAT="'.$sCTR_CodFat.'",'.
				 'CTR_CODMOD="'.$sCTR_CodMod.'",'.
				 'CTR_FUNALT="'.$R_CadFuncionario->FUN_CODIGO.'",'.
                 "CTR_ULTALT='".DATE("Y-m-d H:i:s")."' ".
               "WHERE CTR_ID_MOV=".($nCTR_Id_Mov)."; ") or die(MYSQL_ERROR());
	         // atualizar registro
	      
		     //GRAVA LOG DE ALTERAÇÃO
			 If ( $sCTR_Id_Mov<>"NOVO" ) {
		        $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 (".
	                  " ".$nCTR_Id_Mov          ." ,".
			        $R_CadFuncionario->FUN_CODIGO .",".
	                  "'".DATE("Y-m-d H:i:s")      ."',".
			        "'".$sData_Trabalho           ."',".
			 	   $Row_FinCTR['CTR_NUMDUP']     .",".
	                  $Row_FinCTR['CTR_CODCLI']     .",".
			 	   "'".$Row_FinCTR['CTR_DTAVEN'] ."',".
			 	   "'".$sCTR_DtaVen              ."',". 
	                  $Row_FinCTR['CTR_VALDUP']     .",".
			 	   "'".$sCTR_ValDup              ."',". 
	                  "0,".   //receber
			 	   "0 ".  //ALTEROU
	               "); ";
                MYSQL_QUERY($sSQLQueryL) or die(MYSQL_ERROR().' '.$sSQLQueryL);
		     }
		  } Else {
             // Erro: registro não existe
	         $sRet_Javs .= Info_Evento('ERRO FATAL: Registro de faturamento CTR_ID_MOV=('.$nCTR_Id_Mov.') não existe para gravar.',1);
	      }
          $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_CTR_Cod_Cli").focus();'.
		  "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
		  (@$_REQUEST['acaoAnt']=='SALVAR' ? "parent.Car_".$sNomeAcesso."1.P_Atu();" : '').
		  "";
	//
	// PUXAR REGISTRO
	} Else {
	   $bMontarJanela = True;
	   $bNovaDup = False;
	   If ( $sCTR_Id_Mov == 'NOVO' ) {
	      $Row_FinCTR = ARRAY();
	      $bNovaDup = True;
	      // Novo
	   } ElseIf ( (Somente_Numeros($sCTR_Id_Mov)+0)==0) {
	      $bMontarJanela = False;
          $sRet_Javs .= 
		     "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	   	     Info_Evento('Selecione uma duplicata.',0);
	   } Else {
          $Row_FinCTR = MYSQL_QUERY("SELECT * FROM fin_contas_receber WHERE CTR_ID_MOV='".($sCTR_Id_Mov+0)."' ;") or die(MYSQL_ERROR());
          If ( $Row_FinCTR = MYSQL_FETCH_ARRAY($Row_FinCTR)) {
		     If ( $Row_FinCTR['CTR_VALREC']>0 ) {
	            $bMontarJanela = False;
                $sRet_Javs .= 
		           "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	   	           Info_Evento('Não é permitido alterar uma duplicata já recebida.',1);
			 }
		  } Else {
	         $bMontarJanela = False;
             $sRet_Javs .= 
		        "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	   	        Info_Evento('Duplicata não encontrada.',1);
	      }
	   }
	   //
	   $sCTR_DtaFic = ConvertDataSTR(@$Row_FinCTR['CTR_DTAFIC']);
	   If ( $sCTR_DtaFic<MKTIME(0,0,0,1,1,1990) ) {
	      $sCTR_DtaFic = ConvertDataUSBR(DATE("Y-m-d"));
	   } Else {
	      $sCTR_DtaFic = DATE("d/m/Y",$sCTR_DtaFic);
	   }
	   //
	   $sCTR_DtaVen = ConvertDataSTR(@$Row_FinCTR['CTR_DTAVEN']);
	   If ( $sCTR_DtaVen<MKTIME(0,0,0,1,1,1990) ) {
	      $sCTR_DtaVen = ConvertDataUSBR(DATE("Y-m-d"));
	   } Else {
	      $sCTR_DtaVen = DATE("d/m/Y",$sCTR_DtaVen);
	   }
	   //
	   $sHTML_Combo_CodMod = '';
	   $Rows_ModPag = MYSQL_QUERY("SELECT * FROM cad_modalidade_pag WHERE MPG_TRAVADO=0 AND MPG_FIN_CTR ORDER BY MPG_N_ORDEM ASC;") or die(MYSQL_ERROR());
       While ($Row_ModPag = MYSQL_FETCH_OBJECT($Rows_ModPag)) {
           $sHTML_Combo_CodMod .=
		     '<option value="'.$Row_ModPag->MPG_CODIGOI.'"'.
			 ($Row_ModPag->MPG_CODIGOI==(@$Row_FinCTR['CTR_CODMOD']+0) ? "selected" : "").
			 '>'.$Row_ModPag->MPG_DESCRIC.'</option>';
       }
       //
	   If ($bMontarJanela) {
	      //
	      $oJanelaPrinc->aIdsObjList =
	         ARRAY('iCadECTR_NumDup','iCadECTR_NumPar','iCadECTR_TotPar','iCadECTR_CodCli','iCadECTR_DtaInc','iCadECTR_DtaVen',
			       'iCadECTR_ValDup','iCadECTR_Histor','iCadECTR_CodFat','iCadECTR_CodMod'
	   	  );
          // 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="Ctr_Id_Mov" type="hidden" value="'.$sCTR_Id_Mov.'">'.
		     '<style type="text/css" rel="stylesheet">'.
		      '.Div_CTR_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_CTR_Dup '.
		   	 'span {'.
		   	   'font-size:12px;'.
		   	   'font-weight:bold;'.
		   	   'color:#444444;'.
		   	 '}'.
		     '</style>'.
		     '<div class="Div_CTR_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 *'.
			   '</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="iCadECTR_NumDup" name="CTR_NumDup" type="text" value="'.@$Row_FinCTR['CTR_NUMDUP'].'" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
          	   '</td>'.
          	   '<td align="right" width="120px">'.
	   	        'Numero da parcela:'.
          	   '</td>'.
          	   '<td width="30px">'.
	   		    '<input id="iCadECTR_NumPar" name="CTR_NumPar" type="text" value="'.@$Row_FinCTR['CTR_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="iCadECTR_TotPar" name="CTR_TotPar" type="text" value="'.@$Row_FinCTR['CTR_TOTPAR'].'" maxlength="2" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
          	   '</td>'.
          	   '<td>'.
          	   '</td>'.
          	  '</tr></table>'.
          	  '<table width="100%" border="0"><tr>'.
          	   '<td width="4px" height="4px">&nbsp;</td>'.
          	   '<td align="right" width="120px">'.
	   	          'Cliente:'.
          	   '</td>'.
          	   '<td width="73px" valign=""middle>'.
	   		      '<input id="iCadECTR_CodCli" name="CTR_CodCli" type="text" value="'.@$Row_FinCTR['CTR_CODCLI'].'" style="width:99%;" onchange="Car_'.$sNomeAcesso.'2.Valida_Campos();">'.
          	      '&nbsp;&nbsp;'.
			   '</td>'.
               '<td>'.			   
				  '<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_Cli');".'">'.
				  '<span id="Q_FinRec_Balao_Cli" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	             'Digite um Código <br>   <br>ou Telefone <br>'.
				     'de um Cliente<br>'.
				     'ou /(barra) <br> p/ consulta.'.
			      '</span>'.
			   '</td>'.
          	   '<td>'.
	   	        '<span id="sp_CadECTR_Cli" 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="iCadECTR_DtaInc" name="CTR_DtaInc" type="text" maxlength="10" value="'.$sCTR_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_CadECTR_DtaInc" style="cursor:pointer;">'.
			   '</td>'.
          	   '<td align="right" width="194px">'.
	   	        'Data de vencimento:'.
          	   '</td>'.
			   '<td width="73px" align="left">'.
			    '<input id="iCadECTR_DtaVen" name="CTR_DtaVen" type="text" maxlength="10" value="'.$sCTR_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_CadECTR_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="iCadECTR_ValDup" name="CTR_ValDup" type="text" maxlength="12" value="'.FormatoMoeda(@$Row_FinCTR['CTR_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="iCadECTR_Histor" name="CTR_Histor" type="text" maxlength="60" style="width:99%;">'.
			   '</td>'.
          	   '<td>'.
			   '</td>'.
          	  '</tr></table>'.
          	  '<table width="100%"></tr>'.
          	   '<td width="4px" height="24px">&nbsp;</td>'.
          	   '<td align="right" width="120px">'.
	   	        'Nº Faturamento:'.
          	   '</td>'.
			   '<td width="73px" align="left">'.
			    '<input id="iCadECTR_CodFat" name="CTR_CodFat" type="text" value="'.@$Row_FinCTR['CTR_CODFAT'].'" maxlength="8" style="width:99%;">'.
			   '</td>'.
          	   '<td align="right" width="80px">'.
	   	        'Modalidade:'.
          	   '</td>'.
			   '<td width="247px" align="left">'.
		   	    '<select id="iCadECTR_CodMod" name="CTR_CodMod" style="width:99%;">'.
				 $sHTML_Combo_CodMod.
		   	    '</select>'.
			   '</td>'.
          	   '<td>'.
			   '</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;'.
          	   '</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';".
	   		 "function Valida_Campos() {".
	   		     "var fm = parent.document.forms.fm_RegDup;".
	   		     "fm.acao.value='VALIDA_CAMPOS'; ".
	   		     "fm.submit();".
	   		 "}".
			 "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 .=
	   	     'Valida_Campos();'.
       	     'parent.document.getElementById("iCadECTR_NumDup").focus();'.
       	     'parent.document.getElementById("iCadECTR_Histor").value='.JAVA_CharCode_Mini(@$Row_FinCTR['CTR_HISTOR']).';'.
	   	     //
	   	     "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('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("iCadECTR_NumDup").focus();'.
	   				   	'break;'.
	   			       "}".
	   			    "}".
	   		     //
	   		    "} else {".
	   		        "return true;".
	   		    "}".
	   		    "return false;".
	   	     '}'.
             'parent.Calendar.setup({ '.
               'inputField : "iCadECTR_DtaInc", '.
               'trigger    : "bt_CadECTR_DtaInc", '.
               'onSelect   : function() { this.hide(); Valida_Campos(); }, '.
               'showTime   : 0, '.
               'dateFormat : "%d/%m/%Y" '.
             '});'.
             'parent.Calendar.setup({ '.
               'inputField : "iCadECTR_DtaVen", '.
               'trigger    : "bt_CadECTR_DtaVen", '.
               'onSelect   : function() { this.hide(); Valida_Campos(); }, '.
               'showTime   : 0, '.
               'dateFormat : "%d/%m/%Y" '.
             '});'.
	         '';
          //
	   } Else {
	      $sAcao = 'FECHAR';
	   }
	}

//
//
//  ** CONSULTA AO CADASTRO DE CLIENTES DA TELA DA DUPLICATA **
} ElseIf ( $sSubModulo=="EDT_PSQCLI" ) {
   $bDir_Consult = True;
   $sNomeIdJ_Ant = $sNomeIdJan4;
   $sNomeIdCampo = "iCadECTR_CodCli";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."2.Valida_Campos();";
   REQUIRE "./modulos/consulta_cliente.inc";

//
//
//  ** CONSULTA AO CADASTRO DE CLIENTES DA TELA DE CONSULTA **
} ElseIf ( $sSubModulo=="CSL_PSQCLI" ) {
   $bDir_Consult = True;
   $sNomeIdJ_Ant = $sNomeIdJan1;
   $sNomeIdCampo = "in_CTR_Cod_Cli";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."1.Atualiza_Dados();";
   REQUIRE "./modulos/consulta_cliente.inc";
} ElseIf ( $sSubModulo=="CFM_INATIVAR" ) {
   $sNomeIdJ_Ant = $sNomeIdJan1;          
   $sNomeIdCampo = "in_CTR_Cod_Cli";  
   $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.Ctr_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_ctr.inc";       
   
   
   
   
}



//
?>