makegrid($li_total,$title,$object,800,' PROGRAMACION DE REPORTES TRIMESTRAL',$ls_nombre);
}//$ls_operacion == ""
if ($ls_operacion == "RECARGAR")
{
$ls_codrep=$_POST["cmbrep"];
if(($ls_codrep=='00005')||($ls_codrep=='0714'))
{
$ls_codestpro1="00000000000000000000";
$ls_codestpro2="000000";
$ls_codestpro3="000";
}
else
{
$ls_codestpro1=$_POST["codestpro1"];
$ls_codestpro2=$_POST["codestpro2"];
$ls_codestpro3=$_POST["codestpro3"];
}
$li_estmodest = $la_empresa["estmodest"];
if($li_estmodest==1)
{
$ls_codestpro4="00";
$ls_codestpro5="00";
}
else
{
$ls_codestpro4=$_POST["codestpro4"];
$ls_codestpro5=$_POST["codestpro5"];
}
$lb_valido=$io_class_progrep->uf_prog_report_load_original($ls_codrep,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$la_seguridad);
if(($lb_valido)&&($ls_codrep=='0714'))
{
$lb_valido=$io_class_progrep->uf_prog_report_load_data_0714($ls_codrep,$la_seguridad);
}
$li_total=0;
$object="";
$io_class_grid->makegrid($li_total,$title,$object,800,' PROGRAMACION DE REPORTES ',$ls_nombre);
}//operacion=="RECARGAR"
if ($ls_operacion=="CARGAR" )
{
$la_empresa = $_SESSION["la_empresa"];
$ls_codrep=$_POST["cmbrep"];
if(($ls_codrep=='00005')||($ls_codrep=='0714'))
{
$ls_codestpro1="00000000000000000000";
$ls_codestpro2="000000";
$ls_codestpro3="000";
}
else
{
$ls_codestpro1=$_POST["codestpro1"];
$ls_codestpro2=$_POST["codestpro2"];
$ls_codestpro3=$_POST["codestpro3"];
}
$li_estmodest = $la_empresa["estmodest"];
if($li_estmodest==1)
{
$ls_codestpro4="00";
$ls_codestpro5="00";
}
else
{
$ls_codestpro4=$_POST["codestpro4"];
$ls_codestpro5=$_POST["codestpro5"];
}
$ls_modrep=3;
$rs_load=$io_class_progrep->uf_prog_report_load_data($ls_codrep,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_modrep);
if($row=$io_sql->fetch_row($rs_load))
{
$data=$io_sql->obtener_datos($rs_load);
$ds_progrep->data=$data;
$li_num=$ds_progrep->getRowCount("spg_cuenta");
$li_totnum=$li_num;
for($i=1;$i<=$li_num;$i++)
{
$ls_cuenta=$data["spg_cuenta"][$i];
$ls_cuenta_hidden=$data["spg_cuenta"][$i];
if($ls_codrep=='0714')
{
if(($ls_cuenta=='401010000')||($ls_cuenta=='401020000')||($ls_cuenta=='402010000')||($ls_cuenta=='402020000')||($ls_cuenta=='403010000')||
($ls_cuenta=='403020000')||($ls_cuenta=='407010000')||($ls_cuenta=='407020000')||($ls_cuenta=='408010000')||($ls_cuenta=='408020000'))
{
$ls_cuenta="''";
}
}
$ls_denominacion=$data["denominacion"][$i];
$ls_distribuir=$data["distribuir"][$i];
$ls_modrep=$data["modrep"][$i];
$ls_status=$data["status"][$i];
$ls_referencia=$data["referencia"][$i];
$ld_asignado=number_format($data["asignado"][$i],2,",",".");
$ld_marzo=number_format($data["marzo"][$i],2,",",".");
$ld_junio=number_format($data["junio"][$i],2,",",".");
$ld_septiembre=number_format($data["septiembre"][$i],2,",",".");
$ld_diciembre=number_format($data["diciembre"][$i],2,",",".");
if($ls_status=="I")
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
else
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
}//for
$io_class_grid->makegrid($li_totnum,$title,$object,800,'PROGRAMACION DE REPORTE TRIMESTRAL',$ls_nombre);
}//if
else
{
$li_total=0;
$object="";
$io_class_grid->makegrid($li_total,$title,$object,800,' PROGRAMACION DE REPORTES TRIMESTRAL',$ls_nombre);
}
}//cargar
if ($ls_operacion=="DISTRIBUIR" )
{
$ls_opcion=$_POST["tipo"];
if ($ls_opcion=="M")
{
$li_rows=$_POST["fila"];
$ls_codrep=$_POST["cmbrep"];
if(($ls_codrep=='00005')||($ls_codrep=='0714'))
{
$ls_codestpro1="00000000000000000000";
$ls_codestpro2="000000";
$ls_codestpro3="000";
}
else
{
$ls_codestpro1=$_POST["codestpro1"];
$ls_codestpro2=$_POST["codestpro2"];
$ls_codestpro3=$_POST["codestpro3"];
}
$li_estmodest = $la_empresa["estmodest"];
if($li_estmodest==1)
{
$ls_codestpro4="00";
$ls_codestpro5="00";
}
else
{
$ls_codestpro4=$_POST["codestpro4"];
$ls_codestpro5=$_POST["codestpro5"];
}
$li_num=$_POST["li_totnum"];
for($i=1;$i<=$li_num;$i++)
{
$ls_cuenta=$_POST["txtCuenta".$i];
$ls_denominacion=$_POST["txtDenominacion".$i];
$ld_asignado =$_POST["txtAsignacion".$i];
$ls_status=$_POST["status".$i];
$ls_modrep=$_POST["modrep".$i];
$ls_distribuir=$_POST["distribuir".$i];
$ls_referencia=$_POST["referencia".$i];
$ld_marzo=$_POST["marzo".$i];
$ld_junio=$_POST["junio".$i];
$ld_septiembre=$_POST["septiembre".$i];
$ld_diciembre=$_POST["diciembre".$i];
$ls_cuenta_report=$ls_cuenta_hidden;
if($li_rows==$i)
{
$li_nivel=0;
$lb_valido = $io_class_progrep->uf_obtener_nivel_cta($ls_cuenta,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$li_nivel);//Obtiene nivel de la cta
$ls_cta_ceros = $int_spg->uf_spg_cuenta_sin_cero($ls_cuenta ); //devuelve la cta sin ceros
$ar_cuenta = $io_class_progrep->uf_disable_cta_inferior($ls_cta_ceros,$ls_cuenta,$ls_codrep,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,0);
$li_total_cuenta=count($ar_cuenta);
if($ls_codrep=='0714')
{
if(($ls_cuenta=='401010000')||($ls_cuenta=='401020000')||($ls_cuenta=='402010000')||($ls_cuenta=='402020000')||($ls_cuenta=='403010000')||
($ls_cuenta=='403020000')||($ls_cuenta=='407010000')||($ls_cuenta=='407020000')||($ls_cuenta=='408010000')||($ls_cuenta=='408020000'))
{
$ls_cuenta="''";
}
}
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
$ls_status_in="I"; $ls_distribuir=3; $ls_modrep=3;
$cero=0; $ld_cero=number_format($cero,2,",",".");
$ld_asignado_cero=$ld_cero;
$ld_m3=$ld_cero; $ld_m6=$ld_cero;
$ld_m09=$ld_cero; $ld_m12=$ld_cero;
for($li=1;$li<$li_total_cuenta;$li++)
{
$ls_cuenta=$ar_cuenta[$li];
$ls_denominacion="";
$lb_valido=$io_class_progrep->uf_select_denominacion($ls_cuenta,$ls_codrep,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_denominacion);
if($lb_valido)
{
$i=$i+1;
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}//if
}//for
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if($ls_referencia!="")
{
for($li=$li_rows-1;$li>=1;$li--)
{
$ls_cuenta_aux=$_POST["txtCuenta".$li];
$ls_denominacion_aux=$_POST["txtDenominacion".$li];
$ld_asignado_aux =$_POST["txtAsignacion".$li];
$ls_status_aux=$_POST["status".$li];
$ls_referencia_aux=$_POST["referencia".$li];
$ls_distribuir_aux=$ls_distribuir;
$ls_modrep_aux=$ls_modrep;
$ld_marzo_aux=$_POST["marzo".$li];
$ld_junio_aux=$_POST["junio".$li];
$ld_septiembre_aux=$_POST["septiembre".$li];
$ld_diciembre_aux=$_POST["diciembre".$li];
if($ls_cuenta_aux==$ls_referencia)
{
$ld_asignado=str_replace('.','',$ld_asignado); $ld_asignado=str_replace(',','.',$ld_asignado);
$ld_asignado_aux=str_replace('.','',$ld_asignado_aux); $ld_asignado_aux=str_replace(',','.',$ld_asignado_aux);
$ld_marzo=str_replace('.','',$ld_marzo); $ld_marzo=str_replace(',','.',$ld_marzo);
$ld_marzo_aux=str_replace('.','',$ld_marzo_aux); $ld_marzo_aux=str_replace(',','.',$ld_marzo_aux);
$ld_junio=str_replace('.','',$ld_junio); $ld_junio=str_replace(',','.',$ld_junio);
$ld_junio_aux=str_replace('.','',$ld_junio_aux); $ld_junio_aux=str_replace(',','.',$ld_junio_aux);
$ld_septiembre=str_replace('.','',$ld_septiembre); $ld_septiembre=str_replace(',','.',$ld_septiembre);
$ld_septiembre_aux=str_replace('.','',$ld_septiembre_aux); $ld_septiembre_aux=str_replace(',','.',$ld_septiembre_aux);
$ld_diciembre=str_replace('.','',$ld_diciembre); $ld_diciembre=str_replace(',','.',$ld_diciembre);
$ld_diciembre_aux=str_replace('.','',$ld_diciembre_aux); $ld_diciembre_aux=str_replace(',','.',$ld_diciembre_aux);
$ld_asignado_aux=$ld_asignado_aux+$ld_asignado;
$ld_marzo_aux=$ld_marzo_aux+$ld_marzo;
$ld_junio_aux=$ld_junio_aux+$ld_junio;
$ld_septiembre_aux=$ld_septiembre_aux+$ld_septiembre;
$ld_diciembre_aux=$ld_diciembre_aux+$ld_diciembre;
$ld_asignado_aux=number_format($ld_asignado_aux,2,",",".");
$ld_asignado=number_format($ld_asignado,2,",",".");
$ld_marzo=number_format($ld_marzo,2,",",".");
$ld_marzo_aux=number_format($ld_marzo_aux,2,",",".");
$ld_junio=number_format($ld_junio,2,",",".");
$ld_junio_aux=number_format($ld_junio_aux,2,",",".");
$ld_septiembre=number_format($ld_septiembre,2,",",".");
$ld_septiembre_aux=number_format($ld_septiembre_aux,2,",",".");
$ld_diciembre=number_format($ld_diciembre,2,",",".");
$ld_diciembre_aux=number_format($ld_diciembre_aux,2,",",".");
$object[$li][1]="
";
$object[$li][2]="
";
$object[$li][3]="
";
$ls_referencia=$ls_referencia_aux;
}//if
}//for
}//if
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
}//if
else
{
if($ls_codrep=='0714')
{
$ls_distribuir=3; $ls_modrep=1;
if(($ls_cuenta_report=='401010000')||($ls_cuenta_report=='401020000')||($ls_cuenta_report=='402010000')||($ls_cuenta_report=='402020000')||($ls_cuenta_report=='403010000')||
($ls_cuenta_report=='403020000')||($ls_cuenta_report=='407010000')||($ls_cuenta_report=='407020000')||($ls_cuenta_report=='408010000')||($ls_cuenta_report=='408020000'))
{
$ls_cuenta="''";
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
else
{
$ls_cuenta=$ls_cuenta_report;
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
}
else
{
if($ls_status=="I")
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
else
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}//else
}//else
}//else
}//for
$io_class_grid->makegrid($li_num,$title,$object,800,'PROGRAMACION DE REPORTE TRIMESTRAL',$ls_nombre);
}//if ($ls_opcion=="M")
if ($ls_opcion=="N")
{
$li_rows=$_POST["fila"];
$ls_codrep=$_POST["cmbrep"];
if(($ls_codrep=='00005')||($ls_codrep=='0714'))
{
$ls_codestpro1="00000000000000000000";
$ls_codestpro2="000000";
$ls_codestpro3="000";
}
else
{
$ls_codestpro1=$_POST["codestpro1"];
$ls_codestpro2=$_POST["codestpro2"];
$ls_codestpro3=$_POST["codestpro3"];
}
$li_estmodest = $la_empresa["estmodest"];
if($li_estmodest==1)
{
$ls_codestpro4="00";
$ls_codestpro5="00";
}
else
{
$ls_codestpro4=$_POST["codestpro4"];
$ls_codestpro5=$_POST["codestpro5"];
}
$li_num=$_POST["li_totnum"];
for($i=1;$i<=$li_num;$i++)
{
$ls_cuenta=$_POST["txtCuenta".$i];
$ls_cuenta_hidden=$_POST["cuenta".$i];
$ls_denominacion=$_POST["txtDenominacion".$i];
$ld_asignado =$_POST["txtAsignacion".$i];
$ls_status=$_POST["status".$i];
$ls_modrep=$_POST["modrep".$i];
$ls_distribuir=$_POST["distribuir".$i];
$ls_referencia=$_POST["referencia".$i];
$ld_marzo=$_POST["marzo".$i];
$ld_junio=$_POST["junio".$i];
$ld_septiembre=$_POST["septiembre".$i];
$ld_diciembre=$_POST["diciembre".$i];
$ls_cuenta_report=$ls_cuenta_hidden;
if( $li_rows==$i)
{
$li_nivel=0;
$lb_valido = $io_class_progrep->uf_obtener_nivel_cta($ls_cuenta,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$li_nivel);//Obtiene nivel de la cta
$ls_cta_ceros = $int_spg->uf_spg_cuenta_sin_cero($ls_cuenta ); //devuelve la cta sin ceros
$ar_cuenta = $io_class_progrep->uf_disable_cta_inferior($ls_cta_ceros,$ls_cuenta,$ls_codrep,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,0);
$li_total_cuenta=count($ar_cuenta);
$ls_distribuir=1; $ls_modrep=3; $cero=0;
$ld_cero=number_format($cero,2,",","."); $ld_asignado=$ld_asignado;
$ld_marzo=$ld_cero; $ld_junio=$ld_cero;
$ld_septiembre=$ld_cero; $ld_diciembre=$ld_cero;
if($ls_codrep=='0714')
{
if(($ls_cuenta=='401010000')||($ls_cuenta=='401020000')||($ls_cuenta=='402010000')||($ls_cuenta=='402020000')||($ls_cuenta=='403010000')||
($ls_cuenta=='403020000')||($ls_cuenta=='407010000')||($ls_cuenta=='407020000')||($ls_cuenta=='408010000')||($ls_cuenta=='408020000'))
{
$ls_cuenta="''";
}
}
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
$cero=0 ; $ld_cero=number_format($cero,2,",",".");
$ld_asignado_cero=$ld_cero; $ls_status_in="I";
$ld_m3=$ld_cero; $ld_m6=$ld_cero;
$ld_m09=$ld_cero; $ld_m12=$ld_cero;
for($li=1;$li<$li_total_cuenta;$li++)
{
$ls_cuenta=$ar_cuenta[$li];
$ls_denominacion="";
$lb_valido=$io_class_progrep->uf_select_denominacion($ls_cuenta,$ls_codrep,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_denominacion);
if($lb_valido)
{
$i=$i+1;
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}//if
}//for
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if($ls_referencia!="")
{
for($li=$li_rows-1;$li>=1;$li--)
{
//$ls_cuenta_aux=$_POST["txtCuenta".$li];
$ls_cuenta_hidden=$_POST["cuenta".$li];
$ls_cuenta_aux=$ls_cuenta_hidden;
$ls_denominacion_aux=$_POST["txtDenominacion".$li];
$ld_asignado_aux =$_POST["txtAsignacion".$li];
$ls_status_aux=$_POST["status".$li];
$ls_referencia_aux=$_POST["referencia".$li];
$ls_distribuir_aux=$ls_distribuir;
$ls_modrep_aux=$ls_modrep;
$ld_marzo_aux=$_POST["marzo".$li];
$ld_junio_aux=$_POST["junio".$li];
$ld_septiembre_aux=$_POST["septiembre".$li];
$ld_diciembre_aux=$_POST["diciembre".$li];
if($ls_cuenta_aux==$ls_referencia)
{
$ld_asignado=str_replace('.','',$ld_asignado); $ld_asignado=str_replace(',','.',$ld_asignado);
$ld_asignado_aux=str_replace('.','',$ld_asignado_aux); $ld_asignado_aux=str_replace(',','.',$ld_asignado_aux);
$ld_marzo=str_replace('.','',$ld_marzo); $ld_marzo=str_replace(',','.',$ld_marzo);
$ld_marzo_aux=str_replace('.','',$ld_marzo_aux); $ld_marzo_aux=str_replace(',','.',$ld_marzo_aux);
$ld_junio=str_replace('.','',$ld_junio); $ld_junio=str_replace(',','.',$ld_junio);
$ld_junio_aux=str_replace('.','',$ld_junio_aux); $ld_junio_aux=str_replace(',','.',$ld_junio_aux);
$ld_septiembre=str_replace('.','',$ld_septiembre); $ld_septiembre=str_replace(',','.',$ld_septiembre);
$ld_septiembre_aux=str_replace('.','',$ld_septiembre_aux); $ld_septiembre_aux=str_replace(',','.',$ld_septiembre_aux);
$ld_diciembre=str_replace('.','',$ld_diciembre); $ld_diciembre=str_replace(',','.',$ld_diciembre);
$ld_diciembre_aux=str_replace('.','',$ld_diciembre_aux); $ld_diciembre_aux=str_replace(',','.',$ld_diciembre_aux);
$ld_asignado_aux=$ld_asignado_aux+$ld_asignado;
$ld_marzo_aux=$ld_marzo_aux+$ld_marzo;
$ld_junio_aux=$ld_junio_aux+$ld_junio;
$ld_septiembre_aux=$ld_septiembre_aux+$ld_septiembre;
$ld_diciembre_aux=$ld_diciembre_aux+$ld_diciembre;
$ld_asignado_aux=number_format($ld_asignado_aux,2,",",".");
$ld_asignado=number_format($ld_asignado,2,",",".");
$ld_marzo=number_format($ld_marzo,2,",",".");
$ld_marzo_aux=number_format($ld_marzo_aux,2,",",".");
$ld_junio=number_format($ld_junio,2,",",".");
$ld_junio_aux=number_format($ld_junio_aux,2,",",".");
$ld_septiembre=number_format($ld_septiembre,2,",",".");
$ld_septiembre_aux=number_format($ld_septiembre_aux,2,",",".");
$ld_diciembre=number_format($ld_diciembre,2,",",".");
$ld_diciembre_aux=number_format($ld_diciembre_aux,2,",",".");
$object[$li][1]="
";
$object[$li][2]="
";
$object[$li][3]="
";
$ls_referencia=$ls_referencia_aux;
}//if
}//for
}//if
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
}//if
else
{
if($ls_codrep=='0714')
{
$ls_distribuir=1; $ls_modrep=1;
if(($ls_cuenta_report=='401010000')||($ls_cuenta_report=='401020000')||($ls_cuenta_report=='402010000')||($ls_cuenta_report=='402020000')||($ls_cuenta_report=='403010000')||
($ls_cuenta_report=='403020000')||($ls_cuenta_report=='407010000')||($ls_cuenta_report=='407020000')||($ls_cuenta_report=='408010000')||($ls_cuenta_report=='408020000'))
{
$ls_cuenta="''";
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
else
{
$ls_cuenta=$ls_cuenta_report;
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
}
else
{
if($ls_status=="I")
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
else
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}//else
}//else
}//else
}//for
$io_class_grid->makegrid($li_num,$title,$object,800,'PROGRAMACION DE REPORTE TRIMESTRAL',$ls_nombre);
} //if ($ls_opcion=="N")
if ($ls_opcion=="A")
{
$li_rows=$_POST["fila"];
$ls_codrep=$_POST["cmbrep"];
$ls_codrep=$_POST["cmbrep"];
if(($ls_codrep=='00005')||($ls_codrep=='0714'))
{
$ls_codestpro1="00000000000000000000";
$ls_codestpro2="000000";
$ls_codestpro3="000";
}
else
{
$ls_codestpro1=$_POST["codestpro1"];
$ls_codestpro2=$_POST["codestpro2"];
$ls_codestpro3=$_POST["codestpro3"];
}
$li_estmodest = $la_empresa["estmodest"];
if($li_estmodest==1)
{
$ls_codestpro4="00";
$ls_codestpro5="00";
}
else
{
$ls_codestpro4=$_POST["codestpro4"];
$ls_codestpro5=$_POST["codestpro5"];
}
$li_num=$_POST["li_totnum"];
for($i=1;$i<=$li_num;$i++)
{
$ls_cuenta=$_POST["txtCuenta".$i];
$ls_cuenta_hidden=$_POST["cuenta".$i];
$ls_denominacion=$_POST["txtDenominacion".$i];
$ld_asignado =$_POST["txtAsignacion".$i];
$ls_status=$_POST["status".$i];
$ls_distribuir=$_POST["distribuir".$i];
$ls_modrep=$_POST["modrep".$i];
$ls_referencia=$_POST["referencia".$i];
$ld_marzo=$_POST["marzo".$i];
$ld_junio=$_POST["junio".$i];
$ld_septiembre=$_POST["septiembre".$i];
$ld_diciembre=$_POST["diciembre".$i];
$ls_cuenta_report=$ls_cuenta_hidden;
if( $li_rows==$i)
{
$ls_cuenta=$ls_cuenta_hidden;
$li_nivel=0;
$lb_valido = $io_class_progrep->uf_obtener_nivel_cta($ls_cuenta,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$li_nivel);//Obtiene nivel de la cta
$ls_cta_ceros = $int_spg->uf_spg_cuenta_sin_cero($ls_cuenta ); //devuelve la cta sin ceros
$ar_cuenta = $io_class_progrep->uf_disable_cta_inferior($ls_cta_ceros,$ls_cuenta,$ls_codrep,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,0);
$li_total_cuenta=count($ar_cuenta);
$ls_distribuir=2; $ls_modrep=3;
if($ls_codrep=='0714')
{
if(($ls_cuenta=='401010000')||($ls_cuenta=='401020000')||($ls_cuenta=='402010000')||($ls_cuenta=='402020000')||($ls_cuenta=='403010000')||
($ls_cuenta=='403020000')||($ls_cuenta=='407010000')||($ls_cuenta=='407020000')||($ls_cuenta=='408010000')||($ls_cuenta=='408020000'))
{
$ls_cuenta="''";
}
}
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
$cero=0; $ld_cero=number_format($cero,2,",",".");
$ld_asignado_cero=$ld_cero; $ls_status_in="I";
$ld_m3=$ld_cero; $ld_m6=$ld_cero;
$ld_m09=$ld_cero; $ld_m12=$ld_cero;
for($li=1;$li<$li_total_cuenta;$li++)
{
$ls_cuenta=$ar_cuenta[$li];
$ls_denominacion="";
$lb_valido=$io_class_progrep->uf_select_denominacion($ls_cuenta,$ls_codrep,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_denominacion);
if($lb_valido)
{
$i=$i+1;
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}//if
}//for
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if($ls_referencia!="")
{
for($li=$li_rows-1;$li>=1;$li--)
{
//$ls_cuenta_aux=$_POST["txtCuenta".$li];
$ls_cuenta_hidden=$_POST["cuenta".$li];
$ls_cuenta_aux=$ls_cuenta_hidden;
$ls_denominacion_aux=$_POST["txtDenominacion".$li];
$ld_asignado_aux =$_POST["txtAsignacion".$li];
$ls_status_aux=$_POST["status".$li];
$ls_referencia_aux=$_POST["referencia".$li];
$ls_distribuir_aux=$ls_distribuir;
$ls_modrep_aux=$ls_modrep;
$ld_marzo_aux=$_POST["marzo".$li];
$ld_junio_aux=$_POST["junio".$li];
$ld_septiembre_aux=$_POST["septiembre".$li];
$ld_diciembre_aux=$_POST["diciembre".$li];
if($ls_cuenta_aux==$ls_referencia)
{
$ld_asignado=str_replace('.','',$ld_asignado); $ld_asignado=str_replace(',','.',$ld_asignado);
$ld_asignado_aux=str_replace('.','',$ld_asignado_aux); $ld_asignado_aux=str_replace(',','.',$ld_asignado_aux);
$ld_marzo=str_replace('.','',$ld_marzo); $ld_marzo=str_replace(',','.',$ld_marzo);
$ld_marzo_aux=str_replace('.','',$ld_marzo_aux); $ld_marzo_aux=str_replace(',','.',$ld_marzo_aux);
$ld_junio=str_replace('.','',$ld_junio); $ld_junio=str_replace(',','.',$ld_junio);
$ld_junio_aux=str_replace('.','',$ld_junio_aux); $ld_junio_aux=str_replace(',','.',$ld_junio_aux);
$ld_septiembre=str_replace('.','',$ld_septiembre); $ld_septiembre=str_replace(',','.',$ld_septiembre);
$ld_septiembre_aux=str_replace('.','',$ld_septiembre_aux); $ld_septiembre_aux=str_replace(',','.',$ld_septiembre_aux);
$ld_diciembre=str_replace('.','',$ld_diciembre); $ld_diciembre=str_replace(',','.',$ld_diciembre);
$ld_diciembre_aux=str_replace('.','',$ld_diciembre_aux); $ld_diciembre_aux=str_replace(',','.',$ld_diciembre_aux);
$ld_asignado_aux=$ld_asignado_aux+$ld_asignado;
$ld_marzo_aux=$ld_marzo_aux+$ld_marzo;
$ld_junio_aux=$ld_junio_aux+$ld_junio;
$ld_septiembre_aux=$ld_septiembre_aux+$ld_septiembre;
$ld_diciembre_aux=$ld_diciembre_aux+$ld_diciembre;
$ld_asignado_aux=number_format($ld_asignado_aux,2,",",".");
$ld_asignado=number_format($ld_asignado,2,",",".");
$ld_marzo=number_format($ld_marzo,2,",",".");
$ld_marzo_aux=number_format($ld_marzo_aux,2,",",".");
$ld_junio=number_format($ld_junio,2,",",".");
$ld_junio_aux=number_format($ld_junio_aux,2,",",".");
$ld_septiembre=number_format($ld_septiembre,2,",",".");
$ld_septiembre_aux=number_format($ld_septiembre_aux,2,",",".");
$ld_diciembre=number_format($ld_diciembre,2,",",".");
$ld_diciembre_aux=number_format($ld_diciembre_aux,2,",",".");
$object[$li][1]="
";
$object[$li][2]="
";
$object[$li][3]="
";
$ls_referencia=$ls_referencia_aux;
}//if
}//for
}//if
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
}//if
else
{
if($ls_codrep=='0714')
{
$ls_distribuir=2; $ls_modrep=1;
if(($ls_cuenta_report=='401010000')||($ls_cuenta_report=='401020000')||($ls_cuenta_report=='402010000')||($ls_cuenta_report=='402020000')||($ls_cuenta_report=='403010000')||
($ls_cuenta_report=='403020000')||($ls_cuenta_report=='407010000')||($ls_cuenta_report=='407020000')||($ls_cuenta_report=='408010000')||($ls_cuenta_report=='408020000'))
{
$ls_cuenta="''";
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
else
{
$ls_cuenta=$ls_cuenta_report;
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
}
else
{
if($ls_status=="I")
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
else
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}//else
}//else
}//else
}//for
$io_class_grid->makegrid($li_num,$title,$object,800,'PROGRAMACION DE REPORTE TRIMESTRAL',$ls_nombre);
}//fin de automatico
}//DISTRIBUIR
if ($ls_operacion=="ELIMINAR")
{
$li_rows=$_POST["fila"];
$ls_codrep=$_POST["cmbrep"];
if(($ls_codrep=='00005')||($ls_codrep=='0714'))
{
$ls_codestpro1="00000000000000000000";
$ls_codestpro2="000000";
$ls_codestpro3="000";
}
else
{
$ls_codestpro1=$_POST["codestpro1"];
$ls_codestpro2=$_POST["codestpro2"];
$ls_codestpro3=$_POST["codestpro3"];
}
$li_estmodest = $la_empresa["estmodest"];
if($li_estmodest==1)
{
$ls_codestpro4="00";
$ls_codestpro5="00";
}
else
{
$ls_codestpro4=$_POST["codestpro4"];
$ls_codestpro5=$_POST["codestpro5"];
}
$li_num=$_POST["li_totnum"];
for($i=1;$i<=$li_num;$i++)
{
$ls_cuenta=$_POST["txtCuenta".$i];
$ls_denominacion=$_POST["txtDenominacion".$i];
$ld_asignado =$_POST["txtAsignacion".$i];
$ls_status=$_POST["status".$i];
$ls_distribuir=$_POST["distribuir".$i];
$ls_referencia=$_POST["referencia".$i];
$ld_marzo=$_POST["marzo".$i];
$ld_junio=$_POST["junio".$i];
$ld_septiembre=$_POST["septiembre".$i];
$ld_diciembre=$_POST["diciembre".$i];
if($li_rows==$i)
{
if ($ld_asignado<>0)
{
$msg->message(" La Cuenta ".$ls_cuenta." Tiene Monto Asignado de ".$ld_asignado." No se puede eliminar.");
}
else
{
$li_nivel_cta = $class_progrep->uf_obt_nivel_cta($ls_cuenta,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5); //Obtiene nivel de la cta
$ls_cta_ceros = $class_progrep->uf_cuenta_sin_ceros($ls_cuenta ); //devuelve la cta sin ceros
$ls_sc_cuenta = $class_progrep->uf_disable_cta_inferior($ls_cta_ceros, $ls_cuenta, $ls_codrep,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,0);
$total=count($ls_sc_cuenta);
for($li=1;$li<=$total;$li++)
{
$ls_cuenta=$ls_sc_cuenta[$li];
$lb_valido=$class_progrep->uf_spg_delete_cuenta($ls_cuenta,$ls_codemp,$ls_codrep,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5);
$i=$i+1;
}//for
}//else
}//if
else
{
if($ls_status=="I")
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
else
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}//else
}//else
}//for
$io_class_grid->makegrid($li_num,$title,$object,800,'PROGRAMACION DE REPORTE TRIMESTRAL',$ls_nombre);
}//fin de $ls_operacion=="ELIMINAR"
if ($ls_operacion=="GUARDAR" )
{
$cont_insert=0;
$li_rows=$_POST["fila"];
$ls_codrep=$_POST["cmbrep"];
if(($ls_codrep=='00005')||($ls_codrep=='0714'))
{
$ls_codestpro1="00000000000000000000";
$ls_codestpro2="000000";
$ls_codestpro3="000";
}
else
{
$ls_codestpro1=$_POST["codestpro1"];
$ls_codestpro2=$_POST["codestpro2"];
$ls_codestpro3=$_POST["codestpro3"];
}
$li_estmodest = $la_empresa["estmodest"];
if($li_estmodest==1)
{
$ls_codestpro4="00";
$ls_codestpro5="00";
}
else
{
$ls_codestpro4=$_POST["codestpro4"];
$ls_codestpro5=$_POST["codestpro5"];
$ls_codestpro1=$io_function->uf_cerosizquierda($ls_codestpro1,20);
$ls_codestpro2=$io_function->uf_cerosizquierda($ls_codestpro2,6);
$ls_codestpro3=$io_function->uf_cerosizquierda($ls_codestpro3,3);
$ls_codestpro4=$io_function->uf_cerosizquierda($ls_codestpro4,2);
$ls_codestpro5=$io_function->uf_cerosizquierda($ls_codestpro5,2);
}
$li_num=$_POST["li_totnum"];
for($i=1;$i<=$li_num;$i++)
{
$ls_cuenta=$_POST["txtCuenta".$i];
$ls_denominacion=$_POST["txtDenominacion".$i];
$ld_asignado=trim($_POST["txtAsignacion".$i]);
$ls_status=$_POST["status".$i];
$ls_distribuir=$_POST["distribuir".$i];
$ls_modrep=$_POST["modrep".$i];
$ls_referencia=$_POST["referencia".$i];
$cero=0;
$ld_cero=number_format($cero,2,",",".");
$ld_enero=$ld_cero;
$ld_febrero=$ld_cero;
$ld_marzo=$_POST["marzo".$i];
$ld_abril=$ld_cero;
$ld_mayo=$ld_cero;
$ld_junio=$_POST["junio".$i];
$ld_julio=$ld_cero;
$ld_agosto=$ld_cero;
$ld_septiembre=$_POST["septiembre".$i];
$ld_octubre=$ld_cero;
$ld_noviembre=$ld_cero;
$ld_diciembre=$_POST["diciembre".$i];
if($ls_codrep=='0714')
{
$ls_cuenta=$ls_cuenta_aux;
if(($ls_cuenta_aux=='401010000')||($ls_cuenta_aux=='401020000')||($ls_cuenta_aux=='402010000')||($ls_cuenta_aux=='402020000')||($ls_cuenta_aux=='403010000')||
($ls_cuenta_aux=='403020000')||($ls_cuenta_aux=='407010000')||($ls_cuenta_aux=='407020000')||($ls_cuenta_aux=='408010000')||($ls_cuenta_aux=='408020000'))
{
$ls_cuenta="''";
}
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
$ls_cuenta=$ls_cuenta_aux;
}
else
{
if($ls_status=="I")
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}
else
{
$object[$i][1]="
";
$object[$i][2]="
";
$object[$i][3]="
";
}//else
}//else
$ld_asignado=str_replace('.','',$ld_asignado); $ld_asignado=str_replace(',','.',$ld_asignado);
$ld_enero=str_replace('.','',$ld_enero); $ld_enero=str_replace(',','.',$ld_enero);
$ld_febrero=str_replace('.','',$ld_febrero); $ld_febrero=str_replace(',','.',$ld_febrero);
$ld_marzo=str_replace('.','',$ld_marzo); $ld_marzo=str_replace(',','.',$ld_marzo);
$ld_abril=str_replace('.','',$ld_abril); $ld_abril=str_replace(',','.',$ld_abril);
$ld_mayo=str_replace('.','',$ld_mayo); $ld_mayo=str_replace(',','.',$ld_mayo);
$ld_junio=str_replace('.','',$ld_junio); $ld_junio=str_replace(',','.',$ld_junio);
$ld_julio=str_replace('.','',$ld_julio); $ld_julio=str_replace(',','.',$ld_julio);
$ld_agosto=str_replace('.','',$ld_agosto); $ld_agosto=str_replace(',','.',$ld_agosto);
$ld_septiembre=str_replace('.','',$ld_septiembre); $ld_septiembre=str_replace(',','.',$ld_septiembre);
$ld_octubre=str_replace('.','',$ld_octubre); $ld_octubre=str_replace(',','.',$ld_octubre);
$ld_noviembre=str_replace('.','',$ld_noviembre); $ld_noviembre=str_replace(',','.',$ld_noviembre);
$ld_diciembre=str_replace('.','',$ld_diciembre); $ld_diciembre=str_replace(',','.',$ld_diciembre);
$lb_valido=$io_class_progrep->uf_spg_guardar_programacion_reportes( $ls_status,$ld_asignado,$ls_distribuir,$ls_modrep,
$ld_enero,$ld_febrero,$ld_marzo,$ld_abril,$ld_mayo,
$ld_junio,$ld_julio,$ld_agosto,$ld_septiembre,$ld_octubre,
$ld_noviembre,$ld_diciembre,$ls_cuenta,$ls_codrep,
$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,
$ls_codestpro4,$ls_codestpro5);
if ($lb_valido)
{
$cont_insert=$cont_insert+1;
}
}//for
if($cont_insert==$li_num)
{
$io_sql->begin_transaction();
////////////////////////////////// SEGURIDAD /////////////////////////////
$ls_evento="INSERT";
$ls_descripcion =" Guardar la programacion de reportes ";
$ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($la_seguridad["empresa"],
$la_seguridad["sistema"],$ls_evento,$la_seguridad["logusr"],
$la_seguridad["ventanas"],$ls_descripcion);
///////////////////////////////// SEGURIDAD /////////////////////////////
$io_sql->commit();
$io_msg->message(" Los Datos fueron guardados con exito ");
}
else
{
$io_sql->rollback();
$io_msg->message(" Error en los datos al guardar ");
}
$io_class_grid->makegrid($li_num,$title,$object,800,'PROGRAMACION DE REPORTE TRIMESTRAL',$ls_nombre);
}//GUARDAR
?>
">