</style>
<link href="../shared/js/css_intra/datepickercontrol.css" rel="stylesheet" type="text/css">
<link href="css/cxp.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {font-weight: bold}
-->
</style></head>
<body>
<?php 
require_once "../shared/class_folder/class_mensajes.php";
$io_msg = new class_mensajes();
require_once "class_folder/sigesp_cxp_c_cmp_retencion.php";
$io_cmpret = new sigesp_cxp_c_cmp_retencion("../");
require_once "class_folder/sigesp_cxp_c_modcmpret.php";
$io_modcmpret = new sigesp_cxp_c_modcmpret("../");
require_once "../shared/class_folder/sigesp_include.php";
$in = new sigesp_include();
$con = $in->uf_conectar();
require_once "../shared/class_folder/class_sql.php";
$io_sql = new class_sql($con);
$ls_basdatcmp = $_SESSION["la_empresa"]["basdatcmp"];
if ($ls_basdatcmp != "") {
    $io_modcmpret->io_sqlaux = $io_cmpret->io_sqlaux;
    $io_sqlaux = $io_cmpret->io_sqlaux;
}
uf_limpiarvariables();
$ls_basdatcmp = $_SESSION["la_empresa"]["basdatcmp"];
switch ($ls_operacion) {
    case "NEW":
        uf_load_variables();
function uf_load_dt_cmpret($as_numcom, $as_codret)
{
    /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    //	     Function: uf_load_dt_cmpret
    //		   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:
    // Fecha Creación: 29/04/2007								Fecha Última Modificación :
    /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    global $io_grid, $io_funciones_cxp;
    // Titulos del Grid
    $lo_title[1] = utf8_encode("Nro. Operacion");
    $lo_title[2] = "Factura";
    $lo_title[3] = "Nro. Control";
    $lo_title[4] = "Nota Debito";
    $lo_title[5] = "Nota Credito";
    $lo_title[6] = "Fecha";
    $lo_title[7] = "Total con IVA";
    $lo_title[8] = "Total sin IVA";
    $lo_title[9] = "Base Imponible";
    $lo_title[10] = "Porcentaje Impuesto";
    $lo_title[11] = "Total Impuesto";
    $lo_title[12] = "Iva Retenido";
    $lo_title[13] = "Nro. Documento";
    $lo_title[14] = "Nro. Solicitud";
    $lo_title[15] = "Editar";
    $lo_object[0] = "";
    require_once "../../shared/class_folder/class_funciones.php";
    $io_funciones = new class_funciones();
    require_once "sigesp_cxp_c_modcmpret.php";
    $io_modcmpret = new sigesp_cxp_c_modcmpret("../../");
    $rs_data = $io_modcmpret->uf_load_dt_cmpret($as_numcom, $as_codret);
    $li_fila = 0;
    while ($row = $io_modcmpret->io_sql->fetch_row($rs_data)) {
        $li_fila = $li_fila + 1;
        $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 = number_format($row["iva_ret"], 2, ",", ".");
        $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=txtnumnd" . $li_fila . "  type=text id=txtnumnd" . $li_fila . "   class=sin-borde  style=text-align:center size=10 value='" . $ls_numnd . "' readonly>";
        $lo_object[$li_fila][5] = "<input name=txtnumnc" . $li_fila . "  type=text id=txtnumnc" . $li_fila . "   class=sin-borde  style=text-align:center size=10 value='" . $ls_numnc . "' readonly>";
        $lo_object[$li_fila][6] = "<input name=txtfecfac" . $li_fila . " type=text id=txtfecfac" . $li_fila . "  class=sin-borde  style=text-align:center size=10 value='" . $ls_fecfac . "' readonly>";
        $lo_object[$li_fila][7] = "<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][8] = "<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][9] = "<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][10] = "<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_iva(" . $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][11] = "<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][12] = "<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_retenciones(" . $li_fila . ");><img src=../shared/imagebank/tools15/buscar.gif alt='Buscar Retenciones !!!' width=15 height=15 border=0></a>" . "<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][13] = "<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=txttiptrans" . $li_fila . " type=hidden id=txttiptrans" . $li_fila . " value='" . $ls_tiptrans . "'>";
        $lo_object[$li_fila][14] = "<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][15] = "<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 = $li_fila + 1;
    $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=txtnumnd" . $li_fila . "  type=text id=txtnumnd" . $li_fila . "   class=sin-borde  style=text-align:center size=10  readonly>";
    $lo_object[$li_fila][5] = "<input name=txtnumnc" . $li_fila . "  type=text id=txtnumnc" . $li_fila . "   class=sin-borde  style=text-align:center size=10  readonly>";
    $lo_object[$li_fila][6] = "<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][7] = "<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][8] = "<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][9] = "<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][10] = "<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][11] = "<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][12] = "<input name=txtivaret" . $li_fila . " type=text id=txtivaret" . $li_fila . "   class=sin-borde  style=text-align:right size=12 readonly>" . "<input name=txtporret" . $li_fila . " type=hidden id=txtporret" . $li_fila . "   class=sin-borde  style=text-align:right size=12 readonly>";
    $lo_object[$li_fila][13] = "<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][14] = "<input name=txtnumsop" . $li_fila . " type=text id=txtnumsop" . $li_fila . " class=sin-borde readonly size=15>";
    $lo_object[$li_fila][15] = "<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='22' align='left'><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");
}