setExercicio ( Sessao::getExercicio() ); $obRRelatorio->setCodigoEntidade( Sessao::getCodEntidade($boTransacao) ); $obRRelatorio->setExercicioEntidade( Sessao::getExercicio() ); $obRRelatorio->recuperaCabecalho( $arConfiguracao ); $obPDF->setModulo ( "Pessoal" ); $obPDF->setTitulo ( "Relatório de Erros do Cálculo da Folha Complementar" ); $obPDF->setSubTitulo ( Sessao::getExercicio() ); $obPDF->setUsuario ( Sessao::getUsername() ); $obPDF->setEnderecoPrefeitura( $arConfiguracao ); $rsRecordSet = Sessao::read("rsErros") ; while ( !$rsRecordSet->eof() ) { $rsContrato = $rsRecordSet->getCampo('contrato'); $obPDF->addRecordSet($rsContrato); $obPDF->setAlinhamento ( "R" ); $obPDF->addCabecalho ( "", 10, 10); $obPDF->addCabecalho ( "", 10, 10); $obPDF->setAlinhamento ( "R" ); $obPDF->addCampo ( "campo1", 8 ); $obPDF->setAlinhamento ( "L" ); $obPDF->addCampo ( "campo2", 8 ); $rsLogErro = $rsRecordSet->getCampo('erros'); $obPDF->addRecordSet($rsLogErro); $obPDF->setQuebraPaginaLista( false ); $obPDF->setAlinhamento ( "C" ); $obPDF->addCabecalho ( "Evento", 10, 10 ); $obPDF->addCabecalho ( "Descrição", 40, 10 ); $obPDF->addCabecalho ( "Erro do Cálculo", 40, 10 ); $obPDF->setAlinhamento ( "R" ); $obPDF->addCampo ( "evento", 8 ); $obPDF->setAlinhamento ( "L" ); $obPDF->addCampo ( "descricao", 8 ); $obPDF->setAlinhamento ( "L" ); $obPDF->addCampo ( "erro", 8 ); $rsRecordSet->proximo(); } $obPDF->show(); ?>