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,