NewArticle()

NewArticle() – Neuen Artikel erstellen

Die Funktion erstellt einen neuen Artikel.

Diese Funktion ist in beas nicht freigeschaltet. Bitte TbeArticleBusinessController benutzen.

Parameter	Beschreibung
oDab010:O	Tabellenobjekt DAB010
cNewArtNo:C	Neue Artikel Nr.
cSourceArtNo:C	Quellartikel
lAutoNo:L	Nr. automatisch vergeben
lCopyExisting:L	Existierenden Artikel kopieren
lCopySupp:L	n.v.
lCopySuppCompl:L	n.v.
lCopyLang:L	n.v.
lCopyPartList:L	n.v.
lShowMsg:L	Meldungsfenster anzeigen
oCalc010:O	n.v.
aInsertByInUse:L	n.v.

Rückgabewert

Numerisch - Neue Artikelnummer

Beispiel

CODE

| m_oDM, m_oDab010 |

//******************************************************************************
function CreateNewArticle(cArticleNo)
| nReturnCode, cErrorText |

   nReturnCode := NewArticle(m_oDab010, cArticleNo, '', true, false, false, false, false, false, false),

   case nReturnCode
      of 0 :: cErrorText := 'ncGenError',
      of 1 :: cErrorText := 'ncOK',
      of 2 :: cErrorText := 'ncExists',
      of 3 :: cErrorText := 'ncInvalidNo',
      of 4 :: cErrorText := 'ncWasInUse',
      of 5 :: cErrorText := 'ncInvalidSource',
      of 6 :: cErrorText := 'ncErrRecall',
   endcase,

   if nReturnCode = 1 then
      m_oDab010.CBPost(),
   else
      WriteLn("Es ist ein Fehler beim Aufruf von NewArticle aufgetreten. Fehlercode: " + cErrorText),
   endif,
end,

m_oDM := CreateObject('TBeDBGet', 'DM'),
startseq
   m_oDab010               := CreateObject('TBeSemaphorTable'),
   m_oDab010.Workarea      := waDab010,
   m_oDab010.AdsConnection := m_oDM.ADSConnection,
   m_oDab010.Active        := True,

   m_oDM.CbTransaction_Begin(),
   startseq
      CreateNewArticle('NEWARTICLE'),

      m_oDM.CbTransaction_Commit(),
   always
      m_oDM.CbTransaction_TryRollback(),
   stopseq,
always
   DestroyObject(m_oDM),
stopseq,