GetNewSalesCreditNote

The GetNewSalesCreditNote creates a new CreditNote for a given customer account. It fills the CreditNote defaulting the information with the related customer's information.

Declaration

C#

public WSResult2OfCreditNote GetNewSalesCreditNote(string token, string customerCode)

Visual Basic

Public Function GetNewSalesCreditNote(ByVal token As String, ByVal customerCode As String) As WSResult2OfCreditNote

Parameter List

Parameter	Type	Description
token	String	The session token retrieved during authentication.
customerCode	String	Code of the customer to create a new sales CreditNote for.

Example

C#

Integration ws = new Integration();

String auth = "";// See Authentication page for more
if (auth != null)
{
  WSResult2OfCreditNote result = ws.GetNewSalesCreditNote(auth, "TESTINTEGR");
  Assert.IsNotNull(result.Result);

  InvoiceLine line = new InvoiceLine();
  line.StockItemID = "STOCKITEM1";
  line.StockItemPrice = 100M;
  line.TaxCode = "NT";
  line.TaxRate = 0.21M;
  line.StockItemDescription = "From default";
  line.StockItemCost = 50M;
  line.CreditNotedQuantity = 10;
  line.NetAmount = 1000M;
  line.TaxAmoutn = line.NetAmount * line.TaxRate;
  line.GrossAmount = (1 + line.TaxRate) * line.NetAmount;
  line.GLAccountCode = "1000";
  line.ActualPrice = 100M;
  line.LocationID = "1";
  line.SublocationID = "BIN1";
  line.GLAccountCode = "1000";
  line.OpeningStockGLAccountCode = "2000";
  result.Result.AccountName = "Test integrator partner";
  result.Result.ExternalReference = "NEWSALESCreditNote0001";

  result.Result.Lines = new CreditNoteLine[1];
  result.Result.Lines[0] = line;
  result.Result.ExchangeRate = 1;

  WSResultStatus r = ws.SaveCreditNote(auth, result.Result, true);
  Assert.IsTrue(r.Status == OperationStatus.Created);
}

Visual Basic

Dim ws As New Integration

Dim auth As String = "" // See Authentication page for more
If (Not auth Is Nothing) Then
  Dim result As WSResult2OfCreditNote = Me.ws.GetNewSalesCreditNote(Me.auth, "TESTINTEGR")
  Assert.IsNotNull(result.Result)
  Dim line As New InvoiceLine
  line.StockItemID = "STOCKITEM1"
  line.StockItemPrice = 100
  line.TaxCode = "NT"
  line.TaxRate = 0.21
  line.StockItemDescription = "From default"
  line.StockItemCost = 50
  line.CreditNotedQuantity = 10
  line.NetAmount = 1000
  line.TaxAmoutn = line.NetAmount * line.TaxRate
  line.GrossAmount = (Decimal.op_Increment(line.TaxRate) * line.NetAmount)
  line.GLAccountCode = "1000"
  line.ActualPrice = 100
  line.LocationID = "1"
  line.SublocationID = "BIN1"
  line.GLAccountCode = "1000"
  line.OpeningStockGLAccountCode = "2000"
  result.Result.AccountName = "Test integrator partner"
  result.Result.ExternalReference = "NEWSALESCreditNote0001"
  result.Result.Lines = New CreditNoteLine() { line }
  result.Result.ExchangeRate = 1
  Assert.IsTrue((Me.ws.SaveCreditNote(Me.auth, result.Result, True).Status = OperationStatus.Created))
End If

See Also

• Customer
• CreditNote
• WSResultStatus