hombre..... usar 860 acronimos.... así a bote pronto no lo veo, no por nada, sino como te vas ha acordar de todos....
No te vendría mejor, digo yo... una ventanita que te permitiese buscar un codigo por el texto del proveedor, por ejemplo una palabra o un trozo y te lo pegase o copiase al portapapeles, así mientras buscas que te lo ponga en una lista para que puedas seleccionar el que quieras y te lo pegue....
Por que hoy en dia qué haces? buscas en una hoja de cálculo? miras en un fichero de texto? vamos que para encontrar el codigo del proveedor algo harás hoy por hoy.
No se si me he explicado.
Con respecto a mis scripts ambos funcionan basándose en un diccionario, por lo que para adaptarlos a tus necesidades lo que tienes que hacer es rellenarlo, ¿Cómo? pues verás imaginate que tu tienes un proveedor "proveedor fulano" con un codigo "99887766" si queremos usar como acronimo "pf" tendrias que poner
p.pf := "99887766"
y así con todos los proveedores.
El primer script lo que hace es que por cada uno de estas entradas en el diccionario genera una hotstring dinámicamente.
En el segundo script, se genera solo una hotstring ("/") con lo que a continuación tecleas el acronimo y el lo sustitye.
Ambos scripts los puedes ejecutar directamente tal cual, son funcionales.
en el primero prueba a teclar cualquier acronimo, o sea, el trozo de texto de despues de "p." que hay definidos, por ejemplo teclea "tar" y el solo te lo cambia.
En el segundo prueba a teclar "/tar" estando en el notepad o donde tu quieras.
Así que lo único que hay que rellenar es:
Code: Select all
p.tar := "121233322"
p.lac := "8872132342"
p.opc := "123132213"
p.it := "243224123"
Cambiándolos por los valores que tu quieras, tanto de acronimo como de numeros.
Pero para 860 incluso para 100 veo mejor otra solución, como la de una ventana buscadora, por que supongo que la aplicación que teneis no permite buscarlos....
Un Saludo,