function db_anulaPlanilha($planilha, $motivo, $ip) { $clissplananula = new cl_issplananula(); $clissplan = new cl_issplan(); $clarrecad = new cl_arrecad(); $clcancdebitos = new cl_cancdebitos(); $data = date("Y-m-d"); $hora = date("H:i"); $usuario = db_getsession("id"); if ($usuario == "") { $usuario = 1; } $sql = "select * from issplan where q20_planilha = {$planilha}"; $result = pg_query($sql); $linhas = pg_num_rows($result); if ($linhas > 0) { $q20_numpre = pg_result($result, 0, "q20_numpre"); } $sqlerro = false; db_inicio_transacao(); //gravar na issplananula: os dados da anulação $clissplananula->q76_planilha = $planilha; $clissplananula->q76_data = $data; $clissplananula->q76_hora = $hora; $clissplananula->q76_motivo = "Planilha anulada DBPref. " . $motivo; $clissplananula->q76_ip = $ip; $clissplananula->q76_id_usuario = $usuario; $clissplananula->incluir(null); if ($clissplananula->erro_status == 0) { $sqlerro = true; //die($clissplananula->erro_sql); $erro_msg = $clissplananula->erro_msg; } //alterar a situação da issplan para anulada $clissplan->q20_planilha = $planilha; $clissplan->q20_situacao = 5; $clissplan->alterar($planilha); if ($clissplan->erro_status == 0) { $sqlerro = true; $erro_msg = $clissplan->erro_msg; } if ($q20_numpre > 0) { //gravar na cancdebitos, cancdebitosreg, cancdebitosproc, cancdebitosprocreg $sqltipo = "select w10_tipo from db_confplan "; $resulttipo = pg_query($sqltipo); $linhastipo = pg_num_rows($resulttipo); if ($linhastipo > 0) { //db_fieldsmemory($resulttipo,0); $w10_tipo = pg_result($resulttipo, 0, "w10_tipo"); } else { $sqlerro = true; $erro_msg = "Deve-se configurar a planilha (db_confplan)"; } $clcancdebitos->k20_descr = "anulação de planilha no dbpref."; $clcancdebitos->k20_hora = $hora; $clcancdebitos->k20_data = $data; $clcancdebitos->k20_usuario = $usuario; $clcancdebitos->k20_instit = db_getsession("DB_instit"); $clcancdebitos->numpre = $q20_numpre; $clcancdebitos->numpar = 1; $clcancdebitos->k21_obs = "Planilha anulada DBPref. " . $motivo; $clcancdebitos->usuario = $usuario; $clcancdebitos->tipo = $w10_tipo; $clcancdebitos->planilha = $planilha; $clcancdebitos->incluir_cancelamento(true); if ($clcancdebitos->erro_status == "0") { $sqlerro = true; $erro_msg = $clcancdebitos->erro_msg; } //grava na cancdebitosissplan //deletar da arrecad e gravar na arrecant $clarrecad->excluir_arrecad_inc_arrecant($q20_numpre, 1, true); if ($clarrecad->erro_status == 0) { $sqlerro = true; $erro_msg = $clarrecad->erro_msg; } } db_fim_transacao($sqlerro); return $sqlerro; }
function gerarIssqnVariavelComplementar(DBDate $oDataVencimento, $iReceitaDebito = 0, $vt = array(), $q02_inscr = null, $iNumCgm = null, $sTipo = 'P') { $errocompl = false; if ($this->q05_histor == "" and $vt != "") { reset($vt); $ta = sizeof($vt); $vir = ""; $this->q05_histor = "REFERENTE NOTAS FISCAIS No.:"; for ($i = 0; $i < $ta; $i++) { $chave = key($vt); if (substr($chave, 0, 6) == "linha_") { $sqlerro = false; $matri = split("#", $vt[$chave]); $this->q05_histor .= $vir . $matri[0]; $vir = ","; } $proximo = next($vt); } } $this->incluir(null); if ($this->erro_status == "0") { $this->erro_msg; $errocompl = true; } $codigo = $this->q05_codigo; if ($errocompl == false and $vt != "") { $clissvarnotas = new cl_issvarnotas(); reset($vt); $ta = sizeof($vt); for ($i = 0; $i < $ta; $i++) { $chave = key($vt); if (substr($chave, 0, 6) == "linha_") { $matri = split("#", $vt[$chave]); $sql = "select max(q06_seq) +1 as seq from issvarnotas where issvarnotas.q06_codigo = {$codigo} "; $result55 = db_query($sql); $seq = pg_result($result55, 0, "seq"); $q06_seq = $seq == "" ? "1" : $seq; $clissvarnotas->q06_codigo = $codigo; $clissvarnotas->q06_seq = $q06_seq; $clissvarnotas->q06_nota = $matri[0]; $clissvarnotas->q06_valor = $matri[1]; $clissvarnotas->incluir($codigo, $q06_seq); if ($clissvarnotas->erro_status == "0") { $errocompl = true; $this->erro_msg = $clissvarnotas->erro_msg; } } $proximo = next($vt); } } if ($errocompl == false && $q02_inscr != '') { $clarreinscr = new cl_arreinscr(); $clarreinscr->k00_numpre = $this->q05_numpre; $clarreinscr->k00_inscr = $q02_inscr; $clarreinscr->k00_perc = 100; // exclui se ja existir, senão da duplicate key $clarreinscr->excluir($this->q05_numpre, $q02_inscr); $clarreinscr->k00_perc = 100; $clarreinscr->incluir($this->q05_numpre, $q02_inscr); if ($clarreinscr->erro_status == "0") { $errocompl = true; $this->erro_msg = $clarreinscr->erro_msg; } else { $resultcgm = db_query("select q02_numcgm as z01_numcgm from issbase where q02_inscr = {$q02_inscr}"); $z01_numcgm = pg_result($resultcgm, 0, "z01_numcgm"); } } else { $z01_numcgm = $vt['z01_numcgm']; } if ($errocompl == false) { $clarrecad = new cl_arrecad(); $resultpar = db_query("select * from parissqn"); $q60_tipo = pg_result($resultpar, 0, "q60_tipo"); $q60_receit = pg_result($resultpar, 0, "q60_receit"); $q60_codvencvar = pg_result($resultpar, 0, "q60_codvencvar"); if (!empty($iReceitaDebito)) { $q60_receit = $iReceitaDebito; } $clarrecad->k00_receit = $q60_receit; if ($sTipo == 'P') { $clarrecad->k00_tipo = $q60_tipo; } else { $rsConfPlan = db_query("select w10_tipo from db_confplan"); $w10_tipo = pg_result($rsConfPlan, 0, 'w10_tipo'); $clarrecad->k00_tipo = $w10_tipo; } $sqlvenc = "select q82_venc,q82_hist from cadvenc where q82_codigo = {$q60_codvencvar} and q82_parc = " . $this->q05_mes; $resultvenc = db_query($sqlvenc); $q82_venc = pg_result($resultvenc, 0, "q82_venc"); $q82_hist = pg_result($resultvenc, 0, "q82_hist"); $clarrecad->k00_hist = $q82_hist; if ($this->q05_ano == db_getsession("DB_anousu")) { $clarrecad->k00_dtvenc = $oDataVencimento->getDate(DBDate::DATA_EN); //"$q82_venc"; } else { $res = db_query("select * from db_confplan"); if (pg_num_rows($res) > 0) { $w10_dia = pg_result($res, 0, "w10_dia"); } else { $errocompl = true; $this->erro_msg = "Tabela db_confplan vazia!"; } $qmes = $this->q05_mes; $qano = $this->q05_ano; $qmes += 1; if ($qmes > 12) { $qmes = 1; $qano += 1; } $qmes = str_pad($qmes, 2, "0", STR_PAD_LEFT); $venc_arrecad = $qano . "-" . $qmes . "-" . $w10_dia; $clarrecad->k00_dtvenc = $oDataVencimento->getDate(DBDate::DATA_EN); //"$venc_arrecad"; } if ($iNumCgm != null) { $iCgm = $iNumCgm; } else { $iCgm = $z01_numcgm; } $clarrecad->k00_numcgm = $iCgm; $clarrecad->k00_dtoper = $clarrecad->k00_dtvenc; $clarrecad->k00_valor = $this->q05_valor; $clarrecad->k00_numpre = $this->q05_numpre; $clarrecad->k00_numtot = 1; $clarrecad->k00_numpar = $this->q05_mes; $clarrecad->k00_numdig = '0'; $clarrecad->k00_tipojm = '0'; $clarrecad->incluir(); if ($clarrecad->erro_status == "0") { $errocompl = true; $this->erro_msg = "Arrecad - " . $clarrecad->erro_msg; } } if ($errocompl == false) { $this->erro_msg = "Inclusão efetuada com sucesso !"; $this->q05_valor = ""; $this->q05_bruto = ""; unset($this->q05_histor); unset($q06_nota); unset($q06_valor); } else { $this->erro_status = "0"; return false; } if ($sTipo == 'T' && !$errocompl) { if (!class_exists('cl_issplan')) { $this->erro_status = "0"; $this->erro_msg = "Classe issplan não definida!"; return false; } $rsCgm = db_query("select * from cgm where z01_numcgm = {$iCgm}"); $sNomeCgm = pg_result($rsCgm, 0, 'z01_nome'); $sFoneCgm = pg_result($rsCgm, 0, 'z01_telef'); $clissplan = new cl_issplan(); $clissplan->q20_ano = $this->q05_ano; $clissplan->q20_mes = $this->q05_mes; $clissplan->q20_numcgm = $iCgm; $clissplan->q20_nomecontri = addslashes($sNomeCgm); $clissplan->q20_fonecontri = $sFoneCgm; $clissplan->q20_numbco = ''; $clissplan->q20_numpre = $this->q05_numpre; $clissplan->q20_situacao = 1; $clissplan->incluir(null); if ($clissplan->erro_status == 0) { $this->erro_status = "0"; $this->erro_msg = "IssPlan - " . $clissplan->erro_msg; return false; } if (!class_exists('cl_issplannumpre')) { $this->erro_status = "0"; $this->erro_msg = "Classe issplannumpre não definida!"; return false; } $clissplannumpre = new cl_issplannumpre(); $clissplannumpre->q32_dataop = date('Y-m-d', db_getsession('DB_datausu')); $clissplannumpre->q32_horaop = db_hora(); $clissplannumpre->q32_numpre = $this->q05_numpre; $clissplannumpre->q32_planilha = $clissplan->q20_planilha; $clissplannumpre->q32_status = 1; $clissplannumpre->incluir(null); if ($clissplannumpre->erro_status == 0) { $this->erro_status = "0"; $this->erro_msg = "IssPlanNumpre - " . $clissplannumpre->erro_msg; return false; } } }
$linhasop = pg_num_rows($resultop); if ($linhasop > 0) { //verifica se tem nota $sqlnota = "select * from pagordemnota where e71_codord= {$codord} "; $resultnota = pg_query($sqlnota); $linhasnota = pg_num_rows($resultnota); if ($linhasnota > 0) { // tem nota $sql = " select e50_codord,e60_numemp,e60_numcgm,e69_dtnota, e69_numero as nota,e70_valor as valornota,\n\t\t\t\ta.z01_nome as nome_emp,a.z01_cgccpf as cnpj_emp, b.z01_nome as nome_pag,b.z01_cgccpf as cnpj_pag\n\t\t\t\tfrom pagordem\n\t\t\t\tinner join empempenho on e50_numemp = e60_numemp\n\t\t\t\tinner join cgm a on a.z01_numcgm = e60_numcgm\n\t\t\t\tleft join pagordemconta on e49_codord = e50_codord\n\t\t\t\tleft join cgm b on b.z01_numcgm = e49_numcgm\n\t\t\t\tinner join pagordemnota on e71_codord = e50_codord\n\t\t\t\tinner join empnota on e69_codnota = e71_codnota\n\t\t\t\tinner join empnotaele on e70_codnota = e71_codnota\n\t\t\t\twhere e50_codord = {$codord} "; $result = pg_query($sql); $linhas = pg_num_rows($result); if ($linhas > 0) { include "classes/db_issplan_classe.php"; include "classes/db_issplanit_classe.php"; include "classes/db_issplanitop_classe.php"; $cl_issplan = new cl_issplan(); $cl_issplanit = new cl_issplanit(); $cl_issplanitop = new cl_issplanitop(); $sqlpref = "select numcgm,codigo,nomeinst,telef,cgc from db_config where prefeitura is true"; $resultpref = pg_query($sqlpref); db_fieldsmemory($resultpref, 0); if ($planilha == "") { $cl_issplan->q20_numcgm = $numcgm; $cl_issplan->q20_ano = $ano; $cl_issplan->q20_mes = $mes; $cl_issplan->q20_nomecontri = @$nomeinst; $cl_issplan->q20_fonecontri = @$telef; $cl_issplan->q20_numpre = 0; $cl_issplan->q20_numbco = 0; $cl_issplan->q20_situacao = 1; $cl_issplan->incluir(null);
* licenca/licenca_pt.txt */ session_start(); include "libs/db_conecta.php"; include "libs/db_stdlib.php"; include "libs/db_sql.php"; include "classes/db_issplan_classe.php"; include "classes/db_issplanit_classe.php"; include "classes/db_issplaninscr_classe.php"; include "classes/db_issplanitinscr_classe.php"; include "classes/db_issplanitop_classe.php"; include "classes/db_issplanitold_classe.php"; include "dbforms/db_funcoes.php"; include "libs/db_libtributario.php"; $clissplanitold = new cl_issplanitold(); $cl_issplan = new cl_issplan(); $cl_issplanit = new cl_issplanit(); $cl_issplaninscr = new cl_issplaninscr(); $cl_issplanitinscr = new cl_issplanitinscr(); $cl_issplanitop = new cl_issplanitop(); parse_str(base64_decode($HTTP_SERVER_VARS["QUERY_STRING"])); db_postmemory($_POST); db_postmemory($_GET); if (isset($planilha)) { // retorna o nomecontri e o fonecontri $recordIssplan = $cl_issplan->sql_record($cl_issplan->sql_query_file(null, "q20_nomecontri, q20_fonecontri", null, "q20_planilha = '{$planilha}'")); if ($cl_issplan->numrows > 0) { $sSql = pg_fetch_assoc($recordIssplan); $q20_nomecontri = $sSql["q20_nomecontri"]; $q20_fonecontri = $sSql["q20_fonecontri"]; $nomecontri = $sSql["q20_nomecontri"];