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>"; } }