$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
