Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - edgar0889

Páginas: [1]
1
Programación ABAP / Ayuda para leer archivo excel con sus pestañas!!
« en: 20 de Septiembre de 2011, 03:51:43 pm »
Buenos dias, estoy leyendo un archivo excel con distintas pestañas, generalmente lo hace correctamente, pero en ocasiones si el archivo se crea de la forma copiar y pegar, ocurre que el programa agarra la pestaña que este activa y la replica de acuerdo al numero de pestañas que vaya a leer, ejemplo, si quiero leer un archivo con 3 pestañas, y la pestaña activa tenia como texto "hola", el programa me va a cargar el archivo como si en las 3 pestañas estuviese escrito la palabra "hola", ojo esto solo ocurre cuando el archivo se crea copinado y pegando, y pss necesito corregir esto, ps en ocasiones el archivo a cargar seguramente se haya formado copinado y pegando...si alguien me puede ayudar se lo agradeceriaa..aqui les dejo el codigo con los metodos que uso para cargar el archivo...:

 contador = 1.
            p_rows = 3000.
            p_cols = 10.

        CALL METHOD c_oi_container_control_creator=>get_container_control
              IMPORTING
                control = iref_control
                error   = iref_error.
            IF iref_error->has_failed = 'X'.
              CALL METHOD iref_error->raise_message
                EXPORTING
                  type = 'E'.
            ENDIF.


            CREATE OBJECT oref_container
              EXPORTING
                container_name              = 'CONT'
              EXCEPTIONS
                cntl_error                  = 1
                cntl_system_error           = 2
                create_error                = 3
                lifetime_error              = 4
                lifetime_dynpro_dynpro_link = 5
                OTHERS                      = 6.
            IF sy-subrc <> 0.
              MESSAGE e001(00) WITH 'Error al crear container'.
            ENDIF.

            CALL METHOD iref_control->init_control
              EXPORTING
                inplace_enabled      = 'X'
                r3_application_name  = 'EXCEL CONTAINER'
                parent               = oref_container
              IMPORTING
                error                = iref_error
              EXCEPTIONS
                javabeannotsupported = 1
                OTHERS               = 2.
            IF iref_error->has_failed = 'X'.
              CALL METHOD iref_error->raise_message
                EXPORTING
                  type = 'E'.
            ENDIF.

            CALL METHOD iref_control->get_document_proxy
              EXPORTING
                document_type  = soi_doctype_excel_sheet
              IMPORTING
                document_proxy = iref_document
                error          = iref_error.
            IF iref_error->has_failed = 'X'.
              CALL METHOD iref_error->raise_message
                EXPORTING
                  type = 'E'.
            ENDIF.

            CONCATENATE 'FILE://' p_file INTO v_document_url.

            CALL METHOD iref_document->open_document
              EXPORTING
                document_title = 'Excel'
                document_url   = v_document_url
                open_inplace   = 'X'
              IMPORTING
                error          = iref_error.
            IF iref_error->has_failed = 'X'.
              MESSAGE e000(38) WITH 'Error al Leer el Archivo'.
            ENDIF.

            CALL METHOD iref_document->get_spreadsheet_interface
              EXPORTING
                no_flush        = ' '
              IMPORTING
                error           = iref_error
                sheet_interface = iref_spreadsheet.

            IF iref_error->has_failed = 'X'.
              CALL METHOD iref_error->raise_message
                EXPORTING
                  type = 'I'.
              LEAVE LIST-PROCESSING.
            ENDIF.


            CALL METHOD iref_spreadsheet->get_sheets
              EXPORTING
                no_flush = ' '
              IMPORTING
                sheets   = i_sheets
                error    = iref_error.
            IF iref_error->has_failed = 'X'.
              CALL METHOD iref_error->raise_message
                EXPORTING
                  type = 'I'.
              LEAVE LIST-PROCESSING.
            ENDIF.
            CLEAR p_file.
            contador = 1.

            " LOOP para recorrer cada una de las pestañas que contiene el archivo de Excel.
            LOOP AT i_sheets INTO wa_sheets.

              TRANSLATE wa_sheets-sheet_name to upper case.

                it_pestanascontrol-nombre = wa_sheets-sheet_name.
                it_pestanascontrol-numero = contador.
                add 1 to contador.
                APPEND it_pestanascontrol.


              CALL METHOD iref_spreadsheet->select_sheet
                EXPORTING
                  name  = wa_sheets-sheet_name
                IMPORTING
                  error = iref_error.
              IF iref_error->has_failed = 'X'.
                EXIT.
              ENDIF.
              CALL METHOD iref_spreadsheet->set_selection
                EXPORTING
                  top     = 1
                  left    = 1
                  rows    = p_rows
                  columns = p_cols.

              CALL METHOD iref_spreadsheet->insert_range
                EXPORTING
                  name     = 'Test'
                  rows     = p_rows
                  columns  = p_cols
                  no_flush = ''
                IMPORTING
                  error    = iref_error.
              IF iref_error->has_failed = 'X'.
                EXIT.
              ENDIF.

              REFRESH i_data.

              CALL METHOD iref_spreadsheet->get_ranges_data
                EXPORTING
                  all      = 'X'
                IMPORTING
                  contents = i_data
                  error    = iref_error
                CHANGING
                  ranges   = i_ranges.
          REFRESH it_fianzasl.
          ENDLOOP.

El ultimo metodo es el que se encarga de leer el contenido de la pestaña, nos e si deba limpiar algun dato antes de llamarlo o cual sera la razon por la cual se me presenta este error, si alguien me puede ayudar se la agradeceria mucho..;)

2
Programación ABAP / Re:Ayuda de busqueda
« en: 14 de Septiembre de 2011, 10:06:28 pm »
informacion adicional, la ayuda de busqueda ña necesito mostrar en un listbox, osea el parametro que tiene asignada la ayuda de busqueda lo asocia a una lista y es alli donde se muestran los valores, pero solo quiero que me muestre aquellos que esten activos.

3
Programación ABAP / Re:Ayuda Listbox
« en: 14 de Septiembre de 2011, 08:20:51 pm »
hola muchas gracias, probare..;)

4
Programación ABAP / Ayuda de busqueda
« en: 14 de Septiembre de 2011, 08:20:23 pm »
Buenas quisiera saber si puedo filtrar los datos a mostrar en una ayuda de busqueda, ejm: si tengo una tabla con un codigo, descripcion y estatus, y quiero crear la ayuda de busqueda para esta tabla, pero que solo me tome en cuenta aquellas filas en las que el estatus sea activo, sera que alguien sabe????

Gracias de antemano..!!!

5
Programación ABAP / Ayuda Listbox
« en: 13 de Septiembre de 2011, 09:30:11 pm »
Buenas,

Quisiera saber si alguien pudiera ayudarme con un problemita, resulta que estoy llenando un listbox con la funcion VRM_SET_VALUES, necesito que los valores de la lista esten ordenados y por tal razon la lleno con esta funcion, pero tambien necesito que la lista se muestre con un valor por defectoo, es decir, que cuando salga la pantalla la lista me muestra el item numero 3 por defecto, pero no se como establecerle el valor.

Si alguien pudiece ayudarme estaria muy agradecido...!!

6
Programación ABAP / Re:Scroll en control table
« en: 01 de Septiembre de 2011, 09:05:07 pm »
muchas gracias pana accidentalmente me di cuenta que el scroll siempre habia funcionado sin la necesidad de agregar o quitar algo en el codigo, solo que yo en el pbo hacia un refresh al table control y siempre me lo posicionaba en la primera fila de la tabla x esa razon era que no se movia, peor ya lo cambie y ahora si em funciona, eso te lo digo por si quiere probar y te sirve...;)

7
Programación ABAP / Re:Scroll en control table
« en: 01 de Septiembre de 2011, 03:19:18 pm »
ah ok muchas gracias, mira la verdad tengo poco programando en ABAP y pss no conozco aun muchas cosas, y me gustaria saber si em pudieras dar mas orientacion con esto de montar el alv en el container, no se algun ejemplo o algo asi, es que para lo unico que he usado el container es para un editor de texto, y la verdad no se q tan diferente pueda ser, si me puedes ayudar te lo agradeceria mucho...

8
Programación ABAP / Scroll en control table
« en: 31 de Agosto de 2011, 10:10:19 pm »
Buenas espero esten bien, necesito mostrar una lista de errores y para ello uso un control table, pero cuando son muchos registros y trato de usar el scroll para verlos todos simplemente no deja moverlo, me preguntaba si alquien aqui pudiera ayudarme.
Para crear el control table uso el wizard, pero las POCAS VECES que me sale habilitado el check que dice "pasar pag" lo marco pero me da un error dice que el ancho del dynpro es 4 y el de el control table es 15, y cuando le meto mano a los atributos del dynpro me deshabilita el check, entonces la verdad ya no se que puedo hacer o que estoy haciendo mal.

si alguien pudiera ayudarme la verdad se lo agradeceria mucho...Feliz Dia

Páginas: [1]