Ver Mensaje Individual
  #8  
Viejo 31/01/07, 12:33:50
ibecerra
 
Mensajes: n/a
hola es facil , 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.


espero q te ayude, por que ami me funciona
Responder Con Cita