} 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 {