function uf_cargar_dtnotacon()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_dtnotacon
// Access: public
// Description: Funcion para pintar detalles contables a la nota de debito y credito solo para recepciones documento tipo contable
// Creado Por: Ing. Nelson Barraez
// Fecha Creacin: 27/05/2007 Fecha ltima Modificacin :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once "../../shared/class_folder/grid_param.php";
require_once "../../shared/class_folder/class_datastore.php";
$io_grid = new grid_param();
global $io_funciones_cxp;
$io_grid = new grid_param();
$ds_detscg = new class_datastore();
$ldec_total = 0;
$li_totalactual = $io_funciones_cxp->uf_obtenervalor("totalactual", "");
$ls_tiponota = $io_funciones_cxp->uf_obtenervalor("tiponota", "");
$ls_cuentaprov = $io_funciones_cxp->uf_obtenervalor("txtctaprov", "");
$ls_denctaprov = $io_funciones_cxp->uf_obtenervalor("denctascg", "");
$ls_tipproben = $io_funciones_cxp->uf_obtenervalor("tipproben", "");
$ls_codproben = trim($io_funciones_cxp->uf_obtenervalor("codproben", ""));
$ls_numrecdoc = trim($io_funciones_cxp->uf_obtenervalor("numrecdoc", ""));
$ls_codtipdoc = $io_funciones_cxp->uf_obtenervalor("codtipdoc", "");
$ldec_totaldebe = 0;
$ldec_totalhaber = 0;
if ($li_totalactual == 0) {
uf_dt_nota();
} else {
for ($lx = 1; $lx <= 4; $lx++) {
$lo_object2[$lx][1] = "<input type=text name=txtcuentaspgncnd" . $lx . " id=txtcuentaspgncnd" . $lx . " class=sin-borde style=text-align:center size=22 readonly ><input type=hidden name=txtscgcuentadt" . $lx . " id=txtscgcuentadt" . $lx . " readonly><input type=hidden name=txtdenscgcuentadt" . $lx . " id=txtdenscgcuentadt" . $lx . "><input type=hidden name=txtestcargo" . $lx . " id=txtestcargo" . $lx . ">";
$lo_object2[$lx][2] = "<input type=text name=txtcodestproncnd" . $lx . " id=txtcodestproncnd" . $lx . " class=sin-borde style=text-align:center size=40 readonly><input name=txtcodpro" . $lx . " type=hidden id=txtcodpro" . $lx . " >";
$lo_object2[$lx][3] = "<input type=text name=txtestclaaux" . $lx . " id=txtestclaaux" . $lx . " class=sin-borde style=text-align:center size=20 readonly><input name=txtestclancnd" . $lx . " type=hidden id=txtestclancnd" . $lx . " >";
$lo_object2[$lx][4] = "<input type=text name=txtdencuentancnd" . $lx . " id=txtdencuentancnd" . $lx . " class=sin-borde style=text-align:left size=39 readonly>";
$lo_object2[$lx][5] = "<input type=text name=txtmontoncnd" . $lx . " id=txtmontoncnd" . $lx . " class=sin-borde style=text-align:right size=20 readonly>";
}
for ($li = 1; $li <= $li_totalactual; $li++) {
$ls_cuenta = $io_funciones_cxp->uf_obtenervalor("txtscgcuentancnd" . $li, "");
$ls_dencuenta = $io_funciones_cxp->uf_obtenervalor("txtdencuentascgncnd" . $li, "");
$ldec_mondeb = $io_funciones_cxp->uf_obtenervalor("txtdebencnd" . $li, "");
$ldec_monhab = $io_funciones_cxp->uf_obtenervalor("txthaberncnd" . $li, "");
if ($ls_tiponota == "NC") {
if ($li == 1) {
$ds_detscg->insertRow("txtscgcuentancnd", $ls_cuentaprov);
$ds_detscg->insertRow("txtdencuentascgncnd", $ls_denctaprov);
$ds_detscg->insertRow("txtdebencnd", 0, 00);
$ds_detscg->insertRow("txthaberncnd", "0,00");
$ds_detscg->insertRow("txtdebhab", '');
}
$ds_detscg->insertRow("txtscgcuentancnd", $ls_cuenta);
$ds_detscg->insertRow("txtdencuentascgncnd", $ls_dencuenta);
$ds_detscg->insertRow("txtdebencnd", $ldec_monhab);
$ds_detscg->insertRow("txthaberncnd", $ldec_mondeb);
$ds_detscg->insertRow("txtdebhab", 'H');
$ldec_monto = str_replace(".", "", $ldec_mondeb);
$ldec_monto = str_replace(",", ".", $ldec_monto);
$ldec_total = $ldec_total + $ldec_monto;
} else {
$ds_detscg->insertRow("txtscgcuentancnd", $ls_cuenta);
$ds_detscg->insertRow("txtdencuentascgncnd", $ls_dencuenta);
$ds_detscg->insertRow("txtdebencnd", $ldec_mondeb);
$ds_detscg->insertRow("txthaberncnd", $ldec_monhab);
$ds_detscg->insertRow("txtdebhab", 'D');
$ldec_monto = str_replace(".", "", $ldec_mondeb);
$ldec_monto = str_replace(",", ".", $ldec_monto);
$ldec_total = $ldec_total + $ldec_monto;
}
}
$ldec_total = number_format($ldec_total, 2, ",", ".");
if ($ls_tiponota == "ND") {
$ldec_mondebe = "0,00";
$ldec_monhaber = $ldec_total;
$li_aux++;
$ds_detscg->insertRow("txtscgcuentancnd", $ls_cuentaprov);
$ds_detscg->insertRow("txtdencuentascgncnd", $ls_denctaprov);
$ds_detscg->insertRow("txtdebencnd", $ldec_mondebe);
$ds_detscg->insertRow("txthaberncnd", $ldec_monhaber);
$ds_detscg->insertRow("txtdebhab", 'H');
} else {
$ldec_mondebe = $ldec_total;
$ldec_monhaber = "0,00";
$ds_detscg->updateRow("txtdebencnd", $ldec_mondebe, 1);
$ds_detscg->updateRow("txtdebhab", 'D', 1);
}
$aa_items = array('0' => 'txtscgcuentancnd', '1' => 'txtdebhab');
$aa_sum = array('0' => 'txtdebencnd', '1' => 'txthaberncnd');
$ds_detscg->group_by_conformato($aa_items, $aa_sum, 'txtscgcuentancnd');
$li_totalrows = $ds_detscg->getRowCount("txtscgcuentancnd");
for ($la = 1; $la <= $li_totalrows; $la++) {
$ls_scgcuenta = $ds_detscg->getValue("txtscgcuentancnd", $la);
$ls_dencuenta = $ds_detscg->getValue("txtdencuentascgncnd", $la);
$ldec_mondebe = $ds_detscg->getValue("txtdebencnd", $la);
$ldec_monhaber = $ds_detscg->getValue("txthaberncnd", $la);
$ldec_auxdebe = str_replace(".", "", $ldec_mondebe);
$ldec_auxdebe = str_replace(",", ".", $ldec_auxdebe);
$ldec_auxhaber = str_replace(".", "", $ldec_monhaber);
$ldec_auxhaber = str_replace(",", ".", $ldec_auxhaber);
$ldec_totaldebe = $ldec_totaldebe + $ldec_auxdebe;
$ldec_totalhaber = $ldec_totalhaber + $ldec_auxhaber;
$lo_object[$la][1] = "<input type=text name=txtscgcuentancnd" . $la . " id=txtscgcuentancnd" . $la . " class=sin-borde style=text-align:center size=22 value='{$ls_scgcuenta}' readonly onClick='javascript:uf_select_filadelete({$la});'>";
$lo_object[$la][2] = "<input type=text name=txtdencuentascgncnd" . $la . " class=sin-borde style=text-align:left size=59 value='{$ls_dencuenta}' readonly onClick='javascript:uf_select_filadelete({$la});'>";
$lo_object[$la][3] = "<input type=text name=txtdebencnd" . $la . " class=sin-borde style=text-align:right size=20 value='{$ldec_mondebe}' readonly onClick='javascript:uf_select_filadelete({$la});uf_mostrar_alerta();'>";
$lo_object[$la][4] = "<input type=text name=txthaberncnd" . $la . " class=sin-borde style=text-align:right size=20 value='{$ldec_monhaber}' readonly onClick='javascript:uf_select_filadelete({$la});uf_mostrar_alerta();'>";
$lo_object[$la][5] = "<a href=javascript:uf_delete_dtnota('" . $la . "');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>";
}
$lo_title[1] = "Código Estadístico";
$lo_title[2] = "Código Programático ";
$lo_title[3] = "Estatus";
$lo_title[4] = "Denominación";
$lo_title[5] = "Monto";
$io_grid->make_gridScroll($lx - 1, $lo_title, $lo_object2, 758, "Detalle Presupuestario de la Nota", "grid", 120);
$lo_titlesc[1] = "Cuenta";
$lo_titlesc[2] = "Denominación";
$lo_titlesc[3] = "Monto Debe";
$lo_titlesc[4] = "Monto Haber";
$lo_titlesc[5] = " ";
$io_grid->make_gridScroll($la - 1, $lo_titlesc, $lo_object, 758, "Detalle Contable de la Nota", "gridscg", 120);
print "<input type=hidden name=numrowsprenota id=numrowsprenota value=" . ($lx - 1) . ">";
print "<input type=hidden name=numrowsconnota id=numrowsconnota value=" . ($la - 1) . ">";
print "<table width='758' border='0' align='center' cellpadding='0' cellspacing='0' class='celdas-blancas'>";
print " <tr>";
print " <td width='508' height='22' align='right'><div align='right'><strong>Total Debe</strong></div></td>";
print " <td width='80' height='22' align='right'><input name='txtmontodeb' type='text' id='txtmontodeb' style='text-align:right' value=" . number_format($ldec_totaldebe, 2, ",", ".") . " size='22' maxlength='20' readonly align='right' class='letras-negrita'></td>";
print " <td width='90' height='22' align='right'><div align='right'><strong>Total Haber</strong></div></td>";
print " <td width='80' height='22' align='right'><input name='txtmontohab' type='text' id='txtmontohab' style='text-align:right' value=" . number_format($ldec_totalhaber, 2, ",", ".") . " size='22' maxlength='20' readonly align='right' class='letras-negrita'></td>";
print " </tr>";
print " <tr>";
print " <td width='508' height='22' align='right'> </td>";
print " <td width='80' height='22' align='right'> </td>";
print " <td width='90' height='22' align='right'> </td>";
print " <td width='80' height='22' align='right'> </td>";
print " </tr>";
print "</table>";
print "<table width=780 border=0 cellpadding=0 cellspacing=0 class=formato-blanco>";
print " <tr class=titulo-ventana>";
print " <td height=23 colspan=4><div align=center class=Estilo1><b>TOTALES</b></div></td>";
print " </tr>";
print "<tr height=20>";
print " <td width=49> </td>";
print " <td width=413> </td>";
print " <td width=167><div align=right><b>SUBTOTAL</b></div></td>";
print " <td width=151><input name=txtmontosincargo type=text id=txtmontosincargo value=" . $ldec_total . " style='text-align:right' class='letras-negrita' size='22' maxlength='20' readonly></td>";
print "</tr>";
print "<tr height=20>";
print " <td width=49> </td>";
print " <td width=413> </td>";
print " <td width=167><div align=right><input name='btnotroscreditos' type='button' class='boton' id='btnotroscreditos' value='Otros Créditos' onClick='javascript:uf_agregar_dtcargos(\"\",\"\",\"\",\"\",\"\");'></div></td>";
print " <td width=151><input name=txtmontocargo type=text id=txtmontocargo value='0,00' style='text-align:right' class='letras-negrita' size='22' maxlength='20' readonly></td>";
print "</tr>";
print "<tr height=20>";
print " <td width=49> </td>";
print " <td width=413> </td>";
print " <td width=147><div align=right><b>MONTO TOTAL</b></div></td>";
print " <td width=171><input name=txtmonto type=text class=texto-rojo id=txtmonto value=" . $ldec_total . " style='text-align:right' size='22' maxlength='20' readonly></td>";
print "</tr>";
print "</table>";
}
}
