$this->objpdf->setfont('Arial', '', 10); $this->valor_cobrado = $this->valtotal; $this->desconto_abatimento = db_formatar(abs($this->totaldesc), 'f'); $this->mora_multa = db_formatar($this->totalacres, 'f'); /* valtotal == valor historico totalrec == valor corrigido */ //die("total : {$this->valtotal} -- totalrec : {$this->totalrec}"); $this->valtotal = db_formatar($this->totalrec, 'f'); if (isset($this->linhadigitavel)) { $this->objpdf->text(10, $xlin + 92, @$this->linhadigitavel); } //$this->objpdf->text(127,$xlin+110,$this->descr14);// $this->dtvenc); //$this->objpdf->text(104,$xlin+110,str_pad($this->nosso_numero,17,"0",STR_PAD_LEFT));// $this->dtvenc); $this->objpdf->text(104, $xlin + 102, $this->nosso_numero); // $this->dtvenc); $this->objpdf->text(145, $xlin + 102, $this->dtparapag); // $this->dtvenc); $this->objpdf->text(175, $xlin + 102, $this->descr9); $this->objpdf->setfillcolor(0); $this->objpdf->Setfont('Arial', '', 4); $sBase = db_getsession('DB_base'); $sHora = db_hora(); $sUser = db_getsession('DB_login'); $sData = date('d/m/Y', db_getsession('DB_datausu')); $sTexto = " Usuário: {$sUser} Base: {$sBase} Data: {$sData} Hora: {$sHora}"; $this->objpdf->TextWithDirection(135, $xlin + 107, $sTexto, 'F'); /*********************************************************************************************************************************************************/ // incluir a ficha de compensação include "fpdf151/impmodelos/mod_imprime48.php";
$rsSeqContraCheque = db_query("select nextval('rhemitecontracheque_rh85_sequencial_seq') as sequencial"); $oSeqContraCheque = db_utils::fieldsMemory($rsSeqContraCheque, 0); $iSequencial = str_pad($oSeqContraCheque->sequencial, 6, '0', STR_PAD_LEFT); $iMes = str_pad($mes, 2, '0', STR_PAD_LEFT); $iMatricula = str_pad($regist, 6, '0', STR_PAD_LEFT); $iMod1 = db_CalculaDV($iMatricula); $iMod2 = db_CalculaDV($iMatricula . $iMod1 . $iMes . $ano . $iSequencial); $iCodAutent = $iMatricula . $iMod1 . $iMes . $iMod2 . $ano . $iSequencial; $clrhemitecontracheque->rh85_sequencial = $iSequencial; $clrhemitecontracheque->rh85_regist = $regist; $clrhemitecontracheque->rh85_anousu = $ano; $clrhemitecontracheque->rh85_mesusu = $mes; $clrhemitecontracheque->rh85_sigla = substr($sigla, 0, 3); $clrhemitecontracheque->rh85_codautent = $iCodAutent; $clrhemitecontracheque->rh85_dataemissao = date('Y-m-d', db_getsession('DB_datausu')); $clrhemitecontracheque->rh85_horaemissao = db_hora(); $clrhemitecontracheque->rh85_ip = $sIp; $clrhemitecontracheque->rh85_externo = 'true'; $clrhemitecontracheque->incluir($iSequencial); if ($clrhemitecontracheque->erro_status == 0) { db_redireciona('db_erros.php?fechar=true&db_erro=' . $clrhemitecontracheque->erro_msg); } if ($lin == 1) { $lin = 0; $pdf1->seq = 0; } else { $lin = 1; $pdf1->seq = 1; } $sql = "\n select " . $sigla . "rubric as rubrica,\n round(" . $sigla . "valor,2) as valor,\n round(" . $sigla . "quant,2) as quant, \n rh27_descr, \n " . $xtipo . " as tipo , \n case when " . $sigla . "pd = 3 then 'B' \n else case when " . $sigla . "pd = 1 then 'P' \n\t else 'D' \n\t end \n end as provdesc\n \n from " . $arquivo . " \n inner join rhrubricas on rh27_rubric = " . $sigla . "rubric \n and rh27_instit = {$institservidor}\n where " . $sigla . "regist = {$regist}\n and " . $sigla . "anousu = {$ano} \n and " . $sigla . "mesusu = {$mes}\n and " . $sigla . "instit = {$institservidor}\n {$wheresemest}\n order by " . $sigla . "rubric "; if (cl_cfpess::verificarUtilizacaoEstruturaSuplementar() && ($opcao == 'salario' || $opcao == 'suplementar' || $opcao == 'complementar')) {
function enviar_senha($id_usuario, $email, $nome, $login, $senha, $nomeinst, $url = null, $enviar) { $erro = false; if ($enviar == true) { $sConso = "bcdfghjklmnpqrstvwxyzbcdfghjklmnpqrstvwxyz"; $sVogal = "aeiou"; $sNum = "123456789"; $passwd = ""; $y = strlen($sConso) - 1; //conta o num de caracteres da variavel $sConso $z = strlen($sVogal) - 1; //conta o num de caracteres da variavel $sVogal $r = strlen($sNum) - 1; //conta o num de caracteres da variavel $sNum for ($x = 0; $x <= 1; $x++) { $rand = rand(0, $y); //Funcao rand() - gera um valor randomico $rand1 = rand(0, $z); $rand2 = rand(0, $r); $str = substr($sConso, $rand, 1); // substr() - retorna parte de uma string $str1 = substr($sVogal, $rand1, 1); $str2 = substr($sNum, $rand2, 1); $passwd .= $str . $str1 . $str2; } $mensagemDestinatario = "<html>\n <head>\n <title>DBSeller Informática Ltda.</title>\n <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">\n </head>\n <body bgcolor=#CCCCCC bgcolor=\"#FFFFFF\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">\n <table width=\"100%\" height=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">\n <tr>\n <td nowrap align=\"center\" valign=\"top\">\n <table width=\"100%\" height=\"100%\" border=\"0\" align=\"center\" cellpadding=\"0\" cellspacing=\"0\">\n <tr>\n <td nowrap bgcolor=\"#6699CC\"><font size=\"1\" color=\"#FFFFFF\" > {$nomeinst}</font></td>\n <td height=\"60\" nowrap align=\"left\" bgcolor=\"#6699CC\"><font color=\"#FFFFFF\"><strong> .: Bem-vindo ao Prefeitura On-Line :.\n </tr>\n <tr>\n <td colspan=\"2\">\n <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n <tr>\n <td> </td>\n </tr>\n <tr>\n <td><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Foi solicitada uma senha para o usuario\n <strong>{$nome}</strong>,<br> Esta senha foi gerada automaticamente para voce ter acesso ao sistema\n <strong>Prefeitura On-Line.</strong>\n </td>\n </tr>\n <tr>\n <td><font size=\"2\" face=\"Arial, Helvetica, sans-serif\"> </font></td>\n </tr>\n <tr>\n <td>\n <fieldset>\n <legend><strong><font size=\"2\"> Dados da conta</font> </strong></legend>\n <table>\n <tr>\n <td><ul>\n <li><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Login: <strong>{$login}</strong></font></li>\n </ul></td>\n </tr>\n <tr>\n <td><ul>\n <li><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Senha: </font><font size=\"2\" face=\"Arial, Helvetica, sans-serif\" atyle=\"letter-spacing:0.3em\"><strong>{$passwd}</strong></font></li>\n </ul></td>\n </tr>\n <tr>\n <td><ul>\n <li><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Data de criacao: </font><font size=\"2\" face=\"Arial, Helvetica, sans-serif\" atyle=\"letter-spacing:0.3em\"><strong>" . date("d-m-Y", db_getsession("DB_datausu")) . "</strong></font></li>\n </ul></td>\n </tr>\n <tr>\n <td><ul>\n <li><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Hora de criacao: </font><font size=\"2\" face=\"Arial, Helvetica, sans-serif\" atyle=\"letter-spacing:0.3em\"><strong>" . db_hora() . "</strong></font></li>\n </ul></td>\n </tr>\n </table>\n </fieldset>\n </td>\n </tr>\n <tr>\n <td><font size=\"2\" face=\"Arial, Helvetica, sans-serif\"> </font></td>\n </tr>"; if ($url != null) { $mensagemDestinatario .= "\n <tr>\n <td align=\"center\"><p><a target=\"_blank\" href=\"{$url}\"><font size=\"2\">Para acessar o sistema clique aqui e escolha a opcao Prefeitura OnLine</font></a></p></td>\n </tr>"; } $mensagemDestinatario .= "\n <tr>\n <td> </td>\n </tr>\n <tr>\n <td align=\"center\"><p><font size=\"1\">Este e-mail foi enviado automaticamente,\n por favor nao responda.</font></p></td>\n </tr>\n <tr>\n <td align=\"center\"><p><a target=\"_blank\" href=\"http://www.dbseller.com.br\"><font size=\"1\">DBSeller Informática Ltda.</font></a></p></td>\n </tr>\n </table></td>\n </tr>\n </table></td>\n </tr>\n </table>\n </body>\n </html>"; } else { $mensagemDestinatario = "<html>\n <head>\n <title>DBSeller Informática Ltda.</title>\n <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">\n </head>\n <body bgcolor=#CCCCCC bgcolor=\"#FFFFFF\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">\n <table width=\"100%\" height=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">\n <tr>\n <td nowrap align=\"center\" valign=\"top\">\n <table width=\"100%\" height=\"100%\" border=\"0\" align=\"center\" cellpadding=\"0\" cellspacing=\"0\">\n <tr>\n <td nowrap bgcolor=\"#6699CC\"><font size=\"1\" color=\"#FFFFFF\" > {$nomeinst}</font></td>\n <td height=\"60\" nowrap align=\"left\" bgcolor=\"#6699CC\"><font color=\"#FFFFFF\"><strong> .: Bem-vindo ao Prefeitura On-Line :.\n </tr>\n <tr>\n <td colspan=\"2\">\n <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n <tr>\n <td> </td>\n </tr>\n <tr>\n <td><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Usuario <strong>{$nome}</strong> foi incluido com sucesso, <br> Esta cadastro servira para voce ter acesso ao sistema\n <strong>Prefeitura On-Line.</strong>\n </td>\n </tr>\n <tr>\n <td><font size=\"2\" face=\"Arial, Helvetica, sans-serif\"> </font></td>\n </tr>\n <tr>\n <td>\n <fieldset>\n <legend><strong><font size=\"2\"> Dados da conta</font> </strong></legend>\n <table>\n <tr>\n <td><ul>\n <li><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Login: <strong>{$login}</strong></font></li>\n </ul></td>\n </tr>\n <tr>\n <td><ul>\n <li><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Senha: </font><font size=\"2\" face=\"Arial, Helvetica, sans-serif\" atyle=\"letter-spacing:0.3em\"><strong>{$senha}</strong></font></li>\n </ul></td>\n </tr>\n <tr>\n <td nowrap><ul>\n <li><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Data de criacao: </font><font size=\"2\" face=\"Arial, Helvetica, sans-serif\" atyle=\"letter-spacing:0.3em\"><strong>" . date("d-m-Y", db_getsession("DB_datausu")) . "</strong></font></li>\n </ul></td>\n </tr>\n <tr>\n <td><ul>\n <li><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Hora de criacao: </font><font size=\"2\" face=\"Arial, Helvetica, sans-serif\" atyle=\"letter-spacing:0.3em\"><strong>" . db_hora() . "</strong></font></li>\n </ul></td>\n </tr>\n </table>\n </fieldset>\n </td>\n </tr>\n <tr>\n <td><font size=\"2\" face=\"Arial, Helvetica, sans-serif\"> </font></td>\n </tr>"; if ($url != null) { $mensagemDestinatario .= "\n <tr>\n <td align=\"center\"><p><a target=\"_blank\" href=\"{$url}\"><font size=\"2\">Para acessar o sistema clique aqui e escolha a opcao Prefeitura OnLine</font></a></p></td>\n </tr>"; } $mensagemDestinatario .= "\n <tr>\n <td> </td>\n </tr>\n <tr>\n <td align=\"center\"><p><font size=\"1\">Este e-mail foi enviado automaticamente,\n por favor nao responda.</font></p></td>\n </tr>\n <tr>\n <td align=\"center\"><p><a target=\"_blank\" href=\"http://www.dbseller.com.br\"><font size=\"1\">DBSeller Informática Ltda.</font></a></p></td>\n </tr>\n </table></td>\n </tr>\n </table></td>\n </tr>\n </table>\n </body>\n </html>"; } $headers = "Content-Type:text/html;"; $erro = mail($email, "Senha do site Prefeitura On-Line", $mensagemDestinatario, $headers); if ($erro == false && $enviar == true) { $this->senha = Encriptacao::encriptaSenha($passwd); $this->alterar($id_usuario); if ($this->erro_status == "0") { $erro = true; } } return $erro; }
$iMesUsu = !empty($oPost->mes) ? $oPost->mes : null; /** * Cria planilha retenção */ $oPlanilhaRetencao = new planilhaRetencao(null, $oValidaDados->q02_numcgm, $iAnoUsu, $iMesUsu, $oPost->inscricaow); foreach ($oLayout->getLines() as $oLinha) { /** * Se for header ou trailer vai pro proximo */ if ($oLinha->identificador != '2') { continue; } $oNotaRetencao = new NotaPlanilhaRetencao(); $oNotaRetencao->setCodigoPlanilha($oPlanilhaRetencao->getCodigoPlanilha()); $oNotaRetencao->setDataOperacao(new DBDate(date('Y-m-d', db_getsession('DB_datausu')))); $oNotaRetencao->setHoraOperacao(db_hora()); $oNotaRetencao->setTipoLancamento(NotaPlanilhaRetencao::SERVICO_TOMADO); $oNotaRetencao->setNome(""); $oNotaRetencao->setRetido(true); $oNotaRetencao->setStatus(NotaPlanilhaRetencao::STATUS_ATIVO); $oNotaRetencao->setSituacao('0'); // 0 - Normal | 1 - cancelado $oNotaRetencao->setDataNota(new DBDate($oPlanilhaRetencao->getDataPlanilha())); $oNotaRetencao->setCNPJ($oLinha->cpf_cnpj_prestador); $oNotaRetencao->setSerie($oLinha->serie_nota); $oNotaRetencao->setNome(substr($oLinha->nome_razao_social, 0, 40)); $oNotaRetencao->setNumeroNota($oLinha->numero_nota); $oNotaRetencao->setValorServico($oLinha->valor_servico); $oNotaRetencao->setValorRetencao($oLinha->valor_imposto); $oNotaRetencao->setAliquota($oLinha->aliquota); $oNotaRetencao->setValorDeducao($oLinha->valor_deducao);
?> " > <input type="hidden" name="p11_data_dia" value="<?php echo date('d'); ?> " > <input type="hidden" name="p11_data_mes" value="<?php echo date('m'); ?> " > <input type="hidden" name="p11_data_ano" value="<?php echo date("Y"); ?> " > <input type="hidden" name="p11_hora" value="<?php echo db_hora(); ?> " > <input type="hidden" name="p11_fechado" value="f" > <input type="hidden" name="p11_processado" value="f" > <input type="text" name="p11_contato" size="30" onKeyUp="maiusculo(this)"> <input name="db_opcao" value ="Incluir Nova Lista" type="submit" onClick="return js_contato()"> </td> <?php } ?> </tr> </table> <p> </p>
function gerarDebito($sHistorico = null) { if (!db_utils::inTransaction()) { throw new Exception("Erro [0] - Não Existe transação ativa"); } //Criamos um novo Numpre $rsNumpre = pg_exec("select nextval('numpref_k03_numpre_seq') as k03_numpre"); $this->iNumpre = db_utils::fieldsMemory($rsNumpre, 0)->k03_numpre; /* *Buscamos as informações de configuração da db_confplam */ $oDaoConfPlan = db_utils::getDao("db_confplan"); $rsConfPlan = $oDaoConfPlan->sql_record($oDaoConfPlan->sql_query_file()); if ($oDaoConfPlan->numrows == 0) { $sErro = "Erro [1] - Não há configurações informadas para a planilha."; $sErro .= "\nConfigure acessando Prefeitura Online -> Procedimentos -> Manutenção de Planilhas."; throw new Exception($sErro); } $oConfPlanilhas = db_utils::fieldsMemory($rsConfPlan, 0); /** * Alteramos a planilha , informado o numpre gerado */ $oDaoIssPlan = db_utils::getDao("issplan"); $oDaoIssPlan->q20_numpre = $this->iNumpre; $oDaoIssPlan->q20_planilha = $this->iCodigoPlanilha; $oDaoIssPlan->q20_situacao = 3; $oDaoIssPlan->alterar($this->iCodigoPlanilha); /* * incluimos um issvariavel para o mes. */ $oDaoIssVar = db_utils::getDao("issvar"); $oDaoIssVar->q05_numpre = $this->iNumpre; $oDaoIssVar->q05_histor = "ISSQN retenção na fonte."; $oDaoIssVar->q05_numpar = 1; $oDaoIssVar->q05_ano = $this->iAnoUsu; $oDaoIssVar->q05_mes = $this->iMes; $oDaoIssVar->q05_valor = $this->nValorTotal; $oDaoIssVar->q05_aliq = "0"; $oDaoIssVar->q05_bruto = "0"; $oDaoIssVar->q05_vlrinf = "0"; $oDaoIssVar->incluir(null); if ($oDaoIssVar->erro_status == 0) { throw new Exception("Erro [2] - Não foi possivel incluir issqn Variavel."); } /** * Incluimos o débito no arrecad */ $oDaoArrecad = db_utils::getDao("arrecad"); $oDaoArrecad->k00_dtoper = $this->getDatausu(); $oDaoArrecad->k00_dtvenc = $this->getDatausu(); $oDaoArrecad->k00_hist = $oConfPlanilhas->w10_hist; $oDaoArrecad->k00_receit = $oConfPlanilhas->w10_receit; $oDaoArrecad->k00_numcgm = $this->iNumCgm; $oDaoArrecad->k00_numdig = "0"; $oDaoArrecad->k00_numpar = "1"; $oDaoArrecad->k00_numpre = $this->iNumpre; $oDaoArrecad->k00_numtot = 1; $oDaoArrecad->k00_tipo = $oConfPlanilhas->w10_tipo; $oDaoArrecad->k00_tipojm = "0"; $oDaoArrecad->k00_valor = $this->nValorTotal; $oDaoArrecad->incluir(); if ($oDaoArrecad->erro_status == 0) { throw new Exception("Erro [3] - Não Foi possível incluir débito"); } /** * Incluimos o Historico, caso nao seje nulo */ if (!empty($sHistorico)) { $sSqlhistorico = "insert into arrehist (\n k00_numpre,\n k00_numpar,\n k00_hist,\n k00_dtoper,\n k00_hora,\n k00_id_usuario,\n k00_histtxt,\n k00_limithist,\n k00_idhist\n ) values (\n {$this->iNumpre},\n 0,\n 502,\n '{$this->dtDatausu}',\n '" . date("H:i") . "',\n " . db_getsession("DB_id_usuario") . ",\n '" . $sHistorico . "',\n null,\n nextval('arrehist_k00_idhist_seq'))"; $rsHistorico = db_query($sSqlhistorico); if (!$rsHistorico) { throw new Exception("Erro [4] - Não foi possivel informar histórico do Recibo"); } } /** * Incluimos na tabela issplannumpre - Ligação do numpre da planilha com o numpre; */ $oDaoIssPlanNumpre = db_utils::getDao("issplannumpre"); $oDaoIssPlanNumpre->q32_planilha = $this->iCodigoPlanilha; $oDaoIssPlanNumpre->q32_numpre = $this->iNumpre; $oDaoIssPlanNumpre->q32_dataop = $this->getDatausu(); $oDaoIssPlanNumpre->q32_horaop = db_hora(); $oDaoIssPlanNumpre->q32_status = 1; $oDaoIssPlanNumpre->incluir(null); if ($oDaoIssPlanNumpre->erro_status == 0) { throw new Exception("Erro [4] - Não Foi possível incluir débito"); } /** * Selecionamos todos as notas cadastradas para a planilha , e * vinculamos ao numpre */ $oDaoIssplanIt = db_utils::getDao("issplanit"); $sSqlNotasPlanilha = $oDaoIssplanIt->sql_query_file(null, "*", null, "q21_planilha = {$this->iCodigoPlanilha}\n and q21_status = 1"); $rsNotasPlanilha = $oDaoIssplanIt->sql_record($sSqlNotasPlanilha); for ($i = 0; $i < $oDaoIssplanIt->numrows; $i++) { $oNotaPlanilha = db_utils::fieldsMemory($rsNotasPlanilha, $i); $oDaoNotaNumpre = db_utils::getDao("issplannumpreissplanit"); $oDaoNotaNumpre->q77_issplanit = $oNotaPlanilha->q21_sequencial; $oDaoNotaNumpre->q77_issplannumpre = $oDaoIssPlanNumpre->q32_sequencial; $oDaoNotaNumpre->incluir(null); if ($oDaoNotaNumpre->erro_status == 0) { throw new Exception("Erro [5] - Não Foi possível incluir débito"); } } /** * vinculamos o numpre a nota de liquidação */ if ($this->iNotaLiquidacao != null) { $oDaoCaiRetOrdem = db_utils::getDao("cairetordem"); $oDaoCaiRetOrdem->k32_numpre = $this->iNumpre; $oDaoCaiRetOrdem->k32_ordpag = $this->iNotaLiquidacao; $oDaoCaiRetOrdem->incluir(null); if ($oDaoCaiRetOrdem->erro_status == 0) { throw new Exception("Erro [6] - Não Foi possível incluir débito"); } } return $this->iNumpre; }
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; } } }
if ($tipo == 1) { $clcertidao->p50_tipo = "p"; } else { if ($tipo == 2) { $clcertidao->p50_tipo = "n"; } else { $clcertidao->p50_tipo = "r"; } } $id_usu = @$_SESSION["id"]; if ($id_usu == "") { $id_usu = "1"; } $clcertidao->p50_idusuario = $id_usu; $clcertidao->p50_data = date("Y-m-d", db_getsession('DB_datausu')); $clcertidao->p50_hora = db_hora(); $clcertidao->p50_ip = $ip; if (isset($historico) && $historico != "") { $clcertidao->p50_hist = $historico . ($codproc != '' ? ", processo N" . chr(176) . ": " . $codproc : ''); } else { $clcertidao->p50_hist = " " . ($codproc != '' ? "Processo N" . chr(176) . ": " . $codproc : ''); } $clcertidao->p50_web = 'true'; $clcertidao->p50_codproc = $codproc; $clcertidao->p50_exerc = $exercicio; $clcertidao->p50_codimpresso = ''; $clcertidao->p50_instit = db_getsession("DB_instit"); $clcertidao->p50_arquivo = '0'; /** * Adicionamos campo para armazenar o dias de validade da certidão de acordo com * o parametro que estava setado quando emitida