Comprobante de Credito o Ingreso Adicional

"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } require_once("class_funciones_gasto.php"); $io_fun_spg = new class_funciones_gasto(); $ls_formato = $io_fun_spg->uf_select_config("SPG","REPORTE","MOD_PRE_CREDITOADICIONAL","sigesp_spg_rpp_creditoadicional.php","C"); ?> Comprobante de Credito o Ingreso Adicional

Contabilidad Presupuestaria de Gasto

uf_sss_select_permisos($ls_empresa,$ls_logusr,$ls_sistema,$ls_ventana); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// $sig_inc=new sigesp_include(); $con=$sig_inc->uf_conectar(); $fun_db=new class_funciones_db($con); $in_classcmp=new sigesp_spg_c_mod_presupuestarias(); $fun=new class_funciones(); $int_scg=new class_sigesp_int_scg(); $int_spg=new class_sigesp_int_spg(); $msg=new class_mensajes(); $io_grid=new grid_param(); $int_fec=new class_fecha(); $la_emp=$_SESSION["la_empresa"]; $li_estmodest = $la_emp["estmodest"]; if(array_key_exists("operacion",$_POST)) { $ls_operacion=$_POST["operacion"]; $ls_procede = $_POST["txtproccomp"]; $ls_comprobante = $_POST["txtcomprobante"]; $ls_fecha = $_POST["txtfecha"]; $ls_descripcion = $_POST["txtdesccomp"]; $ls_procede = $_POST["txtproccomp"]; $li_estapro = $_POST["estapro"]; $li_fila = 0; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; //$ls_compread="readonly"; $ls_compread=""; $ls_existe=$_POST["existe"]; } else { $ls_operacion="NUEVO"; $ls_existe="N"; $_SESSION["ACTUALIZAR"]="NO"; $_SESSION["ib_new"] =true; $array_fecha=getdate(); $ls_dia=$array_fecha["mday"]; $ls_mes=$array_fecha["mon"]; $ls_ano=$array_fecha["year"]; $ls_fecha=$fun->uf_cerosizquierda($ls_dia,2)."/".$fun->uf_cerosizquierda($ls_mes,2)."/".$ls_ano; $li_fila = 0; } if(array_key_exists("cmbfuefin",$_POST)) { $ls_fuefin = $_POST["cmbfuefin"]; } else { $ls_fuefin = "--"; } if(array_key_exists("txtuniadm",$_POST)) { $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; } else { $ls_coduniadm = "-----"; $ls_denuniadm = ""; } if($ls_operacion=="VALIDAFECHA") { $readonly=""; $ls_existe=$_POST["existe"]; $ls_comprobante = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_fecha = $_POST["txtfecha"]; $ls_descripcion = $_POST["txtdesccomp"]; $ls_codemp=$la_emp["codemp"]; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; if ($ls_contipo==0) { $ls_compread=""; } else { //$ls_compread="readonly"; $ls_compread=""; } $lb_valido=$int_fec->uf_valida_fecha_periodo($ls_fecha,$ls_codemp); if(!($lb_valido)) { $msg->message($int_fec->is_msg_error); $ls_fecha="01/01/1900"; } else { if ($ls_existe=="N") { $lb_existe=$in_classcmp->uf_verificar_comprobante($ls_codemp,$ls_procede,$ls_comprobante); if (($ls_comprobante=="000000000000000")&&($ls_contipo==1)) { $msg->message(" Debe Seleccionar un Tipo de Modificación Presupuestaria para generar el Número del Comprobante"); } if($lb_existe) { $msg->message(" El Comprobante ya existe. El Sistema generara un nuevo numero de Comprobante"); //$ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGINS'); $ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGCRA'); } } else { $ls_comprobante=$_POST["txtcomprobante"]; } } $li_fila = 0; $prov_sel=""; $bene_sel=""; $ning_sel="selected"; $totalspg=1; $totalscg=1; $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_size_estmodest = 32; $li_maxlength=29; $li_sizedoc=30; $li_maxlengthdoc=30; $li_sizedes=40; $li_maxlengthdes=254; } else { $li_size=40; $li_size_estmodest = 14; $li_maxlength=33; $li_sizedoc=37; $li_maxlengthdoc=15; $li_sizedes=41; $li_maxlengthdes=254; } $object[1][1]=""; $object[1][2]=""; $object[1][3]=""; $object[1][4]=""; $object[1][5]=""; $object[1][6]=""; $object[1][7]=""; $object[1][8]=""; $object[1][9] =""; $object2[1][1]=""; $object2[1][2]=""; $object2[1][3]=""; $object2[1][4]=""; $object2[1][5]=""; $object2[1][6]=""; $object2[1][7] =""; $ldec_totalspg=0; $ldec_mondeb=0; $ldec_monhab=0; $ldec_diferencia=0; $ldec_tototracta=0; } //Titulos de la tabla de Detalle Presupuestario. /*$title[1]="Cuenta" ; $title[2]="Programatico"; $title[3]="Documento" ; $title[4]="Descripción"; $title[5]="Procede"; $title[6]="Operación"; $title[7]="Monto" ; $title[8]="Edición";*/ $title[1]="Cuenta" ; $title[2]="Denominación"; if($li_estmodest==1) { $title[3]="Imputación Presupuestaria"; } else { $title[3]="Programatico"; } $title[4]="Documento" ; $title[5]="Descripción"; $title[6]="Procede"; $title[7]="Operación"; $title[8]="Monto" ; $title[9]="Edición"; $grid1="grid_spg"; $title2[1]="Cuenta"; $title2[2]="Documento" ; $title2[3]="Descripción"; $title2[4]="Procede" ; $title2[5]="D/H" ; $title2[6]="Monto" ; $title2[7]="Edición"; $grid2="grid_scg"; //Titulos de la tabla de Detalle Contable if($ls_operacion=="NUEVO")//Acciones para un comprobante nuevo { $ls_procede = "SPGCRA"; $ls_existe="N"; //$ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGCRA'); $ls_codtipo=""; $ls_contipo= $in_classcmp->uf_buscar_tipos($la_emp["codemp"]); if ($ls_contipo==0) { //$ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGREC'); $ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGCRA'); $ls_compread=""; } else { //$ls_compread="readonly"; $ls_compread=""; print(""); $ls_comprobante=""; } $ls_tipomod=""; // codigo del tipo de modificación presupuestaria $ls_descripcion = ""; $ls_fuefin=""; $ls_coduniadm = "-----"; $ls_denuniadm = ""; $ls_tipo = ""; $li_fila = 0; $ldec_mondeb=0; $ldec_diferencia=0; $ldec_monhab=0; $ldec_totalspg=0; $ldec_totalscg=0; $ldec_totalspi=0; $li_estapro = 0; $prov_sel=""; $bene_sel=""; $ning_sel="selected"; $totalspg=1; $totalscg=1; $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_size_estmodest = 32; $li_maxlength=29; $li_sizedoc=30; $li_maxlengthdoc=30; $li_sizedes=40; $li_maxlengthdes=254; } else { $li_size=40; $li_size_estmodest = 14; $li_maxlength=33; $li_sizedoc=37; $li_maxlengthdoc=15; $li_sizedes=41; $li_maxlengthdes=254; } $object[1][1]=""; $object[1][2]=""; $object[1][3]=""; $object[1][4]=""; $object[1][5]=""; $object[1][6]=""; $object[1][7]=""; $object[1][8]=""; $object[1][9] =""; $object2[1][1]=""; $object2[1][2]=""; $object2[1][3]=""; $object2[1][4]=""; $object2[1][5]=""; $object2[1][6]=""; $object2[1][7] =""; } if(($ls_operacion=="CARGAR_DT")||($ls_operacion=="VALIDAFECHA")) { $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha =$_POST["txtfecha"]; $ls_proccomp =$_POST["txtproccomp"]; $ls_desccomp =$_POST["txtdesccomp"]; $ls_provbene ="----------"; $ls_tipo ="-"; $ldec_mondeb=0; $ldec_diferencia=0; $ldec_monhab=0; $ls_fuefin = $_POST["cmbfuefin"]; $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $ls_existe=$_POST["existe"]; uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); } if($ls_operacion=="GUARDAR") { $ls_codemp=$la_emp["codemp"]; $ls_existe="C"; $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha=$_POST["txtfecha"]; $ls_procedencia=$_POST["txtproccomp"]; $ls_descripcion=$_POST["txtdesccomp"]; $ls_tipo="-"; $int_int->is_tipo=$ls_tipo; $int_int->is_cod_prov="----------"; $int_int->is_ced_ben="----------"; $int_int->ib_procesando_cmp=false; $int_int->is_fecha=$fun->uf_convertirdatetobd($ld_fecha); $ls_codban = "---"; $ls_ctaban = "-------------------------"; $ls_fuefin = $_POST["cmbfuefin"]; $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; $ls_codemp=$la_emp["codemp"]; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $lb_valido=$int_fec->uf_valida_fecha_periodo($ld_fecha,$ls_codemp); if(!($lb_valido)) { $msg->message($int_fec->is_msg_error); $ls_fecha="01/01/1900"; } else { $lb_valido=$in_classcmp->uf_guardar_automatico($ls_comprobante,$ld_fecha,$ls_procedencia,$ls_descripcion, $int_int->is_cod_prov,$int_int->is_ced_ben,$ls_tipo,2,0, $ls_fuefin,$ls_coduniadm); if(!$lb_valido) { $msg->message($in_classcmp->is_msg_error); } else { $msg->message("Comprobante Guardado Satisfactoriamente"); } } uf_cargar_dt($la_emp["codemp"],$ls_procedencia,$ls_comprobante,$ld_fecha); } if($ls_operacion=="ELIMINAR") { $ls_existe="N"; $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; $lb_valido=false; $ls_codemp=$la_emp["codemp"]; $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha=$_POST["txtfecha"]; $ls_procedencia=$_POST["txtproccomp"]; $ls_descripcion=$_POST["txtdesccomp"]; $ls_tipo="-"; $in_classcmp->is_tipo=$ls_tipo; $in_classcmp->is_cod_prov="----------"; $in_classcmp->is_ced_ben="----------"; $in_classcmp->ib_procesando_cmp=false; $in_classcmp->is_fecha=$fun->uf_convertirdatetobd($ld_fecha); $ls_fuente = "----------"; $in_classcmp->is_cod_prov="----------"; $in_classcmp->is_ced_ben="----------"; $ls_comprobantes=$ls_comprobante; $ld_fechas=$ld_fecha; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $lb_valido=$in_classcmp->uf_delete_all_comprobante($ls_codemp,$ls_comprobante,$ld_fecha,$ls_procedencia); if($lb_valido) { $msg->message("Comprobante Eliminado Satisfactoriamente"); $ls_comprobante=""; $ld_fecha=""; $ls_descripcion=""; $li_estapro = 0; ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="DELETE"; $ls_desc_event="Elimino el comprobante presupuestario ".$ls_comprobante." de fecha ".$ld_fecha." y procedencia ".$ls_procedencia; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// $in_classcmp->io_sql->commit(); $ls_fuefin=""; $ls_uniadm=""; } else { $in_classcmp->io_sql->rollback(); $msg->message("Error".$in_classcmp->is_msg_error); } uf_cargar_dt($la_emp["codemp"],$ls_procedencia,$ls_comprobantes,$ld_fechas); } if($ls_operacion=="DELETESPG") { $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha =$_POST["txtfecha"]; $ls_proccomp =$_POST["txtproccomp"]; $ls_desccomp =$_POST["txtdesccomp"]; $ls_provbene ="----------"; $ls_tipo ="-"; $li_fila =$_POST["fila"]; $ls_prov=$ls_provbene; $ls_bene=$ls_provbene; $li_estmodest = $la_emp["estmodest"]; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_incio1=0; $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_incio2=$ls_loncodestpro1; $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $ls_incio3=$ls_loncodestpro1+$ls_loncodestpro2;//25-$ls_loncodestpro3; $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_incio4=$ls_incio3+$ls_loncodestpro3;//25-$ls_loncodestpro4; $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; $ls_incio5=$ls_incio4+$ls_loncodestpro4;//25-$ls_loncodestpro5; if($li_estmodest==2) { $estprog[0]=substr($_POST["txtprogramatico".$li_fila],$ls_incio1,$ls_loncodestpro1); $estprog[1]=substr($_POST["txtprogramatico".$li_fila],$ls_incio2,$ls_loncodestpro2); $estprog[2]=substr($_POST["txtprogramatico".$li_fila],$ls_incio3,$ls_loncodestpro3); $estprog[3]=substr($_POST["txtprogramatico".$li_fila],$ls_incio4,$ls_loncodestpro4); $estprog[4]=substr($_POST["txtprogramatico".$li_fila],$ls_incio5,$ls_loncodestpro5); } else { $estprog[0]=substr($_POST["txtprogramatico".$li_fila],$ls_incio1,$ls_loncodestpro1); $estprog[1]=substr($_POST["txtprogramatico".$li_fila],$ls_incio2,$ls_loncodestpro2); $estprog[2]=substr($_POST["txtprogramatico".$li_fila],$ls_incio3,$ls_loncodestpro3); $estprog[3]=$fun->uf_cerosizquierda(0,25); $estprog[4]=$fun->uf_cerosizquierda(0,25); } $estprog[0] = $fun->uf_cerosizquierda($estprog[0],25); $estprog[1] = $fun->uf_cerosizquierda($estprog[1],25); $estprog[2] = $fun->uf_cerosizquierda($estprog[2],25); $estprog[3] = $fun->uf_cerosizquierda($estprog[3],25); $estprog[4] = $fun->uf_cerosizquierda($estprog[4],25); $estprog[5] = $_POST["txtestcla".$li_fila]; $ls_cuenta=$_POST["txtcuenta".$li_fila]; $ls_dencuenta=$_POST["txtdencta".$li_fila]; $ls_procede_doc=$_POST["txtprocede".$li_fila]; $ls_descripcion=$_POST["txtdescripcion".$li_fila]; $ls_documento=$_POST["txtdocumento".$li_fila]; $ls_operacion=$_POST["txtoperacion".$li_fila]; $ldec_monto_anterior=$_POST["txtmonto".$li_fila]; $ldec_monto_actual=0; $li_tipo_comp=1; $ls_mensaje=$int_spg->uf_operacion_codigo_mensaje($ls_operacion); $in_classcmp->is_codemp=$la_emp["codemp"]; $in_classcmp->is_fecha=$fun->uf_convertirdatetobd($ld_fecha); $in_classcmp->is_procedencia=$ls_proccomp; $in_classcmp->is_comprobante=$ls_comprobante; $in_classcmp->is_tipo=$ls_tipo; $in_classcmp->is_cod_prov=$ls_prov; $in_classcmp->is_ced_ben=$ls_bene; $int_spg->ib_AutoConta=true; if ($ls_tipo=="B") { $ls_fuente = $ls_bene; } else { if ($ls_tipo=="P") { $ls_fuente = $ls_prov; } else { $ls_fuente = "----------"; } } if(!$int_spg->uf_spg_select_cuenta($la_emp["codemp"],$estprog,$ls_cuenta,$ls_status,$ls_denominacion,$ls_sc_cuenta)) { return false; } $lb_valido=$in_classcmp->uf_int_spg_delete_movimiento($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha,$ls_tipo,$ls_fuente,$ls_prov,$ls_bene, $estprog,$ls_cuenta,$ls_procede_doc,$ls_documento,$ls_descripcion,$ls_mensaje,$li_tipo_comp, $ldec_monto_anterior,$ldec_monto_actual,$ls_sc_cuenta); if($lb_valido) { $msg->message("Movimiento Eliminado Satisfactoriamente"); ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="DELETE"; $ls_desc_event="Elimino el movimiento presupuestario ".$ls_documento." con operacion".$ls_operacion." por un monto de ".$ldec_monto_anterior." para la cuenta ".$ls_cuenta." correspondiente a la estructura programatica ".$estprog[0]."-".$estprog[1]."-".$estprog[2]."-".$estprog[3]."-".$estprog[4]."; para el comprobante ".$ls_comprobante." de fecha ".$ld_fecha; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// $in_classcmp->io_sql->commit(); } else { $msg->message(" Movimiento no fue Eliminado "); $in_classcmp->io_sql->rollback(); } uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); } if($ls_operacion=="DELETESCG") { $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha =$_POST["txtfecha"]; $ls_proccomp =$_POST["txtproccomp"]; $ls_desccomp =$_POST["txtdesccomp"]; $li_fila =$_POST["fila"]; $ls_prov="----------"; $ls_bene="----------"; $ls_tipo="-"; $ls_cuenta=$_POST["txtcontable".$li_fila]; $ls_procdoc=$_POST["txtprocdoc".$li_fila]; $ls_desdoc=$_POST["txtdesdoc".$li_fila]; $ls_docscg=$_POST["txtdocscg".$li_fila]; $ls_debhab=$_POST["txtdebhab".$li_fila]; $ldec_monto_anterior=$_POST["txtmontocont".$li_fila]; $ldec_monto_actual=0; $li_tipo_comp=1; $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; //$ls_mensaje=$int_scg->uf_operacion_codigo_mensaje($ls_operacion); $in_classcmp->is_codemp=$la_emp["codemp"]; $in_classcmp->is_fecha=$fun->uf_convertirdatetobd($ld_fecha); $in_classcmp->is_procedencia=$ls_proccomp; $in_classcmp->is_comprobante=$ls_comprobante; $in_classcmp->is_tipo=$ls_tipo; $in_classcmp->is_cod_prov=$ls_prov; $in_classcmp->is_ced_ben=$ls_bene; $in_classcmp->ib_AutoConta=true; $lb_valido=$in_classcmp->uf_scg_delete_movimiento($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$in_classcmp->is_fecha, $ls_cuenta, $ls_procdoc, $ls_docscg,$ls_debhab ); //uf_scg_procesar_delete_movimiento($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$int_scg->is_fecha, $ls_cuenta, $ls_procdoc, $ls_docscg,$ls_debhab, $ldec_monto_anterior); if($lb_valido) { $msg->message("Movimiento Eliminado Satisfactoriamente"); ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="DELETE"; $ls_desc_event="Elimino el movimiento contable ".$ls_docscg." con operacion ".$ls_debhab." por un monto de ".$ldec_monto_anterior." para la cuenta ".$ls_cuenta."; para el comprobante ".$ls_comprobante." de fecha ".$ld_fecha; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// $in_classcmp->io_sql->commit(); $ls_fuefin=""; $ls_uniadm=""; } else { $msg->message(" Movimiento no fue Eliminado "); $in_classcmp->io_sql->rollback(); } uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); } function uf_cargar_dt($ls_codemp,$ls_proccomp,$ls_comprobante,$ld_fecha) { global $in_classcmp; global $la_emp; global $totalspg; global $totalscg; global $object; global $object2; global $ldec_mondeb; global $ldec_monhab; global $ldec_diferencia; global $ldec_totalspg; global $ldec_totalspi; $ldec_totalspg=0; $ldec_totalspi=0; $ldec_mondeb=0; $ldec_monhab=0; $ldec_diferencia=0; $i=0; $rs_dtcmp=$in_classcmp->uf_cargar_dt_comprobante($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); $li_numrows=$in_classcmp->io_sql->num_rows($rs_dtcmp); $totalspg=1; $totalscg=1; if($li_numrows>0) { $totalspg=$li_numrows; while($row=$in_classcmp->io_sql->fetch_row($rs_dtcmp)) { $i=$i+1; $ls_cuenta=$row["spg_cuenta"]; $ls_dencuenta=$row["dencuenta"]; $li_estmodest = $_SESSION["la_empresa"]["estmodest"]; $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_incio1=25-$ls_loncodestpro1; $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_incio2=25-$ls_loncodestpro2; $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $ls_incio3=25-$ls_loncodestpro3; $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_incio4=25-$ls_loncodestpro4; $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; $ls_incio5=25-$ls_loncodestpro5; if($li_estmodest==2) { $ls_programatico=substr($row["codest1"],$ls_incio1,$ls_loncodestpro1).substr($row["codest2"],$ls_incio2,$ls_loncodestpro2).substr($row["codest3"],$ls_incio3,$ls_loncodestpro3).substr($row["codest4"],$ls_incio4,$ls_loncodestpro4).substr($row["codest5"],$ls_incio5,$ls_loncodestpro5); } else { $ls_programatico=substr($row["codest1"],$ls_incio1,$ls_loncodestpro1).substr($row["codest2"],$ls_incio2,$ls_loncodestpro2).substr($row["codest3"],$ls_incio3,$ls_loncodestpro3); } $ls_codprog=$row["codest1"].$row["codest2"].$row["codest3"].$row["codest4"].$row["codest5"]; $ls_documento=$row["documento"]; $ls_descripcion=$row["descripcion"]; $ls_procede=$row["procede_doc"]; $ls_operacion=$row["operacion"]; $ldec_monto=$row["monto"]; $ls_estcla=trim($row["estcla"]); if($li_estmodest==1) { $li_size=32; $li_size_estmodest=32; $li_maxlength=29; } else { $li_size=40; $li_size_estmodest=14; $li_maxlength=33; } $object[$i][1]=""; $object[$i][2]=""; $object[$i][3]="". "". ""; $object[$i][4]=""; $object[$i][5]=""; $object[$i][6]=""; $object[$i][7]=""; $object[$i][8]=""; $object[$i][9]="

"; $ldec_totalspg = $ldec_totalspg + $ldec_monto; } $in_classcmp->io_sql->free_result($rs_dtcmp); } else { $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_size_estmodest = 32; $li_maxlength=29; } else { $li_size=40; $li_size_estmodest = 14; $li_maxlength=33; } $object[1][1]=""; $object[1][2]=""; $object[1][3]=""; $object[1][4]=""; $object[1][5]=""; $object[1][6]=""; $object[1][7]=""; $object[1][8]=""; $object[1][9] =""; } $i=0; $rs_dtscg=$in_classcmp->uf_cargar_dt_contable_cmp($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); $li_numrows=$in_classcmp->io_sql->num_rows($rs_dtscg); if($li_numrows>0) { $totalscg=$li_numrows; while($row=$in_classcmp->io_sql->fetch_row($rs_dtscg)) { $i=$i+1; $ls_sc_cuenta=$row["sc_cuenta"]; $ls_documento=$row["documento"]; $ls_desdoc=$row["descripcion"]; $ls_procdoc=$row["procede_doc"]; $ls_debhab=$row["debhab"]; $ldec_monto=$row["monto"]; if(trim($ls_debhab)=="D") { $ldec_mondeb=$ldec_mondeb+$ldec_monto; } else { $ldec_monhab=$ldec_monhab+$ldec_monto; } $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_sizedoc=30; $li_maxlengthdoc=30; $li_sizedes=40; $li_maxlengthdes=254; } else { $li_sizedoc=37; $li_maxlengthdoc=15; $li_sizedes=41; $li_maxlengthdes=254; } $object2[$i][1] = ""; $object2[$i][2] = ""; $object2[$i][3] = ""; $object2[$i][4] = ""; $object2[$i][5] = ""; $object2[$i][6] = ""; $object2[$i][7] = "

"; } $ldec_diferencia=$ldec_mondeb-$ldec_monhab; $in_classcmp->io_sql->free_result($rs_dtscg); } else { $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_sizedoc=30; $li_maxlengthdoc=30; $li_sizedes=40; $li_maxlengthdes=254; } else { $li_sizedoc=37; $li_maxlengthdoc=15; $li_sizedes=41; $li_maxlengthdes=254; } $object2[1][1]=""; $object2[1][2]=""; $object2[1][3]=""; $object2[1][4]=""; $object2[1][5]=""; $object2[1][6]=""; $object2[1][7] =""; } } ?>

"); } else { print(""); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?>

Comprobante de Crédito ó Ingreso Adicional

Procedencia

Fecha

Número de la Modificación

Concepto de la Modificación

Fuente de Financiamiento

uf_load_fuentes_financiamiento($ls_empresa); ?>

Unidad Administradora