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
  #21  
Viejo 16/06/17, 03:30:18
AnonymousPMP AnonymousPMP is offline
Junior Member
 
Fecha de Ingreso: oct 2014
Mensajes: 2
El problema aqui en esta solucion es cuando la columna tiene mas de 50 caracteres en la tabla alsmex_tabline.


DATA: lt_excel TYPE TABLE OF alsmex_tabline,






Cita:
Originalmente Escrito por DavidXD_XD
Hola ... yo cargo una tabla interna desde un excel con la funcion:
ALSM_EXCEL_TO_INTERNAL_TABLE

Código:
*&---------------------------------------------------------------------* *& Form upload_excel *&---------------------------------------------------------------------* * Cargar archivo excel *----------------------------------------------------------------------* * -->PT_DUA : Tabla interna de estructura de archivo excel * -->P_PATH : Ruta de archivo excel *----------------------------------------------------------------------* FORM upload_excel TABLES pt_dua LIKE ti_dua[] USING p_path. * Variables globales DATA: lt_excel TYPE TABLE OF alsmex_tabline, l_index TYPE i. DATA: l_cont(2) TYPE c, l_cadena TYPE string, l_start_col TYPE i VALUE 1, l_start_row TYPE i VALUE 5, l_end_col TYPE i VALUE 6, l_end_row TYPE i VALUE 65536. CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' EXPORTING FILENAME = p_path I_BEGIN_COL = l_start_col I_BEGIN_ROW = l_start_row I_END_COL = l_end_col I_END_ROW = l_end_row TABLES INTERN = lt_excel EXCEPTIONS INCONSISTENT_PARAMETERS = 1 UPLOAD_OLE = 2 OTHERS = 3. IF sy-subrc <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. CHECK NOT lt_excel[] IS INITIAL. FIELD-SYMBOLS: <fs_excel> LIKE LINE OF lt_excel, <fs>. LOOP AT lt_excel ASSIGNING <fs_excel>. IF <fs_excel>-col = '0001'. l_cont = strlen( <fs_excel>-value ). IF l_cont NE '18'. EXIT. ENDIF. ENDIF. MOVE <fs_excel>-col TO l_index. ASSIGN COMPONENT l_index OF STRUCTURE pt_dua TO <fs>. MOVE <fs_excel>-value TO <fs>. AT END OF row. APPEND pt_dua. CLEAR pt_dua. ENDAT. ENDLOOP. ENDFORM. " upload_excel
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 17:21:12.


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