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,