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"];
