| 1234567891011 |
- { 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.
|
