Clarion - Debugg de un Procedimiento o Source

Buen día foro.
Necesitaría saber como debuguear un procedimiento o source en Clarion!?
Tengo una rutina que verifica que un CUIL/CUIT sea correcto o válido, y, con algunas claves me indica que es incorrecto y deseo ir iterando por cada dígito del CUIL ingresado.
De que forma se hace el Debugg!?
Es para ver como es el tratamiento del dato ingresado.
El Source retorna un Bolleano (False, True).
Cualquier Tips me ayuda.
Estoy trabajando con Clarion 8.
Saludos

Pablo

Fue mail

Saludos

Modo Debug

Saludos

Hola Marcelo, buen día.
Gracias por el .zip, lo miro ahora.
Yo ya tenía una rutina para controlar el CUIL/CUIT. Pero tengo inconvenientes y lo tengo que ver más detenidamente.
Te hago una consulta para definir una variable local de tipo "vector" está bien que la defina de esta forma:

Loc:Operador
STRING
1
Dim. 10
@s1

Saludos
Muchas gracias

Te paso otra imagen

En la imagen de la izquierda te muestro una variable con Dimension
En la de la derecha defino la defino Group y le agrego las variables que la componen con Dimension = 10
Gráficamente quedaría algo así:

LOC:Operador (group)
.........Var_1 String(4) Dimension (10)
..........Var_N Decimal (12.2) Dimension(10)

Hola Marcelo
Una pregunta respecto del Source "ValidaCuit".
Las variables:
Hay que definirlas!!??
Me traen el siguiente Error:
Error : Expected: <statement> <INT> <REAL> <DECIMAL> <STRING> <LINEBREAK> ( ; ACCEPT ASSERT CHOOSE RAISE TRY BEGIN

Y... otra consulta
La línea de código "IF C"<'0' OR C">'9' THEN CYCLE." es lo mismo que:
"IF C"<'0' OR C">'9'
CYCLE
END"
!!??
Saludos

Las variables que se crean en el momento de ejecución y solo para esa porción de código pueden ser definidas con los caracteres #, $ y "

V# (LONG)
V$ (REAL)
V" (STRING)

En el help podrás ver:

The Clarion language provides three types of implicit variables:
# A label terminated by a # names an implicit LONG.
$ A label terminated by a $ names an implicit REAL.
" A label terminated by a " names an implicit STRING(32).

Con respecto a tu pregunta le vamos a poner espacios para que lo veas más claro:
IF C" < '0' OR C" > '9' THEN CYCLE. (Este punto final equivale a escribir END)

C" es una variable implícita String
'0' como pregunta sobre un string debe usar las comillas simples
'9' igual a '0'

a la pregunta anterior podrías escribirla así:

IF C" < '0' OR C" > '9'
CYCLE
END



DV#=0;N#=2;C"=''
LOOP I#=LEN(CLIP(Cuit))-1 TO 1 BY -1 ! Hace un loop desde el primer caracter desde la derecha. Desde el último hasta el primero.
C"=SUB(Cuit,I#,1) ! Carga el valor que se encuentra en la posición I# y que toma 1 caracter, va de 1 en 1 desde atrás al principio
IF C"<'0' OR C">'9' THEN CYCLE. ! si C" es < a 0 y mayor a 9 regresa al loop
DV#+=(C"*N#) ! Suma a DV# el valor de C" * N#
N#+=1 ! Suma 1 a N#
IF N#>7 THEN N#=2. ! Hace la validación y le da valor 2 si N# es > 7
END ! Fin del Loop
DV#=11-(DV#%11) ! Obtiene el módilo de 11 y resta 11 - el módulo
IF DV#>9 THEN DV#=0. ! Si DV# es > 9 le carga 0 a DV#
IF CLIP(Cuit)=SUB(CLIP(Cuit),1,LEN(CLIP(Cuit))-1)&FORMAT(DV#,@n1)
RETURN 1
ELSE
RETURN 0
END

Pablo

algo que olvidé comentar es que la rutina que valida el cuit y el cbu reciben parámetros y devuelven un Byte

En valida cuit fíjate en parameter

(STRING Cuit),BYTE ! Recibe un STRING e internamente la vas a llamar CUIT y devolverá un BYTE

En ValidaCbu también recibe parámetros

(STRING Cbu),BYTE


Por lo tanto en el código donde ves Cuit se refiere al string que recibiste

LOOP I# = LEN(CLIP(Cuit)) -1 TO 1 BY -1 ! hace el loop mientras I# sea = al largo de la variable Cuit menos 1 hasta 1 y de a -1
C" = SUB(Cuit,I#,1)
IF C" <'0' OR C" > '9' THEN CYCLE. ! Acá regresa al loop si no encuentra un número. Puede venir con guiones

Hola Marcelo buen día
Si estendí perfectamente tu explicación.
Algo estoy haciendo mal lo voy a revisar y te comento como me fue.
Saludos y muchas gracias.

LLAMAR ASI:

En el ejemplo CLI:Cuit y CLI:CBU Son campos de un archivo y lo uso en el Form de Cliente

IF ValidaCuit(CLI:Cuit)=0
MESSAGE('CUIT Inválido!')
SELECT(?CLI:Cuit) ! Regresa al campo CLI:Cuit
CYCLE
END


IF ValidaCbu(CLI:Cbu)=0
MESSAGE('CUIT Inválido!')
SELECT(?CLI:CBU) ! Regresa al campo CLI:CBU
CYCLE
END

Hola Marcelo
Buen día
Necesito hacerte una consulta...
Pero antes te explico lo que me sucede.
Replique el código (digo el archivo) que me pasaste los otros días.
Defini un Form con un Campo y un Botón para validar.
Tuve alguno inconvenientes pero los solucioné; en resumen ahora valida el CUIL/T que ingreso correctamente.

Cuando lo hago en la App real el mismo código con los parámetros que me indicaste, etc. ... El mismo Source que Valida el CUIT/CUIL siempre me indica que es incorrecto, así lo ingrese bien. No sé que puede estar pasando.
Mi consulta o pregunta es...
El Campo "CLI:Cuit" en tu archivo o tabla de "Cliente" ... cómo lo definiste !!!?
Me refiero a lo siguiente: Data Type, Characters, Screen Picture, etc.
Por qué al campo en mi tabla lo debo haber definido mal ... no sé!?
Cualquier indicación que me puedas brindar me sirve.

Ah !!! me olvidaba cuando tenía esto: VD#;N#;C'' me tiraba error tuve que hacer lo siguiente definirlas localmente o sea Loc:DV de tipo LONG y así con las otras... parece que en la Vers. 8 las cosas funcionana distinto o no sé por que en los ejemplos de la Clarion Wiki pareciera que todo anda sobre rieles. :(

Saludos y gracias

Pablo

La definí como Numérica de 11 con cero decimal

Te paso una imagen

Hola Marcelo
Gracias por la ayuda.
Pero sigo con el mismo problema... siempre el CUIL ingresado es incorrecto y no sé que puede ser.

Por ejemplo mi CUIL es 20222109486 lo ingreso en el Entry del Form y me da Error o sea no es válido...
Pero si lo ingreso de esta forma 20222109480 guarda el registro si problemas o sea no valida el último dígito.
Lo mismo pasa con el CUIL de mi señora igual. La verdad no entiendo.

Seguí todos los pasos que me indicaste tal cual me dijiste y no logro hacer que funciones...

El ódigo del Surce que valida es el siguinte:


En la propiedad Prototype = (STRING pinCUILoT),BYTE y el parámetro en el Actions (STRING pinCUILoT) esto del lado del Source(ABC).

En el Form de ingreso de los datos en Accepted del Entry VEN:CUIL tengo lo siguiente:
Y del lado del DCT, en la Tabla, cambie el tipo de dato del campo como me recomendaste.
La verdad no le puedo encontrar la vuelta... algo estoy haciendo mal o me falta definir ...
Una conslta más ... Cuándo cambias el Tipo de Dato de un campo en la Tabla; eso; te afecta en este caso el Entry en el Form de carga!!!?
Me refiero a que antes al campo CUIL lo tenía como STRING y lo cambie a DECIMAL eso afecta en algo del lado de la App!!!???
Por que hice los cambios e impacte nuevamente en el DCT y la App y no me generó nigún error... por eso pregunto
Saludos y gracias por la paciencia sigo investigando.

Pablo

He probado con el cuit 20222109486 y no me da inválido.

En el form lo tengo en punto embebido:

TakeEvent
....... Top of CYCLE/BREAK support
.............. Parent call

! Por acá pasa cada vez que aceptas un campo, un botón, etc
CASE ACCEPTED()
OF ?PRF:Cuit ! Cuando acepta el Cuit
IF ValidaCuit(PRF:Cuit) = 0 ! llama a ValidaCuit enviando como parámetro el campo PRF:Cuit que es el cuit del Profesional
MESSAGE('CUIT Inválido!')
SELECT(?PRF:Cuit)
CYCLE
END
OF ?PRF:CBU ! Cuando acepta el Cbu
IF ValidaCbu(PRF:Cbu) = 0 ! llama a ValidaCbut enviando como parámetro el campo PRF:Cbu que es el cbu del profesional
MESSAGE('CUIT Inválido!')
SELECT(?PRF:CBU)
CYCLE
END
END


! En ValidaCuit en Prototype no tienes que tocar nada. debe quedar así:

(STRING Cuit),BYTE ! eso te dice que estás recibiendo un string y que internamente se va a llamar Cuit

! Lo mismo para ValidaCbu

(STRING Cbu),BYTE


! A ValidaCuit y ValidaCbu no debes modificarle nada.

Cualquier cosa nos conectamos por remoto y lo vemos.


Saludos

Te paso una imagen.
No debes modificar en nada los sources que te pasé.
En la llamada debes reemplazar el Cuit tuyo y esperar la respuesta.

Saludos

Hola Marcelo.
Buen día
Tengo todo como me indicás en las respuestas del 06/04 , tal cual.
No sé con qué Vers. de Clarion estás trabajando, yo creo que la Vers. 8 EE tiene quilombo con la delcaración o asignación de esas variables o algo le pasa !!??
El error es siempre el mismo
"Expected: <statement> <INT> <REAL> <DECIMAL> <STRING> <LINEBREAK> ( ; ACCEPT ASSERT CHOOSE RAISE TRY BEGIN - C:\empresa\Empresa004.clw:24,4"
Y cuando accedo a la línea me marca como que DV#=0 no le gusta como está asignado.
No lo hace así, con la validación del Email por ejemplo, que es un código que copie de la wiki de Clarion y valida perfectamente...
Me tiene desconcertado ... :(
Saludos

Hola Foro

Les paso un zip con una App y dct donde podrán ver las validaciones.

Cualquier duda avisen.

Saludos desde Venado Tuerto.

Pablo si se te complica nos conectamos por remoto y lo vemos.
Ahora tengo un poco mas de tiempo.

Estoy investigando como calcular el CRC de un String
calculado de acuerdo con el estándar ISO/IEC 13239 usando el polinomio '1021' (hex) y un valor inicial 'FFFF' (hex).

Si alguien sabe algo de esto se los agradeceré.

• ValidaCuit_Cbu.zip(36,5 KB)

Hola Marcelo
Yo de nuevo....
No me preguntés qué hice ... qué pasó ... por qué ni yo sé que songo hice!!!?? :D
Me fijé en el Clarion Wilki que había otro código que valida:
(igual tuve que cambiar varias cosas porque me tira el error antes mensionado)

Generé y verifique en la App y no tuve inconvenientes valida correctamente el CUIL, verifique con el mio el de mi señora y el de un Jubilado y lo valida...
La verdad no sé que tiene el código que me pasaste porque lo verifiqué en otra app con un Form hecho a mano y valida perfectamente. Pero en la App que hice no... raro.
Bueno Marcelo voy a ahora ver lo del CBU y voy a seguir dandole a Clarion.
No te dije que hagamos un Zoom porque como en el laburo tengo todo practico desde acá.
Estamos en contacto
Saludos y muchas gracias