MUNDOSAP

Regresar   MUNDOSAP > DESARROLLO > Programación ABAP IV
Nombre de Usuario
Contraseña
Home Descargas Registrar FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




 
Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Viejo 19/01/17, 08:38:58
romerogeo romerogeo is offline
Junior Member
 
Fecha de Ingreso: ene 2017
Mensajes: 2
Duda con ejercicio

Buenos dias me han mandado realizar este ejercicio:
El fichero adjunto es el que hay que cargar.
Pasos a seguir:
1. Crear un nuevo include nomre_de_vuestro_programa_SEL01.
2. En el nuevo include crear un parámetro que se llame p_file que se deberá mostrar al usuario y tendrá una ayuda de búsqueda que nos dará la opción de seleccionar el fichero que queramos cargar (para esto tendréis que repasar ejercicios de los días anteriores).
3. Una vez obtenido el fichero, deberéis de crearos una estructura para el fichero y que será la que le pasemos a nuestro batch input (la estructura tendrá los siguiente campos: Tratamiento, País, Nombre de pila, Nombre). Tendréis que crear estos campos correspondientes a la estructura del mismo tipo que le pasaremos al batch input, porque si no os dará error.
4. Una vez formateados los datos y adaptados después de la lectura del fichero (después de hacer el punto 3), recorreremos la tabla donde hayamos ido introduciendo los datos que primero hemos leído y que luego hemos convertido, haremos un loop de esta tabla y llamaremos al batch input por cada entrada que tengamos.


ahora mismo me encuentro en el punto 4 se supone que debo realizar un loop con un reference pero no me queda claro como usarlo.

Adjunto el codigo que he realizado:

FORM generar_batch_input .

"DEBEREMOS CREAR LOS PERFRORMS BCD

PERFORM bdc_dynpro USING 'SAPMF02K' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RF02K-KTOKK'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'RF02K-KTOKK' 'KRED'.
PERFORM bdc_field USING 'USE_ZAV' 'X'.
"DATOS GENERALES DEL PROOVEDOR
PERFORM bdc_dynpro USING 'SAPMF02K' '0111'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'BDC_CURSOR' 'ADDR1_DATA-SORT1'.
PERFORM bdc_field USING 'SZA1_D0100-TITLE_MEDI' 'Empresa'.
PERFORM bdc_field USING 'ADDR1_DATA-NAME1' 'Prueba Empresa 1'.
PERFORM bdc_field USING 'ADDR1_DATA-SORT1' 'prueba'.
PERFORM bdc_field USING 'ADDR1_DATA-COUNTRY' 'es'.
PERFORM bdc_field USING 'ADDR1_DATA-LANGU' 'ES'.
"DATOS DE CONTROL
PERFORM bdc_dynpro USING 'SAPMF02K' '0120'.
PERFORM bdc_field USING 'BDC_CURSOR' 'LFA1-KUNNR'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
"DATOS BANCARIOS
PERFORM bdc_dynpro USING 'SAPMF02K' '0130'.
PERFORM bdc_field USING 'BDC_CURSOR' 'LFBK-BANKS(01)'.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.
"PERSONAS DE CONTACTO
PERFORM bdc_dynpro USING 'SAPMF02K' '0380'.
PERFORM bdc_field USING 'BDC_CURSOR' 'KNVK-NAME1(01)'.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.
PERFORM bdc_field USING 'KNVK-NAMEV(01)' 'OSCAR'.
PERFORM bdc_field USING 'KNVK-NAME1(01)' 'OSCAR'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0380'.
PERFORM bdc_field USING 'BDC_CURSOR' 'KNVK-NAMEV(01)'.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.
PERFORM bdc_field USING 'KNVK-NAMEV(01)' 'OSCAR OSCAR'.

"GUARDAR Y FINALIZAR EN DYNPRO
PERFORM bdc_dynpro USING 'SAPMF02K' '0380'.
PERFORM bdc_field USING 'BDC_CURSOR'
'KNVK-NAMEV(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0380'.
PERFORM bdc_field USING 'BDC_CURSOR'
'KNVK-NAMEV(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0380'.
PERFORM bdc_field USING 'BDC_CURSOR'
'KNVK-NAME1(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_field USING 'KNVK-NAMEV(01)'
'OSCAR'.
PERFORM bdc_field USING 'KNVK-NAME1(01)'
'OSCAR OSCAR'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0380'.
PERFORM bdc_field USING 'BDC_CURSOR'
'KNVK-NAMEV(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'ENTR'.
PERFORM bdc_field USING 'KNVK-NAMEV(01)'
'NOMBRE'.
PERFORM bdc_field USING 'KNVK-NAME1(01)'
'NOMBRE'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0380'.
PERFORM bdc_field USING 'BDC_CURSOR'
'KNVK-NAMEV(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'ENTR'.
PERFORM bdc_field USING 'KNVK-NAMEV(01)'
'PEPE'.
PERFORM bdc_field USING 'KNVK-NAME1(01)'
'PEPE'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0380'.
PERFORM bdc_field USING 'BDC_CURSOR'
'KNVK-NAMEV(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.


CALL TRANSACTION 'XK01' USING t_bdcdata
MODE 'N' "NO NOS MUESTAR DYNPROS DEL PROCESO DE GRAACION
UPDATE 'S'
MESSAGES INTO t_messtab.

ENDFORM. " GENERAR_BATCH_INPUT
*&---------------------------------------------------------------------*
*& Form BDC_DYNPRO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_0006 text
* -->P_0007 text
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro."SE INCLUYE A LA TABLA T_BDCDATA EL PROGRAMA DYNPRO EN LA QUE NOS ENCONTRAMOS
DATA:wa_bdcdata TYPE bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-program = program.
wa_bdcdata-dynpro = dynpro.
wa_bdcdata-dynbegin = 'X'.
APPEND wa_bdcdata TO t_bdcdata.
ENDFORM. " BDC_DYNPRO


*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
DATA: wa_bdcdata TYPE bdcdata.

CLEAR wa_bdcdata.
wa_bdcdata-fnam = fnam.
wa_bdcdata-fval = fval.
APPEND wa_bdcdata TO t_bdcdata.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form LEER_FICHERO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM leer_fichero .

DATA: lv_file_l TYPE string.
lv_file_l = p_file.


CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = lv_file_l
filetype = 'ASC'
has_field_separator = 'X'
* HEADER_LENGTH = 0
* READ_BY_LINE = 'X'
* DAT_MODE = ' '
* CODEPAGE = ' '
* IGNORE_CERR = ABAP_TRUE
* REPLACEMENT = '#'
* CHECK_BOM = ' '
* VIRUS_SCAN_PROFILE =
* NO_AUTH_CHECK = ' '
* IMPORTING
* FILELENGTH =
* HEADER =
TABLES
data_tab = it_fichero
* CHANGING
* ISSCANPERFORMED = ' '
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
IF sy-subrc <> 0.
MESSAGE e000(38) WITH 'Error al cargar los datos del fichero'.
ENDIF.



LOOP AT it_fichero into wa_fichero ." El loop se realiza a toda la tabla, las operaciones (split) a la workarea.
SPLIT wa_fichero-linea AT ';' INTO
wa_file-tratamiento
wa_file-pais
wa_file-nombre_de_pila
wa_file-nombre.
APPEND wa_file TO it_proovedores.
ENDLOOP.

LOOP AT it_proovedores reference into t_bdcdata.



ENDFORM.

Gracias de antemano
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Reglas de Mensajes
no puedes crear nuevos temas
no puedes responder temas
no puedes adjuntar archivos
no puedes editar tus mensajes

El código vB está On
Las caritas están On
Código [IMG] está On
Código HTML está Off
Saltar a Foro


Husos Horarios son GMT. La hora en este momento es 15:30:32.


www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web