Как получить начальный баланс - PullRequest
Новая
       37

Как получить начальный баланс

0 голосов
/ 18 февраля 2020

Я столкнулся с проблемой в отчетах Crystal. Я не могу получить или решить проблему начального баланса, который является конечным балансом предыдущего дня. Позвольте мне показать вам мою структуру главной книги в мс sql. 

[dbo].[ledgerreport](
[ledgerautonumber] [int] IDENTITY(1,1) NOT NULL,
[serialno] [varchar](50) NULL,
[accountiddr] [varchar](50) NULL,
[accountnamedr] [varchar](50) NULL,
[accountidcr] [varchar](50) NULL,
[accountnamecr] [varchar](50) NULL,
[dateledger] [date] NULL,
[voucherid] [varchar](50) NULL,
[debitamount] [decimal](18, 2) NULL,
[creditamount] [decimal](18, 2) NULL,
[description] [varchar](50) NULL,
[closingbalance] [decimal](18, 2) NULL,
[unit] [varchar](50) NULL

и мой код, который я использую в VB. net

 Try
        con = New SqlConnection(appx.myconnection)
        con.Open()
        Dim cb2 As String = "insert into ledgerreport(serialno,dateledger,voucherid,debitamount,creditamount,description,closingbalance,unit,accountiddr,accountnamedr,accountidcr,accountnamecr) VALUES (@d100,@d101,@d102,@d103,@d104,@d105,@d106,@d107,@d108,@d109,@d110,@d111)"
        cmd = New SqlCommand(cb2)
        cmd.Connection = con
        ' Prepare command for repeated execution
        cmd.Prepare()
        ' Data to be inserted
        For Each row As DataGridViewRow In DataGridView1.Rows
            If Not row.IsNewRow Then
                cmd.Parameters.AddWithValue("@d100", row.Cells(0).Value) 'serial no
                cmd.Parameters.AddWithValue("@d101", row.Cells(3).Value) 'dateledger
                cmd.Parameters.AddWithValue("@d102", row.Cells(2).Value) 'voucher id
                cmd.Parameters.AddWithValue("@d103", row.Cells(7).Value) 'debit amount
                cmd.Parameters.AddWithValue("@d104", row.Cells(8).Value) 'credit amount
                cmd.Parameters.AddWithValue("@d105", row.Cells(6).Value) 'description
                cmd.Parameters.AddWithValue("@d106", row.Cells(13).Value) 'closing balance
                cmd.Parameters.AddWithValue("@d107", row.Cells(1).Value) 'unit
                cmd.Parameters.AddWithValue("@d108", row.Cells(4).Value) 'accountiddr
                cmd.Parameters.AddWithValue("@d109", row.Cells(5).Value) 'accoutnamedr
                cmd.Parameters.AddWithValue("@d110", AccountidcrTextEdit.Text) 'accountidcr
                cmd.Parameters.AddWithValue("@d111", cashaccounttxtedit.Text) ' accountnamecr


                cmd.ExecuteNonQuery()
                cmd.Parameters.Clear()
            End If
        Next
        con.Close()
    Catch ex As Exception
        MsgBox(ex.Message & " " & "Error Code : CPV-LG-002", vbOKOnly + vbCritical, "Error Code : CPV-LG-002")
    End Try

Теперь я делаю вот что: всякий раз, когда пользователь совершает транзакцию при оплате sh, код бухгалтерской книги сохраняет данные в таблице sql. И в отчете я использую поля и параметры для генерации отчета. но я не могу получить начальный баланс, который является итоговым балансом моего отчета за последний день. Здесь я сталкиваюсь с проблемой. как я могу получить начальный баланс, используя мои вышеуказанные коды.

, пожалуйста, направьте меня и помогите решить проблему

Спасибо

...