Hola buenos días saludos desde México estimados usuarios de SAP en Latinoamérica, mi duda es la siguiente buscando una solución para escanear codio de barras con un pistola escaner me encontre con el siguiente codigo y quería saber si alguien lo pudiera probar si les sirve adelante tomenlo, solo quiero saber si funciona o no.
hola es fácil , hice algo parecido para la venta de productos en sap.
mira creas un status y en teclas de funcion --> barras de herramientas
en el boton que tiene un check colocas la palabra enter y listo!!!
enter.
luego colocas este codigo
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
MODULE set_cursor .
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
donde
*—esto es solo para forzar la posicion del cursos
MODULE set_cursor OUTPUT.
CASE FL. "Indica Posicion del Cursos
WHEN 0.
SET CURSOR FIELD ‘TPCLIE’ .
WHEN 1.
SET CURSOR FIELD ‘TI_POSCAB-KUNNR’ .
WHEN 2.
SET CURSOR FIELD ‘TI_POSDITEM-MATNR’ .
WHEN 3.
SET CURSOR FIELD ‘MENGE’ .
ENDCASE.
ENDMODULE. " set_cursor INPUT
*-----------
- esto es lo q verdaderamente te interesa y hace q funcione el enter automatico
MODULE USER_COMMAND_0100.
CASE SY-UCOMM.
WHEN ‘ENTER’.
GET CURSOR FIELD F. *–> esto es para saber donde esta posecionado el cursor para el lector de barras
CASE F.
WHEN ‘TI_POSCAB-KUNNR’.
*-Ubicamos Cliente y Org.Ventas,Canal ventas
PERFORM UBICA_CLIENTE_EMPL.
WHEN ‘TI_POSDITEM-MATNR’.
*-Validamos Cod.Material, Cod.Ean
PERFORM UBICA_DESCRIPCION.
WHEN ‘MENGE’.
*-Validamos Cantidad y precio
PERFORM UBICA_CANTIDAD.
PERFORM CAL_IMP_CABECERA.
ENDCASE.