Working with Transaction

At times when you are inserting records into the database involving more than one table, it is possible that some errors occurs and records is not properly inserted. To prevent the damages, one needs define the transactions. So this is how I defined the transaction

Dim connection As New SqlClient.SqlConnection(Common.GetConnectionString)
connection.Open()
Dim trans As SqlClient.SqlTransaction

Try

Dim dtDND As New DataTable
dtDND = CType(ViewState("getDND"), DataTable)
'dtDND = SCMERP.Sale.getDND(tbxFromDate.Text, tbxToDate.Text)
Dim ClaimID As String

trans = connection.BeginTransaction
Dim DocumentNo As String
DocumentNo = SCMERP.Purchase.GetDocumentNumber(Common.DocumentTypes.Sale, Common.BranchID)
If ddlStockType.SelectedValue = Common.StockType.DND Then

ClaimID = SCMERP.Purchase.SetDocument(trans, 10, DocumentNo, "12/12/2008", Common.BranchID, Common.PrincipalID.Principal, dtDND.Rows(0)("Total"), dtDND.Rows(0)("Tax"), dtDND.Rows(0)("Discount"), dtDND.Rows(0)("Amount"), Nothing, 0, 0, 0, 0, 0, Nothing, 0, "", False, Nothing, 0, 0, Nothing, Nothing, 0.0, 0.0, 0, "", 0, 0, "", 0, tbxDesc.Text)


For count As Integer = 0 To dtDND.Rows.Count - 1
SCMERP.Purchase.SetDocumentProducts(trans, ClaimID, dtDND.Rows(count)("PriceListProductID"), dtDND.Rows(count)("DPQuantity"), dtDND.Rows(count)("DPTotal"), dtDND.Rows(count)("DPTax"), dtDND.Rows(count)("DPDiscount"), dtDND.Rows(count)("DPAmount"), Common.StockType.ClaimIn, 0, 0)


Next
trans.Commit()

ElseIf ddlStockType.SelectedValue = Common.StockType.Scheme Then
Dim dtScheme As New DataTable
ClaimID = SCMERP.Sale.ClaimInsert(tbxFromDate.Text, tbxToDate.Text, 0, tbxDesc.Text)

dtScheme = SCMERP.Sale.getScheme(tbxFromDate.Text, tbxToDate.Text, ddlScheme.SelectedValue)
For count As Integer = 0 To dtScheme.Rows.Count - 1
SCMERP.Sale.ClaimProductsInsert(ClaimID, dtScheme.Rows(count)("DocumentProductID"), dtScheme.Rows(count)("PackingID"), dtScheme.Rows(count)("BrandID"), dtScheme.Rows(count)("Quantity"))

Next


End If
RowFooter.Visible = False
RowHeader.Visible = False

Catch ex As Exception

trans.Rollback()
connection.Close()
End Try
End Sub



Comments

Post a Comment

Popular posts from this blog

SPFx: Develop using SharePoint Framework without Installing all the dependecies.

Image
SharePoint Framework (SPFx) has been around for more than 5 years now with being Generally available since Feb 2017.  In the recent times, its been possible to develop webparts for SharePoint on-prem as well using SPFx and with that it is getting harder to maintain multiple versions of required toolchains. e.g. Node. For M365 you can use the latest version of SPFx but probably you know, if you aim to develop webparts for the SharePoint Server 2016 platform, for instance, you need to use the SharePoint Framework v1.1.0 due to the server-side version dependencies. So yet another challenge is using the correct version of the SPFx and Nodejs for the particular project . Although I personally used to like Node Version Manager which lets you manage multiple installations of node.js on a Windows computer but still one needs to isolate SharePoint Framework dependencies if you are targeting multiple platform from on PC. 2nd Problematic scenario begins when you start developing SPFx extensi...
Read more

SharePoint Online: Elevated Permissions....with love

Image
Remember the good old days! when using RunWithElevatedPrivileges(SPSecurity.CodeToRunElevated), in the SharePoint server-side object model, would let us run our code (Full trust code) with full control i.e. granting us higher permission (as System Account) and letting us performs tasks that waren't permited to do in current user context.  Now, that, we have SharePoint addin and SharePoint online webparts, one still wonders if there is still a way of achieving that. Since there are use cases where a user needs a higher permission, for instance.  Changing a status of a field in a list where the current logged in user has read only permission.  Reading member of a SharePoint group.  In Workflows  like SharePoint Designer workflow you used to have App step, in Nintex workflow you have elevated permission and in MS Flow Impersonation is possible using connectors in Flow triggered by HTTP request can run under System account as show in the video below:  Other wa...
Read more

Powershell: Filling up an Existing Excel Sheet with data from SQL Server

Situation: The client required to have data from their SQL Server 2012 Database filled in to an existing Excel Sheet. This sheet had a table with around 40 columns of which 12 where to be filled by us and rest from different departments. I tried different solution for that since the requirements were not initially clear. Forexample OPENROWSET was tried. In this regards this link really helpful. Although this requires few configuration to be made on the server or to install e.g. ACE.OLEDB driver on server which was not possible in our case. So we decided to write a Powershell script and access SQL Now about the script: Take the file TestExcel.xlsx from C:\Temp folder Create its copy with the current date appended to its name.  Start reading the Excel file from Sheet "Specified Sheet Name" From Columns 1, it will take the name of the system.  Based on the name fill the excel sheet by executing the queries, here are the columns that are going to ...
Read more