function uf_load_dt_cmpret($as_numcom)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_creditos
// Access: private
// Arguments: as_numsol // Número de Solicitud
// ai_total // Total de la Solicitud
// Description: Método que busca las recepciones de documento asociadas y las imprime
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 29/04/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid;
// Titulos del Grid
$lo_title[1] = utf8_encode("Nro. Operacion");
$lo_title[2] = "Factura";
$lo_title[3] = "Nro. Control";
$lo_title[4] = "Fecha";
$lo_title[5] = "Total con IVA";
$lo_title[6] = "Total sin IVA";
$lo_title[7] = "Base Imponible";
$lo_title[8] = "Porcentaje Impuesto";
$lo_title[9] = "Total Impuesto";
$lo_title[10] = "Iva Retenido";
$lo_title[11] = "Nro. Documento";
$lo_title[12] = "Nro. Cheque";
$lo_title[13] = "Editar";
$lo_object[0] = "";
require_once "../../shared/class_folder/class_funciones.php";
$io_funciones = new class_funciones();
require_once "sigesp_scb_c_modcmpret.php";
$io_modcmpret = new sigesp_scb_c_modcmpret("../../");
$rs_data = $io_modcmpret->uf_load_dt_cmpret($as_numcom);
$li_fila = 0;
while ($row = $io_modcmpret->io_sql->fetch_row($rs_data)) {
$li_fila++;
$ls_numope = trim($row["numope"]);
$ls_numfac = trim($row["numfac"]);
$ls_numcon = trim($row["numcon"]);
$ls_fecfac = $io_funciones->uf_convertirfecmostrar($row["fecfac"]);
$ls_totcmp_sin_iva = number_format($row["totcmp_sin_iva"], 2, ",", ".");
$ls_totcmp_con_iva = number_format($row["totcmp_con_iva"], 2, ",", ".");
$ls_basimp = number_format($row["basimp"], 2, ",", ".");
$ls_porimp = number_format($row["porimp"], 2, ",", ".");
$ls_totimp = number_format($row["totimp"], 2, ",", ".");
$ls_ivaret = number_format($row["iva_ret"], 2, ",", ".");
$ls_porret = $row["porimp"];
$ls_numdoc = trim($row["numdoc"]);
$ls_codret = trim($row["codret"]);
$ls_numsop = trim($row["numsop"]);
$ls_numnd = trim($row["numnd"]);
$ls_numnc = trim($row["numnc"]);
$ls_tiptrans = trim($row["tiptrans"]);
$lo_object[$li_fila][1] = "<input name=txtnumope" . $li_fila . " type=text id=txtnumope" . $li_fila . " class=sin-borde style=text-align:center size=10 value='" . $ls_numope . "' readonly>" . "<input name=txtcodret" . $li_fila . " type=hidden id=txtcodret" . $li_fila . " value='" . $ls_codret . "'>";
$lo_object[$li_fila][2] = "<input name=txtnumfac" . $li_fila . " type=text id=txtnumfac" . $li_fila . " class=sin-borde style=text-align:center size=10 value='" . $ls_numfac . "' readonly>";
$lo_object[$li_fila][3] = "<input name=txtnumcon" . $li_fila . " type=text id=txtnumcon" . $li_fila . " class=sin-borde style=text-align:right size=10 value='" . $ls_numcon . "' readonly>";
$lo_object[$li_fila][4] = "<input name=txtfecfac" . $li_fila . " type=text id=txtfecfac" . $li_fila . " class=sin-borde style=text-align:right size=10 value='" . $ls_fecfac . "' readonly>";
$lo_object[$li_fila][5] = "<input name=txttotconiva" . $li_fila . " type=text id=txttotconiva" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_totcmp_con_iva . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][6] = "<input name=txttotsiniva" . $li_fila . " type=text id=txttotsiniva" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_totcmp_sin_iva . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][7] = "<input name=txtbasimp" . $li_fila . " type=text id=txtbasimp" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_basimp . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][8] = "<input name=txtporimp" . $li_fila . " type=text id=txtporimp" . $li_fila . " class=sin-borde style=text-align:right size=10 value='" . $ls_porimp . "' readonly; ><a href=javascript:uf_load_otros_creditos(" . $li_fila . ");><img src=../shared/imagebank/tools15/buscar.gif alt='Buscar Otros Créditos !!!' width=15 height=15 border=0></a>";
$lo_object[$li_fila][9] = "<input name=txttotimp" . $li_fila . " type=text id=txttotimp" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_totimp . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][10] = "<input name=txtivaret" . $li_fila . " type=text id=txtivaret" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_ivaret . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); ><a href=javascript:uf_load_retenciones(" . $li_fila . ");><img src=../shared/imagebank/tools15/buscar.gif alt='Buscar Retenciones !!!' width=15 height=15 border=0></a>\n\t\t\t <input name=txtporret" . $li_fila . " type=hidden id=txtporret" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_porret . "' readonly>";
$lo_object[$li_fila][11] = "<input name=txtnumdoc" . $li_fila . " type=text id=txtnumdoc" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_numdoc . "' readonly>" . "<input name=txtnumnd" . $li_fila . " type=hidden id=txtnumnd" . $li_fila . " value='" . $ls_numnd . "'>" . "<input name=txtnumnc" . $li_fila . " type=hidden id=txtnumnc" . $li_fila . " value='" . $ls_numnc . "'>" . "<input name=txttiptrans" . $li_fila . " type=hidden id=txttiptrans" . $li_fila . " value='" . $ls_tiptrans . "'>";
$lo_object[$li_fila][12] = "<input name=txtnumsop" . $li_fila . " type=text id=txtnumsop" . $li_fila . " class=sin-borde value='" . $ls_numsop . "' size=13 readonly size=15>";
$lo_object[$li_fila][13] = "<a href=javascript:ue_delete_detalle('" . $li_fila . "');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>";
}
$li_fila++;
$lo_object[$li_fila][1] = "<input name=txtnumope" . $li_fila . " type=text id=txtnumope" . $li_fila . " class=sin-borde style=text-align:center size=10 readonly>" . "<input name=txtcodret" . $li_fila . " type=hidden id=txtcodret" . $li_fila . ">" . "<input name=txtnumsop" . $li_fila . " type=hidden id=txtnumsop" . $li_fila . " >";
$lo_object[$li_fila][2] = "<input name=txtnumfac" . $li_fila . " type=text id=txtnumfac" . $li_fila . " class=sin-borde style=text-align:center size=10 readonly>";
$lo_object[$li_fila][3] = "<input name=txtnumcon" . $li_fila . " type=text id=txtnumcon" . $li_fila . " class=sin-borde style=text-align:right size=10 readonly>";
$lo_object[$li_fila][4] = "<input name=txtfecfac" . $li_fila . " type=text id=txtfecfac" . $li_fila . " class=sin-borde style=text-align:right size=10 readonly>";
$lo_object[$li_fila][5] = "<input name=txttotconiva" . $li_fila . " type=text id=txttotconiva" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>";
$lo_object[$li_fila][6] = "<input name=txttotsiniva" . $li_fila . " type=text id=txttotsiniva" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>";
$lo_object[$li_fila][7] = "<input name=txtbasimp" . $li_fila . " type=text id=txtbasimp" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>";
$lo_object[$li_fila][8] = "<input name=txtporimp" . $li_fila . " type=text id=txtporimp" . $li_fila . " class=sin-borde style=text-align:right size=10 readonly value=''>";
$lo_object[$li_fila][9] = "<input name=txttotimp" . $li_fila . " type=text id=txttotimp" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>";
$lo_object[$li_fila][10] = "<input name=txtivaret" . $li_fila . " type=text id=txtivaret" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>\n\t\t <input name=txtporret" . $li_fila . " type=hidden id=txtporret" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_porret . "' readonly>";
$lo_object[$li_fila][11] = "<input name=txtnumdoc" . $li_fila . " type=text id=txtnumdoc" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>" . "<input name=txtnumnd" . $li_fila . " type=hidden id=txtnumnd" . $li_fila . " >" . "<input name=txtnumnc" . $li_fila . " type=hidden id=txtnumnc" . $li_fila . " >" . "<input name=txttiptrans" . $li_fila . " type=hidden id=txttiptrans" . $li_fila . " >";
$lo_object[$li_fila][12] = "<input name=txtnumsop" . $li_fila . " type=text id=txtnumsop" . $li_fila . " class=sin-borde readonly size=15>";
$lo_object[$li_fila][13] = "<a><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>";
unset($io_modcmpret);
print " <tr>";
print " \t <td height='20' align='left' class='formato-blanco'><a href='javascript:ue_insert_row();'><img src='../shared/imagebank/tools/nuevo.gif' title='Agregar Detalle' width='20' height='20' border='0'>Agregar Detalle</a></td>";
print " </tr>";
print "<br>";
$io_grid->makegrid($li_fila, $lo_title, $lo_object, 720, "Detalle Comprobante", "gridrecepciones");
}
