1483 lines
92 KiB
VB.net
1483 lines
92 KiB
VB.net
Imports System.Data.SqlClient
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.Data.Filtering
|
|
Imports System.IO
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
|
|
Module BaseImport
|
|
|
|
Public Sub Import_GLAccounts(ByVal _ID As Long, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, _ConnectionString As String)
|
|
'// MS SQL régi rendszerből importál Folyószámlából
|
|
Dim conn_h As New SqlConnection(_ConnectionString)
|
|
Dim conn_r As New SqlConnection(_ConnectionString)
|
|
|
|
Dim cmd_h As New SqlCommand
|
|
Dim dr_h As SqlDataReader
|
|
|
|
Dim cmd_r As New SqlCommand
|
|
Dim dr_r As SqlDataReader
|
|
|
|
Dim mSQL As String
|
|
Dim _Customers As Customers
|
|
Dim _GLRows As GLRows
|
|
Dim _GUID As Guid
|
|
Dim _GLAccounts As GLAccounts
|
|
Dim _PaymentOption As PaymentOption
|
|
|
|
Dim _UniqueObjects As UniqueObjects
|
|
Dim _JobNumberObjects As JobNumberObjects
|
|
Dim _CostHolder As CostHolder
|
|
Dim _CostPlace As CostPlace
|
|
Dim _Controlling As Controlling
|
|
|
|
|
|
mSQL = "select Ügyfélszám=t2.CégAlany,t1.BizTipus,Bizonylatszám=isnull(t1.Bizonylatszám,''),t1.TD,t1.ED,t1.KD,t1.ÁFADátum,"
|
|
mSQL = mSQL & " Árfolyam=isnull(t2.Árfolyam,1),IktatóSzám=isnull(t1.IktatóSzám,''),"
|
|
mSQL = mSQL & " S_Ügyfél=case when t1.BizTipus=0 then isnull(t6.Számlaszám,'') else isnull(t5.Számlaszám,'') end,"
|
|
mSQL = mSQL & " t2.Storno,Megjegyzés=isnull(t1.Megjegyzés,''),Deviza=isnull(t1.Deviza,''),"
|
|
mSQL = mSQL & " ID_Dokument_Header=isnull(t2.ID_Dokument_Header,-1),"
|
|
|
|
mSQL = mSQL & " FizetésiMód=isnull(t1.FizetésiMód,'')"
|
|
|
|
mSQL = mSQL & " from sql_Cassa..vv_ÖsszLista t1 left join sql_Cassa..Folyó_Bizonylatok t2 on"
|
|
mSQL = mSQL & " t1.ID=t2.ID left join sql_Main..Ügyféltörzs t3 on"
|
|
mSQL = mSQL & " t2.CégAlany=t3.Ügyfélszám left join Ügyféltörzs_Mode t4 on"
|
|
mSQL = mSQL & " t3.Mode=t4.Mode left join sql_Cassa..Költségek t5 on"
|
|
mSQL = mSQL & " t4.KöltségIDIn=t5.ID left join sql_Cassa..Költségek t6 on"
|
|
mSQL = mSQL & " t4.KöltségIDOut=t6.ID"
|
|
|
|
mSQL = mSQL & " Where t1.ID=" & _ID
|
|
|
|
cmd_h.CommandTimeout = 60
|
|
cmd_h.Connection = conn_h
|
|
cmd_h.CommandType = CommandType.Text
|
|
cmd_h.CommandText = mSQL
|
|
conn_h.Open()
|
|
If conn_h.State = ConnectionState.Open Then
|
|
dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_h.Read
|
|
_PaymentOption = _uow.FindObject(Of PaymentOption)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_h("FizetésiMód")))
|
|
If _PaymentOption Is Nothing Then
|
|
_PaymentOption = New PaymentOption(_uow)
|
|
If UCase(dr_h("FizetésiMód")) = "KÉSZPÉNZ" Then
|
|
_PaymentOption.PayMode = ePayMode.InCash
|
|
_PaymentOption.PayDay = 0
|
|
_PaymentOption.ShortName = dr_h("FizetésiMód")
|
|
_PaymentOption.Description = dr_h("FizetésiMód")
|
|
Else
|
|
_PaymentOption.PayMode = ePayMode.InTransfer
|
|
_PaymentOption.PayDay = 8
|
|
_PaymentOption.ShortName = dr_h("FizetésiMód")
|
|
_PaymentOption.Description = dr_h("FizetésiMód")
|
|
End If
|
|
End If
|
|
_Customers = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
If _Customers IsNot Nothing Then
|
|
|
|
_GLAccounts = _uow.FindObject(Of GLAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and PartnerType=? and DocumentNumber=?", _
|
|
_CustomersFrom.Oid, _Customers.Oid, dr_h("BizTipus"), dr_h("Bizonylatszám")))
|
|
If _GLAccounts Is Nothing Then _GLAccounts = New GLAccounts(_uow)
|
|
|
|
_GLAccounts.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid)
|
|
_GLAccounts.Customers = _Customers
|
|
_GLAccounts.PaymentOption = _PaymentOption
|
|
|
|
_GLAccounts.CurrencyName = _uow.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_h("Deviza")))
|
|
If dr_h("Deviza") = "HUF" Then
|
|
_GLAccounts.CurrencyRate = 1
|
|
_GLAccounts.CurrencyRateVAT() = 1
|
|
Else
|
|
_GLAccounts.CurrencyRate = dr_h("Árfolyam")
|
|
_GLAccounts.CurrencyRateVAT() = dr_h("Árfolyam")
|
|
End If
|
|
'_GLAccounts.CustomerBankAccounts
|
|
_GLAccounts.DateCreated = dr_h("KD")
|
|
_GLAccounts.DateExecution = dr_h("TD")
|
|
_GLAccounts.DatePayment = dr_h("ED")
|
|
_GLAccounts.DocumentNumber = dr_h("Bizonylatszám")
|
|
_GLAccounts.GLDocumentType = eGLDocumentType.eGLAccount
|
|
_GLAccounts.IsEditable = False
|
|
_GLAccounts.IsStorno = dr_h("Storno")
|
|
_GLAccounts.NoteHeader = dr_h("Megjegyzés")
|
|
_GLAccounts.PartnerType = dr_h("BizTipus")
|
|
'_GLAccounts.PaymentOption
|
|
_GLAccounts.RegistryNumber = dr_h("IktatóSzám")
|
|
_GLAccounts.IsRegistry = False
|
|
|
|
If dr_h("ID_Dokument_Header") > 0 Then
|
|
Dim _FS As FileStream
|
|
Dim _FilePath As String
|
|
|
|
_FilePath = LoadFileFromSQL(dr_h("ID_Dokument_Header"), _ConnectionString)
|
|
If System.IO.File.Exists(_FilePath) Then
|
|
_FS = New FileStream(_FilePath, FileMode.Open)
|
|
|
|
_GLAccounts.DocumentFile = New FileData(_uow)
|
|
_GLAccounts.DocumentFile.LoadFromStream(_FilePath, _FS)
|
|
_GLAccounts.DocumentFile.FileName = System.IO.Path.GetFileName(_FilePath)
|
|
|
|
_FS.Close()
|
|
_FS = Nothing
|
|
End If
|
|
End If
|
|
|
|
mSQL = "select Áfahiv=isnull(t1.Áfahiv,''),Bizonylatszám_P=isnull(t2.Bizonylatszám_P,''),t1.ÖsszegNetto,t1.ÖsszegNettoDeviza,"
|
|
mSQL = mSQL & " t1.ÖsszegAFADeviza,t1.ÖsszegAFA,"
|
|
mSQL = mSQL & " S_Költség=isnull(t3.Számlaszám,''),t1.Megjegyzés,"
|
|
mSQL = mSQL & " S_ÁFA=case when t2.BizTipus=0 then isnull(t5.Számlaszám,'') else isnull(t6.Számlaszám,'') end,"
|
|
|
|
mSQL = mSQL & " M_Munkaszám=isnull(t20.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Egyedi=isnull(t21.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Költséghely=isnull(t23.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Költségviselő=isnull(t24.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Controlling=isnull(t25.Megnevezés,'')"
|
|
|
|
mSQL = mSQL & " from Folyó_Bizonylatok_Sorok t1 join sql_Cassa..Folyó_Bizonylatok t2 on"
|
|
mSQL = mSQL & " t1.ParentID=t2.ID left join sql_Cassa..Költségek t3 on"
|
|
mSQL = mSQL & " t1.KöltségID=t3.ID left join sql_Cassa..VAT t4 on"
|
|
mSQL = mSQL & " t1.Áfahiv=t4.ShortName left join sql_Cassa..Költségek t5 on"
|
|
mSQL = mSQL & " t4.KöltségIDOut=t5.ID left join sql_Cassa..Költségek t6 on"
|
|
mSQL = mSQL & " t4.KöltségIDIn=t6.ID left join Munkaszám t20 on"
|
|
mSQL = mSQL & " t1.MunkaszámID=t20.ID left join Egyedi t21 on"
|
|
mSQL = mSQL & " t1.EgyediID=t21.ID left join RögzítőKód t22 on"
|
|
mSQL = mSQL & " t1.RögzítőKódID=t22.ID left join Költséghely t23 on"
|
|
mSQL = mSQL & " t22.KöltséghelyID=t23.ID left join Költségviselő t24 on"
|
|
mSQL = mSQL & " t22.KöltségviselőID=t24.ID left join Költségviselő t25 on"
|
|
mSQL = mSQL & " t1.ControllingID=t25.ID"
|
|
|
|
mSQL = mSQL & " Where t1.ParentID=" & _ID
|
|
mSQL = mSQL & " order by t1.ID"
|
|
|
|
cmd_r.CommandTimeout = 60
|
|
cmd_r.Connection = conn_r
|
|
cmd_r.CommandType = CommandType.Text
|
|
cmd_r.CommandText = mSQL
|
|
conn_r.Open()
|
|
|
|
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLAccounts.Oid))
|
|
_uow.Delete(_GLRows_Collection)
|
|
|
|
If conn_r.State = ConnectionState.Open Then
|
|
dr_r = cmd_r.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_r.Read
|
|
_GUID = Guid.NewGuid
|
|
_GLRows = New GLRows(_uow)
|
|
_GLRows.GLHeader = TryCast(_GLAccounts, GLHeader)
|
|
_GLRows.AmountDEV = dr_r("ÖsszegNettoDeviza")
|
|
_GLRows.AmountHUF = dr_r("ÖsszegNetto")
|
|
If LTrim(RTrim(dr_r("Bizonylatszám_P"))) = "" Then
|
|
_GLRows.ConnectInfo = _GLAccounts.DocumentNumber
|
|
Else
|
|
_GLRows.ConnectInfo = dr_r("Bizonylatszám_P")
|
|
End If
|
|
_GLRows.Controlling = Nothing
|
|
_GLRows.CostHolder = Nothing
|
|
_GLRows.CostPlace = Nothing
|
|
_GLRows.PartnerType = _GLAccounts.PartnerType
|
|
If _GLAccounts.PartnerType = ePartnerType.ePayabels Then
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_h("S_Ügyfél"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_r("S_Költség"), _GLRows.GLHeader.DateExecution.Year))
|
|
Else
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_h("S_Ügyfél"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_r("S_Költség"), _GLRows.GLHeader.DateExecution.Year))
|
|
End If
|
|
|
|
_GLRows.GLRowsGUID = _GUID
|
|
_GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow
|
|
_GLRows.JobNumberObjects = Nothing
|
|
_GLRows.NoteRows = dr_r("Megjegyzés")
|
|
_GLRows.TransactionType = eTransactionType.eNotSet
|
|
_GLRows.UniqueObjects = Nothing
|
|
_GLRows.Customer = _GLAccounts.Customers
|
|
_GLRows.VAT = _uow.FindObject(Of VAT)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_r("Áfahiv")))
|
|
_GLRows.DateVAT = dr_h("ÁfaDátum")
|
|
|
|
'-- Jelölőadatok beállítása
|
|
_UniqueObjects = _uow.FindObject(Of UniqueObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Egyedi")))
|
|
If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects
|
|
_JobNumberObjects = _uow.FindObject(Of JobNumberObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Munkaszám")))
|
|
If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects
|
|
_CostPlace = _uow.FindObject(Of CostPlace)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Költséghely")))
|
|
If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace
|
|
_CostHolder = _uow.FindObject(Of CostHolder)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Költségviselő")))
|
|
If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder
|
|
_Controlling = _uow.FindObject(Of Controlling)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Controlling")))
|
|
If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling
|
|
|
|
If dr_r("Áfahiv") <> "" Then
|
|
_GLRows = New GLRows(_uow)
|
|
_GLRows.GLHeader = TryCast(_GLAccounts, GLHeader)
|
|
_GLRows.VAT = _uow.FindObject(Of VAT)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_r("Áfahiv")))
|
|
_GLRows.DateVAT = dr_h("ÁfaDátum")
|
|
_GLRows.AmountDEV = dr_r("ÖsszegAFADeviza")
|
|
_GLRows.AmountHUF = dr_r("ÖsszegAFA")
|
|
_GLRows.ConnectInfo = dr_r("Bizonylatszám_P")
|
|
_GLRows.Controlling = Nothing
|
|
_GLRows.CostHolder = Nothing
|
|
_GLRows.CostPlace = Nothing
|
|
_GLRows.PartnerType = _GLAccounts.PartnerType
|
|
If _GLAccounts.PartnerType = ePartnerType.ePayabels Then
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear", dr_h("S_Ügyfél"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_r("S_ÁFA"), _GLRows.GLHeader.DateExecution.Year))
|
|
If _GLRows.VAT IsNot Nothing Then
|
|
If _GLRows.VAT.InversState = True Then
|
|
_GLRows.DebitChartOfAccounts = _GLRows.VAT.GetChartOfAccounts(_GLRows.DateVAT.Year, eVATMode.eOut)
|
|
_GLRows.CreditChartOfAccounts = _GLRows.VAT.GetChartOfAccounts(_GLRows.DateVAT.Year, eVATMode.eIn)
|
|
If dr_h("Deviza") = "HUF" Then
|
|
_GLRows.AmountDEV = 0
|
|
_GLRows.AmountHUF = Math.Round(dr_r("ÖsszegNetto") * _GLRows.VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero)
|
|
Else
|
|
_GLRows.AmountDEV = Math.Round(dr_r("ÖsszegNettoDeviza") * _GLRows.VAT.InversKeyValue, 2, MidpointRounding.AwayFromZero)
|
|
_GLRows.AmountHUF = Math.Round(dr_r("ÖsszegNettoDeviza") * Math.Round(dr_h("Árfolyam"), 2, MidpointRounding.AwayFromZero) * _GLRows.VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero)
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
Else
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_h("S_Ügyfél"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_r("S_ÁFA"), _GLRows.GLHeader.DateExecution.Year))
|
|
End If
|
|
|
|
_GLRows.GLRowsGUID = _GUID
|
|
_GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow
|
|
_GLRows.JobNumberObjects = Nothing
|
|
_GLRows.NoteRows = dr_r("Megjegyzés")
|
|
_GLRows.TransactionType = eTransactionType.eNotSet
|
|
_GLRows.UniqueObjects = Nothing
|
|
_GLRows.Customer = _GLAccounts.Customers
|
|
|
|
End If
|
|
End While
|
|
conn_r.Close()
|
|
_GLAccounts.RecalculateTotal(True)
|
|
End If
|
|
End If
|
|
End While
|
|
End If
|
|
conn_h.Close()
|
|
|
|
|
|
End Sub
|
|
Public Sub Import_GLBank(ByVal _Cassa As Long, ByVal _LiquidAssets As LiquidAssets, ByVal _Date As String, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, ByVal _ConnectionString As String)
|
|
'// MS SQL régi rendszerből importál Folyószámlából
|
|
Dim conn_h As New SqlConnection(_ConnectionString)
|
|
Dim conn_r As New SqlConnection(_ConnectionString)
|
|
|
|
Dim cmd_h As New SqlCommand
|
|
Dim dr_h As SqlDataReader
|
|
|
|
Dim cmd_r As New SqlCommand
|
|
|
|
Dim mSQL As String
|
|
Dim i As Long = 1
|
|
|
|
Dim _GLBank As GLBank = Nothing
|
|
Dim _GLRows As GLRows = Nothing
|
|
Dim _GLBank_Collection As New XPCollection(Of GLBank)(_uow, CriteriaOperator.Parse("DateExecution=? and CustomersFrom=? and LiquidAssets_Main=?", _Date, _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid), _uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets.Oid)))
|
|
|
|
For Each _GLBank In _GLBank_Collection
|
|
_uow.Delete(_GLBank.GLRows)
|
|
Next
|
|
_uow.Delete(_GLBank_Collection)
|
|
|
|
mSQL = "select t1.Date,t1.ID,TömbSorszám=isnull(t1.TömbSorszám,''),t1.Date,"
|
|
mSQL = mSQL & " Megjegyzés=isnull(t1.Megjegyzés,''),t2.QTT_Sum,t2.DQTT_Sum,"
|
|
mSQL = mSQL & " Bizonylatszám_P=isnull(t2.Bizonylatszám_P,''),"
|
|
mSQL = mSQL & " Comment=isnull(t3.Comment,''),SorMegjegyzés=isnull(t2.Comment,''),"
|
|
mSQL = mSQL & " Ügyfélszám=isnull(t2.Ügyfélszám,0),"
|
|
mSQL = mSQL & " TranType=t2.TranType,t2.Mode,"
|
|
|
|
mSQL = mSQL & " M_Költség=isnull(t4.Megnevezés,'')"
|
|
|
|
mSQL = mSQL & " from Cassa_Sum t1 join Cassa_Detail t2 on"
|
|
mSQL = mSQL & " t1.LinkNumber=t2.LinkNumber left join Cassa t3 on"
|
|
mSQL = mSQL & " t1.Cassa=t3.Cassa left join Költségek t4 on"
|
|
mSQL = mSQL & " t2.KöltségID=t4.ID"
|
|
|
|
mSQL = mSQL & " Where t1.Cassa=" & _Cassa & " and "
|
|
mSQL = mSQL & " t1.Date ='" & _Date & "'"
|
|
mSQL = mSQL & " Order by t1.ID,t2.ID"
|
|
|
|
cmd_h.CommandTimeout = 60
|
|
cmd_h.Connection = conn_h
|
|
cmd_h.CommandType = CommandType.Text
|
|
cmd_h.CommandText = mSQL
|
|
conn_h.Open()
|
|
If conn_h.State = ConnectionState.Open Then
|
|
dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_h.Read
|
|
If i = 1 Then
|
|
_GLBank = New GLBank(_uow)
|
|
_GLBank.LiquidAssets_Main = _LiquidAssets
|
|
_GLBank.CustomersFrom = _CustomersFrom
|
|
_GLBank.DateCreated = dr_h("Date")
|
|
_GLBank.DateExecution = dr_h("Date")
|
|
_GLBank.DatePayment = dr_h("Date")
|
|
_GLBank.DocumentNumber = dr_h("TömbSorszám")
|
|
_GLBank.GLDocumentType = eGLDocumentType.eGLBank
|
|
_GLBank.IsEditable = False
|
|
_GLBank.IsStorno = False
|
|
_GLBank.NoteHeader = dr_h("Megjegyzés")
|
|
i += 1
|
|
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLBank.Oid))
|
|
_uow.Delete(_GLRows_Collection)
|
|
End If
|
|
If _GLBank IsNot Nothing Then
|
|
_GLRows = New GLRows(_uow)
|
|
_GLRows.GLHeader = TryCast(_GLBank, GLHeader)
|
|
_GLRows.AmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.AmountDEV = dr_h("DQTT_Sum")
|
|
_GLRows.ConnectInfo = dr_h("Bizonylatszám_P")
|
|
_GLRows.NoteRows = dr_h("SorMegjegyzés")
|
|
_GLRows.LiquidAssets = _LiquidAssets
|
|
_GLRows.GLRowsGUID = Guid.NewGuid
|
|
Select Case dr_h("TranType")
|
|
Case "Szállítói jóváírás"
|
|
_GLRows.PartnerType = ePartnerType.ePayabels
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn)
|
|
Case "Szállítói terhelés"
|
|
_GLRows.PartnerType = ePartnerType.ePayabels
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn)
|
|
_GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
Case "Vevői jóváírás"
|
|
_GLRows.PartnerType = ePartnerType.eReceivables
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut)
|
|
Case "Vevői terhelés"
|
|
_GLRows.PartnerType = ePartnerType.eReceivables
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut)
|
|
_GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
Case Else
|
|
_GLRows.PartnerType = ePartnerType.eNotSet
|
|
If dr_h("Mode") = 0 Then
|
|
_GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
Else
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
End If
|
|
End Select
|
|
If dr_h("Mode") = 0 Then 'Jóváírás
|
|
_GLRows.InAmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.InAmountDEV = dr_h("DQTT_Sum")
|
|
Else 'Terhelés
|
|
_GLRows.OutAmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.OutAmountDEV = dr_h("DQTT_Sum")
|
|
End If
|
|
|
|
End If
|
|
End While
|
|
If _GLBank IsNot Nothing Then _GLBank.RecalculateTotal()
|
|
End If
|
|
conn_h.Close()
|
|
End Sub
|
|
Public Sub Import_GLCassa(ByVal _Cassa As Long, ByVal _LiquidAssets As LiquidAssets, ByVal _LinkNumber As String, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, ByVal _ConnectionString As String)
|
|
'// MS SQL régi rendszerből importál Folyószámlából
|
|
Dim conn_h As New SqlConnection(_ConnectionString)
|
|
Dim conn_r As New SqlConnection(_ConnectionString)
|
|
|
|
Dim cmd_h As New SqlCommand
|
|
Dim dr_h As SqlDataReader
|
|
|
|
Dim cmd_r As New SqlCommand
|
|
Dim dr_r As SqlDataReader = Nothing
|
|
|
|
Dim mSQL As String
|
|
Dim i As Long = 1
|
|
|
|
|
|
Dim _Customers As Customers = Nothing
|
|
Dim _GLCassa As GLCassa = Nothing
|
|
Dim _GLRows As GLRows
|
|
Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(_uow, CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom=? and LiquidAssets_Cassa=?", _
|
|
_LinkNumber, _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid), _
|
|
_uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets.Oid)))
|
|
For Each _GLCassa In _GLCassa_Collection
|
|
_uow.Delete(_GLCassa.GLRows)
|
|
Next
|
|
_uow.Delete(_GLCassa_Collection)
|
|
|
|
mSQL = "select t1.Date,t1.ID,TömbSorszám=isnull(t1.TömbSorszám,''),t1.Date,"
|
|
mSQL = mSQL & " Megjegyzés=isnull(t1.Megjegyzés,''),t2.QTT_Sum,t2.DQTT_Sum,"
|
|
mSQL = mSQL & " Bizonylatszám_P=isnull(t2.Bizonylatszám_P,''),"
|
|
mSQL = mSQL & " Comment=isnull(t3.Comment,''),SorMegjegyzés=isnull(t2.Comment,''),"
|
|
mSQL = mSQL & " Ügyfélszám=isnull(t2.Ügyfélszám,0),"
|
|
mSQL = mSQL & " TranType=t2.TranType,t2.Mode"
|
|
|
|
mSQL = mSQL & " M_Költség=isnull(t4.Megnevezés,'')"
|
|
|
|
mSQL = mSQL & " from Cassa_Sum t1 join Cassa_Detail t2 on"
|
|
mSQL = mSQL & " t1.LinkNumber=t2.LinkNumber left join Cassa t3 on"
|
|
mSQL = mSQL & " t1.Cassa=t3.Cassa left join Költségek t4 on"
|
|
mSQL = mSQL & " t2.KöltségID=t4.ID"
|
|
|
|
mSQL = mSQL & " Where t1.Cassa=" & _Cassa & " and "
|
|
mSQL = mSQL & " t1.LinkNumber =" & _LinkNumber
|
|
mSQL = mSQL & " Order by t1.ID,t2.ID"
|
|
cmd_h.CommandTimeout = 60
|
|
cmd_h.Connection = conn_h
|
|
cmd_h.CommandType = CommandType.Text
|
|
cmd_h.CommandText = mSQL
|
|
conn_h.Open()
|
|
If conn_h.State = ConnectionState.Open Then
|
|
dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_h.Read
|
|
If i = 1 Then
|
|
_GLCassa = New GLCassa(_uow)
|
|
_GLCassa.LiquidAssets_Cassa = _LiquidAssets
|
|
_GLCassa.CustomersFrom = _CustomersFrom
|
|
_GLCassa.DateCreated = dr_h("Date")
|
|
_GLCassa.DateExecution = dr_h("Date")
|
|
_GLCassa.DatePayment = dr_h("Date")
|
|
_GLCassa.DocumentNumber = _LinkNumber
|
|
_GLCassa.GLDocumentType = eGLDocumentType.eGLCassa
|
|
_GLCassa.IsEditable = False
|
|
_GLCassa.IsStorno = False
|
|
_GLCassa.NoteHeader = dr_h("Megjegyzés")
|
|
|
|
i += 1
|
|
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLCassa.Oid))
|
|
_uow.Delete(_GLRows_Collection)
|
|
End If
|
|
If _GLCassa IsNot Nothing Then
|
|
_GLRows = New GLRows(_uow)
|
|
_GLRows.GLHeader = TryCast(_GLCassa, GLHeader)
|
|
_GLRows.AmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.AmountDEV = dr_h("DQTT_Sum")
|
|
_GLRows.ConnectInfo = dr_h("Bizonylatszám_P")
|
|
_GLRows.NoteRows = dr_h("SorMegjegyzés")
|
|
_GLRows.GLRowsGUID = Guid.NewGuid
|
|
Select Case dr_h("TranType")
|
|
Case "Szállítói jóváírás"
|
|
_GLRows.PartnerType = ePartnerType.ePayabels
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn)
|
|
Case "Szállítói terhelés"
|
|
_GLRows.PartnerType = ePartnerType.ePayabels
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn)
|
|
_GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
Case "Vevői jóváírás"
|
|
_GLRows.PartnerType = ePartnerType.eReceivables
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut)
|
|
Case "Vevői terhelés"
|
|
_GLRows.PartnerType = ePartnerType.eReceivables
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut)
|
|
_GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
Case Else
|
|
_GLRows.PartnerType = ePartnerType.eNotSet
|
|
If dr_h("Mode") = 0 Then
|
|
_GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
Else
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
End If
|
|
End Select
|
|
If dr_h("Mode") = 0 Then 'Jóváírás
|
|
_GLRows.InAmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.InAmountDEV = dr_h("DQTT_Sum")
|
|
Else 'Terhelés
|
|
_GLRows.OutAmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.OutAmountDEV = dr_h("DQTT_Sum")
|
|
End If
|
|
|
|
End If
|
|
End While
|
|
If _GLCassa IsNot Nothing Then _GLCassa.RecalculateTotal(_GLCassa, Nothing, False)
|
|
End If
|
|
conn_h.Close()
|
|
|
|
End Sub
|
|
Public Sub Import_GLCompensation(ByVal _Cassa As Long, ByVal _LiquidAssets As LiquidAssets, ByVal _LinkNumber As String, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, ByVal _ConnectionString As String)
|
|
'// MS SQL régi rendszerből importál Folyószámlából
|
|
Dim conn_h As New SqlConnection(_ConnectionString)
|
|
Dim conn_r As New SqlConnection(_ConnectionString)
|
|
|
|
Dim cmd_h As New SqlCommand
|
|
Dim dr_h As SqlDataReader
|
|
|
|
Dim cmd_r As New SqlCommand
|
|
' Dim dr_r As SqlDataReader
|
|
|
|
Dim mSQL As String
|
|
Dim i As Long = 1
|
|
|
|
|
|
'Dim _Customers As Customers
|
|
Dim _GLCompensation As GLCompensation = Nothing
|
|
Dim _GLRows As GLRows
|
|
Dim _GLCompensation_Collection As New XPCollection(Of GLCompensation)(_uow, CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom=? and LiquidAssets_Main=?", _
|
|
"", _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid), _
|
|
_uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets.Oid)))
|
|
|
|
For Each _GLCompensation In _GLCompensation_Collection
|
|
_uow.Delete(_GLCompensation.GLRows)
|
|
Next
|
|
_uow.Delete(_GLCompensation_Collection)
|
|
_GLCompensation_Collection = New XPCollection(Of GLCompensation)(_uow, CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom=? and LiquidAssets_Main=?", _
|
|
_LinkNumber, _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid), _
|
|
_uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets.Oid)))
|
|
|
|
For Each _GLCompensation In _GLCompensation_Collection
|
|
_uow.Delete(_GLCompensation.GLRows)
|
|
Next
|
|
_uow.Delete(_GLCompensation_Collection)
|
|
|
|
mSQL = "select t1.Date,t1.ID,TömbSorszám=isnull(t1.TömbSorszám,'" & _LinkNumber & "'),t1.Date,"
|
|
mSQL = mSQL & " Megjegyzés=isnull(t1.Megjegyzés,''),t2.QTT_Sum,t2.DQTT_Sum,"
|
|
mSQL = mSQL & " Bizonylatszám_P=isnull(t2.Bizonylatszám_P,t2.Bizonylatszám),"
|
|
mSQL = mSQL & " Comment=isnull(t3.Comment,''),SorMegjegyzés=isnull(t2.Comment,''),"
|
|
mSQL = mSQL & " Ügyfélszám=isnull(t2.Ügyfélszám,0),"
|
|
|
|
mSQL = mSQL & " TranType=t2.TranType,t2.Mode,"
|
|
|
|
mSQL = mSQL & " M_Költség=isnull(t4.Megnevezés,'')"
|
|
|
|
mSQL = mSQL & " from Cassa_Sum t1 join Cassa_Detail t2 on"
|
|
mSQL = mSQL & " t1.LinkNumber=t2.LinkNumber left join Cassa t3 on"
|
|
mSQL = mSQL & " t1.Cassa=t3.Cassa left join Költségek t4 on"
|
|
mSQL = mSQL & " t2.KöltségID=t4.ID"
|
|
|
|
mSQL = mSQL & " Where t1.Cassa=" & _Cassa & " and "
|
|
mSQL = mSQL & " t1.LinkNumber =" & _LinkNumber
|
|
mSQL = mSQL & " Order by t1.ID,t2.ID"
|
|
cmd_h.CommandTimeout = 60
|
|
cmd_h.Connection = conn_h
|
|
cmd_h.CommandType = CommandType.Text
|
|
cmd_h.CommandText = mSQL
|
|
conn_h.Open()
|
|
If conn_h.State = ConnectionState.Open Then
|
|
dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_h.Read
|
|
If i = 1 Then
|
|
_GLCompensation = New GLCompensation(_uow)
|
|
_GLCompensation.LiquidAssets_Main = _LiquidAssets
|
|
_GLCompensation.CustomersFrom = _CustomersFrom
|
|
_GLCompensation.DateCreated = dr_h("Date")
|
|
_GLCompensation.DateExecution = dr_h("Date")
|
|
_GLCompensation.DatePayment = dr_h("Date")
|
|
_GLCompensation.BallanceDEV = 0
|
|
_GLCompensation.BallanceHUF = 0
|
|
If dr_h("TömbSorszám") = "" Then
|
|
_GLCompensation.DocumentNumber = _LinkNumber
|
|
Else
|
|
_GLCompensation.DocumentNumber = dr_h("TömbSorszám")
|
|
End If
|
|
_GLCompensation.GLDocumentType = eGLDocumentType.eGLCompensation
|
|
_GLCompensation.IsEditable = False
|
|
_GLCompensation.IsStorno = False
|
|
_GLCompensation.NoteHeader = dr_h("Megjegyzés")
|
|
i += 1
|
|
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLCompensation.Oid))
|
|
_uow.Delete(_GLRows_Collection)
|
|
End If
|
|
If _GLCompensation IsNot Nothing Then
|
|
_GLRows = New GLRows(_uow)
|
|
_GLRows.GLHeader = TryCast(_GLCompensation, GLHeader)
|
|
_GLRows.AmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.AmountDEV = dr_h("DQTT_Sum")
|
|
_GLRows.ConnectInfo = dr_h("Bizonylatszám_P")
|
|
_GLRows.NoteRows = dr_h("SorMegjegyzés")
|
|
_GLRows.GLRowsGUID = Guid.NewGuid
|
|
Select Case dr_h("TranType")
|
|
Case "Szállítói jóváírás"
|
|
_GLRows.PartnerType = ePartnerType.ePayabels
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn)
|
|
Case "Szállítói terhelés"
|
|
_GLRows.PartnerType = ePartnerType.ePayabels
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn)
|
|
_GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
Case "Vevői jóváírás"
|
|
_GLRows.PartnerType = ePartnerType.eReceivables
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut)
|
|
Case "Vevői terhelés"
|
|
_GLRows.PartnerType = ePartnerType.eReceivables
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut)
|
|
_GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
Case Else
|
|
_GLRows.PartnerType = ePartnerType.eNotSet
|
|
If dr_h("Mode") = 0 Then
|
|
_GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
Else
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
End If
|
|
End Select
|
|
If dr_h("Mode") = 0 Then 'Jóváírás
|
|
_GLRows.InAmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.InAmountDEV = dr_h("DQTT_Sum")
|
|
Else 'Terhelés
|
|
_GLRows.OutAmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.OutAmountDEV = dr_h("DQTT_Sum")
|
|
End If
|
|
'-- Jelölő adatok ????
|
|
|
|
End If
|
|
End While
|
|
End If
|
|
conn_h.Close()
|
|
|
|
End Sub
|
|
Public Sub Import_GLMixed(ByVal _FK_ID As Long, _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, ByVal _ConnectionString As String)
|
|
'// MS SQL régi rendszerből importál Folyószámlából
|
|
Dim conn_h As New SqlConnection(_ConnectionString)
|
|
Dim conn_r As New SqlConnection(_ConnectionString)
|
|
|
|
Dim cmd_h As New SqlCommand
|
|
Dim dr_h As SqlDataReader
|
|
|
|
Dim cmd_r As New SqlCommand
|
|
' Dim dr_r As SqlDataReader
|
|
|
|
Dim mSQL As String
|
|
Dim i As Long = 1
|
|
|
|
|
|
|
|
Dim _GLMixed As GLMixed = Nothing
|
|
Dim _GLRows As GLRows = Nothing
|
|
|
|
Dim _UniqueObjects As UniqueObjects = Nothing
|
|
Dim _JobNumberObjects As JobNumberObjects = Nothing
|
|
Dim _CostHolder As CostHolder = Nothing
|
|
Dim _CostPlace As CostPlace = Nothing
|
|
Dim _Controlling As Controlling = Nothing
|
|
|
|
mSQL = "select KSorszám=isnull(t3.KSorszám,''),t3.ED,t3.Bizonylatszám,"
|
|
mSQL = mSQL & " Megjegyzés=isnull(t3.Megjegyzés,''),IktatóSzám=isnull(t3.IktatóSzámK,''),"
|
|
mSQL = mSQL & " M_Debit=isnull(t5.Számlaszám,''),M_Credit=isnull(t6.Számlaszám,''),"
|
|
mSQL = mSQL & " t1.Összeg,S_Megjegyzés=isnull(t2.Megjegyzés,''),TD=t3.ED,"
|
|
|
|
mSQL = mSQL & " M_Munkaszám=isnull(t20.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Egyedi=isnull(t21.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Költséghely=isnull(t23.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Költségviselő=isnull(t24.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Controlling=isnull(t25.Megnevezés,'')"
|
|
|
|
mSQL = mSQL & " from sql_Cassa..FKBizonylatok_Részletes t1 join sql_Cassa..FKBizonylatok_Sorok t2 on"
|
|
mSQL = mSQL & " t1.ParentID1=t2.ID join sql_Cassa..FKBizonylatok t3 on"
|
|
mSQL = mSQL & " t1.ParentID=t3.ID left join sql_Cassa..Költségek t5 on"
|
|
mSQL = mSQL & " t1.KöltségIDSzámla=t5.ID left join sql_Cassa..Költségek t6 on"
|
|
mSQL = mSQL & " t1.KöltségIDEllenszámla=t6.ID left join Munkaszám t20 on"
|
|
mSQL = mSQL & " t2.MunkaszámID=t20.ID left join Egyedi t21 on"
|
|
mSQL = mSQL & " t2.EgyediID=t21.ID left join RögzítőKód t22 on"
|
|
mSQL = mSQL & " t2.RögzítőKódID=t22.ID left join Költséghely t23 on"
|
|
mSQL = mSQL & " t22.KöltséghelyID=t23.ID left join Költségviselő t24 on"
|
|
mSQL = mSQL & " t22.KöltségviselőID=t24.ID left join Költségviselő t25 on"
|
|
mSQL = mSQL & " t2.ControllingID=t25.ID"
|
|
|
|
mSQL = mSQL & " Where t1.Oldal='K' and t3.ID=" & _FK_ID
|
|
mSQL = mSQL & " Order by t1.ID,t2.ID"
|
|
|
|
cmd_h.CommandTimeout = 60
|
|
cmd_h.Connection = conn_h
|
|
cmd_h.CommandType = CommandType.Text
|
|
cmd_h.CommandText = mSQL
|
|
conn_h.Open()
|
|
If conn_h.State = ConnectionState.Open Then
|
|
dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_h.Read
|
|
If i = 1 Then
|
|
_GLMixed = _uow.FindObject(Of GLMixed)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom.oid=?", dr_h("KSorszám") & "->" & dr_h("Bizonylatszám"), _CustomersFrom.Oid))
|
|
If _GLMixed Is Nothing Then _GLMixed = New GLMixed(_uow)
|
|
|
|
_GLMixed.CurrencyName = _uow.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName='HUF'"))
|
|
_GLMixed.CurrencyRate = 1
|
|
_GLMixed.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid)
|
|
_GLMixed.DateCreated = dr_h("ED")
|
|
_GLMixed.DateExecution = dr_h("ED")
|
|
_GLMixed.DatePayment = dr_h("ED")
|
|
_GLMixed.DocumentNumber = dr_h("KSorszám") & "->" & dr_h("Bizonylatszám")
|
|
_GLMixed.GLDocumentType = eGLDocumentType.eGLMixed
|
|
_GLMixed.IsEditable = False
|
|
_GLMixed.IsStorno = False
|
|
_GLMixed.RegistryNumber = dr_h("IktatóSzám")
|
|
_GLMixed.NoteHeader = dr_h("Megjegyzés")
|
|
_uow.Delete(_GLMixed.GLRows)
|
|
i += 1
|
|
End If
|
|
|
|
_GLRows = New GLRows(_uow)
|
|
_GLRows.GLHeader = TryCast(_GLMixed, GLHeader)
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_h("M_Debit"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_h("M_Credit"), _GLRows.GLHeader.DateExecution.Year))
|
|
_GLRows.AmountDEV = 0
|
|
_GLRows.AmountHUF = dr_h("Összeg")
|
|
|
|
_GLRows.GLRowsGUID = Guid.NewGuid
|
|
_GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow
|
|
_GLRows.NoteRows = dr_h("S_Megjegyzés")
|
|
_GLRows.PartnerType = ePartnerType.eNotSet
|
|
_GLRows.TransactionType = eTransactionType.eNotSet
|
|
|
|
'-- Jelölőadatok beállítása
|
|
_UniqueObjects = _uow.FindObject(Of UniqueObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_h("M_Egyedi")))
|
|
If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects
|
|
_JobNumberObjects = _uow.FindObject(Of JobNumberObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_h("M_Munkaszám")))
|
|
If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects
|
|
_CostPlace = _uow.FindObject(Of CostPlace)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_h("M_Költséghely")))
|
|
If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace
|
|
_CostHolder = _uow.FindObject(Of CostHolder)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_h("M_Költségviselő")))
|
|
If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder
|
|
_Controlling = _uow.FindObject(Of Controlling)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_h("M_Controlling")))
|
|
If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling
|
|
|
|
End While
|
|
End If
|
|
conn_h.Close()
|
|
|
|
End Sub
|
|
Public Sub Import_Invoice(ByVal conn As SqlConnection, ByVal ID As Long, ByVal _InvoiceHeader As InvoiceHeader, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom)
|
|
'Dim cmd_h As New SqlCommand
|
|
'Dim dr_h As SqlDataReader
|
|
|
|
'Dim cmd_r As New SqlCommand
|
|
'Dim dr_r As SqlDataReader
|
|
|
|
'Dim _Customers As Customers
|
|
'Dim mSQL As String
|
|
'Dim _InvoiceRows As InvoiceRows
|
|
'mSQL = "select t1.Ügyfélszám "
|
|
'mSQL = mSQL & " from sql_Main..Számlaössz t1"
|
|
'mSQL = mSQL & " Where t1.ID=" & ID
|
|
|
|
'cmd_h.CommandTimeout = 60
|
|
'cmd_h.Connection = conn
|
|
'cmd_h.CommandType = CommandType.Text
|
|
'cmd_h.CommandText = mSQL
|
|
'conn.Open()
|
|
'If conn.State = ConnectionState.Open Then
|
|
' dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult)
|
|
' While dr_h.Read
|
|
' _Customers = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
' CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
' If _Customers IsNot Nothing Then
|
|
|
|
' _InvoiceHeader = _uow.FindObject(Of InvoiceHeader)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
' CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and DocumentNumber=?", _
|
|
' _CustomersFrom.Oid, _Customers.Oid, dr_h("Bizonylatszám")))
|
|
' If _InvoiceHeader Is Nothing Then _InvoiceHeader = New InvoiceHeader(_uow)
|
|
|
|
' _InvoiceHeader.BankInformation
|
|
' _InvoiceHeader.BookEntryErrorString
|
|
' _InvoiceHeader.ConnectInfo
|
|
' _InvoiceHeader.CurrencyName
|
|
' _InvoiceHeader.Customers = _Customers
|
|
' _InvoiceHeader.CustomersFrom = _CustomersFrom
|
|
' _InvoiceHeader.DateCreated
|
|
' _InvoiceHeader.DateExecution
|
|
' _InvoiceHeader.DatePayment
|
|
' _InvoiceHeader.Description
|
|
' _InvoiceHeader.DocumentNumber
|
|
' _InvoiceHeader.HUNumberToText
|
|
' _InvoiceHeader.InvoiceType
|
|
' _InvoiceHeader.IsEditable = False
|
|
' _InvoiceHeader.IsStorno
|
|
' _InvoiceHeader.IsImported
|
|
' _InvoiceHeader.IsProforma
|
|
' _InvoiceHeader.PaymentOption
|
|
' _InvoiceHeader.QualityOption
|
|
' _InvoiceHeader.ReadyforBookEntry = True
|
|
' _InvoiceHeader.Saved_Customers_Address_City
|
|
' _InvoiceHeader.Saved_Customers_Address_Country
|
|
' _InvoiceHeader.Saved_Customers_Address_StateProvince
|
|
' _InvoiceHeader.Saved_Customers_Address_Street
|
|
' _InvoiceHeader.Saved_Customers_Address_ZipPostal
|
|
' _InvoiceHeader.Saved_Customers_FullAddress
|
|
' _InvoiceHeader.Saved_Customers_Name
|
|
' _InvoiceHeader.Saved_Customers_VATNumber
|
|
' _InvoiceHeader.Saved_Customers_VATNumberEU
|
|
' _InvoiceHeader.Saved_CustomersFrom_Address_City
|
|
' _InvoiceHeader.Saved_CustomersFrom_Address_Country
|
|
' _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince
|
|
' _InvoiceHeader.Saved_CustomersFrom_Address_Street
|
|
' _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal
|
|
' _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber
|
|
' _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN
|
|
' _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName
|
|
' _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT
|
|
' _InvoiceHeader.Saved_CustomersFrom_FullAddress
|
|
' _InvoiceHeader.Saved_CustomersFrom_Name
|
|
' _InvoiceHeader.Saved_CustomersFrom_VATNumber
|
|
' _InvoiceHeader.Saved_CustomersFrom_VATNumberEU
|
|
' _InvoiceHeader.ShipmentOption
|
|
' _InvoiceHeader.TotalBruttoDEV
|
|
' _InvoiceHeader.TotalBruttoHUF
|
|
|
|
' mSQL = "select Áfahiv=isnull(t1.Áfahiv,''),t2.Bizonylatszám_P,"
|
|
' mSQL = mSQL & " from Folyó_Bizonylatok_Sorok t1 join Folyó_Bizonylatok t2 on"
|
|
' mSQL = mSQL & " t1.ParentID=t2.ID"
|
|
' mSQL = mSQL & " Where t1.ParentID=" & ID
|
|
' mSQL = mSQL & " order by t1.ID"
|
|
|
|
' cmd_r.CommandTimeout = 60
|
|
' cmd_r.Connection = conn
|
|
' cmd_r.CommandType = CommandType.Text
|
|
' cmd_r.CommandText = mSQL
|
|
' conn.Open()
|
|
|
|
' Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GlHeader.Oid=?", _GLAccounts.Oid))
|
|
' _uow.Delete(_GLRows_Collection)
|
|
|
|
' If conn.State = ConnectionState.Open Then
|
|
' dr_r = cmd_r.ExecuteReader(CommandBehavior.SingleResult)
|
|
' While dr_r.Read
|
|
' _InvoiceRows.ChartOfAccounts
|
|
' _InvoiceRows.ContractRows
|
|
' _InvoiceRows.Controlling
|
|
' _InvoiceRows.CostHolder
|
|
' _InvoiceRows.CostPlace
|
|
' _InvoiceRows.CustomsTariffs
|
|
' _InvoiceRows.Description
|
|
' _InvoiceRows.DiscountPriceDEV
|
|
' _InvoiceRows.DiscountPriceHUF
|
|
' _InvoiceRows.InvoiceHeader = _InvoiceHeader
|
|
' _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromManual
|
|
' _InvoiceRows.JobNumberObjects
|
|
' _InvoiceRows.ListPriceDEV
|
|
' _InvoiceRows.ListPriceHUF
|
|
' _InvoiceRows.PriceDEV
|
|
' _InvoiceRows.PriceHUF
|
|
' _InvoiceRows.QTT
|
|
' _InvoiceRows.QTT
|
|
' _InvoiceRows.QualityOption
|
|
' _InvoiceRows.ReadyforBookEntryRows
|
|
' _InvoiceRows.RowIndex
|
|
' _InvoiceRows.ShortName
|
|
' _InvoiceRows.UniqueObjects
|
|
' _InvoiceRows.Units
|
|
' _InvoiceRows.VAT
|
|
' _InvoiceRows.WorkflowSystemSteps
|
|
' End If
|
|
' End While
|
|
'End If
|
|
End Sub
|
|
Public Sub Import_Invoice_E(ByVal conn As SqlConnection, ByVal ID As Long, ByVal _InvoiceHeader As InvoiceHeader, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom)
|
|
Dim cmd_h As New SqlCommand
|
|
Dim dr_h As SqlDataReader
|
|
|
|
Dim cmd_r As New SqlCommand
|
|
Dim dr_r As SqlDataReader
|
|
|
|
Dim _Customers As Customers
|
|
Dim mSQL As String
|
|
Dim _InvoiceRows As InvoiceRows
|
|
mSQL = "select t1.Ügyfélszám,Bankszámlaszám=isnull(t1.Bankszámlaszám,''),Bizonylatszám=isnull(t1.Bizonylatszám,''),"
|
|
mSQL = mSQL & ""
|
|
mSQL = mSQL & " from sql_Cassa..Bill_Sum t1"
|
|
mSQL = mSQL & " Where t1.ID=" & ID
|
|
|
|
cmd_h.CommandTimeout = 60
|
|
cmd_h.Connection = conn
|
|
cmd_h.CommandType = CommandType.Text
|
|
cmd_h.CommandText = mSQL
|
|
conn.Open()
|
|
If conn.State = ConnectionState.Open Then
|
|
dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_h.Read
|
|
_Customers = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
If _Customers IsNot Nothing Then
|
|
|
|
End If
|
|
_InvoiceHeader = _uow.FindObject(Of InvoiceHeader)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and DocumentNumber=?", _
|
|
_CustomersFrom.Oid, _Customers.Oid, dr_h("Bizonylatszám")))
|
|
If _InvoiceHeader Is Nothing Then _InvoiceHeader = New InvoiceHeader(_uow)
|
|
|
|
_InvoiceHeader.BankInformation = _uow.FindObject(Of BankInformation)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=?", dr_h("Bankszámlaszám")))
|
|
_InvoiceHeader.ConnectInfo = dr_h("Bizonylatszám")
|
|
_InvoiceHeader.CurrencyName = _uow.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_h("Deviza")))
|
|
_InvoiceHeader.Customers = _Customers
|
|
_InvoiceHeader.CustomersFrom = _CustomersFrom
|
|
_InvoiceHeader.DateCreated = dr_h("KD")
|
|
_InvoiceHeader.DateExecution = dr_h("TD")
|
|
_InvoiceHeader.DatePayment = dr_h("ED")
|
|
_InvoiceHeader.Description = dr_h("Note")
|
|
_InvoiceHeader.DocumentNumber = dr_h("Bizonylatszám")
|
|
_InvoiceHeader.HUNumberToText = dr_h("AzazStr")
|
|
_InvoiceHeader.IsEditable = False
|
|
_InvoiceHeader.IsImported = True
|
|
_InvoiceHeader.IsProforma = False
|
|
_InvoiceHeader.ReadyforBookEntry = False
|
|
_InvoiceHeader.Saved_Customers_Address_City = _Customers.Address1.City
|
|
_InvoiceHeader.Saved_Customers_Address_Country = _Customers.Address1.Country.Name
|
|
_InvoiceHeader.Saved_Customers_Address_StateProvince = _Customers.Address1.StateProvince
|
|
_InvoiceHeader.Saved_Customers_Address_Street = _Customers.Address1.Street
|
|
_InvoiceHeader.Saved_Customers_Address_ZipPostal = _Customers.Address1.ZipPostal
|
|
_InvoiceHeader.Saved_Customers_Name = _Customers.Name
|
|
_InvoiceHeader.Saved_Customers_VATNumber = _Customers.VATNumber
|
|
_InvoiceHeader.Saved_Customers_VATNumberEU = _Customers.VATNumberEU
|
|
|
|
_InvoiceHeader.Saved_CustomersFrom_Address_City = _CustomersFrom.Address1.City
|
|
_InvoiceHeader.Saved_CustomersFrom_Address_Country = _CustomersFrom.Address1.Country.Name
|
|
_InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _CustomersFrom.Address1.StateProvince
|
|
_InvoiceHeader.Saved_CustomersFrom_Address_Street = _CustomersFrom.Address1.Street
|
|
_InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _CustomersFrom.Address1.ZipPostal
|
|
_InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber
|
|
_InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN
|
|
_InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = ""
|
|
_InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT
|
|
|
|
_InvoiceHeader.Saved_CustomersFrom_Name = _CustomersFrom.Name
|
|
_InvoiceHeader.Saved_CustomersFrom_VATNumber = _CustomersFrom.VATNumber
|
|
_InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _CustomersFrom.VATNumberEU
|
|
|
|
'_InvoiceHeader.TotalBruttoDEV
|
|
'_InvoiceHeader.TotalBruttoHUF
|
|
|
|
mSQL = "select D_Name=isnull(t1.D_Name,''),"
|
|
mSQL = mSQL & " from sql_Cassa..Bill_Detail t1 join sql_Cassa..Bill_Sum t2 on"
|
|
mSQL = mSQL & " t1.Bizonylatszám=t2.Bizonylatszám"
|
|
mSQL = mSQL & " Where t2.ID=" & ID
|
|
mSQL = mSQL & " order by t1.ID"
|
|
|
|
cmd_r.CommandTimeout = 60
|
|
cmd_r.Connection = conn
|
|
cmd_r.CommandType = CommandType.Text
|
|
cmd_r.CommandText = mSQL
|
|
conn.Open()
|
|
|
|
Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid))
|
|
_uow.Delete(_InvoiceRows_Collection)
|
|
Dim _RowIndex As Long = 1
|
|
If conn.State = ConnectionState.Open Then
|
|
dr_r = cmd_r.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_r.Read
|
|
_InvoiceRows = New InvoiceRows(_uow)
|
|
'_InvoiceRows.ChartOfAccounts
|
|
'_InvoiceRows.ContractRows
|
|
'_InvoiceRows.Controlling
|
|
'_InvoiceRows.CostHolder
|
|
'_InvoiceRows.CostPlace
|
|
'_InvoiceRows.CustomsTariffs
|
|
_InvoiceRows.Description = dr_r("")
|
|
_InvoiceRows.DiscountPriceDEV = 0
|
|
_InvoiceRows.DiscountPriceHUF = 0
|
|
_InvoiceRows.InvoiceHeader = _InvoiceHeader
|
|
_InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromManual
|
|
'_InvoiceRows.JobNumberObjects
|
|
'_InvoiceRows.ListPriceDEV
|
|
'_InvoiceRows.ListPriceHUF
|
|
'_InvoiceRows.PriceDEV
|
|
'_InvoiceRows.PriceHUF
|
|
'_InvoiceRows.QTT
|
|
'_InvoiceRows.QTT
|
|
'_InvoiceRows.QualityOption
|
|
_InvoiceRows.ReadyforBookEntryRows = False
|
|
'_InvoiceRows.RowIndex
|
|
'_InvoiceRows.ShortName
|
|
'_InvoiceRows.UniqueObjects
|
|
'_InvoiceRows.Units
|
|
'_InvoiceRows.VAT
|
|
'_InvoiceRows.WorkflowSystemSteps
|
|
|
|
End While
|
|
End If
|
|
end while
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub Import_FN(ByVal _uow As UnitOfWork, ByVal _LinkNumber As String, ByVal _CustomersFrom As CustomersFrom, ByVal _ConnectionString As String)
|
|
'// MS SQL régi rendszerből importál Folyószámlából
|
|
Dim conn_h As New SqlConnection(_ConnectionString)
|
|
Dim conn_r As New SqlConnection(_ConnectionString)
|
|
|
|
Dim cmd_h As New SqlCommand
|
|
Dim dr_h As SqlDataReader
|
|
|
|
Dim cmd_r As New SqlCommand
|
|
' Dim dr_r As SqlDataReader
|
|
|
|
Dim mSQL As String
|
|
Dim i As Long = 1
|
|
|
|
Dim _ChartOfAccounts_Open As ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='491'"))
|
|
If _ChartOfAccounts_Open Is Nothing Then Exit Sub
|
|
|
|
'Dim _Customers As Customers
|
|
Dim _GLMixed As GLMixed
|
|
Dim _GLRows As GLRows
|
|
Dim _GLMixed_Collection As New XPCollection(Of GLMixed)(_uow, CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom=?", _
|
|
_LinkNumber, _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid)))
|
|
_uow.Delete(_GLMixed_Collection)
|
|
|
|
mSQL = "select t1.Date,t1.ID,TömbSorszám=isnull(t1.TömbSorszám,''),t1.Date,"
|
|
mSQL = mSQL & " Megjegyzés=isnull(t1.Megjegyzés,''),t2.QTT_Sum,t2.DQTT_Sum,"
|
|
mSQL = mSQL & " Bizonylatszám_P=isnull(t2.Bizonylatszám_P,''),"
|
|
mSQL = mSQL & " Comment=isnull(t3.Comment,''),SorMegjegyzés=isnull(t2.Comment,''),"
|
|
mSQL = mSQL & " Ügyfélszám=isnull(t2.Ügyfélszám,0),"
|
|
mSQL = mSQL & " TranType=t1.TranType,t2.Mode,"
|
|
|
|
mSQL = mSQL & " M_Költség=isnull(t4.Megnevezés,'')"
|
|
|
|
mSQL = mSQL & " from Cassa_Sum t1 join Cassa_Detail t2 on"
|
|
mSQL = mSQL & " t1.LinkNumber=t2.LinkNumber left join Cassa t3 on"
|
|
mSQL = mSQL & " t1.Cassa=t3.Cassa left join Költségek t4 on"
|
|
mSQL = mSQL & " t2.KöltségID=t4.ID"
|
|
|
|
mSQL = mSQL & " Where t2.PBizonylatszám='" & _LinkNumber & "'"
|
|
|
|
cmd_h.CommandTimeout = 60
|
|
cmd_h.Connection = conn_h
|
|
cmd_h.CommandType = CommandType.Text
|
|
cmd_h.CommandText = mSQL
|
|
conn_h.Open()
|
|
If conn_h.State = ConnectionState.Open Then
|
|
dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_h.Read
|
|
If i = 1 Then
|
|
_GLMixed = New GLMixed(_uow)
|
|
_GLMixed.CustomersFrom = _CustomersFrom
|
|
_GLMixed.DateCreated = dr_h("Date")
|
|
_GLMixed.DateExecution = dr_h("Date")
|
|
_GLMixed.DatePayment = dr_h("Date")
|
|
_GLMixed.DocumentNumber = _LinkNumber
|
|
_GLMixed.GLDocumentType = eGLDocumentType.eGLMixed
|
|
_GLMixed.IsEditable = False
|
|
_GLMixed.IsStorno = False
|
|
_GLMixed.NoteHeader = dr_h("Megjegyzés")
|
|
|
|
i += 1
|
|
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLMixed.Oid))
|
|
_uow.Delete(_GLRows_Collection)
|
|
End If
|
|
If _GLMixed IsNot Nothing Then
|
|
_GLRows = New GLRows(_uow)
|
|
_GLRows.GLHeader = TryCast(_GLMixed, GLHeader)
|
|
_GLRows.AmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.AmountDEV = dr_h("DQTT_Sum")
|
|
_GLRows.ConnectInfo = dr_h("Bizonylatszám_P")
|
|
_GLRows.NoteRows = dr_h("SorMegjegyzés")
|
|
Select Case dr_h("TranType")
|
|
Case "Szállítói jóváírás"
|
|
_GLRows.PartnerType = ePartnerType.ePayabels
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open
|
|
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(Year(dr_h("Date")), eVATMode.eIn)
|
|
Case "Szállítói terhelés"
|
|
_GLRows.PartnerType = ePartnerType.ePayabels
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(Year(dr_h("Date")), eVATMode.eIn)
|
|
_GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open
|
|
Case "Vevői jóváírás"
|
|
_GLRows.PartnerType = ePartnerType.eReceivables
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open
|
|
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(Year(dr_h("Date")), eVATMode.eOut)
|
|
Case "Vevői terhelés"
|
|
_GLRows.PartnerType = ePartnerType.eReceivables
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(Year(dr_h("Date")), eVATMode.eOut)
|
|
_GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open
|
|
Case Else
|
|
_GLRows.PartnerType = ePartnerType.eNotSet
|
|
If dr_h("Mode") = 0 Then
|
|
_GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), Year(dr_h("Date"))))
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
Else
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), Year(dr_h("Date"))))
|
|
_GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open
|
|
_GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
End If
|
|
End Select
|
|
If dr_h("Mode") = 0 Then 'Jóváírás
|
|
_GLRows.InAmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.InAmountDEV = dr_h("DQTT_Sum")
|
|
Else 'Terhelés
|
|
_GLRows.OutAmountHUF = dr_h("QTT_Sum")
|
|
_GLRows.OutAmountDEV = dr_h("DQTT_Sum")
|
|
End If
|
|
|
|
End If
|
|
End While
|
|
|
|
End If
|
|
conn_h.Close()
|
|
|
|
|
|
End Sub
|
|
Public Sub Import_FN_1(ByVal _ID As Long, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, _ConnectionString As String)
|
|
'// MS SQL régi rendszerből importál Folyószámlából
|
|
Dim conn_h As New SqlConnection(_ConnectionString)
|
|
Dim conn_r As New SqlConnection(_ConnectionString)
|
|
|
|
Dim cmd_h As New SqlCommand
|
|
Dim dr_h As SqlDataReader
|
|
|
|
Dim cmd_r As New SqlCommand
|
|
Dim dr_r As SqlDataReader
|
|
|
|
Dim mSQL As String
|
|
Dim _Customers As Customers
|
|
Dim _GLRows As GLRows
|
|
Dim _GUID As Guid
|
|
Dim _GLAccounts As GLAccounts
|
|
Dim _PaymentOption As PaymentOption
|
|
|
|
Dim _UniqueObjects As UniqueObjects
|
|
Dim _JobNumberObjects As JobNumberObjects
|
|
Dim _CostHolder As CostHolder
|
|
Dim _CostPlace As CostPlace
|
|
Dim _Controlling As Controlling
|
|
|
|
Dim _ChartOfAccounts_Open As ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='491'"))
|
|
If _ChartOfAccounts_Open Is Nothing Then Exit Sub
|
|
|
|
mSQL = "select Ügyfélszám=t2.CégAlany,t1.BizTipus,Bizonylatszám=isnull(t1.Bizonylatszám,''),t1.TD,t1.ED,t1.KD,t1.ÁFADátum,"
|
|
mSQL = mSQL & " Árfolyam=isnull(t2.Árfolyam,1),IktatóSzám=isnull(t1.IktatóSzám,''),"
|
|
mSQL = mSQL & " S_Ügyfél=case when t1.BizTipus=0 then isnull(t6.Számlaszám,'') else isnull(t5.Számlaszám,'') end,"
|
|
mSQL = mSQL & " t2.Storno,Megjegyzés=isnull(t1.Megjegyzés,''),Deviza=isnull(t1.Deviza,''),"
|
|
mSQL = mSQL & " ID_Dokument_Header=isnull(t2.ID_Dokument_Header,-1),"
|
|
|
|
mSQL = mSQL & " FizetésiMód=isnull(t1.FizetésiMód,'')"
|
|
|
|
mSQL = mSQL & " from sql_Cassa..vv_ÖsszLista t1 left join sql_Cassa..Folyó_Bizonylatok t2 on"
|
|
mSQL = mSQL & " t1.ID=t2.ID left join sql_Main..Ügyféltörzs t3 on"
|
|
mSQL = mSQL & " t2.CégAlany=t3.Ügyfélszám left join Ügyféltörzs_Mode t4 on"
|
|
mSQL = mSQL & " t3.Mode=t4.Mode left join sql_Cassa..Költségek t5 on"
|
|
mSQL = mSQL & " t4.KöltségIDIn=t5.ID left join sql_Cassa..Költségek t6 on"
|
|
mSQL = mSQL & " t4.KöltségIDOut=t6.ID"
|
|
|
|
mSQL = mSQL & " Where t1.ID=" & _ID
|
|
|
|
cmd_h.CommandTimeout = 60
|
|
cmd_h.Connection = conn_h
|
|
cmd_h.CommandType = CommandType.Text
|
|
cmd_h.CommandText = mSQL
|
|
conn_h.Open()
|
|
If conn_h.State = ConnectionState.Open Then
|
|
dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_h.Read
|
|
_PaymentOption = _uow.FindObject(Of PaymentOption)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_h("FizetésiMód")))
|
|
If _PaymentOption Is Nothing Then
|
|
_PaymentOption = New PaymentOption(_uow)
|
|
If UCase(dr_h("FizetésiMód")) = "KÉSZPÉNZ" Then
|
|
_PaymentOption.PayMode = ePayMode.InCash
|
|
_PaymentOption.PayDay = 0
|
|
_PaymentOption.ShortName = dr_h("FizetésiMód")
|
|
_PaymentOption.Description = dr_h("FizetésiMód")
|
|
Else
|
|
_PaymentOption.PayMode = ePayMode.InTransfer
|
|
_PaymentOption.PayDay = 8
|
|
_PaymentOption.ShortName = dr_h("FizetésiMód")
|
|
_PaymentOption.Description = dr_h("FizetésiMód")
|
|
End If
|
|
End If
|
|
_Customers = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString))
|
|
If _Customers IsNot Nothing Then
|
|
|
|
_GLAccounts = _uow.FindObject(Of GLAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
|
CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and PartnerType=? and DocumentNumber=?", _
|
|
_CustomersFrom.Oid, _Customers.Oid, dr_h("BizTipus"), dr_h("Bizonylatszám")))
|
|
If _GLAccounts Is Nothing Then _GLAccounts = New GLAccounts(_uow)
|
|
|
|
_GLAccounts.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid)
|
|
_GLAccounts.Customers = _Customers
|
|
_GLAccounts.PaymentOption = _PaymentOption
|
|
|
|
_GLAccounts.CurrencyName = _uow.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_h("Deviza")))
|
|
If dr_h("Deviza") = "HUF" Then
|
|
_GLAccounts.CurrencyRate = 1
|
|
_GLAccounts.CurrencyRateVAT() = 1
|
|
Else
|
|
_GLAccounts.CurrencyRate = dr_h("Árfolyam")
|
|
_GLAccounts.CurrencyRateVAT() = dr_h("Árfolyam")
|
|
End If
|
|
'_GLAccounts.CustomerBankAccounts
|
|
_GLAccounts.DateCreated = dr_h("KD")
|
|
_GLAccounts.DateExecution = dr_h("TD")
|
|
_GLAccounts.DatePayment = dr_h("ED")
|
|
_GLAccounts.DocumentNumber = dr_h("Bizonylatszám")
|
|
_GLAccounts.GLDocumentType = eGLDocumentType.eGLAccount
|
|
_GLAccounts.IsEditable = False
|
|
_GLAccounts.IsStorno = dr_h("Storno")
|
|
_GLAccounts.NoteHeader = dr_h("Megjegyzés")
|
|
_GLAccounts.PartnerType = dr_h("BizTipus")
|
|
'_GLAccounts.PaymentOption
|
|
_GLAccounts.RegistryNumber = dr_h("IktatóSzám")
|
|
_GLAccounts.IsRegistry = False
|
|
|
|
If dr_h("ID_Dokument_Header") > 0 Then
|
|
Dim _FS As FileStream
|
|
Dim _FilePath As String
|
|
|
|
_FilePath = LoadFileFromSQL(dr_h("ID_Dokument_Header"), _ConnectionString)
|
|
If System.IO.File.Exists(_FilePath) Then
|
|
_FS = New FileStream(_FilePath, FileMode.Open)
|
|
|
|
_GLAccounts.DocumentFile = New FileData(_uow)
|
|
_GLAccounts.DocumentFile.LoadFromStream(_FilePath, _FS)
|
|
_GLAccounts.DocumentFile.FileName = System.IO.Path.GetFileName(_FilePath)
|
|
|
|
_FS.Close()
|
|
_FS = Nothing
|
|
End If
|
|
End If
|
|
|
|
mSQL = "select Áfahiv=isnull(t1.Áfahiv,''),Bizonylatszám_P=isnull(t2.Bizonylatszám_P,''),t1.ÖsszegNetto,t1.ÖsszegNettoDeviza,"
|
|
mSQL = mSQL & " t1.ÖsszegAFADeviza,t1.ÖsszegAFA,"
|
|
mSQL = mSQL & " S_Költség=isnull(t3.Számlaszám,''),t1.Megjegyzés,"
|
|
mSQL = mSQL & " S_ÁFA=case when t2.BizTipus=0 then isnull(t5.Számlaszám,'') else isnull(t6.Számlaszám,'') end,"
|
|
|
|
mSQL = mSQL & " M_Munkaszám=isnull(t20.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Egyedi=isnull(t21.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Költséghely=isnull(t23.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Költségviselő=isnull(t24.Megnevezés,''),"
|
|
mSQL = mSQL & " M_Controlling=isnull(t25.Megnevezés,'')"
|
|
|
|
mSQL = mSQL & " from Folyó_Bizonylatok_Sorok t1 join sql_Cassa..Folyó_Bizonylatok t2 on"
|
|
mSQL = mSQL & " t1.ParentID=t2.ID left join sql_Cassa..Költségek t3 on"
|
|
mSQL = mSQL & " t1.KöltségID=t3.ID left join sql_Cassa..VAT t4 on"
|
|
mSQL = mSQL & " t1.Áfahiv=t4.ShortName left join sql_Cassa..Költségek t5 on"
|
|
mSQL = mSQL & " t4.KöltségIDOut=t5.ID left join sql_Cassa..Költségek t6 on"
|
|
mSQL = mSQL & " t4.KöltségIDIn=t6.ID left join Munkaszám t20 on"
|
|
mSQL = mSQL & " t1.MunkaszámID=t20.ID left join Egyedi t21 on"
|
|
mSQL = mSQL & " t1.EgyediID=t21.ID left join RögzítőKód t22 on"
|
|
mSQL = mSQL & " t1.RögzítőKódID=t22.ID left join Költséghely t23 on"
|
|
mSQL = mSQL & " t22.KöltséghelyID=t23.ID left join Költségviselő t24 on"
|
|
mSQL = mSQL & " t22.KöltségviselőID=t24.ID left join Költségviselő t25 on"
|
|
mSQL = mSQL & " t1.ControllingID=t25.ID"
|
|
|
|
mSQL = mSQL & " Where t1.ParentID=" & _ID
|
|
mSQL = mSQL & " order by t1.ID"
|
|
|
|
cmd_r.CommandTimeout = 60
|
|
cmd_r.Connection = conn_r
|
|
cmd_r.CommandType = CommandType.Text
|
|
cmd_r.CommandText = mSQL
|
|
conn_r.Open()
|
|
|
|
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLAccounts.Oid))
|
|
_uow.Delete(_GLRows_Collection)
|
|
|
|
If conn_r.State = ConnectionState.Open Then
|
|
dr_r = cmd_r.ExecuteReader(CommandBehavior.SingleResult)
|
|
While dr_r.Read
|
|
_GUID = Guid.NewGuid
|
|
_GLRows = New GLRows(_uow)
|
|
_GLRows.GLHeader = TryCast(_GLAccounts, GLHeader)
|
|
_GLRows.AmountDEV = dr_r("ÖsszegNettoDeviza")
|
|
_GLRows.AmountHUF = dr_r("ÖsszegNetto")
|
|
If LTrim(RTrim(dr_r("Bizonylatszám_P"))) = "" Then
|
|
_GLRows.ConnectInfo = _GLAccounts.DocumentNumber
|
|
Else
|
|
_GLRows.ConnectInfo = dr_r("Bizonylatszám_P")
|
|
End If
|
|
_GLRows.Controlling = Nothing
|
|
_GLRows.CostHolder = Nothing
|
|
_GLRows.CostPlace = Nothing
|
|
_GLRows.PartnerType = _GLAccounts.PartnerType
|
|
If _GLAccounts.PartnerType = ePartnerType.ePayabels Then
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=?", dr_h("S_Ügyfél")))
|
|
_GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open
|
|
Else
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=?", dr_h("S_Ügyfél")))
|
|
_GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open
|
|
End If
|
|
|
|
_GLRows.GLRowsGUID = _GUID
|
|
_GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow
|
|
_GLRows.JobNumberObjects = Nothing
|
|
_GLRows.NoteRows = dr_r("Megjegyzés")
|
|
_GLRows.TransactionType = eTransactionType.eNotSet
|
|
_GLRows.UniqueObjects = Nothing
|
|
_GLRows.Customer = _GLAccounts.Customers
|
|
_GLRows.VAT = _uow.FindObject(Of VAT)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_r("Áfahiv")))
|
|
_GLRows.DateVAT = dr_h("ÁfaDátum")
|
|
|
|
'-- Jelölőadatok beállítása
|
|
_UniqueObjects = _uow.FindObject(Of UniqueObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Egyedi")))
|
|
If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects
|
|
_JobNumberObjects = _uow.FindObject(Of JobNumberObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Munkaszám")))
|
|
If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects
|
|
_CostPlace = _uow.FindObject(Of CostPlace)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Költséghely")))
|
|
If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace
|
|
_CostHolder = _uow.FindObject(Of CostHolder)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Költségviselő")))
|
|
If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder
|
|
_Controlling = _uow.FindObject(Of Controlling)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Controlling")))
|
|
If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling
|
|
|
|
If dr_r("Áfahiv") <> "" Then
|
|
_GLRows = New GLRows(_uow)
|
|
_GLRows.GLHeader = TryCast(_GLAccounts, GLHeader)
|
|
_GLRows.VAT = _uow.FindObject(Of VAT)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_r("Áfahiv")))
|
|
_GLRows.DateVAT = dr_h("ÁfaDátum")
|
|
_GLRows.AmountDEV = dr_r("ÖsszegAFADeviza")
|
|
_GLRows.AmountHUF = dr_r("ÖsszegAFA")
|
|
_GLRows.ConnectInfo = dr_r("Bizonylatszám_P")
|
|
_GLRows.Controlling = Nothing
|
|
_GLRows.CostHolder = Nothing
|
|
_GLRows.CostPlace = Nothing
|
|
_GLRows.PartnerType = _GLAccounts.PartnerType
|
|
If _GLAccounts.PartnerType = ePartnerType.ePayabels Then
|
|
_GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=?", dr_h("S_Ügyfél")))
|
|
_GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open
|
|
If _GLRows.VAT IsNot Nothing Then
|
|
If _GLRows.VAT.InversState = True Then
|
|
_GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open
|
|
_GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open
|
|
If dr_h("Deviza") = "HUF" Then
|
|
_GLRows.AmountDEV = 0
|
|
_GLRows.AmountHUF = Math.Round(dr_r("ÖsszegNetto") * _GLRows.VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero)
|
|
Else
|
|
_GLRows.AmountDEV = Math.Round(dr_r("ÖsszegNettoDeviza") * _GLRows.VAT.InversKeyValue, 2, MidpointRounding.AwayFromZero)
|
|
_GLRows.AmountHUF = Math.Round(dr_r("ÖsszegNettoDeviza") * Math.Round(dr_h("Árfolyam"), 2, MidpointRounding.AwayFromZero) * _GLRows.VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero)
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
Else
|
|
_GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=?", dr_h("S_Ügyfél")))
|
|
_GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open
|
|
End If
|
|
|
|
_GLRows.GLRowsGUID = _GUID
|
|
_GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow
|
|
_GLRows.JobNumberObjects = Nothing
|
|
_GLRows.NoteRows = dr_r("Megjegyzés")
|
|
_GLRows.TransactionType = eTransactionType.eNotSet
|
|
_GLRows.UniqueObjects = Nothing
|
|
_GLRows.Customer = _GLAccounts.Customers
|
|
|
|
End If
|
|
End While
|
|
conn_r.Close()
|
|
_GLAccounts.RecalculateTotal(True)
|
|
End If
|
|
End If
|
|
End While
|
|
End If
|
|
conn_h.Close()
|
|
|
|
|
|
End Sub
|
|
|
|
#Region "FileHandling"
|
|
Public Function LoadFileFromSQL(_ID_File As Long, _ConnectionString As String) As String
|
|
'/==========================================================================================\
|
|
'|VERSION: 1 |
|
|
'|AUTHOR: SISSERVER : ivan.szabo(2010.1.15 9:5) |
|
|
'|LAST MODIFYING: SISSERVER : ivan.szabo |
|
|
'|DATE: 2010.1.15 9:5 |
|
|
'|----------------------------------------DESCRIPTION---------------------------------------|
|
|
'|Az eljárás dokumantum azonosító alapján létrehoz egy filet és visszatér a teljes útvonalla|
|
|
'|l. |
|
|
'\==========================================================================================/
|
|
|
|
|
|
Dim conn As New SqlConnection(_ConnectionString)
|
|
|
|
Dim mSQL As String
|
|
mSQL = "select t1.Data,t2.FileName "
|
|
mSQL = mSQL & " from sql_Work..Dokumentum_Rows t1 join sql_Work..Dokumentum_Header t2 on"
|
|
mSQL = mSQL & " t1.ID_Dokumentum_Header=t2.ID"
|
|
mSQL = mSQL & " where t1.ID_Dokumentum_Header = " & _ID_File
|
|
mSQL = mSQL & " order by t1.Idx asc"
|
|
|
|
Dim cmd As New SqlCommand
|
|
|
|
|
|
cmd.CommandTimeout = 60
|
|
cmd.Connection = conn
|
|
cmd.CommandType = CommandType.Text
|
|
cmd.CommandText = mSQL
|
|
|
|
Dim _FileName As String = ""
|
|
Dim _StreamFile As FileStream = Nothing
|
|
LoadFileFromSQL = ""
|
|
|
|
Dim dr As SqlDataReader
|
|
Dim _Buffer As String
|
|
Dim _Record As Byte
|
|
Dim I As Long = 0
|
|
Dim J As Long = 0
|
|
conn.Open()
|
|
If conn.State = ConnectionState.Open Then
|
|
dr = cmd.ExecuteReader(CommandBehavior.SingleResult)
|
|
|
|
While (dr.Read)
|
|
_Buffer = dr("Data")
|
|
If J = 0 Then
|
|
_FileName = Path.GetTempPath & System.IO.Path.GetFileName(dr("FileName"))
|
|
If System.IO.File.Exists(_FileName) Then System.IO.File.Delete(_FileName)
|
|
_StreamFile = New FileStream(_FileName, FileMode.Create, FileAccess.ReadWrite)
|
|
J += 1
|
|
End If
|
|
For I = 1 To Len(_Buffer)
|
|
_Record = Asc(Mid(_Buffer, I, 1))
|
|
_StreamFile.WriteByte(_Record)
|
|
Next
|
|
End While
|
|
If _StreamFile IsNot Nothing Then
|
|
_StreamFile.Close()
|
|
End If
|
|
End If
|
|
conn.Close()
|
|
Return _FileName
|
|
End Function
|
|
#End Region
|
|
End Module
|