<?php
// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = "iJan_InsCrdCli"; 
$oJanelaPrinc->nTop    = 100;
$oJanelaPrinc->nLeft   = 10;
$oJanelaPrinc->nWidth  = 400;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Inserir crédito';
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."10.Teclas_F(this,event);";
//
$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
$oJanelaPrinc->sJavOnClickF = 
    $sJavaTravarJ.
	"parent.document.forms.fmFinCrdCli.acao.value='FECHAR'; ".
	"parent.document.forms.fmFinCrdCli.submit();".
	"";
$oJanelaPrinc->aIdsObjList = ARRAY('iFinCrd_Credito', 'iFinCrd_Descrit');
//
$aDadosS = @$aSessao[$sNomeAcesso.'_PriCTR'];
$nFcc_ValorMv = STR_REPLACE(',','.',Somente_Numeros(@$_POST['Fcc_ValorMv'],',.'))+0;
$sFcc_Descric = @$_POST['Fcc_Descric'];
//
// JANELA TELA PRINCIPAL
If ( EMPTY($sAcao) ) {
   // Conteudo HTML da tela
   $sRet_TelaJ_HTML =
	  // 1º Linha
   	  '<table width="100%">'.
	   '</tr>'.
   	    '<td align="left">'.
   	     'Cliente'.
   	    '</td>'.
   	   '</tr>'.
   	   '<tr>'.
	    '<td align="left">'.
   	     '<input id="iFinCrd_Cliente" readonly type="text" style="width:99%;">'.
		'</td>'.
   	   '</tr>'.
   	  '</table>'.
	  // 2º Linha
   	  '<table width="100%">'.
	   '</tr>'.
   	    '<td align="left" width="70px">'.
   	     'Saldo em crédito'.
   	    '</td>'.
   	    '<td width="6px">&nbsp;</td>'.
   	    '<td align="left">'.
   	     'Valor do crédito'.
   	    '</td>'.
   	   '</tr>'.
   	   '<tr>'.
	    '<td>'.
   	     '<input id="iFinCrd_SaldoCl" readonly type="text" style="width:99%; text-align:right;">'.
		'</td>'.
	    '<td></td>'.
	    '<td>'.
   	     '<input id="iFinCrd_Credito" name="Fcc_ValorMv" type="text" maxlength="15" style="width:99%; text-align:right;" onblur="Car_'.$sNomeAcesso.'10.Atualizar();" onkeyup="Car_'.$sNomeAcesso.'10.LimparBot();">'.
		'</td>'.
   	   '</tr>'.
   	  '</table>'.
	  // 3º Linha
   	  '<table width="100%">'.
	   '</tr>'.
   	    '<td align="left">'.
   	     'Descritivo'.
   	    '</td>'.
   	   '</tr>'.
   	   '<tr>'.
	    '<td align="left">'.
   	     '<input id="iFinCrd_Descrit" name="Fcc_Descric" maxlength="80" type="text" style="width:99%;">'.
		'</td>'.
   	   '</tr>'.
   	  '</table>'.
	  '';
   // Tela HTML
   $sRet_TelaJ_HTML =
	  $oJanelaPrinc->MontaJanHTML(True).
	  '<style type="text/css" rel="stylesheet">'.
       '.FinCrdCli table {'.
	    'margin-left:0px; margin-top:0px; margin-right:0px; margin-bottom:0px; padding:0px; border-spacing:0px;'.
	  	'color:#222222;'.
	  	'font-family: "arial";'.
	  	'font-size:12px;'.
	   '}'.
       '.FinCrdCli span.Titulo {'.
	    'display:inline-block;'.
	  	'position:relative;'.
	  	'left:6px;'.
	   '}'.
       '.FinCrdCli span.Titulo {'.
	    'display:inline-block;'.
	  	'position:relative;'.
	   '}'.
       '.FinCrdCli input,select {'.
	    'display:inline-block;'.
	    'height:24px;'.
	  	'color:#000000;'.
	  	'font-family: "arial";'.
	  	'font-size:14px;'.
	  	'background:#FFFFFF;'.
	  	'border-width:1px;'.
	  	'border-style:solid;'.
	  	'border-color:#D6D0AE;'.
       '}'.
       '.FinCrdCli input:read-only {'.
	  	'background:#F0EFE8;'.
	  	'border-color:#DBDAD2;'.
       '}'.
	  '</style>'.
      '<form name="fmFinCrdCli" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'11">'.
       '<input name="mod" type="hidden" value="'.$sModulo.'">'.
       '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
       '<input name="acao" type="hidden" value="">'.
	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
       '<table width="'.($oJanelaPrinc->nWidth-12).'px" class="FinCrdCli">'.
	    '<tr>'.
         '<td width="6px" style="font-size:1px;">&nbsp;</td>'.
         '<td align="left">'.
	      $sRet_TelaJ_HTML.
	     '</td>'.
         '<td width="6px" style="font-size:1px;">&nbsp;</td>'.
	    '</tr>'.
	   '</table>'.
      '</form>'.
      //
      '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       '<td width="8px" height="40px" align="left">&nbsp;</td>'.
       '</td>'.
       '<td align="left" width="130px">'.
        HTML_Botao( 3, 'bt_FinCrdCli_Svr', 'Car_'.$sNomeAcesso.'10.Salvar();'
                     , 'Salvar (F10)'    , 'images/btimg_salvar.png',120).
       '</td>'.
       '<td align="right">'.
        HTML_Botao( 3, 'bt_FinCrdCli_Sai', $oJanelaPrinc->sJavOnClickF
                     , 'Voltar (ESC)'    ,'images/btimg_fechar.png' ,120).
       '</td>'.
       '<td width="8px" align="left">&nbsp;</td>'.
       '</td>'.
      '</tr></table>'.
	  $oJanelaPrinc->MontaJanHTML(False);
   //
   // Java anterior
   $sRet_Javs .=
	  "parent.document.getElementById('".$sNomeIdJ_Ant."_Travar').style.visibility='visible';".
	  "parent.Disabled_In_Elems('".$sNomeIdJ_Ant."',true);".
	  //
	  "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('bt_FinCrdCli_Svr').style.display != 'none') {".
                 "setTimeout( parent.document.getElementById('bt_FinCrdCli_Svr').onclick , 1);".
			 "}".
	     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **        (SAIR)
             "setTimeout( parent.document.getElementById('bt_FinCrdCli_Sai').onclick , 1);".
	     "} else if ( vNumTecla==13) { ". //   ** [ENTER] **      Selecionar
			 "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),parent.sIdHasFocus);".
			 "if ( sTempId.length>0 ) {".
			     "parent.document.getElementById(sTempId).focus();".
			 "} else {".
    	         "parent.document.getElementById('".$oJanelaPrinc->aIdsObjList[0]."').focus();".
			 "}".
			 //
		 "} else {".
   	         "return true;".
		 "}".
		 "return false;".
	  '}'.
	  //
	  'function LimparBot() {'.
	     "parent.document.getElementById('bt_FinCrdCli_Svr').style.display='none';".
	  '}'.
	  //
	  "function Atualizar() {".
	     "LimparBot();".
	     "var Fm = parent.document.forms.fmFinCrdCli;".
		 "Fm.acao.value = 'ATZ';".
		 "Fm.submit();".
	  "}".
	  "function Salvar() {".
         "parent.JanEspera(true,'Aguarde...');".
	     "var Fm = parent.document.forms.fmFinCrdCli;".
		 "Fm.acao.value = 'SALVAR';".
		 "Fm.submit();".
	  "}".
	  //
	  "";
   // Java posterior
   $sRet_JavsPos .=
	  "parent.document.getElementById('".$oJanelaPrinc->aIdsObjList[0]."').focus();".
	  "Atualizar();".
	  "";
   //
//
// ATUALIZAR
} ElseIf ( $sAcao=="ATZ" ) {
   $nFcc_SalvoMv = 0;
   $sFcc_ValorMv = ($nFcc_ValorMv==0 ? '' : FormatoMoeda($nFcc_ValorMv));
   $sCrd_Cliente = 'Cliente não encontrado. (Código='.$nCli_CodigoI.')';
   $bValidar_Svr = False;
   //
   If ( $nCli_CodigoI>0 ) {
      $Row_CadCli = MYSQL_QUERY("SELECT CLI_CODIGOI, CLI_NOMECP FROM cad_cliente WHERE CLI_CODIGOI=".$nCli_CodigoI." AND CLI_TRAREG=0 LIMIT 1;") or die(MYSQL_ERROR());
	  If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
		 $sCrd_Cliente = Str_Zero($Row_CadCli->CLI_CODIGOI,6).' - '.SUBSTR($Row_CadCli->CLI_NOMECP,0,40);
		 $nFcc_SalvoMv = Fin_ContaCorrente_Saldo($nCli_CodigoI);
		 $bValidar_Svr = True;
	  }
   }
   //
   $bValidar_Svr = $bValidar_Svr && $nFcc_ValorMv>0;
   $sFcc_SalvoMv = FormatoMoeda($nFcc_SalvoMv);
   //
   $sRet_Javs .=
	  "parent.document.getElementById('iFinCrd_SaldoCl').value = ".JAVA_CharCode($sFcc_SalvoMv).";".
	  "parent.document.getElementById('iFinCrd_Credito').value = ".JAVA_CharCode($sFcc_ValorMv).";".
	  "parent.document.getElementById('iFinCrd_Cliente').value = ".JAVA_CharCode($sCrd_Cliente).";".
      "parent.document.getElementById('bt_FinCrdCli_Svr').style.display='".($bValidar_Svr ? 'inline-block' : 'none')."';".
	  "";
//
// SALVAR CREDITO
} ElseIf ( $sAcao=="SALVAR" ) {
   //
   $sRet_Javs .= "parent.JanEspera(false);";
   $bValidar_Svr = True;
   $nFcc_Seq_Cai = 0;
   If ( $aDadosS['USA_CAIXAR'] ) {
      $nFcc_Seq_Cai = PuxarCaixaAberto($R_CadFuncionario->FUN_CODIGO);
      If ( $nFcc_Seq_Cai==0 ) {
         $sRet_Javs .= Info_Evento('Não é possivel inserir o crédito a este cliente com o caixa fechado.',1);
         $bValidar_Svr = False;
	  }
   }
   If ( $bValidar_Svr ) {
      Fin_ContaCorrente_CrdDeb( $nCli_CodigoI, $nFcc_ValorMv, $sFcc_Descric, $nFcc_Seq_Cai);
	  If ( $nFcc_Seq_Cai>0 ) {
	     $sHistorico_Cai =
		    "Credito em conta corrente.";
		 $sSQLQuery =
            "INSERT INTO mov_caixa(".
		       "MVC_SQCAIXA, MVC_COD_FUN, MVC_DATAFIC, MVC_DATAMOV, MVC_TIPOMOV, MVC_VALORMV, MVC_PARAMET".
		    ") VALUES (".
		       $nFcc_Seq_Cai.",".
		   	   $R_CadFuncionario->FUN_CODIGO.",".
		   	   "'".$sData_Trabalho."',".
		       "'".DATE("Y-m-d H:i:s")."',".
		       "4,".
		       "'".$nFcc_ValorMv."',".
		   	   SQL_Bin($sHistorico_Cai).
		    "); ";
         MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
	  }
      $sRet_Javs .=
	     "setTimeout( parent.document.getElementById('bt_FinCrdCli_Sai').onclick , 1);".
         "";
   }
   //
//
// FECHAR
} ElseIf ( $sAcao=="FECHAR" ) {
   $sRet_Javs .=
	  "parent.document.getElementById('".$sNomeIdJ_Ant."_Travar').style.visibility='hidden';".
	  "parent.Disabled_In_Elems('".$sNomeIdJ_Ant."',false);".
	  $sJavaExePos.
      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
   //
}
//
?>