Skip to main content
Skip table of contents

UploadDocumentToBengDMS()

UploadDocumentToBengDMS()

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

Parameter

Beschreibung

nDab700ID:N

Dab700:ID - ID-Feld des Belegs

nDocType:N

Dab700:BELEG_ART - Beleg-Art

cDocNo:C

Dab700:BELEG_NR - Belegnummer

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, nID, nDocType, cDocNo, 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
      nID      := m_oDab700:ID,
      nDocType := m_oDab700:BELEG_ART,
      cDocNo   := m_oDab700:BELEG_NR,

      cRes := UploadDocumentToBengDMS(nID, nDocType, cDocNo),
      writeln(cRes),
      m_oDab700.CbNext(),
   end,
always,
   DestroyObject(m_oDab700),
stopseq,

JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.