Vorgehensweise: |
Sie können Update-Funktionen direkt in Ihrem Report bieten, indem Sie ihn mit einer WebFOCUS Maintain-Prozedur verknüpfen. Der Link ist eine URL für das WebFOCUS Servlet und enthält den IBIF_cmd-Befehl mit der MNTCON RUN- oder MNTCON EX-Syntax, um eine vorhandene WebFOCUS Maintain-Formularprozedur aufzurufen. Der Link kann die Kontrolle an ein Maintain-Formular weiterreichen oder eine Maintain-Prozedur im Batch-Modus ausführen, die kein Benutzer-Interface anzeigt.
TYPE=type, [subtype, ] URL=/ibi_apps/WFServlet? IBIF_cmd='MNTCON {RUN|EX} procname' IBIS_passthru='on' IBIS_connect='on' [(parameters...)], $
Hierbei gilt:
Im folgenden Report können Sie den Stückpreis direkt von der Reportausgabe aktualisieren, indem Sie den Report mit der entsprechenden Maintain-Prozedur verknüpfen.
Die Reportanfrage lautet:
TABLE FILE GGPRODS
PRINT PRODUCT_DESCRIPTION VENDOR_CODE VENDOR_NAME UNIT_PRICE
BY PRODUCT_ID
ON TABLE SET PAGE-NUM OFF
ON TABLE SET STYLE *
TYPE=REPORT, GRID=OFF, $
TYPE=DATA, COLUMN=N1,
URL=/ibi_apps/WFServlet?(PRODUCT_ID=N1 IBIF_cmd='MNTCON RUN GGUPD1'
IBIS_passthru=\
'on' IBIS_connect='on'), $
ENDSTYLE
ENDDie WebFOCUS-Maintain-Prozedur (ggupd1) ist:
MAINTAIN FILE ggprods
module import(mntuws FOCCOMP)
$$Declarations
Declare pcode/a4;
Case Top
compute timechk/a0=HHMMSS();
document.referer='/ibi_apps/WFServlet?IBIF_ex=ggprod&IBIS_connect
=on'||
'&timechk='|timechk;
compute pcode = IWC.getAppCGIValue("PRODUCT_ID");
Infer ggprods.prods01.product_id into ggstk1;
Reposition PRODUCT_ID
Stack clear ggstk1 ;
For all next ggprods.prods01.product_id into ggstk1
where product_id eq pcode;
Winform Show Form1;
EndCase
Case Updte1
for all Update ggprods.prods01.unit_price from ggstk1(1) ;
EndCase
ENDHinweis: Dies ist ein interaktives Formular, mit dem Daten angezeigt werden und das im Developer Studio erstellt wird.
Der Report ist:

Es wird, wenn Sie auf einen Produktcode klicken, die Maintain-Prozedur ggupd1 aufgerufen, die die IWC.getAppCGIValue-Funktion verwendet, um den richtigen Wert abzurufen.
Formular 1 in der WebFOCUS Maintain-Prozedur ggupd1 wird geöffnet und Sie können den Stückpreis für dieses Produkt aktualisieren:

| WebFOCUS |