Activo Fijo
Activo Fijo
Activo Fijo
CAPITULO I
INTRODUCCIÓN
La Constitución Política del Estado en su artículo segundo reconoce al Poder Judicial como
del poder público: legislativa. ejecutiva y judicial no pueden ser reunidas en el mismo
órgano.”
La misma constitución en su titulo tercero Capitulo I, Articulo 116º. Indica que “El Poder
las Cortes Superiores de Distrito, los Tribunales y Jueces de Instancia y demás Tribunales y
Judicial.
la Nación asignará una partida anual, centralizada en el Tesoro Judicial, que depende del
Consejo de la Judicatura. El Poder Judicial no está facultado para crear o establecer tasas ni
derechos judiciales.
gratuita a los indigentes, así como los servicios de traducción cuando su lengua materna no
sea el castellano.”
ciudad de Sucre.
Está integrado por cinco Magistrados que conforman una sola sala y son designados por el
universitaria.
Corte Suprema de Justicia, y a esta última para la designación de los Vocales de las
Consejo de la Judicatura.
Por otra parte el Poder Judicial enmarca sus labores en la Ley 1455 de 18 de febrero de
ciudad de Sucre.
También especifica las atribuciones del Consejo de la Judicatura, en sujeción al Art. 123 de
y de Recursos Humanos.
Judicial como Unidad de Tesorería y se encargará de centralizar los recursos especiales así
sistema diseñado por este organismo estatal, efectuada la evaluación del sistema por parte
del Tesoro Judicial como organismo rector de la administración financiera, se vio que el
tiene una adecuada estructura de códigos acorde a la estructura del Poder Judicial que por
sus características esta compuesta por trece instituciones: Corte Suprema de Justicia,
Distrito.
fijos.
Se incluye:
Formulario de Trasferencia
7
En los últimos años se han efectuado varios intentos por solucionar este majestuoso
1.2.- PROBLEMA
General de la Contaduría.
1.3.- OBJETIVOS
1.3.1.-Objetivo General.-
1.3.2.-Objetivos Específicos.-
Contar con información institucional consolidada sobre todos los activos fijos del
Poder Judicial
Fijos
Poder contar con información confiable, oportuna y real sobre el valor de los activos
1.4.- METODOLOGÍA
Gubernamental.
complica por el gran número de personas que intervienen en el proceso. Por ello no se
del funcionamiento del sistema y la consulta a las personas que están involucradas en el.
Los usuarios son las personas interesadas en la información producida por el sistema.
El análisis de sistemas conlleva a que se debe pasar gran parte del tiempo hablando con los
usuarios y descubrir como utilizan el sistema, para ello se tuvo que recabar formularios
Activos Fijos para el Poder Judicial, que comprende sus trece instituciones, el cual permite
contar con una herramienta oportuna, eficiente y eficaz para la correcta administración de
La implementación del sistema permitirá cubrir una falencia en lo que respecta a contar con
información consolidada, veraz y oportuna a cerca del manejo de los Activos Fijos.
10
CAPITULO II
MARCO TEORICO
de base par la toma de decisiones sobre las actividades de la institución. Las decisiones que
sean tomadas consisten en elegir una entre varias opciones y ejecutarlas posteriormente y
2.2.1.- EQUIDAD
La equidad entre los intereses opuestos debe ser una preocupación constante en
contabilidad, puesto que los que sirven de, o utilizan los datos contables pueden
2.2.2 .- ENTE
“persona” ya que una misma persona puede producir EEFF de varios entes de su
propiedad.
11
Los EEFF se refieren siempre a bienes económicos, es decir bienes materiales que poseen
Los EEFF reflejan el patrimonio mediante recursos que se emplean para reducir todos sus
fácilmente. Este recurso consiste en elegir una moneda de cuenta y valorizar los elementos
Salvo indicación expresa en contrario, se entiende que los EEFF pertenecen a una “empresa
refiere a todo organismo económico cuya existencia corporal tiene plena vigencia y
proyección futura.
correspondencia también con el concepto de “empresa en marcha”, razón por la cual esta
2.2.7.- EJERCICIO
tiempo, ya sea para satisfacer razones de administración legales, fiscales o para cumplir
2.2.8.- DEVENGADO
económico son las que competen a un ejercicio sin entrar a considerar si han cobrado o
pagado.
2.2.9.- OBJETIVIDAD
Los cambios en los activos, pasivos y en la expresión contable del patrimonio neto, deben
reconocerse formalmente en los registros contables, tan pronto sea posible medirlos
2.2.10.- REALIZACIÓN
Los resultados económicos solo deben computarse cuando sena realizados o sea cuando la
operación que los origina quede perfectamente desde el punto de vista de la legislación o
2.2.11.- PRUDENCIA
Significa que cuando se deba elegir entre dos valores para un elemento de Activo,
normalmente se debe optar por el mas bajo, o bien que una operación se contabilice de tal
modo que la alícuota del propietario sea menor. Este principio general se puede expresar
también diciendo: “Contabilizar todas las partidas perdidas cuando se conocen y todas las
2.2.12.- UNIFORMIDAD
Los principios generales, cuando fueren aplicables, y las normas particulares utilizadas
para preparar los EEFF de un determinado ente, deben ser aplicados uniformemente de un
ejercicio a otro.
2.2.13.- MATERIALIDAD
2.2.12.- EXPOSICIÓN
Los EEFF deben contener toda la información y discriminación básica y adicional que sea
Los siguientes conceptos sirven para estructurar el marco teórico con definiciones
referentes a los Activos Fijos que son marco de referencia para el desarrollo del presente
tema.
2.3.1.- CONCEPTO
automotores, etc. Que posee una empresa para utilizarlos en el desarrollo específico de sus
actividades.
Los activos fijos incluyen los terrenos que se estén utilizando en las operaciones propias,
las mejoras a los terrenos, los edificios, la maquinaria, el equipo de producción, las
Salvo en el caso de los terrenos, todos los demás activos antes mencionados están sujetos a
depreciación.
que los activos fijos se contabilicen originalmente a su costo neto de adquisición. Las
adiciones y las mejoras aumentan el costo básico de los activos fijos. Las reparaciones y el
15
costo, tampoco prolongando la vida útil originalmente estimada para esos activos fijos; de
lo anterior se concluye que los costos de reparaciones y mantenimiento son gastos del
periodo.
Los costos originales netos de adquisición de los activos fijos, mas las adiciones y mejoras
se amortizarán durante la vida útil estimada de los activos fijos en la empresa, mediante el
Las principales características que identifican a los bienes de uso son las siguientes:
Son bienes adquiridos para el uso de la empresa, por tanto no están dispuestos para
la venta inmediata.
agotan ni se deprecian.
2.3.4.1.- TANGIBLES
Son el conjunto de bienes que tienen existencia física o presencia corpórea, es decir se
refieren a bienes que poseen existencia material, se presume que tendrán una vida
Los activos fijos incluyen los terrenos que se estén utilizando en las operaciones propias,
las mejoras a los terrenos, los edificios, la maquinaria, el equipo de producción, las
2.3.4.2.- INTANGIBLES
sobre un local. El privilegio exclusivo podrá ser otorgado por un gobierno como es el caso
de una patente o de los derechos de autor; podrá ser concedido por un propietario, como
como en el caso del crédito mercantil. Un activo intangible que no genere ingresos se
1
Principios Básicos de auditoria – Arthur W. Holmes – Wayne S. Overmyer.
17
Los que tienes un término limitado de existencia, siendo la limitación una consecuencia de
alguna ley, reglamento o contrato, o por la propia naturaleza del activo intangible de que se
trate. En este grupo tenemos las patentes, las concesiones por periodos limitados, la
arrendadas.
Aquellos que no tienen un plazo definido para su vida que es limitada, es decir que no haya
existido indicio alguno de una vida limitada al ser adquiridos. En este grupo tenemos las
marcas de fábrica, los nombres comerciales, las fórmulas y procedimientos secretos, las
de organización.2
2.5.- ACTUALIZACION
gestión fiscal.
La ley 843 del 20 de mayo de 1986, ley 1606 del 22 de diciembre de 1994, ley 24051 del
2
Contabilidad Básica - Arthur W. Holmes
18
procedimientos de valuación que hayan seguido con respecto a los bienes que integran sus
activos fijos, intangibles e inventarios, así como otros importes que contengan sus balances
Administración Tributaria.3
Los bienes de uso una vez revalorizados en los siguientes años de vida útil residual deben
La depreciación es la distribución del costo u otro valor básico del activo fijo tangible,
menos el valor residual (si lo hay), durante la vida útil probable de la unidad ( que puede
de valuación. 4
adquisición o producción de los bienes, el que incluirá los gastos incurridos con motivo de
3
DECRETO SUPREMO Nº 24051
4
Contabilidad Básica – Arthur W. Holmes
5
DECRETO SUPREMO N° 21415
19
El excedente que pudiera determinarse por aplicación de esta norma, no será deducible en
modo alguno a los efectos de este impuesto. Las comisiones reconocidas a entidades del
vinculados al adquirente.6
Las instituciones públicas deben contabilizar la desvalorización que sufren los bienes del
activo fijo tangible causados por el uso, deterioro, merma u obsolescencia. La base para el
El importe de la depreciación no debe deducirse directamente del costo del activo, en caso
La Depreciación acumulada es una cuenta de valuación del activo fijo depreciable que
registra la acumulación del gasto por concepto de la depreciación. Los valores acumulados
de la depreciación, se presentan en el balance general deduciendo las cuentas del activo que
6
Gaceta Oficial de Bolivia
20
como la obsolescencia.
reparaciones debe tomarse en consideración al estimar la vida del activo de que se trate.
Bajo nuestra normativa los parámetros para la estimación de la vida útil se extrae del
Decreto supremo 24051, que en su artículo 22 referido a la depreciación del Activo Fijo
indica:
ARTICULO 22º (Depreciaciones del Activo Fijo).- Las depreciaciones del activo fijo se
acuerdo a su vida útil en los porcentajes que se detallan en el Anexo de este artículo.7
Conforme a la disposición contenida en el primer párrafo del Artículo 22º de este Decreto
Supremo, las depreciaciones del activo fijo se computarán sobre el costo depreciable, según
el Artículo 21º de éste reglamento, y de acuerdo a su vida útil en los siguientes porcentajes:
7
Gaceta Oficial de Bolivia
21
El sistema de control interno se refiere a los métodos seguidos por un entidad con el
objetivo de :
operación.
El control interno es de suma importancia para todos los activos . El objetivo que se
persigue en el control interno de los Activos Fijos es el de obtener una máxima eficiencia
Existirá un buen control interno de los activos fijos cuando se cumpla con los siguientes
requisitos:
23
Deberá establecerse una cuenta de control para cada grupo de activos fijos,
Todas las bajas deberán ser autorizadas, debiendo comunicarse tales hechos al
departamento de contabilidad.
Deberán efectuarse inventarios físicos de los activos fijos cada dos o tres años.
Los activos fijos, pequeños y fácilmente transferibles, deberán estar bajo el control
Una auditoria de activos fijos difiere mucho de una auditoria de activos circulantes. En
tanto los activos circulantes tiene una vida corta, la vida de los activos fijos es larga. De allí
que la auditoria de los activos fijos no afecte directamente al capital de trabajo ni tampoco
a los ingresos.
Los procedimientos de auditoria aplicables a todos los activos fijos son similares
Estudiar y revelar plenamente los métodos de valuación empleados para los activos
fijos.
24
2.8.- ALTAS
un activo, todas las adquisiciones de bienes y servicios deben registrarse por su costo de
adquisición o construcción, el cual incluye los costos y gastos directos e indirectos para
2.9.- BAJAS
los activos de la entidad que ya no son susceptibles de ser utilizados dentro de las
operaciones normales.
Enajenación
Hurto
Obsolescencia o inutilización
Siniestros
8
Principios Básicos de auditoria – Arthur W. Holmes
25
2.10.- TRASPASOS
físicos de bienes de uso de una dependencia a otra dentro de una unidad ejecutora del Poder
Judicial.
En el caso de terrenos.
suburbanos.
En edificios, construcciones .
para posteriormente cotizar los precios de mercado por metro cuadrado, tipo de
determinar el año de adquisición, valor residual y vida útil, lo cual nos permitirá
Como resultado del examen se emitirá el informe final de la revalorización técnica de los
activos fijos con detalles completos, clasificados y actualizados con valores de reposición,
encuentran tipificadas en el Decreto Supremo Nº. 21030 del 28 de agosto de 1985, como
Auditores de Bolivia.
27
2.12.- SISTEMA
todo.9
Como podemos ver la definición anterior , existen muchos tipos diferentes de sistemas, casi
todo con lo cual entramos en contacto durante nuestra vida cotidiana es un sistema o bien
Considerando que nuestro objetivos son los sistemas computacionales, empezaremos por
dividir en dos categorías: sistemas naturales y sistemas hechos por el hombre. Los primeros
existen en la naturaleza y sirven a sus propios fines; en cambio los sistemas hechos por el
los financieros, de hecho podemos indicar que hoy en día casi todos los sistemas responden
a sistemas computarizados pero hay que hacer notar que estos sistemas antes de ser
9
Introducción al Análisis y diseño de Sistemas – I.T. Hawryszkiewycz
28
En sistemas hechos por el hombre que interactúan con o son controlado por una o más
impresoras, etc.
bases de datos, programas de aplicación que lleva a cabo las funciones deseadas por
el usuario.
Las personas: los operadores del sistema, los que proveen su material de entrada,
Los datos
Los procedimientos.
2.12.4.- CATEGORÍAS
10
Análisis Estructurado Moderno- Edward Yourdon 1972.
11
Design of Real-Time Computer System - James Martin 1978
29
aspectos de la operación.
De las distintas categorías antes mencionadas todas tienen una cosa en común: todos son
sistemas. Mientras que pueden diferir en varias cosas, también poseen muchas
teoría general de sistemas. El estudio de esta teoría es mucho mas complicado de lo que
circunstancias diferentes.
Cuanto mayor sea el sistema mayor es el número de sus recursos que deben
2.13.1.- CONCEPTO
El camino a llevar para ser un buen a analista de sistemas es más que simples herramientas
El hecho de que una organización adopte un ciclo de vida uniforme y único para sus
proyectos, esto se conoce como el plan del proyecto, la metodología del desarrollo del
2.13.2.- OBJETIVO
De estos objetivos se puede subrayar que el ciclo de vida de un proyecto no esta a cargo del
con usuarios. Lo único que hará el ciclo de vida del proyecto es organizar las actividades
en el momento adecuado.
Calendario
Presupuesto
Pedido del
Especificación Hardware
Análisis
funcional
Diseño
Necesidades de Rendimiento Estudio de
Premliminar Hardware
Configuración
Especificación final
del sistema
Diseño detallado
Especificación del
Programa
Codificación
Módulos
codificados
Prueba de Unidad
Módulos
probados
Prueba de Sub-
sistema
Subsistemas
probados
Prueba de
sistema
Sistema
probado
12
Análisis Estructurado moderno- Edward Yourdon
32
computadoras existentes.
Son nueve las actividades y los tres terminadores del ciclo de vida del proyecto, los
terminadores son los usuarios, los administradores y el personal de operaciones, que son
individuos o grupos de personas que proporcionan las entradas al equipo del proyecto, y
son los beneficiarios finales del sistema, son los que interactúan con las nueve actividades
Requerimientos del
Política del
sistema Base de
usuario Restricciones datos
Restricciones operaciones existente
Documento
1.
ENCUESTA Especificación
2. estructurada Especificación
ANALISIS de diseño
3.
DISEÑO 8.
CONVERSION A
Informe Restricciones BASES DE
Especificación
tentativo de DATOS
Rporte de Especificación de diseño
costo-
beneficio Costo- estructurada
Beneficio
7. 4.
DESCRIPCION IMPLANTACION
ADMINISTTRACION DE
PROCEDIMIENT
OS Base de
datos
convertida
Sistema
Integrado
5.
GENERACION
DE PRUEBA DE Manual del
ACEPTACION Usuario
9.
Sistema INSTALACION
aceptado
Conjunto de
pruebas de
control Sistema
calidad 6.
CONTROL DE Instalado
CALIDAD
33
A continuación describimos cada uno de los pasos del ciclo de vida estructurado de un
proyecto.
2.13.4.1.- LA ENCUESTA
general comienza cuando el usuario solicita que una o más partes de su sistema se
automaticen.
y se fija la dirección para el conjunto del proyecto. También se establecen los límites del
proyecto, que determinarán que partes del sistema se pueden cambiar en el proyecto y que
partes escapan de su control. Se especifican los recursos que deben estar disponibles para el
proyecto. Objetivo del proyecto, límites del proyecto y recursos son los términos de
sistema. Esto implica efectuar algún tipo de encuesta sobre los usuarios implicado
comprende las actividades que hacen falta o las que se están llevando
Establecer metas y objetivos para un sistema nuevo. Que puede ser una simple lista
que contenga las funciones existentes que deben reimplantarse, las nuevas que
comprobar la viabilidad económica, se debe determinar si los recursos con los que
se cuenta se puede concluir el sistema y cumplir con los objetivos del proyecto.
Se debe preparar el esquema que servirá de guía para el resto del programa, en el
del proyecto.
Es en esta fase en la que se realiza un análisis detallado del sistema para que los
factores principales, las políticas del usuario y el esquema del proyecto, en una
especificación estructurada. Esto implica modelar el ambiente del usuario con diagramas de
herramientas. De esta fase se obtiene un modelo detallado del sistema. El modelo describe
2.13.4.3.- DISEÑO
En esta fase se obtiene el diseño del nuevo sistema . El proceso de diseño debe contemplar
el equipo necesario para la implementación del nuevo sistema, especificar los nuevos
El diseño del sistema normalmente se realiza en dos pasos: Diseño estructurado y Diseño
Solo cuando se ha elegido esa solución puede comenzar el diseño detallado. Durante la fase
usuarios y ordenadores. Estos interfaces definen lo que ha de hacer el usuario para utilizar
el sistema.
Además de lograr estos objetivos, el diseñador también se ocupa de la calidad global del
diseño. La capacidad que los programadores exhiban para implantar un sistema de alta
calidad y libre de errores depende en gran medida de la naturaleza del diseño; de manera
similar la capacidad que los programadores exhiban para implantar un sistema de alta
En el campo del diseño estructurado se cuentan con guías de ayuda al diseñador para
ellos. Entre más fuente sea el acoplamiento entre módulos es un sistema, mas difícil
Tamaño del módulo. De ser posible cada módulo debe caber en una sola página o
en una sola pantalla; el estudio inicial va a dar al diseñador una idea de cuan
módulos. Lo mismo sucede con programas de dos o tres líneas, las cuales deberá
puede llamar a mas de una media docena de módulos de nivel inferior, lo otro
2.13.4.4. IMPLANTACION
programas se desarrollan los interfaces de los usuarios y son probados por los usuarios.
como de ensamble o ensambladores o de bajo nivel, los de tercera generación son la norma
actual son lenguajes de alto nivel es decir que con una sola instrucción el programador
computación los consideran el desarrollo más importante en el campo del software en los
últimos 20 años.
Es probable que el proceso de probar el sistema tome tanto tiempo como la mitad del
hecho las actividades iniciales de análisis, diseño y programación. Incluso si se hizo una
labor perfecta de análisis, diseño y programación, se debe hacer algún esfuerzo para que
no haya errores. Existen distintos tipos de pruebas que deben hacerse: Prueba funcional,
Esta referida fundamentalmente a la prueba final o la prueba de aceptación que debe ser
El desarrollo del sistema ya sea en su parte automatizada o en la parte que llevarán a cabo
las partes del sistema que se harán en forma manual, lo mismo de la actuación de los
usuarios con la parte automatizada con el nuevos sistema, dando como resultado un manual
para el usuario.
2.13.4.9. INSTALACIÓN
La última actividad desde luego es la instalación, en algunos casos la instalación puede ser
CAPITULO III
DIAGNOSTICO
La Constitución Política del Estado en su Art. 2º. declara La soberanía reside en el pueblo;
gobierno. Las funciones del poder público: legislativa. ejecutiva y judicial no pueden ser
Su constitución esta establecida por el artículo 116º. El Poder Judicial se ejerce por la Corte
Distrito, los Tribunales y Jueces de Instancia y demás Tribunales y Juzgados que establece
Sus atribuciones están establecidas por este mismo artículo en el que se indica que la
13
Constitución Política del Estado – Gaceta oficial
40
sometidos sino a la Constitución y la Ley. No podrán ser destituidos de sus funciones, sino
la Nación asignará una partida anual, centralizada en el Tesoro Judicial, que depende del
Consejo de la Judicatura. El Poder Judicial no está facultado para crear o establecer tasas ni
derechos judiciales.
3.2.- CONSTITUCION
Sucre.
Ley.
Para ser Ministro de la Corte Suprema se requiere las condiciones exigidas por los
artículos 64º y 61º de esta Constitución, con la excepción de los numerales 2) y 4) del
41
artículo 61, tener Título de Abogado en Provisión Nacional y haber ejercido con idoneidad
Los Ministros son elegidos por el Congreso Nacional por dos tercios de votos del total de
funciones por un período personal e improrrogable de diez años, computables desde el día
de su posesión y no pueden ser reelegidos sino pasado un tiempo igual al que hubiesen
ejercido su mandato.
El Presidente de la Corte Suprema es elegido por la Sala Plena por dos tercios de votos del
3.2.1.1.- ATRIBUCIONES
b) Designar, por dos tercios de votos de los miembros de la Sala Plena, a los Vocales
Judicatura;
administrativa;
d) Dirimir las competencias que se susciten entre las Cortes Superiores de Distrito;
14
Constitución Política del Estado – Gaceta Oficial
42
dos tercios de votos del total de sus miembros, en cuyo caso el sumario estará a
15
Constitución Política del Estado - Gaceta Oficial
43
Está integrado por cinco Magistrados que conforman una sola sala y son designados por el
El Presidente del Tribunal Constitucional es elegido por dos tercios de votos del total de
Para ser Magistrado del Tribunal Constitucional se requieren las mismas condiciones que
Desempeñan sus funciones por un período personal de diez años improrrogables y pueden
cometidos en el ejercicio de sus funciones, se rige por las normas establecidas para los
3.2.2.1.- ATRIBUCIONES
16
Constitución Política del Estado – Gaceta Oficial
44
y Municipales;
Constitución;
e) Los recursos contra resoluciones del Poder Legislativo o una de sus Cámaras,
f) Los recursos directos de nulidad interpuestos en resguardo del artículo 31º de esta
Constitución;
organismos internacionales;
17
Constitución Política del Estado - Gaceta Oficial
45
universitaria.
Los Consejeros son designados por el Congreso Nacional por el voto de dos tercios de sus
miembros presentes. Desempeñan sus funciones por un período de diez años no pudiendo
ser reelegidos sino pasado un tiempo igual al que hubiesen ejercido su mandato.18
3.2.3.1.- ATRIBUCIONES
Corte Suprema de Justicia, y a esta última para la designación de los Vocales de las
18
Constitución Política del Estado - Gaceta Oficial
46
Consejo de la Judicatura.19
El Poder Judicial de Bolivia tiene una estructura organizativa geográfica que abarca todos
los distritos del País. La ciudad de Sucre se constituye la cede del Poder Judicial, donde se
Judicatura; también tenemos la Respetable Corte Superior de Distrito con sus respectivos
En los demás distritos del país se encuentran las Respetables Corte de Distrito que también
19
Constitución Política del Estado – Gaceta Oficial
47
PODER JUDICIAL DE
BOLIVIA
CHUQUISACA
LA PAZ
POTOSI
SANTA CRUZ
SUCRE COCHABAMBA
TARIJA
BENI
PANDO
ORURO
CHUQUISACA
encargada de la capacitación del Juez y finalmente las cortes Superiores de Distrito con sus
tiene como cabeza la Dirección Administrativa Financiera y cuenta con dos departamentos
DIRECCION
ADMINISTRATIVA
FINANCIERA CORTE
SUPREMA
Secretaria
Departamento de Departamento
Contabilidad Integrada Administrativo
División de
División División División Almacenes y División de
Contabilidad Presupuesto Habilitación Activos Fijos Compras
Suministros
por una Dirección Administrativa Financiera que cuenta con dos departamentos , el de
DIRECCION
ADMINISTRATIVA
FINANCIERATRIBUN
AL
CONSTITUCIONAL
Secretaria
Departamento de Departamento
Contabilidad Integrada Administrativo
División de
División División División División de
Almacenes y
Contabilidad Presupuesto Habilitación Compras y
Activos Fijos
Suministros
49
La organización administrativa y financiera del Tribunal Agrario esta conformada por una
DIRECCION
ADMINISTRATIVA
FINANCIERA
TRIBUNAL AGRARIO
Secretaria
Departamento de Departamento
Contabilidad Integrada Administrativo
División de
División División División División de
Almacenes y
Contabilidad Presupuesto Habilitación Compras y
Activos Fijos
Suministros
3.8.1.- CONSTITUCIÓN
3.8.2.- FUNCIONES
control gubernamental;
Gubernamental,
Servicios
valores, no pudiendo las mismas ser aplicadas sin contar con la previa aprobación
3.8.3.1. ORGANIZACIÓN
La organización del Consejo de la Judicatura esta conformada por los siguientes niveles de
dirección:
Gerentes y Subgerentes.
Jefes de División.
3.8.3.2. ADMINISTRACION
El Presidente
El Gerente General
Judiciales
Unidad de Régimen
Unidad de Asesoría Jurídica
Disciplinario
PRESIDENCIA
GERENCIA GENERAL
Gerencia Administrativa
Financiera
Depto. de Dpto. de
Depto. de Depto. de Depto. de Depto. de Depto. de Depto. de Depto. de
Depto. de Contabilid Obras
Program. Compras Activo Organiz. y Estudios y Informatic Informac.
Tesorería ad Civ. y
y Presup. y Contrat. Fijo Métodos Proyectos a y Archivo
Integrada Mant.
Gerencia de Recursos
Humanos
Depto. de
Depto. de Depto. de Depto. de Seguimiento
Salud y Depto. de
Reclutamiento Clasificación y y registro de Carrera
Bienestar Capacitación
y Selección Remuneración Judicial
Laboral
54
Subgerencia de Digesto
Subgerencia de Servicios Subgerencia de Derechos Subgerencia de Inspección
Judicial Difusión y
Judiciales Auxiliares Reales de Juzgados y Notarias
Publicaciones
A objeto de que el Consejo de la Judicatura pueda ejercer sus funciones a nivel nacional,
este creará las oficinas Distritales del Consejo en cada Distrito del país, delegando y
descentralizando sus atribuciones, con el objeto de representar en el ámbito de sus
funciones y restricciones, fundamentalmente para coordinar las acciones administrativo-
financieras y de recursos humanos. Las oficinas Distritales del Consejo, estarán
conformadas por la División Distrital de Servicios Administrativo-Financieros y por la
División Distrital de Servicios de Recursos Humanos.
Gerencia General
Gerencia General
Asesoría Jurídica
Delegado Administrativo
Delegado Jurídico
Financiero
Administrar los activos fijos del Poder Judicial; supervisar la revalorización, depreciación y
3.10.2.- DEPENDENCIA
20
Reglamento de Organización y funcionamiento del Consejo de la Judicatura - Consejo de la Judicatura
56
No ejerce autoridad en línea. Ejerce autoridad funcional sobre todas la áreas del Poder
baja de bienes.
Fijos, en concordancia con las políticas y directivas emanadas del Plenario del
bienes.
activos fijos, para efectos de costo así como la valoración del activo fijo, en
j) Consolidar las cuentas del activo fijo de las Cortes Superiores de Distrito.
autoridades pertinentes.
para garantizar la tenencia de los bienes del Poder Judicial y evitar pérdidas o
FIJOS
21
Reglamento de Organización y funcionamiento del Consejo de la Judicatura - Consejo de la Judicatura
58
3. Una de las copias del pedido de materiales esta destinada a la Unidad de Activos
del bien, identificación que facilitará el control y ubicación posterior del mismo;
6. El encargado de Activos fijos colocará el código del bien ya sea por el sistema
Procedimientos:
1. El proceso se inicia con la devolución del bien que se encuentra fuera de uso en la
22
Manual de Procedimientos – Departamento de Activos Fijos
59
no mayor a un año.
técnico.
5. Este perito deberá ser designado del personal que trabaja en el Poder Judicial. En
al Poder Judicial se podrá contratar por única vez un perito independiente, quién
Procedimientos:
2. El original del formulario será de uso exclusivo del encargado de Activos Fijos
3. Las copias del formulario serán entregados a la unidad que transfirió y recibió
Considerando la cantidad de unidades que componen las distintas instituciones del Poder
Activos Fijos, trayendo consigo una serie de deficiencias de tipo físico y contable.
Estado, ha ocasionado que las distintas instituciones que conforman el Poder Judicial,
elaboren en distintos formatos y métodos sus inventarios, los que no cuentan con
La carencia de una estructura de códigos que englobe a todas las instituciones que
CONSEJO DE LA JUDICATURA.
Departamento de Sistemas
e Informática
Jefatura del Departamento de Informática.- Está compuesta por el jefe del Departamento
los sistemas.
ejerce sobre un auxiliar. Las tareas de análisis, diseño de sistemas recaen sobre esta
división.
más apta para el Poder Judicial; el desarrollo y/o adquisición de “hardware” y “software”,
momento óptimo para las adquisiciones; y finalmente, propone soluciones para llegar a la
base, y otros, para identificar las fortalezas y debilidades de cada sistema y formular las
recomendaciones respectivas.
Salarial.
sistema operativo para servidores, recomienda a Windows NT. Todos los nuevos
programas a ser desarrollados deberán tener en mente esta plataforma que está siendo
63
adoptada. Es decir, que nuevos programas tienen que correr bajo Windows NT. La única
excepción a esta regla sería el soporte de sistemas que ya están corriendo bajos otros
sistemas operativos. Aún en este caso se debería pensar en migrar dichos sistemas al nuevo
del Plan Estratégico Informático para el Poder Judicial, el sistema operativo recomendado
para ser el estándar de las PC´s clientes, es Windows 95, por las fortalezas técnicas que éste
sistema operativo presenta y además por la facilidad de aprendizaje y uso del mismo.
La elección individual de otros sistemas operativos no deberá ser permitida, a no ser que
exista una razón oficial que justifique la misma. En caso de que se tenga que hacer una
excepción, el jefe del área respectiva deberá enviar la justificación necesaria al jefe del área
sistemas sean sostenibles por el personal que el área de informática vaya a tener a su
disposición.24
23
Plan Estratégico Informático del Poder Judicial – Chemonics
24
Plan Estratégico Informático del Poder Judicial – Chemonics
64
Esta recomendación se fundamenta en el liderazgo que este producto ejerce. La casa matriz
es el proveedor de software de base de datos más grande a nivel mundial. Esto mueve el
interés de las casas desarrolladoras de aplicaciones hacia este producto, lo cual aumenta el
efectuada por la empresa Chemonics a cerca del PEI, ha visto por conveniente adoptar
como herramienta de desarrollo Visual FoxPro Ver. 5.0 adelante; considerando su amplia
3.14.- CODIFICACIÓN
25
Plan Estratégico Informático del Poder Judicial – Chemonics
65
codificación. “X”
X XX X XX
Área.- Se han definido dos áreas en función de las labores que se desempeñan: El
código. “X”
Sub Grupo.- Sub divide los grupos en sub grupos de trabajo tiene dos dígitos, “XX”
Grupo Correlativo
XX X XX XX XX XX XXX XX
Unidad.- Este campo esta formado por la suma de todos los campos antes mencionados, es
CAPITULO IV
PROPUESTA
La nueva concepción del sistema Activos fijos parte de una premisa: Todos los activos del
Poder Judicial pertenecen a los ítem de la planilla presupuestaria; a cada ítem de la planilla
presupuestaria esta asignada una persona que se constituye en el responsable de los activos
Bajo ningún concepto se debe prensar que los activos pertenecen a una persona, mas al
institucional ya establecida; es decir que cada ítem pertenece a una institución, área, grupo,
CONSOLIDADOS.
metodología apropiada para poder efectuar el análisis del sistema, efectuar el diseño y
4.3.- ANÁLISIS.
CO RT E SUPREM A
Informe A ctivos
Informe A ctivos
TRIBUNAL AGRARIO
Solicitud informe
Activos
DISTRITO S JUDICIALES Informe A ctivos
INSTIT UT O DE L A
JUDICAT URA
financiera.
una solicitud a las unidades que conforman el Poder Judicial para que envíen su sin
La contaduría General del estado anualmente solicita información pertinente de los Activos
ADQUISICIONES
---------------------
CONTABILIDAD PERSONAL
Solicitud informe ABM de
Activos personal
Informe Activos
Sistema de Activos
Fijos Institucional Informes de A ctivos
Fijos
Planilla
Presupuestaria Mantenimiento
del Sistema
ACTIVOS FIJOS
solicitud de
informes informes de
PRESUPUESTOS Activos fijos
CONTADURIA
GENERAL
le facilite los reportes necesarios para efectuar sus estados mensuales y anuales.
presupuesto anual del Poder Judicial a objeto de asignar los activos a cada ítem.
70
4.4.- DISEÑO
ambiente gráfico, con opción de migrar datos hacia una base de datos relacional tal como
4.4.1.2.- EQUIPAMIENTO.-
Mouse
Equipo Impresor
Carro largo
cuentan con el equipamiento necesario par este fin. Los distritos del país a excepción del
distrito de Santa Cruz y Cochabamba deben efectuar las gestiones necesarias par poder
Reporte
Personal Item
Activos Fijos
Respaldo
Altas Actualizacón de valores por Altas
código de Activo Remisión
Bajas Bajas Consejo
Actualizacón de valores por
Modificaciones Grupo Contable Modificaciones Recepción
Consultas Actualizacón de valores por
Grupo Contable y Auxiliar de Cargos Integración
Planilla grupo
Altas
Altas Actualizacón de valores por
Unidad Bajas
Bajas
Actualizacón de valores por Modificaciones
Modificaciones Unidad y Responsable
Tipo de
Resumen por grupo Contable Cambio
Activos
Inventario de Activos Fijos por Altas
Altas grupo Contable
Bajas
Bajas Activos Fijos Dados de Baja
Modificaciones
Modificaciones
Activos Fijos con Revaluo Cuentas de
Duplicar
Ingreso
Transferir
Reporte de Mantenimiento
Revaluo Grupos y Auxiliar
Contable
Grupos
Contables
Reporte de Grupo y Auxiliar
Contable
Altas
Bajas
Modificaciones
Auxiliares
Contables
Altas
Bajas
Modificaciones
por perito
Activos
transferencia
Reportes
Actualización de valores del Activos Fijo ordenado por Grupo y Auxiliar contable
Certificados
Activo
Codins Carácter 2
Codare Carácter 1
Codgru Carácter 2
Codsub Carácter 2
Codorg Carácter 2
Codcat Carácter 2
78
Codmat Carácter 3
Vidaut Numérico 4
Fechaing Fecha 8
Revalor Lógico 1
Observac Memo 4
Mes Carácter 2
Dia Carácter 2
Ano Carácter 4
Codun Carácter 2
Índices
79
Auxili
Codaux Carácter 2
Observau Memo 4
Fechaau Fecha 8
Índices
Baja
Índices
80
Bajas
Codins Carácter 2
Codare Carácter 1
Codgru Carácter 2
Codsub Carácter 2
Codorg Carácter 2
Codcat Carácter 2
Codmat Carácter 3
Numcor Carácter 2
Codaux Carácter 2
Correl Numérico 6
Fechaba Fecha 8
Resolba Carácter 12
Observa Memo 4
Mes Carácter 2
Dia Carácter 2
Ano Carácter 4
Codun Carácter 2
81
Índices
Cambio
Codins Carácter 2
Codare Carácter 1
Codgru Carácter 2
Codsub Carácter 2
Codorg Carácter 2
Índices
Cargos
Codigcar Carácter 3
Descacar Carácter 40
82
Índices
Categoría
Codigcat Carácter 3
Índices
Contab
Vidautil Numérico 4
Observco Memo 4
Depreci Lógico 1
Actuali Lógico 1
Fecha Fecha 8
Índices
83
Document
Descridoc Carácter 10
Índices
Estado
Descrest Carácter 10
Índices
Ítem
Codins Carácter 2
Codare Carácter 1
Codgru Carácter 2
Codsub Carácter 2
84
Codorg Carácter 2
Codcat Carácter 2
Codmat Carácter 3
Numcorr Carácter 2
Statite Lógico 1
Frontite Lógico 1
Índices
Nivel
Índices
85
Pas
Foto General 4
Descripcio Memo 4
Índices
Personal
Materper Carácter 30
Nacimper Fecha 8
Ingreper Fecha 8
Retirper Fecha 8
Bancaper Carácter 20
Rensoper Carácter 10
Libreper Carácter 12
Bancoper Carácter 3
Vigenpèr Carácter 1
Abmodper Carácter 1
Índices
Planilla
87
Codins Carácter 2
Codare Carácter 1
Codgru Carácter 2
Codsub Carácter 2
Codorg Carácter 2
Codcat Carácter 2
Codmat Carácter 3
Numcor Carácter 2
Estadpla Carácter 1
Cveabopla Lógico 1
Cvecopla Lógico 1
Cvmedpla Lógico 1
Cvaudpla Lógico 1
88
Cvadmpla Lógico 1
Cvco1pla Lógico 1
Cvco2la Lógico 1
Cvco3la Lógico 1
Cvco4la Lógico 1
Cvforpla Lógico 1
Cvmagpla Lógico 1
Índices
Reportes
Desre Carácter 30
Codt Carácter 1
Codrre Carácter 3
Índices
Revalor
Codins Carácter 2
Codare Carácter 1
Codgru Carácter 2
Codsub Carácter 2
Codorg Carácter 2
Codcat Carácter 2
Codmat Carácter 3
Numcor Carácter 2
Codaux Carácter 2
Correl Numérico 6
Codocdoc Carácter 1
Nudocper Carácter 15
90
Numerite Carácter 4
Costo Numérico 15
Fechaing Fecha 8
Mes Carácter 2
Dia Carácter 2
Ano Carácter 4
Fechare Fecha 8
Resorbe Carácter 12
Observrev Memo 4
Codun Carácter 2
Índices
Unidad
Codun Carácter 2
Desun Carácter 35
Índices
Viscal10
Vista10
92
visfi1
93
visfi2
4.4.5.2.1.- TABLAS
Revalor
Desare Carácter 40
94
Índices
Catego
Descat Carácter 40
Índices
Depar
Desdep Carácter 40
Índices
Grupo
Codgru Carácter 2
Desgru Carácter 40
Índices
Insti
Desins Carácter 40
Desgru Carácter 40
Índices
96
Locali
Coddep Carácter 1
Codpro Carácter 2
Codsec Carácter 1
Codloc Carácter 2
Desloc Carácter 40
Índices
Materia
Codare Carácter 1
Codmat Carácter 3
Desmat Carácter 40
97
Índices
Provin
Coddep Carácter 1
Codpro Carácter 2
Despro Carácter 40
Índices
Seccion
Coddep Carácter 1
Codpro Carácter 2
Codsec Carácter 1
Dessec Carácter 40
98
Índices
Subgrupo
Codare Carácter 1
Codgru Carácter 2
Codsub Carácter 2
Dessub Carácter 40
Tomloc Lógico 1
Índices
Unidad
Coddep Carácter 1
Desdep Carácter 40
Codpro Carácter 2
Despro Carácter 40
99
Codsec Carácter 1
Dessec Carácter 40
Codloc Carácter 2
Desloc Carácter 40
Codins Carácter 2
Desins Carácter 40
Codare Carácter 1
Desare Carácter 40
Codgru Carácter 2
Desgru Carácter 40
Codorg Carácter 2
Codcat Carácter 2
Descat Carácter 40
Codmat Carácter 3
Desmat Carácter 40
Numcor Carácter 2
Coduni Carácter 16
Desuni Carácter 80
Índices
100
Es el formulario que emite la jefatura de personal en el que se registra los datos personales
del nuevo funcionario que ingresa a la institución haciendo referencia el número de Ítem.
unidad a otra dentro de una misma institución es requisito fundamental, acto que viene
26
Ver. ANEXOS
27
Ver. ANEXOS
28
Ver. ANEXOS
101
ACTIVOS FIJOS
DISTRITOS CONTADURIA
ACTIVOS REVALUOS TRASPASOS CONTABILIDAD TRIBUNAL
JUDICIALES GENERAL
CONSTITUCIONAL -
TRIBUNAL AGRARIO
Altas Bajas Modificaciones Certificado Informes Información Informes Informes Informes Información
para para
consolidación consolidación
Anual Anual
Docum entación de
Ingreso nuevo Adquis ición de
Inform e de Revaluo
funcionario Inform e de Baja de nuevos Activos
de Activos
Activos
Registrar
Personal
Registrar Registrar
Registrar Modificación
Alta de
Revaluo Activos
Activos
BASE DE DATOS
Efectuar
Consolidación
nacional Emitir
Emitir Información de
Emitir Emitir Emitir
Información Activos por
certificado certificado Información de
de Activos Rubros
de Altas de Revaluos Activos dados
revaluados
de Baja Emitir Emitir
Emitir
Información de Información de
certificado
Activos por Activos para la
de Bajas
grupos contaduría
Contables
102
Alta de Personal
29
Ver. ANEXOS
103
Alta de Activos
o El sistema emitirá el respectivo certificado de alta del bien, copia que deberá ser
entregada al interesado.
30
Ver. ANEXOS
104
003. 31
respectivo en el sistema.
para la unidad de Activos Fijos, una copia para la unidad que entrega la unidad
31
Ver. ANEXOS
105
encomendado.
forma normal.
4.4.1.- INTRODUCCIÓN
El presente manual de codificación se constituye en una guía que regirá la parte relativa de
todas las acciones y procedimientos de los Bienes de Uso del Poder Judicial.
106
4.4.2.- MANTENIMIENTO
de las instituciones del Poder Judicial, deben ser mantenidas por la unidad de planificación
4.4.3.- PROPÓSITO
Codificación es el acto de asignar un indicador a cada bien o material, que ingresa o forma
del Consejo de la Judicatura y adoptada como guía de organización de todos los sistemas
representan la ubicación institucional de una unidad, a este código se añade 2 dígitos del
código contable, 2 dígitos del código del auxiliar de grupo y 3 dígitos del correlativo
correspondiente.
4.4.7.1.1.- COMPOSICIÓN :
Geográfico
Código de Departamento
Código de Provincia
Código de sección
Localidad
108
Institucional
Código institucional
Código de Área
Código de Grupo
Código de Subgrupo
Código de Organización
Código de Categoría
Código de Materia
Número Correlativo
4.4.7.1.2.- CODIFICACIÓN
Institución
codins desins
02 TRIBUNAL CONSTITUCIONAL
03 CONSEJO DE LA JUDICATURA
Área
Codare desare
1 JURISDICCIONAL
2 ADMINISTRATIVA Y DISCIPLINARIA
Grupo
1 01 DIRECCION SUPERIOR
1 02 SALAS ESPECIALIZADAS
1 08 SERVICIOS JURISDICCIONALES
2 01 DIRECCION SUPERIOR
2 02 FINANZAS Y ADMINISTRACION
2 03 RECURSOS HUMANOS
2 04 SERVICIOS JUDICIALES
110
2 05 DISCIPLINARIO
Subgrupo
1 01 01 SALA PLENA
1 01 02 PRESIDENCIA
1 02 01 CIVIL
1 02 02 PENAL
1 03 01 SUBSTANCIAS CONTROLADAS
1 03 02 VIGILANCIA
1 03 03 CIVIL
1 03 04 PENAL
1 03 05 FAMILIAR
1 03 07 TRABAJO
1 03 08 MINERIA
1 03 09 MENOR
1 04 01
1 04 02 SUBSTANCIAS CONTROLADAS
1 04 03 CIVIL
1 04 04 PENAL
1 04 05 FAMILIAR
111
1 04 07 TRABAJO
1 04 08 MINERIA
1 04 09 MENOR
1 05 01 CIVIL
1 05 02 PENAL
1 05 03 FAMILIAR
1 06 01
1 06 02 CIVIL
1 06 03 PENAL
1 06 04 FAMILIAR
1 08 01 MEDICINA LEGAL
1 08 04 ARCHIVO
1 08 02 POLICIA JUDICIAL
2 01 01 CONSEJO DE LA JUDICATURA
2 01 02 PRESIDENCIA
2 01 03 GERENCIA GENERAL
2 02 01 FINANZAS Y ADMINISTRACION
2 02 02 FINANZAS
2 02 03 ADMINISTRACION
2 02 04 INFRAESTRUCTURA
2 02 05 INFORMATICA
112
2 03 01 RECURSOS HUMANOS
2 03 02 ADMINISTRACION DE PERSONAL
2 03 03 CARRERA JUDICIAL
2 04 01 SERVICIOS JUDICIALES
2 04 04 DERECHOS REALES
2 04 05 NOTARIAS DE FE PUBLICA
1 08 03 BIBLIOTECA
2 05 01 DELEGATURIA JURIDICA
2 05 02 REGIMEN DISCIPLINARIO
Categoría
1 01 SALA
1 02 PRESIDENCIA
2 01 PLENARIO
2 02 GERENCIA
113
2 03 SUB-GERENCIA
2 04 DELEGATURIA
2 05 DIRECCION
2 06 DEPARTAMENTO
2 07 DIVISION
2 08 AUXILIATURA
1 09 SECRETARIA
1 08 DEPARTAMENTO
2 09 UNIDAD
2 10 PRESIDENCIA
materia
1 000
1 001 PLENA
1 002 CIVIL
1 003 PENAL
1 005 FAMILIAR
1 006 VIGILANCIA
1 008 MENOR
1 010 TRABAJO
1 011 MINERIA
2 000
2 002 GENERAL
2 013 ADMINISTRATIVA
2 014 INFRAESTRUCTURA
2 015 SISTEMAS
2 016 TESORERIA
2 024 INFORMATICA
2 031 ADQUISICIONES
2 032 ALMACENES
2 033 CONTRATOS
2 035 MANTENIMIENTO
2 044 CAPACITACION
116
2 045 PERSONAL
2 046 HABILITACION
2 065 ADMINISTRATIVO
2 067 JURIDICO
2 069 COMPRAS
117
2 070 CONTABILIDAD
2 071 PRESUPUESTO
2 072 FINANZAS
1 013 PRESIDENCIA
1 016 ARCHIVO
1 017 BIBLIOTECA
Unidad
CAPINOTA (C.)
UNCIA (C.)
PORTACHUELO (C.)
01 EDIFICIOS 40 V V 01/01/00
02 TERRENOS 0 F V 01/01/00
10 SEMOVIENTES 4 V V 01/01/00
04 01 ESCRITORIO 18/05/00
04 02 MESA 01/01/00
04 03 MESÓN 01/01/00
04 08 APARADOR 01/01/00
04 09 VITRINA 01/01/00
4.4.7.4.- BAJA
codbaja descbaja
02 ENAJENACION
03 DONACION
04 DAÑO O SINIESTRO
05 OBSOLECENCIA
166
06 DESMANTELAMIENTO
07 VENCIMIENTO
08 DESCOMPOSICION
4.4.7.5.- CARGOS
codigcar descacar
002 Actuario
003 Administrador
004 Agente
011 Ascensorista
017 Auxiliar
167
033 Bibliotecario
034 Cajero
035 Calígrafo
037 Comercializador
040 Consejero
041 Conserje
168
042 Contador
048 Cotizador
049 Dactilógrafo
051 Director
074 Encuadernador
075 Estadígrafo
077 Gerente
079 Habilitado
080 Jardinero
081 Jefe
093 Juez
099 Magistrado
101 Mensajero
102 Ministro
103 Médico
108 Planificador
109 Portero
110 Presidente
111 Programador I
112 Programador II
113 Registrador
171
116 Secretaria
120 Secretario
128 Secretario-abogado
129 Sereno
134 Transcriptor
135 Técnico I
136 Técnico II
140 Ujier
141 Vocal
146 Operador
147 Recepcionista
149 Arquitecto
151 Abogado
155 Subgerente
156 Dibujante
159 Conciliador
162 Analista
173
168 Impresor
4.4.7.6.- DOCUMENT
codocdoc Descridoc
1 C.I.
2 RUN
3 RIN
4.4.7.7.- ESTADO
codigest descrest
0 SOLTERO
1 CASADO
2 DIVORCIADO
174
3 VIUDO
4 CONCUBINO
4.4.7.8.- UNIDAD_A
Codun Desun
01 PIEZA
02 EQUIPO
03 CAJA
04 UNIDAD
reduciendo el elevado tiempo requerido para escribir, verificar, depurar y mantener los
control que minimizan la complejidad de los problemas, y por consiguiente reducen los
errores.
Un programa propio puede ser escrito utilizando solamente tres tipos de estructuras de
control:
175
Secuenciales
Selectivas
Repetitivas
Posee un solo punto de entrada y uno de salida o fin de control del programa
Existen cambios desde la entrada hasta la salida que se pueden seguir y que pasan
Judicial PEI, se ha definido utilizar Visual FoxPro Ver. 6.0, herramienta que permite
relacionales.
4.5.3.1.- PROGRAMAS
****** * C:\SISTEMAS\FIJO\FORMU\MENTOD01
****** * C:\SISTEMAS\FIJO\FORMU\ALTACT10
32
Fundamentos de programación - Luis Joyanes Aguilar
176
****** * C:\SISTEMAS\FIJO\FORMU\ALTAUX10
****** * C:\SISTEMAS\FIJO\FORMU\ALTCAM01
****** * C:\SISTEMAS\FIJO\FORMU\ALTCAM10
****** * C:\SISTEMAS\FIJO\FORMU\ALTCAR10
****** * C:\SISTEMAS\FIJO\FORMU\ALTCON10
****** * C:\SISTEMAS\FIJO\FORMU\ALTITE10,11,12,13,14,15
****** * C:\SISTEMAS\FIJO\FORMU\ALTPAS10
****** * C:\SISTEMAS\FIJO\FORMU\ALTPER10
****** * C:\SISTEMAS\FIJO\FORMU\ALTPLA10
****** * C:\SISTEMAS\FIJO\FORMU\BAJACT10
****** * C:\SISTEMAS\FIJO\FORMU\BAJAUX10
****** * C:\SISTEMAS\FIJO\FORMU\BAJCAM20
****** * C:\SISTEMAS\FIJO\FORMU\BAJCAR20
****** * C:\SISTEMAS\FIJO\FORMU\BAJCON10
****** * C:\SISTEMAS\FIJO\FORMU\BAJITE20
****** * C:\SISTEMAS\FIJO\FORMU\BAJPER20
****** * C:\SISTEMAS\FIJO\FORMU\BAJPLA20
****** * C:\SISTEMAS\FIJO\FORMU\CONPER40
****** * C:\SISTEMAS\FIJO\FORMU\CONPLA40
****** * C:\SISTEMAS\FIJO\FORMU\DUPACT10
****** * C:\SISTEMAS\FIJO\FORMU\IMPDET01,02
****** * C:\SISTEMAS\FIJO\FORMU\INTEGR10
****** * C:\SISTEMAS\FIJO\FORMU\INTEGR11
****** * C:\SISTEMAS\FIJO\FORMU\MODACT10
****** * C:\SISTEMAS\FIJO\FORMU\MODAUX10
****** * C:\SISTEMAS\FIJO\FORMU\MODCAM30
177
****** * C:\SISTEMAS\FIJO\FORMU\MODCAR30
****** * C:\SISTEMAS\FIJO\FORMU\MODCON10
****** * C:\SISTEMAS\FIJO\FORMU\MODITE30
****** * C:\SISTEMAS\FIJO\FORMU\MODPER30
****** * C:\SISTEMAS\FIJO\FORMU\MODPLA30
****** * C:\SISTEMAS\FIJO\FORMU\PASSWORD
****** * C:\SISTEMAS\FIJO\FORMU\RESPALDO
****** * C:\SISTEMAS\FIJO\FORMU\REVACT10
****** * C:\SISTEMAS\FIJO\FORMU\TRAACT10
****** * C:\SISTEMAS\FIJO\FORMU\ENVIO10
****** * C:\SISTEMAS\FIJO\FORMU\RECEP10
****** * C:\SISTEMAS\FIJO\PROGRAMA\MENTOD01.PRG
*:***********************************************************************
*******
*:
*: Archivo de procedimiento
C:\SISTEMAS\FIJO\DOCUMENTACION\CODIGO\MENTOD01.PRG
*:
*:
*: Documentado mediante la versión del Asistente para formato de Visual
FoxPro .05
*:***********************************************************************
*******
*: MENTOD01
#INCLUDE C:\VFP\FOXPRO.H
CLOSE ALL
SET STATUS BAR OFF
SET DELETE ON
SET MULT ON
SET EXACT OFF
Clear SCREEN
SET EXCLUSIVE ON
Clear ALL
SET LOCK OFF
SET DELIMITER OFF
SET ECHO OFF
SET EXACT ON
SET TALK OFF
178
DO form C:\sistemas\fijo\formu\pasword
IF val1 > 3 .or. val1 = 3 .or. val2 > 3 .or. val2 = 3
DO C:\sistemas\fijo\programa\exit.prg
ELSE
ENDIF
IF clave = '1'
DO form C:\sistemas\fijo\formu\caratula
READ events
CLOSE databases
SET sysmenu to defa
CLOSE all
Clear all
ELSE
DO form C:\sistemas\fijo\formu\caratula
READ events
CLOSE databases
SET sysmenu to defa
CLOSE all
Clear all
ENDIF
****** * C:\SISTEMAS\FIJO\FORMU\ALTACT10.SCX
OpenViews = 1
Left = 73
Top = 26
Width = 757
Height = 419
Name = "Dataenvironment"
Left = 134
Top = 19
Width = 90
Height = 90
179
Alias = "activo"
Database = ..\data\fijos.dbc
CursorSource = "activo"
EXCLUSIVE = .T.
Name = "Cursor1"
Left = 388
Top = 19
Width = 90
Height = 90
Alias = "auxili"
Database = ..\data\fijos.dbc
CursorSource = "auxili"
Filter = ""
Name = "Cursor2"
Left = 229
Top = 12
Width = 90
Height = 126
Alias = "contab"
Database = ..\data\fijos.dbc
CursorSource = "contab"
Name = "Cursor3"
Left = 465
Top = 222
Width = 90
Height = 90
Alias = "planilla"
Database = ..\data\fijos.dbc
CursorSource = "planilla"
Name = "Cursor5"
Left = 147
Top = 255
Width = 90
Height = 90
Alias = "item"
Database = ..\data\fijos.dbc
CursorSource = "item"
Name = "Cursor6"
Left = 335
Top = 207
Width = 90
Height = 90
Alias = "personal"
Database = ..\data\fijos.dbc
CursorSource = "personal"
Name = "Cursor7"
Left = 10
Top = 20
Width = 90
Height = 90
Alias = "document"
Database = ..\data\fijos.dbc
CursorSource = "document"
Name = "Cursor8"
Left = 8
Top = 198
180
Width = 90
Height = 90
Alias = "unidad"
Database = ..\..\organiza\organiza.dbc
CursorSource = "unidad"
Name = "Cursor4"
ParentAlias = "contab"
RelationalExpr = "codcont"
ChildAlias = "auxili"
ChildOrder = "codcont"
Name = "Relation5"
Left = 517
Top = 24
Width = 90
Height = 90
Alias = "cambio"
Database = ..\data\fijos.dbc
CursorSource = "cambio"
EXCLUSIVE = .T.
Name = "Cursor9"
Height = 372
Width = 672
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Picture = ..\..\..\bmp\coctail5.gif
BorderStyle = 3
Caption = "Alta de Activos"
ControlBox = .F.
Movable = .F.
MaxWidth = -1
Enabled = .T.
WindowType = 1
WindowState = 0
LockScreen = .F.
SizeBox = .F.
Name = "Form1"
PROCEDURE botones
salvareg=recno()
IF eof()
thisform.b_siguiente.enabled=.f.
ELSE
thisform.b_siguiente.enabled=.t.
Skip
IF eof()
thisform.b_siguiente.enabled=.f.
GO bottom
ENDIF
ENDIF
IF between (salvareg,1,reccount())
GO (salvareg)
ENDIF
IF bof()
thisform.b_anterior.enabled=.f.
ELSE
181
thisform.b_anterior.enabled=.t.
Skip
IF bof()
thisform.b_anterior.enabled=.f.
GO bottom
ENDIF
ENDIF
IF between (salvareg,1,reccount())
GO (salvareg)
ENDIF
ENDPROC
PROCEDURE Init
SET century on
ENDPROC
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Grupo"
Height = 19
Left = 15
Top = 44
Width = 107
TabIndex = 25
Name = "Label4"
Picture = ..\bmps\consejo.bmp
Stretch = 1
Height = 88
Left = 626
Top = -8
Width = 48
Name = "Image1"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Nro. Item "
Height = 19
Left = 336
Top = 70
Width = 55
TabIndex = 28
Name = "Label11"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
182
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Descripción"
Height = 18
Left = 134
Top = 97
Width = 66
TabIndex = 33
Name = "Label25"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Fecha de Incorporación"
Height = 18
Left = 15
Top = 10
Width = 128
TabIndex = 23
Name = "Label2"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Tipo de Cambio"
Height = 18
Left = 336
Top = 11
Width = 86
TabIndex = 24
Name = "Label1"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Auxiliar"
Height = 19
Left = 15
Top = 77
Width = 107
TabIndex = 26
183
Name = "Label3"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Correlativo"
Height = 18
Left = 336
Top = 45
Width = 61
TabIndex = 27
Name = "Label8"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Valor"
Height = 18
Left = 358
Top = 162
Width = 30
TabIndex = 36
Name = "Label5"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Unidad"
Height = 18
Left = 34
Top = 338
Width = 66
TabIndex = 42
Name = "Label6"
Comment = ""
FontName = "Times New Roman"
FontSize = 10
Alignment = 2
Value = {}
ControlSource = ""
Enabled = .T.
Format = "!D"
Height = 20
184
InputMask = ""
Left = 157
TabIndex = 1
ToolTipText = "Especificar la fecha de incorporación"
Top = 6
Width = 77
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text9"
PROCEDURE When
thisform.Text9.value = date()
thisform.show
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
FontName = "Times New Roman"
FontSize = 10
Alignment = 0
Value =
ControlSource = ""
Enabled = .T.
Format = "K!"
Height = 20
InputMask = ""
Left = 443
TabIndex = 2
ToolTipText = "Especificar el tipo de cambio"
Top = 6
Width = 69
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text6"
PROCEDURE When
SELE cambio
GO bottom
thisform.Text6.value = cambicam
thisform.show
ENDPROC
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
FontBold = .F.
FontItalic = .F.
185
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Nombres"
Height = 18
Left = 497
Top = 186
Width = 80
TabIndex = 40
BackColor = 192,192,192
Name = "Label10"
FontName = "Times New Roman"
FontSize = 10
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 20
InputMask = ""
Left = 278
TabIndex = 12
ToolTipText = "Especificar el apellido del esposo"
Top = 202
Width = 123
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text8"
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Ap. de Casada"
Height = 18
Left = 314
Top = 186
Width = 80
TabIndex = 39
BackColor = 192,192,192
Name = "Label13"
187
Height = 20
InputMask = ""
Left = 410
TabIndex = 13
ToolTipText = "Especificar el primer Nombre .."
Top = 202
Width = 203
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text7"
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
FontName = "Times New Roman"
FontSize = 10
Alignment = 0
Value = 0
ControlSource = ""
188
Format = "!R"
Height = 20
InputMask = "9,999,999,999.99"
Left = 410
TabIndex = 9
ToolTipText = "Especificar el valor del bien"
Top = 162
Width = 136
Name = "Text3"
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "mm/dd/aa"
Height = 18
Left = 170
Top = 25
Width = 58
TabIndex = 44
Name = "Label14"
FontName = "Times New Roman"
FontSize = 10
Alignment = 0
Value =
ControlSource = ""
Format = "K!"
Height = 41
InputMask = ""
Left = 12
TabIndex = 7
ToolTipText = "Descripción del bien"
Top = 113
Width = 356
Name = "Text10"
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
FontSize = 8
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 23
InputMask = ""
Left = 92
TabIndex = 43
ToolTipText = "Especificar la unidad "
Top = 334
Width = 507
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text4"
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Vida Util "
Height = 18
Left = 136
Top = 160
Width = 51
TabIndex = 34
Name = "Label12"
FontName = "Times New Roman"
FontSize = 10
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 20
InputMask = ""
Left = 202
TabIndex = 8
ToolTipText = "Especificar vida útil en años"
Top = 160
Width = 44
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text11"
190
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Años"
Height = 18
Left = 250
Top = 160
Width = 30
TabIndex = 35
Name = "Label15"
Top = 47
Left = 523
Height = 16
Width = 14
Caption = "Check1"
Enabled = .F.
TabIndex = 29
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Check1"
Top = 72
Left = 523
Height = 16
Width = 13
Caption = "Check2"
Enabled = .F.
TabIndex = 31
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Check2"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Depreciar"
Height = 18
Left = 552
Top = 46
191
Width = 51
TabIndex = 30
ToolTipText = "Si se deprecia"
Name = "Label16"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Actualizar"
Height = 18
Left = 552
Top = 72
Width = 56
TabIndex = 32
Name = "Label17"
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Ubicación "
Height = 18
Left = 292
Top = 234
Width = 59
TabIndex = 41
ForeColor = 255,0,0
BackColor = 255,0,0
Name = "Label18"
BorderWidth = 2
Height = 0
Left = 8
Top = 244
Width = 274
Name = "Line1"
BorderWidth = 2
Height = 0
Left = 360
Top = 246
Width = 304
Name = "Line2"
BorderWidth = 2
Height = 119
Left = 6
Top = 245
Width = 0
BorderColor = 0,0,0
Name = "Line3"
192
BorderWidth = 2
Height = 117
Left = 664
Top = 248
Width = 0
BorderColor = 255,255,255
Name = "Line4"
BorderWidth = 2
Height = 2
Left = 6
Top = 364
Width = 658
BorderColor = 255,255,255
Name = "Line5"
FontName = "Times New Roman"
FontSize = 10
Alignment = 0
Value = 0
ControlSource = ""
Enabled = .F.
Format = "!"
Height = 20
InputMask = ""
Left = 450
TabIndex = 5
ToolTipText = "Correlatio del activo"
Top = 42
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 64,0,64
Name = "Text12"
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
FontName = "Times New Roman"
FontSize = 10
Alignment = 0
Value =
ControlSource = ""
Enabled = .T.
Format = "K!"
Height = 20
InputMask = ""
Left = 449
TabIndex = 6
ToolTipText = "Especificar el número de Ítem "
Top = 69
Width = 64
DisabledBackColor = 255,255,255
Name = "Text2"
193
PROCEDURE Valid
dat= alltrim(thisform.Text2.value)
SELE item
SET order to numerite
SEEK dat
IF found()
thisform.nogrupo2.COMMAND1.enabled = .t.
thisform.nogrupo2.COMMAND2.enabled = .t.
thisform.Text10.ENABLED = .T.
thisform.Text3.ENABLED = .T.
thisform.Text6.ENABLED = .T.
codin= codins
codar = codare
codgr= codgru
codsu = codsub
codor = codorg
codca = codcat
codma = codmat
numco = numcor
SELE planilla
SET order to numerite
SEEK dat
IF found()
thisform.nogrupo2.COMMAND1.enabled = .t.
thisform.nogrupo2.COMMAND2.enabled = .t.
ubi =
codins+codare+codgru+codsub+codorg+codcat+codmat+numcor
dat1= alltrim(codocdoc)+alltrim(nudocper)
SELE personal
SET order to indocper
SEEK dat1
IF found()
thisform.nogrupo2.COMMAND1.enabled = .t.
thisform.nogrupo2.COMMAND2.enabled = .t.
thisform.Text1.value = paterper
thisform.Text5.value = materper
thisform.Text8.VALUE = CASADPER
thisform.Text7.VALUE = NOMB1PER+NOMB2PER
nudocpe = nudocper
codocdo = codocdoc
SELE unidad
SET order to coduni
SEEK ubi
IF found()
thisform.nogrupo2.COMMAND1.enabled = .t.
thisform.nogrupo2.COMMAND2.enabled = .t.
thisform.Text4.value = desuni
194
thisform.TEXT13.VALUE = DESDEP
thisform.TEXT14.VALUE = DESPRO
thisform.TEXT15.VALUE = DESSEC
thisform.TEXT16.VALUE = DESLOC
thisform.TEXT17.VALUE = DESINS
thisform.TEXT18.VALUE = DESARE
thisform.TEXT19.VALUE = DESCAT
thisform.TEXT20.VALUE = DESMAT
ELSE
ENDIF
ELSE
ENDIF
ELSE
ENDIF
ELSE
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
thisform.Text2.value = ''
thisform.show
ENDPROC
195
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
FontName = "Times New Roman"
FontSize = 10
BoundColumn = 2
ColumnCount = 2
ColumnWidths = "600,40"
RowSourceType = 6
RowSource = "auxili.nomaux,codaux"
Value =
ControlSource = "auxili.codaux"
FirstElement = 1
Height = 20
Left = 92
NumberOfElements = 0
TabIndex = 4
ToolTipText = "Especificar el tipo de Documento"
Top = 71
Width = 238
Name = "Combo11"
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
PROCEDURE Valid
G= alltrim(THISFORM.Combo11.VALUE)
DATO1=LEN(ALLTRIM(G))
IF DATO1 > 0
AUX= auxili.CODAUX
SELE ACTIVO
SET FILTER TO CODCONT = ACT .AND. CODAUX = AUX
SET ORDER TO CORREL
GO BOTTOM
NUM= CORREL
thisform.Text12.VALUE = NUM+1
thisform.SHOW
SELE auxili
ELSE
mnp=MESSAGEBOX ( "¡Ud. no puede continuar sin seleccionar el
auxiliar!",6 + 32 + 256 ) = 6
ENDIF
ENDPROC
FontName = "Times New Roman"
FontSize = 7
Alignment = 0
196
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 23
InputMask = ""
Left = 20
TabIndex = 14
ToolTipText = "Especifica el departamento"
Top = 252
Width = 182
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text13"
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
FontName = "Times New Roman"
FontSize = 7
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 23
InputMask = ""
Left = 211
TabIndex = 15
ToolTipText = "Especifica la provincia "
Top = 254
Width = 118
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text14"
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
FontName = "Times New Roman"
FontSize = 7
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 23
InputMask = ""
197
Left = 336
TabIndex = 16
ToolTipText = "Especificar la sección"
Top = 256
Width = 168
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text15"
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
FontName = "Times New Roman"
FontSize = 7
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 23
InputMask = ""
Left = 510
TabIndex = 17
ToolTipText = "Especificar la localidad"
Top = 258
Width = 148
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text16"
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
FontName = "Times New Roman"
FontSize = 7
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 23
InputMask = ""
Left = 22
TabIndex = 18
ToolTipText = "Especificar la Institución"
Top = 292
Width = 148
DisabledBackColor = 255,255,255
198
DisabledForeColor = 0,0,0
Name = "Text17"
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
FontName = "Times New Roman"
FontSize = 7
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 23
InputMask = ""
Left = 182
TabIndex = 19
ToolTipText = "Especificar el area"
Top = 294
Width = 148
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text18"
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
FontName = "Times New Roman"
FontSize = 7
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 23
InputMask = ""
Left = 338
TabIndex = 20
ToolTipText = "Especificar la categoria"
Top = 296
Width = 168
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text19"
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
199
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
FontName = "Times New Roman"
FontSize = 7
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Format = "K!"
Height = 23
InputMask = ""
Left = 512
TabIndex = 21
ToolTipText = "Especifica la materia"
Top = 298
Width = 148
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text20"
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
ENDPROC
FontName = "Times New Roman"
FontSize = 10
BoundColumn = 2
ColumnCount = 2
ColumnWidths = "193,45"
RowSourceType = 6
RowSource = "contab.nomcont,codcont"
Value =
ControlSource = "Contab.Codcont"
FirstElement = 1
Height = 20
Left = 92
NumberOfElements = 0
TabIndex = 3
ToolTipText = "Especificar el tipo de Documento"
Top = 42
Width = 238
Name = "Combo1"
PROCEDURE LostFocus
this.forecolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
ENDPROC
PROCEDURE GotFocus
this.forecolor=rgb(255,255,255)
this.backcolor=rgb(0,128,128)
200
ENDPROC
PROCEDURE Valid
PUBLIC ACT, AUX, nudocpe, codocdo, codin, codar, codgr, codsu,
codor, codca, codma, numco
G= THISFORM.Combo1.VALUE
DATO1=LEN(ALLTRIM(G))
IF DATO1<>0
codcon = contab.CODCONT
IF contab.DEPRECI = .T.
thisform.Check1.VALUE = .T.
ELSE
thisform.Check1.VALUE = .F.
ENDIF
IF contab.ACTUALI = .T.
thisform.Check2.VALUE = .T.
ELSE
thisform.Check2.VALUE = .F.
ENDIF
thisform.Text11.VALUE = contab.vidautil
SELE auxili
ACT= THISFORM.Combo1.VALUE
thisform.Combo11.VALUE = auxili.NOMAUX
ELSE
mnp=MESSAGEBOX ( "¡Ud. no puede continuar sin asignar el
grupo!",6 + 32 + 256 ) = 6
ENDIF
thisform.SHOW
ENDPROC
AutoSize = .F.
ButtonCount = 3
BackStyle = 0
BorderStyle = 1
Value = 1
Enabled = .T.
Height = 150
Left = 620
Top = 82
Width = 50
TabIndex = 22
Name = "NOGRUPO2"
COMMAND1.AutoSize = .F.
COMMAND1.Top = 7
COMMAND1.Left = 8
COMMAND1.Height = 32
201
COMMAND1.Width = 31
COMMAND1.Picture = ..\bmps\save.bmp
COMMAND1.Caption = ""
COMMAND1.Enabled = .F.
COMMAND1.ToolTipText = "Grabar"
COMMAND1.Name = "Command1"
COMMAND2.AutoSize = .F.
COMMAND2.Top = 56
COMMAND2.Left = 8
COMMAND2.Height = 32
COMMAND2.Width = 31
COMMAND2.Picture = ..\bmps\close.bmp
COMMAND2.Caption = ""
COMMAND2.Enabled = .T.
COMMAND2.ToolTipText = "Salir"
COMMAND2.Name = "Command2"
COMMAND3.AutoSize = .F.
COMMAND3.Top = 105
COMMAND3.Left = 8
COMMAND3.Height = 32
COMMAND3.Width = 31
COMMAND3.Picture = ..\bmps\print.bmp
COMMAND3.Caption = ""
COMMAND3.ToolTipText = "Imprimir"
COMMAND3.Name = "Command3"
PROCEDURE Click
DO case
CASE this.value=1
SELE ACTIVO
APPEND BLANK
REPLACE ACTIVO.nudocper with nudocpe
REPLACE ACTIVO.codocdoc WITH codocdo
REPLACE ACTIVO.numerite WITH alltrim(thisform.Text2.value)
REPLACE ACTIVO.codins with codin
REPLACE ACTIVO.codare with codar
REPLACE ACTIVO.codorg with codor
REPLACE ACTIVO.codgru with codgr
REPLACE ACTIVO.codsub with codsu
REPLACE ACTIVO.codcat with codca
REPLACE ACTIVO.codmat with codma
REPLACE ACTIVO.numcor with numco
REPLACE ACTIVO.CODCONT with ACT
REPLACE ACTIVO.CODAUX with AUX
REPLACE ACTIVO.CORREL with thisform.Text12.value
REPLACE ACTIVO.vidaut with thisform.Text11.value
REPLACE ACTIVO.descrip with alltrim(thisform.Text10.value)
REPLACE ACTIVO.costo with thisform.Text3.value
REPLACE ACTIVO.fechaing with thisform.Text9.value
REPLACE ACTIVO.mes with
'0'+alltrim(STR(month(thisform.Text9.value)))
REPLACE ACTIVO.DIA WITH
alltrim(STR(DAY(thisform.Text9.value)))
202
*****PROCEDIMIENTO DE BLANQUEADO
thisform.Text2.value=space(4)
thisform.Text10.value=space(120)
thisform.Text11.value=0
thisform.Text5.value=0
thisform.Text3.value=0
thisform.Text12.value = 0
thisform.TEXT13.value = space(30)
thisform.TEXT14.value = space(30)
thisform.TEXT15.value = space(30)
thisform.TEXT16.value = space(30)
thisform.TEXT17.value = space(30)
thisform.TEXT18.value = space(30)
thisform.TEXT19.value = space(30)
thisform.TEXT20.value = space(30)
thisform.Text4.value = space(30)
thisform.Text1.value = space(30)
thisform.Text5.value = space(30)
thisform.Text8.value = space(30)
thisform.Text7.value = space(30)
SET filter to
CASE this.value = 2
thisform.release
CASE this.value = 3
imp = recno()
REPORT form "\sistemas\fijo\reportes\ceralt01.frx" preview
for recno() = imp
ENDCASE
ENDPROC
PROCEDURE COMMAND2.Click
thisform.release
ENDPROC
FontBold = .F.
FontItalic = .F.
FontName = "Times New Roman"
FontSize = 10
FontStrikethru = .F.
FontUnderline = .F.
FontCondense = .F.
BackStyle = 0
Caption = "Obs."
Height = 18
Left = 475
203
Top = 95
Width = 27
TabIndex = 34
Name = "Label31"
Enabled = .T.
Height = 41
Left = 377
TabIndex = 6
ToolTipText = "Observaciones al bien"
Top = 112
Width = 232
Name = "Edit1"
Diagrama de árbol
*: Diagrama en árbol
*:
MENTOD01
+---C
EXIT
menupri
respaldo
******************************
Jerarquía de clases
form
+---gridaddform WIZSTYLE.VCX
+---baseform WIZSTYLE.VCX
| +---nobtns WIZSTYLE.VCX
| +---standardform WIZSTYLE.VCX
| +---boxform WIZSTYLE.VCX
| +---chiselform WIZSTYLE.VCX
| +---shadowform WIZSTYLE.VCX
| +---embossedform WIZSTYLE.VCX
| +---fancyform WIZSTYLE.VCX
| +---Form1 BAJITE20.SCX
| +---INTEGRA INTEGR10.SCX
| +---INTEGRA INTEGR11.SCX
| +---INTEGRA RESPALDO.SCX
+---searchform WIZSTYLE.VCX
+---Form1 ALTACT10.SCX
+---Form1 ALTAUX10.SCX
+---Form1 ALTCAM01.SCX
204
+---Form1 ALTCAM10.SCX
+---Form1 ALTCAR10.SCX
+---Form1 ALTCON10.SCX
+---Form1 ALTITE10.SCX
+---Form1 ALTITE11.SCX
+---Form1 ALTITE12.SCX
+---Form1 ALTITE13.SCX
+---Form1 ALTITE14.SCX
+---Form1 ALTITE15.SCX
+---Form1 ALTPAS10.SCX
+---Form1 ALTPER10.SCX
+---Form1 ALTPLA10.SCX
+---Form1 AUXUBI10.SCX
+---Form1 BAJACT10.SCX
+---Form1 BAJAUX10.SCX
+---Form1 BAJCAM20.SCX
+---Form1 BAJCAR20.SCX
+---Form1 BAJCON10.SCX
+---Form1 BAJPER20.SCX
+---Form1 BAJPLA20.SCX
+---Form1 CARATULA.SCX
+---Form1 CARATULA1.SCX
+---Form1 CONCAL10.SCX
+---Form1 CONPER40.SCX
+---Form1 CONPLA40.SCX
+---Form1 DUPACT10.SCX
+---Form1 ENVIO10.SCX
+---Form1 ESPPLA10.SCX
+---Form1 ESPPLA20.SCX
+---Form1 IMPDET01.SCX
+---Form1 IMPDET02.SCX
+---Form1 IMPDET03.SCX
+---Form1 MODACT10.SCX
+---Form1 MODAUX10.SCX
+---Form1 MODCAM30.SCX
+---Form1 MODCAR30.SCX
+---Form1 MODCON10.SCX
+---Form1 MODITE30.SCX
+---Form1 MODPAR10.SCX
+---Form1 MODPER30.SCX
+---Form1 MODPLA30.SCX
+---Form1 PASWORD.SCX
+---Form1 RECEP10.SCX
+---Form1 REVACT10.SCX
+---Form1 TRAACT10.SCX
container
+---layoutsty WIZSTYLE.VCX
+---chiselbase WIZSTYLE.VCX
| +---chiselfield WIZSTYLE.VCX
| +---chiselmemo WIZSTYLE.VCX
| +---chiselole WIZSTYLE.VCX
| +---chisellogic WIZSTYLE.VCX
+---boxbase WIZSTYLE.VCX
| +---boxfield WIZSTYLE.VCX
| +---boxmemo WIZSTYLE.VCX
205
| +---boxole WIZSTYLE.VCX
| +---boxlogic WIZSTYLE.VCX
+---shadowbase WIZSTYLE.VCX
| +---shadowole WIZSTYLE.VCX
| +---shadowmemo WIZSTYLE.VCX
| +---shadowfield WIZSTYLE.VCX
| +---shadowlogic WIZSTYLE.VCX
+---fancybase WIZSTYLE.VCX
| +---fancyole WIZSTYLE.VCX
| +---fancyfield WIZSTYLE.VCX
| +---fancylogic WIZSTYLE.VCX
| +---fancymemo WIZSTYLE.VCX
+---Container1 WIZSTYLE.VCX
+---searchclass WIZSTYLE.VCX
| +---Searchclass1 WIZSTYLE.VCX
+---gridbtns WIZSTYLE.VCX
+---TxtBtns WIZSTYLE.VCX
+---verttxtbtns WIZSTYLE.VCX
+---picbtns WIZSTYLE.VCX
checkbox
+---standardlogic WIZSTYLE.VCX
+---Check1 WIZSTYLE.VCX
+---Check1 WIZSTYLE.VCX
+---Check1 WIZSTYLE.VCX
+---embossedlogic WIZSTYLE.VCX
| +---STATITE1 BAJITE20.SCX
| +---FRONTITE1 BAJITE20.SCX
+---Check1 WIZSTYLE.VCX
+---chkCaseSensitive WIZSTYLE.VCX
+---Check1 ALTACT10.SCX
+---Check2 ALTACT10.SCX
+---Check2 ALTCON10.SCX
+---Check3 ALTCON10.SCX
+---STAITE ALTITE14.SCX
+---FROITE ALTITE14.SCX
+---STAITE ALTITE15.SCX
+---FROITE ALTITE15.SCX
+---Check2 ALTPER10.SCX
+---Check3 ALTPER10.SCX
+---Check1 ALTPER10.SCX
+---check4 ALTPER10.SCX
+---Check1 ALTPLA10.SCX
+---Check3 ALTPLA10.SCX
+---check4 ALTPLA10.SCX
+---Check5 ALTPLA10.SCX
+---Check2 ALTPLA10.SCX
+---Check11 ALTPLA10.SCX
+---Check10 ALTPLA10.SCX
+---Check6 ALTPLA10.SCX
+---Check7 ALTPLA10.SCX
+---Check8 ALTPLA10.SCX
+---Check9 ALTPLA10.SCX
+---check12 ALTPLA10.SCX
+---Check2 BAJCON10.SCX
+---Check3 BAJCON10.SCX
206
+---Check2 BAJPER20.SCX
+---Check3 BAJPER20.SCX
+---Check1 BAJPLA20.SCX
+---Check3 BAJPLA20.SCX
+---check4 BAJPLA20.SCX
+---Check5 BAJPLA20.SCX
+---Check2 BAJPLA20.SCX
+---Check11 BAJPLA20.SCX
+---Check10 BAJPLA20.SCX
+---Check6 BAJPLA20.SCX
+---Check7 BAJPLA20.SCX
+---Check8 BAJPLA20.SCX
+---Check9 BAJPLA20.SCX
+---check12 BAJPLA20.SCX
+---Check2 CONPER40.SCX
+---Check3 CONPER40.SCX
+---Check1 CONPER40.SCX
+---check4 CONPER40.SCX
+---Check1 CONPLA40.SCX
+---Check3 CONPLA40.SCX
+---check4 CONPLA40.SCX
+---Check5 CONPLA40.SCX
+---Check2 CONPLA40.SCX
+---Check11 CONPLA40.SCX
+---Check10 CONPLA40.SCX
+---Check6 CONPLA40.SCX
+---Check7 CONPLA40.SCX
+---Check8 CONPLA40.SCX
+---Check9 CONPLA40.SCX
+---check12 CONPLA40.SCX
+---Check1 DUPACT10.SCX
+---Check2 DUPACT10.SCX
+---Check1 ESPPLA10.SCX
+---Check3 ESPPLA10.SCX
+---check4 ESPPLA10.SCX
+---Check5 ESPPLA10.SCX
+---Check2 ESPPLA10.SCX
+---Check11 ESPPLA10.SCX
+---Check10 ESPPLA10.SCX
+---Check6 ESPPLA10.SCX
+---Check7 ESPPLA10.SCX
+---Check8 ESPPLA10.SCX
+---Check9 ESPPLA10.SCX
+---check12 ESPPLA10.SCX
+---Check1 ESPPLA20.SCX
+---Check3 ESPPLA20.SCX
+---check4 ESPPLA20.SCX
+---Check5 ESPPLA20.SCX
+---Check2 ESPPLA20.SCX
+---Check11 ESPPLA20.SCX
+---Check10 ESPPLA20.SCX
+---Check6 ESPPLA20.SCX
+---Check7 ESPPLA20.SCX
+---Check8 ESPPLA20.SCX
+---Check9 ESPPLA20.SCX
+---check12 ESPPLA20.SCX
207
+---Check1 MODACT10.SCX
+---Check2 MODACT10.SCX
+---Check2 MODCON10.SCX
+---Check3 MODCON10.SCX
+---Text12 MODITE30.SCX
+---TEXT13 MODITE30.SCX
+---Check2 MODPER30.SCX
+---Check3 MODPER30.SCX
+---Check1 MODPER30.SCX
+---check4 MODPER30.SCX
+---Check1 MODPLA30.SCX
+---Check3 MODPLA30.SCX
+---check4 MODPLA30.SCX
+---Check5 MODPLA30.SCX
+---Check2 MODPLA30.SCX
+---Check11 MODPLA30.SCX
+---Check10 MODPLA30.SCX
+---Check6 MODPLA30.SCX
+---Check7 MODPLA30.SCX
+---Check8 MODPLA30.SCX
+---Check9 MODPLA30.SCX
+---check12 MODPLA30.SCX
combobox
+---cboFields1 WIZSTYLE.VCX
+---cboOperators1 WIZSTYLE.VCX
+---cboFields2 WIZSTYLE.VCX
+---cboOperators2 WIZSTYLE.VCX
+---Combo11 ALTACT10.SCX
+---Combo1 ALTACT10.SCX
+---Combo1 ALTAUX10.SCX
+---CODCAR ALTITE10.SCX
+---CODNIV ALTITE11.SCX
+---codins ALTITE12.SCX
+---desuni ALTITE13.SCX
+---Combo3 ALTPER10.SCX
+---Combo2 ALTPER10.SCX
+---Combo1 ALTPER10.SCX
+---Combo1 ALTPLA10.SCX
+---Combo2 BAJACT10.SCX
+---Combo1 BAJAUX10.SCX
+---Combo1 BAJPER20.SCX
+---Combo3 CONPER40.SCX
+---Combo2 CONPER40.SCX
+---Combo1 CONPER40.SCX
+---Combo1 CONPLA40.SCX
+---Combo11 DUPACT10.SCX
+---Combo1 DUPACT10.SCX
+---Combo1 ESPPLA20.SCX
+---Combo11 MODACT10.SCX
+---Combo1 MODACT10.SCX
+---Combo1 MODAUX10.SCX
+---Combo1 MODPER30.SCX
+---Combo3 MODPER30.SCX
+---Combo2 MODPER30.SCX
+---Combo1 MODPLA30.SCX
208
+---Combo11 TRAACT10.SCX
+---Combo1 TRAACT10.SCX
commandbutton
+---cmdFind WIZSTYLE.VCX
+---cmdPrint WIZSTYLE.VCX
+---cmdExit WIZSTYLE.VCX
+---cmdAdd WIZSTYLE.VCX
+---cmdDelete WIZSTYLE.VCX
+---cmdPrev WIZSTYLE.VCX
+---cmdNext WIZSTYLE.VCX
+---cmdTop WIZSTYLE.VCX
+---cmdEnd WIZSTYLE.VCX
+---cmdFind WIZSTYLE.VCX
+---cmdPrint WIZSTYLE.VCX
+---cmdExit WIZSTYLE.VCX
+---cmdAdd WIZSTYLE.VCX
+---cmdDelete WIZSTYLE.VCX
+---cmdEdit WIZSTYLE.VCX
+---MOSTRAR ALTCAM10.SCX
+---GRABAR ALTCAM10.SCX
+---SALIR ALTCAM10.SCX
+---CANCELAR ALTCAM10.SCX
+---MOSTRAR ALTCAR10.SCX
+---GRABAR ALTCAR10.SCX
+---SALIR ALTCAR10.SCX
+---CANCELAR ALTCAR10.SCX
+---SIGUIENTE ALTITE10.SCX
+---Command5 ALTITE10.SCX
+---B_INSTI ALTITE11.SCX
+---B_CARG ALTITE11.SCX
+---B_AREA ALTITE12.SCX
+---B_CATEG ALTITE12.SCX
+---B_AREA ALTITE13.SCX
+---B_CATEG ALTITE13.SCX
+---SIGUIENTE ALTITE14.SCX
+---ANTERIOR ALTITE14.SCX
+---B_BUSCAR ALTITE15.SCX
+---B_ACEPTAR ALTITE15.SCX
+---B_SALIR ALTITE15.SCX
+---B_BUSCAR AUXUBI10.SCX
+---b_anterior AUXUBI10.SCX
+---b_siguiente AUXUBI10.SCX
+---SALIR AUXUBI10.SCX
+---B_PRIMERO AUXUBI10.SCX
+---B_ULTIMO AUXUBI10.SCX
+---MODI AUXUBI10.SCX
+---CANCELAR AUXUBI10.SCX
+---GRABAR AUXUBI10.SCX
+---MOSTRAR BAJCAM20.SCX
+---SALIR BAJCAM20.SCX
+---B_PRIMERO BAJCAM20.SCX
+---b_anterior BAJCAM20.SCX
+---B_ULTIMO BAJCAM20.SCX
+---b_siguiente BAJCAM20.SCX
+---BORRAR BAJCAM20.SCX
209
+---MOSTRAR BAJCAR20.SCX
+---B_PRIMERO BAJCAR20.SCX
+---b_anterior BAJCAR20.SCX
+---B_ULTIMO BAJCAR20.SCX
+---b_siguiente BAJCAR20.SCX
+---SALIR BAJCAR20.SCX
+---BORRAR BAJCAR20.SCX
+---B_BUSCAR BAJITE20.SCX
+---B_PRIMERO BAJITE20.SCX
+---b_anterior BAJITE20.SCX
+---B_ULTIMO BAJITE20.SCX
+---b_siguiente BAJITE20.SCX
+---SALIR BAJITE20.SCX
+---BORRAR BAJITE20.SCX
+---COMMAND1 ENVIO10.SCX
+---B_SALIR ENVIO10.SCX
+---COMMAND1 IMPDET01.SCX
+---COMMAND2 IMPDET01.SCX
+---COMMAND1 IMPDET02.SCX
+---COMMAND2 IMPDET02.SCX
+---COMMAND1 IMPDET03.SCX
+---COMMAND2 IMPDET03.SCX
+---B_SALIR INTEGR10.SCX
+---COMMAND1 INTEGR10.SCX
+---Command7 INTEGR10.SCX
+---B_SALIR INTEGR11.SCX
+---COMMAND1 INTEGR11.SCX
+---COMMAND2 INTEGR11.SCX
+---COMMAND3 INTEGR11.SCX
+---Command4 INTEGR11.SCX
+---Command5 INTEGR11.SCX
+---COMMAND6 INTEGR11.SCX
+---Command7 INTEGR11.SCX
+---COMMAND8 INTEGR11.SCX
+---COMMAND9 INTEGR11.SCX
+---COMMAND10 INTEGR11.SCX
+---command11 INTEGR11.SCX
+---COMMAND12 INTEGR11.SCX
+---MOSTRAR MODCAM30.SCX
+---SALIR MODCAM30.SCX
+---CANCELAR MODCAM30.SCX
+---B_PRIMERO MODCAM30.SCX
+---b_anterior MODCAM30.SCX
+---B_ULTIMO MODCAM30.SCX
+---b_siguiente MODCAM30.SCX
+---GRABAR MODCAM30.SCX
+---MODI MODCAM30.SCX
+---MOSTRAR MODCAR30.SCX
+---MODI MODCAR30.SCX
+---SALIR MODCAR30.SCX
+---CANCELAR MODCAR30.SCX
+---B_PRIMERO MODCAR30.SCX
+---b_anterior MODCAR30.SCX
+---B_ULTIMO MODCAR30.SCX
+---b_siguiente MODCAR30.SCX
+---GRABAR MODCAR30.SCX
210
+---B_BUSCAR MODITE30.SCX
+---b_anterior MODITE30.SCX
+---b_siguiente MODITE30.SCX
+---SALIR MODITE30.SCX
+---B_PRIMERO MODITE30.SCX
+---B_ULTIMO MODITE30.SCX
+---MODI MODITE30.SCX
+---CANCELAR MODITE30.SCX
+---GRABAR MODITE30.SCX
+---MODI MODPAR10.SCX
+---SALIR MODPAR10.SCX
+---CANCELAR MODPAR10.SCX
+---GRABAR MODPAR10.SCX
+---COMMAND1 RECEP10.SCX
+---B_SALIR RECEP10.SCX
+---B_SALIR RESPALDO.SCX
+---COMMAND1 RESPALDO.SCX
+---COMMAND2 RESPALDO.SCX
+---COMMAND3 RESPALDO.SCX
+---Command4 RESPALDO.SCX
+---Command5 RESPALDO.SCX
+---COMMAND6 RESPALDO.SCX
+---Command7 RESPALDO.SCX
+---COMMAND8 RESPALDO.SCX
+---COMMAND9 RESPALDO.SCX
+---COMMAND10 RESPALDO.SCX
+---command11 RESPALDO.SCX
+---COMMAND12 RESPALDO.SCX
commandgroup
+---CommandGroup1 WIZSTYLE.VCX
+---CommandGroup1 WIZSTYLE.VCX
+---nogrupo2 ALTACT10.SCX
+---nogrupo2 ALTAUX10.SCX
+---nogrupo2 ALTCON10.SCX
+---nogrupo2 ALTPAS10.SCX
+---CommandGroup1 ALTPAS10.SCX
+---NOGRUPO1 ALTPAS10.SCX
+---nogrupo2 ALTPER10.SCX
+---nogrupo2 ALTPLA10.SCX
+---nogrupo2 BAJACT10.SCX
+---CommandGroup1 BAJACT10.SCX
+---nogrupo2 BAJAUX10.SCX
+---nogrupo2 BAJCON10.SCX
+---nogrupo2 BAJPER20.SCX
+---nogrupo2 BAJPLA20.SCX
+---nogrupo2 CONCAL10.SCX
+---NOGRUPO1 CONCAL10.SCX
+---nogrupo2 CONPER40.SCX
+---NOGRUPO1 CONPER40.SCX
+---nogrupo2 CONPLA40.SCX
+---NOGRUPO1 CONPLA40.SCX
+---nogrupo2 DUPACT10.SCX
+---nogrupo2 ESPPLA10.SCX
+---nogrupo2 ESPPLA20.SCX
+---nogrupo2 MODACT10.SCX
211
+---nogrupo2 MODAUX10.SCX
+---nogrupo2 MODCON10.SCX
+---nogrupo2 MODPER30.SCX
+---nogrupo2 MODPLA30.SCX
+---nogrupo2 REVACT10.SCX
+---CommandGroup1 REVACT10.SCX
+---nogrupo2 TRAACT10.SCX
4.5.3.3.- REPORTES
****** * C:\SISTEMAS\FIJO\REPORTES\CERALT01.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\CERBAJ01.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\CERREV01.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\REPACT01.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\REPACT02.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\REPACT03.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\REPACT04.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\REPACT05.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\REPACT06.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\REPACT07.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\REPAUX01.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\REPCAM01.FRX
****** * C:\SISTEMAS\FIJO\REPORTES\REPCON10.FRX
La realización de un seminario con las unidades involucradas y las de nivel gerencial debe
deberá efectuar los ajustes necesarios en miras de una instalación masiva en todas las
hardware de las unidades de Activos Fijos del país que así lo necesiten.
213
CAPITULO V
CONCLUSIONES Y RECOMENDACIONES
5.1.- CONCLUSIONES
información de los Activos Fijos de las 13 unidades que componen el Poder Judicial.
seguimiento sobre la ubicación de los Activos Fijos en las distintas unidades del Poder
Judicial.
funcionarios de una unidad. Con el nuevo sistema los activos o bienes de uso pertenecen a
un ítem que a su vez pertenece a una unidad y la misma pertenece a una institución del
Poder Judicial, teniendo únicamente como responsable a la persona que ocupa ese ítem.
5.2.- RECOMENDACIONES
Se recomienda que el proceso de carga de datos de los activos de las distintas instituciones
Se recomienda que exista una interrelación permanente entre el encargado de Activos Fijos
y las unidades ejecutoras, sobre el movimiento, mantenimiento de los bienes para mantener
información actualizada
215
BIBLIOGRAFÍA
Arthur W. Holmes
Editorial Serrano
Administración central.
Gestión 1992
Prentice may
1988
1990
1996
John Pinter
Básicas de Contabilidad
Gubernamental Integrada
1994.
217
RUN
Nro. Libreta militar CI
RIN
CI CI CI CI CI
Divorciado
Cod. Seg. Social: Concubino Item Actual CI
Viudo
Fecha de Ingreso a la
Concubino
Institución
Fecha : .........................
Firma
218
Institución:
Unidad :
Responsable del
Subgerente de area
bien
Fecha
219
FORMULARIO DE TRANSFERENCIA DE
FORM 003
ACTIVOS FIJOS
Institución: Fecha de
Transferencia
Paterno Paterno
Materno Materno
Nombre1 Nombre1
Nombre 2 Nombre 2
Fecha