Difference between revisions of "Delphi Sales Orders"

procedure TForm1.Button1Click(Sender: TObject);
var
  stkItem : _InventoryItem;
  customer : _Customer;
  helper : _ComHelper;
  orderDetail : _OrderDetail;
  salesOrder : _SalesOrder;
  reference, itemCode, customerCode : string;
  recordID : integer;
begin
  try
    itemCode := 'ABC001';
    customerCode := 'CASH33';
    Log('Connecting...');
    helper := CoComHelper.Create();
    helper.CreateCommonDBConnection('server=.;initial catalog=EvolutionCommon;integrated security=SSPI');
    helper.SetLicense('DEMO', '47481667230473');
    helper.CreateConnection('server=.;initial catalog=50127;integrated security=SSPI');
    helper.BeginTran;
    Log('...connected');
    Log('Expected DB version', helper.CompatibleEvolutionDatabaseVersion);
    Log('Current DB version: ', helper.CurrentEvolutionDatabaseVersion);
    if helper.CompatibleEvolutionDatabaseVersion <> helper.CurrentEvolutionDatabaseVersion then
      Log('WARNING', 'The current database version differs from version expected by the API.');
    recordID := helper.FindARAccountByCode(customerCode);
    if recordID = -1 then
    begin
      // account does not exist, so create it
      customer := CoCustomer.Create();
      customer.Code := customerCode;
      customer.Description := 'Demo Account';
      customer.Save;
      Log('Account created', customer.ID);
    end
    else
    begin
      // account exists, so simply load it
      customer := helper.GetARAccount(customerCode);
    end;
    Log('Creating order...');
    salesOrder := CoSalesOrder.Create();
    salesOrder.Customer := customer;
    Log('Creating detail...');
    orderDetail := CoOrderDetail.Create;
    // find inventory item
    recordID := helper.FindStockItemByCode(itemCode);
    if recordID = -1 then
    begin
      // item does not exist, so create it
      stkItem := CoInventoryItem.Create();
      stkItem.Code := itemCode;
      stkItem.IsServiceItem := True;
      stkItem.Description := 'Demo Item';
      stkItem.Save;
      Log('Item created', stkItem.ID)
    end
    else
    begin
      // item exists, so simply load it
      stkItem := helper.GetStockItem(itemCode);
    end;
    orderDetail.InventoryItem := stkItem;
    // if this is a new item, it gets created as a service item (above),
    //   and the quantity on hand will be irrelevant
    Log('Stock on hand', stkItem.QtyOnHand);
    orderDetail.Quantity := 5;
    orderDetail.UnitSellingPrice := 100;
    orderDetail.Discount := 100;
    Log('Line total (excl.)', orderDetail.TotalExcl);
    Log('Adding detail...');
    Log('...done');
    salesOrder.Detail.Add_2(orderDetail);
    Log('Order Total (excl)', salesOrder.TotalExcl);
    reference := salesOrder.Complete;
    Log('Invoice No', reference);
    helper.CommitTran;
  except
    on E : Exception do
    begin
      helper.RollbackTran;
      ShowMessage(E.Message);
    end;
  end;
end;