/** * 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; } }