<?php
//
// Função que captura o saldo de crédito em conta corrente do cliente
Function Fin_ContaCorrente_Saldo( $nCli_CodigoI=0 ) {
   $nFcc_SaldoMv = 0;
   //
   $sQuerySQL =
      "SELECT FCC_SALDOMV ".
	  "FROM fin_conta_corrente_cliente ".
	  "WHERE FCC_COD_CLI=".$nCli_CodigoI." ".
	  "ORDER BY FCC_DTHRMOV DESC ".
	  "LIMIT 1;";
   $Row_FinCtr = MYSQL_QUERY($sQuerySQL) or die($sQuerySQL.'<br>'.MYSQL_ERROR());
   If ($Row_FinCtr = MYSQL_FETCH_OBJECT($Row_FinCtr)) {
      $nFcc_SaldoMv = $Row_FinCtr->FCC_SALDOMV;
   }
   //
   Return $nFcc_SaldoMv;
}
//
// Função que grava crédito ou débito em conta correte de cliente
Function Fin_ContaCorrente_CrdDeb( $nCli_CodigoI, $nFcc_ValorMv, $sFcc_Descric='', $nFcc_Seq_Cai=0, $nFcc_Idn_Ctr=0, $nFcc_Idn_Fat=0 ) {
   Global $sData_Trabalho, $R_CadFuncionario, $Dados_Empresa;
   $nFcc_Idn_Fcc  = 0;       // Codigo de identificação única do registro
   $nFcc_SaldoMv  = Fin_ContaCorrente_Saldo( $nCli_CodigoI );
   $nFcc_SaldoMv += $nFcc_ValorMv;
   //
   $sQuerySQL =
      "INSERT INTO fin_conta_corrente_cliente (".
	     "FCC_COD_CLI,".     // Código interno do cliente
		 "FCC_COD_EMP,".     // Código interno da empresa (filial)
	     "FCC_IDN_CTR,".     // Código interno do contas á receber
	     "FCC_IDN_FAT,".     // Código interno da tabela FAT_GERAL
	     "FCC_COD_FUN,".     // Código interno do operador (funcionário)
	     "FCC_SEQ_CAI,".     // Código de sequência de caixa
	     "FCC_DTHRMOV,".     // Data e hora real do movimento
	     "FCC_DATAFIC,".     // Data ficticia do sistema
	     "FCC_VALORMV,".     // Valor do movimento
	     "FCC_CREDITO,".     // É crédito? 1=Crédito ou 0=Débito
	     "FCC_SALDOMV,".     // Saldo após o movimento
	     "FCC_DESCRIC ".     // Descritivo do movimento
	  ") VALUES (".
	     $nCli_CodigoI.",".
		 $Dados_Empresa['EMP_CODIGOI'].",".
	     $nFcc_Idn_Ctr.",".
	     $nFcc_Idn_Fat.",".
	     $R_CadFuncionario->FUN_CODIGO.",".
	     $nFcc_Seq_Cai.",".
		 "'".DATE("Y-m-d H:i:s")."',".
		 "'".$sData_Trabalho."',".
		 (Somente_Numeros($nFcc_ValorMv,'.')+0).",".
		 ($nFcc_ValorMv<0 ? '0' : '1').",".
		 $nFcc_SaldoMv.",".
		 SQL_Bin($sFcc_Descric).
	  ");";
   MYSQL_QUERY($sQuerySQL) Or Die($sQuerySQL.'<br>'.MYSQL_ERROR());
   $nFcc_Idn_Fcc = MYSQL_INSERT_ID();
   //
   Return $nFcc_Idn_Fcc;
}
?>