}
if ($ls_estatus == "E") {
$ls_estatusnota = "Emitida";
}
if ($ls_estatus == "P") {
$ls_estatusnota = "Pagada";
}
if ($ls_tiponota == "NC") {
$ls_tipo = "CRÉDITO";
}
if ($ls_tiponota == "ND") {
$ls_tipo = "DÉBITO";
}
$ldec_monto = $la_nota["monto"];
if ($ls_tipproben == 'P') {
$la_provben = $io_report->uf_select_rowdata($io_sql, "SELECT rifpro,nitpro,dirpro,nompro FROM rpc_proveedor WHERE codemp='" . $ls_codemp . "' AND cod_pro='" . $ls_codproben . "'");
$ls_rif = $la_provben["rifpro"];
$ls_nit = $la_provben["nitpro"];
$ls_dir = $la_provben["dirpro"];
$ls_nombre = $la_provben["nompro"];
} else {
$la_provben = $io_report->uf_select_rowdata($io_sql, "SELECT rifben,ced_bene,dirbene,nombene,apebene FROM rpc_beneficiario WHERE codemp='" . $ls_codemp . "' AND ced_bene='" . $ls_codproben . "'");
$ls_rif = $la_provben["rifben"];
$ls_nit = $la_provben["ced_bene"];
$ls_dir = $la_provben["dirbene"];
$ls_nombre = $la_provben["nombene"] . " " . $la_provben["apebene"];
}
$ls_titulo = $ls_titulo . $ls_tipo;
uf_print_encabezado_pagina($ls_titulo, $ls_numnota, $ls_fecha, $ls_tipo, $io_pdf);
// Imprimimos el encabezado de la página
uf_print_cabecera($ls_nombre, $ls_nit, $ls_dir, $ls_tipo, $ls_estatusnota, $ls_tipproben, $io_pdf);
$ldec_totcomsiniva = 0;
$ldec_totbaseimp = 0;
if ($lb_valido) {
$li = 0;
while ($row = $io_report->io_sql->fetch_row($rs_resultado)) {
$ldec_monret = 0;
$ls_numrecdoc = trim($row["numrecdoc"]);
$ls_tipproben = $row["tipproben"];
$ls_codpro = trim($row["cod_pro"]);
$ls_cedben = trim($row["ced_bene"]);
$ldec_montoret = $row["monret"];
$ldec_montodoc = $row["montotdoc"];
$ldec_mondeddoc = $row["mondeddoc"];
$ls_codtipdoc = $row["codtipdoc"];
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 {
$ldec_monret = 0;
$ls_cmpret = '';
$ldec_totcomsiniva = 0;
if ($lb_valido) {
$li = 0;
while ($row = $io_report->io_sql->fetch_row($rs_resultado)) {
$li++;
$ldec_monret = 0;
$ls_numrecdoc = $row["numrecdoc"];
$ls_tipproben = $row["tipproben"];
$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"];
}
$la_notas = $io_report->uf_select_rowdata($io_sql, "SELECT * cxp_dc WHERE numrecdoc='" . $ls_numrecdoc . "' AND codtipdoc='" . $ls_codtipdoc . "' AND cod_pro='" . $ls_codpro . "' AND ced_bene='" . $ls_cedben . "'");
if (count($la_notas) > 0) {
$ls_codope = $la_notas["codope"];
$ls_numnota = $la_notas["numdc"];
if ($ls_codope == 'NC') {
$ls_numnc = $ls_numnota;
$ls_numnd = "";
} else {
