Creación de un listado de clientes

luisa_aldana2 · 15 Marzo, 2017 13:06

*&---------------------------------------------------------------------*
*& Report  ZSD_LISTADO_DE_CLIENTES
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZSD_LISTADO_DE_CLIENTES.

TABLES: KNA1, KNVV, KNVP, VBAK, VBAP,PA0001.


DATA: IT_FIELDCAT                 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      WA_FIELDCAT                 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_TAB_GROUP                TYPE SLIS_T_SP_GROUP_ALV,
      GD_LAYOUT                   TYPE SLIS_LAYOUT_ALV,
      GD_REPID                    LIKE SY-REPID,
      GT_EVENTS                   TYPE SLIS_T_EVENT,
      GD_PRNTPARAMS               TYPE SLIS_PRINT_ALV,
      IT_SORTCAT                  TYPE SLIS_T_SORTINFO_ALV,
      TEXTO(120).

DATA: BEGIN OF LISTADO OCCURS 0,
  STCD1 TYPE KNA1-STCD1,
  ORT01 TYPE KNA1-ORT01,
  NAME1 TYPE KNA1-NAME1,
  VKBUR TYPE KNVV-VKBUR,
  VKGRP TYPE KNVV-VKGRP,
  PLTYP TYPE KNVV-PLTYP,
  KUNNR TYPE KNVP-KUNNR,
  PERNR TYPE KNVP-PERNR,
  PARVW TYPE KNVP-PARVW,
  SNAME TYPE PA0001-SNAME,

END OF LISTADO.

SELECTION-SCREEN BEGIN OF BLOCK TEXT-001 WITH FRAME TITLE TEXT-004.
PARAMETERS: VKBUR TYPE KNVV-VKBUR DEFAULT '008' OBLIGATORY,
            VKGRP TYPE KNVV-VKGRP DEFAULT '004' OBLIGATORY.
SELECTION-SCREEN END OF BLOCK TEXT-001.


START-OF-SELECTION.
  PERFORM DATOS.

END-OF-SELECTION.

*&---------------------------------------------------------------------*
*&      Form  DATOS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*

FORM DATOS.

  SELECT KUNNR VKBUR PLTYP VKGRP
   INTO (KNVV-KUNNR, KNVV-VKBUR, KNVV-PLTYP, KNVV-VKGRP)
    FROM KNVV
    WHERE VKBUR EQ VKBUR
      AND VKGRP EQ VKGRP.

    SELECT SINGLE PERNR
     INTO KNVP-PERNR
      FROM KNVP
       WHERE KUNNR EQ KNVV-KUNNR
        AND PARVW EQ 'VE'.

    IF SY-SUBRC NE 0.

      SELECT SINGLE SNAME
        INTO PA0001-SNAME
         FROM PA0001
          WHERE PERNR EQ KNVP-PERNR.

      SELECT SINGLE NAME1 ORT01 STCD1
        INTO (KNA1-NAME1, KNA1-ORT01, KNA1-STCD1)
         FROM KNA1
          WHERE KUNNR EQ KNVV-KUNNR.
      LISTADO-VKBUR = KNVV-VKBUR.
      LISTADO-VKGRP = KNVV-VKGRP.
      LISTADO-PLTYP = KNVV-PLTYP.
      LISTADO-KUNNR = KNVV-KUNNR.
      LISTADO-PERNR = KNVP-PERNR.
      LISTADO-PARVW = 'VE'.
      LISTADO-SNAME = PA0001-SNAME.
      LISTADO-NAME1 = KNA1-NAME1.
      LISTADO-ORT01 = KNA1-ORT01.
      LISTADO-STCD1 = KNA1-STCD1.
      APPEND LISTADO.
      CLEAR LISTADO.
    ENDIF.
  ENDSELECT.
  PERFORM CAMPOS_ALV.
  PERFORM ORDENAR_ALV.
  PERFORM LAYOUT.
  PERFORM ALV_REPORT.
ENDFORM.


*&---------------------------------------------------------------------*
*&      Form  CAMPOS_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*

FORM CAMPOS_ALV .

  CLEAR it_fieldcat.
  it_fieldcat-fieldname = 'NAME1' .
  it_fieldcat-tabname   = 'LISTADO'.
  it_fieldcat-key       = 'X'.
  IT_FIELDCAT-SELTEXT_M   = 'NOM. CLIENTE'.
  IT_FIELDCAT-OUTPUTLEN = '16'.
  APPEND it_fieldcat to wa_fieldcat.

  CLEAR it_fieldcat.
  it_fieldcat-fieldname = 'KUNNR' .
  it_fieldcat-tabname   = 'LISTADO'.
  it_fieldcat-key       = 'X'.
  IT_FIELDCAT-SELTEXT_M   = 'COD. CLIENTE'.
  IT_FIELDCAT-OUTPUTLEN = '16'.
  APPEND it_fieldcat to wa_fieldcat.

  CLEAR it_fieldcat.
  it_fieldcat-fieldname = 'STCD1' .
  it_fieldcat-tabname   = 'LISTADO' .
  it_fieldcat-key       = 'X'.
  IT_FIELDCAT-SELTEXT_M   = 'NIT'.
  IT_FIELDCAT-OUTPUTLEN = '16'.
  APPEND it_fieldcat to wa_fieldcat.

  CLEAR it_fieldcat.
  it_fieldcat-fieldname = 'ORT01' .
  it_fieldcat-tabname   = 'LISTADO' .
  it_fieldcat-key       = 'X'.
  IT_FIELDCAT-SELTEXT_M   = 'CIUDAD'.
  IT_FIELDCAT-OUTPUTLEN = '16'.
  APPEND it_fieldcat to wa_fieldcat.

  CLEAR it_fieldcat.
  it_fieldcat-fieldname = 'VKBUR' .
  it_fieldcat-tabname   = 'LISTADO' .
  it_fieldcat-key       = 'X'.
  IT_FIELDCAT-SELTEXT_M   = 'OFI. VENTA'.
  IT_FIELDCAT-OUTPUTLEN = '10'.
  APPEND it_fieldcat to wa_fieldcat.

  CLEAR it_fieldcat.
  it_fieldcat-fieldname = 'VKGRP' .
  it_fieldcat-tabname   = 'LISTADO'.
  it_fieldcat-key       = 'X'.
  IT_FIELDCAT-SELTEXT_M   = 'GRUP. VENDEDOR'.
  IT_FIELDCAT-OUTPUTLEN = '10'.
  APPEND it_fieldcat to wa_fieldcat.


  CLEAR it_fieldcat.
  it_fieldcat-fieldname = 'PARVW' .
  it_fieldcat-tabname   = 'LISTADO'.
  it_fieldcat-key       = 'X'.
  IT_FIELDCAT-SELTEXT_M   = 'INTERL. VENDEDOR'.
  IT_FIELDCAT-OUTPUTLEN = '10'.
  APPEND it_fieldcat to wa_fieldcat.

  CLEAR it_fieldcat.
  it_fieldcat-fieldname = 'PLTYP' .
  it_fieldcat-tabname   = 'LISTADO'.
  it_fieldcat-key       = 'X'.
  IT_FIELDCAT-SELTEXT_M   = 'LIST. PRECIOS'.
  IT_FIELDCAT-OUTPUTLEN = '10'.
  APPEND it_fieldcat to wa_fieldcat.

ENDFORM.      " CAMPOS_ALV
*&---------------------------------------------------------------------*
*&      Form  ORDENAR_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM ORDENAR_ALV .
  SORT LISTADO BY NAME1.

  DATA: IT_sort TYPE slis_sortinfo_alv.

*  CLEAR IT_SORT.
*  IT_sort-spos = 1.
*  IT_sort-fieldname = 'CHECK'.
*  IT_sort-up = 'X'.
*  IT_sort-subtot = 'X'.
*  IT_SORT-EXPA = 'X'. " Sirve para que salgan los subtotales
*  APPEND IT_sort TO IT_SORTCAT.

  CLEAR IT_SORT.
  IT_sort-spos = 1.
  IT_sort-fieldname = 'NAME1'.
  IT_sort-up = 'X'.
  IT_sort-subtot = 'X'.
*  IT_SORT-EXPA = 'X'. " Sirve para que salgan los subtotales
  APPEND IT_sort TO IT_SORTCAT.
ENDFORM.                           " ORDENAR_ALV
*&---------------------------------------------------------------------*
*&      Form  LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM LAYOUT .
  GD_LAYOUT-NO_INPUT           = 'X'.
  GD_LAYOUT-COLWIDTH_OPTIMIZE  = 'X'.
  GD_LAYOUT-TOTALS_TEXT        = 'TOTALS'(201).
  GD_LAYOUT-ZEBRA              = 'X'.
ENDFORM.                    " LAYOUT
*------------------------------------------------------------------*
*       FORM USER_COMMAND                                          *
*------------------------------------------------------------------*
*       --> R_UCOMM                                                *
*       --> RS_SELFIELD                                            *
*------------------------------------------------------------------*
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                  RS_SELFIELD TYPE SLIS_SELFIELD.
  RS_SELFIELD-REFRESH = 'X'.

* Check function code
  CASE R_UCOMM.
    WHEN '&IC1' OR 'PICK' .
      RS_SELFIELD-REFRESH = 'X'. "REFRESCAR PANTALLA
  ENDCASE.
  CLEAR R_UCOMM.
ENDFORM.                    "USER_COMMAND
*&---------------------------------------------------------------------*
*&      Form  ALV_REPORT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM ALV_REPORT .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = SY-REPID
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      I_GRID_TITLE            = 'BUSCAR LISTADO'
      IT_SORT                 = IT_SORTCAT[]
      IS_LAYOUT               = GD_LAYOUT
      IT_FIELDCAT             = WA_FIELDCAT[]
      I_SAVE                  = 'X'
    TABLES
      T_OUTTAB                = LISTADO
    EXCEPTIONS
      PROGRAM_ERROR           = 1
      OTHERS                  = 2.
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " ALV_REPORT

eso es todo lo que estoy haciendo y no pasa nada y @adalove LAS TABLAS SI TIENE DATOS

canuto · 15 Marzo, 2017 13:08

lo primero que deberia pasar es que llegue a la subrutina PERFORM DATOS…ahi deberia pasar si o si, lo que veo que te pueda condicionar lo demas es el IF SY-SUBRC NE 0 que tienes luego del select a la KNVP

Si no llega a los demas select es porque ese select (tabla KNVP) no te funciono, ya lo debugeaste ???

luisa_aldana2 · 15 Marzo, 2017 13:13

Si ya lo debuggie pero del primer select de una salta al endselect y llega hasta el alv y no trae nada de datos no entinedo que esta pasando igual quiero aprender sus aportes me sirven mucho para sacar adelante mi reporte gracias @canuto @adalove @sconoredhot

luisa_aldana2 · 15 Marzo, 2017 13:15

estos son los datos de ese primer select que debo mostrar

adalove · 15 Marzo, 2017 13:17

ten en cuenta que los campos vkbur y vkgrp son de tipo char de 4 y 3 respectivamente comprueba que estas haciendo la búsqueda con valores que estan tal cual en la tabla , no es lo mimo ‘0001’ que ‘001’ que ‘01’ … si no se lo pasas tal cual no te devuelve nada, por eso te preguntaba si con los valores del where en la tabla te encuentra algún registro.
cuando un select no me devuelve nada lo compruebo en la se16n o en la se11 a veces estamos pasando mal un parametro.

luisa_aldana2 · 15 Marzo, 2017 13:21

estos son los valores que busque en la se16 y se11 están igual.

adalove · 15 Marzo, 2017 13:22

VKGRP TYPE KNVV-VKGRP DEFAULT ‘004’ OBLIGATORY.

luisa_aldana2 · 15 Marzo, 2017 13:28

asi esta mejor @adalove

selection-screen begin of block text-001 with frame title text-004.
parameters: vkbur type knvv-vkbur default '0004' obligatory,
            vkgrp type knvv-vkgrp default '008' obligatory.
selection-screen end of block text-001.

sconoredhot · 15 Marzo, 2017 13:29

Estuve probando un poco tu código y vi dos cosas por el momento:

Le falta en la declaración de datos el TYPE-POOLS: SLIS para que funcione el ALV y no te de error.

Y luego, hay que tener mucho cuidado al realizar el select a la KNVP, porque el campo PARVW tiene una rutina de conversión, es decir, quizás en la tabla te aparece como ‘VE’ pero está grabado con un valor distinto.

Si te fijas en el dominio, tiene estas funciones para modificar el valor:

CONVERSION_EXIT_PARVW_INPUT
CONVERSION_EXIT_PARVW_OUTPUT

Por ejemplo:

Quizás para probar rápido podés sacarle ese filtro y si te trae datos ya te das cuenta que ese es el problema.

Saludos.

luisa_aldana2 · 15 Marzo, 2017 13:49

es que como tu sabes apenas estoy empezando quisiera saber como ingresar ahí o si es por la se37

luisa_aldana2 · 15 Marzo, 2017 13:54

porque no me arroja nada ninguno de los dos ni input ni output?

sconoredhot · 15 Marzo, 2017 13:54

Sería algo así en el código:

    DATA: lv_parvw TYPE parvw.

    CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'
      EXPORTING
        input  = 'VE'
      IMPORTING
        output = lv_parvw.

    SELECT SINGLE pernr
     INTO knvp-pernr
      FROM knvp
       WHERE kunnr EQ knvv-kunnr
        AND parvw EQ lv_parvw.

Sigue probando y nos dices.

Dlanor20777 · 15 Marzo, 2017 14:21

Hola amigos no tengo mucho tiempo, pero les dejare esto por aquí a ver si lo quieren probar en la SE38 “Solo que no se le verían los textos”, no incluí campos de la tabla PA0001, pero agregue otros campos importantes en mi caso el sector y la función de interlocutor. Ademas que les recomiendo no utilizar filtros en el código, en mi caso los coloco como Campos de selección obligatorios, y coloco por defecto el mas usado.

Pantalla se Selección o delimitación:

Resultado:

Colocare el Código en 2 temas je, porque me arrojo este mensaje el foro:

github.com

consultoria-sap/ABAP/blob/master/codigos/listado-clientes/report-clientes.abap

*&---------------------------------------------------------------------*
*& https://foros.consultoria-sap.com/t/creacion-de-un-listado-de-clientes/13891/53
*&
*&---------------------------------------------------------------------*


report AQA0SYSTQV000020ZCLIENTES=====
   line-size 252 no standard page heading line-count 000(001).

include <symbol>.
include <icon>.
selection-screen: begin of block prog
                           with frame title text-f58.

tables KNVV.
tables KNVP.
tables KNA1.
data %count-KNA1(4) type x.
data %linr-KNA1(2).

This file has been truncated. show original

luisa_aldana2 · 15 Marzo, 2017 19:42

porque pasa esto cuando hago el debuggin se que si sale sy-subrc 4 no esta haciendo la consulta será que aun sigue mi código mal?

sconoredhot · 15 Marzo, 2017 19:55

Te recomiendo hacer lo siguiente:

En el primer select, habria que ver que valor tiene KNVV-KUNNR (lo ves por debug de la misma manera que ves el sy-subrc).

Con eso, te vas a la SE16 y compruebas si hay un registro para el KUNNR + PARVW + PERNR que estás poniendo como filtro para la KNVP.

Si el registro efectivamente existe, es posible que esté jodiendo la rutina de conversión que te comenté más arriba, y quizás antes del select tengas que llamar a la función (arriba te pasé el código para llamarla).

Saludos,
Sebastián

luisa_aldana2 · 15 Marzo, 2017 20:04

@sconoredhot El registro que me trae la knvv-kunnr no existe en la knvp que pasaría en este caso

coji ese valor y lo mire en la tabla knvp y no hay registros

sconoredhot · 15 Marzo, 2017 20:12

Es que entonces está bien que te haya dado SY-SUBRC = 4. Significa que no encontró registro.

Para poder hacer una prueba completa necesitas que haya registros, un caso de prueba.

Los que te pidieron el requerimiento, ¿te pasaron algo más, como qué registros debe traer o algo así?

Saludos.

SidV · 17 Marzo, 2017 12:09

Yo entiendo que están todos a full, pero el debate se está haciendo una bola de códigos, subiré los códigos al repositorio:

Por favor, sería buenísimo si los desarrolladores o la autora del debate @luisa_aldana2, pueden pasar el código final que estás usando para este listado.

luisa_aldana2 · 21 Marzo, 2017 20:18

Amigos disculpe pero no tengo el codigo excelente voy a esperar que hagan pruebas y de una la subo al repositorio