Venice
ProductDet::SeekByUnprodArt
 
Seeks an unproduced Production Document Detail line by its article number.
 
VARIANT_BOOL SeekByUnprodArt (
    enum eSeekMode eSeekMode,
    BSTR bsArtNum,
    BSTR bsBook,
    LONG lDocNum,
    SHORT sLineNum
)
 
Key information
This method uses key number 3 (See SwapKey).
This is a unique key.
This is a null key, only the records where pIsOpen is true are in the index.
 
Key segment information
Segment NameTypeOrderCollation
pArtNumBSTRAscendingHierarchy
pBookBSTRAscendingCase insensitive
pDocNumLONG (unsigned)Ascending-
pLineNumSHORT (unsigned)Ascending-
pIsOpenVARIANT_BOOLAscending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsArtNum
[in] The article number of the Production Document Detail line you want to seek.
bsBook
[in] The book code of the Production Document of which you want to seek a detail line.
lDocNum
[in] The document number of the Production Document you want to seek.
sLineNum
[in] The line number of the Production Document Detail line you want to seek.
 
Remarks
This number is a 0-based index, i.e. it starts from 0. Therefore the value of this parameter is 1 less than the numbers shown in the Venice grids and 1 less than the value returned by the property vLine (see properties)!
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateProductDet
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all the unproduced detail lines for article 'Art_001'
CString strArtNum = "Art_001";
pProductDet->SeekByUnprodArt (smGreater, (LPCSTR)strArtNum, "", 0, 0);
while (pProductDet->GetDBStatus () == 0 && (CString)pProductDet->pArtNum == strArtNum)
{
    // Process record data
    
    pProductDet->GetNext ();
}

C#
 
// Seek all the unproduced detail lines for article 'Art_001'
string strArtNum = "Art_001";
oProductDet.SeekByUnprodArt (eSeekMode.smGreater, strArtNum, "", 0, 0);
while (oProductDet.GetDBStatus () == 0 && oProductDet.pArtNum.ToString () == strArtNum)
{
    // Process record data
    
    oProductDet.GetNext ();
}

VBS
 
' Seek all the unproduced detail lines for article 'Art_001'
Dim strArtNum
strArtNum = "Art_001"
Call oProductDet.SeekByUnprodArt(smGreater, strArtNum, "", 0, 0)
While oProductDet.GetDBStatus() = 0 And oProductDet.pArtNum = strArtNum
    ' Process record data

    Call oProductDet.GetNext()
Wend

VB.NET
 
' Seek all the unproduced detail lines for article 'Art_001'
Dim strArtNum As String
strArtNum = "Art_001"
oProductDet.SeekByUnprodArt(eSeekMode.smGreater, strArtNum, "", 0, 0)
While oProductDet.GetDBStatus() = 0 And oProductDet.pArtNum = strArtNum
    ' Process record data

    oProductDet.GetNext()
End While