Campos por defecto

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • Trancos
    Junior Member
    • may
    • 4

    #1

    Campos por defecto

    Hola a todos stoy empezando a conocer el mundo SAP, stoy comenzando a programar en lo q es ABAP, quisiera q me ayuden porque como puedo hacer para que 2 campos esten por defecto digamos que tengo el campo fase (1,2,3,4) y campo status suspension (0,1,2,3,4) , cada vez q ingresemos a un proveedor nuevo el campo fase salga 1 y el status sea 0 en la tabla z, spero me puedan ayudar, gracias.
  • DavidXD_XD
    Moderator
    • ago
    • 1255

    #2
    Esa tabla Z que hablas te refieres a una tabla transparente??, de ser asi si es que es un proveedor nuevo deberias de buscar un USER EXIT y asignar el valor 1 y 0 dentro de ella
    David Carballido Córdova

    Comentario

    • Trancos
      Junior Member
      • may
      • 4

      #3
      Efectivamente es una tabla transaparente la q he creado, pero estoy algo confuso y como encuentro el User Exit??

      Comentario

      • DavidXD_XD
        Moderator
        • ago
        • 1255

        #4
        Para poder ver los user-exit's copia este codigo, lo ejecutas, colocas la transaccion de creacion de proveedores y te saldra una lista

        Código:
        report zuserexit no standard page heading.
        tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
                 tables : tstct.
        data : jtab like tadir occurs 0 with header line.
        data : field1(30).
        data : v_devclass like tadir-devclass.
        parameters : p_tcode like tstc-tcode obligatory.
        
        select single * from tstc where tcode eq p_tcode.
        if sy-subrc eq 0.
           select single * from tadir where pgmid = 'R3TR'
                            and object = 'PROG'
                            and obj_name = tstc-pgmna.
           move : tadir-devclass to v_devclass.
              if sy-subrc ne 0.
                 select single * from trdir where name = tstc-pgmna.
                 if trdir-subc eq 'F'.
                    select single * from tfdir where pname = tstc-pgmna.
                    select single * from enlfdir where funcname =
                    tfdir-funcname.
                    select single * from tadir where pgmid = 'R3TR'
                                       and object = 'FUGR'
                                       and obj_name eq enlfdir-area.
        
                    move : tadir-devclass to v_devclass.
                  endif.
               endif.
               select * from tadir into table jtab
                             where pgmid = 'R3TR'
                               and object = 'SMOD'
                               and devclass = v_devclass.
                select single * from tstct where sprsl eq sy-langu and
                                                 tcode eq p_tcode.
                format color col_positive intensified off.
                write:/(19) 'Transaction Code - ',
                     20(20) p_tcode,
                     45(50) tstct-ttext.
                            skip.
                if not jtab[] is initial.
                   write:/(95) sy-uline.
                   format color col_heading intensified on.
                   write:/1 sy-vline,
                          2 'Exit Name',
                         21 sy-vline ,
                         22 'Description',
                         95 sy-vline.
                   write:/(95) sy-uline.
                   loop at jtab.
                      select single * from modsapt
                             where sprsl = sy-langu and
                                    name = jtab-obj_name.
                           format color col_normal intensified off.
                           write:/1 sy-vline,
                                  2 jtab-obj_name hotspot on,
                                 21 sy-vline ,
                                 22 modsapt-modtext,
                                 95 sy-vline.
                   endloop.
                   write:/(95) sy-uline.
                   describe table jtab.
                   skip.
                   format color col_total intensified on.
                   write:/ 'No of Exits:' , sy-tfill.
                else.
                   format color col_negative intensified on.
                   write:/(95) 'No User Exit exists'.
                endif.
              else.
                  format color col_negative intensified on.
                  write:/(95) 'Transaction Code Does Not Exist'.
              endif.
        
        at line-selection.
           get cursor field field1.
           check field1(4) eq 'JTAB'.
           set parameter id 'MON' field sy-lisel+1(10).
           call transaction 'SMOD' and skip first   screen.
        David Carballido Córdova

        Comentario

        • Trancos
          Junior Member
          • may
          • 4

          #5
          ok gracias ya encontre el user_exit, pero ahora digamos q quiero por codigo osea q cuando el usuario matricule (ingrese) un nuevo proveedor automaticamente esos 2 campos esten por defecto fase 1 y status 0, y sten registrados al ingresar un proveedor nuevo pero ya no a la tabla Z sino a la tabla interna osea como lo haria???

          Comentario

          Trabajando...