UploadDocumentToBengDMS()

Funktion, um nachträglich vorhandene Belege ins DMS zu übertragen.

Parameter	Beschreibung
nDab700ID:N	Dab700:ID - ID-Feld des Belegs
nDocType:N / uDummy:U	n/V
cDocNo:C / uDummy:U	n/V

Rückgabewert

Alphanumerisch - GUID des übertragenen Belegs wie er im DMS/PG gespeichert wird.

Beispiel:

CODE

//##############################################################################
//##############################################################################
// Beschreibung: Alle vorhandenen Belege der Dab700 nach DMS übertragen
//##############################################################################
//##############################################################################
| m_oDab700, cRes |

m_oDab700           := CreateObject('TBeStandardTable' , 'Belegarchiv'),
m_oDab700.WorkArea  := waDab700,
m_oDab700.IndexName := 'ID',
startseq,
   m_oDab700.Active := True,
   m_oDab700.CbLast(),
   while not m_oDab700.CbEoF do
      cRes := UploadDocumentToBengDMS(m_oDab700:ID,,),
      writeln(cRes),
      m_oDab700.CbNext(),
   end,
always,
   DestroyObject(m_oDab700),
stopseq,