{ super/funktionen.i }

DEF VAR cRetValue   AS CHAR                     NO-UNDO.
DEF VAR cParam      AS CHAR                     NO-UNDO.

cParam = SUBSTITUTE('&1&4&2&4&3', 'wari', '', '1000', CHR(01)).
RUN ANMELDUNG ( cParam ).

RUN p_huber_lieferschein.p ( '1000', 902376, 0, FALSE, OUTPUT cRetValue ).

message cretvalue view-as alert-box.