Commit ccfbbd6ab9a90057582ba36068bdc5e73df05b61

Authored by Guilherme Andrade Del Cantoni
1 parent ca15b8a2

Correção de script de atualização do módulo na base Oracle

Showing 1 changed file with 89 additions and 91 deletions   Show diff stats
rn/PenAtualizarSeiRN.php
... ... @@ -1285,98 +1285,96 @@ class PenAtualizarSeiRN extends PenAtualizadorRN {
1285 1285 $objInfraMetaBD->criarIndice('md_pen_rel_doc_map_recebido', 'ak1_rel_doc_map_recebido', array('codigo_especie'), true);
1286 1286  
1287 1287 //30 - Correção de erros de chave duplicada devido a concorrência de transações
1288   - if(!(BancoSEI::getInstance() instanceof InfraOracle)){
1289   - $objInfraSequenciaRN = new InfraSequenciaRN();
1290   - $objInfraSequenciaDTO = new InfraSequenciaDTO();
1291   -
1292   - //Sequência: md_pen_seq_procedimento_andam
1293   - $rs = BancoSEI::getInstance()->consultarSql('select max(id_andamento) as total from md_pen_procedimento_andamento');
1294   - $numMaxId = $rs[0]['total'];
1295   - if ($numMaxId==null){
1296   - $numMaxId = 0;
1297   - }
1298   - BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_procedimento_andam', $numMaxId + 1);
1299   - $objInfraSequenciaDTO->setStrNome('md_pen_procedimento_andamento');
1300   - $objInfraSequenciaDTO->retStrNome();
1301   - $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
1302   - $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
1303   -
1304   -
1305   - //Sequência: md_pen_seq_hipotese_legal
1306   - $rs = BancoSEI::getInstance()->consultarSql('select max(id_hipotese_legal) as total from md_pen_hipotese_legal');
1307   - $numMaxId = $rs[0]['total'];
1308   - if ($numMaxId==null){
1309   - $numMaxId = 0;
1310   - }
1311   - BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_hipotese_legal', $numMaxId + 1);
1312   - $objInfraSequenciaDTO->setStrNome('md_pen_hipotese_legal');
1313   - $objInfraSequenciaDTO->retStrNome();
1314   - $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
1315   - $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
1316   -
1317   -
1318   - //Sequência: md_pen_seq_rel_hipotese_legal
1319   - $rs = BancoSEI::getInstance()->consultarSql('select max(id_mapeamento) as total from md_pen_rel_hipotese_legal');
1320   - $numMaxId = $rs[0]['total'];
1321   - if ($numMaxId==null){
1322   - $numMaxId = 0;
1323   - }
1324   - BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_rel_hipotese_legal', $numMaxId + 1);
1325   - $objInfraSequenciaDTO->setStrNome('md_pen_rel_hipotese_legal');
1326   - $objInfraSequenciaDTO->retStrNome();
1327   - $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
1328   - $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
1329   -
1330   -
1331   - //Sequência: md_pen_seq_recibo_tramite_hash
1332   - $rs = BancoSEI::getInstance()->consultarSql('select max(id_tramite_hash) as total from md_pen_recibo_tramite_hash');
1333   - $numMaxId = $rs[0]['total'];
1334   - if ($numMaxId==null){
1335   - $numMaxId = 0;
1336   - }
1337   - BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_recibo_tramite_hash', $numMaxId + 1);
1338   - $objInfraSequenciaDTO->setStrNome('md_pen_recibo_tramite_hash');
1339   - $objInfraSequenciaDTO->retStrNome();
1340   - $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
1341   - $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
1342   -
1343   - //Sequência: md_pen_seq_rel_doc_map_enviado
1344   - $rs = BancoSEI::getInstance()->consultarSql('select max(id_mapeamento) as total from md_pen_rel_doc_map_enviado');
1345   - $numMaxId = $rs[0]['total'];
1346   - if ($numMaxId==null){
1347   - $numMaxId = 0;
1348   - }
1349   - BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_rel_doc_map_enviado', $numMaxId + 1);
1350   - $objInfraSequenciaDTO->setStrNome('md_pen_rel_doc_map_enviado');
1351   - $objInfraSequenciaDTO->retStrNome();
1352   - $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
1353   - $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
1354   -
1355   - //Sequência: md_pen_seq_rel_doc_map_recebid
1356   - $rs = BancoSEI::getInstance()->consultarSql('select max(id_mapeamento) as total from md_pen_rel_doc_map_recebido');
1357   - $numMaxId = $rs[0]['total'];
1358   - if ($numMaxId==null){
1359   - $numMaxId = 0;
1360   - }
1361   - BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_rel_doc_map_recebid', $numMaxId + 1);
1362   - $objInfraSequenciaDTO->setStrNome('md_pen_rel_doc_map_recebido');
1363   - $objInfraSequenciaDTO->retStrNome();
1364   - $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
1365   - $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
1366   -
1367   -
1368   - //Sequência: md_pen_seq_tramite_pendente
1369   - $rs = BancoSEI::getInstance()->consultarSql('select max(id) as total from md_pen_tramite_pendente');
1370   - $numMaxId = $rs[0]['total'];
1371   - if ($numMaxId==null){
1372   - $numMaxId = 0;
1373   - }
1374   - BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_tramite_pendente', $numMaxId + 1);
1375   - $objInfraSequenciaDTO->setStrNome('md_pen_tramite_pendente');
1376   - $objInfraSequenciaDTO->retStrNome();
1377   - $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
1378   - $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
  1288 + $objInfraSequenciaRN = new InfraSequenciaRN();
  1289 + $objInfraSequenciaDTO = new InfraSequenciaDTO();
  1290 +
  1291 + //Sequência: md_pen_seq_procedimento_andam
  1292 + $rs = BancoSEI::getInstance()->consultarSql('select max(id_andamento) as total from md_pen_procedimento_andamento');
  1293 + $numMaxId = $rs[0]['total'];
  1294 + if ($numMaxId==null){
  1295 + $numMaxId = 0;
  1296 + }
  1297 + BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_procedimento_andam', $numMaxId + 1);
  1298 + $objInfraSequenciaDTO->setStrNome('md_pen_procedimento_andamento');
  1299 + $objInfraSequenciaDTO->retStrNome();
  1300 + $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
  1301 + $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
  1302 +
  1303 +
  1304 + //Sequência: md_pen_seq_hipotese_legal
  1305 + $rs = BancoSEI::getInstance()->consultarSql('select max(id_hipotese_legal) as total from md_pen_hipotese_legal');
  1306 + $numMaxId = $rs[0]['total'];
  1307 + if ($numMaxId==null){
  1308 + $numMaxId = 0;
  1309 + }
  1310 + BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_hipotese_legal', $numMaxId + 1);
  1311 + $objInfraSequenciaDTO->setStrNome('md_pen_hipotese_legal');
  1312 + $objInfraSequenciaDTO->retStrNome();
  1313 + $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
  1314 + $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
  1315 +
  1316 +
  1317 + //Sequência: md_pen_seq_rel_hipotese_legal
  1318 + $rs = BancoSEI::getInstance()->consultarSql('select max(id_mapeamento) as total from md_pen_rel_hipotese_legal');
  1319 + $numMaxId = $rs[0]['total'];
  1320 + if ($numMaxId==null){
  1321 + $numMaxId = 0;
  1322 + }
  1323 + BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_rel_hipotese_legal', $numMaxId + 1);
  1324 + $objInfraSequenciaDTO->setStrNome('md_pen_rel_hipotese_legal');
  1325 + $objInfraSequenciaDTO->retStrNome();
  1326 + $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
  1327 + $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
  1328 +
  1329 +
  1330 + //Sequência: md_pen_seq_recibo_tramite_hash
  1331 + $rs = BancoSEI::getInstance()->consultarSql('select max(id_tramite_hash) as total from md_pen_recibo_tramite_hash');
  1332 + $numMaxId = $rs[0]['total'];
  1333 + if ($numMaxId==null){
  1334 + $numMaxId = 0;
  1335 + }
  1336 + BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_recibo_tramite_hash', $numMaxId + 1);
  1337 + $objInfraSequenciaDTO->setStrNome('md_pen_recibo_tramite_hash');
  1338 + $objInfraSequenciaDTO->retStrNome();
  1339 + $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
  1340 + $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
  1341 +
  1342 + //Sequência: md_pen_seq_rel_doc_map_enviado
  1343 + $rs = BancoSEI::getInstance()->consultarSql('select max(id_mapeamento) as total from md_pen_rel_doc_map_enviado');
  1344 + $numMaxId = $rs[0]['total'];
  1345 + if ($numMaxId==null){
  1346 + $numMaxId = 0;
  1347 + }
  1348 + BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_rel_doc_map_enviado', $numMaxId + 1);
  1349 + $objInfraSequenciaDTO->setStrNome('md_pen_rel_doc_map_enviado');
  1350 + $objInfraSequenciaDTO->retStrNome();
  1351 + $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
  1352 + $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
  1353 +
  1354 + //Sequência: md_pen_seq_rel_doc_map_recebid
  1355 + $rs = BancoSEI::getInstance()->consultarSql('select max(id_mapeamento) as total from md_pen_rel_doc_map_recebido');
  1356 + $numMaxId = $rs[0]['total'];
  1357 + if ($numMaxId==null){
  1358 + $numMaxId = 0;
  1359 + }
  1360 + BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_rel_doc_map_recebid', $numMaxId + 1);
  1361 + $objInfraSequenciaDTO->setStrNome('md_pen_rel_doc_map_recebido');
  1362 + $objInfraSequenciaDTO->retStrNome();
  1363 + $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
  1364 + $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
  1365 +
  1366 +
  1367 + //Sequência: md_pen_seq_tramite_pendente
  1368 + $rs = BancoSEI::getInstance()->consultarSql('select max(id) as total from md_pen_tramite_pendente');
  1369 + $numMaxId = $rs[0]['total'];
  1370 + if ($numMaxId==null){
  1371 + $numMaxId = 0;
1379 1372 }
  1373 + BancoSEI::getInstance()->criarSequencialNativa('md_pen_seq_tramite_pendente', $numMaxId + 1);
  1374 + $objInfraSequenciaDTO->setStrNome('md_pen_tramite_pendente');
  1375 + $objInfraSequenciaDTO->retStrNome();
  1376 + $arrObjInfraSequenciaDTO = $objInfraSequenciaRN->listar($objInfraSequenciaDTO);
  1377 + $objInfraSequenciaRN->excluir($arrObjInfraSequenciaDTO);
1380 1378  
1381 1379 //Fix 28 - Erro Data too long for column 'nome' at row 1
1382 1380 $objInfraMetaBD->alterarColuna('md_pen_componente_digital','nome', $objInfraMetaBD->tipoTextoVariavel(255), 'not null');
... ...