$lb_vali=$io_casig->uf_llenarcombo_pais($la_pais);
if($lb_vali)
{
$io_data->data=$la_pais;
$totrow=$io_data->getRowCount("codpai");
}
else
$totrow=0;
?>
<select name="cmbpais" size="1" id="cmbpais" onChange="javascript:ue_cambiarestado()">
<?Php
for($li_i=1;$li_i<=$totrow;$li_i++)
{
$ls_codigo=$io_data->getValue("codpai",$li_i);
$ls_desest=$io_data->getValue("despai",$li_i);
if ($ls_codigo==$ls_codpai)
{
print "<option value='$ls_codigo' selected>$ls_desest</option>";
}
else
{
print "<option value='$ls_codigo'>$ls_desest</option>";
}
}
?>
</select>
<input name="hidpais" type="hidden" id="hidpais" value="<? print $ls_codpai?>">
</span></td>
</tr>
$io_pdf = new Cezpdf('LETTER', 'portrait');
// Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
// Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(4, 2.5, 3, 3);
// Configuración de los margenes en centímetros
$li_totrow = $io_report->DS->getRowCount("numsol");
if ($li_totrow > 1) {
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$ls_denominacion = $io_report->DS->data["dentipdoc"][$li_i];
$ds_dentipdoc->insertRow("dentipsol", $ls_denominacion);
}
$ds_dentipdoc->group("dentipsol");
$li_fila = $ds_dentipdoc->getRowCount("dentipsol");
for ($li_i = 1; $li_i <= $li_fila; $li_i++) {
$ls_denominacion = $ds_dentipdoc->getValue("dentipsol", $li_i);
if ($ls_denominacion != "") {
if ($li_i == 1) {
$ls_dentipdoc = $ls_denominacion;
} else {
$ls_dentipdoc = $ls_dentipdoc . ", " . $ls_denominacion;
}
}
}
} else {
$ls_dentipdoc = $io_report->DS->data["dentipdoc"][1];
}
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$ls_numsol = $io_report->DS->data["numsol"][$li_i];
$ls_codpro = $io_report->DS->data["cod_pro"][$li_i];
$ls_cedbene = $io_report->DS->data["ced_bene"][$li_i];
function uf_spg_reporte_disponibilidad_formato2($as_codestpro1_ori,$as_codestpro2_ori,$as_codestpro3_ori,$as_codestpro4_ori,
$as_codestpro5_ori,$as_codestpro1_des,$as_codestpro2_des,$as_codestpro3_des,
$as_codestpro4_des,$as_codestpro5_des,$adt_fecini,$adt_fecfin,
$as_cuenta_from,$as_cuenta_to)
{//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function : uf_spg_reporte_disponibilidad_formato2
// Access : private
// Argumentos : as_codestpro1_ori .. $as_codestpro5_ori // codigo de la estructura programatica origen
// as_codestpro1_des .. $as_codestpro5_des // codigo de la estructura programatica destino
// $adt_fecini // fecha de inicio
// $adt_fecfin // fecha de fin
// $as_cuenta_from // cuenta desde
// $as_cuenta_to // desde hasta
// Returns : Retorna true en caso de exito de la consulta o false en otro caso
// Description : Reporte que genera la salida para el disponible presupuestario acumulada segun fecha seleccionada
// Creado por : Ing. Yozelin Barragán.
// Fecha Creación : 26/01/2007 Fecha última Modificacion : Hora :
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$lb_existe = false;
$lb_valido = true;
$ls_codemp = $this->dts_empresa["codemp"];
$this->dts_reporte->reset_ds();
$ls_str_sql_where="";
$dts_disponible=new class_datastore();
$rs_data=0;
$ls_estructura_desde=$as_codestpro1_ori.$as_codestpro2_ori.$as_codestpro3_ori.$as_codestpro4_ori.$as_codestpro5_ori;
$ls_estructura_hasta=$as_codestpro1_des.$as_codestpro2_des.$as_codestpro3_des.$as_codestpro4_des.$as_codestpro5_des;
$this->uf_obtener_rango_programatica($as_codestpro1_ori,$as_codestpro2_ori,$as_codestpro3_ori,$as_codestpro4_ori,$as_codestpro5_ori,
$as_codestpro1_des,$as_codestpro2_des,$as_codestpro3_des,$as_codestpro4_des,$as_codestpro5_des,
$ls_Sql_Where,$ls_str_estructura_from,$ls_str_estructura_to);
$ls_Sql_Where = trim($ls_Sql_Where);
if ( !empty($ls_Sql_Where) )
{
$ls_str_sql_where=$ls_Sql_Where." AND ";
}
else
{
$ls_str_sql_where="";
}
$ls_gestor = $_SESSION["ls_gestor"];
if(strtoupper($ls_gestor)=="MYSQL")
{
$ls_concat="CONCAT(PCT.codestpro1, PCT.codestpro2, PCT.codestpro3, PCT.codestpro4,PCT.codestpro5)";
}
else
{
$ls_concat="(PCT.codestpro1||PCT.codestpro2||PCT.codestpro3||PCT.codestpro4||PCT.codestpro5)";
}
$ls_sql=" SELECT ".$ls_concat." AS programatica, PCT.codestpro1, PCT.codestpro2, PCT.codestpro3, PCT.codestpro4, ".
" PCT.codestpro5, PCT.spg_cuenta, PCT.denominacion, PCT.status, EP.denestpro5 ".
" FROM spg_cuentas PCT, spg_ep5 EP ".
" WHERE PCT.codemp='".$ls_codemp."' AND PCT.codemp=EP.codemp AND PCT.codestpro1=EP.codestpro1 AND ".
" PCT.codestpro2=EP.codestpro2 AND PCT.codestpro3=EP.codestpro3 AND PCT.codestpro4=EP.codestpro4 AND ".
" PCT.codestpro5=EP.codestpro5 AND ".$ls_str_sql_where." ".
" PCT.spg_cuenta between '".$as_cuenta_from."' AND '".$as_cuenta_to."' ".
" ORDER BY PCT.codestpro1, PCT.codestpro2, PCT.codestpro3, PCT.codestpro4, PCT.codestpro5, PCT.spg_cuenta ";
$rs_data=$this->SQL->select($ls_sql);
if($rs_data===false)
{
$lb_valido=false;
$this->io_msg->message("CLASE->sigesp_spg_class_report MÉTODO->uf_spg_reporte_disponibilidad_presupuestaria ERROR->".$this->fun->uf_convertirmsg($this->SQL->message));
}
else
{
if($row=$this->SQL->fetch_row($rs_data))
{
$dts_disponible->data=$this->SQL->obtener_datos($rs_data);
$lb_existe=true;
}
$this->SQL->free_result($rs_data);
if($lb_existe==false)
{
return false; // no hay registro
}
$li_total_row=$dts_disponible->getRowCount("spg_cuenta");
for ($li_i=1;$li_i<=$li_total_row;$li_i++)
{
$ls_codestpro1 = $dts_disponible->getValue("codestpro1",$li_i);
$ls_codestpro2 = $dts_disponible->getValue("codestpro2",$li_i);
$ls_codestpro3 = $dts_disponible->getValue("codestpro3",$li_i);
$ls_codestpro4 = $dts_disponible->getValue("codestpro4",$li_i);
$ls_codestpro5 = $dts_disponible->getValue("codestpro5",$li_i);
$ls_programatica = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_spg_cuenta = $dts_disponible->getValue("spg_cuenta",$li_i);
$ls_denominacion = $dts_disponible->getValue("denominacion",$li_i);
$ls_status = $dts_disponible->getValue("status",$li_i);
$ls_denestpro5 = $dts_disponible->getValue("denestpro5",$li_i);
$ld_monto_asignado=0;
$ld_monto_aumento=0;
$ld_monto_disminucion=0;
$ld_monto_precompromiso=0;
$ld_monto_compromiso=0;
$ld_monto_causado=0;
$ld_monto_pagado=0;
$ld_monto_aumento_a=0;
$ld_monto_disminucion_a=0;
$ld_monto_precompromiso_a=0;
$ld_monto_compromiso_a=0;
if(!$this->uf_calcular_disponible_operacion_por_cuenta($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_spg_cuenta,$adt_fecini,$adt_fecfin,
&$ld_monto_asignado,&$ld_monto_aumento,&$ld_monto_disminucion,
&$ld_monto_precompromiso,&$ld_monto_compromiso,&$ld_monto_causado,
&$ld_monto_pagado,&$ld_monto_aumento_a,&$ld_monto_disminucion_a,
&$ld_monto_precompromiso_a,&$ld_monto_compromiso_a))
{
return false;
}
else
{
$ld_asignado=$ld_monto_asignado+$ld_monto_aumento_a+$ld_monto_aumento-$ld_monto_disminucion_a-$ld_monto_disminucion;
$ld_disponible=$ld_monto_asignado+$ld_monto_aumento-$ld_monto_disminucion-$ld_monto_compromiso-$ld_monto_precompromiso;
$ld_monto_ejecutado=0;
$ld_monto_acumulado=0;
$ldt_fecini=$this->fun->uf_convertirfecmostrar($adt_fecini);
$ldt_fecfin=$this->fun->uf_convertirfecmostrar($adt_fecfin);
$lb_valido=$this->uf_spg_reporte_calcular_ejecutado($ls_spg_cuenta,$ls_estructura_desde,$ls_estructura_hasta,
$ldt_fecini,$ldt_fecfin,$ld_monto_ejecutado,$ld_monto_acumulado);
$this->dts_reporte->insertRow("programatica",$ls_programatica);
$this->dts_reporte->insertRow("spg_cuenta",$ls_spg_cuenta);
$this->dts_reporte->insertRow("denominacion",$ls_denominacion);
$this->dts_reporte->insertRow("status",$ls_status);
$this->dts_reporte->insertRow("denestpro5",$ls_denestpro5);
$this->dts_reporte->insertRow("asignado",$ld_asignado);
$this->dts_reporte->insertRow("disponible",$ld_disponible);
$this->dts_reporte->insertRow("monto_ejecutado",$ld_monto_ejecutado);
$this->dts_reporte->insertRow("monto_acumulado",$ld_monto_acumulado);
$lb_valido = true;
}
}//for
}//else
return $lb_valido;
}//fin uf_spg_reporte_disponibilidad_formato2
function uf_print_amortizacion()
{
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_amortizacion
// Access: private
// Arguments:
// Description: Función que obtiene e imprime los resultados de la busqueda de compromisos
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 09/05/2007 Fecha Última Modificación :
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_funciones_sob;
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("sigesp_sob_c_recepcion.php");
$io_recepcion=new sigesp_sob_c_recepcion("../../");
require_once("../../shared/class_folder/class_datastore.php");
$io_ds_amortizacion=new class_datastore(); // Datastored de cuentas contables
$ls_codigo=$_POST['codigo'];
$ls_tipodes=$_POST['tipodes'];
switch($ls_tipodes)
{
case "P":
$ls_codprov=$ls_codigo;
$ls_cedbene="----------";
break;
case "B":
$ls_codprov="----------";
$ls_cedbene=$ls_codigo;
break;
}
if(array_key_exists("amortizacion",$_SESSION))
{
$io_ds_amortizacion->data=$_SESSION["amortizacion"];
}
$lb_valido=$io_recepcion->uf_select_amortizaciones($ls_codprov,$ls_cedbene);
if($lb_valido==true)
{
$li_totrow=$io_recepcion->io_ds_anticipos->getRowCount('numrecdoc');
if($li_totrow>0)
{//print_r($io_ds_amortizacion->data);
print "<table width=600 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print " <td align='center' >Recepcion</td>";
print " <td align='rigth' >Total Anticipo</td>";
print " <td align='rigth' >Saldo</td>";
print " <td align='rigth' >Amortizacion</td>";
print "</tr>";
for($li_i=1;($li_i<=$li_totrow)&&($lb_valido);$li_i++)
{
$ls_numrecdoc=trim($io_recepcion->io_ds_anticipos->data["numrecdoc"][$li_i]);
$ls_codtipdoc=trim($io_recepcion->io_ds_anticipos->data["codtipdoc"][$li_i]);
$li_monsal=$io_recepcion->io_ds_anticipos->data["monsal"][$li_i];
$li_montotamo=$io_recepcion->io_ds_anticipos->data["montotamo"][$li_i];
$ls_cuenta=$io_recepcion->io_ds_anticipos->data["cuenta"][$li_i];
$ls_codamo=$io_recepcion->io_ds_anticipos->data["codamo"][$li_i];
$li_monamo=0;
if($lb_valido)
{
$li_row=$io_ds_amortizacion->findValues(array('recdocant'=>$ls_numrecdoc,'codtipdoc'=>$ls_codtipdoc),"recdocant");
if($li_row>0)
{
$li_monamo=$io_ds_amortizacion->getValue("monto",$li_row);
}
print "<tr class=celdas-blancas>";
print " <td width=155 align=center><input name=txtnumrecdoc".$li_i." type=text class=sin-borde style=text-align:center id=txtnumrecdoc".$li_i."' value=".$ls_numrecdoc." readonly/>".
" <input name=txtcuenta".$li_i." type=hidden id=txtcuenta".$li_i."' value=".$ls_cuenta." /><input name=txtcodtipdoc".$li_i." type=hidden id=txtcodtipdoc".$li_i."' value=".$ls_codtipdoc." />".
" <input name=txtcodamo".$li_i." type=hidden id=txtcodamo".$li_i."' value=".$ls_codamo." /></td>";
print " <td width=155 align=right>".number_format($li_montotamo,2,',','.')."</td>";
print " <td width=155 align=right><input name=txtsaldo".$li_i." type=text class=sin-borde style=text-align:right id=txtsaldo".$li_i."' value=".number_format($li_monsal,2,',','.')." readonly/></td>";
print " <td width=155 align=right><input name=txtmonto".$li_i." type=text class=sin-borde style=text-align:right id=txtmonto".$li_i."' value=".number_format($li_monamo,2,',','.')." onKeyPress=return(ue_formatonumero(this,'.',',',event)); onBlur= ue_validarmonto(); /> </td>";
print "</tr>";
}
}
print "<tr><td>";
print "<input name=txttotrow type=hidden class=sin-borde id=txttotrow value=".$li_totrow." onKeyPress=return(ue_formatonumero(this,'.',',',event)); />";
print "</td></tr>";
print "</table>";
}
else
{
$io_mensajes->message("ERROR->No hay Anticipos asociados a este Proveedor ó Beneficiario");
}
}
unset($io_mensajes);
unset($io_funciones);
unset($io_recepcion);
}// end function uf_print_compromisos
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
$li_totprenom = 0;
$ldec_mondeb = 0;
$ldec_monhab = 0;
$li_totant = 0;
$ls_numdoc = $ds_voucher->data["numdoc"][$li_i];
$ls_codban = $ds_voucher->data["codban"][$li_i];
$ls_nomban = $class_report->uf_select_data($io_sql,"SELECT nomban FROM scb_banco WHERE codban ='".$ls_codban."' AND codemp='".$ls_codemp."'","nomban");
$ls_ctaban = $ds_voucher->data["ctaban"][$li_i];
$ls_chevau = $ds_voucher->data["chevau"][$li_i];
$ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]);
$ls_nomproben = $ds_voucher->data["nomproben"][$li_i];
$ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov = $ds_voucher->getValue("conmov",$li_i);
$ldec_monret = $ds_voucher->getValue("monret",$li_i);
$ldec_monto = $ds_voucher->getValue("monto",$li_i);
//$ldec_total = $ldec_monto-$ldec_monret;
$ldec_total = $ldec_monto;
//Asigno el monto a la clase numero-letras para la conversion.
$numalet->setNumero($ldec_total);
//Obtengo el texto del monto enviado.
$ls_monto= $numalet->letra();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf); // Imprimimos el encabezado de la p�gina
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
$la_items = array('0'=>'scg_cuenta');
$la_suma = array('0'=>'monto');
<td class="fd-blanco"> </td>
<td> </td>
<td width="17" rowspan="9"> </td>
<td class="fd-blanco"> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<?php
if ($ls_operacion=="")
{
global $ds_prorep;
$i=$_GET["fila"];
$ds_prorep->data=$_SESSION["objact"];
$li_num=$ds_prorep->getRowCount("cod_report");
$ld_marzo=$ds_prorep->getValue("marzo",$i);
$ld_junio=$ds_prorep->getValue("junio",$i);
$ld_septiembre=$ds_prorep->getValue("septiembre",$i);
$ld_diciembre=$ds_prorep->getValue("diciembre",$i);
$ld_total="0.0000";
}//($ls_operacion=="")
?>
<td width="71" class="fd-blanco"><div align="right">Trimestre(1)</div></td>
<td width="137">
<div align="left">
<input name="txtMarzo" type="text" class="fd-blanco" id="txtMarzo" onKeyPress="return(currencyFormat(this,'.',',',event))" value="<?php print $ld_marzo ?>" onBlur="uf_actualizar(this)">
</div></td>
<td width="75" class="fd-blanco"><div align="right">Trimestre(2)</div></td>
<td width="134"><input name="txtJunio" type="text" class="fd-blanco" id="txtJulio3" onKeyPress="return(currencyFormat(this,'.',',',event))" value="<?php print $ld_junio?>" onBlur="uf_actualizar(this)"></td>
<td width="5"><div align="right"> </div></td>
</tr>
<td width="431"><div align="left">
<?Php
$lb_vali=$io_cunid->uf_llenarcombo_tipouni(&$la_tipoun);
if($lb_vali)
{
$io_data->data=$la_tipoun;
$totrow=$io_data->getRowCount("codtun");
}
?>
<select name="cmbtipouni" id="cmbtipouni">
<option value="">Seleccione</option>
<?Php
for($z=1;$z<=$totrow;$z++)
{
$ls_tipoun=$io_data->getValue("codtun",$z);
$ls_nombreun=$io_data->getValue("nomtun",$z);
if ($ls_tipoun==$ls_tipounidad)
{
print "<option value='$ls_tipoun' selected>$ls_nombreun</option>";
}
else
{
print "<option value='$ls_tipoun'>$ls_nombreun</option>";
}
}
?>
</select>
<input name="hidestado" type="hidden" id="hidestado" value="<? print $ls_tipounidad ?>">
</div></td>
</tr>
$li_temp_nota_cred_mas = 0;
$li_temp_nota_cred_menos = 0;
$li_temp_retiro_mas = 0;
$li_temp_retiro_menos = 0;
$li_temp_deposito_mas = 0;
$li_temp_deposito_menos = 0;
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
$li_temp=$li_temp+1;
$li_totprenom = 0;
$ldec_mondeb = 0;
$ldec_monhab = 0;
$li_totant = 0;
$ls_tipo = $ds_concil->getValue("tipo",$li_i);
$ls_suma = $ds_concil->getValue("suma",$li_i);
$ls_codope = $ds_concil->getValue("codope",$li_i);
$ls_numdoc = $ds_concil->getValue("numdoc",$li_i);
$ls_nomproben = $ds_concil->getValue("nomproben",$li_i);
$ld_fecmov = $ds_concil->getValue("fecmov",$li_i);
$ldec_monto = $ds_concil->getValue("monto",$li_i);
$ld_fecmov = $io_funciones->uf_convertirfecmostrar($ld_fecmov);
$ls_item = $ls_numdoc." ".$ls_nomproben." ".$ld_fecmov;
if($ls_suma=='+')//En caso que sean mas
{
switch($ls_codope)
{
case "CH":
$la_data_cheque_mas[$li_temp_cheque_mas]["fecha"]=$ld_fecmov;
$la_data_cheque_mas[$li_temp_cheque_mas]["numdoc"]=$ls_numdoc;
function uf_procesar_cuentas($as_cuenta_spg, $as_denominacion_cta, $aa_estpro, $as_cuenta_scg, $aa_security)
{
$ls_spg_cuenta = $as_cuenta_spg;
$ls_cuenta_tempo = $ls_spg_cuenta;
$ls_denominacion_cta = $as_denominacion_cta;
$ls_scg_cuenta = $as_cuenta_scg;
$ls_codest1 = $aa_estpro[0];
$ls_codest2 = $aa_estpro[1];
$ls_codest3 = $aa_estpro[2];
$ls_codest4 = $aa_estpro[3];
$ls_codest5 = $aa_estpro[4];
$ls_estcla = $aa_estpro[5];
$ls_scgctaint = $aa_estpro[6];
$lb_valido = true;
//Tomo los valores anteriores de la cuenta y denominacion.
if ($this->int_spg->uf_spg_select_cuenta($this->dat["codemp"], $aa_estpro, $ls_spg_cuenta, &$ls_status, &$ls_denominacion, $ls_scg_cuenta)) {
$lb_valido = $this->int_spg->uf_spg_update_cuenta($ls_codest1, $ls_codest2, $ls_codest3, $ls_codest4, $ls_codest5, $ls_estcla, $ls_spg_cuenta, $ls_denominacion_cta, $as_cuenta_scg);
if ($lb_valido) {
$ls_estpro1 = "";
$ls_estpro2 = "";
$ls_ctapu = "";
$ls_denctapu = "";
$ls_ctaplan = "";
$this->is_msg_error = "Denominación Actualizada";
$disabled = "";
$this->int_spg->io_sql->commit();
///////////////////////////////// SEGURIDAD /////////////////////////////
$ls_evento = "UPDATE";
$ls_desc_event = "Actualizo la cuenta " . $ls_spg_cuenta . ", asociada a la programatica " . $ls_codest1 . "-" . $ls_codest2 . "-" . $ls_codest3 . "-" . $ls_codest4 . "-" . $ls_codest5 . " y a la cuenta contable " . $ls_scg_cuenta;
$ls_variable = $this->io_seguridad->uf_sss_insert_eventos_ventana($aa_security[1], $aa_security[2], $ls_evento, $aa_security[3], $aa_security[4], $ls_desc_event);
//////////////////////////////// SEGURIDAD //////////////////////////////
} else {
$this->is_msg_error = "Error " . $this->int_spg->io_sql->message;
}
} else {
$ls_cuenta_tempo = $ls_spg_cuenta;
$ls_denominacion = "";
$ls_NextCuenta = $this->int_spg->uf_spg_next_cuenta_nivel($ls_spg_cuenta);
$li_Nivel = $this->int_spg->uf_spg_obtener_nivel($ls_NextCuenta);
$li_fila = 1;
$lds_cuenta_temp = new class_datastore();
do {
if (!$this->int_spg->uf_spg_select_cuenta($this->dat["codemp"], $aa_estpro, $ls_NextCuenta, &$ls_status, &$ls_denominacion, $ls_scg_cuenta)) {
$ls_PadNextCuenta = $this->int_scg->uf_pad_cuenta_plan($this->dat["formplan"], $ls_NextCuenta);
$this->int_spg->uf_select_plan_unico_cuenta($ls_PadNextCuenta, &$as_denominacion_plan);
if ($li_Nivel > 1) {
$ls_cuenta_ref = $this->int_spg->uf_spg_next_cuenta_nivel($ls_NextCuenta);
} else {
$ls_cuenta_ref = " ";
}
if ($as_denominacion_plan == "") {
$as_denominacion_plan = $as_denominacion_cta;
}
$lds_cuenta_temp->insertRow("sc_cuenta", trim($ls_scg_cuenta));
$lds_cuenta_temp->insertRow("spg_cuenta", $ls_NextCuenta);
$lds_cuenta_temp->insertRow("codestpro1", $ls_codest1);
$lds_cuenta_temp->insertRow("codestpro2", $ls_codest2);
$lds_cuenta_temp->insertRow("codestpro3", $ls_codest3);
$lds_cuenta_temp->insertRow("codestpro4", $ls_codest4);
$lds_cuenta_temp->insertRow("codestpro5", $ls_codest5);
$lds_cuenta_temp->insertRow("denominacion", $as_denominacion_plan);
$lds_cuenta_temp->insertRow("sc_cuenta_ref", $ls_cuenta_ref);
$lds_cuenta_temp->insertRow("nivel", $li_Nivel);
$lds_cuenta_temp->insertRow("estcla", $ls_estcla);
$lds_cuenta_temp->insertRow("scgctaint", $ls_scgctaint);
$li_fila++;
}
if ($li_Nivel > 1) {
$ls_NextCuenta = $this->int_spg->uf_spg_next_cuenta_nivel($ls_NextCuenta);
$li_Nivel = $this->int_spg->uf_spg_obtener_nivel($ls_NextCuenta);
} else {
$li_Nivel = 0;
}
} while ($li_Nivel >= 1);
$li_total = $lds_cuenta_temp->getRowCount("sc_cuenta");
if ($li_total > 0) {
$this->int_spg->io_sql->begin_transaction();
for ($li_fila = 1; $li_fila <= $li_total; $li_fila++) {
$ls_sc_cuenta = $lds_cuenta_temp->getValue("sc_cuenta", $li_fila);
$ls_spg_cuenta = $lds_cuenta_temp->getValue("spg_cuenta", $li_fila);
$ls_codest1 = $lds_cuenta_temp->getValue("codestpro1", $li_fila);
$ls_codest2 = $lds_cuenta_temp->getValue("codestpro2", $li_fila);
$ls_codest3 = $lds_cuenta_temp->getValue("codestpro3", $li_fila);
$ls_codest4 = $lds_cuenta_temp->getValue("codestpro4", $li_fila);
$ls_codest5 = $lds_cuenta_temp->getValue("codestpro5", $li_fila);
$ls_denominacion = $lds_cuenta_temp->getValue("denominacion", $li_fila);
$ls_cuenta_ref = $lds_cuenta_temp->getValue("sc_cuenta_ref", $li_fila);
$li_Nivel = $lds_cuenta_temp->getValue("nivel", $li_fila);
$ls_estcla = $lds_cuenta_temp->getValue("estcla", $li_fila);
$ls_scgctaint = $lds_cuenta_temp->getValue("scgctaint", $li_fila);
$ls_mensaje_error = "Error en Guardar";
$ls_status = "S";
$lb_valido = $this->int_spg->uf_spg_insert_cuenta($ls_codest1, $ls_codest2, $ls_codest3, $ls_codest4, $ls_codest5, $ls_estcla, $ls_spg_cuenta, $ls_denominacion, trim($ls_sc_cuenta), $ls_status, $li_Nivel, $ls_cuenta_ref, $ls_scgctaint);
if (!$lb_valido) {
break;
} else {
///////////////////////////////// SEGURIDAD /////////////////////////////
$ls_evento = "INSERT";
$ls_desc_event = "Inserto la cuenta " . $ls_spg_cuenta . ", asociada a la programatica " . $ls_codest1 . "-" . $ls_codest2 . "-" . $ls_codest3 . "-" . $ls_codest4 . "-" . $ls_codest5 . " y a la cuenta contable " . $ls_sc_cuenta;
////////////////////////////// SEGURIDAD /////////////////////////////
}
}
}
if ($lb_valido) {
$ls_cuenta = $ls_cuenta_tempo;
$ls_Cuenta_temp = $this->int_spg->uf_spg_padcuenta_plan($this->dat["formplan"], $ls_cuenta);
$ls_NextCuenta = $this->int_spg->uf_spg_next_cuenta_nivel($ls_cuenta);
$li_Nivel = $this->int_spg->uf_spg_obtener_nivel($ls_cuenta);
$ls_status = "C";
$lb_valido = $this->int_spg->uf_spg_insert_cuenta($ls_codest1, $ls_codest2, $ls_codest3, $ls_codest4, $ls_codest5, $ls_estcla, $ls_cuenta, $ls_denominacion_cta, $as_cuenta_scg, $ls_status, $li_Nivel, $ls_NextCuenta, $ls_scgctaint);
///////////////////////////////// SEGURIDAD /////////////////////////////
$ls_evento = "INSERT";
$ls_desc_event = "Inserto la cuenta " . $ls_cuenta . ", asociada a la programatica " . $ls_codest1 . "-" . $ls_codest2 . "-" . $ls_codest3 . "-" . $ls_codest4 . "-" . $ls_codest5 . " y a la cuenta contable " . $as_cuenta_scg;
////////////////////////////// SEGURIDAD /////////////////////////////
}
if ($lb_valido) {
$this->int_spg->io_sql->commit();
$this->is_msg_error = "Registro guardado";
///////////////////////////////// SEGURIDAD /////////////////////////////
$ls_variable = $this->io_seguridad->uf_sss_insert_eventos_ventana($aa_security[1], $aa_security[2], $ls_evento, $aa_security[3], $aa_security[4], $ls_desc_event);
//////////////////////////////// SEGURIDAD //////////////////////////////
} else {
$this->int_spg->io_sql->rollback();
$this->is_msg_error = "Error al guardar cuenta ";
}
}
return $lb_valido;
}
$la_data[$li_b]=array('programatica'=>$ds_dt_spg->getValue("estpro",$li_b),
'cuenta'=>$ds_dt_spg->getValue("spg_cuenta",$li_b),
'monto'=>number_format($ds_dt_spg->getValue("monto",$li_b),2,",","."));
}
uf_print_detalle_presupuestario($la_data,$io_pdf);
unset($la_data);
}
//Obtengo el detalle presupuestario del movimiento.
$ds_dt_spi->data=$class_report->uf_cargar_dt_spi($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope,$ls_estmov);
$li_totspi=$ds_dt_spi->getRowCount("spi_cuenta");
if($li_totspi>0)
{
for($li_b=1;$li_b<=$li_totspi;$li_b++)
{
$la_data[$li_b]=array('cuenta'=>$ds_dt_spi->getValue("spi_cuenta",$li_b),
'monto'=>number_format($ds_dt_spi->getValue("monto",$li_b),2,",","."));
}
uf_print_detalle_ingreso($la_data,$io_pdf);
}
$ldec_total=$ldec_total+$ldec_monto;
uf_print_fin_detalle(&$io_pdf);
}
uf_print_totales(number_format($ldec_total,2,",","."),&$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
<a href="javascript:catprovbene(document.form1.tipo.value)"><img src="../shared/imagebank/tools15/buscar.gif" alt="Catalogo Proveedores/Beneficiarios" width="15" height="15" border="0"></a> </td>
<td colspan="2" align="left"><input name="txtprovbene" type="text" id="txtprovbene" style="text-align:center" value="" size="14" maxlength="10"> <label>
<input type="text" name="txtnomproben" id="txtnomproben">
</label>
<div align="right"></div></td>
<td width="70"><div align="right">Hasta </div></td>
<td width="82" align="left"><input name="txtfechahasta" type="text" id="txtfechahasta" size="15" maxlength="10" style="text-align:center" onKeyDown="javascript:ue_formato_fecha(this,'/',patron,true,event);" onBlur="javascript: ue_validar_formatofecha(this);" datepicker="true"> </td>
</tr>
<tr>
<td height="10"><div align="right">Procedencia</div></td>
<td colspan="3" align="left" ><select name="procede" id="select">
<option value="N" "<? print $sel_N?>" >Ninguno</option>
<?php
for($li_i=1;$li_i<=$li_rowcount;$li_i++)
{
$ls_procede=$ds_procedencias->getValue("procede",$li_i);
$ls_despro=$ds_procedencias->getValue("desproc",$li_i);
if($ls_procede_ant==$ls_procede)
{
?>
<option value="<?php print $ls_procede?>" selected><?php print $ls_despro; ?></option>
<?php
}
else
{
?>
<option value="<?php print $ls_procede?>"><?php print $ls_despro; ?></option>
<?php
}
}
?>
if(($ls_operacion=="CAMBIO_TIPO"))
{
//Cargo los datos de las programaciones.
$ld_fechadesde=$_POST["txtfechadesde"];
$ld_fechahasta=$_POST["txtfechahasta"];
$ls_documento=$_POST["txtdocumento"];
$ls_numcarta=$_POST["txtnumcarta"];
$data=$io_carta->uf_cargar_cartas_filtradas($ls_empresa,$ls_tipo,$ld_fechadesde,$ld_fechahasta,$ls_documento,$ls_numcarta);
$ldec_total_prog=0;
if($data!="")
{
$ds_carta->data=$data;
$li_total=$ds_carta->getRowCount("numdoc");
for($i=1;$i<=$li_total;$i++)
{
$ls_numdoc = $ds_carta->getValue("numdoc",$i);
$ldec_monto = $ds_carta->getValue("monto",$i);
$ld_fecmov = $fun->uf_formatovalidofecha($ds_carta->getValue("fecmov",$i));
$ld_fecmov = $fun->uf_convertirfecmostrar($ld_fecmov);
$ls_prov = $ds_carta->getValue("cod_pro",$i);
if($ls_prov=="----------")
{
$ls_prov=$ds_carta->getValue("ced_bene",$i);
}
$ls_nomproben = $ds_carta->getValue("nomproben",$i);
$ls_codban = $ds_carta->getValue("codban",$i);
$ls_ctaban = $ds_carta->getValue("ctaban",$i);
$ls_conmov = $ds_carta->getValue("conmov",$i);
$ls_carta = $ds_carta->getValue("numcarord",$i);
$ls_estcon = $ds_carta->getValue("estcon",$i);
$ld_fecpropag='';
function uf_trasladar_saldos($ad_periodoviejo, $ad_periodonuevo, $as_codban, $as_ctaban, $ab_transito)
{
/*------------------------------------------------------------------
- Funcion que se encarga de trasladar los saldos
- Retorna true si la operacion se ejecuto correctamente, de lo contrario, false
- Elaborado por Ing. Laura Cabré.
- Fecha: 12/01/2007
//-----------------------------------------------------------------*/
set_time_limit(0);
$ls_codemp = $this->dat["codemp"];
$ds_cuenta = new class_datastore();
$ds_colocaciones = new class_datastore();
$ds_transito = new class_datastore();
$ds_doc_repetidos = new class_datastore();
$lb_valido = false;
$ad_periodoviejo = $this->io_funciones->uf_convertirdatetobd($ad_periodoviejo);
$ad_periodonuevo = $this->io_funciones->uf_convertirdatetobd($ad_periodonuevo);
// -----------------Se obtiene la cuenta bancaria
$ls_sql = "SELECT 0.0000 AS saldo\n\t\t\t FROM scb_ctabanco\n\t\t\t WHERE codemp='{$ls_codemp}' \n\t\t\t\tAND codban='{$as_codban}' \n\t\t\t\tAND ctaban='{$as_ctaban}'\n\t\t\t GROUP BY codban,ctaban,codtipcta\n\t\t\t ORDER BY codban,ctaban";
$io_recordset = $this->io_sql_origen->select($ls_sql);
if ($io_recordset === false) {
$ls_cadena = "Error al trasladar saldos - Obtención de la cuenta bancaria- .\r\n" . $this->io_sql_origen->message . "\r\n";
$ls_cadena = $ls_cadena . $ls_sql . "\r\n";
if ($this->lo_archivo) {
@fwrite($this->lo_archivo, $ls_cadena);
}
return false;
} else {
if ($this->io_sql_origen->fetch_row($io_recordset)) {
$ds_cuenta->data = $this->io_sql_origen->obtener_datos($io_recordset);
$lb_valido = true;
}
}
// -----------------Se obtiene las colocaciones------------
$ls_sql = "SELECT numcol,codtipcol,codban,ctaban, 0.0000 AS saldo\n\t\t\t FROM scb_colocacion\n\t\t\t GROUP by codban,ctaban,numcol,codtipcol";
$io_recordset = $this->io_sql_origen->select($ls_sql);
if ($io_recordset === false) {
$ls_cadena = "Error al trasladar saldos - Obtención de las colocaciones- .\r\n" . $this->io_sql_origen->message . "\r\n";
$ls_cadena = $ls_cadena . $ls_sql . "\r\n";
if ($this->lo_archivo) {
@fwrite($this->lo_archivo, $ls_cadena);
}
return false;
} else {
if ($this->io_sql_origen->fetch_row($io_recordset)) {
$ds_colocaciones->data = $this->io_sql_origen->obtener_datos($io_recordset);
$lb_valido = true;
}
}
if ($lb_valido) {
//-------------Calculando los saldos de los documentos
$ldec_saldo_documentos_temp = 0;
$ldec_saldo_documentos_temp = $this->uf_calcular_saldo_documento($as_codban, $as_ctaban);
if ($ldec_saldo_documentos_temp === false) {
return false;
}
$ds_cuenta->updateRow("saldo", $ldec_saldo_documentos_temp, 1);
//-------------Calculando los saldos de las colocaciones-----------//
$li_totcol = $ds_colocaciones->getRowCount("numcol");
for ($li_i = 1; $li_i <= $li_totcol; $li_i++) {
$ls_codban = $ds_colocaciones->getValue("codban", $li_i);
$ls_numcol = $ds_colocaciones->getValue("numcol", $li_i);
$ls_ctaban = $ds_colocaciones->getValue("ctaban", $li_i);
$ldec_saldo = $this->uf_calcular_saldo_colocacion($ls_codban, $ls_numcol);
if ($ldec_saldo === false) {
return false;
} else {
$ds_colocaciones->updateRow("saldo", $ldec_saldo, $li_i);
}
}
//-------------Se chequean los movimientos en transito
if ($ab_transito) {
$ls_sql = "SELECT *\n\t\t\t\t\t\t FROM scb_movbco \n\t\t\t\t\t\t WHERE codemp='{$ls_codemp}' \n\t\t\t\t\t\t\tAND codban='{$as_codban}' \n\t\t\t\t\t\t\tAND ctaban='{$as_ctaban}' \n\t\t\t\t\t\t\tAND estcon=0 \n\t\t\t\t\t\t\tAND (estmov='C' OR estmov='L')\n\t\t\t\t\t\t ORDER BY codban,ctaban,numdoc";
$io_recordset = $this->io_sql_origen->select($ls_sql);
if ($io_recordset === false) {
$ls_cadena = "Error al Trasladar saldos - Obtención de los movimientos en tránsito- .\r\n" . $this->io_sql_origen->message . "\r\n";
$ls_cadena = $ls_cadena . $ls_sql . "\r\n";
if ($this->lo_archivo) {
@fwrite($this->lo_archivo, $ls_cadena);
}
return false;
} else {
$lb_valido = true;
if ($this->io_sql_origen->fetch_row($io_recordset)) {
$ds_transito->data = $this->io_sql_origen->obtener_datos($io_recordset);
}
}
// Movimientos en transito en forma resumida
$ls_sql = "SELECT codban,ctaban,codope,SUM(monto-monret) AS total, estmov \n\t\t\t\t\t\t FROM scb_movbco \n\t\t\t\t\t\t WHERE codemp='{$ls_codemp}' \n\t\t\t\t\t\t\tAND codban='{$as_codban}' \n\t\t\t\t\t\t\tAND ctaban='{$as_ctaban}' \n\t\t\t\t\t\t\tAND estcon=0 \n\t\t\t\t\t\t\tAND (estmov='C' OR estmov='L')\n\t\t\t\t\t\t GROUP by codban,ctaban,codope,estmov \n\t\t\t\t\t\t ORDER BY codban,ctaban";
$io_recordset = $this->io_sql_origen->select($ls_sql);
if ($io_recordset === false) {
$ls_cadena = "Error al Trasladar saldos -Obtención de los movimientos en tránsito resumidos- .\r\n" . $this->io_sql_origen->message . "\r\n";
$ls_cadena = $ls_cadena . $ls_sql . "\r\n";
if ($this->lo_archivo) {
@fwrite($this->lo_archivo, $ls_cadena);
}
return false;
} else {
$lb_valido = true;
$ldec_debitostmp = 0;
$ldec_creditostmp = 0;
$ldec_debitos_negativostmp = 0;
$ldec_creditos_negativostmp = 0;
$li_numrows = $this->io_sql_origen->num_rows($io_recordset);
if ($li_numrows > 0) {
while ($row = $this->io_sql_origen->fetch_row($io_recordset)) {
$ls_operacion = $row["codope"];
$ls_estado = $row["estmov"];
$ldec_monto = $row["total"];
if (($ls_operacion == "CH" || $ls_operacion == "ND" || $ls_operacion == "RE") && $ls_estado != "A") {
$ldec_creditostmp += $ldec_monto;
} elseif (($ls_operacion == "CH" || $ls_operacion == "ND" || $ls_operacion == "RE") && $ls_estado == "A") {
$ldec_creditos_negativostmp += $ldec_monto;
} elseif (($ls_operacion == "DP" || $ls_operacion == "NC") && $ls_estado != "A") {
$ldec_debitostmp += $ldec_monto;
} elseif (($ls_operacion == "DP" || $ls_operacion == "NC") && $ls_estado == "A") {
$ldec_debitos_negativostmp += $ldec_monto;
}
}
}
}
if ($lb_valido) {
$ldec_debitos = $ldec_debitostmp - $ldec_debitos_negativostmp;
$ldec_creditos = $ldec_creditostmp - $ldec_creditos_negativostmp;
$ldec_saldo_tmp = $ds_cuenta->getValue("saldo", 1);
$ds_cuenta->updateRow("saldo", $ldec_saldo_tmp + $ldec_creditos - $ldec_debitos, 1);
}
}
//Fin del else de los mov en transito resumidos
}
//Fin del select de los movimientos en transito.
//-------Se realiza el traspaso de los saldos de banco-------------------//
$lb_existe = $this->uf_verificar_cuenta($as_codban, $as_ctaban);
if ($lb_existe === 1) {
$ldec_saldo = $ds_cuenta->getValue("saldo", 1);
if ($ldec_saldo >= 0) {
$ls_operacion = "NC";
} else {
$ls_operacion = "ND";
}
$ldec_saldoaux = abs($ds_cuenta->getValue("saldo", 1));
$ldec_saldo = $ldec_saldoaux;
$ls_numdoc = "0000000APERTURA";
$lb_existe = $this->uf_verificar_apertura($ls_numdoc, $as_codban, $as_ctaban);
if ($lb_existe === 0) {
$ls_sql = "INSERT INTO scb_movbco (codemp,numdoc,codban,ctaban,codope,fecmov,conmov,codconmov,\n\t\t\t\t\t\t\ttipo_destino,estmov,monto,estbpd,estcon,estimpche,monret,cod_pro,\n\t\t\t\t\t\t\tced_bene,chevau,feccon,monobjret,nomproben)\n\t\t\t\t\t\t\tVALUES ('{$ls_codemp}','{$ls_numdoc}','{$as_codban}','{$as_ctaban}','{$ls_operacion}','{$ad_periodoviejo}',\n\t\t\t\t\t\t\t'SALDO INICIAL DE LA CUENTA','---','','L'," . $ldec_saldo . ",'M',0,1,\n\t\t\t\t\t\t\t0.0000,'----------','----------','','1900-01-01'," . $ldec_saldo . ",'')";
$li_row = $this->io_sql_destino->execute($ls_sql);
if ($li_row === false) {
$lb_valido = false;
$ls_cadena = "Error al Insertar apertura -Inserción del documento de la Apertura- .\r\n" . $this->io_sql_destino->message . "\r\n";
$ls_cadena = $ls_cadena . $ls_sql . "\r\n";
if ($this->lo_archivo) {
@fwrite($this->lo_archivo, $ls_cadena);
}
} else {
$lb_valido = true;
}
}
} else {
$lb_valido = false;
if ($lb_existe === 0) {
$ls_cadena = "La cuenta No. {$as_ctaban} no existe en la nueva Base de Datos, Favor revise \r\n";
$ls_cadena = $ls_cadena . $ls_sql . "\r\n";
if ($this->lo_archivo) {
@fwrite($this->lo_archivo, $ls_cadena);
}
$this->io_mensajes->message("La cuenta No. {$as_ctaban} no existe en la nueva Base de Datos, Favor revise");
} else {
$this->io_mensajes->message("Error al buscar la cuenta");
}
}
//------Se insertan los movimientos en transito si la opcion esta tildada
$la_indices_repetidos = array();
if ($ab_transito && $lb_valido) {
$li_totrow = $ds_transito->getRowCount("numdoc");
$la_indices_repetidos = array();
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$ls_codban = $ds_transito->getValue("codban", $li_i);
$ls_ctaban = trim($ds_transito->getValue("ctaban", $li_i));
$ls_numdoc = $ds_transito->getValue("numdoc", $li_i);
$ls_codope = $ds_transito->getValue("codope", $li_i);
$ls_estmov = $ds_transito->getValue("estmov", $li_i);
$ls_fecmov = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("fecmov", $li_i), "1900-01-01");
$ls_conmov = $ds_transito->getValue("conmov", $li_i) . ". Fecha original del Documento:" . $this->io_funciones->uf_convertirdatetobd($ls_fecmov);
$ls_nomproben = $ds_transito->getValue("nomproben", $li_i);
$ls_codpro = $this->io_funciones->uf_cerosizquierda($ds_transito->getValue("cod_pro", $li_i), 10);
$ls_cedbene = $ds_transito->getValue("ced_bene", $li_i);
$ls_chevau = $ds_transito->getValue("chevau", $li_i);
$ls_tipodestino = $ds_transito->getValue("tipo_destino", $li_i);
$ls_codconmov = $ds_transito->getValue("codconmov", $li_i);
$ld_montoaux = $ds_transito->getValue("monto", $li_i);
$ld_monto = $ld_montoaux;
$ls_estcon = $ds_transito->getValue("estcon", $li_i);
$ls_estcobing = $ds_transito->getValue("estcobing", $li_i);
$ls_esttra = $ds_transito->getValue("esttra", $li_i);
$ls_estimpche = $ds_transito->getValue("estimpche", $li_i);
$ld_monobjretaux = $this->io_validacion->uf_valida_monto($ds_transito->getValue("monobjret", $li_i), 0);
$ld_monobjret = $ld_monobjretaux;
$ld_monretaux = $this->io_validacion->uf_valida_monto($ds_transito->getValue("monret", $li_i), 0);
$ld_monret = $ld_monretaux;
$ls_procede = $ds_transito->getValue("procede", $li_i);
$ls_comprobante = $ds_transito->getValue("comprobante", $li_i);
$ls_fecha = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("fecha", $li_i), '1900-01-01');
$ls_id_mco = $ds_transito->getValue("id_mco", $li_i);
$ls_comprobante = $ds_transito->getValue("comprobante", $li_i);
$ls_emicheproc = $ds_transito->getValue("emicheproc", $li_i);
$ls_emicheced = $ds_transito->getValue("emicheced", $li_i);
$ls_emichenom = $ds_transito->getValue("emichenom", $li_i);
$ls_emichefec = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("emichefec", $li_i), '1900-01-01');
$ls_estmovint = $ds_transito->getValue("estmovint", $li_i);
$ls_codusu = $ds_transito->getValue("codusu", $li_i);
$ls_codopeidb = $ds_transito->getValue("codopeidb", $li_i);
$ld_aliidbaux = $this->io_validacion->uf_valida_monto($ds_transito->getValue("aliidb", $li_i), 0);
$ld_aliidb = $ld_aliidbaux;
$ls_feccon = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("feccon", $li_i), '1900-01-01');
$ls_estreglib = $ds_transito->getValue("estreglib", $li_i);
$ls_numcarord = $ds_transito->getValue("numcarord", $li_i);
$ls_numpolcon = $ds_transito->getValue("numpolcon", $li_i);
$ls_coduniadmsig = $ds_transito->getValue("coduniadmsig", $li_i);
$ls_codbansig = $ds_transito->getValue("codbansig", $li_i);
$ls_fecordpagsig = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("fecordpagsig", $li_i), '1900-01-01');
$ls_tipdocressig = $ds_transito->getValue("tipdocressig", $li_i);
$ls_numdocressig = $ds_transito->getValue("numdocressig", $li_i);
$ls_estmodordpag = $ds_transito->getValue("estmodordpag", $li_i);
$ls_codfuefin = $ds_transito->getValue("codfuefin", $li_i);
$ls_forpagsig = $ds_transito->getValue("forpagsig", $li_i);
$ls_medpagsig = $ds_transito->getValue("medpagsig", $li_i);
$ls_codestprosig = $ds_transito->getValue("codestprosig", $li_i);
$ls_nrocontrolop = $ds_transito->getValue("nrocontrolop", $li_i);
$ls_fechaconta = $ds_transito->getValue("fechaconta", $li_i);
$ls_fechaconta = $this->io_validacion->uf_valida_fecha($ls_fechaconta, "1900-01-01");
$ls_fechaanula = $ds_transito->getValue("fechaanula", $li_i);
$ls_fechaanula = $this->io_validacion->uf_valida_fecha($ls_fechaanula, "1900-01-01");
$lb_existe = $this->uf_verificar_cuenta($ls_codban, $ls_ctaban);
$li_temp = 1;
if ($lb_existe === 1) {
$lb_existe = $this->uf_verificar_documento($ls_codban, $ls_ctaban, $ls_numdoc, $ls_codope);
if ($lb_existe === 1) {
array_push($la_indices_repetidos, $li_i);
} else {
$ls_sql = "INSERT INTO scb_movbco (codemp, codban, ctaban, numdoc, codope, estmov, cod_pro, ced_bene, \n\t\t\t\t\t\t tipo_destino, codconmov, fecmov, conmov, nomproben, monto, estbpd, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t estcon, estcobing, esttra, chevau, estimpche, monobjret, monret, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t procede, comprobante, fecha, id_mco, emicheproc, emicheced, emichenom, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t emichefec, estmovint, codusu, codopeidb, aliidb, feccon, estreglib, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t numcarord, numpolcon, coduniadmsig, codbansig, fecordpagsig, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t tipdocressig, numdocressig, estmodordpag, codfuefin, forpagsig, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t medpagsig, codestprosig, nrocontrolop, fechaconta, fechaanula) \n\t\t\t\t\t\t\t\t\t\t\t\t VALUES ('" . $ls_codemp . "','" . $ls_codban . "','" . $ls_ctaban . "','" . $ls_numdoc . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t '" . $ls_codope . "','L','" . $ls_codpro . "','" . $ls_cedbene . "','" . $ls_tipodestino . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_codconmov . "','" . $ls_fecmov . "','" . $ls_conmov . "','" . $ls_nomproben . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t" . $ld_monto . ",'D','" . $ls_estcon . "','" . $ls_estcobing . "','" . $ls_esttra . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_chevau . "','" . $ls_estimpche . "'," . $ld_monobjret . "," . $ld_monret . ",\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_procede . "','" . $ls_comprobante . "','" . $ls_fecha . "','" . $ls_id_mco . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_emicheproc . "','" . $ls_emicheced . "','" . $ls_emichenom . "','" . $ls_emichefec . "','" . $ls_estmovint . "',\n\t\t\t\t\t\t\t\t '" . $ls_codusu . "','" . $ls_codopeidb . "'," . $ld_aliidb . ",'" . $ls_feccon . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_estreglib . "','" . $ls_numcarord . "','" . $ls_numpolcon . "','" . $ls_coduniadmsig . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_codbansig . "','" . $ls_fecordpagsig . "','" . $ls_tipdocressig . "','" . $ls_numdocressig . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_estmodordpag . "','" . $ls_codfuefin . "','" . $ls_forpagsig . "','" . $ls_medpagsig . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_codestprosig . "','" . $ls_nrocontrolop . "','" . $ls_fechaconta . "','" . $ls_fechaanula . "')";
$li_row = $this->io_sql_destino->execute($ls_sql);
if ($li_row === false) {
$lb_valido = false;
$ls_cadena = "Error al Insertar apertura -Inserción de los movimientos en tránsito-.\r\n" . $this->io_sql_destino->message . "\r\n";
$ls_cadena = $ls_cadena . $ls_sql . "\r\n";
if ($this->lo_archivo) {
@fwrite($this->lo_archivo, $ls_cadena);
}
} else {
$lb_valido = true;
}
}
} else {
$lb_valido = false;
if ($lb_existe === 0) {
$ls_cadena = "La cuenta No. {$ls_ctaban} no existe en la nueva Base de Datos, Favor revise \r\n";
$ls_cadena = $ls_cadena . $ls_sql . "\r\n";
if ($this->lo_archivo) {
@fwrite($this->lo_archivo, $ls_cadena);
}
$this->io_mensajes->message("La cuenta No. {$as_ctaban} no existe en la nueva Base de Datos, Favor revise");
} else {
$this->io_mensajes->message("Error al buscar la cuenta");
}
}
}
}
//Fin de la inserción de los movimientos en transito.
//-------------Se insertan los movimientos de colocacion--------------------------------//
if ($lb_valido) {
$li_totrow = $ds_colocaciones->getRowCount("numcol");
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$ls_codban = $ds_colocaciones->getValue("codban", $li_i);
$ls_ctaban = $ds_colocaciones->getValue("ctaban", $li_i);
$ls_numcol = $ds_colocaciones->getValue("numcol", $li_i);
$ldec_saldo = $ds_colocaciones->getValue("saldo", $li_i);
$lb_existe = $this->uf_verificar_colocacion($ls_codban, $ls_ctaban, $ls_numcol);
if ($lb_existe === 1) {
if ($ldec_saldo >= 0) {
$ls_operacion = "NC";
} else {
$ls_operacion = "ND";
}
$ldec_saldoaux = abs($ldec_saldo);
$lb_existe = $this->uf_verificar_movimiento_colocacion($ls_codban, $ls_ctaban, $ls_numcol, "0000000APERTURA", $ls_operacion, "L");
if ($lb_existe === 0) {
$ldec_saldo = $ldec_saldoaux;
$ls_sql = "INSERT INTO scb_movcol\t(codemp,codban,ctaban,numcol,numdoc,codope,estcol,fecmovcol,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t monmovcol,tasmovcol,conmov,estcob,esttranf)\n\t\t\t\t\t\t\t\t\t\t\t\t VALUES ('{$ls_codemp}','{$ls_codban}','{$ls_ctaban}','{$ls_numcol}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t '0000000APERTURA','{$ls_operacion}','L','{$ad_periodoviejo}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t " . $ldec_saldo . ",0,'SALDO INICIAL DE LA COLOCACION',0,0)";
$li_row = $this->io_sql_destino->execute($ls_sql);
if ($li_row === false) {
$lb_valido = false;
$ls_cadena = "Error al Insertar apertura - Inserción de movimientos de colocación- .\r\n" . $this->io_sql_destino->message . "\r\n";
$ls_cadena = $ls_cadena . $ls_sql . "\r\n";
if ($this->lo_archivo) {
@fwrite($this->lo_archivo, $ls_cadena);
}
} else {
$lb_valido = true;
}
} else {
if ($lb_existe === 1) {
$lb_valido = true;
} else {
$lb_valido = false;
}
}
} else {
$lb_valido = false;
if ($lb_existe === 0) {
$ls_cadena = "La colocación No. {$ls_numcol} NO existe en la nueva Base de Datos, Favor revise \r\n";
$ls_cadena = $ls_cadena . $ls_sql . "\r\n";
if ($this->lo_archivo) {
@fwrite($this->lo_archivo, $ls_cadena);
}
$this->io_mensajes->message("La colocación No. {$ls_numcol} NO existe en la nueva Base de Datos, Favor revise");
} else {
$this->io_mensajes->message("Error al buscar la colocacion");
}
}
}
}
if ($lb_valido) {
$li_totrow = count($la_indices_repetidos);
if ($li_totrow > 0) {
$ls_fecha = date("Y_m_d_H_i");
$ls_nombre = "resultado/documentos_repetidos" . $ls_fecha . ".txt";
$lo_archivo2 = @fopen("{$ls_nombre}", "a+");
$this->io_mensajes->message("Se ha generado un archivo (documentos_repetidos.txt), el cual contiene los documentos que no se pueden traspasar, debido a que ya se encuentran registrados en la nueva Base de Datos.");
for ($li_i = 0; $li_i < $li_totrow; $li_i++) {
$li_indice = $la_indices_repetidos[$li_i];
$ls_numdoc = $ds_transito->getValue("numdoc", $li_indice);
$ls_cadena = "El Movimiento No. {$ls_numdoc} no pudo ser traspasado debido a que ya existía en la nueva Base de Datos \r\n\r\n";
if ($lo_archivo2) {
@fwrite($lo_archivo2, $ls_cadena);
}
}
}
@fwrite($this->lo_archivo, "Proceso ejecutado sin errores");
}
return $lb_valido;
}
if($lb_valido!=0)
{
$x = (count($la_disminucion, COUNT_RECURSIVE) / count($la_disminucion)) - 1;
for($li_i=1;$li_i<=$x;$li_i++)
{
$ld_totaldisminucion=$ld_totaldisminucion+$la_disminucion["monto"][$li_i];
}
}
$ld_totalvariacion=$ld_totalaumento-$ld_totaldisminucion;
$lb_valido=$io_contrato-> uf_select_contrato($ls_codcon,$la_contrato);
if ($lb_valido)
{
$io_datastore->data=$la_contrato;
$li_i=1;
$ls_codcon=$io_datastore->getValue("codcon",$li_i);
$ls_moncon=$io_funsob->uf_convertir_numerocadena($io_datastore->getValue("monto",$li_i));
}
$io_anticipo->uf_calcular_montoanticipo($ls_codcon,$ld_montototalanticipoaux);
$ld_montototalanticipo=$io_funsob->uf_convertir_numerocadena($ld_montototalanticipoaux);
$ld_montocontrato=$la_contrato["monto"][1];
$ld_montocontratofinal=$ld_montocontrato+$ld_totalvariacion;
$ld_montocontrato=$io_funsob->uf_convertir_numerocadena($ld_montocontrato);
$ld_montocontratofinal=$io_funsob->uf_convertir_numerocadena($ld_montocontratofinal);
$ld_monvar=$io_funsob->uf_convertir_numerocadena($ld_totalvariacion);
$lb_valido=$io_obra->uf_select_obra($io_datastore->getValue("codobr",$li_i),$la_obra);
if($lb_valido)
$ls_desobr=$la_obra["desobr"][1];
}
elseif($ls_operacion=="ue_guardar")
else
{
if($row=$io_sql->fetch_row($rs_datauni))
{
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td><a href=javascript:ue_ordenar('codtob','');><font color=#FFFFFF>Código</font></a></td>";
print "<td><a href=javascript:ue_ordenar('nomtob','');><font color=#FFFFFF>Nombre</font></a></td>";
$la_unidades=$io_sql->obtener_datos($rs_datauni);
$io_data->data=$la_unidades;
$totrow=$io_data->getRowCount("codtob");
for($z=1;$z<=$totrow;$z++)
{
print "<tr class=celdas-blancas>";
$codtob=$io_data->getValue("codtob",$z);
$nomtob=$io_data->getValue("nomtob",$z);
$destob=$io_data->getValue("destob",$z);
print "<td align=center><a href=\"javascript: aceptar('$codtob','$nomtob','$destob');\">".$codtob."</a></td>";
print "<td align=left>".$nomtob."</td>";
print "</tr>";
}
}
else
{
$io_msg->message("No se han creado Tipos de Obra");
}
}
print "</table>";
?>
}
else
{
$li_Nivel = 0 ;
}
}while( $li_Nivel >= 1);
$li_total = $lds_cuenta_temp->getRowCount("SC_cuenta");
if($li_total>0)
{
for($li_fila=1;$li_fila<=$li_total;$li_fila++)
{
$ls_cuenta = $lds_cuenta_temp->getValue("SC_cuenta",$li_fila);
$ls_denominacion= $lds_cuenta_temp->getValue("denominacion",$li_fila) ;
$ls_cuenta_ref = $lds_cuenta_temp->getValue("sc_cuenta_ref",$li_fila) ;
$li_Nivel = $lds_cuenta_temp->getValue("Nivel",$li_fila);
$ls_mensaje_error="Error en Guardar";
$ls_status = "S";
$int_scg->SQL->begin_transaction();
$lb_valido = $int_scg->uf_scg_insert_cuenta($is_codemp,$ls_cuenta,$ls_denominacion,$ls_status,$li_Nivel,$ls_cuenta_ref,$ls_mensaje_error);
if (!$lb_valido)
{
break;
}
}
}
function uf_print_cierrecuentas_cargo($ai_total,$as_cargarcargos,$as_tipo)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cierrecuentas_cargo
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// as_cargarcargos // Si cargamos los cargos ó solo pintamos
// as_tipo // Tipo de SEP si es de bienes ó de servicios
// Description: Método que imprime el grid de las cuentas presupuestarias de los cargos
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep,$la_cuentacargo,$li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,
$li_loncodestpro4,$li_loncodestpro5;
require_once("../../shared/class_folder/class_datastore.php");
$io_dscuentas=new class_datastore();
// Titulos el Grid
$lo_title[1]="Crédito";
$lo_title[2]="Estructura Presupuestaria";
$lo_title[3]="Cuenta";
$lo_title[4]="Monto";
//$lo_title[5]="";
$ls_codpro="";
// Recorrido del Grid de Cuentas Presupuestarias del Cargo
for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$ls_cargo= trim($io_funciones_sep->uf_obtenervalor("txtcodcar".$li_fila,""));
$li_moncue= $io_funciones_sep->uf_obtenervalor("txtmoncar".$li_fila,"");
$ls_cuenta= trim($io_funciones_sep->uf_obtenervalor("txtcodspgcre".$li_fila,""));
$ls_codpro= $io_funciones_sep->uf_obtenervalor("txtcodgascre".$li_fila,"");
$ls_estcla= $io_funciones_sep->uf_obtenervalor("txtstatuscre".$li_fila,"");
$li_moncue = str_replace(".","",$li_moncue);
$li_moncue = str_replace(",",".",$li_moncue);
$ls_codestpro1 = substr($ls_codpro,0,25);
$ls_codestpro2 = substr($ls_codpro,25,25);
$ls_codestpro3 = substr($ls_codpro,50,25);
$ls_codestpro4 = substr($ls_codpro,75,25);
$ls_codestpro5 = substr($ls_codpro,100,25);
if($ls_cuenta!="")
{
$valores["codcargo"]=$ls_cargo;
$valores["cuentacar"]=$ls_cuenta;
$valores["estcla"]=$ls_estcla;
$valores["codestpro1"]=$ls_codestpro1;
$valores["codestpro2"]=$ls_codestpro2;
$valores["codestpro3"]=$ls_codestpro3;
$valores["codestpro4"]=$ls_codestpro4;
$valores["codestpro5"]=$ls_codestpro5;
$ll_row_found=$io_dscuentas->findValues($valores,"codcargo") ;
if($ll_row_found>0)
{
$ldec_monto=0;
$ldec_monto=$io_dscuentas->getValue("moncuecar",$ll_row_found);
$ldec_monto=$ldec_monto + $li_moncue;
$io_dscuentas->updateRow("moncuecar",$ldec_monto,$ll_row_found);
}
else
{
$io_dscuentas->insertRow("codcargo",$ls_cargo);
$io_dscuentas->insertRow("codprocar",$ls_codpro);
$io_dscuentas->insertRow("cuentacar",$ls_cuenta);
$io_dscuentas->insertRow("moncuecar",$li_moncue);
$io_dscuentas->insertRow("estcla",$ls_estcla);
$io_dscuentas->insertRow("codestpro1",$ls_codestpro1);
$io_dscuentas->insertRow("codestpro2",$ls_codestpro2);
$io_dscuentas->insertRow("codestpro3",$ls_codestpro3);
$io_dscuentas->insertRow("codestpro4",$ls_codestpro4);
$io_dscuentas->insertRow("codestpro5",$ls_codestpro5);
}
}
}
if($as_cargarcargos=="1")
{ // si los cargos se deben cargar recorremos el arreglo de cuentas
// que se lleno con los cargos
$li_cuenta=count($la_cuentacargo)-1;
for($li_fila=1;($li_fila<=$li_cuenta);$li_fila++)
{
$ls_cargo = trim($la_cuentacargo[$li_fila]["cargo"]);
$ls_cuenta = trim($la_cuentacargo[$li_fila]["cuenta"]);
$ls_programatica = trim($la_cuentacargo[$li_fila]["programatica"]);
$ls_estcla = trim($la_cuentacargo[$li_fila]["estcla"]);
$li_moncue="0.00";
$ls_codestpro1 = substr($ls_programatica,0,25);
$ls_codestpro2 = substr($ls_programatica,25,25);
$ls_codestpro3 = substr($ls_programatica,50,25);
$ls_codestpro4 = substr($ls_programatica,75,25);
$ls_codestpro5 = substr($ls_programatica,100,25);
if($ls_cuenta!="")
{
$valores["codcargo"]=$ls_cargo;
$valores["cuentacar"]=$ls_cuenta;
$valores["estcla"]=$ls_estcla;
$valores["codestpro1"]=$ls_codestpro1;
$valores["codestpro2"]=$ls_codestpro2;
$valores["codestpro3"]=$ls_codestpro3;
$valores["codestpro4"]=$ls_codestpro4;
$valores["codestpro5"]=$ls_codestpro5;
$ll_row_found=$io_dscuentas->findValues($valores,"codcargo") ;
if($ll_row_found>0)
{
$ldec_monto=0;
$ldec_monto=$io_dscuentas->getValue("moncuecar",$ll_row_found);
$ldec_monto=$ldec_monto + $li_moncue;
$io_dscuentas->updateRow("moncuecar",$ldec_monto,$ll_row_found);
}
else
{
$io_dscuentas->insertRow("codcargo",$ls_cargo);
$io_dscuentas->insertRow("codprocar",$ls_programatica);
$io_dscuentas->insertRow("cuentacar",$ls_cuenta);
$io_dscuentas->insertRow("moncuecar",$li_moncue);
$io_dscuentas->insertRow("estcla",$ls_estcla);
$io_dscuentas->insertRow("codestpro1",$ls_codestpro1);
$io_dscuentas->insertRow("codestpro2",$ls_codestpro2);
$io_dscuentas->insertRow("codestpro3",$ls_codestpro3);
$io_dscuentas->insertRow("codestpro4",$ls_codestpro4);
$io_dscuentas->insertRow("codestpro5",$ls_codestpro5);
}
}
}
}
// Agrupamos las cuentas por programatica y cuenta
//$io_dscuentas->group_by(array('0'=>'codcargo','1'=>'codprocar','2'=>'cuentacar','3'=>'estcla'),array('0'=>'moncuecar'),'moncuecar');
$io_dscuentas->group_by(array('0'=>'codcargo','1'=>'codestpro1','2'=>'codestpro2','3'=>'codestpro3','4'=>'codestpro4','5'=>'codestpro5',
'6'=>'estcla','7'=>'cuentacar'),array('0'=>'moncuecar'),'moncuecar');
$li_total=$io_dscuentas->getRowCount('codcargo');
//print_r($io_dscuentas->data);
// Recorremos el data stored de cuentas que se lleno y se agrupo anteriormente
for($li_fila=1;$li_fila<=$li_total;$li_fila++)
{
$ls_cargo = $io_dscuentas->getValue('codcargo',$li_fila);
$ls_codpro = $io_dscuentas->getValue('codprocar',$li_fila);
$ls_cuenta = $io_dscuentas->getValue('cuentacar',$li_fila);
$li_moncue = number_format($io_dscuentas->getValue('moncuecar',$li_fila),2,",",".");
$ls_codestpro = "";
if (!empty($ls_codpro))
{
$ls_codestpro1 = substr($ls_codpro,0,25);
$ls_codestpro2 = substr($ls_codpro,25,25);
$ls_codestpro3 = substr($ls_codpro,50,25);
$ls_codestpro4 = substr($ls_codpro,75,25);
$ls_codestpro5 = substr($ls_codpro,100,25);
$ls_codestpro1 = substr($ls_codestpro1,-$li_loncodestpro1);
$ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
$ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
$ls_codestpro = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
}
if ($li_estmodest==2)
{
if (!empty($ls_codpro))
{
$ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
$ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
$ls_codestpro = $ls_codestpro.'-'.$ls_codestpro4.'-'.$ls_codestpro5;
}
}
$ls_estcla = $io_dscuentas->getValue('estcla',$li_fila);
if($ls_cuenta!="")
{
$lo_object[$li_fila][1]="<input name=txtcodcargo".$li_fila." type=text id=txtcodcargo".$li_fila." class=sin-borde style=text-align:center size=12 value='".$ls_cargo."' readonly>";
$lo_object[$li_fila][2]="<input name=txtprogramaticacar".$li_fila." type=text id=txtprogramaticacar".$li_fila." class=sin-borde style=text-align:center size=75 value='".$ls_codestpro."' readonly>";
$lo_object[$li_fila][3]="<input name=txtcuentacar".$li_fila." type=text id=txtcuentacar".$li_fila." class=sin-borde style=text-align:center size=25 value='".$ls_cuenta."' readonly>";
$lo_object[$li_fila][4]="<input name=txtmoncuecar".$li_fila." type=text id=txtmoncuecar".$li_fila." class=sin-borde style=text-align:right size=25 onKeyPress=return(ue_formatonumero(this,'.',',',event)); value='".$li_moncue."' readonly>".
"<input name=txtcodprocar".$li_fila." type=hidden id=txtcodprocar".$li_fila." value='".$ls_codpro."'>".
"<input name=estclacar".$li_fila." type=hidden id=estclacar".$li_fila." value='".$ls_estcla."'>";
// $lo_object[$li_fila][5]="<a href=javascript:ue_delete_cuenta_cargo('".$li_fila."','".$as_tipo."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>".
}
}
$ai_total=$li_total+1;
$lo_object[$ai_total][1]="<input name=txtcodcargo".$ai_total." type=text id=txtcodcargo".$ai_total." class=sin-borde style=text-align:center size=12 value='' readonly>";
$lo_object[$ai_total][2]="<input name=txtprogramaticacar".$ai_total." type=text id=txtprogramaticacar".$ai_total." class=sin-borde style=text-align:center size=75 value='' readonly>";
$lo_object[$ai_total][3]="<input name=txtcuentacar".$ai_total." type=text id=txtcuentacar".$ai_total." class=sin-borde style=text-align:center size=25 value='' readonly>";
$lo_object[$ai_total][4]="<input name=txtmoncuecar".$ai_total." type=text id=txtmoncuecar".$ai_total." class=sin-borde style=text-align:right size=25 value='' readonly>";
$lo_object[$ai_total][5]="<input name=txtcodprocar".$ai_total." type=hidden id=txtcodprocar".$ai_total." value=''><input name=estclacar".$li_fila." type=hidden id=estclacar".$li_fila." value=''>";
print "<p> </p>";
print " <table width='840' border='0' align='center' cellpadding='0' cellspacing='0'";
print " <tr>";
//print " <td align='left'><a href='javascript:ue_catalogo_cuentas_cargos();'><img src='../shared/imagebank/tools/nuevo.gif' width='20' height='20' border='0' title='Agregar Cuenta'>Agregar Cuenta Otros Créditos</a> </td>";
print " </tr>";
print " </table>";
$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Cuentas Otros Créditos","gridcuentascargos");
unset($io_dscuentas);
}// end function uf_print_cuentas_cargo
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>";
}
}
$ldec_monto = $ds_dt_scg->data["monto"][$li_s];
if ($ls_debhab=='D')
{
$ldec_mondeb = number_format($ldec_monto,2,",",".");
$ldec_monhab = "";
}
else
{
$ldec_monhab = number_format($ldec_monto,2,",",".");
$ldec_mondeb = "";
}
if (array_key_exists("spg_cuenta",$ds_dt_spg->data))
{
if (array_key_exists($li_s,$ds_dt_spg->data["spg_cuenta"]))
{
$ls_cuentaspg = trim($ds_dt_spg->getValue("spg_cuenta",$li_s));
$ls_estpro = $ds_dt_spg->getValue("estpro",$li_s);
$ldec_monto_spg = number_format($ds_dt_spg->getValue("monto",$li_s),2,",",".");
}
else
{
$ls_cuentaspg = "";
$ls_estpro = "";
$ldec_monto_spg = "";
}
}
else
{
$ls_cuentaspg = "";
$ls_estpro = "";
$ldec_monto_spg = "";
<script language=javascript>
alert('No hay datos a reportar');
close();
</script>
<?php
exit();
}
$io_pdf=new Cezpdf('LETTER','portrait'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(3.5,3.5,3.5,3.5); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina("Estado de Cuenta (Colocaciones)","Del $ld_fecdesde al $ld_fechasta",$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$ldec_saldoactual=$ldec_saldoant+$ldec_total_debe-$ldec_total_haber;
$ldec_saldo=$ldec_saldoant;
$ldec_saldoant=number_format($ldec_saldoant,2,",",".");
$ls_nomban=$ds_edocta->getValue("nomban",1);
$ls_nomtipcta=$ds_edocta->getValue("nomtipcta",1);
uf_print_cabecera($ls_nomban,$ls_ctaban,$ls_nomtipcta,$ldec_saldoant,$io_pdf); // Imprimimos la cabecera del registro
$li_pos=0;
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
$io_pdf->transaction('start'); // Iniciamos la transacción
$thisPageNum=$io_pdf->ezPageCount;
$li_totprenom=0;
$ldec_mondeb=0;
$ldec_monhab=0;
$li_totant=0;
$li_pos=$li_pos+1;
//unset($la_data);
$ls_numdoc=$ds_edocta->getValue("numdoc",$li_i);
$ls_codban=$ds_edocta->getValue("codban",$li_i);
$io_valuacion->uf_select_variaciones($ls_codcon,&$ld_dis,2);
$ls_desobr=$la_contrato["desobr"][1];
$ls_puncue=$la_contrato["codasi"][1];
$ls_estcon=$io_funcsob->uf_convertir_numeroestado ($la_contrato["estcon"][1]);
$ls_moncon=$la_contrato["monto"][1];
$ls_feccon=$io_function->uf_convertirfecmostrar($la_contrato["feccon"][1]);
$ls_totcon=$la_contrato["monto"][1]+$ld_aum+$ld_dis;
$lb_validop=$io_valuacion->uf_select_partidasasignadas($ls_codcon,&$la_partidas,&$li_totalfilas);
if($lb_validop)
{
$io_datastore->data=$la_partidas;
$li_filaspartidas=$io_datastore->getRowCount("codpar");
for($li_i=1;$li_i<=$li_filaspartidas;$li_i++)
{
$ls_codigo=$io_datastore->getValue("codpar",$li_i);
$ls_nombre=$io_datastore->getValue("nompar",$li_i);
$ls_unidad=$io_datastore->getValue("nomuni",$li_i);
$ls_preuni=$io_datastore->getValue("prerefparasi",$li_i);
$ls_preunimod=$io_datastore->getValue("preparasi",$li_i);
$ls_canttot=$io_datastore->getValue("canxeje",$li_i);
$ls_canpareje=$io_datastore->getValue("canasipareje",$li_i);
$ls_codasi=$io_datastore->getValue("codasi",$li_i);
$ls_codobr=$io_datastore->getValue("codobr",$li_i);
$la_objectpartidas[$li_i][1]="<input type=checkbox name=flagpar".$li_i." value=1 class=sin-borde>";
$la_objectpartidas[$li_i][2]="<input name=txtcodpar".$li_i." type=text id=txtcodpar".$li_i." value='".$ls_codigo."' class=sin-borde style= text-align:center size=8 readonly><input name=canpareje".$li_i." type=hidden id=canpareje".$li_i." value='".$ls_canpareje."'><input name=codasi".$li_i." type=hidden id=codasi".$li_i." value='".$ls_codasi."'><input name=codobr".$li_i." type=hidden id=codobr".$li_i." value='".$ls_codobr."'>";
$la_objectpartidas[$li_i][3]="<input name=txtnompar".$li_i." type=text id=txtnompar".$li_i." value='".$ls_nombre."' class=sin-borde style= text-align:left size=25 readonly>";
$la_objectpartidas[$li_i][4]="<input name=txtnomuni".$li_i." type=text id=txtnomuni".$li_i." value='".$ls_unidad."' class=sin-borde size=5 style= text-align:center readonly>";
$la_objectpartidas[$li_i][5]="<input name=txtpreuni".$li_i." type=text id=txtpreuni".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preuni)."' class=sin-borde size=15 style= text-align:center readonly>";
$la_objectpartidas[$li_i][6]="<input name=txtpreunimod".$li_i." type=text id=txtpreunimod".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preunimod)."' class=sin-borde size=15 style= text-align:center readonly>";
$la_objectpartidas[$li_i][7]="<input name=txtcanttot".$li_i." type=text id=txtcanttot".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_canttot)."' class=sin-borde size=5 style= text-align:center readonly>";
$io_pdf->ezSetCmMargins(6,3.5,3.5,3.5); // Configuración de los margenes en centímetros
$ls_nomtipcta = $io_report->uf_select_data($io_sql,"SELECT * FROM scb_tipocuenta t, scb_ctabanco c WHERE c.codemp='".$ls_codemp."' AND c.ctaban='".$ls_ctaban."' AND c.codtipcta=t.codtipcta ","nomtipcta");
$ldec_saldoactual = ($ldec_saldoant+$ldec_total_debe-$ldec_total_haber);
$ldec_saldo = $ldec_saldoant;
$ldec_saldoant = number_format($ldec_saldoant,2,",",".");
uf_print_encabezado_pagina("<b>Libro de Banco $ls_tipbol</b>","<b>Del</b> $ld_fecdesde <b>al</b> $ld_fechasta",$ls_nomban,$ls_nomtipcta,$ls_ctaban,$ls_denctaban,$ldec_saldoant,$ls_desconmov,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(720,50,10,'','',1); // Insertar el número de página
uf_print_cabecera($li_totrows,$io_pdf); // Imprimimos la cabecera del registro
$li_estmodest = $_SESSION["la_empresa"]["estmodest"];
if ($li_totrows>0)
{
for ($li_i=1;$li_i<=$li_totrows;$li_i++)
{
$io_pdf->transaction('start'); // Iniciamos la transacción
$thisPageNum = $io_pdf->ezPageCount;
$ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_edocta->getValue("fecmov",$li_i));
$ls_operacion = $ds_edocta->getValue("operacion",$li_i);
$ls_numdoc = $ds_edocta->getValue("numdoc",$li_i);
$ls_nomproben = $ds_edocta->getValue("beneficiario",$li_i);
$ls_region = $ds_edocta->getValue("region",$li_i);
if ($ls_region=='---seleccione---')
{
$ls_region = "";
}
$ls_codestpro = $ds_edocta->getValue("codestpro",$li_i);
if ($li_estmodest=='1')
{
$ls_codestpro1 = substr($ls_codestpro,0,20);
$ls_codestpro2 = substr($ls_codestpro,20,6);
$ls_codestpro3 = substr($ls_codestpro,26,3);
$ls_codestpro = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
$sel_N="selected";
}
uf_cargar_procedencias($SQL);
$li_rowcount=$ds_procedencias->getRowCount("procede");
?>
<td width="78" align="right"> Procedencia </td>
<td align="left" width="118">
<select name="procede" id="procede">
<option value="N" "<? print $sel_N?>" >Ninguno</option>
<?php
for($li_i=1;$li_i<=$li_rowcount;$li_i++)
{
$ls_procede=$ds_procedencias->getValue("procede",$li_i);
if($ls_procede_ant==$ls_procede)
{
?>
<option value="<? print $ls_procede?>" selected><? print $ls_procede?></option>
<?php
}
else
{
?>
<option value="<? print $ls_procede?>"><? print $ls_procede?></option>
<?php
}
}
?>
</select>
$int_spg->uf_init_niveles();
$arr_spg=$int_spg->ia_niveles_spg;
function uf_obtener_seccion_cuenta($ls_spg_cuenta,$desde,$hasta)
{
$ls_seccion="";
for($li=$desde;$li<=$hasta;$li++)
{
$ls_seccion=$ls_seccion.$ls_spg_cuenta{$li};
}
return $ls_seccion;
}
for($li_i=0;$li_i<$li_totrow;$li_i++)
{
$li_row=$li_i+1;
$la_data[$li_i]["ae"]=substr($ds_dt_spg->getValue("estpro",$li_row),20,6);
$la_data[$li_i]["uel"]=$ds_dt_spg->getValue("coduniadm",$li_row);
$ls_spg_cuenta=$ds_dt_spg->getValue("spg_cuenta",$li_row);
$li_len=strlen($ls_spg_cuenta);
$la_data[$li_i]["pa"]=uf_obtener_seccion_cuenta($ls_spg_cuenta,0,$arr_spg[1]);
$la_data[$li_i]["ge"]=uf_obtener_seccion_cuenta($ls_spg_cuenta,$arr_spg[1]+1,$arr_spg[2]);
$la_data[$li_i]["es"]=uf_obtener_seccion_cuenta($ls_spg_cuenta,$arr_spg[2]+1,$arr_spg[3]);
$la_data[$li_i]["se"]=uf_obtener_seccion_cuenta($ls_spg_cuenta,$arr_spg[3]+1,$arr_spg[4]);
$la_data[$li_i]["denominacion"]=$ds_dt_spg->getValue("denominacion",$li_row);
$la_data[$li_i]["monto"]=number_format($ds_dt_spg->getValue("monto",$li_row),2,",",".");
}
$la_anchos_col = array(8,13,4,4,4,8.04,93,31.7);
$la_indices_claves=array("ae","uel","pa","ge","es","se","denominacion","monto");
$la_filasusadas=$io_pdf->obtener_lineas_por_fila(6,$la_anchos_col,$la_data,$la_indices_claves,0);
$li_totalfilasusadas=array_sum($la_filasusadas);
if($li_totalfilasusadas<($li_maxfilas*2))
function uf_select_cmp_ret($as_numcom,$as_codret,&$object,&$li_total_rows)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_dt_cmp_ret
// Description: - Metodo que se encarga de seleccionar los detalles de un comprobante de retencion y los retorna en
// un arreglo de Objects que sera enviado a la clase grid_param.
// Arguments: - $as_numcom: - Numero del comprobante de retenci�n a buscar.
// - $as_codret: - Codigo de la Retenci� a buscar.
// - $object: - Arreglo de object que se retorna como referencia, lleno con los detalles del
// comprobante en caso de poseer.
// - $li_total_rows - Total de filas retornadas en la consulta.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$ds_temp=new class_datastore();
$li_total_rows=0;
$ls_codemp=$this->dat_emp["codemp"];
$ls_sql="SELECT codemp, codret, numcom, numope, fecfac, numfac, numcon, numnd, numnc,
tiptrans, totcmp_sin_iva, totcmp_con_iva, basimp, porimp, totimp,
iva_ret, desope, numsop, codban, ctaban, numdoc, codope
FROM scb_dt_cmp_ret
WHERE codemp='".$ls_codemp."' AND numcom='".$as_numcom."' AND codret='".$as_codret."'";
$rs_result=$this->io_sql->select($ls_sql);
if($rs_result===false)
{
$this->is_msg_error="Error en uf_cargar_dt_cmp_ret, ".$this->io_function->uf_convertirmsg($this->io_sql->message);
$lb_valido=false;
}
else
{
if($row=$this->io_sql->fetch_row($rs_result))
{
$ds_temp->data=$this->io_sql->obtener_datos($rs_result);
$li_total_rows=$ds_temp->getRowCount("numcom");
for($li_i=1;$li_i<=$li_total_rows;$li_i++)
{
$ls_numope = $ds_temp->getValue("numope",$li_i);
$ls_numfac = $ds_temp->getValue("numfac",$li_i);
$ls_numcon = $ds_temp->getValue("numcon",$li_i);
$ld_fecfac = $ds_temp->getValue("fecfac",$li_i);
$ld_fecfac = $this->io_function->uf_convertirfecmostrar($ld_fecfac);
$ldec_totalsiniva= $ds_temp->getValue("totcmp_sin_iva",$li_i);
$ldec_totalconiva= $ds_temp->getValue("totcmp_con_iva",$li_i);
$ldec_baseimp = $ds_temp->getValue("basimp",$li_i);
$ldec_porimp = $ds_temp->getValue("porimp",$li_i);
$ldec_totimp = $ds_temp->getValue("totimp",$li_i);
$ldec_ivaret = $ds_temp->getValue("iva_ret",$li_i);
$ls_numdoc = $ds_temp->getValue("numdoc",$li_i);
$ldec_totalsiniva = number_format($ldec_totalsiniva,2,",",".");
$ldec_totalconiva = number_format($ldec_totalconiva,2,",",".");
$ldec_baseimp = number_format($ldec_baseimp,2,",",".");
$ldec_porimp = number_format($ldec_porimp,2,",",".");
$ldec_totimp = number_format($ldec_totimp,2,",",".");
$ldec_ivaret = number_format($ldec_ivaret,2,",",".");
$object[$li_i][1] = "<input type=text name=txtnumope".$li_i." value='$ls_numope' style=text-align:center class=sin-borde size=15 readonly>";
$object[$li_i][2] = "<input type=text name=txtnumfac".$li_i." value='$ls_numfac' style=text-align:center class=sin-borde size=16 readonly>";
$object[$li_i][3] = "<input type=text name=txtnrocon".$li_i." value='$ls_numcon' style=text-align:center class=sin-borde size=16 readonly>";
$object[$li_i][4] = "<input type=text name=txtfecfac".$li_i." value='$ld_fecfac' style=text-align:center class=sin-borde size=13 readonly>";
$object[$li_i][5] = "<input type=text name=txtsiniva".$li_i." value='$ldec_totalsiniva' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][6] = "<input type=text name=txtconiva".$li_i." value='$ldec_totalconiva' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][7] = "<input type=text name=txtbasimp".$li_i." value='$ldec_baseimp' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][8] = "<input type=text name=txtporiva".$li_i." value='$ldec_porimp' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) <a href=javascript:uf_iva(".$li_i.");><img src=../shared/imagebank/tools15/buscar.gif width=15 height=15 border=0></a>";
$object[$li_i][9] = "<input type=text name=txttotimp".$li_i." value='$ldec_totimp' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][10] = "<input type=text name=txtivaret".$li_i." value='$ldec_ivaret' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][11]= "<input type=text name=txtnumdoc".$li_i." value='$ls_numdoc' style=text-align:right class=sin-borde size=16 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][12]= "<a href=javascript:uf_delete_dt('$ls_numope','$ls_numfac');><img src=../shared/imagebank/tools15/eliminar.gif alt='Eliminar Retencion' width=15 height=10 border=0></a><input type=hidden name=hidforcar".$li_i." value=''><input type=hidden name=hidcodded".$li_i." value=''><input type=hidden name=hidforded".$li_i." value=''>";
}
}
}
}
function uf_select_cmp_ret($as_numcom,$as_codret,&$object,&$li_total_rows)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//
// Function: uf_cargar_dt_cmp_ret
//
// Description: - Metodo que se encarga de seleccionar los detalles de un comprobante de retencion y los retorna en
// un arreglo de Objects que sera enviado a la clase grid_param.
//
// Arguments: - $as_numcom: - Numero del comprobante de retenciónn a buscar.
// - $as_codret: - Codigo de la Retención a buscar.
// - $object: - Arreglo de object que se retorna como referencia, lleno con los detalles del
// comprobante en caso de poseer.
// - $li_total_rows - Total de filas retornadas en la consulta.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$ds_temp=new class_datastore();
$li_total_rows=0;
$ls_codemp=$this->dat_emp["codemp"];
$ls_origen=$this->uf_select_origen($as_codret,$as_numcom);
$ls_sql="SELECT codemp, codret, numcom, numope, fecfac, numfac, numcon, numnd,
numnc, tiptrans, totcmp_sin_iva, totcmp_con_iva, basimp, porimp, totimp,
iva_ret, desope, numsop, codban, ctaban, numdoc, codope
FROM scb_dt_cmp_ret
WHERE codemp='".$ls_codemp."' AND numcom='".$as_numcom."' AND codret='".$as_codret."'";
// print $ls_sql;
$rs_result=$this->io_sql->select($ls_sql);
if($rs_result===false)
{
$this->is_msg_error="Error en uf_cargar_dt_cmp_ret, ".$this->io_function->uf_convertirmsg($this->io_sql->message);
$lb_valido=false;
}
else
{
if($row=$this->io_sql->fetch_row($rs_result))
{
$ds_temp->data=$this->io_sql->obtener_datos($rs_result);
//print_r($ds_temp->data);
$li_total_rows=$ds_temp->getRowCount("numcom");
for($li_i=1;$li_i<=$li_total_rows;$li_i++)
{
$ls_numope = $ds_temp->getValue("numope",$li_i);
$ls_numfac = $ds_temp->getValue("numfac",$li_i);
$ld_fecfac = $ds_temp->getValue("fecfac",$li_i);
$ld_fecfac = $this->io_function->uf_convertirfecmostrar($ld_fecfac);
$ldec_totalsiniva= $ds_temp->getValue("totcmp_sin_iva",$li_i);
$ldec_totalconiva= $ds_temp->getValue("totcmp_con_iva",$li_i);
$ldec_baseimp = $ds_temp->getValue("basimp",$li_i);
$ldec_porimp = $ds_temp->getValue("porimp",$li_i);
$ldec_totimp = $ds_temp->getValue("totimp",$li_i);
$ldec_ivaret = $ds_temp->getValue("iva_ret",$li_i);
$ls_numdoc = $ds_temp->getValue("numdoc",$li_i);
//print "origen '".$ls_origen."'";
if($ls_origen=='M')
$object[$li_i][1] = "<a href=\"javascript:aceptar('$as_numcom','$as_codret','$ls_numope','$ls_numfac');\">".$ls_numope."</a>";
elseif($ls_origen=='A')
$object[$li_i][1] = $ls_numope;
$object[$li_i][2] = $ls_numfac;
$object[$li_i][3] = $ld_fecfac;
$object[$li_i][4] = number_format($ldec_totalsiniva,2,",",".");
$object[$li_i][5] = number_format($ldec_totalconiva,2,",",".");
$object[$li_i][6] = number_format($ldec_baseimp,2,",",".");
$object[$li_i][7] = number_format($ldec_porimp,2,",",".");
$object[$li_i][8] = number_format($ldec_totimp,2,",",".");
$object[$li_i][9] = number_format($ldec_ivaret,2,",",".");
$object[$li_i][10]= $ls_numdoc;
$object[$li_i][11]= "<div align=center><a href=javascript:uf_delete_dt('$ls_numope','$ls_numfac');><img src=../shared/imagebank/tools15/eliminar.gif alt='Eliminar Retención' width=15 height=15 border=0></a></div>";
}
}
}
}
function uf_calcular($data,$ls_mesano)
{
$ds_mov=new class_datastore();
$ds_mov->data=$data;
$li_total=$ds_mov->getRowCount("numdoc");
$ldec_CreditosTmp=0;
$ldec_CreditosTmpNeg=0;
$ldec_DebitosTmp=0;
$ldec_DebitosTmpNeg=0;
for($li_i=1;$li_i<=$li_total;$li_i++)
{
$ls_codope=$ds_mov->getValue("codope",$li_i);
$ls_estmov=$ds_mov->getValue("estmov",$li_i);
$ldec_monto=$ds_mov->getValue("monto",$li_i);
if((($ls_codope=='CH')||($ls_codope=='ND')||($ls_codope=='RE'))&&($ls_estmov<>'A'))
{
$ldec_CreditosTmp=$ldec_CreditosTmp+$ldec_monto;
}
if((($ls_codope=='CH')||($ls_codope=='ND')||($ls_codope=='RE'))&&($ls_estmov=='A'))
{
$ldec_CreditosTmpNeg=$ldec_CreditosTmpNeg+$ldec_monto;
}
if((($ls_codope=='DP')||($ls_codope=='NC'))&&($ls_estmov<>'A'))
{
$ldec_DebitosTmp=$ldec_DebitosTmp+$ldec_monto;
}
if((($ls_codope=='DP')||($ls_codope=='NC'))&&($ls_estmov=='A'))
{
$ldec_DebitosTmpNeg=$ldec_DebitosTmpNeg+$ldec_monto;
}
}
$ldec_DebitosAnt = $ldec_DebitosTmp-$ldec_DebitosTmpNeg;
$ldec_CreditosAnt = $ldec_CreditosTmp-$ldec_CreditosTmpNeg;
$ldec_SaldoAnterior = $ldec_DebitosAnt - $ldec_CreditosAnt;
return round($ldec_SaldoAnterior,2);
}
$io_msg->message("La Obra seleccionada ya fue asignada en su totalidad!!");
}
if (!empty ($ls_ptocueasi))
{
$ls_readonly="readonly";
}
$lb_validop=$io_asignacion->uf_select_partidasobra($ls_codobrasi,&$la_partidas,&$li_totalfilas);
if($lb_validop)
{
$io_datastore->data=$la_partidas;
$li_filaspartidas=$io_datastore->getRowCount("codpar");
for($li_i=1;$li_i<=$li_filaspartidas;$li_i++)
{
$ls_codigo=$io_datastore->getValue("codpar",$li_i);
$ls_nombre=$io_datastore->getValue("nompar",$li_i);
$ls_unidad=$io_datastore->getValue("nomuni",$li_i);
$ls_preuni=$io_datastore->getValue("prepar",$li_i);
$ls_canttot=$io_datastore->getValue("canxeje",$li_i);
$ls_canpareje=$io_datastore->getValue("canparasi",$li_i);
$la_objectpartidas[$li_i][1]="<input type=checkbox name=flagpar".$li_i." value=1 class=sin-borde>";
$la_objectpartidas[$li_i][2]="<input name=txtcodpar".$li_i." type=text id=txtcodpar".$li_i." value='".$ls_codigo."' class=sin-borde style= text-align:center size=8 readonly><input name=canpareje".$li_i." type=hidden id=canpareje".$li_i." value='".$ls_canpareje."'>";
$la_objectpartidas[$li_i][3]="<input name=txtnompar".$li_i." type=text id=txtnompar".$li_i." value='".$ls_nombre."' class=sin-borde style= text-align:left size=25 readonly>";
$la_objectpartidas[$li_i][4]="<input name=txtnomuni".$li_i." type=text id=txtnomuni".$li_i." value='".$ls_unidad."' class=sin-borde size=5 style= text-align:center readonly>";
$la_objectpartidas[$li_i][5]="<input name=txtpreuni".$li_i." type=text id=txtpreuni".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preuni)."' class=sin-borde size=15 style= text-align:center readonly>";
$la_objectpartidas[$li_i][6]="<input name=txtpreunimod".$li_i." type=text id=txtpreunimod".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preuni)."' class=sin-borde size=15 style= text-align:center onKeyPress=return(currencyFormat(this,'.',',',event))>";
$la_objectpartidas[$li_i][7]="<input name=txtcanttot".$li_i." type=text id=txtcanttot".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_canttot)."' class=sin-borde size=5 style= text-align:center readonly>";
$la_objectpartidas[$li_i][8]="<input name=txtcantpar".$li_i." type=text id=txtcantpar".$li_i." class=sin-borde size=5 style= text-align:center onKeyPress=return(currencyFormat(this,'.',',',event)) $ls_readonly>";
$la_objectpartidas[$li_i][9]="<input name=txttotal".$li_i." type=text id=txttotal".$li_i." class=sin-borde size=15 style= text-align:center readonly>";
if($ls_canttot==0)
$msg->message("Error al cargar los datos");
}
}//if($ls_cod_report==0409")
}//($li_rtn>0)
elseif(($lb_valido)&&($ai_cuantos>0))
{
$rs_cta=$iscg_procesos->uf_select_datastore_trim( $ls_codemp, $ls_cod_report );
$data=$SQL->obtener_datos($rs_cta);
$ds_proaf=new class_datastore();
$ds_proaf->data=$data;
$li_num=$ds_proaf->getRowCount("cod_report");
for($i=1;$i<=$li_num;$i++)
{
$ls_status=$ds_proaf->getValue("status",$i);
if($ls_status=="C")
{
?>
<tr class="celdas-azules">
<td ><a href="javascript: aceptar('<?php print $ds_proaf->getValue("asignado",$i);?>','<?php print $ds_proaf->getValue("sc_cuenta",$i);?>','<?php print $i?>','<?php print $li_num?>','<?php print $ls_status ?>');"><?php print $ds_proaf->getValue("sc_cuenta",$i);?></a></td>
<?php
}
elseif($ls_status=="S")
{
?>
<tr class="celdas-blancas">
<td ><a href="javascript: aceptar('<?php print $ds_proaf->getValue("asignado",$i);?>','<?php print $ds_proaf->getValue("sc_cuenta",$i);?>','<?php print $i?>','<?php print $li_num?>','<?php print $ls_status ?>');"><?php print $ds_proaf->getValue("sc_cuenta",$i);?></a></td>
<?php
}
elseif($ls_status=="I")
{
$msg->message("Los datos fueron cargados");
$rs_cta=$iscg_procesos->uf_select_scg_datastore( $ls_codemp, $ls_cod_report );
$data=$SQL->obtener_datos($rs_cta);
$ds_prorep=new class_datastore();
$ds_prorep->data=$data;
$li_num=$ds_prorep->getRowCount("cod_report");
for($i=1;$i<=$li_num;$i++)
{
$ls_status=$data["status"][$i];
if($ls_status=="S")
{
?>
<tr class="celdas-azules">
<td ><a href="javascript: aceptar('<?php print $ds_prorep->getValue("asignado",$i);?>','<?php print $ds_prorep->getValue("sc_cuenta",$i);?>','<?php print $i?>','<?php print $li_num?>','<?php print $ls_status ?>');"><?php print $ds_prorep->getValue("sc_cuenta",$i);?></a></td>
<?php
}
elseif($ls_status=="C")
{
?>
<tr class="celdas-blancas">
<td ><a href="javascript: aceptar('<?php print $ds_prorep->getValue("asignado",$i);?>','<?php print $ds_prorep->getValue("sc_cuenta",$i);?>','<?php print $i?>','<?php print $li_num?>','<?php print $ls_status ?>');"><?php print $ds_prorep->getValue("sc_cuenta",$i);?></a></td>
<?php
}
elseif($ls_status=="I")
{
?>
<tr class="celdas-amarillas">
<td height="20"><?php print $ds_prorep->getValue("sc_cuenta",$i)?></td>
<?php
