Dokumentenverwaltung als Buch/leere Seite in einem Formular anzeigen
Dokumentenverwaltung Buch:
Auf der Tabelle folgenden beiden Methoden:
boolean existDocu()
{
DocuRef docuRef;
DocuType docuType;
;
select firstonly docuRef
where docuRef.RefRecId == this.RecId&&
docuRef.RefTableId == this.TableId;
if (docuRef)
return true;
else
return false;
}
display int docu()
{
#macrolib.resource
if (this.existDocu())
return #RES_NODE_DOC;
else
return #RES_AM_NEW;
}
Im Formular:
1) Ein Feld vom Typ Window
2) Autodeclaration Yes
3) Width/height = 15
4) Datasource = Tabelle
5) Datamethode = Docu()
6) auf dem Feld folgende Methode:
int mouseUp(int _x, int _y, int _button, boolean _ctrl, boolean _shift)
{
#define.leftClick(1)
int ret;
PurchTable PurchTable2;
FormRun formRun;
Args args = new Args();
;
ret = super(_x, _y, _button, _ctrl, _shift);
select PurchTable2 where
PurchTable2.RecId == PurchTable.RecId;
// Open the document handling form
args.name(formstr(DocuView));
args.record(PurchTable2);
formRun = classfactory.formRunClass( args);
if (formRun)
{
formRun.init();
formRun.run();
formRun.detach();
}
return ret;
}
Keine Kommentare:
Kommentar veröffentlichen