| |
| Seeks a Purchase Document by its supplier number. |
| |
 |
VARIANT_BOOL SeekBySupNum (
enum eSeekMode eSeekMode,
LONG lSupNum,
DATE dDocDate
) |
|
| |
| Key information | | | | | Key segment information | | | | | Parameters | | eSeekMode | | [in] A value of the 'eSeekMode' enumeration. | | lSupNum | | [in] The supplier number of the Purchase Document you want to seek. | | dDocDate | | [in] The document date of the Purchase Document you want to seek. | | | | Return value |
| True if the record with the given properties was found, otherwise false. |
| |
| See Also |
|
|
|
| |
| Samples |
| |
 |
C++ |
| |
// Seek all Purchase Documents with a document date = 28/06/2025 for the supplier with number 125
COleDateTime odtDocDate;
odtDocDate.SetDate (2025, 6, 28);
long lSupNum = 125;
pPurch->SeekBySupNum (smEqual, lSupNum, odtDocDate);
while (pPurch->GetDBStatus () == 0 && (long)pPurch->pSupNum == lSupNum && (DATE)pPurch->pDocDate == odtDocDate)
{
// Process record data
pPurch->GetNext ();
}
|
|
|
C# |
| |
// Seek all Purchase Documents with a document date = 28/06/2025 for the supplier with number 125
DateTime dtDocDate = new DateTime (2025, 6, 28);
int iSupNum = 125;
oPurch.SeekBySupNum (eSeekMode.smEqual, iSupNum, dtDocDate);
while (oPurch.GetDBStatus () == 0 && (int)oPurch.pSupNum == iSupNum && (DateTime)oPurch.pDocDate == dtDocDate)
{
// Process record data
oPurch.GetNext ();
}
|
|
|
VBS |
| |
' Seek all Purchase Documents with a document date = 28/06/2025 for the supplier with number 125
Dim dtDocDate
Dim iSupNum
dtDocDate = #6/28/2025#
iSupNum = 125
Call oPurch.SeekBySupNum(smEqual, iSupNum, dtDocDate)
While oPurch.GetDBStatus() = 0 And oPurch.pSupNum = iSupNum And oPurch.pDocDate = dtDocDate
' Process record data
Call oPurch.GetNext()
Wend
|
|
|
VB.NET |
| |
' Seek all Purchase Documents with a document date = 28/06/2025 for the supplier with number 125
Dim dtDocDate As Date
Dim iSupNum As Integer
dtDocDate = #6/28/2025#
iSupNum = 125
oPurch.SeekBySupNum(eSeekMode.smEqual, iSupNum, dtDocDate)
While oPurch.GetDBStatus() = 0 And oPurch.pSupNum = iSupNum And oPurch.pDocDate = dtDocDate
' Process record data
oPurch.GetNext()
End While
|
|
