FiveTech Software tech support forums

Tengo una funcion que hice con letras y numeros estylo BINGO que emiten los bancos aqui en mi pais, ellos lo llaman coordenadas, no se si te servidira, igual, la buscco y publico, saludos... :shock:

Hola jose luis, saludos.
Necesito asesoría sobre la implementacion de impresoras fiscales aqui en ...

Tengo una funcion que hice con letras y numeros estylo BINGO que emiten los bancos aqui en mi pais, ellos lo llaman coordenadas, no se si te servidira, igual, la buscco y publico, saludos...

#include "FiveWin.ch"

FUNCTION Main()

LOCAL n, cPassWord := ""
LOCAL cChars := "abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ?!"

FOR n = 1 TO 10

#ifdef __XHARBOUR__ // xHarbour

cPassWord += cChars[ Int( hb_Random( 1, Len( cChars ) ) ) ]

#else // Harbour

cPassWord += SubStr( cChars ...

Erick Almanza wrote:Buen dia Maestro

Que tan dificil seria un ejemplo en harbour?

Saludos desde Panama,

Erick Almanza

Hola, la primera version que puso es para harbour.

gracias.

Buen dia Maestro

Que tan dificil seria un ejemplo en harbour?

Saludos desde Panama,

Erick Almanza

xHarbour no permite usar las cadenas como arrays, usa esta versión para xHarbour:
function Main()

local n, cPasswd := "", cChars := "abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ?!"

for n = 1 to 10
cPasswd += SubStr( cChars, int( hb_random( 1, Len( cChars ) ) ), 1 )
next

? cPasswd ...

? cChars[2] por dar un ejemplo me tira error
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 08/08/2023, 11:19:38
Error description: Error BASE/1068 Error de argumento: acceso al array
Args:
[ 1] = C abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ!$#
[ 2] = N 2

si hago esto no me ...

Estimado Gustavo,

Buen dia.
Necesito generar códigos de validacion asi como: !"·!"asdASDQWE! al azar,
existe algun "random" para este tipo de dato en fwh?

gracias.

... pero es así.
En .rc tenia definido el botón de Aceptar como "IDOK", cosa que utilizo en todos mis programas, cambiando el
mismo por un numero al azar, en mi caso "4101" todo funciona perfectamente.

Esto:
CONTROL "&Ejecutar", IDOK, "Button", BS_FLAT|WS_TABSTOP, 188, 120, 80, 11
por esto ...