if ($ls_tiporeporte == 1) {
$la_cargos = $io_report->uf_select_rowdata($io_sql, "SELECT monobjretaux as basimp,porcar,monretaux as impiva" . " FROM cxp_rd_cargos " . " WHERE codemp='" . $ls_codemp . "'" . " AND numrecdoc='" . $ls_numrecdoc . "'" . " AND cod_pro='" . $ls_codpro . "'" . " AND ced_bene='" . $ls_cedben . "'");
} else {
$la_cargos = $io_report->uf_select_rowdata($io_sql, "SELECT monobjret as basimp,porcar,monret as impiva" . " FROM cxp_rd_cargos " . " WHERE codemp='" . $ls_codemp . "'" . " AND numrecdoc='" . $ls_numrecdoc . "'" . " AND cod_pro='" . $ls_codpro . "'" . " AND ced_bene='" . $ls_cedben . "'");
}
if (count($la_cargos) > 0) {
$ldec_porcar = $la_cargos["porcar"];
$ldec_baseimp = $la_cargos["basimp"];
$ldec_monimp = $la_cargos["impiva"];
} else {
$ldec_porcar = "";
$ldec_baseimp = 0;
$ldec_monimp = 0;
}
$ldec_totbaseimp = $ldec_totbaseimp + $ldec_baseimp;
$li_anticipos = $io_report->uf_buscar_asientomanual($ls_numrecdoc, $ls_codtipdoc, $ls_cedben, $ls_codpro);
$ldec_montodoc = $ldec_montodoc + $ldec_mondeddoc;
$ldec_sinderiva = $ldec_montodoc + $li_anticipos - ($ldec_baseimp + $ldec_monimp);
// Total de la Compra sin Derecho a Crédito Iva.
$li_porcentaje = intval($ldec_porcar);
if ($ldec_porcar > 0) {
switch ($li_porcentaje) {
case '8':
$ldec_totimp8 = $ldec_totimp8 + $ldec_monimp;
$ldec_totbasimp8 = $ldec_totbasimp8 + $ldec_baseimp;
break;
case '9' || '14' || '11':
$ldec_totimp9 = $ldec_totimp9 + $ldec_monimp;
$ldec_totbasimp9 = $ldec_totbasimp9 + $ldec_baseimp;
break;
case '25':
