AnalytikDataPRiME
/
GeMIS_WEB


			
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291
							/*E4GL-W*/ {src/web/method/e4gl.i} {&OUT} '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">~n'.
{&OUT} '<HTML>~n'.
{&OUT} '<HEAD>~n'.
{&OUT} '<META NAME="wsoptions" CONTENT="no-output">~n'.
{&OUT} '<TITLE>AUFTRAEGE</TITLE>~n'.
{&OUT} '<LINK REL="stylesheet" HREF="css/default.css" TYPE="text/css">~n'.
 /*Tag=<SCRIPT LANGUAGE="SpeedScript">*/ 
/* Create an unnamed pool to store all the widgets created
     by this procedure. This is a good default which assures
     that this procedure's triggers and internal procedures
     will execute in this procedure's storage, and that proper
     cleanup will occur on deletion of the procedure. */
CREATE WIDGET-POOL.
 /*Tag=</SCRIPT>*/ 
{&OUT} '</HEAD>~n'.

{&OUT} '<BODY BGCOLOR="#FFFF00">~n'.
{&OUT} '<CENTER>~n'.

{&OUT} '<!-- Report Title -->~n'.
{&OUT} '<P><STRONG>AUFTRAEGE</STRONG><BR><BR></P>~n'.

 /*Tag=<SCRIPT LANGUAGE="SpeedScript">*/ 
DEFINE VARIABLE SearchValue     AS CHARACTER  NO-UNDO.
DEFINE VARIABLE CurrentRowids   AS CHARACTER  NO-UNDO.
DEFINE VARIABLE BackRowids      AS CHARACTER  NO-UNDO.
DEFINE VARIABLE TmpUrl          AS CHARACTER  NO-UNDO.
DEFINE VARIABLE MaintOption     AS CHARACTER  NO-UNDO.
DEFINE VARIABLE DelimiterField  AS CHARACTER  NO-UNDO. 
DEFINE VARIABLE JoinParam       AS CHARACTER  NO-UNDO. 
DEFINE VARIABLE FieldName       AS CHARACTER  NO-UNDO.

DEFINE VARIABLE UseRowidsInLink AS LOGICAL    NO-UNDO INITIAL yes. 
DEFINE VARIABLE UseNavigation   AS LOGICAL    NO-UNDO INITIAL yes.
DEFINE VARIABLE UseSubmit       AS LOGICAL    NO-UNDO INITIAL yes.
DEFINE VARIABLE UseReset        AS LOGICAL    NO-UNDO INITIAL yes.
DEFINE VARIABLE UseAdd          AS LOGICAL    NO-UNDO INITIAL yes.
DEFINE VARIABLE UseCancel       AS LOGICAL    NO-UNDO INITIAL yes.
DEFINE VARIABLE UseDelete       AS LOGICAL    NO-UNDO INITIAL yes.
DEFINE VARIABLE UseSearchForm   AS LOGICAL    NO-UNDO INITIAL no.
DEFINE VARIABLE DataObject      AS CHARACTER  NO-UNDO INITIAL ''.
DEFINE VARIABLE DataSourceHdl   AS HANDLE     NO-UNDO.

/** Defines properties and starts the super procedure web2/wbdata.p */ 
{src/web2/wbdata.i}

setExternalTableList('').  
setForeignFieldList(''). 

IF DataObject <> '' THEN DO:
  setAppService('').
  startDataObject(DataObject).  
  DataSourceHdl = dynamic-function("getDataSource").  
END.
ELSE DO:
  /** WebRep.p uses dynamic queries and buffers .
      You can use user variables instead of hardcoded values. */         
  setBuffers('Aufko').  
  setQueryWhere('FOR EACH Aufko NO-LOCK INDEXED-REPOSITION').
  setExternalJoinList('').  
  setExternalWhereList('').
END.

/* The ForeignFieldList is the only way to link WebObjects that uses SDOs.  
 * It overrides the use of ExternalJoinList and ExternalWhereList for queries.
 * The list consist of comma separated fields (with db.tablename or tablename) 
 * and an optional parameter. 
 * setForeignFieldList('order.custnum').   
 * - This will add "order.custnum = " + get-field(custnum) to the where clause.
 * setForeignFieldList('order.custnum,cust#').   
 * - This will add "order.custnum =  " + get-field(cust#) to the where clause.
 * setForeignFieldList('order.custnum,cust#,order.salesrep')
 * - This will add "order.custnum  = " + get-field(cust#) " and "
                   "order.salesrep = " + get-field(salesrep) to the where clause. 
 * Several lists of commaseparated fields may be separated with | to specify 
 * different foreign fields for different external tables. 
 * Example: Externaltable 1: customer and salesrep   
 *          Externaltable 2: customer
 *          Externaltable 3: salesrep 
 * setExternalTableList('customer,salesrep|customer|salesrep'). 
 * setForeignFieldList('order.custnum,order.salesrep|order.custnum|order.salesrep'). 
 */  

/* You can use user variables instead of hardcoded values also for columns */
setColumns('Aufko.Firma,Aufko.Aufnr,Aufko.Knr'). 


IF UseSearchForm THEN DO: 
  /* Set the field to use for search. 
   * Only one field supported 
   * The field used in the searchForm has (name=SearchValue)
   * The corresponding data from searchValue will be used in the selection
   * criteria. 
   * The operator will be GE  */  
  setSearchColumns(''). 
 /*Tag=</SCRIPT>*/ 
{&OUT} '<FORM ACTION="' /*Tag=`*/ SelfURL /*Tag=`*/ '" METHOD="POST" NAME="SearchForm">~n'.
{&OUT} '  <INPUT TYPE="hidden" NAME="Navigate" VALUE="Search">~n'.
{&OUT} '  <P><STRONG>' /*Tag=`*/ columnLabel(ENTRY(1,getSearchColumns())) /*Tag=`*/ .
{&OUT} '  <INPUT TYPE="text" SIZE="20" NAME="SearchValue" VALUE="' /*Tag=`*/ html-encode(get-field('searchValue')) /*Tag=`*/ '">~n'.
{&OUT} '  <INPUT TYPE="submit" NAME="SubmitBtn" VALUE="Search">~n'.
{&OUT} '  </STRONG></P>~n'.
{&OUT} '  <HR>~n'.
{&OUT} '</FORM>~n'.
 /*Tag=<SCRIPT LANGUAGE="SpeedScript">*/ 
END. /* IF UseSearchForm THEN DO: */

/* ProcessWebRequest gets the value for Navigate and SearchValue, opens the 
   query and outputs the table. */          
RUN ProcessWebRequest.

ASSIGN
  TmpUrl         = url-format(?,getContextFields(),?)    
  Delimiterfield = IF INDEX(TmpUrl,"?") > 0 THEN ? ELSE "?"
  TmpUrl         = TmpUrl + url-field("CurrentRowids":U,getCurrentRowids(),DelimiterField)
  DelimiterField = IF INDEX(TmpUrl,"?") > 0 THEN ? ELSE "?".

/* If we are using a SearchForm we must set the CurrentRowids value  */  
IF UseSearchForm THEN DO: 
 /*Tag=</SCRIPT>*/ 
{&OUT} '<SCRIPT LANGUAGE="JavaScript">~n'.
{&OUT} '  ~{ document.SearchForm.href = "' /*Tag=`*/ TmpUrl /*Tag=`*/ '"~; ~}~n'.
{&OUT} '</SCRIPT>~n'.
 /*Tag=<SCRIPT LANGUAGE="SpeedScript">*/ 
END. /* IF UseSearchForm THEN DO: */
 /*Tag=</SCRIPT>*/ 

{&OUT} '<FORM ACTION="' /*Tag=`*/ TmpURL /*Tag=`*/ '" METHOD="POST" NAME="DetailForm">  ~n'.
{&OUT} '<INPUT TYPE="hidden" NAME="Addmode" VALUE="' /*Tag=`*/ getUpdateMode() = 'Add':U /*Tag=`*/ '">~n'.
{&OUT} '<TABLE BGCOLOR="#00FF00" BORDER="2" >~n'.

{&OUT} '  <TR>~n'.
{&OUT} '  <TD>~n'.
{&OUT} '    <STRONG>' /*Tag=`*/ html-encode(columnLabel('Aufko.Firma')) /*Tag=`*/ '</STRONG>~n'.
{&OUT} '  </TD>  ~n'.
{&OUT} '  <TD>~n'.
{&OUT} '    <INPUT TEXT="submit" NAME="' /*Tag=`*/ columnHTMLName('Aufko.Firma') /*Tag=`*/ '" ~n'.
{&OUT} '      VALUE="' /*Tag=`*/ html-encode(columnStringValue('Aufko.Firma')) /*Tag=`*/ '" ~n'.
{&OUT} /*Tag=`*/ IF columnReadOnly('Aufko.Firma') THEN ' DISABLED ' ELSE '' /*Tag=`*/ .
{&OUT} '      onMouseover="window.status=''' /*Tag=`*/ html-encode(columnHelp('Aufko.Firma')) /*Tag=`*/ '''~;return true"~n'.
{&OUT} '      onMouseout="window.status=''''~;return true">~n'.
{&OUT} '  </TD>  ~n'.

{&OUT} '  </TR>~n'.
{&OUT} '  <TR>~n'.
{&OUT} '  <TD>~n'.
{&OUT} '    <STRONG>' /*Tag=`*/ html-encode(columnLabel('Aufko.Aufnr')) /*Tag=`*/ '</STRONG>~n'.
{&OUT} '  </TD>  ~n'.
{&OUT} '  <TD>~n'.
{&OUT} '    <INPUT TEXT="submit" NAME="' /*Tag=`*/ columnHTMLName('Aufko.Aufnr') /*Tag=`*/ '" ~n'.
{&OUT} '      VALUE="' /*Tag=`*/ html-encode(columnStringValue('Aufko.Aufnr')) /*Tag=`*/ '" ~n'.
{&OUT} /*Tag=`*/ IF columnReadOnly('Aufko.Aufnr') THEN ' DISABLED ' ELSE '' /*Tag=`*/ .
{&OUT} '      onMouseover="window.status=''' /*Tag=`*/ html-encode(columnHelp('Aufko.Aufnr')) /*Tag=`*/ '''~;return true"~n'.
{&OUT} '      onMouseout="window.status=''''~;return true">~n'.
{&OUT} '  </TD>  ~n'.

{&OUT} '  <TD>&nbsp~;&nbsp~;</TD>~n'.
{&OUT} '  <TD>~n'.
{&OUT} '    <INPUT TYPE="button" NAME="LinkButton" VALUE=""~n'.
{&OUT} '      onClick="window.open(''' /*Tag=`*/ urlLink('WebSpeed\welcome.html','') /*Tag=`*/ ''',''_self'')">~n'.
{&OUT} '  </TD>~n'.

{&OUT} '  </TR>~n'.
{&OUT} '  <TR>~n'.
{&OUT} '  <TD>~n'.
{&OUT} '    <STRONG>' /*Tag=`*/ html-encode(columnLabel('Aufko.Knr')) /*Tag=`*/ '</STRONG>~n'.
{&OUT} '  </TD>  ~n'.
{&OUT} '  <TD>~n'.
{&OUT} '    <INPUT TEXT="submit" NAME="' /*Tag=`*/ columnHTMLName('Aufko.Knr') /*Tag=`*/ '" ~n'.
{&OUT} '      VALUE="' /*Tag=`*/ html-encode(columnStringValue('Aufko.Knr')) /*Tag=`*/ '" ~n'.
{&OUT} /*Tag=`*/ IF columnReadOnly('Aufko.Knr') THEN ' DISABLED ' ELSE '' /*Tag=`*/ .
{&OUT} '      onMouseover="window.status=''' /*Tag=`*/ html-encode(columnHelp('Aufko.Knr')) /*Tag=`*/ '''~;return true"~n'.
{&OUT} '      onMouseout="window.status=''''~;return true">~n'.
{&OUT} '  </TD>  ~n'.

{&OUT} '  </TR>~n'.

{&OUT} '</TABLE>~n'.

{&OUT} '<TABLE>~n'.
 /*Tag=<!--WSS*/  IF getUpdateMode() <> "Add":U AND UseAdd THEN /*Tag=-->*/ 
{&OUT} '  <TD><INPUT TYPE="submit" NAME="MaintOption" VALUE="Add"></TD>~n'.
 /*Tag=<!--WSS*/  IF UseSubmit THEN /*Tag=-->*/ 
{&OUT} '  <TD><INPUT TYPE="submit" NAME="MaintOption" VALUE="Submit"></TD>~n'.
 /*Tag=<!--WSS*/  IF getUpdateMode() = "Add":U AND UseCancel THEN /*Tag=-->*/ 
{&OUT} '  <TD><INPUT TYPE="submit" NAME="MaintOption" VALUE="Cancel"></TD>~n'.
 /*Tag=<!--WSS*/  IF UseReset THEN /*Tag=-->*/ 
{&OUT} '  <TD><INPUT TYPE="reset" NAME="MaintOption" VALUE="Reset"></TD>~n'.
 /*Tag=<!--WSS*/  IF getUpdateMode() <> "Add":U AND UseDelete THEN DO: /*Tag=-->*/ 
{&OUT} '  <TD><INPUT TYPE="submit" NAME="MaintOption" VALUE="Delete"~n'.
{&OUT} '        onClick="if (! confirm(''Delete this ' /*Tag=`*/ REPLACE(getDeleteTables(),',',' and ') /*Tag=`*/ ''')) return false~;"></TD>~n'.
 /*Tag=<!--WSS*/  END. /* IF MaintOption <> "Add":U AND UseDelete THEN DO: */ /*Tag=-->*/ 
{&OUT} '</TABLE>~n'.
{&OUT} '</FORM>~n'.
{&OUT} '</CENTER>~n'.

 /*Tag=<SCRIPT LANGUAGE="SpeedScript">*/ 
IF UseNavigation AND MaintOption <> 'Add':U THEN DO: 
 /*Tag=</SCRIPT>*/ 
{&OUT} '<DIV ALIGN="center"><CENTER>~n'.
{&OUT} '<TABLE BORDER="2">~n'.
{&OUT} '  <TR>~n'.
{&OUT} '    <TD>~n'.
{&OUT} '      <A HREF="' /*Tag=`*/ TmpUrl + url-field('Navigate','First',DelimiterField) /*Tag=`*/ '"~n'.
{&OUT} '        onMouseover="window.status=''First''~;return true"~n'.
{&OUT} '        onMouseout="window.status=''''~;return true">~n'.
{&OUT} '      <IMG SRC="' /*Tag=`*/ RootURL /*Tag=`*/ '/images/first-au.gif" BORDER="0" WIDTH="16"~n'.
{&OUT} '        HEIGHT="16"></A>~n'.
{&OUT} '    </TD>~n'.
{&OUT} '    <TD>~n'.
{&OUT} '      <A HREF="' /*Tag=`*/ TmpUrl + url-field('Navigate','Prev',DelimiterField) /*Tag=`*/ '"~n'.
{&OUT} '        onMouseover="window.status=''Previous''~;return true"~n'.
{&OUT} '        onMouseout="window.status=''''~;return true">~n'.
{&OUT} '      <IMG SRC="' /*Tag=`*/ RootURL /*Tag=`*/ '/images/prev-au.gif" BORDER="0" WIDTH="16"~n'.
{&OUT} '        HEIGHT="16"></A>~n'.
{&OUT} '    </TD>~n'.
{&OUT} '    <TD>~n'.
{&OUT} '      <A HREF="' /*Tag=`*/ TmpUrl + url-field('Navigate','Next',DelimiterField) /*Tag=`*/ '"~n'.
{&OUT} '        onMouseover="window.status=''Next''~;return true"~n'.
{&OUT} '        onMouseout="window.status=''''~;return true">~n'.
{&OUT} '      <IMG SRC="' /*Tag=`*/ RootURL /*Tag=`*/ '/images/next-au.gif" BORDER="0" WIDTH="16"~n'.
{&OUT} '        HEIGHT="16"></A>~n'.
{&OUT} '    </TD>~n'.
{&OUT} '    <TD>~n'.
{&OUT} '      <A HREF="' /*Tag=`*/ TmpUrl + url-field('Navigate','Last',DelimiterField) /*Tag=`*/ '"~n'.
{&OUT} '        onMouseover="window.status=''Last''~;return true"~n'.
{&OUT} '        onMouseout="window.status=''''~;return true">~n'.
{&OUT} '      <IMG SRC="' /*Tag=`*/ RootURL /*Tag=`*/ '/images/last-au.gif" BORDER="0" WIDTH="16"~n'.
{&OUT} '        HEIGHT="16"></A>~n'.
{&OUT} '    </TD>~n'.
{&OUT} '  </TR>~n'.
{&OUT} '</TABLE>~n'.
{&OUT} '</CENTER></DIV>~n'.
 /*Tag=<SCRIPT LANGUAGE="SpeedScript">*/ 
END.  /* IF UseNavigation THEN DO: */

/* Show error messages */
IF AnyMessage() THEN DO:
  FieldName = ShowDataMessages().
  /* Set focus if error in a specific field */
  IF FieldName <> "":U THEN 
    HTMLSetFocus("document.DetailForm",FieldName). 
END.
RUN destroyObject. 


 /*Tag=</SCRIPT>*/ 
{&OUT} '</BODY>~n'.
{&OUT} '</HTML>~n'.


/************************* END OF HTML *************************/
/*
** File: detail.w
** Generated on: 2014-02-08 18:13:12
** By: WebSpeed Embedded SpeedScript Preprocessor
** Version: 2
** Source file: detail.html
** Options: no-output,wsoptions-found,web-object
**
** WARNING: DO NOT EDIT THIS FILE.  Make changes to the original
** HTML file and regenerate this file from it.
**
*/
/********************* Internal Definitions ********************/

/* This procedure returns the generation options at runtime.
   It is invoked by src/web/method/e4gl.i included at the start
   of this file. */
PROCEDURE local-e4gl-options :
  DEFINE OUTPUT PARAMETER p_version AS DECIMAL NO-UNDO
    INITIAL 2.0.
  DEFINE OUTPUT PARAMETER p_options AS CHARACTER NO-UNDO
    INITIAL "no-output,wsoptions-found,web-object":U.
  DEFINE OUTPUT PARAMETER p_content-type AS CHARACTER NO-UNDO
    INITIAL "text/html":U.
END PROCEDURE.

/* end */