RS_HDSYS_CALL_TC_VARIANT – Ejecutar transacciones sin tener acceso

Caso: se desea ejecutar una transacción pero no se poseen accesos de ejecución en QAS.

Solución: Existen algunas funciones para saltear la autorización de las transacciones

• RS_HDSYS_CALL_TC_VARIANT
• CALL_TRANSACTION_FROM_TABLE

Yo probé la primera, por la SE37  ejecutamos la RS_HDSYS_CALL_TC_VARIANT.
Cargamos el parámetro
TCODE = Transacción a la cual queremos evitar autorización
AUTHORITY_CHECK = » (quitamos la X y dejamos vacío el valor)

Ejecutamos….y genial!

 

Validación de Nro. de CUIT (Argentina)

Verificación de Clave de Identificación Tributaria (C.U.I.T.)

Todas las compañias y personas, que por su operatoria comercial, esten sujetas al pago de impuestos en la República de Argentina, deben estar inscriptas en el ente recaudador correspondiente, el que les proveerá el número de identificación impositiva.

El número de identificación impositiva es asignado por la autoridad fiscal. En Argentina este número se conoce como Clave de identificación Tributaria (C.U.I.T.).

El número de identificación se compone de 11 digitos.

Los dos primeros indican el tipo de persona (si es persona física o jurídica).

Los ocho siguientes, sí es persona física, corresponde a su número de documento de identidad, pero sí es persona jurídica, son los número de su inscripción como empleador.

El último dígito es el verificador, y es el que controla que que el CUIT sea real.

Procedimiento

Existe un número multiplicador constante que verifica la veracidad del CUIT, es el siguiente:

54327654321

1. El sistema deberá tomar cada dígito del número del CUIT y multiplicarlo por el dígito de igual posición del multiplicador.
2. Deberá sumar el resultado de cada producto
3. El resultado de la suma debe ser divisible por once (11) con resto cero (0).

Ejemplo

El número de CUIT se compone de los 11 digitos, por ejemplo:

30586440477

3          *           5         =         15

0          *           4         =         0

5          *           3         =         15

8          *           2         =         16

6          *           7          =         42

4          *           6          =         24

4          *           5          =         20

0          *           4          =         0

4          *           3          =         12

7          *           2          =         14

7          *           1          =         7

Total:                165

165 |___11_____    

55                  15

0

Ejemplo en ABAP

* validar CUIT – Supongo cargado con formato XX-XXXXXXXX-X (Ejemplo: 30-99999999-1)

DATA: l_numero TYPE kbetr.
IF w_cuit+2(1) NE ‘-‘ OR w_cuit+11(1) NE ‘-‘.
w_error = ‘X’.
MESSAGE i001(00) WITH ‘Complete el CUIT con guiones’.

ELSE.

CLEAR l_numero.
l_numero = w_cuit+0(1) * 5 +
w_cuit+1(1) * 4 +
w_cuit+3(1) * 3 +
w_cuit+4(1) * 2 +
w_cuit+5(1) * 7 +
w_cuit+6(1) * 6 +
w_cuit+7(1) * 5 +
w_cuit+8(1) * 4 +
w_cuitt+9(1) * 3 +
w_cuit+10(1) * 2 +
w_cuit+12(1) * 1.

l_numero = l_numero mod 11.
IF l_numero NE 0.
w_error = ‘X’.
MESSAGE i001(00) WITH ‘CUIT inválido. Verifique’.

ENDIF.

ENDIF.