$lng = "en";
}
//Busca o mfn inicial da data fim
//Se a data inicial nao foi passada pega a primeira data da base
$first_date = primeira_data($db_data_art);
if ($dti == '') {
$dti = $first_date;
}
$mfn_ini_art = busca_mfnini($dti, $db_data_art);
//Busca o mfn final da data fim
//Se a data final nao foi passada pega a ultima data da base
$last_date = ultima_data($db_data_art);
if ($dtf == '') {
$dtf = $last_date;
}
$mfn_fim_art = busca_mfnfim($dtf, $db_data_art);
// ***********************************************************
// ********* Camada de Processamento dos Dados *************
// ********* Calcula e gera arquivos com totais *************
// ***********************************************************
// ***** Calcula total por artigos *****
exec("{$utl}/mxtb {$db_acesso_art} create={$db_tmp_article02} from={$mfn_ini_art} to={$mfn_fim_art} \"bool={$pid}\" \"256:mhu,v3*0.6'|'v1,v2,\" \"tab=v5\" \"class=120000\"");
$proc_access = monta_proc($access);
exec("{$utl}/mx {$db_tmp_article02} \"join={$db_issue},43=s('Y',v1*7.17)\" \"proc='d32001'\" {$proc_access} \"append={$db_tmp_article}\"");
exec("{$utl}/mx {$db_tmp_article} \"join={$db_artigonp}=s('HR=S',v1*7)\" copy={$db_tmp_article} -all now");
exec("{$utl}/msrt {$db_tmp_article} \"30\" \"v1*0.6\"");
// ***************************************************************
// ******** Camada de Apresentação dos dados ********
// ******** Exibe os dados em formato XML para posterior ********
// ******** transformação pela XSL adequada ********
// ***************************************************************
$db_title = $defFile["PATH"]["PATH_DATABASE"] . "/title/title";
$utl = $defFile["PATH"]["PATH_PROC"] . "/cisis";
//Busca o mfn inicial da data fim
//Se a data inicial nao foi passada pega a primeira data da base
$first_date = primeira_data($db_data);
if ($dti == '') {
$dti = $first_date;
}
$mfn_ini = busca_mfnini($dti, $db_data);
//Busca o mfn final da data fim
//Se a data final nao foi passada pega a ultima data da base
$last_date = ultima_data($db_data);
if ($dtf == '') {
$dtf = $last_date;
}
$mfn_fim = busca_mfnfim($dtf, $db_data);
// ***********************************************************
// ********* Calcula e gera arquivos com totais *************
// ***********************************************************
if (!file_exists($db_tmp_issn . ".mst")) {
$proc = "\"proc='<100 0>',ref(['{$db_title}']l(['{$db_title}'],v1),v150),'</100>'\"";
exec("{$utl}/mxtb {$db_acesso} create={$db_tmp_issn} from={$mfn_ini} to={$mfn_fim} \"bool=artigos\" \"256:v1\" \"tab=v5\" \"class=120000\"");
exec("{$utl}/msrt {$db_tmp_issn} \"128\" \"f(val('9999999')-val(v999),7,0)\" now");
exec("{$utl}/mx {$db_tmp_issn} {$proc} copy={$db_tmp_issn} -all now");
}
// ****** Acha soma total de frequencias ***************************
$result = exec("{$utl}/mx {$db_tmp_issn} \"pft=v999,':',\" now");
//die($result);
$array_total = split(":", $result);
for ($i = 0; $i < count($array_total); ++$i) {
if ($array_total[$i] != '') {
