HPOMSAP 6.1 Delivering documents to SAPconnect nodes in SAP R/3

46 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
* This routine is creating a table which includes the subitem- *
* numbers *
*---------------------------------------------------------------------*
FORM TVBDPAU_CREATE.
CLEAR TVBDPAU.
REFRESH TVBDPAU.
LOOP AT TVBDPA.
IF TVBDPA-UEPOS IS INITIAL.
* Eintrag der letzten Positon merken
IF TVBDPAU-UPOSV > 0.
APPEND TVBDPAU.
CLEAR TVBDPAU.
ENDIF.
* Neuen Eintrag anfangen
TVBDPAU-POSNR = TVBDPA-POSNR.
ELSE.
IF TVBDPAU-UPOSV IS INITIAL OR
TVBDPAU-UPOSV > TVBDPA-POSNR.
TVBDPAU-UPOSV = TVBDPA-POSNR.
ENDIF.
IF TVBDPAU-UPOSB < TVBDPA-POSNR AND
TVBDPAU-UPOSV < TVBDPA-POSNR.
TVBDPAU-UPOSB = TVBDPA-POSNR.
ENDIF.
TVBDPAU-UEPVW = TVBDPA-UEPVW. "UPOS-Verwendung
ENDIF.
ENDLOOP.
IF TVBDPAU-UPOSV > 0.
APPEND TVBDPAU.
ENDIF.
SORT TVBDPAU.
ENDFORM.
*---------------------------------------------------------------------*
* FORM VALIDITY_PRINT *
*---------------------------------------------------------------------*
* This routine is printing the period of validity for offers *
* and contracts *
*---------------------------------------------------------------------*
FORM VALIDITY_PRINT.
CHECK STEU-VDKEX EQ SPACE.
CASE VBDKA-VBTYP.
WHEN 'B'.
IF VBDKA-ANGDT CN '0' OR
VBDKA-BNDDT CN '0'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'VALIDITY_OFFER'
WINDOW = 'VALIDITY'