NewArticle()

| 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,