| |
| Deletes an accounting detail from the document. |
| |
 |
void DeleteDetail (
SHORT sIndex
) |
|
| |
| Parameters | | sIndex | | [in] The index of the detail, starting from 0. | | | | Remarks |
 | If the parameter sIndex is an invalid index (refers to a not existing detail) an exception is thrown. You can use GetDetail to check whether an index is valid, in which case it returns true. |
|
| |
| See Also |
|
|
|
| |
| Samples |
| |
|
C++ |
| |
// Delete the detail with remark = 'Remove this line!' of the current document
VARIANT vRemark;
short sNumDets;
bool bNext = true, bWrite = false;
pSndry->PrepareDocument (paUpdate);
sNumDets = pSndry->GetNumDetails ();
for (short sDetail = 0; bNext && sDetail < sNumDets; sDetail++)
{
if (pSndry->GetDetail (sDetail, NULL, NULL, NULL, NULL, &vRemark, NULL, NULL, NULL, NULL) && CString (vRemark.bstrVal) == "Remove this line!")
{
pSndry->DeleteDetail (sDetail);
bWrite = true;
bNext = false;
}
}
if (bWrite)
pSndry->WriteDocument (rmFullReport);
else
pSndry->CancelDocument ();
|
|
|
C# |
| |
// Delete the detail with remark = 'Remove this line!' of the current document
object oRemark, oDummy;
short sNumDets;
bool bNext = true, bWrite = false;
oSndry.PrepareDocument (ePrepareAction.paUpdate);
sNumDets = oSndry.GetNumDetails ();
for (short sDetail = 0; bNext && sDetail < sNumDets; sDetail++)
{
if (oSndry.GetDetail (sDetail, out oDummy, out oDummy, out oDummy, out oDummy, out oRemark, out oDummy, out oDummy, out oDummy, out oDummy) && oRemark.ToString () == "Remove this line!")
{
oSndry.DeleteDetail (sDetail);
bWrite = true;
bNext = false;
}
}
if (bWrite)
oSndry.WriteDocument (eReportMode.rmFullReport);
else
oSndry.CancelDocument ();
|
|
|
VBS |
| |
' Delete the detail with remark = 'Remove this line!' of the current document
Dim oRemark, oDummy
Dim sDetail, sNumDets
Dim bWrite
bWrite = False
Call oSndry.PrepareDocument(paUpdate)
sNumDets = oSndry.GetNumDetails()
For sDetail = 0 To sNumDets - 1
If oSndry.GetDetail(sDetail, oDummy, oDummy, oDummy, oDummy, oRemark, oDummy, oDummy, oDummy, oDummy) And oRemark = "Remove this line!" Then
Call oSndry.DeleteDetail(sDetail)
bWrite = True
Exit For
End If
Next
If bWrite Then
Call oSndry.WriteDocument(rmFullReport)
Else
Call oSndry.CancelDocument()
End If
|
|
|
VB.NET |
| |
' Delete the detail with remark = 'Remove this line!' of the current document
Dim oRemark, oDummy As Object
Dim sNumDets As Short
Dim bWrite As Boolean
bWrite = False
oSndry.PrepareDocument(ePrepareAction.paUpdate)
sNumDets = oSndry.GetNumDetails()
For sDetail As Short = 0 To sNumDets - 1
If oSndry.GetDetail(sDetail, oDummy, oDummy, oDummy, oDummy, oRemark, oDummy, oDummy, oDummy, oDummy) And oRemark = "Remove this line!" Then
oSndry.DeleteDetail(sDetail)
bWrite = True
Exit For
End If
Next
If bWrite Then
oSndry.WriteDocument(eReportMode.rmFullReport)
Else
oSndry.CancelDocument()
End If
|
|
