/**
* Função que calcula o valor total da inicial
*
*/
function valorInicialAtualizado($iInicial, $dDtEmiss = null)
{
require_once "libs/db_sql.php";
$nValor = 0;
$sSqlCertidoesInicial = "select v51_inicial, \n \t v13_certid, \n \t v13_dtemis \n \t from inicialcert\n \t inner join certid on v13_certid = v51_certidao \n \t where v51_inicial = {$iInicial} ";
$rsCertidoesInicial = db_query($sSqlCertidoesInicial);
for ($iCertidoesInicial = 0; $iCertidoesInicial < pg_num_rows($rsCertidoesInicial); $iCertidoesInicial++) {
$oCertidoesInicial = db_utils::fieldsMemory($rsCertidoesInicial, $iCertidoesInicial);
if ($dDtEmiss == null) {
$dDtEmiss = $oCertidoesInicial->v13_dtemis;
}
$sSqlParcelamentos = " select v14_parcel, ";
$sSqlParcelamentos .= " v07_numpre ";
$sSqlParcelamentos .= " from certter";
$sSqlParcelamentos .= " inner join termo on v07_parcel = v14_parcel";
$sSqlParcelamentos .= " where v14_certid = {$oCertidoesInicial->v13_certid} ";
$rsParcelamentos = db_query($sSqlParcelamentos);
$iLinhasParcel = pg_num_rows($rsParcelamentos);
for ($iIndParcel = 0; $iIndParcel < $iLinhasParcel; $iIndParcel++) {
$oDadosParcel = db_utils::fieldsMemory($rsParcelamentos, $iIndParcel);
$rsDadosDebitoCorrigido = debitos_numpre($oDadosParcel->v07_numpre, 0, 0, mktime(0, 0, 0, substr($dDtEmiss, 5, 2), substr($dDtEmiss, 8, 2), substr($dDtEmiss, 0, 4)), substr($dDtEmiss, 0, 4), 0);
if ($rsDadosDebitoCorrigido != false) {
$iLinhasDebito = pg_num_rows($rsDadosDebitoCorrigido);
for ($iIndDebito = 0; $iIndDebito < $iLinhasDebito; $iIndDebito++) {
$nValor += db_utils::fieldsMemory($rsDadosDebitoCorrigido, $iIndDebito)->total;
}
}
}
$sSqlDadosDebitos = " select distinct ";
$sSqlDadosDebitos .= " k00_numpre, ";
$sSqlDadosDebitos .= " k00_numpar ";
$sSqlDadosDebitos .= " from certdiv";
$sSqlDadosDebitos .= " inner join divida on certdiv.v14_coddiv = divida.v01_coddiv";
$sSqlDadosDebitos .= " inner join arrecad on arrecad.k00_numpre = divida.v01_numpre ";
$sSqlDadosDebitos .= " and arrecad.k00_numpar = divida.v01_numpar";
$sSqlDadosDebitos .= " where v14_certid in ({$oCertidoesInicial->v13_certid})";
$rsDadosDebitos = db_query($sSqlDadosDebitos);
$iLinhasDadosDebitos = pg_num_rows($rsDadosDebitos);
for ($iIndDadosDebitos = 0; $iIndDadosDebitos < $iLinhasDadosDebitos; $iIndDadosDebitos++) {
$oDivida = db_utils::fieldsmemory($rsDadosDebitos, $iIndDadosDebitos);
$rsDadosDebitoCorrigido = debitos_numpre($oDivida->k00_numpre, 0, 0, mktime(0, 0, 0, substr($dDtEmiss, 5, 2), substr($dDtEmiss, 8, 2), substr($dDtEmiss, 0, 4)), substr($dDtEmiss, 0, 4), $oDivida->k00_numpar);
for ($iIndDebito = 0; $iIndDebito < pg_numrows($rsDadosDebitoCorrigido); $iIndDebito++) {
$nValor += db_utils::fieldsMemory($rsDadosDebitoCorrigido, $iIndDebito)->total;
}
}
}
return $nValor;
}
if (isset($matric) && !empty($matric)) {
if ($result = debitos_matricula($matric, 0, $tipo, $DB_DATACALC, db_getsession("DB_anousu"))) {
echo "<script> matric = '{$matric}'; </script>\n";
} else {
db_redireciona("cai3_gerfinanc007.php?erro1=1");
}
} else {
if (isset($inscr) && !empty($inscr)) {
if ($result = debitos_inscricao($inscr, 0, $tipo, $DB_DATACALC, db_getsession("DB_anousu"))) {
echo "<script> inscr = '{$inscr}'; </script>\n";
} else {
db_redireciona("cai3_gerfinanc007.php?erro1=1");
}
} else {
if (isset($numpre) && !empty($numpre)) {
if ($result = debitos_numpre($numpre, 0, $tipo, $DB_DATACALC, db_getsession("DB_anousu"))) {
echo "<script> numpre = '{$numpre}'; </script>\n";
} else {
db_redireciona("cai3_gerfinanc007.php?erro1=1");
}
}
}
}
}
}
?>
<script> document.getElementById('int_perc2').style.width='85%'; </script><?php
$numrows = pg_numrows($result);
echo "<form name=\"form1\" id=\"form1\" method=\"post\" target=\"reciboweb2\">\n";
echo "<input type=\"hidden\" name=\"H_ANOUSU\" value=\"" . db_getsession("DB_anousu") . "\">\n";
echo "<input type=\"hidden\" name=\"H_DATAUSU\" value=\"" . $DB_DATACALC . "\">\n";
$acesso = "1";
$campo = $numcgm;
$result = debitos_numcgm($numcgm, 0, $tipo, time(), date("Y"));
} else {
if (isset($matricula) && $matricula != "") {
$acesso = "3";
$campo = $matricula;
$result = debitos_matricula($matricula, 0, $tipo, time(), date("Y"));
} else {
if (isset($inscricao) && $inscricao != "") {
$acesso = "2";
$campo = $inscricao;
$result = debitos_inscricao($inscricao, 0, $tipo, time(), date("Y"));
} else {
if (isset($numpre)) {
$result = debitos_numpre($numpre, 0, $tipo, time(), date("Y"));
}
}
}
}
}
}
if (!isset($DB_LOGADO) && !isset($numpre) && $m_publico != 't') {
$sql = "select fc_permissaodbpref(" . db_getsession("DB_login") . ",{$acesso},{$campo})";
$result1 = db_query($sql);
if (pg_numrows($result1) == 0) {
db_redireciona("centro_pref.php?" . base64_encode("erroscripts=3"));
exit;
}
$result1 = pg_result($result1, 0, 0);
if ($result1 == "0") {
/**
* Anulaçao do debito, já efetuando o processamento do cancelamento
*
* @param boolean $cancdebitosissplan se a anulação é de uma planilha de retencao;
*/
function incluir_cancelamento($cancdebitosissplan = true)
{
// $cancdebitosissplan = Se grava na cancdebitosissplan...true: grava false: não grava
//gravar na cancdebitos, cancdebitosreg, cancdebitosproc, cancdebitosprocreg
$erro = false;
// inclui cancdebitos
$this->incluir(null);
if ($this->erro_status == "0") {
echo $this->erro_msg;
$erro = true;
//echo"<br>erro na cancdebitos".$this->erro_msg;
}
$codigo = $this->k20_codigo;
if ($cancdebitosissplan == true) {
// inclui cancdebitosissplan
$clcancdebitosissplan = db_utils::getDao("cancdebitosissplan");
$clcancdebitosissplan->q78_cancdebitos = $codigo;
$clcancdebitosissplan->q78_issplan = $this->planilha;
$clcancdebitosissplan->incluir(null);
if ($clcancdebitosissplan->erro_status == "0") {
$erro = true;
$this->erro_msg = "planilha" . $clcancdebitosissplan->erro_msg;
//echo "<br> não incluiu na cancdebitosissplan ".$this->erro_msg;
$this->erro_status = "0";
}
}
// inclui cancdebitosproc
$clcancdebitosproc = db_utils::getDao("cancdebitosproc");
$clcancdebitosproc->k23_data = $this->k20_data;
$clcancdebitosproc->k23_hora = $this->k20_hora;
$clcancdebitosproc->k23_usuario = $this->usuario;
$clcancdebitosproc->k23_cancdebitostipo = 1;
$clcancdebitosproc->k23_obs = $this->k21_obs;
$clcancdebitosproc->incluir(null);
if ($clcancdebitosproc->erro_status == "0") {
$erro = true;
$this->erro_msg = "deb prtoc" . $clcancdebitosproc->erro_msg;
//echo "<br> não incluiu na cancdebitosproc ".$this->erro_msg;
$this->erro_status = "0";
}
//echo "<br> cancdebitosproc = ".$clcancdebitosproc->k23_codigo;
$clcancdebitosprocreg = db_utils::getDao("cancdebitosprocreg");
$clcancdebitosreg = db_utils::getDao("cancdebitosreg");
$sqlarrecad = "select k00_receit from arrecad where k00_numpre = " . $this->numpre . " and k00_numpar=" . $this->numpar;
//echo "<br>".$sqlarrecad;
$resultarrecad = db_query($sqlarrecad);
$linhasarrecad = pg_num_rows($resultarrecad);
if ($linhasarrecad > 0) {
for ($i = 0; $i < $linhasarrecad; $i++) {
$k00_receit = pg_result($resultarrecad, $i, "k00_receit");
$clcancdebitosreg->k21_codigo = $codigo;
$clcancdebitosreg->k21_numpre = $this->numpre;
$clcancdebitosreg->k21_numpar = $this->numpar;
$clcancdebitosreg->k21_receit = $k00_receit;
$clcancdebitosreg->k21_data = $this->k20_data;
$clcancdebitosreg->k21_hora = $this->k20_hora;
$clcancdebitosreg->k21_obs = $this->k21_obs;
$clcancdebitosreg->incluir(null);
if ($clcancdebitosreg->erro_status == "0") {
$erro = true;
$this->erro_msg = "debitos registros" . $clcancdebitosreg->erro_msg;
//echo "<br> não incluiu na cancdebitosreg ".$this->erro_msg;
$this->erro_status = "0";
}
if ($erro == false) {
$resultdebito = debitos_numpre($this->numpre, 0, $this->tipo, strtotime(date("Y-m-d")), date("Y"));
$linhasdebito = pg_num_rows($resultdebito);
$vlrhis = pg_result($resultdebito, 0, "vlrhis");
$vlrcor = pg_result($resultdebito, 0, "vlrcor");
$vlrjuros = pg_result($resultdebito, 0, "vlrjuros");
$vlrmulta = pg_result($resultdebito, 0, "vlrmulta");
$vlrdesconto = pg_result($resultdebito, 0, "vlrdesconto");
$clcancdebitosprocreg->k24_codigo = $clcancdebitosproc->k23_codigo;
$clcancdebitosprocreg->k24_cancdebitosreg = $clcancdebitosreg->k21_sequencia;
$clcancdebitosprocreg->k24_vlrhis = $vlrhis;
$clcancdebitosprocreg->k24_vlrcor = $vlrcor;
$clcancdebitosprocreg->k24_juros = $vlrjuros;
$clcancdebitosprocreg->k24_multa = $vlrmulta;
$clcancdebitosprocreg->k24_desconto = $vlrdesconto;
$clcancdebitosprocreg->incluir(null);
if ($clcancdebitosprocreg->erro_status == "0") {
$erro = true;
$this->erro_msg = "regitors prco" . $clcancdebitosprocreg->erro_msg;
//echo "<br> não incluiu na cancdebitosprocreg ".$this->erro_msg;
$this->erro_status = "0";
}
}
}
} else {
$this->erro_msg = "Não encontrou registros no arrecad.";
}
}
$sql .= " where v59_inicial = {$v50_inicial}";
$result1 = db_query($sql);
$numrows1 = pg_numrows($result1);
$virgula = "";
$numpre1 = "";
$valor_geral = 0;
$valor_corr = 0;
//$valor_juros = 0;
// $valor_multa = 0;
$juros = 0;
$multa = 0;
$desconto = 0;
for ($j = 0; $j < $numrows1; $j++) {
db_fieldsmemory($result1, $j);
$numpre1 .= $virgula . $numpres;
$result_valinicial = debitos_numpre($numpres, 0, 0, db_getsession("DB_datausu"), db_getsession("DB_anousu"), 0, true);
if ($result_valinicial) {
$linhas_valinicial = pg_num_rows($result_valinicial);
if ($linhas_valinicial > 0) {
db_fieldsmemory($result_valinicial, 0);
$valor_geral += $total;
$valor_corr += $vlrcor;
//$valor_juros += $vlrjuros;
// $valor_multa += $vlrmulta;
$juros += $vlrjuros;
$multa += $vlrmulta;
$virgula = ",";
}
}
}
$valor_total += $valor_geral;
db_fieldsmemory($result_inf, 0);
$z01_numcgm = $q02_numcgm;
} else {
}
} else {
if (!empty($numpre)) {
$result_teste = debitos_numpre($numpre, 0, 0, $DB_DATACALC, $DB_anousu, 0, '', 'k00_tipo,k00_numpre,k00_numpar,k00_receit');
$outros = "Código Arrecadação: " . $numpre;
$result = debitos_numpre($numpre, 0, 0, $DB_DATACALC, $DB_anousu, 0, '', 'k00_tipo,k00_numpre,k00_numpar,k00_receit');
$z01_numcgm = pg_result($result, 0, "k00_numcgm");
$clcgm = new cl_cgm();
$result = $clcgm->sql_record($clcgm->sql_query_file($z01_numcgm, "z01_nome"));
db_fieldsmemory($result, 0);
//$result = debitos_numpre($numpre,0,0,$DB_DATACALC,$DB_anousu,0,'','k00_tipo,k00_numpre,k00_receit,k00_numpar',$desconto);
$result = debitos_numpre($numpre, 0, 0, $DB_DATACALC, $DB_anousu, 0, '', 'k00_tipo,k00_numpre,k00_numpar,k00_receit');
$result = debitos_numpre($numpre, 0, 0, $DB_DATACALC, $DB_anousu, 0, '', 'k00_tipo,k00_numpre,k00_numpar,k00_receit', $where);
}
}
}
}
$pdf = new PDF();
$pdf->Open();
$pdf->AliasNbPages();
//$pdf->AddPage();
$pdf->SetFillColor(235);
//Dados
$dados = pg_exec("select z01_numcgm,z01_nome,z01_ender,z01_munic,z01_uf,z01_cgccpf,z01_ident,z01_numero,z01_compl\nfrom cgm where z01_numcgm = {$z01_numcgm}");
/*$pdf->setxy(5,35);
$X = 5;
$Y = 38;
$pdf->SetFont('Arial','B',8);
echo "</table>";
?>
</td>
</tr>
<tr>
<td align='left'><b>PARCELAS DO PARCELAMENTO</b></td>
</tr>
<tr>
<td>
<?php
$result = pg_query($sql);
$numrows = pg_numrows($result);
echo "\n <table border='1';> \n <tr>\n <td nowrap bgcolor=\"#CDCDFF\" title=\"{$Tv14_certid}\" align=\"center\"><b>{$RLv14_certid}</b></td>\n <td nowrap bgcolor=\"#CDCDFF\" title=\"{$Tv14_parcel}\" align=\"center\"><b>{$RLv14_parcel}</b></td>\n <td nowrap bgcolor=\"#CDCDFF\" title=\"{$Tv07_numpre}\" align=\"center\"><b>{$RLv07_numpre}</b></td>\n <td nowrap bgcolor=\"#CDCDFF\" title=\"{$Tk00_numpar}\" align=\"center\"><b>{$RLk00_numpar}</b></td>\n <td nowrap bgcolor=\"#CDCDFF\" title=\"{$Tv14_vlrhis}\" align=\"center\"><b>{$RLv14_vlrhis}</b></td>\n <td nowrap bgcolor=\"#CDCDFF\" title=\"{$Tv14_vlrcor}\" align=\"center\"><b>{$RLv14_vlrcor}</b></td>\n <td nowrap bgcolor=\"#CDCDFF\" title=\"{$Tv14_vlrjur}\" align=\"center\"><b>{$RLv14_vlrjur}</b></td>\n <td nowrap bgcolor=\"#CDCDFF\" title=\"{$Tv14_vlrmul}\" align=\"center\"><b>{$RLv14_vlrmul}</b></td>\n <th title=\"Valor Corrigido\" bgcolor=\"#CDCDFF\" nowrap>Val His.</th>\n\n <th title=\"Valor Corrigido\" bgcolor=\"#CDCDFF\" nowrap>Val Cor.</th>\n\n <th title=\"Valor Juros\" bgcolor=\"#CDCDFF\" nowrap>Jur.</th>\n\n <th title=\"Valor Multa\" bgcolor=\"#CDCDFF\" nowrap>Mul.</th>\n\n <th title=\"Valor Desconto\" bgcolor=\"#CDCDFF\" nowrap>Desc.</th>\n \n <th title=\"Total a Pagar\" bgcolor=\"#CDCDFF\" nowrap>Tot.</th>\n \n </tr>";
for ($i = 0; $i < $numrows; $i++) {
db_fieldsmemory($result, $i);
$result05 = debitos_numpre($v07_numpre, 0, $tipo, db_getsession("DB_datausu"), db_getsession("DB_anousu"), $k00_numpar);
db_fieldsmemory($result05, 0);
if ($i % 2 == 0) {
$color = "#E796A4";
} else {
$color = "#97B5E6";
}
echo "\n <tr>\n <td nowrap bgcolor=\"{$color}\" title=\"{$Tv14_certid}\" align=\"center\">{$v14_certid}</b></td>\n <td nowrap bgcolor=\"{$color}\" title=\"{$Tv14_parcel}\" align=\"center\">{$v14_parcel}</td>\n <td nowrap bgcolor=\"{$color}\" title=\"{$Tv07_numpre}\" align=\"center\">{$v07_numpre}</td>\n <td nowrap bgcolor=\"{$color}\" title=\"{$Tk00_numpar}\" align=\"center\">{$k00_numpar}</td>\n <td nowrap bgcolor=\"{$color}\" title=\"{$Tv14_vlrhis}\" align=\"center\">{$v14_vlrhis}</td>\n <td nowrap bgcolor=\"{$color}\" title=\"{$Tv14_vlrcor}\" align=\"center\">{$v14_vlrcor}</td>\n <td nowrap bgcolor=\"{$color}\" title=\"{$Tv14_vlrjur}\" align=\"center\">{$v14_vlrjur}</td>\n <td nowrap bgcolor=\"{$color}\" title=\"{$Tv14_vlrmul}\" align=\"center\">{$v14_vlrmul}</td>\n <td bgcolor=\"{$color}\" title=\"Valor Corrigido\" style=\"font-size:11px\" nowrap>{$vlrhis}</td>\n\n <td bgcolor=\"{$color}\" title=\"Valor Corrigido\" style=\"font-size:11px\" nowrap>{$vlrcor}</td>\n\n <td bgcolor=\"{$color}\" title=\"Valor Juros\" style=\"font-size:11px\" nowrap>{$vlrjuros}</td>\n\n <td bgcolor=\"{$color}\" title=\"Valor Multa\" style=\"font-size:11px\" nowrap>{$vlrmulta}</td>\n\n <td bgcolor=\"{$color}\" title=\"Valor Desconto\" style=\"font-size:11px\" nowrap>" . db_formatar($vlrdesconto, 'f') . "</td>\n \n <td bgcolor=\"{$color}\" title=\"Total a Pagar\" style=\"font-size:11px\" nowrap>" . db_formatar($total, 'f') . "</td>\n \n </tr>";
}
echo "</table>";
?>
</td>
</tr>
</table>
</center>
</form>
$ttvlrdesconto = 0;
$tttotal = 0;
for ($x = 0; $x < pg_numrows($result); $x++) {
db_fieldsmemory($result, $x, true);
if (in_array($k00_tipo, $tipos) == true) {
if (isset($matric)) {
$debitos = debitos_matricula($matric, 0, $k00_tipo, $DB_DATACALC, db_getsession("DB_anousu"), "", "", $where);
} else {
if (isset($inscr)) {
$debitos = debitos_inscricao($inscr, 0, $k00_tipo, $DB_DATACALC, db_getsession("DB_anousu"), "", "", $where);
} else {
if (isset($numcgm)) {
$debitos = debitos_numcgm($numcgm, 0, $k00_tipo, $DB_DATACALC, db_getsession("DB_anousu"), "", "", $where);
} else {
if (isset($numpre)) {
$debitos = debitos_numpre($numpre, 0, $k00_tipo, $DB_DATACALC, db_getsession("DB_anousu"), "", "", $where);
} else {
break;
}
}
}
}
if ($debitos == false || $debitos == 1) {
continue;
}
if (pg_numrows($debitos) > 0) {
$tvlrhis = 0;
$tvlrcor = 0;
$tvlrjuros = 0;
$tvlrmulta = 0;
$tvlrdesconto = 0;
if ($modo == "p") {
$sql04 = " \n select distinct v07_numpre as numpre\n \t from certter \n \tinner join termo on termo.v07_parcel = certter.v14_parcel\n where v14_certid={$certid} \t\t \n ";
}
}
$result04 = pg_query($sql04);
$numrows04 = pg_numrows($result04);
$lrhis = '';
$lrcor = '';
$lrjuros = '';
$lrmulta = '';
$lrdesconto = '';
$otal = '';
for ($r = 0; $r < $numrows04; $r++) {
db_fieldsmemory($result04, $r);
// echo "numpre: $numpre - $tipo\n<br>";
$result05 = debitos_numpre($numpre, 0, 0, db_getsession("DB_datausu"), db_getsession("DB_anousu"));
if ($result05 != false) {
$numrows05 = pg_numrows($result05);
} else {
$numrows05 = 0;
}
for ($d = 0; $d < $numrows05; $d++) {
db_fieldsmemory($result05, $d);
$lrhis += $vlrhis;
$lrcor += $vlrcor;
$lrjuros += $vlrjuros;
$lrmulta += $vlrmulta;
$lrdesconto += $vlrdesconto;
$otal += $total;
}
}
