Código Fuente y más código ...

Consulta en Microsoft Access que convierte los Números a Letras

2019-08-14T19:04:00.001-07:00

Crear nuestras propias funciones en Access nos es de mucha utilidad, nos evita generar código extra en nuestros programas.

Aquí les comparto una función propia para traducir los números a su equivalente en letras.

Supongamos que tenemos una tabla como esta:

Tenemos un campo de tipo CURRENCY por tanto es numérico, y queremos llevar este campo a letras.

Para esto nos vamos a Herramientas de Base de Datos y le datos al icono de Visual Basic, y nos abrirá la ventana de Visual Basic para Aplicaciones

Sobre la ventana de la izquierda, de Proyecto, damos clic derecho para ver el menú y agregamos un nuevo módulo

En la ventana que se abre, verán una sola línea con el texto

Option Compare Database

Esa línea la dejan tal cual aparece y por debajo de ella insertan el siguiente código:

Function CantidadEnLetra(tyCantidad As Currency) As String

Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte

Dim lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte

Dim lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero

tyCantidad = Round(tyCantidad, 2)

lyCantidad = Int(tyCantidad)

lyCentavos = (tyCantidad - lyCantidad) * 100

laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIESISEIS", "DIESISIETE", "DIESIOCHO", "DIESINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE")

laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")

laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")

lnNumeroBloques = 1

lnPrimerDigito = 0

lnSegundoDigito = 0

lnTercerDigito = 0

lcBloque = ""

lnBloqueCero = 0

For i = 1 To 3

lnDigito = lyCantidad Mod 10

If lnDigito <> 0 Then

Select Case i

Case 1

lcBloque = " " & laUnidades(lnDigito - 1)

lnPrimerDigito = lnDigito

Case 2

If lnDigito <= 2 Then

lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1)

Else

lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque

End If

lnSegundoDigito = lnDigito

Case 3

lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque

lnTercerDigito = lnDigito

End Select

Else

lnBloqueCero = lnBloqueCero + 1

End If

lyCantidad = Int(lyCantidad / 10)

If lyCantidad = 0 Then

Exit For

End If

Next i

Select Case lnNumeroBloques

Case 1

CantidadEnLetra = lcBloque

Case 2

CantidadEnLetra = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & CantidadEnLetra

Case 3

CantidadEnLetra = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & CantidadEnLetra

End Select

lnNumeroBloques = lnNumeroBloques + 1

Loop Until lyCantidad = 0

CantidadEnLetra = " " & CantidadEnLetra & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N. "

End Function

Y guardan el módulo

Yo lo estoy guardando con el nombre de NumEnLetra

Ahora, desde la ventana de la base de datos, le damos Crear una nueva Consulta en Diseño de Consulta

Y agregamos la tabla donde están nuestros datos

Una vez añadidos los campos que nos interesa, incluso filtros que deseen, vamos a añadir nuestra función que recién creamos. Para esto utilizaremos el Asistente de Consultas

En la ventana que se abre, expandimos los Elementos de Expresión y buscamos el módulo que creamos

Al darle clic, nos mostrará la función que copiamos, y al darle doble clic, nos copiará la función en la ventana de Expresiones

Si observamos, vemos que nos pide un parámetro, que es el valor numérico que deseamos pasar a Letras. Así que ahora en los elementos de expresión, buscamos la tabla con la que estamos trabajando y agregaremos como parámetro para la función en campo CURRENCY que nos interesa.

Y, teniendo seleccionado el parámetro en la función, le damos doble clic al campo SALARIO y lo va a insertar como parámetro

Y listo, le damos ACEPTAR.

Vemos el campo que insertó, con el alias de Expr1, así que sería buen momento para cambiarlo

Listo! Ahora solo ejecutamos la consulta

Y tenemos ya los números en Letras

Saludos!

ExcelToCi

2019-08-11T10:06:00.000-07:00

ExcelToCi (Excel-to-Component Interface)

Se puede usar la utilería de Excel To CI para cargar datos de Microsoft Excel a las bases de datos PeopleSoft. Cada hoja de trabajo de excel contiene tanto hojas de trabajo como módulos de código de Excel Visual Basic que ejecutan lógica de negocios para cada transacción.

Usando estos documentos de Microsoft Excel como plantilla, se pueden crear hojas de trabajo que sean específicas de la lógica empresarial que necesita usar cuando carga datos en el sistema PeopleSoft. Puede copiar la hoja de entrada de datos a otras hojas de excel para su distribución sin copiar los módulos de código.

El código formatea los datos de la hoja de cálculo en una estructura del Modelo de objetos de documento (DOM) legible de PeopleSoft y los envía a la base de datos de PeopleSoft. A continuación, un programa PeopleCode analiza la estructura DOM y utiliza el CI (Component Interface) para crear entradas en la base de datos PeopleSoft, validando los datos enviados contra la lógica empresarial que está integrada en el componente PeopleSoft.

El Component Interface ejecuta todos los eventos PeopleCode necesarios y las ediciones a nivel de campo. Según los resultados de guardar el Component Interface, se crea otro DOM en el PeopleCode que devuelve el guardado exitoso, advertencias, errores o una combinación de los tres al documento de Microsoft Excel. Los registros por error se pueden corregir y volver a enviar.

Prerequisitos para usar Excel to CI

Para usar la utilidad Excel to CI, debe tener instalado el siguiente software.

(En My Oracle Support se puede revisar las versiones que actualmente están certificadas).

- Microsoft Excel.
- Microsoft Visual Basic 6.0 SP5: Paquete de redistribución en tiempo de ejecución.
Puede descargar este software del sitio web de Microsoft en http://www.microsoft.com/downloads/Search.aspx?displaylang=en
- Microsoft Core XML Services (MSXML) 6.0 o superior.
Puede descargar este software del sitio web de Microsoft en http://www.microsoft.com/downloads/Search.aspx?displaylang=en

Comportamiento y limitaciones del PeopleCode

Ciertas funciones y eventos de PeopleCode que son específicos de la interfaz de usuario no se ejecutan a través del Component Interface. Se deberá modificar PeopleCode para el componente, las páginas y los registros cuando cree el Component Interface específico para el cada componente.

Los eventos y funciones de PeopleCode que se relacionan exclusivamente con la interfaz de la página y el procesamiento en línea no pueden ser utilizados por los Component Interface. Éstos incluyen:

- Procesamiento de diálogo de búsqueda.
- Menú PeopleCode y menús emergentes.
- Transferencias entre componentes, incluidas las transferencias modales.
- Controles dinámicos de árbol.
- Controles ActiveX.
- DoSave y DoSaveNow.
- Funciones que se ignoran en una llamada del Component Interface.

Otorgar permisos a la librería WEBLIB_SOAPTOCI iScript

Para utilizar la utilidad de Excel To CI, se debe otorgar acceso a la librería de WEBLIB_SOAPTOCI de iScript en la lista de permisos del usuario que está creando la plantilla.

Habilitando el menú de desarrollador en Microsoft Excel 2007 y versiones posteriores

El menú Desarrollador en Microsoft Excel contiene opciones para trabajar con Microsoft Visual Basic, macros, propiedades de hoja, etc.

En Microsoft Excel 2007 y versiones posteriores, el menú de Desarrollador no está habilitado automáticamente y no aparece en la cinta de menú en la vista predeterminada del espacio de trabajo de Excel. En las otras versiones de Microsoft Excel admitidas para su uso con el Component Interface, el menú Desarrollador aparece de forma predeterminada.

El siguiente ejemplo muestra la cinta de menú que aparece en la vista predeterminada del espacio de trabajo de Microsoft Excel 2007:

Para utilizar la utilidad del Excel To CI, necesita acceder a algunas de las funciones a las que se accede a través del menú de Desarrollador y, por lo tanto, debe habilitar el menú. El siguiente ejemplo muestra el espacio de trabajo de Microsoft Excel 2007 con el menú de Desarrollador habilitado en la cinta de menú:

Para habilitar el menú Desarrollador en Microsoft Excel 2007 y versiones posteriores:

Inicie Microsoft Excel 2007 o su versión posterior.
En la esquina superior izquierda del espacio de trabajo, haga clic en el icono circular de Microsoft Office.
Aparece el menú Documentos recientes.
Haga clic en el botón Opciones de Excel en la parte inferior del menú.
Aparece la página de Opciones de Excel.
En la sección Opciones principales para trabajar con Excel, marque la pestaña Mostrar desarrollador en la opción de la cinta de opciones.
Haz clic en el botón Aceptar.

Aparece el espacio de trabajo de Microsoft Excel 2007 y el menú de Desarrollador aparece en la cinta de menú.

Habilitando las macros en Excel

La utilidad Excel to CI se basa en macros; por lo tanto, debe habilitar macros en Microsoft Excel para que la utilidad funcione. Cuando se abre una hoja de cálculo de Microsoft Excel, el sistema muestra un cuadro de diálogo que le pide que seleccione si desea habilitar macros en la hoja de cálculo. Siempre seleccione Habilitar macros para que puedan funcionar las macros entregadas con la utilidad de interfaz Excel a componente.

Para asegurarse de que las macros estén disponibles para ejecutarse, debe establecer el nivel de seguridad en Microsoft Excel para permitir que se abran las macros.

Para habilitar macros en Microsoft Excel:

Teniendo abierto el documento de excel con la utilería del ExcelToCI.
En el menú de Excel, seleccione seleccione Herramientas, luego seleccione Macros, luego seleccione Seguridad.
Seleccione Medio o Bajo para habilitar las macros.
Selecciona OK.

Iniciando la utilería del Excel To CI

La hoja de cálculo de la utilería del Excel to CI se encuentra en el directorio PS_HOME/excel. El nombre del archivo es ExcelToCI2007.xlsm.

NOTA: Este archivo se sugiere copiar y pegar con un nombre diferente, para conservar este archivo en su estado original y trabajar sobre la copia.

Conversión del documento de Excel a la versión actual de MS Excel

Puede usar plantillas personalizadas de Excel To CI basadas en versiones de Microsoft Excel lanzadas antes del Excel 2007. Para preservar las macros incrustadas en sus plantillas personalizadas de Excel To CI, debe convertir las plantillas a formato Excel 2007 o su versión actual.

Los archivos de Microsoft Excel 2007 y posteriores tienen la extensión .xlsm.

Para convertir una plantilla de Excel To CI al formato actual de Excel:

Abra una plantilla en Excel (su actual versión).
Haga clic en el botón de Microsoft Office y elija Guardar como.
Haga clic en Libro de Excel habilitado para macros.
Aparece un cuadro de diálogo Guardar como.
Elija una ubicación para guardar e ingrese un nombre para el libro.
El nombre del libro de trabajo debe tener la extensión xlsm, como myworkbook.xlsm
Haz clic en el botón Guardar.

Información de conexión

Acceda a la pestaña Información de conexión en ExcelToCI2007.xlsm haciendo clic en la pestaña Información de conexión:

La información en esta página es necesaria para crear una nueva plantilla o para enviar datos a la base de datos. Deberá especificar información del entorno, así como información sobre cómo se deben transmitir los datos. El campo Acción se completará automáticamente en función de su configuración y el Component Interface con el que está asociada la plantilla.

La configuración de conexión inicial serán los valores predeterminados de PeopleSoft. Deberá modificar estos valores para su implementación específica de PeopleSoft. Si no está seguro de qué ingresar para estos valores, consulte con el administrador del sistema.

Las opciones de conexión son:

Web Server Machine Name	El nombre del servidor web PeopleSoft al que se está conectando.

Protocol	El protocolo utilizado para acceder al servidor web. El valor predeterminado es HTTP. El protocolo preferido es HTTPS.
HTTP Port	El número de puerto HTTP que usa el servidor web. El valor predeterminado es 80.
Portal	El nombre del portal que está utilizando. EMPLOYEE es un portal predeterminado enviado con PeopleSoft.
PeopleSoft Site Name	El nombre del sitio de PeopleSoft que ingresó cuando instaló la Arquitectura de Internet de PeopleSoft. El valor predeterminado es ps.

Node	El nombre del nodo local predeterminado de PeopleSoft. El valor predeterminado es PT_LOCAL.
Language Code	El código para el idioma en el que se envían los datos a la base de datos. Si no se especifica ningún código de idioma, se utiliza el idioma base.
Chunking Factor	El número de filas de datos que se transmitirán a la base de datos al mismo tiempo. El valor predeterminado es 40.
Error Threshold	El número total de errores permitidos antes de que finalice el envío a la base de datos Cuando se supera el umbral de error, aparece un mensaje de error y se detiene el envío a la base de datos.
Submit Blanks as Input	Cuando esta opción se establece en Sí y un campo de entrada de caracteres seleccionado para la entrada contiene solo espacios en blanco, el campo se incluirá para el envío en lugar de ser ignorado. Esta opción está configurada en No de forma predeterminada, por compatibilidad con versiones anteriores.
	Si se ingresan caracteres Unicode de espacio en blanco de ancho completo como un valor de entrada en ExcelToCI (esto se logra mediante el uso de una codificación que admita dichos caracteres Unicode), se enviará el campo, se enviarán los espacios en blanco y el valor no se recortará antes de que se guarde en la base de datos.
	Si se ingresan espacios en blanco ASCII regulares (también conocidos como caracteres de ancho medio) como un valor para un campo de caracteres, el campo se enviará, pero el valor se recortará, por lo que se guardará una cadena vacía. En esencia, el valor del campo se borrará.
Action	El sistema proporciona el valor de este campo cuando la interfaz del componente se recupera de la base de datos. Sin embargo, puede cambiar el valor proporcionado seleccionándolo de la lista desplegable Acción.
	Los tipos de acciones disponibles se basan en la estructura de la interfaz del componente. Las acciones son:

	Crear (CREATE).
	Esta opción está disponible si la interfaz del componente tiene claves de creación. Utilice este modo cuando se agreguen nuevas claves en el nivel 0.
	Actualizar (UPDATE).
	Esta opción está disponible si la interfaz del componente no tiene claves de creación. Use este modo si está agregando nuevos hijos a un padre existente.
	Actualizar datos (UPDATE DATA).
	Use esta opción para actualizar valores no clave específicos que ya existen. El sistema usa las teclas para localizar la fila, y cuando se encuentra una coincidencia, la fila se actualiza con nuevos datos. Si el sistema no encuentra una coincidencia de clave, muestra un mensaje de error que indica a qué colección le falta una coincidencia de clave.
	Al usar la acción UpdateData, debe proporcionar todas las claves de la colección para que el sistema modifique los datos.

Nota: Si desea insertar una colección con fecha de vigencia en el Nivel 1 que contiene una colección secundaria en el Nivel 2, es posible que necesite usar UPDATE para insertar la fila principal en el nivel 1 y luego usar UPDATEDATA para insertar la fila secundaria en el nivel 2. Esto se debe a que las filas secundarias se copian hacia adelante desde la colección actual con fecha efectiva como resultado de la inserción de una nueva fila principal con fecha efectiva. El procesador de componentes actualizará estas filas secundarias con la nueva fecha de vigencia y puede tener las mismas claves de nivel 2 que la fila secundaria de nivel 2 que está intentando enviar desde ExcelToCI.

Ejemplo:

Conexión a la base de datos para crear una plantilla y enviar datos

Su información de inicio de sesión de PeopleSoft es necesaria tanto para crear la plantilla como para enviar datos a la base de datos.

Acceda al cuadro de diálogo Iniciar sesión seleccionando la pestaña Plantilla y luego haciendo clic en el botón Nueva plantilla, o haciendo clic en el botón Enviar datos en la pestaña Puesta en escena y envío:

El sistema usa su ID de usuario y contraseña para asegurarse de que tiene los permisos correctos para acceder a la interfaz del componente en el que está creando la plantilla. Debe tener permiso para acceder al Component Interface que está utilizando.

User ID/Password	Ingrese su ID de usuario y contraseña de PeopleSoft.
Component Interface Name	Ingrese el nombre de la interfaz del componente para el que desea crear la plantilla.
Generate Log	Seleccione la casilla de verificación Generar registro para crear un archivo de registro para ExcelToCI2007.xlsm y uno para la Biblioteca web SOAPTOCI.

Crear plantillas

La página de la plantilla es una representación gráfica de la estructura del Component Interface que usará para cargar datos. La estructura del Component Interface se recupera de la base de datos cuando se crea una nueva plantilla. Todos los campos que están expuestos a través del Component Interface aparecen en la página de la plantilla. Los campos que son de solo lectura en el Component Interface no aparecerán en la plantilla.

La nueva macro de plantilla construye la relación padre-hijo dentro de Microsoft Excel según la definición de nivel de desplazamiento en el Component Interface. El sistema agrega una nueva fila para cada nivel de desplazamiento y le asigna un identificador único.

Acceda a la pestaña Plantilla en ExcelToCI.xlsm para crear su plantilla:

Collection	El nombre de la colección de interfaz de componentes. Una colección es una propiedad que apunta a un desplazamiento, en lugar de un campo, en el componente subyacente para una interfaz de componente.
Property	El nombre de propiedad de la interfaz del componente. Por lo general, este también es el nombre del campo en la página.
Record Type	Este número representa la relación padre / hijo de los registros. El registro de desplazamiento de nivel 0 siempre está representado por 000. Los registros de desplazamiento de nivel 1 aparecen con números que comienzan con 100 y siempre tienen 00 como los dos últimos números. Los pergaminos de nivel 2 se identifican con números que comienzan con el identificador de su padre de nivel 1 y terminan con un 0. Los pergaminos de nivel 3 se identifican por el primer número del padre de nivel 1, el segundo número de su padre de nivel 2 y luego el tercer número de su propia posición en la lista. Los números para cada nivel de desplazamiento se incrementan en función del número de registros que existen en ese nivel. Por ejemplo, el nivel 0 sería 000, el nivel 1 sería 100, el nivel 2 sería 110, y así sucesivamente. Nota: Las interfaces de componentes que tienen más de 10 colecciones en un nivel dado se incrementarán con identificadores alfabéticos. Por ejemplo, 800, 900, A00, etc.
Field Type	El tipo de PeopleSoft estándar para el campo, por ejemplo, Fecha, Carácter, etc.
Field Length	La longitud del campo según lo definido por PeopleSoft. Para campos numéricos y campos de números con signo, la longitud se divide en números enteros y decimales. Por ejemplo, una longitud de 15.3 indica 15 posiciones enteras y tres posiciones decimales.
Key/Required	Si el campo es un campo clave, el sistema mostrará una Y a la izquierda de la barra diagonal. Cuando el campo no es una clave, estará en blanco. Si el campo es un campo obligatorio, el sistema mostrará una R a la derecha de la barra diagonal. Cuando el campo no es obligatorio, estará en blanco. Esta información proviene de la definición del registro en sí. Nota: Los campos que son claves u obligatorios deben establecerse para enviar datos correctamente.
Sequence	El número de secuencia representa el orden de las propiedades en la plantilla..
Status	Este campo muestra el estado de carga en la página Puesta en escena y envío.
Line No line number	Esto corresponde al número de línea en los datos de entrada y las páginas de ensayo y envío.

Comprender la barra de herramientas de acciones de plantilla

La barra de herramientas de acciones de plantilla está compuesta por botones que usa para crear y modificar una plantilla, así como para crear una hoja de entrada de datos. Puede cambiar el tamaño de la barra de herramientas y moverla a cualquier ubicación de la página o incluso arrastrarla a la barra de herramientas estándar existente de Microsoft Excel. Cuando haya movido la barra de herramientas a una ubicación, permanecerá allí hasta que la mueva nuevamente. No necesita mover la barra de herramientas cada vez que abre el libro.

Cada botón de la barra de herramientas tiene un texto de ayuda que describe el propósito y el uso de cada uno de los botones cuando coloca el cursor sobre el botón.

New Template	Crea una nueva plantilla basada en una interfaz de componente. La macro Nueva plantilla construye la relación padre-hijo dentro de Microsoft Excel basada en la estructura de la interfaz del componente. Cuando crea una nueva plantilla, el sistema le solicita su información de inicio de sesión.
New Data Input	Crea una nueva hoja de entrada de datos basada en las celdas de entrada seleccionadas. Cuando crea una nueva hoja de entrada de datos, el sistema le pregunta si desea sobrescribir la hoja existente. Si selecciona Sí, se crea una nueva hoja de entrada de datos, sobrescribiendo la anterior.
Select Input Cell	Selecciona una celda individual para incluirla en la hoja de entrada de datos. Las celdas que se han seleccionado como celdas de entrada se resaltan en rosa.
Select All Input Cells	Selecciona todas las propiedades que se incluirán en la entrada de datos como celdas de entrada. Cuando se selecciona una celda como celda de entrada, se resalta en rosa.
Restore Input Cells	Restaura la plantilla a su estado original y borra los valores predeterminados. Los campos en la plantilla se resaltarán en gris, lo que indica que no se incluye nada para enviar.
Insert New Child	Copia la fila seleccionada para insertarla como un nuevo hijo. Esto crea múltiples ocurrencias del mismo tipo de registro. Por ejemplo, si la fila seleccionada tiene un identificador de plantilla de 100, se inserta una nueva fila que también tiene un identificador de 100 y es un duplicado exacto de la fila seleccionada. Nota: Use Insert New Child cuando se deben enviar varios hijos bajo el mismo registro padre. No se deben crear varios hijos en el identificador 000.
Include All for Submission	Incluye todas las propiedades en la hoja de cálculo que se incluirán para su envío a la base de datos. Las celdas que se incluyen para el envío aparecen solo en la hoja de ensayo y envío y no aparecen en la hoja de entrada de datos. Las propiedades que se incluyen para el envío se resaltan en azul.
Include for Submission	Incluye una sola propiedad que se incluirá en la hoja de Presentación y Presentación. Las propiedades que usan valores predeterminados de la plantilla deben incluirse para el envío. Las celdas que se incluyen para el envío generalmente son propiedades que contienen valores predeterminados o propiedades que le gustaría ver en la estructura de la hoja de Presentación y Presentación. Las propiedades que se incluyen para el envío se resaltan en azul.
Deselect Input Cell	Cambia una celda que se seleccionó previamente como celda de entrada a una celda que se incluye para su envío. La celda ya no se incluye en la hoja de entrada de datos, pero aparece como parte de la estructura en la hoja de Presentación y Presentación.
Clear Template	Borra todos los datos y estructuras en esta hoja.
Do Not Include for Submission	No incluye la propiedad seleccionada para enviar a la base de datos. Si una propiedad no se incluye para su presentación, no aparecerá en la estructura que se envía a la base de datos en la hoja de Presentación y Presentación. Las propiedades que no están incluidas para el envío aparecerán solo en la hoja de trabajo de la plantilla y no se enviarán a la base de datos. Las propiedades que no están incluidas para el envío se resaltan en gris.

Nota: Cuando crea una nueva plantilla o una nueva hoja de entrada de datos, el sistema borra la hoja de trabajo existente de toda la información existente. Si tiene una plantilla u hoja de entrada de datos que necesita guardar de cargas anteriores, guarde una copia de la hoja de trabajo antes de crear una nueva plantilla u hoja de entrada de datos.

Introducir datos en la plantilla

Al determinar qué propiedades incluir como celdas de entrada y qué propiedades incluir para el envío, recuerde que la interfaz del componente utiliza la misma lógica de negocios y ejecuta el mismo PeopleCode como si el registro se ingresara en línea usando la página en su aplicación PeopleSoft. Para proporcionar los datos mínimos necesarios, estos campos deben proporcionarse con valores predeterminados (codificados) o valores que proporcione utilizando la hoja de entrada de datos.

Nota: Debe probar la plantilla que creó con algunas entradas de muestra y luego verificar sus resultados antes de usar la interfaz para la entrada masiva. Por ejemplo, si olvidó seleccionar una propiedad, deberá crear una nueva hoja de entrada de datos. Si los resultados del envío son satisfactorios, continúe ingresando datos.

Agregar un nuevo registro secundario

Por defecto, cada colección se representa una vez en la plantilla. Para insertar copias de una colección determinada, seleccione esa colección y haga clic en el botón Insertar nuevo hijo para crear una copia de la fila seleccionada. La colección que seleccionó se copia para que pueda tener dos filas bajo el mismo padre.

Agregar valores predeterminados

Algunos campos tienen valores predeterminados asociados, ya sea en la definición de registro o en tiempo de ejecución cuando el registro se crea en la base de datos. Además, muchos componentes activan PeopleCode, que también proporciona valores predeterminados. Para aceptar el valor predeterminado de la base de datos, incluya la propiedad para el envío y se utilizará el valor predeterminado del sistema.

Es posible que existan algunos campos para los que desea crear su propio valor predeterminado. Por ejemplo, si desea establecer el valor de un campo denominado Estado a partir de la fecha de vigencia en A para cada fila que envíe, ingrese ese valor para el campo en la plantilla. Luego incluya la celda para enviar en la plantilla. El campo no aparecerá en la página de entrada de datos, pero el valor aparecerá en el campo en la página Enviar a la base de datos. Esto es útil para fechas efectivas, campos de estado, ID de conjuntos para importaciones simples, etc.

Al proporcionar valores para campos de traducción o tablas de solicitud, proporcione el valor del campo en lugar de la descripción corta o larga para el valor de traducción. Si no está seguro de los valores de campo, verifique el registro o la definición de campo en PeopleSoft Application Designer.

Introducción de datos en la hoja de entrada de datos

La hoja de entrada de datos le permite ingresar datos en la utilidad Excel a la interfaz de componentes para que pueda cargarse en la base de datos utilizando la interfaz de componentes que ha seleccionado. Puede ingresar datos manualmente o puede cortarlos y pegarlos desde otra hoja de cálculo o aplicación de terceros.

Usando la hoja de entrada de datos

Acceda a la pestaña de ingreso de datos para ingresar datos:

Las etiquetas de campo que aparecen en la hoja de entrada de datos son aquellas propiedades que seleccionó como celdas de entrada en la plantilla. Cada nivel de desplazamiento se identifica por color. El tipo de registro de la plantilla también se muestra para cada propiedad.

El sistema crea formatos predeterminados de fecha, hora y número cuando crea la plantilla. Puede modificar este formato utilizando el formato de celda predeterminado de Microsoft Excel al ingresar datos, con la excepción del formato d/m/aa para fechas y horas. En su lugar, utilice siempre un formato d/m/aaaa para fechas y horas. Para acceder a la función de formato, seleccione seleccionar Formato, luego seleccione Celdas en el menú de Excel.

La hoja de entrada de datos también se utiliza para corregir los datos que no se pudieron enviar a la base de datos. Los errores marcados en la página Enviar a la base de datos se publican en la página de entrada de datos y, cuando los haya corregido, los elementos marcados con error se pueden volver a colocar en la hoja de Presentación y Presentación.

Acciones de entrada de datos

La barra de herramientas Acciones de entrada de datos contiene el botón Datos de etapa para envío, que toma los datos que ingresó en la hoja de ingreso de datos y los prepara para enviarlos a la base de datos. Cuando los datos están organizados, aparecen en la hoja de Presentación y Presentación en la estructura de plantilla jerárquica. En este punto, debe verificar que todos los campos se llenen como se esperaba. Cuando los datos se organizan, muestra tanto los datos en la hoja de entrada de datos como los datos que especificó como valores predeterminados.

Ver los datos por etapas

Acceda a la pestaña Staging and Submission:

Barra de Herramientas de Staging and Submission

Post Results

Los resultados del envío se copian en la hoja de entrada de datos, donde puede ver el estado de cada fila que se envía y hacer las correcciones necesarias a las filas que tienen el estado de Error.

Submit Data

Aparece el cuadro de diálogo de inicio de sesión. Debe especificar su ID de usuario y contraseña.

El sistema envía los datos a la base de datos en los fragmentos que especificó en la hoja de Información de conexión.

Después de corregir cualquier error en la hoja de entrada de datos, puede enviar los datos nuevamente. Los elementos que se marcaron como Error se volverán a enviar, mientras que los marcados como Aceptar y Advertencia se ignorarán.

Error al enviar claves existentes

Si recibe el mensaje de error La fila ya existe con las claves especificadas y está en modo CREAR, la clave ya existe en el nivel 0 o es parte del registro de búsqueda.

Para verificar que la clave existe:

Abra la interfaz del componente en PeopleSoft Application Designer.
Inicie el probador de interfaz de componentes seleccionando Herramientas, luego seleccione Probar interfaz de componentes.
Aparece el cuadro de diálogo de búsqueda de Tester de la interfaz del componente. Este cuadro de diálogo muestra las teclas (en las columnas de la izquierda) para obtener, crear o encontrar una instancia de la interfaz del componente.
Ingrese el valor de la clave que está probando.
Haga clic en Obtener existente para obtener la clave que está a punto de agregar, utilizando la utilidad de interfaz Excel a componente.
Si el comando Obtener claves devuelve la clave, la clave ya existe y debe agregar datos mediante el modo UPDATE.
Si recibe un mensaje de que no existe una fila para la clave, entonces la clave no existe en el nivel 0 y los datos deben agregarse utilizando el modo CREATE.

Corrección y reenvío de datos

Después de enviar los datos a la base de datos, los resultados del proceso aparecen en la hoja de Presentación y Presentación. Si un envío tuvo un error, el estado de error aparece en la hoja de Presentación y Envío. Use la página de entrada de datos para corregir los datos y luego vuelva a enviarlos a la base de datos. Continúe este proceso de corrección de errores y reenvío de datos hasta que no queden errores.

Nota: Los datos que no se enviaron porque se alcanzó el umbral de error no tendrán estado. Cuando los datos que crearon el error se corrigen en la hoja de entrada de datos, los datos que no se enviaron se almacenarán en la base de datos.

Estados de envío

Los errores recibidos para cada registro enviado aparecen en un campo de comentarios cuando mueve el cursor sobre la columna de estado. Los registros marcados como OK en verde se han enviado correctamente y no se pueden volver a clasificar para su envío y se pueden guardar como un registro del trabajo completado.

Uno de los siguientes tres valores de estado puede aparecer cuando envía datos a la base de datos:

Ok	El envío a la base de datos finalizó con éxito. El campo se resalta en verde. Estos registros no se pueden volver a clasificar para su envío.
*Warning*	Los datos se guardaron en la base de datos con éxito, pero se generó una advertencia en el proceso. El campo está resaltado en amarillo.
*Error*	Los datos no se guardaron en la base de datos debido a un error. Este campo está resaltado en rojo. Para ver el mensaje de error que generó la interfaz del componente, coloque el cursor sobre el campo Estado. Este mensaje indica cómo deben corregirse los datos.

Referencias útiles

PeopleTools - Navegador de Archivos en el Application Server

2018-03-26T22:47:00.001-07:00

Más de una vez, he requerido de generar archivos de trace o revisar cargas que haya realizado en el servidor de aplicación (Application Server) o incluso revisar si mis archivos fueron creados correctamente.

Para no tener que depender del sysadmin, y estar solicitando que ten envíen archivos o revisar si se crearon correctamente o etc.. etc.. hice esta página para poder accesar y descargar o revisar los archivos que necesito del servidor de aplicación.

Alguna vez recuerdo haber encontrado uno pero ya por más que lo busqué ... quedó perdido en algún lugar. Así que mejor generé el mío y que ahora comparto aquí.

Tan solo necesité crear
- 1 Menú
- 1 Componente
- 1 Página
- 1 Registro (tabla) y 1 Registro Derivado
- Algunas líneas de PeopleCode y listo ....

Ahora voy explicando

Este es mi record derived

El capo FILE_PATH_NAME lo utilizo para guardar y mostrar la ruta actual en la que se encuentra, es básica ya que es la que ocupo para saber dónde buscar los archivos.

El campo URL lo utilizo para especificar el nombre de la URL de algún sitio de FTP que tenga disponible. Cuando descargo los archivos no los puedo abrir directamente desde su ubicación, eso debido a temas de seguridad. Quizá en un ambiente windows pudiera funcionar con el protocolo FILE:// , pero para Linux no me funcionó.

Así que la utilizo para copiar temporalmente el archivo y desde ahí es donde llamo el VIEWATTACHMENT.

El campo VARIABLE_ENV, es un Drop List Box y tiene translates con algunas variables de ambiente (las que pude recordar.. jejeje) ustedes podrán agregar las que requieran. Lo utilizo para cambiar el FILE_PATH_NAME a ubicaciones ya predefinidas.

Después, mi Record principal

El campo ID_SEQ_ITEM lo utilizo para numerar los archivos ... al final ya no le encontré gran utilidad, pero si a ustedes les sirve lo pueden volver a mostrar.

ATTACHSYSFILENAME lo utilizo para guardar la ruta completa y nombre de archivo, es de ahí donde tomo la información para abrir los archivos

ATTACHUSERFILE es el campo que en realidad se muestra, es como que únicamente el nombre del archivo.

Ahora mi página:

Aquí están los campos que les comenté, solo hay un Rowset, que trabaja con el Record (que si bien es una tabla, pero núnca guarda datos)

El ATTACHUSERFILE es un botón de tipo Link

La distribución de la página:

El activate de mi Página

Que sirve para inicializar los valores y la primera vista de archivos

Mi componente:

Y sus propiedades

Si observan, el SearchRecord es el de INSTALLATION, que para lo único que me sirve es para entrar, para brincarme el search natural de People.

También tengo desactivados todos los botones del Toolbar.

Existe código en el PostBuild del componente:

Intento aquí definir el caracter para las rutas (Windows o Linux) pero está más preparado para Linux, para Windows habrá que hacer más ajustes.

El SavePostChange del Componente

Que para lo que sirve es volver a cargar los datos con la nueva ruta que se haya modificado. Esto lo hice así ya que lo que desencadena el cambiar de directorio es cuando se da clic en el nivel 1, pero estando parado sobre ese nivel no podría limpiarlo o volverlo a cargar, ya que PeopleTools no lo permite, así que cuando la dirección cambia, tan solo genero un DoSaveNow () y con este código en el SavePostChange toma el cambio en la Ruta actual y refresca el detalle.

El código en mi Record principal, solo tiene el evento de FieldChange y código en el FieldFormula

El código del FieldChange es el que tiene el control para cambiar de directorios o descargar los archivos

Uso algo de Java para poder definir si es una carpeta o no, y en base a eso cambio la ruta y refresco o descargo el archivo.

Aquí está la función que mando llamar de varios lados, que es la que llena el Rowset con el listado de los archivos.

El código en mi derived

Es el que actualiza mi ruta si se selecciona alguna de las variables de ambiente predefinidas.

Y bueno, así es como se ve la página

Dando clic en los links de abajo, se va navegando en los diferentes directorios y niveles. Para subir de nivel es el que tiene los dos puntos seguidos ( /.. )

Y bueno, eso en general es todo. Está sencillo relativamente, creo que si se ponen creativos podrían hacer bastantes mejoras.

Aquí el proyecto para descargar

Sugiero precaución en su uso, y dar solo permisos a quienes tengan conocimiento técnico.

Si bien, así como está no puede borrar ningún arhivo o modificarlo, pero tiene el potencial para realizar muchas cosas.

Y bueno... espero les sirva.

Gestor de Consultas (Query Manager) Usar un subquery como campo de selección

2018-03-01T16:19:00.001-08:00

Usando las PeopleTools 8.53 ya no te permite agregar un campo proveniente de un subquery (recuerdo que en alguna versión anterior se podía ... pero quizá es ya estoy viejito y ya no me acuerdo... jajaja).

En específico, detecta la palabra FROM y no te permite añadirlo.

Así que para lograr eso, seguir estos pasos:

1. Crear un objeto SQL desde el Designer. En este objeto tendrás tu subquery que quieres utilizar como campo en tu consulta, teniendo el cuidado de realizar las referencias adecuadas a tu query principal. Ejemplo (Objeto SQL_TEST:

Estoy usando este texto:

( SELECT 'HOLA' || A.EXCHNG_TO_CURRENCY %P(1)%TextIn(o)m dual )

Para los metadatos es importante respetar mayúsculas y minúsculas tal y cual está

2. Creamos nuestra consulta desde el aplicativo (muy simple en mi caso, solo para el ejemplo)

3. Añadimos una expresión a la consulta (con la longitud y tipo necesario a tu resultado)

En esta expresión hago referencia al SQL que previamente construí (SQL_TEST). El texto es este:

%SQL(SQL_TEST,Fr )

Es indispensable que las letras Fr se encuentren en mayúsuclas y minúsculas, tal y como está en el ejemplo.

En el objeto SQL que creamos, tiene estos metadatos:

%P(1)%TextIn(o)m

Lo que estamos esperando que haga es que sustituya el %P(1) por Fr el %TestIn(o) es fijo, insertará la letra "o" y la última m la pone al final, obteniendo la palabra: From

4. Esa expresión le damos al botón de "Usar como Campo"

5. Nuestros campos se deben de ver así:

6. Si vemos nuestro SQL observamos que ya se encuentra el subquery:

7. Listo!! Podemos ver el resultado

PeopleCode - Manipuar valores de XLAT

2015-02-06T16:31:00.000-08:00

Los valores de XLAT que se asocian al campo son definidos como parte de las propiedades del mismo campo, pero que pasa si esos valores son variables? o provienen incluso en ocasiones de tablas diferentes a donde están los valores de XLAT (PSXLATITEM)? Quizá de entrada se pensaría en cambiar el XLAT por un prompt, pero no queremos que el comportamiento sea como de un prompt, sino como un LISTBOX ?

Aquí un código que te ayudará a resolver eso:

/****************************************/

Local Rowset &XLAT, &RS;

&FLD = GetRecord(Record.MI_RECORD_EN_LA_PAGINA).GetField(Field.MI_CAMPO_CON_XLAT);

&FLD.ClearDropDownList();

/* EN LA SIGUIENTE LINEA PODRÍA USARSE CUALQUIER OTRO RECORD, EN ESTE EJEMPLO ESTOY UTILIZANDO LA MISMA TABLA DE XLAT CON CONDICIONES ESPECIFICAS */

&XLAT = CreateRowset(Record.PSXLATITEM);

&XLAT.Fill("WHERE FILL.FIELDNAME = 'MANAGER_LEVEL' AND FILL.EFF_STATUS = 'A' AND FILL.FIELDVALUE <= 5 AND FILL.EFFDT =(SELECT MAX(ED.EFFDT) FROM SYSADM.PSXLATITEM ED WHERE ED.FIELDNAME = FILL.FIELDNAME AND ED.EFF_STATUS = FILL.EFF_STATUS AND ED.EFFDT <= SYSDATE )");

For &i = 1 To &XLAT.ActiveRowCount

/* es importante destacar que se deben asociar 2 valores: 1 -> el que servirá como clave y 2-> el que lleva la descripción */

&id = &XLAT(&i).PSXLATITEM.FIELDVALUE.Value;

&descr = &XLAT(&i).PSXLATITEM.XLATSHORTNAME.Value;

&FLD.ADDDROPDOWNITEM(&id, &descr);

End-For;

/*****************************************/

Máquinas Virtuales - Unir Archivos OVA

2015-02-06T15:29:00.000-08:00

Si descargaste alguna máquina virtual y ésta viene dividida en archivos .OVA necesitas antes de abrirla o importarla unir esos archivos, para esto desde una terminal (en linux o CMD en windows) es necesario unirlos antes de cualquier operación.

En Windows (por ejemplo):

copy /b Oracle_producto.ova? Oracle_producto.ova

En Lunux / OS X (por ejemplo):

cat Oracle_producto.ova? > Oracle_producto.ova

Usualmente los archivos son grandes, así que paciencia que se tomará su tiempo.

PeopleCode - Envío de Correos con imágenes visibles

2015-02-06T14:34:00.000-08:00

Para enviar correos con imágenes dentro del cuerpo del mensaje para que sean visibles dentro del mensaje, les tengo estas dos soluciones:

1. Utilizando encode64

He visto que esta funciona con correos como hotmail, gmail, etc... Las imágenes deben de haber sido cargadas previamente en alguna URL definida (podría ser algún FTP, dentro de tu red), o en su defecto especificar la ruta donde se encuentran.

/********************************************/

Local string &MAIL_CC, &MAIL_TO, &MAIL_BCC, &MAIL_SUBJECT, &MAIL_TITLES;

Local string &MAIL_TEXT, &MAIL_FILES, &MAIL_FROM, &REPLYTO, &SENDER, &MAIL_SEP;

Local string &CONTTYPE, &strSQL, &email, &App_name, &Vac_title;

Local number &MAIL_FLAGS, &RET;

&strHTML = " Estimado socio: ";

&strHTML= &strHTML | " Le mando estas imágenes: " | Char(13) | " <mi_imagen> ";

&MAIL_FLAGS = 0;

&MAIL_TO = "destinatario1@hotmail.com; destinatario2@gmail.com";

&MAIL_SUBJECT = "Asunto";

&MAIL_TEXT = "<html><body>" | &strHTML | "</body></html>";

Local File &F1;

Local string &base64string;

&ImgName = "FirmaCia.jpg";

/* aquí se trae la imagen desde tu URL a un directorio temporal donde esta tu Application Server*/

&ok = GetAttachment(URL.MI_FTP, &ImgName, GetEnv("TMP") | "/" | &ImgName);

/* abrimos el archivo y convertimos */

&F1 = GetFile(GetEnv("TMP") | "/" | &ImgName, "R", %FilePath_Absolute);

If &F1.IsOpen Then

&base64string = &F1.GetBase64StringFromBinary();

&F1.Close();

End-If;

&MAIL_FROM = "mi_correo@mi_dominio.com";

&MAIL_SEP = ";";

&SENDER = "mi_correo@mi_dominio.com";

&CONTTYPE = "Content-type: text/html; charset=utf8";

/* enviamos correo */

&RET = SendMail(&MAIL_FLAGS, &MAIL_TO, &MAIL_CC, &MAIL_BCC, &MAIL_SUBJECT, &MAIL_TEXT, &MAIL_FILES, &MAIL_TITLES, &MAIL_FROM, &MAIL_SEP, &CONTTYPE, &REPLYTO, &SENDER);

If &RET <> 0 Then

MessageBox(0, "", 0, 0, "Código de retorno de error de SendMail=" | &RET);

End-If;

/********************************************/

2. Añadiendo la imagen como documento adjunto y utilizando dentro del HTML de tu mensaje, en el tag de imágen, en el SOURCE el CID con el nombre de tu imagen. Este me ha servido cuando el cliente de correo es como el OUTLOOK.

/********************************************/

Local string &MAIL_CC, &MAIL_TO, &MAIL_BCC, &MAIL_SUBJECT, &MAIL_TITLES;

Local string &MAIL_TEXT, &MAIL_FILES, &MAIL_FROM, &REPLYTO, &SENDER, &MAIL_SEP;

Local string &CONTTYPE, &strSQL, &email, &App_name, &Vac_title;

Local number &MAIL_FLAGS, &RET;

&strHTML = " Estimado socio: ";

&strHTML= &strHTML | " Le mando estas imágenes: " | Char(13) | " <mi_imagen> ";

&MAIL_FLAGS = 0;

&MAIL_TO = "destinatario1@empresa1.com; destinatario2@empresa2.com";

&MAIL_SUBJECT = "Asunto";

&MAIL_TEXT = "<html><body>" | &strHTML | "</body></html>";

&MAIL_FILES = "";

&MAIL_TITLES = "";

&ImgName = "FirmaCia.jpg";

&FileUrl = GetEnv("TMP") | "/" | &ImgName;

/* traigo la imagen desde el FTP al server donde esta el Application Server*/

&ok = GetAttachment(URL.MI_FTP, &ImgName, &FileUrl);

&MAIL_FILES = &MAIL_FILES | &FileUrl | ";";

&MAIL_TITLES = &MAIL_TITLES | &ImgName | ";";

&MAIL_TEXT = Substitute(&MAIL_TEXT, "<mi_imagen>", "<img SRC=cid:" | &ImgName | " >");

&MAIL_FROM = "mi_correo@mi_dominio.com";

&MAIL_SEP = ";";

&SENDER = "mi_correo@mi_dominio.com";

&CONTTYPE = "Content-type: text/html; charset=utf8";

&RET = SendMail(&MAIL_FLAGS, &MAIL_TO, &MAIL_CC, &MAIL_BCC, &MAIL_SUBJECT, &MAIL_TEXT, &MAIL_FILES, &MAIL_TITLES, &MAIL_FROM, &MAIL_SEP, &CONTTYPE, &REPLYTO, &SENDER);

If &RET <> 0 Then

MessageBox(0, "", 0, 0, "Código de retorno de error de SendMail=" | &RET);

End-If;

/********************************************/

Espero les sea de utilidad.

PeopleSoft - Revisión de Permisos y Accesos

2013-09-09T13:44:00.002-07:00

Yo sé que este query esta muuy largo... pero esta muy digerido. Te da por usuario, roles, listas de permisos, rutas en el portal (inglés y español), menú y componente al cuál se tiene acceso.

SELECT AD.ROLEUSER, AC.ROLENAME, AC.CLASSID,
rtrim(ltrim(rtrim(ltrim(rtrim(ltrim(rtrim(ltrim(rtrim(ltrim(rtrim(ltrim(rtrim(ltrim( G.PORTAL_LABEL)) || ' > ' )) || rtrim(ltrim( F.PORTAL_LABEL)) || ' > ')) || rtrim(ltrim( E.PORTAL_LABEL )) || ' > ')) || rtrim(ltrim( D.PORTAL_LABEL)) || ' > ')) || rtrim(ltrim( C.PORTAL_LABEL)) || ' > ' )) || rtrim(ltrim( B.PORTAL_LABEL)) || ' > ')) || rtrim(ltrim( A.PORTAL_LABEL)) AS Ruta_Ingles,
rtrim(ltrim(rtrim(ltrim(rtrim(ltrim(rtrim(ltrim(rtrim(ltrim(rtrim(ltrim(rtrim(ltrim(GL.PORTAL_LABEL)) || ' > ' )) || rtrim(ltrim(FL.PORTAL_LABEL)) || ' > ')) || rtrim(ltrim(EL.PORTAL_LABEL )) || ' > ')) || rtrim(ltrim(DL.PORTAL_LABEL)) || ' > ')) || rtrim(ltrim(CL.PORTAL_LABEL)) || ' > ' )) || rtrim(ltrim(BL.PORTAL_LABEL)) || ' > ')) || rtrim(ltrim(AL.PORTAL_LABEL)) AS Ruta_Español,
A.PORTAL_URI_SEG1 AS Menu,
A.PORTAL_URI_SEG2 as Componente
FROM ((((((((
(PSPRSMDEFN A LEFT OUTER JOIN PSPRSMDEFNLANG AL
ON A.PORTAL_NAME = AL.PORTAL_NAME
AND A.PORTAL_REFTYPE = AL.PORTAL_REFTYPE
AND A.PORTAL_OBJNAME = AL.PORTAL_OBJNAME
) LEFT OUTER JOIN
(PSPRSMDEFN B LEFT OUTER JOIN PSPRSMDEFNLANG BL
ON B.PORTAL_NAME = BL.PORTAL_NAME
AND B.PORTAL_REFTYPE = BL.PORTAL_REFTYPE
AND B.PORTAL_OBJNAME = BL.PORTAL_OBJNAME
) ON A.PORTAL_PRNTOBJNAME = B.PORTAL_OBJNAME AND (A.PORTAL_NAME = 'EMPLOYEE' AND A.PORTAL_NAME = B.PORTAL_NAME )
) LEFT OUTER JOIN
( PSPRSMDEFN C LEFT OUTER JOIN PSPRSMDEFNLANG CL
ON C.PORTAL_NAME = CL.PORTAL_NAME
AND C.PORTAL_REFTYPE = CL.PORTAL_REFTYPE
AND C.PORTAL_OBJNAME = CL.PORTAL_OBJNAME
) ON B.PORTAL_NAME = C.PORTAL_NAME
AND B.PORTAL_REFTYPE = C.PORTAL_REFTYPE
AND B.PORTAL_PRNTOBJNAME = C.PORTAL_OBJNAME
AND B.PORTAL_NAME = C.PORTAL_NAME
) LEFT OUTER JOIN
(PSPRSMDEFN D LEFT OUTER JOIN PSPRSMDEFNLANG DL
ON D.PORTAL_NAME = DL.PORTAL_NAME
AND D.PORTAL_REFTYPE = DL.PORTAL_REFTYPE
AND D.PORTAL_OBJNAME = DL.PORTAL_OBJNAME
) ON C.PORTAL_NAME = D.PORTAL_NAME
AND C.PORTAL_REFTYPE = D.PORTAL_REFTYPE
AND C.PORTAL_PRNTOBJNAME = D.PORTAL_OBJNAME
AND C.PORTAL_NAME = D.PORTAL_NAME
) LEFT OUTER JOIN
(PSPRSMDEFN E LEFT OUTER JOIN PSPRSMDEFNLANG EL
ON E.PORTAL_NAME = EL.PORTAL_NAME
AND E.PORTAL_REFTYPE = EL.PORTAL_REFTYPE
AND E.PORTAL_OBJNAME = EL.PORTAL_OBJNAME
) ON D.PORTAL_NAME = E.PORTAL_NAME
AND D.PORTAL_REFTYPE = E.PORTAL_REFTYPE
AND D.PORTAL_PRNTOBJNAME = E.PORTAL_OBJNAME
) LEFT OUTER JOIN
( PSPRSMDEFN F LEFT OUTER JOIN PSPRSMDEFNLANG FL
ON F.PORTAL_NAME = FL.PORTAL_NAME
AND F.PORTAL_REFTYPE = FL.PORTAL_REFTYPE
AND F.PORTAL_OBJNAME = FL.PORTAL_OBJNAME
) ON E.PORTAL_NAME = F.PORTAL_NAME
AND E.PORTAL_REFTYPE = F.PORTAL_REFTYPE
AND E.PORTAL_PRNTOBJNAME = F.PORTAL_OBJNAME
) LEFT OUTER JOIN
(PSPRSMDEFN G LEFT OUTER JOIN PSPRSMDEFNLANG GL
ON G.PORTAL_NAME = GL.PORTAL_NAME
AND G.PORTAL_REFTYPE = GL.PORTAL_REFTYPE
AND G.PORTAL_OBJNAME = GL.PORTAL_OBJNAME
) ON F.PORTAL_NAME = G.PORTAL_NAME
AND F.PORTAL_REFTYPE = G.PORTAL_REFTYPE
AND F.PORTAL_PRNTOBJNAME = G.PORTAL_OBJNAME
) LEFT OUTER JOIN
(PSPRSMDEFN H LEFT OUTER JOIN PSPRSMDEFNLANG HL
ON H.PORTAL_NAME = HL.PORTAL_NAME
AND H.PORTAL_REFTYPE = HL.PORTAL_REFTYPE
AND H.PORTAL_OBJNAME = HL.PORTAL_OBJNAME
) ON G.PORTAL_NAME = H.PORTAL_NAME
AND G.PORTAL_REFTYPE = H.PORTAL_REFTYPE
AND G.PORTAL_PRNTOBJNAME = H.PORTAL_OBJNAME
) LEFT OUTER JOIN
(PSPRSMDEFN I LEFT OUTER JOIN PSPRSMDEFNLANG IL
ON I.PORTAL_NAME = IL.PORTAL_NAME
AND I.PORTAL_REFTYPE = IL.PORTAL_REFTYPE
AND I.PORTAL_OBJNAME = IL.PORTAL_OBJNAME
) ON H.PORTAL_NAME = I.PORTAL_NAME
AND H.PORTAL_REFTYPE = I.PORTAL_REFTYPE
AND H.PORTAL_PRNTOBJNAME = I.PORTAL_OBJNAME
),
PSPRSMPERM AB,
PSROLECLASS AC,
PSROLEUSER AD
where B.PORTAL_REFTYPE = 'F'
AND A.PORTAL_NAME = AB.PORTAL_NAME
AND A.PORTAL_REFTYPE = AB.PORTAL_REFTYPE
AND A.PORTAL_OBJNAME = AB.PORTAL_OBJNAME
AND AC.CLASSID = AB.PORTAL_PERMNAME
AND AC.ROLENAME = AD.ROLENAME
AND A.PORTAL_URI_SEG2 <> ' '
AND AD.ROLEUSER = 'VP1'
order by 1,4,2,3

Leer una página WEB desde VB

2013-09-09T11:16:00.004-07:00

Esto puede ser muy útil para quitar publicidad y esas cosas que no queremos en nuestras páginas... o hasta incluso .. meter publicidad si queremos (me imagino por ejemplo algún cyber.. o lo que se les ocurra)

' Declaraciones a nivel público

Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer

Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

'Nuestras constantes
Public Const IF_FROM_CACHE = &H1000000
Public Const IF_MAKE_PERSISTENT = &H2000000
Public Const IF_NO_CACHE_WRITE = &H4000000
Public Const BUFFER_LEN = 256

' Nuestra función de lectura

Public Function LeeURL(sURL As String) As String

Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String

Dim hInternet As Long, hSession As Long, lReturn As Long

'obtener el identificador de la conexión a Internet actual

hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)

'obtener el identificador de la url

If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)

'si tenemos el identificador, a continuación, iniciar la lectura de la página web

If hInternet Then

'obtenemos el primer bloque y lo vamos guardando.

iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)

sData = sBuffer

'mientras haya más datos los seguimos guardando

Do While lReturn <> 0

iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)

sData = sData + Mid(sBuffer, 1, lReturn)

DoEvents

Loop

End If

'cerramos la conexión

iResult = InternetCloseHandle(hInternet)

LeeURL = sData

End Function

' Ahora solo la llamamos y podemos guardar en una variable de texto, de ahí la podemos mandar a nuestro objeto de IExplorer o hacer lo que queramos con ello

....

Url = "www.google.com"

CodigoPaginaHTML = LeeURL(Url)

....

ROWNUM en ACCESS (solución)

2013-08-02T16:49:00.002-07:00

Al parecer muchos han buscado este tema y si bien ya había puesto una posible solución creo no fue la mejor solución para todos.

Pues bueno, creo que esta les funcionará mejor.

Primero, tengo esta tabla:

Así, sin más, solo 2 columnas con datos cualesquiera de tipo texto.

Ahora, en Access creamos 2 funciones públicas:

Declaran esta variable de tipo pública (ID)

Aquí el código para que lo copien y peguen:

Public Function RN(valor As Variant) As Double

If valor = 1 Then

ID = 0

RN = ID

End If

End Function

Public Function Rownum(valor As Variant) As Double

ID = ID + 1

Rownum = ID

End Function

Y solo queda usarlo.... desde código VB el ejemplo:

Bueno, dentro de la función test() hago un primer Select y tal cual me traigo todo de la tabla y lo pinto en la ventana del debug, excepto la primera columna, que el dato no nos sirve para nada pero es necesario para que la función Rownum funcione correctamente.

En el segundo Select hago un filtro por datos y el Rownum que me genera por cada renglón es correcto.

Bueno, este ejemplo es generándolo por código, pero también por consulta en Access

Y el resultado

Pues bueno, espero sea esto lo que realmente necesitan.

Comentarios, mejoras o sugerencias ...

Crear un PDF con PeopleCode desde un HTML

2013-06-17T14:33:00.001-07:00

Aquí les dejo un ejemplo de cómo crear un PDF en línea, con PeopleCode a partir de una plantilla HTML

Local JavaObject &Document = CreateJavaObject("com.lowagie.text.Document");
Local JavaObject &pdfWriter = GetJavaClass("com.lowagie.text.pdf.PdfWriter").getInstance(&Document, CreateJavaObject("java.io.FileOutputStream", "/tmp/test.pdf", True));

&Document.open();

Local JavaObject &htmlWorker = CreateJavaObject("com.lowagie.text.html.simpleparser.HTMLWorker", &Document);

Local string &str;

&str = " <html> ";
&str = &str | " <head> ";
&str = &str | " <title></title> ";
&str = &str | " </head> ";
&str = &str | " <body> ";
&str = &str | " Título ";
&str = &str | " Subtítulo ";
&str = &str | " Párrafo ";
&str = &str | " Texto de párrafo, texto de párrafo, texto de párrafo, texto de párrafo, texto ";
&str = &str | " de párrafo, texto de párrafo, texto de párrafo, texto de párrafo, texto de ";
&str = &str | " párrafo, texto de párrafo, texto de párrafo. ";
&str = &str | " <table border='1' cellspacing='1' bgcolor='#FFFFCC' bordercolor='#0000FF' width='100%'> ";
&str = &str | " <tbody> ";
&str = &str | " <tr> ";
&str = &str | " <td width='10%'>Tabla</td> ";
&str = &str | " <td width='20%'>Head 1</td> ";
&str = &str | " <td width='50%'>Head 2</td> ";
&str = &str | " <td width='20%'>Head 3</td> ";
&str = &str | " </tr> ";
&str = &str | " <tr> ";
&str = &str | " <td width='10%'> </td> ";
&str = &str | " <td width='20%'> </td> ";
&str = &str | " <td width='50%'> </td> ";
&str = &str | " <td width='20%'> </td> ";
&str = &str | " </tr> ";
&str = &str | " </tbody> ";
&str = &str | " </table> ";
&str = &str | " <ul> ";
&str = &str | " <li>Elemnto 1</li> ";
&str = &str | " <li>Elemento 2</li> ";
&str = &str | " <li>Elemento 3</li> ";
&str = &str | " </ul> ";
&str = &str | " </body> ";
&str = &str | " </html> ";

Local JavaObject &SR = CreateJavaObject("java.io.StringReader", &str);

&htmlWorker.parse(&SR);

&Document.close();

&salida = PutAttachment(URL.MI_SITIO_FTP, "/midirectorio/test.pdf", "/tmp/test.pdf");

/* eliminamos el archivo en el AppSrv, del subdirectorio temporal */
Local JavaObject &f = CreateJavaObject("java.io.File", "/tmp/test.pdf");
&f.delete();

/* Muestra el archivo desde la ubicación de FTP */
&salida = ViewAttachment(URL.MI_SITIO_FTP, "/midirectorio/test.pdf", "test.pdf", True);

/* Eliminamos el archivo copiado después de haberlo mostrado*/
&salida = DeleteAttachment(URL.MI_SITIO_FTP, "/midirectorio/test.pdf");

NOTA:
Este tema esta relacionado con un tema previo que publiqué, con referencia al uso de las librerías iText.

PeopleCode: Imprimir toda una página

2013-02-14T09:16:00.001-08:00

Imprimir toda una página es más fácil...

Agrega un botón a tu página, asócialo a un derived y un campo que sea de 25 caracteres como mínimo de tipo MIXED.

En las propiedades del botón en Destination le pones External Link y en el cuadro de external link (el que se habilita) le pones dinámico.

Después en el FieldDefault del campo asociado al botón le pones:

TuDerived.TuCampo.value = "javascript:window.print()"
Y listo....

Adicional y si requieres que no imprima el menú e incluso el mismo botón que lo mandó a imprimir, tendrías que hacer:

En las propiedades del botón, en la pestaña de General, en donde dice "Page Field Name" le pones algún nombre específico, como: BOTON_IMPRIME

Luego, en tu página tienes que agregar un HTML de tipo constante, y en el rowinit le pones este código:

TuDerived.TuCampoHTML.value = "<style type=""text/css"">@media print {body { zoom:75%;} #PAGEBAR, .PSHEADERTOOLBARFRAME, #BOTON_IMPRIME { display: none }}</style>";
Con esto estás controlando el zoom al momento de imprimir y las secciones que no quieres que aparezcan. Puedes nombrar tantos campos de tu pantalla como quieras, para luego decirle que no aprezcan en la impresión, anteponiendo el "#" como en la línea de arriba: #BOTON_IMPRIME { display: none }

Tanto el botón como el HTML deben de estar al nivel 0

Espero les sea de utilidad.

ORACLE SQL - Renglones en una sola columna

2013-02-13T14:48:00.000-08:00

Supongamos que tenemos esta tabla:

create table test2(nombre varchar(7));

Y con estos datos:

insert into test2 values('uno');

insert into test2 values('dos');

insert into test2 values('tres');

insert into test2 values('cuatro');

insert into test2 values('cinco');

insert into test2 values('seis');

insert into test2 values('siete');

insert into test2 values('ocho');

insert into test2 values('nueve');

insert into test2 values('diez');

commit;

Si revisamos los datos vemos:

select * from test2
NOMBRE
-------
uno
dos
tres
cuatro
cinco
seis
siete
ocho
nueve
diez
10 rows selected

Y ahora queremos obtener esos 10 renglones en uno solo y en una sola columna

WITH DATOS

AS (SELECT 1 DUMMY, NOMBRE FROM TEST2 )

SELECT LTRIM(MAX( SYS_CONNECT_BY_PATH ( NOMBRE, ',')),',') NOMBRES

FROM

(SELECT DUMMY, NOMBRE,

ROW_NUMBER() OVER ( PARTITION BY DUMMY ORDER BY DUMMY) RN

FROM DATOS )

CONNECT BY DUMMY = PRIOR DUMMY

AND RN = PRIOR RN+1

START WITH RN = 1

GROUP BY DUMMY;

Y obtenemos:

NOMBRES
-----------------------------------------------------------------------------

uno,dos,tres,cuatro,cinco,seis,siete,ocho,nueve,diez

Espero les sea de utilidad.

PeopleSoft - Impresión de una sección de una página con IScript

2013-02-08T15:30:00.001-08:00

Supongamos que tenemos una página como la siguiente:

En donde tenemos un objeto de tipo HTML y el texto de éste es el que queremos mandar a impresión (sin ninguna otra parte de la página, llámese secciones, campos, menú, etc..)

Bueno, después de haber buscado hacerlo por JavaScript y que no me dejó por sus restricciones de seguridad (que no dudo que se pueda, pero ya no me adentré más en eso) me fui por IScript de Peoplesoft.

Bueno, primero hablemos de cómo llené el objeto HTML.

Dentro del catálogo de mensajes, cree el relleno de esto, el texto dándole el formato que necesito con HTML.

Utilizando variables a sustituir, con la misma mecánica de PS, utilizando el %1 %2 %3 etc… insertándolo en las partes del texto donde deberán de aparecer.

Dentro de la página, obviamente para llenarlo le paso los parámetros que se necesitan:

&sHTML = MsgGetExplainText(123, 480, "No configurado", &emplid, &nombre);

MiRegistro.CampoHTML.value = &sHTML;

Ok, hasta aquí tenemos como se llenó en la página.

CREANDO EL ISCRIPT (WebLibrary)

Creamos un record con 1 solo campo. El nombre del Record necesariamente debe de comenzar con el prefijo WEBLIB_

El nombre del campo si puede ser cualquiera. Nos vamos al FieldFormula de ese campo y ponemos:

import PT_NAV:*;

Declare Function SetDocDomainForPortal PeopleCode FUNCLIB_PORTAL.TEMPLATE_FUNC FieldFormula;

Function IScript_Imprime ()
   &domainScript = SetDocDomainForPortal();
   &convocatoria = %Request.GetParameter("e");
   &nombre = %Request.GetParameter("n");
   &texto = MsgGetExplainText(123, 480, "N configurada", &emplid, &nombre);
   &HTML = GetHTMLText(HTML.HTML_BE_MSJ, %Response.GetStyleSheetURL(StyleSheet.PSSTYLEDEF), &domainScript, &texto);
   %Response.Write(&HTML);

End-Function;

El nombre de la función necesariamente debe de iniciar con IScript_

Si se fijan, estoy llamando un objeto HTML (HTML.HTML_BE_MSJ) en este objeto tengo el diseño de la página nueva que se abrirá y mostrará el contenido que requiero para mandarlo a impresión. Este objeto lo tengo así:

En el cuál estoy manejando variables que le pasaré con el contenido del texto que necesito imprimir y otros detalles. También, como solo me interesa imprimirlo, en el evento onload de ésta página lo estoy mandando a impresión e inmediatamente después me regreso a la página desde la cuál se hizo el llamado.

PERMISOS

Ahora, tenemos que registrar la librería, podría ser manualmente o por el asistente, el cuál se activa cuando creamos el Record de tipo WEBLIB_

Y de ahí seguimos las instrucciones. Yo usualmente lo añado a la carpeta Tools (que esta oculta). No se nos debe de olvidar añadirlo a la lista de permisos, que incluso desde el asistente se puede agregar

LLAMANDO LA LIBRERÍA

Después, en la página agregamos un botón que apunte a cualquier registro de tipo derived, y en el evento FieldChange pondríamos:

SQLExec("select nombre from ps_names where emplid=:1", PS_JOB.EMPLID, &nombre);

&Url = &Url | "?e=" | PS_JOB.EMPLID.value | "&n=" | &nombre;

%Response.RedirectURL(&Url);

Y listo!!

Al momento de dar clic al botón abrirá una nueva página junto con la caja de diálogo de impresión, y al momento de imprimir regresará a la página original.

Si observan, la función IScript no recibe como tal ningún parámetro, todos los que se necesiten serán leídos utilizando el %Request.GetParameter("MiParámetro").

Espero les sea de utilidad.

PeopleCode: Realizar filtros dentro de una página

2013-01-21T16:07:00.001-08:00

Usualmente para realizar filtros en las páginas utilizamos los Search Records del componente, pero que pasa cuando necesitamos realizar un filtro cuando ya tenemos la página abierta.

Supongamos que dentro de la página tenemos algo como esto:

Y necesitamos que el grid de abajo (en nivel 1) se llene con los datos relacionados al filtro que realicemos.

Primero:

El campo del record (MI_REC_BUSQUEDA) por el que se realiza el filtro deberá tener un prompt:

En el evento FieldChange del campo EMPLID metemos este código:

Local Rowset &grid;

&grid = GetLevel0()(1).GetRowset(Scroll.TABLA_DEL_GRID);

&Where = "WHERE EMPLID = '" | MI_REC_BUSQUEDA.EMPLID | "'";

&total_lineas = &grid.Selectnew(Record.TABLA_DEL_GRID, &Where);

Con esto creamos el filtro y llenamos el grid de abajo, adicional tenemos el número total de registros devueltos.

Y listo…

Convertir de Números a Letras usando SQL (Oracle)

2012-09-25T11:40:00.000-07:00

Para obtener por SQL la conversión de números a letras podemos usar lo siguiente:

SELECT TO_CHAR ( TO_DATE ( TO_CHAR ( 2012, '99999999999') , 'J'), 'JSP') EN_LETRAS FROM dual;
De lo cual obtenemos:

EN_LETRAS

---------------------------------------------------------------------------

TWO THOUSAND TWELVE

1 row selected

Bien, podemos obtener desde el número 1 hasta 5,373,484 y es por la restricción de las fechas julianas (como fecha máxima tenemos 31-Dic-9999)

Explicando el por que y cómo:

Si vamos separando las operaciones que realiza observamos:

1. La primera conversión TO_CHAR ( 2012, '99999999999') tan solo pasa el número a cadena
2. La segunda operación TO_DATE ( TO_CHAR ( 2012, '99999999999') , 'J') es donde convierte la cadena obtenida en fecha juliana.
3. La tercera parte, donde volvemos esta fecha obtenida en cadena nuevamente, utilizamos la máscara ‘JSP’ en donde J hace referencia a la fecha Juliana, y SP lo lleva a letras (Spell)

Y listo!! Tienes el número en letras.

Espero les sea de utilidad

Bloquear botones de Agregar y Eliminar de un Scroll por Peoplecode

2012-09-25T10:52:00.000-07:00

Para quitar los botones de Agregar y Eliminar de un scroll en tiempo de ejecución, se puede usar este código:

Local Rowset &MyScroll;

&MyScroll =GetLevel0()(1).GetRowset(Scroll.REGISTRO_DE_SCROLL);

&MyScroll.InsertEnabled = False;

&MyScroll.DeleteEnabled = False;

Espero les sea de utilidad.

Convertir de Números a Letras en PeopleCode

2012-09-22T12:14:00.000-07:00

Aquí les dejo una función para convertir números a letras, utilizando PeopleCode. La función recibe la cantidad en número y devuelve en string la conversión.

Espero les sea de utilidad.

Function monto_en_letra(&monto) Returns string;

For &i = 1 To Len(&monto)
&caracter = Substring(&monto, &i, 1);
Evaluate &caracter
When "0"
&nombre = "";
Break;
When "1"
&nombre = "UNO";
Break;
When "2"
&nombre = "DOS";
Break;
When "3"
&nombre = "TRES";
Break;
When "4"
&nombre = "CUATRO";
Break;
When "5"
&nombre = "CINCO";
Break;
When "6"
&nombre = "SEIS";
Break;
When "7"
&nombre = "SIETE";
Break;
When "8"
&nombre = "OCHO";
Break;
When "9"
&nombre = "NUEVE";
Break;
End-Evaluate;
&posicion = Len(&monto) + 1 - &i;
Evaluate &posicion
When 7
&caracter_sigm = Substring(&monto, 1, 1);
Evaluate &caracter
When "1"
&valor = "UN MILLÓN ";
Break;
 When-Other
&valor = &nombre | " MILLONES ";
Break;
End-Evaluate;
Break;
When 6
 Evaluate &caracter
When "0"
&valor = &valor | "";
Break;
When "1"
&caracter_sig = Substring(&monto, 2, 2);
 If &caracter_sig = "00" Then
&valor = &valor | "CIEN ";
Else
&valor = &valor | "CIENTO ";
End-If;
Break;
 When "5"
 &valor = &valor | "QUINIENTOS ";
 Break;
When "7"
&valor = &valor | "SETECIENTOS ";
Break;
 When "9"
 &valor = &valor | "NOVECIENTOS ";
 Break;
When-Other
If &caracter_sigm <> 0 Then
&valor = &valor | &nombre | "CIENTOS ";
End-If;
Break;
End-Evaluate;
Break;
When 5
&sig = 0;
Evaluate &caracter
When "0"
&valor = &valor | "";
Break;
When "1"
&caracter_sig = Substring(&monto, &i + 1, 1);
&sig = 1;
 Evaluate &caracter_sig
When "0"
&valor = &valor | "DIEZ ";
Break;
 When "1"
 &valor = &valor | "ONCE ";
 Break;
When "2"
&valor = &valor | "DOCE ";
 Break;
 When "3"
&valor = &valor | "TRECE ";
 Break;
 When "4"
&valor = &valor | "CATORCE ";
 Break;
 When "5"
&valor = &valor | "QUINCE ";
 Break;
 When-Other
&valor = &valor | "DIECI";
Break;
 End-Evaluate;
 Break;
When "2"
&caracter_sig = Substring(&monto, &i + 1, 1);
 If &caracter_sig = "0" Then
&valor = &valor | "VEINTE ";
Else
&valor = &valor | "VEINTI";
End-If;
Break;
When "3"
&caracter_sig = Substring(&monto, &i + 1, 1);

If &caracter_sig = "0" Then
&valor = &valor | "TREINTA ";
Else
 &valor = &valor | "TREINTA Y ";
 End-If;
 Break;
 When "4"
&caracter_sig = Substring(&monto, &i + 1, 1);
 If &caracter_sig = "0" Then
&valor = &valor | "CUARENTA ";
Else
&valor = &valor | "CUARENTA Y ";
End-If;
Break;
When "5"
&caracter_sig = Substring(&monto, &i + 1, 1);
If &caracter_sig = "0" Then
&valor = &valor | "CINCUENTA ";
Else
 &valor = &valor | "CINCUENTA Y ";
 End-If;
 Break;
When "6"
&caracter_sig = Substring(&monto, &i + 1, 1);
If &caracter_sig = "0" Then
&valor = &valor | "SESENTA ";
Else
&valor = &valor | "SESENTA Y ";
End-If;
Break;
When "7"
&caracter_sig = Substring(&monto, &i + 1, 1);
If &caracter_sig = "0" Then
&valor = &valor | "SETENTA ";
Else
 &valor = &valor | "SETENTA Y ";
 End-If;
 Break;
 When "8"
&caracter_sig = Substring(&monto, &i + 1, 1);
If &caracter_sig = "0" Then
&valor = &valor | "OCHENTA ";
Else
 &valor = &valor | "OCHENTA Y ";
End-If;
 Break;
 When "9"
&caracter_sig = Substring(&monto, &i + 1, 1);
 If &caracter_sig = "0" Then
&valor = &valor | "NOVENTA ";
Else
 &valor = &valor | "NOVENTA Y ";
End-If;
Break;
End-Evaluate;
Break;
When 4
If &sig = 1 Then
 If Find(&caracter, "6789") > 0 Then
&valor = &valor | &nombre | " ";
Else
&valor = &valor | "";
End-If;
Else
Evaluate &caracter
When "0"
&valor = &valor | "";
Break;
When "1"
 If Len(&monto) = 4 Then
 &valor = &valor | "";
 Else
&valor = &valor | "UN ";
End-If;
Break;
 When-Other
 &valor = &valor | &nombre | " ";
Break;
End-Evaluate;
End-If;
 &valor = &valor | "MIL ";
Break;
When 3
Evaluate &caracter
When "0"
&valor = &valor | "";
Break;
When "1"
 If &caracter_sig = "00" Then
&valor = &valor | "CIEN ";
Else
&valor = &valor | "CIENTO ";
End-If;
Break;
 When "5"
 &valor = &valor | "QUINIENTOS ";
 Break;
 When "7"
 &valor = &valor | "SETECIENTOS ";
 Break;
 When "9"
 &valor = &valor | "NOVECIENTOS ";
 Break;
When-Other
 &valor = &valor | &nombre | "CIENTOS ";
Break;
End-Evaluate;
Break;
When 2
 &sig = 0;
Evaluate &caracter
When "0"
 &valor = &valor | "";
Break;
When "1"
&caracter_sig = Substring(&monto, &i + 1, 1);
&sig = 1;
Evaluate &caracter_sig
When "0"
&valor = &valor | "DIEZ ";
Break;
When "1"
&valor = &valor | "ONCE ";
Break;
When "2"
&valor = &valor | "DOCE ";
 Break;
 When "3"
&valor = &valor | "TRECE ";
 Break;
 When "4"
&valor = &valor | "CATORCE ";
 Break;
 When "5"
&valor = &valor | "QUINCE ";
 Break;
 When-Other
&valor = &valor | "DIECI";
Break;
 End-Evaluate;
 Break;
When "2"
&caracter_sig = Substring(&monto, &i + 1, 1);
 If &caracter_sig = "0" Then
&valor = &valor | "VEINTE ";
Else
&valor = &valor | "VEINTI";
End-If;
Break;
When "3"
&caracter_sig = Substring(&monto, &i + 1, 1);
 If &caracter_sig = "0" Then
&valor = &valor | "TREINTA ";
Else
&valor = &valor | "TREINTA Y ";
 End-If;
 Break;
 When "4"
&caracter_sig = Substring(&monto, &i + 1, 1);
If &caracter_sig = "0" Then
&valor = &valor | "CUARENTA ";
Else
 &valor = &valor | "CUARENTA Y ";
End-If;
Break;
When "5"
&caracter_sig = Substring(&monto, &i + 1, 1);
If &caracter_sig = "0" Then
&valor = &valor | "CINCUENTA ";
Else
 &valor = &valor | "CINCUENTA Y ";
 End-If;
 Break;
When "6"
&caracter_sig = Substring(&monto, &i + 1, 1);
 If &caracter_sig = "0" Then
&valor = &valor | "SESENTA ";
Else
&valor = &valor | "SESENTA Y ";
 End-If;
Break;
When "7"
&caracter_sig = Substring(&monto, &i + 1, 1);
If &caracter_sig = "0" Then
&valor = &valor | "SETENTA ";
Else
 &valor = &valor | "SETENTA Y ";
 End-If;
Break;
When "8"
&caracter_sig = Substring(&monto, &i + 1, 1);
 If &caracter_sig = "0" Then
&valor = &valor | "OCHENTA ";
Else
&valor = &valor | "OCHENTA Y ";
 End-If;
Break;
When "9"
&caracter_sig = Substring(&monto, &i + 1, 1);
If &caracter_sig = "0" Then
&valor = &valor | "NOVENTA ";
Else
&valor = &valor | "NOVENTA Y ";
 End-If;
 Break;
End-Evaluate;
Break;
When 1
If &sig = 1 Then

If Find(&caracter, "6789") > 0 Then
&valor = &valor | &nombre | " ";
Else
&valor = &valor | "";
End-If;
Else
Evaluate &caracter
When "0"
&valor = &valor | "";
Break;
When "1"
&valor = &valor | "UN ";
Break;
When-Other
&valor = &valor | &nombre;
 Break;
End-Evaluate;
End-If;
Break;
End-Evaluate;
End-For;

If &valor = "UN" Then
&valor = &valor | " PESO ";
Else
&valor = &valor | " PESOS ";
End-If;

Return &valor;
End-Function;

Creación de archivos PDF con PeopleCode (online)

2012-09-16T09:34:00.001-07:00

Dependiendo de la versión de PeopleTools hay diferentes herramientas para crear documentos PDF. Específicamente para este tema comento que estoy utilizando la versión de tools 8.44 y Java 4.1

Al ser en línea usamos java, y utilizamos iText, que nos da la funcionalidad que requerimos.

Desde esta ubicación pueden tanto descargar el ejecutable ( .jar) como el código fuente, si es que lo requieren. Viene la referencia de todas las clases, de forma que podemos revisar como usarlo.

Repito, según la versión de Java que estén utilizando es la versión de iText que deben utilizar, en este caso estoy utilizando la 2.0.8.

El archivo JAR lo deben ubicar a donde apunte PS_CLASSPATH, de estar vacía es necesario que la definan, de otra forma no funciona.

Dicho lo anterior, entramos en tema.

Los primeros pasos son:

/* Crea un objeto de tipo documento */
Local string &MyFile = "myfile.pdf";
Local JavaObject &Obj_Doc = CreateJavaObject("com.lowagie.text.Document");

/* Podemos desde un inicio cargar clases complementarias que vamos a usar */
Local JavaObject &Obj_Font = CreateJavaObject("com.lowagie.text.Font");
Local JavaObject &Element = GetJavaClass("com.lowagie.text.Element");

/* es importante obtener la ruta en donde deja los archivos para que posteriormente podemos tomar los mismos*/
&ambiente = GetEnv("PS_HOME");

/* Obtiene una instancia de PDF Writer */
Local JavaObject &obj_PDFoutput =
GetJavaClass("com.lowagie.text.pdf.PdfWriter").getInstance(&Obj_Doc, CreateJavaObject("java.io.FileOutputStream", &ambiente | "/" |
&MyFile, True));

/* y abrimos el documento para comenzar a escribir */
&Obj_Doc.open();

Bien, ya tenemos abierto el archivo y podemos comenzar a llenar el documento. Podemos agregar directamente texto e imágenes, pero con finalidad de darle una mejor presentación podemos utilizar tablas, para acomodar mejor la información en el documento.

/* Creación de una tabla */
/* El número de renglones no es necesario especificarlo, pero las columnas si */
Local JavaObject &Obj_Table = CreateJavaObject("com.lowagie.text.Table", 6)

/* creado el objeto tabla, se establecen propiedades */
&Obj_Table.setWidth(100);
&Obj_Table.setBorderWidth(0);
&Obj_Table.setDefaultCellBorderWidth(0);

/* creada la tabla, se deben de ir incluyendo las celdas*/
Local JavaObject &cell = CreateJavaObject("com.lowagie.text.Cell");

/* se especifican sus propiedades */
&cell.setBorderWidth(&border);
&cell.setHorizontalAlignment(&AlinearHorizontal);
&cell.setVerticalAlignment(&AlinearVertical);

/* En este punto es cuando se agrega a la celda aquello que se vaya a presentar */

/* ... agregando una imagen a la celda */
Local JavaObject &Obj_Img = GetJavaClass("com.lowagie.text.Image").getInstance(&URLImagen);
/* se establecen propiedades */
&Obj_Img.scaleAbsolute(50, 50);
/* se agrega a la celda */
&cell.addElement(&Obj_Img);

/* finalmente se agrega la celda a la tabla, incluso se puede especificar la posición exacta dentro de la tabla */
Local float &Row, &Column;
&Row=1;
&Column=3;
&Obj_Table.addCell(&cell, &Row, &Column);

/* … agregando texto a la celda, y especificando el COLSPAN */
/* primero creamos la fuente */
Local JavaObject &fuente = CreateJavaObject("com.lowagie.text.Font", 1);
&fuente.setSize(&TamanioFuente);
&fuente.setStyle("bold");
Local JavaObject &Obj_Parrafo = CreateJavaObject("com.lowagie.text.Paragraph", “Texto a Mostrar”, &fuente);

/* Creamos la celda */
Local JavaObject &cell = CreateJavaObject("com.lowagie.text.Cell");
&cell.setColspan(2);
&cell.setWidth(&Ancho);
&cell.setBorderWidth(&border);
&cell.setHorizontalAlignment(&AlinearHorizontal); /* 0,1,2 -> Izq, centro, derecha */
&cell.setVerticalAlignment(&AlinearVertical);
&cell.addElement(&Obj_ Parrafo);
/* agregamos a tabla */
&Obj_Table.addCell(&cell, &Row, &Colum);

/* Agregando una imagen directamente al documento */
Local JavaObject &Obj_Img = GetJavaClass("com.lowagie.text.Image").getInstance(&URLImagen);
&Obj_Img.scaleAbsolute(&Width, &Height);
&Obj_Doc.add(&Obj_Img);

/* Agregar texto directamente al documento */
Local JavaObject &fuente = CreateJavaObject("com.lowagie.text.Font", 12); /* desde aquí se puede especificar el tamaño o posteriormente */
&fuente.setSize(&TamanioFuente);
&fuente.setStyle("bold");
Local JavaObject &Obj_Parrafo = CreateJavaObject("com.lowagie.text.Paragraph", “Texto a Mostrar”, &fuente);
&Obj_Parrafo.setAlignment(&Alinear);
&Obj_Doc.add(&Obj_Parrafo);

/* Como último paso es cerrar el documento */
&Obj_Doc.close();

Listo, ya tenemos listo el documento, ahora tendríamos que moverlo, mostrarlo y/o guardarlo, mandarlo por correo, etc ...

Aquí solo mostraré como moverlo a una ubicación de FTP y mostrar el archivo

/* Obtiene el archivo desde la ubicación donde esta el application server y lo manda a otra ubicación, en este caso de FTP */
&salida = PutAttachment(URL.MiURL, "/psmysite/" | &MyNewFile, &ambiente | "/" | &MyFile);

/* Muestra el archivo desde la ubicación de FTP */
&salida = ViewAttachment(URL.MiURL, "/psmysite/" | &MyNewFile, &MyNewFile, True);

/* Eliminamos el archivo copiado después de haberlo mostrado*/
&salida = DeleteAttachment(URL.MiURL, "/psmysite/" | &MyNewFile);

ROWNUM en MS ACCESS

2012-07-14T10:02:00.000-07:00

Buscando cómo obtener en ACCESS el número de registro que estoy obteniendo en una consulta por SQL, no encontré ninguna función que me lo dé. El concepto de ROWNUM es creo solo para ORACLE, pero para MS ACCESS debería de haber algo similar ... no lo encontré.

Pero por SQL lo puedo obtener. Suponiendo que tengo la siguiente tabla:

Y deseamos obtener el Id del empleado, nombre, apellido y dirección, de todos los empleados de USA, pero queremos que vayan numerados.

Para esto utilizamos la siguiente sentencia SQL:

SELECT a.employeeid,
a.firstname,
a.lastname,
a.address,
(SELECT COUNT ( * ) + 1
FROM employees b
WHERE b.country = 'USA' AND b.employeeid < a.employeeid) as ROWID
FROM employees a
WHERE a.country = 'USA'

Revisen también esta posibilidad de hacerlo: ROWNUM en ACCESS

VisData

2012-07-06T14:36:00.001-07:00

Este programa ya es conocido, puedes acceder a diferentes bases de datos, incluso teniendo controladores de ODBC, prácticamente puedes entrar a cualquier base de datos.

Te permite editar propiedades de tablas, índices, creación de los mismos, consultas, etc..

Específicamente sobre Microsoft Access, puedes crear, modificar, reparar, comprimir, etc... prácticamente todas las herramientas que Ms Access trae para la administración de bases de datos.

Esta por demás comentar que se tendría un perfecto ejemplo de cómo acceder a bases de datos utilizando diferentes medios.

Descarga aquí el código fuente, la contraseña es: codificalo

Espero les sea de utilidad.

Envío de eMail

2012-07-04T17:05:00.000-07:00

Con este programa podrás enviar correos electrónicos sin necesidad de usar tu cuenta de correo original, podrás usar cualquier cuenta de correo como Remitente y cualquier cuenta de correo como Destinatario. No es necesario que exista la cuenta de correo del Remitente.

Descarga aquí el código fuente. La contraseña es: codificalo

Espero les sea de utilidad.

Editor de Texto

2012-06-25T13:31:00.001-07:00

Bueno, esta es una aplicación con varias funciones que pueden ser tomadas y reutilizadas en otros programas. Es un editor de texto, sencillo pero con algunas particularidades que pueden ser interesantes

Descarga aquí el código fuente. La contraseña es: codificalo

Espero les sea de utilidad.

Navegador WEB

2012-06-21T14:43:00.002-07:00

Crea tu Propio Navegador WEB

Con este código podrás hacer tu propio navegador Web, dándole la apariencia que más te guste y sin problemas de complementos que se te instalen solos y demás.

Tan solo como a ti más te guste, e incluso permitiéndote añadirle las funciones que necesites

Descarga aquí el código fuente. La contraseña para abrirlo es: codificalo

Espero te se de utilidad.

PING y monitoreo

2012-06-18T13:22:00.001-07:00

Realizar PING y monitoreo de conexión de red de un Equipo

Este programa realiza peticiones de PING a una dirección IP determinada, pudiéndole modificar el tamaño del paquete de datos.

Es un programa sencillo; en el número 1 mostrado en la imagen, se pone la dirección IP a la cuál le queremos dar el ping. A la derecha aparece el botón que dice Realizar Ping, con ésto, en la parte derecha aparecen los resultados de 1 solo ping.

En la sección de abajo a la izquierda (2) podemos realizar un ping cíclico, definiéndole los segundos entre 1 ping y el siguiente (3). Cuando el programa detecta que ya no tiene conexión envía a la pantalla un mensaje advirtiendo de la desconexión.

Esto nos puede servir para saber si un equipo se esta saliendo de la red, al igual que se podría hacer en una consola de DOS, pero aquí manda un mensaje en pantalla, de forma que el programa puede estar corriendo minimizado y cuando encuentre que ya no responde el equipo manda el aviso.

Podrán hacerle las modificaciones necesarias para adecuarlo a lo que necesitan.

Descarga aquí el código fuente. La contraseña para abrirlo es: codificalo.

Espero les sea de utilidad.