Doubt about H99B_OPEN_LFORM_JOB Function.

[ronaldo_aparecido]

Hi Gurus.

I have a program with  H99B_OPEN_LFORM_JOB function and I need undesrtand why in form the field CPF dont show the last number.

Then i get the value of parameter  i_folname and I acces the transaction smartforms but dont exist the I try in Se71 and dont exist .

How Can I find the form print to chage it?

See the code:

*&---------------------------------------------------------------------*

*&      Form  PRINT_FORM

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->P_P_FORM  text

*      -->P_GO_CL_TERM  text

*----------------------------------------------------------------------*

FORM print_form USING pv_fgroup  TYPE p_99b_fogroup

                       pv_form    TYPE p_99b_formlogc

                       pv_prcop   TYPE itcpp-tdcopies

                       po_cl_term TYPE REF TO zcl_hrpaybr_term.

   DATA ls_options   TYPE itcpo.

   DATA ls_term_data TYPE zhrpaybr_s_term.

   DATA lt_term_data TYPE zhrpaybr_t_term.

* Get the Data generated by the class

   po_cl_term->get_data( IMPORTING et_data = lt_term_data ).

   IF lt_term_data[] IS INITIAL.

     RETURN.

   ENDIF.

   SELECT SINGLE fogroup  INTO pv_fgroup FROM t799bmfg

      WHERE molga   = pbr99_molga

        AND folname = pv_form.

* Get the print parameters according to user

   PERFORM get_print_parameters USING pv_prcop

                             CHANGING ls_options.

   CALL FUNCTION 'H99B_OPEN_LFORM_JOB'

     EXPORTING

       i_molga        = pbr99_molga

       i_fogroup      = pv_fgroup

       i_folname      = pv_form

       options        = ls_options

     EXCEPTIONS

       fotype_invalid = 1

       job_not_opened = 2

       OTHERS         = 3.

   IF sy-subrc <> 0.

     MESSAGE e008(pla).

*   Não foi possível abrir o job de impressão

   ENDIF.

   LOOP AT lt_term_data[] INTO ls_term_data.

*   Write the form for the employee (Independent of output technology)

     CALL FUNCTION 'H99B_OUTPUT_LFORM'

       EXPORTING

         i_molga        = pbr99_molga

         i_fogroup      = pv_fgroup

         i_folname      = pv_form

         i_data_struc   = ls_term_data

       EXCEPTIONS

         error          = 1

         fotype_invalid = 2

         OTHERS         = 3.

     IF sy-subrc <> 0.

       MESSAGE e010(pla).

*     Erro na impressão de formulário

     ENDIF.

   ENDLOOP.

* Close Form

   CALL FUNCTION 'H99B_CLOSE_LFORM_JOB'

     EXCEPTIONS

       fotype_invalid = 1

       closing_error  = 2

       OTHERS         = 3.

   IF sy-subrc <> 0.

     MESSAGE e009(pla).

*   Não foi possível fechar o job de impressão

   ENDIF.

ENDFORM.                    " PRINT_FORM

The value of i_folname is ZHR_BR_TERM3_SFO

[ronaldo_aparecido]

Hi Gurus.

I have a program with  H99B_OPEN_LFORM_JOB function and I need undesrtand why in form the field CPF dont show the last number.

Then i get the value of parameter  i_folname and I acces the transaction smartforms but dont exist the I try in Se71 and dont exist .

How Can I find the form print to chage it?

See the code:

*&---------------------------------------------------------------------*

*&      Form  PRINT_FORM

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->P_P_FORM  text

*      -->P_GO_CL_TERM  text

*----------------------------------------------------------------------*

FORM print_form USING pv_fgroup  TYPE p_99b_fogroup

                       pv_form    TYPE p_99b_formlogc

                       pv_prcop   TYPE itcpp-tdcopies

                       po_cl_term TYPE REF TO zcl_hrpaybr_term.

   DATA ls_options   TYPE itcpo.

   DATA ls_term_data TYPE zhrpaybr_s_term.

   DATA lt_term_data TYPE zhrpaybr_t_term.

* Get the Data generated by the class

   po_cl_term->get_data( IMPORTING et_data = lt_term_data ).

   IF lt_term_data[] IS INITIAL.

     RETURN.

   ENDIF.

   SELECT SINGLE fogroup  INTO pv_fgroup FROM t799bmfg

      WHERE molga   = pbr99_molga

        AND folname = pv_form.

* Get the print parameters according to user

   PERFORM get_print_parameters USING pv_prcop

                             CHANGING ls_options.

   CALL FUNCTION 'H99B_OPEN_LFORM_JOB'

     EXPORTING

       i_molga        = pbr99_molga

       i_fogroup      = pv_fgroup

       i_folname      = pv_form

       options        = ls_options

     EXCEPTIONS

       fotype_invalid = 1

       job_not_opened = 2

       OTHERS         = 3.

   IF sy-subrc <> 0.

     MESSAGE e008(pla).

*   Não foi possível abrir o job de impressão

   ENDIF.

   LOOP AT lt_term_data[] INTO ls_term_data.

*   Write the form for the employee (Independent of output technology)

     CALL FUNCTION 'H99B_OUTPUT_LFORM'

       EXPORTING

         i_molga        = pbr99_molga

         i_fogroup      = pv_fgroup

         i_folname      = pv_form

         i_data_struc   = ls_term_data

       EXCEPTIONS

         error          = 1

         fotype_invalid = 2

         OTHERS         = 3.

     IF sy-subrc <> 0.

       MESSAGE e010(pla).

*     Erro na impressão de formulário

     ENDIF.

   ENDLOOP.

* Close Form

   CALL FUNCTION 'H99B_CLOSE_LFORM_JOB'

     EXCEPTIONS

       fotype_invalid = 1

       closing_error  = 2

       OTHERS         = 3.

   IF sy-subrc <> 0.

     MESSAGE e009(pla).

*   Não foi possível fechar o job de impressão

   ENDIF.

ENDFORM.                    " PRINT_FORM

The value of i_folname is ZHR_BR_TERM3_SFO

[nabheetscn]

Did you check in tcode HRFORMS? It must be their..You can choose the entry and press change

Nabheet

[ronaldo_aparecido]

Hi Nabheet .

I checked in tcode but I dont find .

Thanks.

[ronaldo_aparecido]

I debuged  the function Module and find the name of smartform.

THanks Nabheet.