Hola a todos, estaba viendo en la pagina de Clarion Wiki y hay un ejemplo de Código para Verificar el Nº de CUIT (sacado de la documentacion del BIGSYS TEMPLATES y desarrollado por el Sr. Juan Carlos Rodríguez).
Este código me parecio muy interesante, asi que trate de probarlo en C55, pero sin ningun exito... Alguien tiene idea el embed donde debo ponerlo ???
El código es :
CuitCliente='20-15433984-6' ! Paso Nº a variable
IF Cuit(CuitCliente)=CuitCliente THEN
! Cuit(CuitCliente) llama a una Funcion que no se donde debo ponerla
MESSAGE('Digito verificador correcto')
ELSE
MESSAGE('Digito verificador incorrecto')
END
! Declaro el Procedimiento Cuit
Cuit PROCEDURE(cuit1)
cuit2 STRING(255)
digver LONG
lon LONG
fac LONG
car STRING(1)
! En que embed va este Código ????
CODE
cuit2=cuit1
digver=0
fac=2
lon=LEN(CLIP(cuit2))
LOOP i#=lon-1 TO 1 BY -1
car=SUB(cuit2,i#,1)
IF car<'0' OR car>'9' THEN
CYCLE
..
digver=digver+(car*fac)
fac+=1
IF fac>7 THEN
fac=2
..
.
digver=11-(digver%11)
IF digver>9 THEN
digver=0
.
cuit2=SUB(cuit2,1,lon-1) & FORMAT(digver,@n01)
RETURN(cuit2)
Desde ya muchas gracias por la ayuda que me puedan brindar
