Adding popup before printing deliveries in VL01N / VL02N

Question

Hi,
there´s a need to print deliveries in different languages, when the delivery is between inter company.
In this case, a popup should be shown when printing deliveries in VL01N / VL02N. It should be shown,
when choosing the message type, before starting to print.
On this popup the language, in which the additional print out should be made, should be chosen.
After that, the delivery should be printed in the original language and then in the chosen language.
Is that possible and if so, how? Any other ideas?
Thank you!

Answer 1

Hi
Yes u can, u need to change the print program (I suppose the std RVADDN01 or a copy of RVADDN01).
U should change the routine PROCESSING in order to print the delivery twice: one with original language and one with the choosen language, something like this:
FORM PROCESSING USING PROC_SCREEN.
  DATA: T_FIELDS TYPE TABLE OF SVAL WITH HEADER LINE,
        RETURNCODE.
  DATA: T_NAST  TYPE TABLE OF NAST.
  PERFORM GET_DATA.
  CHECK RETCODE = 0.
  APPEND NAST TO T_NAST.
  T_FIELDS-TABNAME      = 'NAST'.
  T_FIELDS-FIELDNAME    = 'SPARS'.
  APPEND T_FIELDS.
  CALL FUNCTION 'POPUP_GET_VALUES'
       EXPORTING
            POPUP_TITLE = 'Choose langue'
       IMPORTING
            RETURNCODE  = RETURNCODE
       TABLES
            FIELDS      = T_FIELDS.
  IF RETURNCODE IS INITIAL.
    READ TABLE T_FIELDS INDEX 1.
    IF NOT T_FIELDS-VALUE IS INITIAL.
      MOVE T_FIELDS-VALUE TO NAST-SPRAS.
      APPEND NAST TO T_NAST.
    ENDIF.
  ENDIF.
  CLEAR  NAST-SPRAS
  PERFORM FORM_OPEN USING PROC_SCREEN VBDKL-LAND1.
  CHECK RETCODE = 0.
  LOOP AT T_NAST INTO NAST.
* Start form
    CALL FUNCTION 'START_FORM'
         EXPORTING
              LANGUAGE    = NAST-SPRAS
         EXCEPTIONS
              FORM        = 1
              FORMAT      = 2
              UNENDED     = 3
              UNOPENED    = 4
              UNUSED      = 5
              SPOOL_ERROR = 6
              OTHERS      = 7.
    IF SY-SUBRC <> 0.
      RETCODE = SY-SUBRC.
    ENDIF.
    CHECK RETCODE = 0.
    PERFORM CHECK_REPEAT.
    PERFORM HEADER_DATA_PRINT.
    CHECK RETCODE = 0.
    PERFORM HEADER_TEXT_PRINT.
    CHECK RETCODE = 0.
    PERFORM ITEM_PRINT.
    CHECK RETCODE = 0.
    PERFORM END_PRINT.
    CHECK RETCODE = 0.
    CALL FUNCTION 'END_FORM'
         EXCEPTIONS
              UNOPENED                 = 1
              BAD_PAGEFORMAT_FOR_PRINT = 2
              SPOOL_ERROR              = 3
              OTHERS                   = 4.
    IF SY-SUBRC <> 0.
      RETCODE = SY-SUBRC.
    ENDIF.
    CHECK RETCODE = 0.
  ENDLOOP.
  PERFORM FORM_CLOSE.
  CHECK RETCODE = 0.
ENDFORM.
Max