<?php
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'O');   // Consultar
//$bDir_Incluir = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'I');   // Incluir
//$bDir_Alterar = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'A');   // Alterar
//$bDir_Remover = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'R');   // Remover
$sNomeIdJPrin = "iJan_FinMovC";
$sCorBarraInf = '#E8E3CE';
//
//  ** PRINCIPAL **

If ( EMPTY($sSubModulo) ) {
   // Criar objeto Janela
   $oJan = New R_Janela();
   $oJan->sIdObj  = $sNomeIdJPrin;
   $oJan->nWidth  = 600;   // Largura
   $oJan->nHeight = 0;     // Altura
   $oJan->nTop    = 10;
   $oJan->nLeft   = 0;
   $oJan->nLeft  += ($nTela_W/2)-($oJan->nWidth/2);
   $oJan->sTitulo = 'Movimento de contas';
   $oJan->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
   //
   $sJavaTravarJ = "parent.document.getElementById('".$oJan->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJan->sIdObj."',true);";
   
   $oJan->sJavOnClickF = 
       "parent.document.forms.fmFin_Mov_C.acao.value='FECHAR'; ".
   	   "parent.document.forms.fmFin_Mov_C.submod.value=''; ".
   	   "parent.document.forms.fmFin_Mov_C.submit();".
   	   "";
   
   $oJan->aIdsObjList = ARRAY('in_Mco_Sequen'  , 'in_Mco_CodCon'  , 'in_Mco_CodCus',
                              'in_Mco_NumDoc'  , 'in_Mco_L_Data'  ,
                              'in_Mco_ValLan'  , 'in_Mco_Histor'  ,
                              'in_C_Mco_CodCon', 'in_C_Mco_CodCus'
                             );
   //
   $nMco_Sequen = @$aSessao[$sNomeAcesso.'_Dados']['MCO_SEQUEN']+0;
   $nMco_CodCon = Somente_Numeros(@$_POST['Mco_CodCon'])+0;
   $sMco_CodCus = Somente_Numeros(@$_POST['Mco_CodCus'],'./');
   $sMco_NumDoc = @$_POST['Mco_NumDoc'];
   $sMco_L_Data = @$_POST['Mco_L_Data'];
   $nMco_ValLan = STR_REPLACE(',','.',Somente_Numeros(@$_POST['Mco_ValLan'],'.,'))+0;
   $sMco_Histor = @$_POST['Mco_Histor'];
   $nMcoCCodCon = Somente_Numeros(@$_POST['C_Mco_CodCon'])+0;
   $sMcoCCodCus = Somente_Numeros(@$_POST['C_Mco_CodCus'],'./');
   //
   
   // >> Inicial
   If ( EMPTY($sAcao) ) {
      //
	  $aSessao[$sNomeAcesso.'_Dados']          = ARRAY();
	  $aSessao[$sNomeAcesso.'_Id_Campo_Atual'] = '';
      //
      $sRet_TelaJ_HTML =
         $oJan->MontaJanHTML(True).
		 '<form name="fmFin_Mov_C" 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="FiltroSQL" type="hidden" value="">'.
          '<input name="Id_Campo_Atual" type="hidden" value="">'.
		  '<input name="ESC_S" type="hidden" value="0">'.            //esc sair quando tiver preenchido
		  '<input name="Ctr_Doc" type="hidden" value="">'.
		  '<div style="height:7px;"></div>'.
		  '<table width="100%">'.
		   '<tr>'.
       	    '<td width="140px" height="26px" align="right">'.
		     'Sequência:&nbsp;'.
			 HTML_Botao( 3, 'MovC_BT_PsqSeq' , "document.getElementById('in_Mco_Sequen').value='/';". 
			                                   "Car_".$sNomeAcesso."1.Atualiza_Dados('PUXAR_MOV','in_Mco_Sequen');"
			              , ''  ,'images/btimg_lupa.png',24).
		     '&nbsp;'.
		    '</td>'.
       	    '<td align="left" width="90px">'.
		     '<input id="in_Mco_Sequen" name="Mco_Sequen" type="text" maxlength="10" value="'.($nMco_Sequen>0 ? $nMco_Sequen : '').'" '.
			        'style="width:85px; height:22px; text-align:right; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;" '.
		            'onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados('."'PUXAR_MOV'".','."'in_Mco_Sequen'".');"'.
			 '>'.
       	    '</td>'.
       	    '<td align="left" width="300px">'.
			 '<span id="in_Mco_Sequen_Descri" style="font-weight:bold;"></span>'.
       	    '</td>'.
		  	'<td>&nbsp;</td>'.
       	   '</tr>'.
       	   '<tr>'.
       	    '<td height="26px" align="right">'.
		     'Conta:&nbsp;'.
			 HTML_Botao( 3, 'MovC_BT_PsqCon' , "document.getElementById('in_Mco_CodCon').value='/';". 
			                                   "Car_".$sNomeAcesso."1.Atualiza_Dados('PUXAR_CNT','in_Mco_CodCon');"
			              , ''  ,'images/btimg_lupa.png',24).
		     '&nbsp;'.
		    '</td>'.
       	    '<td align="left">'.
		     '<input id="in_Mco_CodCon" name="Mco_CodCon" type="text" maxlength="11" style="width:85px; height:22px; text-align:right; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;" '.
			         'onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados('."'PUXAR_CNT'".','."'in_Mco_CodCon'".');"'.
			 '>'.
       	    '</td>'.
       	    '<td align="right">'.
		     '<input id="in_Mco_CodCon_Descri" readonly type="text" style="width:290px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	    '</td>'.
       	   '</tr>'.
       	   '<tr>'.
       	    '<td height="26px" align="right">'.
		     'Centro de custo:&nbsp;'.
			 HTML_Botao( 3, 'MovC_BT_PsqCus' , "document.getElementById('in_Mco_CodCus').value='/';". 
			                                   "Car_".$sNomeAcesso."1.Atualiza_Dados('PUXAR_CUS','in_Mco_CodCus');"
			              , ''  ,'images/btimg_lupa.png',24).
		     '&nbsp;'.
		    '</td>'.
       	    '<td align="left">'.
		     '<input id="in_Mco_CodCus" name="Mco_CodCus" type="text" maxlength="11" '.
			         'style="width:85px; height:22px; text-align:right; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;" '.
			         'onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados('."'PUXAR_CUS'".','."'in_Mco_CodCus'".');"'.
			 '>'.
       	    '</td>'.
       	    '<td align="right">'.
		     '<input id="in_Mco_CodCus_Descri" readonly type="text" style="width:290px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	    '</td>'.
       	   '</tr>'.
       	   '<tr>'.
       	    '<td height="26px" align="right">'.
		     'Documento:'.
		    '</td>'.
       	    '<td align="left">'.
		       '<input id="in_Mco_NumDoc" name="Mco_NumDoc" type="text" maxlength="10" OnKeyUp="Car_'.$sNomeAcesso.'1.V_Documento();"'.
			      'style="width:85px; height:22px; font-size:11px; font-weight:bold; text-align:right; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;" '.
			   '>'.
			'</td>'.
			'<td>'.  
			  '<span style="color:#FF0000;">'.
			     '&nbsp;&nbsp;'.
			     'Deixar em branco pega sequência da configuração'.
			  '</span>'.
       	    '</td>'.
       	    '<td align="right">'.
       	     '<table border="0px">'.
       	      '<tr>'.
       	       '<td height="26px">'.
			    'Data de lançamento:'.
		        '<img onclick="'."sIdHasFocus='in_Mco_L_Data';".'" src="images/bimg_calendario.png" border="0" id="bt_Mco_L_Data" style="cursor:pointer;">'.
       	       '</td>'.
       	       '<td width="80px" align="right">'.
		        '<input id="in_Mco_L_Data" name="Mco_L_Data" type="text" value="00/00/0000" style="width:76px; height:22px; text-align:center; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	       '</td>'.
       	      '</tr>'.
       	     '</table>'.
       	    '</td>'.
       	   '</tr>'.
       	   '<tr>'.
       	    '<td height="26px" align="right">'.
		     'Valor:'.
		    '</td>'.
       	    '<td align="left">'.
		     '<input id="in_Mco_ValLan" name="Mco_ValLan" type="text" maxlength="13" '.
			         'style="width:85px; height:22px; text-align:right; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;" '.
			 '>'.
       	    '</td>'.
       	    '<td align="right">'.
       	     '<table border="0px">'.
       	      '<tr>'.
       	       '<td height="26px">'.
			    'Tipo do lançamento:'.
       	       '</td>'.
       	       '<td width="80px" align="right">'.
		        '<input id="in_Mco_CreDeb" type="text" readonly value="" style="width:76px; height:22px; text-align:center; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	       '</td>'.
       	      '</tr>'.
       	     '</table>'.
       	    '</td>'.
       	   '</tr>'.
       	   '<tr>'.
       	    '<td height="26px" align="right">'.
		     'Historico:'.
		    '</td>'.
       	    '<td align="left" colspan="2">'.
		     '<input id="in_Mco_Histor" name="Mco_Histor" type="text" maxlength="50" style="width:392px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	    '</td>'.
       	   '</tr>'.
		  '</table>'.
		  '<div style="height:7px;"></div>'.
		  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
		  '<div style="height:7px;"></div>'.
		  '<span style="font-size:16px; font-weight:bold; color:#000000;">'.
		   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Contra-partida'.
		  '</span>'.
       	  '<table width="100%">'.
		   '<tr>'.
       	    '<td width="140px" height="26px" align="right">'.
		     'Conta:&nbsp;'.
			 HTML_Botao( 3, 'MovC_BTCPsqCon' , "document.getElementById('in_C_Mco_CodCon').value='/';". 
			                                   "Car_".$sNomeAcesso."1.Atualiza_Dados('PUXAR_CNT','in_C_Mco_CodCon');"
			              , ''  ,'images/btimg_lupa.png',24).
		     '&nbsp;'.
		    '</td>'.
       	    '<td align="left" width="90px">'.
		     '<input id="in_C_Mco_CodCon" name="C_Mco_CodCon" type="text" maxlength="11" style="width:85px; height:22px; text-align:right; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;" '.
			         'onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados('."'PUXAR_CNT'".','."'in_C_Mco_CodCon'".');"'.
			 '>'.
       	    '</td>'.
       	    '<td align="right" width="300px">'.
		     '<input id="in_C_Mco_CodCon_Descri" readonly type="text" style="width:290px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	    '</td>'.
		  	'<td>&nbsp;</td>'.
       	   '</tr>'.
       	   '<tr>'.
       	    '<td height="26px" align="right">'.
		     'Centro de custo:&nbsp;'.
			 HTML_Botao( 3, 'MovC_BTCPsqCus' , "document.getElementById('in_C_Mco_CodCus').value='/';". 
			                                   "Car_".$sNomeAcesso."1.Atualiza_Dados('PUXAR_CUS','in_C_Mco_CodCus');"
			              , ''  ,'images/btimg_lupa.png',24).
		     '&nbsp;'.
		    '</td>'.
       	    '<td align="left">'.
		     '<input id="in_C_Mco_CodCus" name="C_Mco_CodCus" type="text" maxlength="11" '.
			         'style="width:85px; height:22px; text-align:right; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;" '.
			         'onchange="Car_'.$sNomeAcesso.'1.Atualiza_Dados('."'PUXAR_CUS'".','."'in_C_Mco_CodCus'".');"'.
       	    '</td>'.
       	    '<td align="right">'.
		     '<input id="in_C_Mco_CodCus_Descri" readonly type="text" style="width:290px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	    '</td>'.
       	   '</tr>'.
		  '</table>'.
		  '<div style="height:7px;"></div>'.
         '</form>'.
		 //
       	 '<table width="100%" style="background-color:'.$sCorBarraInf.';">'.
		  '</tr>'.
       	   '<td width="8px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'Mov_Ctn_BT_Svl', "JanEspera(true, 'Verificando e salvando...');".
			                                 "document.forms.fmFin_Mov_C.acao.value='SALVAR';".
    	                                     "document.forms.fmFin_Mov_C.submit();"
		                 , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="114px" align="left">'.
       	    HTML_Botao( 3, 'Mov_Ctn_BT_Fec', $oJan->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	   '<td width="8px" align="left">&nbsp;</td>'.
       	  '</tr>'.
		 '</table>'.
         $oJan->MontaJanHTML(False);
      //
      // Java inicial
      $sRet_Javs .=
        'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
 	    'function V_Documento() {'.
		   "var fm = parent.document.forms.fmFin_Mov_C;".
		   'fm.Ctr_Doc.value = parent.document.getElementById("in_Mco_NumDoc").value;'.
		   "fm.acao.value = 'V_DOC';".
		   "fm.submit();".
		'}'.
		"";
      
	  // Java posterior
      $sRet_JavsPos .=
	    "var FmH = parent.document.forms['fmFin_Mov_C'];".
		// teclas da janela
		"function Teclas_F( Objeto, Evento ) {".
           "vNumTecla = parent.Tecla_Apertada(Evento);".
		   "if ( vNumTecla==116 ) { ".           //  ** [F5] **       Não atualizar
		       //
		   "} else if ( vNumTecla==121 ) { ".    //  ** [F10] **      (SALVAR)
			  "if ( parent.document.getElementById('Mov_Ctn_BT_Svl').style.display!='none') {".
			      "setTimeout( parent.document.getElementById('Mov_Ctn_BT_Svl').onclick , 200);".
			  "}".
		       //
		   "} else if ( vNumTecla==27 ) { ".     //  ** [ESC] **      (SAIR)
              "setTimeout( function () { ".$oJan->sJavOnClickF." } , 1);".
			  //
           "} else if ( vNumTecla==13 ) { ".     //  ** [ENTER] **
              "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJan->sIdObj."'),parent.sIdHasFocus);".
              "if ( sTempId.length>0 ) {".
		 		  "var ObjPrx = parent.document.getElementById(sTempId);".
            	  "ObjPrx.focus();".
		 		  
				  "if ( ObjPrx.type=='text' || ObjPrx.type=='textarea' ) {".
            	      "ObjPrx.select();".
		 		  "}".
              "} else {".
                 "parent.document.getElementById('".$oJan->aIdsObjList[0]."').focus();".
              "}".
		      //
		   "} else {".
		      "return true;".
		   "}".
		   "return false;".
		"}".
		//
	
		//
	    'function Atualiza_Dados(sSubAcao,sIdCampo) {'.
		  "parent.document.getElementById('Mov_Ctn_BT_Svl').style.display = 'none';".
		  "var fm = parent.document.forms.fmFin_Mov_C;".
		  "fm.acao.value = 'ATUALIZAR:'+sSubAcao;".
		  "fm.target = 'car_".$sNomeAcesso."3';".
		  "fm.Id_Campo_Atual.value = sIdCampo;".
		  "fm.ESC_S.value = '1';".
		  "fm.submit();".
		  "fm.acao.value = '';".
		  "fm.Id_Campo_Atual.value = '';".
		  "fm.target = 'car_".$sNomeAcesso."2';".
        '}'.
		
		//
        'parent.Calendar.setup({ '.
          'inputField : "in_Mco_L_Data", '.
          'trigger    : "bt_Mco_L_Data", '.
          'onSelect   : function() { this.hide(); parent.sIdHasFocus=""; Atualiza(); }, '.
          'showTime   : 0, '.
          'dateFormat : "%d/%m/%Y" '.
        '});'.
		//
        "parent.document.getElementById('".$oJan->aIdsObjList[0]."').focus();".
		"Atualiza_Dados('PUXAR_MOV','in_Mco_Sequen');".
		//
		"";
   //
   } ElseIf ( $sAcao=="V_DOC" ) {
     
	 $n_Documento = @$_REQUEST['Ctr_Doc']+0;
	 
	 If ( $n_Documento==0) {
	    
        $n_Doc = SQLVarConfig('MVC_CONTAS_DOC_SEQUEN')+0;
        		
		$bAlt_Num = False;
	    $sSQLQuery = "SELECT MCO_NUMDOC FROM mov_contas order by MCO_NUMDOC ASC";
        $Rows = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
        $aMov_Contas = ARRAY();
		WHILE($Row = MYSQL_FETCH_OBJECT($Rows)){
		  If (STRLEN( $Row->MCO_NUMDOC>0)) { 
           $aMov_Contas[]= $Row->MCO_NUMDOC+0;
		  }	
        }
		
		///echo "<script>alert('".print_r($aMov_Contas)."');</script>";
		While (True) {
		   if (in_array($n_Doc, $aMov_Contas)) {
              $n_Doc++;
	          $bAlt_Num = True; 
			  //echo "<script>alert('".'2'."');</script>";
			  Continue;
			  
		   } Else {
		      //echo "<script>alert('".'3'."');</script>";
			  Break;
		   }
	    }
		//}
		 /* If (STRLEN( $Row->MCO_NUMDOC>0)) { 
		     echo "<script>alert('".'a'.$n_Doc."');</script>";
			 echo "<script>alert('".'d'.($Row->MCO_NUMDOC+0)."');</script>";
			 
			 If( ($Row->MCO_NUMDOC+0)==$n_Doc) {
				 
                $n_Doc++;
			    $bAlt_Num = True; 
			    echo "<script>alert('".'b'.$n_Doc."');</script>";
			 } Else {	
			    echo "<script>alert('".'c'.$n_Doc."');</script>";
               Continue;			 
			 }
             
		 }*/	 
	
	   
	   SQLVarConfigG('MVC_CONTAS_DOC_SEQUEN', $n_Doc+1 );		
	   $sMco_NumDoc = (string) $n_Doc;
	 }
	 
     $sRet_Javs .= 
	   "parent.document.getElementById('in_Mco_NumDoc').value = ".$sMco_NumDoc.
	   ";";
	 
   
   // >> Atualizar dados
   } ElseIf ( SUBSTR($sAcao,0,10)=="ATUALIZAR:" ) {
      $sSubAcao = SUBSTR($sAcao,10);
	  If ( ! EMPTY($_POST['Id_Campo_Atual']) ) {
	     $aSessao[$sNomeAcesso.'_Id_Campo_Atual'] = @$_POST['Id_Campo_Atual'];      // Identificação em javascript do campo selecionado
	  }
	  $sIdCampo = @$aSessao[$sNomeAcesso.'_Id_Campo_Atual'];
	  $bContraP  = (SUBSTR($sIdCampo,0,5)=="in_C_");
	  SWITCH ($sSubAcao) {
	     // Puxar movimento pelo código sequencial
	     CASE "PUXAR_MOV":
		   $sMco_Sequen = @$_POST['Mco_Sequen'];
	       // Consulta
           If ( $sMco_Sequen=='/' ) {
              $sRet_Javs .= 
                 "parent.document.getElementById('".$sIdCampo."_Descri').innerHTML = '( Consulta )';".
                 "parent.document.getElementById('".$sIdCampo."').value = '';".
                 $sJavaTravarJ.
                 "setTimeout( function () { ".
		           "parent.document.forms.fmFin_Mov_C.target = 'car_".$sNomeAcesso."3';".
                   "parent.document.forms.fmFin_Mov_C.acao.value=''; ".
                   "parent.document.forms.fmFin_Mov_C.submod.value='CONSULTA_MOV'; ".
                   "parent.document.forms.fmFin_Mov_C.submit();".
                   "parent.document.forms.fmFin_Mov_C.submod.value='".$sSubModulo."'; ".
		           "parent.document.forms.fmFin_Mov_C.target = 'car_".$sNomeAcesso."2';".
                 "} , 100);".
                 "";
			  //
           // Exibir a descrição da conta
           } Else {
              $sMco_Descricao       = '** NOVO **';
			  $sMco_NumDoc          = '';
			  $sMco_CodCon          = '';
			  $sMco_CodCon_Descri   = '';
			  $sMco_CodCus          = '';
			  $sMco_CodCus_Descri   = '';
			  $sMco_ValLan          = '';
			  $sMco_L_Data          = DATE("d/m/Y");
			  $sMco_Histor          = '';
			  $sMco_CreDeb          = '';
			  $sC_Mco_CodCon        = '';
			  $sC_Mco_CodCon_Descri = '';
			  $sC_Mco_CodCus        = '';
			  $sC_Mco_CodCus_Descri = '';
			  $aSessao[$sNomeAcesso.'_Dados'] = ARRAY();
			  //
			  If ( ($sMco_Sequen+0) > 0 ) {
			     $sSQLQuery =
			       "SELECT mov.*,".
				          "cnt.CTA_CODIGO, cnt.CTA_DESCRI,".
						  "cus.CUS_CODIGO, cus.CUS_DESCRI, cus.CUS_CREDEB ".
				   "FROM      mov_contas       AS mov ".
				   "LEFT JOIN cad_contas       AS cnt  ON cnt.CTA_CODIGO   = mov.MCO_CODCON ".
				   "LEFT JOIN cad_centro_custo AS cus  ON cus.CUS_CODIGOI  = mov.MCO_CODCUS ".
				   "WHERE MCO_SEQUEN=".($sMco_Sequen+0)." ".
				     "AND CTA_ATIVO_".
				   ";";
                 $Row = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR());
                 If ($Row = MYSQL_FETCH_ARRAY($Row)) {
			        $sMco_Sequen          = Str_Zero($Row['MCO_SEQUEN'],11);;
					//$sMco_Descricao       = '** REGISTRADO **';
					$sMco_Descricao       = '** ALTERAÇÃO **';
			        $sMco_NumDoc          = $Row['MCO_NUMDOC'];
				    $sMco_CodCon          = Str_Zero($Row['CTA_CODIGO'],11);
			        $sMco_CodCon_Descri   = $Row['CTA_DESCRI'];
			        $sMco_CodCus          = $Row['CUS_CODIGO'];
			        $sMco_CodCus_Descri   = $Row['CUS_DESCRI'];
					$sMco_L_Data          = ConvertDataUSBR($Row['MCO_L_DATA']);
			        $sMco_ValLan          = FormatoMoeda($Row['MCO_VALLAN']);
			        $sMco_Histor          = $Row['MCO_HISTOR'];
			        $sMco_CreDeb          = ($Row['MCO_CREDEB'] ? 'Crédito' : 'Débito');
			        //$sC_Mco_CodCon        =
			        //$sC_Mco_CodCon_Descri =
			        //$sC_Mco_CodCus        =
			        //$sC_Mco_CodCus_Descri =
					$aSessao[$sNomeAcesso.'_Dados'] = $Row;
                 } Else {
			        $sMco_Sequen = '';
				 }
		      } Else {
		         $sMco_Sequen = '';
			  }
              
			  
			  $aSessao['Mco_Sequen']    = $sMco_Sequen;
			  $aSessao['Mco_ValLan']    = $sMco_ValLan;
			  
			  
			  $sRet_Javs .= 
                "parent.document.getElementById('".$sIdCampo."_Descri').innerHTML = '".$sMco_Descricao."';".
                "parent.document.getElementById('".$sIdCampo."').value = '".$sMco_Sequen."';".
				"parent.document.getElementById('in_Mco_NumDoc').value = '".$sMco_NumDoc."';".
				"parent.document.getElementById('in_Mco_CodCon').value = '".$sMco_CodCon."';".
				"parent.document.getElementById('in_Mco_CodCon_Descri').value='".$sMco_CodCon_Descri."';".
				"parent.document.getElementById('in_Mco_CodCus').value='".$sMco_CodCus."';".
				"parent.document.getElementById('in_Mco_CodCus_Descri').value='".$sMco_CodCus_Descri."';".
				"parent.document.getElementById('in_Mco_L_Data').value='".$sMco_L_Data."';".
				"parent.document.getElementById('in_Mco_ValLan').value='".$sMco_ValLan."';".
                "parent.document.getElementById('in_Mco_CreDeb').value = '".$sMco_CreDeb."';".
				"parent.document.getElementById('in_Mco_Histor').value='".$sMco_Histor."';".
				"parent.document.getElementById('in_C_Mco_CodCon').value='".$sC_Mco_CodCon."';".
				"parent.document.getElementById('in_C_Mco_CodCon_Descri').value='".$sC_Mco_CodCon_Descri."';".
				"parent.document.getElementById('in_C_Mco_CodCus').value='".$sC_Mco_CodCus."';".
				"parent.document.getElementById('in_C_Mco_CodCus_Descri').value='".$sC_Mco_CodCus_Descri."';".
                "";
			  //
           }
		   //
		 BREAK;
		 // Puxar conta pelo código
	     CASE "PUXAR_CNT":
	       // Consulta
		   If ( $bContraP ) {
	          $sMco_CodCon = @$_POST['C_Mco_CodCon'];
			  $nMco_CodCon = $nMcoCCodCon;
		   } Else {
	          $sMco_CodCon = @$_POST['Mco_CodCon'];
		   }
           If ( $sMco_CodCon=='/' ) {
              $sRet_Javs .= 
                 "parent.document.getElementById('".$sIdCampo."_Descri').value = '( Consulta )';".
                 "parent.document.getElementById('".$sIdCampo."').value = '';".
                 $sJavaTravarJ.
                 "setTimeout( function () { ".
		           "parent.document.forms.fmFin_Mov_C.target = 'car_".$sNomeAcesso."3';".
                   "parent.document.forms.fmFin_Mov_C.acao.value=''; ".
                   "parent.document.forms.fmFin_Mov_C.submod.value='CONSULTA_CTA'; ".
                   "parent.document.forms.fmFin_Mov_C.submit();".
                   "parent.document.forms.fmFin_Mov_C.submod.value='".$sSubModulo."'; ".
		           "parent.document.forms.fmFin_Mov_C.target = 'car_".$sNomeAcesso."2';".
                 "} , 100);".
                 "";
			  //
           // Exibir a descrição da conta
           } Else {
              $sCta_Descricao = '';
			  $sMco_CodCon    = '';
              $Row = MYSQL_QUERY("SELECT * FROM cad_contas WHERE CTA_CODIGO=".$nMco_CodCon." AND CTA_ATIVO_;") or die(MYSQL_ERROR());
              If ($Row = MYSQL_FETCH_OBJECT($Row)) {
                 $sCta_Descricao = $Row->CTA_DESCRI;
				 $sMco_CodCon    = Str_Zero($Row->CTA_CODIGO,11);
              }
			   $aSessao['Mco_CodCon']    = $sMco_CodCon;
			  
              $sRet_Javs .= 
                "parent.document.getElementById('".$sIdCampo."_Descri').value = '".$sCta_Descricao."';".
                "parent.document.getElementById('".$sIdCampo."').value = '".$sMco_CodCon."';".
                "";
			  //
           }
		   //
		 BREAK;
		 // Puxar centro de custo pelo código
	     CASE "PUXAR_CUS":
	       // Consulta
		   If ( $bContraP ) {
	          $sMco_CodCus = $sMcoCCodCus;
		   } Else {
              $aSessao[$sNomeAcesso.'_Dados']['MCO_CODCUS'] = 0;
		   }
           If ( $sMco_CodCus=='/' ) {
              $sRet_Javs .= 
                 "parent.document.getElementById('".$sIdCampo."_Descri').value = '( Consulta )';".
                 "parent.document.getElementById('".$sIdCampo."').value = '';".
                 $sJavaTravarJ.
                 "setTimeout( function () { ".
		           "parent.document.forms.fmFin_Mov_C.target = 'car_".$sNomeAcesso."3';".
                   "parent.document.forms.fmFin_Mov_C.acao.value=''; ".
                   ( $bContraP ?
				      "parent.document.forms.fmFin_Mov_C.FiltroSQL.value='CUS_CREDEB=".(((0+@$aSessao[$sNomeAcesso.'_Dados']['MCO_CREDEB'])==0)+0)."'; "
                    :
				      "parent.document.forms.fmFin_Mov_C.FiltroSQL.value=''; "
					).
				   "parent.document.forms.fmFin_Mov_C.submod.value='CONSULTA_CUS'; ".
                   "parent.document.forms.fmFin_Mov_C.submit();".
                   "parent.document.forms.fmFin_Mov_C.submod.value='".$sSubModulo."'; ".
                   "parent.document.forms.fmFin_Mov_C.FiltroSQL.value=''; ".
		           "parent.document.forms.fmFin_Mov_C.target = 'car_".$sNomeAcesso."2';".
                 "} , 100);".
                 "";
			  //
           // Exibir a descrição da conta
           } Else {
              $Row = MYSQL_QUERY("SELECT * FROM cad_centro_custo WHERE CUS_CODIGO='".$sMco_CodCus."' AND CUS_ATIVO_;") or die(MYSQL_ERROR());
              If ($Row = MYSQL_FETCH_OBJECT($Row)) {
				 $sMco_CodCus    =  $Row->CUS_CODIGO;
                 $sCus_Descricao = $Row->CUS_DESCRI;
			     $sMco_CreDeb    = ($Row->CUS_CREDEB ? 'Crédito' : 'Débito');
		         If ( ! $bContraP ) {
		            $aSessao[$sNomeAcesso.'_Dados']['MCO_CREDEB'] = $Row->CUS_CREDEB;
		            $aSessao[$sNomeAcesso.'_Dados']['MCO_CODCUS'] = $Row->CUS_CODIGOI;
				 }
              } Else {
                 $sCus_Descricao = '';
			     $sMco_CodCus    = '';
			     $sMco_CreDeb    = '';
			  }
			  $aSessao['Mco_CodCus']    = $sMco_CodCus;
			  
              $sRet_Javs .= 
                "parent.document.getElementById('".$sIdCampo."_Descri').value = '".$sCus_Descricao."';".
                "parent.document.getElementById('".$sIdCampo."').value = '".$sMco_CodCus."';".
				( $bContraP ? '' :
                "parent.document.getElementById('in_Mco_CreDeb').value = '".$sMco_CreDeb."';"
				).
                "";
			  //
           }
		   //
		 BREAK;
	  }
	  
	 
      
	  
			  
	  
      $sRet_Javs .= 
		  "parent.document.getElementById('Mov_Ctn_BT_Svl').style.display = 'inline-block';".
          "";
   //
   // >> Salvar registro
   } ElseIf ( $sAcao=="SALVAR" ) {
      $bGravarSQL    = True;
      $bRegistroNovo = False;
	  $bContraPartid = ( ($nMcoCCodCon+0)>0 AND STRLEN($sMcoCCodCus+0)>0 );
	  $nMco_L_Data   = ConvertDataSTR(ConvertDataBRUS($sMco_L_Data));
	  $sRet_Javs .= "parent.JanEspera(false);";
	  //
	  If ($bGravarSQL && $nMco_CodCon==0 ) {
         $sRet_Javs .= Info_Evento('Código da conta inválido.',0);
	     $bGravarSQL = False;
	  }
	  If ($bGravarSQL && (@$aSessao[$sNomeAcesso.'_Dados']['MCO_CODCUS']+0)==0 ) {
         $sRet_Javs .= Info_Evento('Código do custo inválido.',0);
	     $bGravarSQL = False;
	  }
	  If ($bGravarSQL && (SUBSTR($sMco_CodCus,3)+0)==0) {
         $sRet_Javs .= Info_Evento('No código de custo somente é aceito o código de segundo nível.',0);
	     $bGravarSQL = False;
	  }
	  If ($bGravarSQL && ($nMco_L_Data < MKTIME(0,0,0,01,01,2000)) ) {
         $sRet_Javs .= Info_Evento('Data de lançamento inválida.',0);
	     $bGravarSQL = False;
	  }
	  //If ($bGravarSQL && STRLEN($sMco_NumDoc)<5 ) {
      //   $sRet_Javs .= Info_Evento('Numero do documento é menor que o mínimo permitido de 5 caracteres.',0);
	  //   $bGravarSQL = False;
	  //}
	  If ($bGravarSQL && $nMco_ValLan==0 ) {
         $sRet_Javs .= Info_Evento('Valor do movimento é inválido.',0);
	     $bGravarSQL = False;
	  }
	  If ($bGravarSQL && STRLEN($sMco_NumDoc)>0 && $nMco_Sequen==0) {
		 $sSQLQuery = "SELECT MCO_NUMDOC FROM mov_contas WHERE MCO_NUMDOC='".$sMco_NumDoc."';";
         $Row = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
		 If ( $Row = MYSQL_FETCH_ARRAY($Row) ) {
            $sRet_Javs .= Info_Evento('Numero do documento já existe em outro registro.',0);
	        $bGravarSQL = False;
		 }
	  }
	  //numero do documento em branco  pega da configuração até achar um que não exista em outro registro
	  $bAlt_Num = False;
	  If ($bGravarSQL && ($sMco_NumDoc+0)==0) {
         $n_Doc = SQLVarConfig('MVC_CONTAS_DOC_SEQUEN')+0;		  
		 $sSQLQuery = "SELECT MCO_NUMDOC FROM mov_contas order by MCO_NUMDOC ASC";
         $Rows = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
         $aMov_Contas = ARRAY();
		 WHILE($Row = MYSQL_FETCH_OBJECT($Rows)){
		   If (STRLEN( $Row->MCO_NUMDOC>0)) { 
              $aMov_Contas[]= $Row->MCO_NUMDOC+0;
		   }	
         }
		
		 While (True) {
		    if (in_array($n_Doc, $aMov_Contas)) {
               $n_Doc++;
	           $bAlt_Num = True; 
			   Continue;
			} Else {
		      Break;
		   }
	     }
		 
		 SQLVarConfigG('MVC_CONTAS_DOC_SEQUEN', $n_Doc+1 );		
		 $sMco_NumDoc = (string) $n_Doc;
	     
      }
	  If ($bGravarSQL && ($nMcoCCodCon>0 Or STRLEN($sMcoCCodCus)>0)) {
	     If ( (SUBSTR($sMcoCCodCus,3)+0)==0 ) {
            $sRet_Javs .= Info_Evento('No código de custo da contra partida somente é aceito o código de segundo nível.',0);
	        $bGravarSQL = False;
	     }
		 If ($bGravarSQL) {
            $Row = MYSQL_QUERY("SELECT * FROM cad_centro_custo WHERE CUS_CODIGO='".$sMcoCCodCus."' AND CUS_ATIVO_;") or die(MYSQL_ERROR());
            $Row = MYSQL_FETCH_ARRAY($Row);
            $bCusCCreDeb = @$Row['CUS_CREDEB']+0;
            $nCusCodigoI = @$Row['CUS_CODIGOI']+0;
            If ( $nCusCodigoI>0 && $bCusCCreDeb<>($aSessao[$sNomeAcesso.'_Dados']['MCO_CREDEB']+0) ) {
		    } Else {
               $sRet_Javs .= Info_Evento('O custo da contra partida tem que ser ao contrário da origem.',0);
	           $bGravarSQL = False;
		    }
	     }
	  }
	  //
	  If ($bGravarSQL) {
	     If(STRLEN($sMco_Histor)<=0){
			$sRet_Javs .= Info_Evento('O Histórico deve ser preenchido.',0);
            $bGravarSQL = False;
		 }
	  }
      If ($bGravarSQL && $nMco_Sequen==0) {
		 $sSQLQuery =
		    "INSERT INTO mov_contas ".
		       "(MCO_CODEMP, MCO_E_DTHR, MCO_FUNINC) ".
		    "VALUES ".
		       "(".$Dados_Empresa['EMP_CODIGOI'].",".
		 	  "'".DATE("Y-m-d H:i:s")."',".
		 	      $R_CadFuncionario->FUN_CODIGO.
		 	  ")".
		    ";";
         MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
		 $nMco_Sequen = MYSQL_INSERT_ID();
		 $bRegistroNovo = True;
	  }
	  
	  If ($bGravarSQL && $nMco_Sequen>0) {
         $sSQLQuery =
           "UPDATE mov_contas SET ".
		     "MCO_CODCON=". $nMco_CodCon.",".
			 "MCO_CODCUS=". ($aSessao[$sNomeAcesso.'_Dados']['MCO_CODCUS']+0).",".
			 "MCO_NUMDOC='".$sMco_NumDoc."',".
			 "MCO_L_DATA='".DATE('Y-m-d',$nMco_L_Data)."',".
			 "MCO_VALLAN=". $nMco_ValLan.",".
			 "MCO_CREDEB=".($aSessao[$sNomeAcesso.'_Dados']['MCO_CREDEB']+0).",".
			 "MCO_HISTOR=". '0x'.BIN2HEX(UTF8_DECODE($sMco_Histor)).",".
			 ( $bRegistroNovo ? '' :
			 "MCO_FUNALT=" .$R_CadFuncionario->FUN_CODIGO.",".
			 "MCO_ULTALT='".DATE("Y-m-d H:i:s")."',"
			 ).
			 "MCO_CODDIG=".$R_CadFuncionario->FUN_CODIGO." ".
           "WHERE MCO_SEQUEN=".$nMco_Sequen." ".
		   ";";
         MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
		 // Contra partida
		 If ( $bContraPartid ) {
		    $sSQLQuery =
		       "INSERT INTO mov_contas ".
		          "(MCO_CODEMP, MCO_E_DTHR, MCO_FUNINC, MCO_CODCON, MCO_CODCUS, MCO_VALLAN, MCO_CREDEB, MCO_HISTOR, MCO_L_DATA) ".
		       "VALUES ".
		          "(".$Dados_Empresa['EMP_CODIGOI'].",".
		    	  "'".DATE("Y-m-d H:i:s")."',".
		    	      $R_CadFuncionario->FUN_CODIGO.",".
					  ($nMcoCCodCon+0).",".
					  $nCusCodigoI.",".
					  $nMco_ValLan.",".
					  $bCusCCreDeb.",".
			      "'".'Contra partida do registro '.$nMco_Sequen."',".
				  "'".DATE('Y-m-d',$nMco_L_Data)."' ".
		    	  ")".
		       ";";
            MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
		    $nMco_Sequen_C = MYSQL_INSERT_ID();
		 }
		 //
         $sRet_Javs .=
		    //"parent.document.getElementById('in_Mco_Sequen').value = '".$nMco_Sequen."';".  ALTERAÇÃO 4106 LIMPAR A  TELA 
			"parent.document.getElementById('in_Mco_Sequen').value = '';".
			"parent.Car_".$sNomeAcesso."1.Atualiza_Dados('PUXAR_MOV','in_Mco_Sequen');".
			"";
      
	  }
	  
   //
  
  
   // >> Fechar janela
   } ElseIf ( $sAcao=="FECHAR" ) {
       $sSequen = @$aSessao['Mco_Sequen'];
	   
	   $sCodCon = @$aSessao['Mco_CodCon'];  
	   $sCodCus = @$aSessao['Mco_CodCus'];  
	   $sValLan = @$aSessao['Mco_ValLan'];
	   
	   If ( (STRLEN($sSequen)>0 ) || ( STRLEN($sCodCon)>0 ) || ( STRLEN($sCodCus)>0 ) || ( STRLEN($sValLan)>0 ) ) {
          
          $sAcao= "";
		  
          $sRet_Javs .=
		     "parent.document.getElementById('in_Mco_Sequen').value = '';".
			 "parent.Car_".$sNomeAcesso."1.Atualiza_Dados('PUXAR_MOV','in_Mco_Sequen');".
	       "";          
		  UNSET( $aSessao['Mco_Sequen']);
		  UNSET( $aSessao['Mco_CodCon']);
		  UNSET( $aSessao['Mco_CodCus']);
		  UNSET( $aSessao['Mco_ValLan']);
		  //
	   
	   
	   } Else {
          
		  $sRet_Javs .=
             $sJavaTravarJ.
			 "parent.document.getElementById('dv_MenuL_Barra').style.visibility='visible';".
             "parent.RmElem('".$oJan->sIdObj."');";
         
		  UNSET( $aSessao[$sNomeAcesso.'_Dados'] );
     	  UNSET( $aSessao[$sNomeAcesso.'_Id_Campo_Atual'] );
		  UNSET( $aSessao['Mco_Sequen']);
		  UNSET( $aSessao['Mco_CodCon']);
		  UNSET( $aSessao['Mco_CodCus']);
		  UNSET( $aSessao['Mco_ValLan']);
		
	   }
	  //
      //
	  //
   }
   //
//
//  ** CONSULTA AO MOVIMENTO DE CONTAS **
} ElseIf ( $sSubModulo=="CONSULTA_MOV" ) {
   $sNomeIdJ_Ant = $sNomeIdJPrin;
   $sNomeIdCampo = @$aSessao[$sNomeAcesso.'_Id_Campo_Atual'];
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."1.Atualiza_Dados('PUXAR_MOV','".$sNomeIdCampo."');";
   REQUIRE "./modulos/consulta_mov_conta.inc";
   //
//
//  ** CONSULTA AO CADASTRO DE CONTAS **
} ElseIf ( $sSubModulo=="CONSULTA_CTA" ) {
   $sNomeIdJ_Ant = $sNomeIdJPrin;
   $sNomeIdCampo = @$aSessao[$sNomeAcesso.'_Id_Campo_Atual'];
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."1.Atualiza_Dados('PUXAR_CNT','".$sNomeIdCampo."');";
   REQUIRE "./modulos/consulta_conta.inc";
   //
//
//  ** CONSULTA AO CADASTRO DE CENTRO DE CUSTOS **
} ElseIf ( $sSubModulo=="CONSULTA_CUS" ) {
   $nQdrNomeAcs  = 3;
   $bCTP = 0;
   $sNomeIdJ_Ant = $sNomeIdJPrin;
   $sNomeIdCampo = @$aSessao[$sNomeAcesso.'_Id_Campo_Atual'];
   $s_Filtro_SQL = @$_POST['FiltroSQL'];
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."1.Atualiza_Dados('PUXAR_CUS','".$sNomeIdCampo."');";
   REQUIRE "./modulos/consulta_centro_custos.inc";
   //
}

?>