• Lunes 9 de Diciembre de 2024, 12:07

Autor Tema:  Medidas Dinamicas Rh  (Leído 7889 veces)

gib8107

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Medidas Dinamicas Rh
« en: Sábado 2 de Julio de 2005, 01:52 »
0
Hola en la actualidad en la empresa en donde estoy laborando  estamos implementando RH y tenemos un problema :

Cuando insertamos el infotipo 7 necesitamos actualizar el infotipo 8 ya que cambia el sueldo  pero queremos que se ejecute sin verse algo como esto

0001         4   103   P   T001P-MOLGA='32'
0001         4   104   P   P0000-MASSN='Z5'
0001         4   105   P   P0000-MASSG='03'
0001         4   106   P   PSPAR-PERSK<>'EQ'
0001         4   107   P   PSPAR-PERSK<>'ES'
0001         4   108   P   PSPAR-PERSK<>'AQ'
0001         4   109   F   F_ANALIZA_MEDIDA(ZHRMEDIDAS)
0001         4   110   I   INS,0008,,,(RP50D-DATE1)/D
0001         4   111   W   P0008-PREAS='05'

pero al momento de que  le paso el parametro del sueldo no me lo  respeta me lo pone en blanco en el GRID no se ve pero si le doy /H  en el campo del sueldo de la p0008 si esta el valor

alguien sabe comoe s la manera correcta de hacerlo ????

Blag

  • Moderador
  • ******
  • Mensajes: 697
    • Ver Perfil
    • http://atejada.blogspot.com
Re: Medidas Dinamicas Rh
« Respuesta #1 en: Lunes 4 de Julio de 2005, 17:35 »
0
Bueno....así es como yo hice el batch input para cargar el IT0008, sino te sirve me avisas  ;)

Código: Text
  1.  
  2. ************************************************************************
  3. * Programa : ZHR_CI010                                                 *
  4. * Módulo   : HR - Recursos Humanos                                     *
  5. * Documento:                                                           *
  6. * Usuario responsable:                                                 *
  7. * Consultor funcional: Gabriela Mogollón                               *
  8. * Consultor ABAP     : Alvaro Tejada Galindo                           *
  9. *                                                                      *
  10. * Descripción: Carga inicial Infotipos PA30 - Emolumentos Básicos      *
  11. * Transacción:                                                         *
  12. * Juego de datos:                                                      *
  13. ************************************************************************
  14.  
  15. REPORT ZHR_CI010 NO STANDARD PAGE HEADING MESSAGE-ID ZMENSAJE.
  16.  
  17. *=======================================================================
  18. * Includes
  19. *=======================================================================
  20. INCLUDE ZBC_IN001.                        &#34;rutinas de batch inputs
  21.  
  22. *=======================================================================
  23. * Estructuras
  24. *=======================================================================
  25. *- Estructura de Archivo a cargar
  26.  
  27. DATA: BEGIN OF T_DATA OCCURS 0.
  28.         INCLUDE STRUCTURE BDCDATA.
  29. DATA: END OF T_DATA.
  30.  
  31. DATA: BEGIN OF T_CARGAHONOR OCCURS 0,
  32.       FECHAINI(10) TYPE C,
  33.       FECHAFIN(10) TYPE C,
  34.       CODEMP(8) TYPE C,
  35.       GRUPO(8) TYPE C,
  36.       SUBGRP(2) TYPE C,
  37.       GRADO(5) TYPE C,
  38.       IMPORTE(15) TYPE C,
  39.       MONEDA(5) TYPE C,
  40. END OF T_CARGAHONOR.
  41.  
  42. *=======================================================================
  43. * Variables
  44. *=======================================================================
  45.  
  46. DATA:
  47.       LONG TYPE I,
  48.       COUNT TYPE I,
  49.       MONEDA(3) TYPE C.
  50.  
  51. CONSTANTS SUBGRUPO(2) TYPE C VALUE '01'.
  52. CONSTANTS INFOTYPE(1) TYPE C VALUE '8'.
  53.  
  54. *=======================================================================
  55. * Selection screen
  56. *=======================================================================
  57.  
  58. SELECTION-SCREEN BEGIN OF BLOCK DATA WITH FRAME TITLE TEXT-T01.
  59. PARAMETERS:
  60.     FILEMON(128) TYPE C OBLIGATORY.
  61. SELECTION-SCREEN END OF BLOCK DATA.
  62.  
  63. *=======================================================================
  64. * At selection-screen
  65. *=======================================================================
  66.  
  67. AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILEMON.
  68.   PERFORM NOMBRE_ARCHIVO USING FILEMON.
  69.  
  70. *=======================================================================
  71. * Start-of-selection
  72. *=======================================================================
  73.  
  74. START-OF-SELECTION.
  75.   PERFORM ABRE_ARCHIVO_PC_HR TABLES T_CARGAHONOR USING FILEMON.
  76.   PERFORM CREAR_SESION USING 'CI_CPA30EB'.
  77.  
  78.   REFRESH T_BDCDATA.
  79.  
  80.   LOOP AT T_CARGAHONOR.
  81.  
  82.       COUNT = COUNT + 1.
  83.       PERFORM TRANSFIERE_DATOS_HONORARIOS.
  84.  
  85.     PERFORM INSERTA_DATOS USING 'PA30'.
  86.   ENDLOOP.
  87.  
  88.   PERFORM CERRAR_SESION USING 'CI_CPA30EB'.
  89.   WRITE: / 'Registros leidos:', COUNT,
  90.          /,
  91.          / 'Se ha creado el juego de datos: CI_CPA30EB',
  92.          / 'Ejecutar desde transacción SM35'.
  93.  
  94. END-OF-SELECTION.
  95.  
  96. *=======================================================================
  97. * Subrutinas
  98. *=======================================================================
  99.  
  100. FORM ABRE_ARCHIVO_PC_HR TABLES TABLA USING ARCHIVO .
  101.  
  102.   CALL FUNCTION 'WS_UPLOAD'
  103.        EXPORTING
  104.             CODEPAGE                = 'IBM'
  105.             FILENAME                = ARCHIVO
  106.             FILETYPE                = 'ASC'
  107.        IMPORTING
  108.             FILELENGHT              = LONG
  109.        TABLES
  110.             DATA_TAB                = TABLA
  111.        EXCEPTIONS
  112.             CONVERSION_ERROR        = 1
  113.             FILE_OPEN_ERROR         = 2
  114.             FILE_READ_ERROR         = 3
  115.             INVALID_TYPE            = 4
  116.             NO_BATCH                = 5
  117.             UNKNOWN_ERROR           = 6
  118.             INVALID_TABLE_WIDTH     = 7
  119.             GUI_REFUSE_FILETRANSFER = 8
  120.             CUSTOMER_ERROR          = 9
  121.             OTHERS                  = 10.
  122.  
  123.   IF SY-SUBRC NE 0.
  124.     MESSAGE E001.
  125.   ENDIF.
  126.  
  127. ENDFORM.                    &#34; ABRE_ARCHIVO_PC
  128.  
  129. *&---------------------------------------------------------------------*
  130. *&      Form  TRANSFIERE_DATOS_HONORARIOS
  131. *&---------------------------------------------------------------------*
  132. * Transfiere los datos del registro del archivo plano leído a la
  133. * tabla interna t_bdcdata.
  134. *----------------------------------------------------------------------*
  135. FORM TRANSFIERE_DATOS_HONORARIOS.
  136.  
  137. *- Limpia la tabla interna t_bdcdata
  138.   REFRESH T_BDCDATA.
  139.   CLEAR T_BDCDATA.
  140.  
  141.   IF T_CARGAHONOR-MONEDA NE SPACE.
  142.     MONEDA = T_CARGAHONOR-MONEDA.
  143.   ELSE.
  144.     MONEDA = 'PEN'.
  145.   ENDIF.
  146.  
  147.   PERFORM DYNPRO USING:
  148.  
  149. *- Primera Pantalla
  150.     'X' 'SAPMP50A'        '1000',
  151.     ''  'RP50G-PERNR'     T_CARGAHONOR-CODEMP,      &#34;Codigo Empleado
  152.     ''  'RP50G-BEGDA'     T_CARGAHONOR-FECHAINI,    &#34;Fecha Inicial
  153.     ''  'RP50G-ENDDA'     T_CARGAHONOR-FECHAFIN,    &#34;Fecha Final
  154.     ''  'RP50G-CHOIC'     INFOTYPE,              &#34;Clave Infotipo
  155.     ''  'BDC_OKCODE'      '=INS',                &#34;Enter
  156.  
  157. *- Primera Pantalla
  158.     'X' 'MP000800'        '2000',
  159.     ''  'P0008-BEGDA'     T_CARGAHONOR-FECHAINI,      &#34;Fecha Inicio
  160.     ''  'P0008-ENDDA'     T_CARGAHONOR-FECHAFIN,      &#34;Fecha Fin
  161.     ''  'P0008-TRFGR'     T_CARGAHONOR-GRUPO,         &#34;Grupo
  162.     ''  'P0008-TRFST'     SUBGRUPO,                   &#34;Sub Grupo
  163.     ''  'P0008-BSGRD'     T_CARGAHONOR-GRADO,         &#34;Grado Ocupacion
  164.     ''  'Q0008-BETRG(01)' T_CARGAHONOR-IMPORTE,       &#34;Importe
  165.     ''  'P0008-WAERS'     MONEDA,                     &#34;Moneda
  166.     ''  'BDC_OKCODE'      '=UPD'.                     &#34;Actualizar
  167.  
  168. ENDFORM.                    &#34; TRANSFIERE_DATOS_HONORARIOS
  169.  
  170.  

Saludos,

Blag  :smartass:

gib8107

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Medidas Dinamicas Rh
« Respuesta #2 en: Martes 5 de Julio de 2005, 16:23 »
0
Muchas gracias por la sugerencia  :D  pero se me paso decir que actualmente lo estoy realizando con un batch input.

lo que buscaba era realizarlo en base  a puras medidas dinamicas  :comp: para que fuese en automatico y no diferido  :smartass:

jaq71

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Medidas Dinamicas Rh
« Respuesta #3 en: Miércoles 7 de Mayo de 2008, 23:34 »
0
Cita de: "Blag"
Bueno....así es como yo hice el batch input para cargar el IT0008, sino te sirve me avisas  ;)

Código: Text
  1.  
  2. ************************************************************************
  3. * Programa : ZHR_CI010                                                 *
  4. * Módulo   : HR - Recursos Humanos                                     *
  5. * Documento:                                                           *
  6. * Usuario responsable:                                                 *
  7. * Consultor funcional: Gabriela Mogollón                               *
  8. * Consultor ABAP     : Alvaro Tejada Galindo                           *
  9. *                                                                      *
  10. * Descripción: Carga inicial Infotipos PA30 - Emolumentos Básicos      *
  11. * Transacción:                                                         *
  12. * Juego de datos:                                                      *
  13. ************************************************************************
  14.  
  15. REPORT ZHR_CI010 NO STANDARD PAGE HEADING MESSAGE-ID ZMENSAJE.
  16.  
  17. *=======================================================================
  18. * Includes
  19. *=======================================================================
  20. INCLUDE ZBC_IN001.                        &#34;rutinas de batch inputs
  21.  
  22. *=======================================================================
  23. * Estructuras
  24. *=======================================================================
  25. *- Estructura de Archivo a cargar
  26.  
  27. DATA: BEGIN OF T_DATA OCCURS 0.
  28.         INCLUDE STRUCTURE BDCDATA.
  29. DATA: END OF T_DATA.
  30.  
  31. DATA: BEGIN OF T_CARGAHONOR OCCURS 0,
  32.       FECHAINI(10) TYPE C,
  33.       FECHAFIN(10) TYPE C,
  34.       CODEMP(8) TYPE C,
  35.       GRUPO(8) TYPE C,
  36.       SUBGRP(2) TYPE C,
  37.       GRADO(5) TYPE C,
  38.       IMPORTE(15) TYPE C,
  39.       MONEDA(5) TYPE C,
  40. END OF T_CARGAHONOR.
  41.  
  42. *=======================================================================
  43. * Variables
  44. *=======================================================================
  45.  
  46. DATA:
  47.       LONG TYPE I,
  48.       COUNT TYPE I,
  49.       MONEDA(3) TYPE C.
  50.  
  51. CONSTANTS SUBGRUPO(2) TYPE C VALUE '01'.
  52. CONSTANTS INFOTYPE(1) TYPE C VALUE '8'.
  53.  
  54. *=======================================================================
  55. * Selection screen
  56. *=======================================================================
  57.  
  58. SELECTION-SCREEN BEGIN OF BLOCK DATA WITH FRAME TITLE TEXT-T01.
  59. PARAMETERS:
  60.     FILEMON(128) TYPE C OBLIGATORY.
  61. SELECTION-SCREEN END OF BLOCK DATA.
  62.  
  63. *=======================================================================
  64. * At selection-screen
  65. *=======================================================================
  66.  
  67. AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILEMON.
  68.   PERFORM NOMBRE_ARCHIVO USING FILEMON.
  69.  
  70. *=======================================================================
  71. * Start-of-selection
  72. *=======================================================================
  73.  
  74. START-OF-SELECTION.
  75.   PERFORM ABRE_ARCHIVO_PC_HR TABLES T_CARGAHONOR USING FILEMON.
  76.   PERFORM CREAR_SESION USING 'CI_CPA30EB'.
  77.  
  78.   REFRESH T_BDCDATA.
  79.  
  80.   LOOP AT T_CARGAHONOR.
  81.  
  82.       COUNT = COUNT + 1.
  83.       PERFORM TRANSFIERE_DATOS_HONORARIOS.
  84.  
  85.     PERFORM INSERTA_DATOS USING 'PA30'.
  86.   ENDLOOP.
  87.  
  88.   PERFORM CERRAR_SESION USING 'CI_CPA30EB'.
  89.   WRITE: / 'Registros leidos:', COUNT,
  90.          /,
  91.          / 'Se ha creado el juego de datos: CI_CPA30EB',
  92.          / 'Ejecutar desde transacción SM35'.
  93.  
  94. END-OF-SELECTION.
  95.  
  96. *=======================================================================
  97. * Subrutinas
  98. *=======================================================================
  99.  
  100. FORM ABRE_ARCHIVO_PC_HR TABLES TABLA USING ARCHIVO .
  101.  
  102.   CALL FUNCTION 'WS_UPLOAD'
  103.        EXPORTING
  104.             CODEPAGE                = 'IBM'
  105.             FILENAME                = ARCHIVO
  106.             FILETYPE                = 'ASC'
  107.        IMPORTING
  108.             FILELENGHT              = LONG
  109.        TABLES
  110.             DATA_TAB                = TABLA
  111.        EXCEPTIONS
  112.             CONVERSION_ERROR        = 1
  113.             FILE_OPEN_ERROR         = 2
  114.             FILE_READ_ERROR         = 3
  115.             INVALID_TYPE            = 4
  116.             NO_BATCH                = 5
  117.             UNKNOWN_ERROR           = 6
  118.             INVALID_TABLE_WIDTH     = 7
  119.             GUI_REFUSE_FILETRANSFER = 8
  120.             CUSTOMER_ERROR          = 9
  121.             OTHERS                  = 10.
  122.  
  123.   IF SY-SUBRC NE 0.
  124.     MESSAGE E001.
  125.   ENDIF.
  126.  
  127. ENDFORM.                    &#34; ABRE_ARCHIVO_PC
  128.  
  129. *&---------------------------------------------------------------------*
  130. *&      Form  TRANSFIERE_DATOS_HONORARIOS
  131. *&---------------------------------------------------------------------*
  132. * Transfiere los datos del registro del archivo plano leído a la
  133. * tabla interna t_bdcdata.
  134. *----------------------------------------------------------------------*
  135. FORM TRANSFIERE_DATOS_HONORARIOS.
  136.  
  137. *- Limpia la tabla interna t_bdcdata
  138.   REFRESH T_BDCDATA.
  139.   CLEAR T_BDCDATA.
  140.  
  141.   IF T_CARGAHONOR-MONEDA NE SPACE.
  142.     MONEDA = T_CARGAHONOR-MONEDA.
  143.   ELSE.
  144.     MONEDA = 'PEN'.
  145.   ENDIF.
  146.  
  147.   PERFORM DYNPRO USING:
  148.  
  149. *- Primera Pantalla
  150.     'X' 'SAPMP50A'        '1000',
  151.     ''  'RP50G-PERNR'     T_CARGAHONOR-CODEMP,      &#34;Codigo Empleado
  152.     ''  'RP50G-BEGDA'     T_CARGAHONOR-FECHAINI,    &#34;Fecha Inicial
  153.     ''  'RP50G-ENDDA'     T_CARGAHONOR-FECHAFIN,    &#34;Fecha Final
  154.     ''  'RP50G-CHOIC'     INFOTYPE,              &#34;Clave Infotipo
  155.     ''  'BDC_OKCODE'      '=INS',                &#34;Enter
  156.  
  157. *- Primera Pantalla
  158.     'X' 'MP000800'        '2000',
  159.     ''  'P0008-BEGDA'     T_CARGAHONOR-FECHAINI,      &#34;Fecha Inicio
  160.     ''  'P0008-ENDDA'     T_CARGAHONOR-FECHAFIN,      &#34;Fecha Fin
  161.     ''  'P0008-TRFGR'     T_CARGAHONOR-GRUPO,         &#34;Grupo
  162.     ''  'P0008-TRFST'     SUBGRUPO,                   &#34;Sub Grupo
  163.     ''  'P0008-BSGRD'     T_CARGAHONOR-GRADO,         &#34;Grado Ocupacion
  164.     ''  'Q0008-BETRG(01)' T_CARGAHONOR-IMPORTE,       &#34;Importe
  165.     ''  'P0008-WAERS'     MONEDA,                     &#34;Moneda
  166.     ''  'BDC_OKCODE'      '=UPD'.                     &#34;Actualizar
  167.  
  168. ENDFORM.                    &#34; TRANSFIERE_DATOS_HONORARIOS
  169.  
  170.  

Saludos,

Blag  :smartass:
buenas tardes me intersa este codigo que haz publicado, pero creo que le faltan cosas me lo podris envia a mi correo (jaq71@hotmail.com).... gracias.