falvarez

Tengo la solución a tu problema, escribe el siguiente código: SELECT NUMEROS DO WHILE .t. NUM=INT(RAND()*100) IF NUM=0 OR NUM>90 LOOP ENDIF LOCATE FOR NUMERO=NUM IF NOT FOUND() APPEND BLANK REPLACE NUMERO WITH NUM ENDIF IF RECCOUNT()=90 EXIT Endif...

Estimado/a ligarreto: Escribe el siguiente codigo: Set Date French Set Century On VFECHA= Date() VMES=Month(VFECHA)+1 VANIO=Year(VFECHA) If VMES=13 VMES=1 VANIO=Year(VFECHA)+1 EndIf VULTIMA_FECHA='01/'+Alltrim(Str(VMES,2))+'/'+Alltrim(Str(VANIO,4))...

Ahi te envie una solucion.

Lo que pides no es comlejo, pero es difícil de explicar con palabras. Enviame to EMail que tengo un ejemplo ya enviado a otros usuarios de todoexpertos, en el cual podrás ver como trabaja en forma sencilla y practica. Espero repuesta. SUERTE.

Estimado/a chevecha: Tengo una solución para ti: En el evento "init" del form escribes el siguiente código: ** Genero el COMBO1 solamente con los Apellidos sin que se repitan. Thisform.COMBO1.Clear Select PERSONAS Set Order to PERNOM Go Top Do While...

Si quieres que el 2º form reciba los datos (cuando estos son variables definidas por ti) debes hacer lo siguiente: En el evento "init" del 1º debes escribir el siguiente código: Public CODIGO, NOMBRE En el evento "click" del botón debes escribor el...

Para saber en que maquinas estas trabajando debes escribir el siguiente comando: SYS(0) Y te devuelve algo parecido a esto: TERMINAL15 # falvarez Donde "TERMINAL15" es el nombre de la maquina y "falvarez" es el usuario que comenzó la sesión. Suerte.

Si entendí bien tu pregunta el comando es el siguiente: REPORT FORM Mi_Reporte TO FILE Mi_Archivo ASCII Espero haber solucionado tu problema. SUERTE!

Estimado/a saetamejiat: Prueba el siguiente código en un .PRG: Use PERSONAS Go Top CONTADOR=0 Scan While Not EOF() CONTADOR=CONTADOR+1 Replace CODIGO With CONTADOR EndScan Close Data Suerte!

Estimado/a wurangoc: Te mando un código para encriptar y desencriptar, cópialo en un .PRG y ejecutalo: La forma sencilla de usarlo es enviando 2 parámetros a la función "Encripta": la clave y la llave de encriptación. A la función "Desencripta" hay...