Lineas de código.

¿Me podrías aclarar estas lineas de código?
Se le miTabla
set order to miTablaA &&el indice de añomes
calculate max(numero) for añoMes='200711' to mElUtimo
mElUtimo=mElUtimo+1
en reemplaz de 200711 colocará la caja de texto.
La variable mElultimo se va a autogenerar?
*****************************
sele miTabla
set order to miTablaAN && el indice de los dos campos
if seek('200711'+str(123,8,0),'miTabla','miTablaAN')
* lo encontro y lo traigo..
else
thisform.botonNuevo.click &&para que traiga el nuevo..
Endif
¿Acá tendré que colocar un textbox que almacena añomes en vez de 2000711 y en vez de 128,8,0 tendré que colocar el otro textbox que almacena campos de este tipo 0001?.
Espero me puedas aclarar estas dudas Experto y disculpa la molestia es que estoy tratando de terminar de una vez con este form.

1 Respuesta

Respuesta
1
En el texto de la respuesta, hace referencia a un indice que se genero para que ande rapido el comando calculate..
La variable mElUltimo es el resultado de averiguar (por medio del comando calculate) el máximo valor de numero..
Por ejemplo, si tienes un campo con puntos y quieres saber cual es el mayor, usarías:
Calculate max(punto) to mElMayorPuntaje
Es decir, si.. se genera sola.
El dato '200711' es un dato literal solo para ejemplo, colocarías el valor variable, que puede ser la propiedad value de un textBox o la variable de memoria que hablamos en la respuesta anterior..
Por ejemplo:
mAñoMesActual=left(dtos(date()),6)
calculate max(numero) for añoMes=mAñoMesActual to mElUtimo
si el año y el mes está en un textbox, pondrias
calculate max(numero) for añoMes=thisform.miTextBox.value to mElUtimo
A eso me refería.
Con respecto a la pregunta 2) es así..
La variable de añomes en lugar de 200711 (que se pone solo para graficar) y en lugar de 123 (solo 123) la variable del numero..
Quedaria algo asi:
if seek(mAñoMes+str(mNumero,8,0),'miTabla','miTablaAN')
o podrias usar textBox
if seek(thisform.añomes.value+str(thisform.numero.value,8,0),'miTabla','miTablaAN')
Espero que sea de utilidad cualquier problema no dudes en consultarme
Keystone - Christian
www.keystone.com.ar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas