$ls_codpro = $row["cod_pro"];
$ls_cedben = $row["ced_bene"];
$ldec_montoret = $row["monret"];
$ldec_montodoc = $row["montotdoc"];
$ldec_mondeddoc = $row["mondeddoc"];
$ls_codtipdoc = $row["codtipdoc"];
if ($ls_tipproben == 'P') {
$la_provben = $io_report->uf_select_rowdata($io_sql, "SELECT * FROM rpc_proveedor WHERE cod_pro='" . $ls_codpro . "'");
$ls_rif = $la_provben["rifpro"];
$ls_nombre = $la_provben["nompro"];
} else {
$la_provben = $io_report->uf_select_rowdata($io_sql, "SELECT * FROM rpc_beneficiario WHERE ced_bene='" . $ls_cedben . "'");
$ls_rif = $la_provben["rifben"];
$ls_nombre = $la_provben["nombene"] . " " . $la_provben["apebene"];
}
$ls_cheque = $io_report->uf_select_data($io_sql, "SELECT distinct cxp_sol_banco.numdoc AS numdoc" . " FROM cxp_dt_solicitudes, cxp_sol_banco" . " WHERE cxp_dt_solicitudes.codemp='" . $ls_codemp . "'" . " AND cxp_dt_solicitudes.numrecdoc='" . $ls_numrecdoc . "'" . " AND cxp_dt_solicitudes.cod_pro='" . $ls_codpro . "'" . " AND cxp_dt_solicitudes.ced_bene='" . $ls_cedben . "'" . " AND cxp_dt_solicitudes.codemp=cxp_sol_banco.codemp" . " AND cxp_dt_solicitudes.numsol=cxp_sol_banco.numsol", "numdoc");
if ($ls_tiporeporte == 1) {
$la_cmpret = $io_report->uf_select_rowdata($io_sql, "SELECT DISTINCT max(a.numrecdoc) as numrecdoc,max(a.monobjretaux) as monobjret,SUM(a.monretaux) as monret,max(a.porded) as porded,max(b.codret) as codret,max(b.numcom) as numcom,max(b.iva_retaux) as iva_ret,max(tiptrans) as tiptrans" . " FROM cxp_rd_deducciones a,scb_dt_cmp_ret b " . " WHERE a.codemp=b.codemp AND a.numrecdoc=b.numfac AND a.codemp='" . $ls_codemp . "' AND a.numrecdoc='" . $ls_numrecdoc . "' AND " . " a.cod_pro='" . $ls_codpro . "' AND a.ced_bene='" . $ls_cedben . "' " . " GROUP BY a.numrecdoc ");
} else {
$la_cmpret = $io_report->uf_select_rowdata($io_sql, "SELECT DISTINCT max(a.numrecdoc) as numrecdoc,max(a.monobjret) as monobjret,SUM(a.monret) as monret,max(a.porded) as porded,max(b.codret) as codret,max(b.numcom) as numcom,max(b.iva_ret) as iva_ret,max(tiptrans) as tiptrans" . " FROM cxp_rd_deducciones a,scb_dt_cmp_ret b " . " WHERE a.codemp=b.codemp AND a.numrecdoc=b.numfac AND a.codemp='" . $ls_codemp . "' AND a.numrecdoc='" . $ls_numrecdoc . "' AND " . " a.cod_pro='" . $ls_codpro . "' AND a.ced_bene='" . $ls_cedben . "' " . " GROUP BY a.numrecdoc ");
}
if (count($la_cmpret) > 0) {
$ls_codret = $la_cmpret["codret"];
if ($ls_codret == '0000000001') {
$ldec_monret = $la_cmpret["monret"];
$ls_cmpret = $la_cmpret["numcom"];
$ldec_monobjret = $la_cmpret["monobjret"];
$ldec_porded = $la_cmpret["porded"];
$ldec_ivaret = $la_cmpret["iva_ret"];
$ls_tiptrans = $la_cmpret["tiptrans"];
} else {
