Dodaj pliki projektów.
This commit is contained in:
Krzysztof committed
1 parent
1d6a7b0924
commit
da030eff7c
298 files changed
+83623
No files matched your search
@@ -0,0 +1,521 @@
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
|
||||
Public Class MainFrm
|
||||
Public Tylko_Listing As Boolean
|
||||
Public f_out As StreamWriter ' Plik wyjściowy
|
||||
Private Structure DokKolumny
|
||||
Public cLp As Integer
|
||||
Public cDokument As Integer
|
||||
Public cDokZr As Integer
|
||||
Public cDZKOpis As Integer
|
||||
Public cDataWyst As Integer
|
||||
Public cDataOper As Integer
|
||||
Public cSumaCT As Integer
|
||||
Public cSumaDT As Integer
|
||||
Public cDZKDziennik As Integer
|
||||
Public cDekret As Integer
|
||||
Public cRokMiesiac As Integer
|
||||
Public cDataImp As Integer
|
||||
Public cMagazyn As Integer
|
||||
Public cKontrahent As Integer
|
||||
Public cOpisDok As Integer
|
||||
Public cDokKor As Integer
|
||||
End Structure
|
||||
|
||||
Private SpFlag, ZakFlag, WewFlag As Integer
|
||||
Private RM, Rok, Mies As Integer
|
||||
Private SrcConn_str, DstConn_str As String
|
||||
Private KD As DokKolumny
|
||||
|
||||
'----------------------------------------------------------
|
||||
Private Const INT_lens As Integer = 1
|
||||
Private p() As Integer = {2, 4, 7, 9, 3, INT_lens}
|
||||
|
||||
Public Function Encrypt(ByVal inputstr As String) As String
|
||||
Dim str As StringBuilder
|
||||
Dim b As Integer = 6
|
||||
Dim i, j, k, c, cc, bb, lens As Integer
|
||||
|
||||
If inputstr > "" Then
|
||||
str = New StringBuilder(inputstr)
|
||||
lens = str.Length
|
||||
While (lens < b) OrElse (lens Mod b)
|
||||
str.Append(” “)
|
||||
lens += INT_lens
|
||||
End While
|
||||
cc = (lens / b) - INT_lens
|
||||
For i = 0 To cc
|
||||
bb = b - INT_lens
|
||||
For j = 0 To bb
|
||||
k = p(j) + 100
|
||||
c = (6 * i + j)
|
||||
str.Replace(str.Chars(c), Chr(Asc(str.Chars(c)) + k), c, INT_lens)
|
||||
Next
|
||||
Next
|
||||
Return str.ToString
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
str = Nothing
|
||||
End Function
|
||||
|
||||
Public Function Decrypt(ByVal inputstr As String) As String
|
||||
Dim str As StringBuilder
|
||||
Dim b As Integer = 6
|
||||
Dim i, j, k, c, c1, cc, bb, lens As Integer
|
||||
|
||||
If inputstr > "" Then
|
||||
|
||||
str = New StringBuilder(inputstr)
|
||||
lens = str.Length
|
||||
While (lens < b) OrElse (lens Mod b)
|
||||
str.Append(” “)
|
||||
lens += INT_lens
|
||||
End While
|
||||
|
||||
cc = (lens / b) - INT_lens
|
||||
For i = 0 To cc
|
||||
bb = b - INT_lens
|
||||
For j = 0 To bb
|
||||
k = p(j) + 100
|
||||
c = (6 * i + j)
|
||||
c1 = Asc(str.Chars(c))
|
||||
c1 -= k
|
||||
str.Replace(str.Chars(c), Chr(c1), c, INT_lens)
|
||||
Next j
|
||||
Next i
|
||||
Return str.ToString
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
str = Nothing
|
||||
End Function
|
||||
|
||||
Private Function zrob_polaczenie(srv As String, baza As String, user As String, pass As String)
|
||||
Dim cnstr As String
|
||||
|
||||
cnstr = "Data Source=" + srv + ";Initial Catalog=" + baza
|
||||
cnstr += ";Persist Security Info=false;User ID=" + Decrypt(user).Trim + ";Password=" + Decrypt(pass).Trim
|
||||
Return (cnstr)
|
||||
End Function
|
||||
|
||||
Private Function PolaczBaze() As Boolean
|
||||
Dim B1, conn, pp, K1 As String
|
||||
Dim ret As Boolean = False
|
||||
|
||||
lbUwaga.Text = "Czekaj: Logowanie do ERPXL"
|
||||
lbUwaga.Visible = True
|
||||
lbUwaga.BringToFront()
|
||||
lbUwaga.Refresh()
|
||||
|
||||
If Strings.Left(UCase(My.Settings.BazaDst), 6) = "CDNXL_" Or Strings.Left(UCase(My.Settings.BazaDst), 6) = "ERPXL_" Then
|
||||
B1 = Mid(My.Settings.BazaDst, 7)
|
||||
Else
|
||||
B1 = My.Settings.BazaDst
|
||||
End If
|
||||
K1 = My.Settings.SerwerKlucza
|
||||
If Not Zalogowany Then listuj(" Logowanie do ERP XL - proszę czekać...")
|
||||
ret = Zaloguj(B1, "", "", K1)
|
||||
If ret Then
|
||||
listuj(" sprawdzanie dostępności licencji...")
|
||||
ret = XLSprawdzLicencje()
|
||||
If ret Then
|
||||
listuj(" Zalogowano pomyslnie do ERP XL")
|
||||
conn = FunkcjeXL.Polaczenie() 'string połączenia wyznaczony przez API
|
||||
pp = InStr(conn.ToUpper, "SERVER=")
|
||||
conn = Mid(conn, pp)
|
||||
DstConn_str = conn
|
||||
ret = True
|
||||
Else
|
||||
listuj("!! Nie udało się pobrać licencji stanowiskowej ERP XL.")
|
||||
Wyloguj()
|
||||
ret = False
|
||||
End If
|
||||
Else
|
||||
listuj("!! Nie udało się zalogować. Proszę uruchomić aplikację ERP XL !!")
|
||||
End If
|
||||
If Not ret Then
|
||||
TcZakladki.SelectedTab = TpList
|
||||
TpList.Select()
|
||||
End If
|
||||
lbUwaga.Text = "Czekaj: pobieranie danych"
|
||||
lbUwaga.Visible = False
|
||||
lbUwaga.Invalidate()
|
||||
Return ret
|
||||
End Function
|
||||
|
||||
'----------------------------------------------------------
|
||||
|
||||
Public Sub UstawKolumny()
|
||||
With KD
|
||||
.cLp = DgvDokumenty.Columns.Item("colLp").Index
|
||||
.cDokument = DgvDokumenty.Columns.Item("colDokument").Index
|
||||
.cDokZr = DgvDokumenty.Columns.Item("colDokZr").Index
|
||||
.cDZKOpis = DgvDokumenty.Columns.Item("colDZKOpis").Index
|
||||
.cDataWyst = DgvDokumenty.Columns.Item("colDataWyst").Index
|
||||
.cDataOper = DgvDokumenty.Columns.Item("colDataOper").Index
|
||||
.cSumaCT = DgvDokumenty.Columns.Item("colSumaCT").Index
|
||||
.cSumaDT = DgvDokumenty.Columns.Item("colSumaDT").Index
|
||||
.cDZKDziennik = DgvDokumenty.Columns.Item("colDZKDziennik").Index
|
||||
.cDekret = DgvDokumenty.Columns.Item("colDekret").Index
|
||||
.cRokMiesiac = DgvDokumenty.Columns.Item("colRokMiesiac").Index
|
||||
.cDataImp = DgvDokumenty.Columns.Item("colDataImportu").Index
|
||||
.cMagazyn = DgvDokumenty.Columns.Item("colMagazyn").Index
|
||||
.cKontrahent = DgvDokumenty.Columns.Item("colKontrahent").Index
|
||||
.cOpisDok = DgvDokumenty.Columns.Item("colOpisDok").Index
|
||||
.cDokKor = DgvDokumenty.Columns.Item("colDokKoryg").Index
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub CbWewn_CheckedChanged(sender As Object, e As EventArgs) Handles CbWewn.CheckedChanged
|
||||
If CbWewn.Checked Then
|
||||
WewFlag = 1
|
||||
Else
|
||||
WewFlag = 0
|
||||
End If
|
||||
OdswiezDane()
|
||||
End Sub
|
||||
|
||||
Private Sub BtOdswiez_Click(sender As Object, e As EventArgs) Handles BtOdswiez.Click
|
||||
OdswiezDane()
|
||||
End Sub
|
||||
|
||||
Private Sub CbZakup_CheckedChanged(sender As Object, e As EventArgs) Handles CbZakup.CheckedChanged
|
||||
If CbZakup.Checked Then
|
||||
ZakFlag = 1
|
||||
Else
|
||||
ZakFlag = 0
|
||||
End If
|
||||
OdswiezDane()
|
||||
End Sub
|
||||
|
||||
Private Sub edRok_ValueChanged(sender As Object, e As EventArgs) Handles edRok.ValueChanged
|
||||
If IsNumeric(edRok.Value) Then
|
||||
Rok = edRok.Value
|
||||
Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
|
||||
BsTbmyImpDMKonta.ResetBindings(False)
|
||||
OdswiezDane()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CbMiesiac_TextChanged(sender As Object, e As EventArgs) Handles CbMiesiac.TextChanged
|
||||
Mies = CbMiesiac.Items.IndexOf(CbMiesiac.Text) + 1
|
||||
Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
|
||||
BsTbmyImpDMKonta.ResetBindings(False)
|
||||
OdswiezDane()
|
||||
End Sub
|
||||
|
||||
Private Sub DgvDokumenty_KeyPress(sender As Object, e As KeyPressEventArgs) 'Handles DgvDokumenty.KeyPress
|
||||
Dim wiersz As DataGridViewRow
|
||||
Dim check As Boolean
|
||||
Dim colWybrany, colData, kk As Integer
|
||||
|
||||
Select Case e.KeyChar
|
||||
Case " "
|
||||
kk = 0
|
||||
colWybrany = DgvDokumenty.Columns.Item("Wybrany").Index
|
||||
colData = DgvDokumenty.Columns.Item("colDataImportu").Index
|
||||
For Each wiersz In DgvDokumenty.SelectedRows
|
||||
If wiersz.Cells(colData).Value <= "1990-01-01 00:00:00" Then
|
||||
check = wiersz.Cells(colWybrany).Value
|
||||
wiersz.Cells(colWybrany).Value = Not check
|
||||
If (kk Mod 10) = 0 Then Application.DoEvents()
|
||||
End If
|
||||
kk += 1
|
||||
Next
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub CbSprzedaz_CheckedChanged(sender As Object, e As EventArgs) Handles CbSprzedaz.CheckedChanged
|
||||
If CbSprzedaz.Checked Then
|
||||
SpFlag = 1
|
||||
Else
|
||||
SpFlag = 0
|
||||
End If
|
||||
OdswiezDane()
|
||||
End Sub
|
||||
|
||||
Private Sub DgvDokumenty_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DgvDokumenty.RowPostPaint
|
||||
If Not DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value Is DBNull.Value Then
|
||||
If CStr(DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value) > "1990-01-01" Then DgvDokumenty.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BtImport_Click(sender As Object, e As EventArgs) Handles BtImport.Click
|
||||
Dim DoImportu As New List(Of DataGridViewRow) 'kopia zaznaczonych do importu dokumentów
|
||||
Dim Aktwiersz As DataGridViewRow
|
||||
Dim AktualnyDokument As String = ""
|
||||
Dim ret, Nr_ZapisuSrc As Integer
|
||||
Dim sql, ss, tresc, nrdok, s1, s2 As String
|
||||
|
||||
If DgvDokumenty.Rows.Count > 0 Then
|
||||
If System.Windows.Forms.MessageBox.Show("Czy zaimportować zaznaczone dokumenty ?", "", MessageBoxButtons.YesNo) = DialogResult.No Then
|
||||
Return
|
||||
End If
|
||||
|
||||
DoImportu.Clear()
|
||||
UstawKolumny() 'powiązanie nazw kolumn z ich indeksem
|
||||
For Each wiersz In DgvDokumenty.SelectedRows 'zrób kopię zaznaczonych na niebiesko dokumentów
|
||||
Dim targetRow = CType(wiersz.Clone(), DataGridViewRow)
|
||||
For Each cell As DataGridViewCell In wiersz.Cells
|
||||
targetRow.Cells(cell.ColumnIndex).Value = cell.Value
|
||||
Next
|
||||
DoImportu.Add(targetRow)
|
||||
Next
|
||||
If DoImportu.Count > 0 Then
|
||||
'zaloguj do XL
|
||||
listuj("Start importu: " + Now)
|
||||
ret = PolaczBaze()
|
||||
If ret Then
|
||||
DgvDokumenty.CurrentCell = DgvDokumenty(0, 0)
|
||||
Aktwiersz = DgvDokumenty.CurrentRow
|
||||
For Each wiersz In DoImportu
|
||||
Aktwiersz = wiersz
|
||||
DgvDokumenty.CurrentCell = DgvDokumenty(0, wiersz.Cells.Item(0).Value - 1) 'pokaż aktualnie przetwarzany wiersz
|
||||
If (wiersz.Cells.Item(KD.cDataImp).Value <= "1990-01-01 00:00:00") And (AktualnyDokument <> wiersz.Cells.Item(KD.cDokument).Value) Then 'dekret nie zaimportowany
|
||||
AktualnyDokument = wiersz.Cells.Item(KD.cDokument).Value 'Nowa nota memoriałowa - numer dokumentu w Jastrzębiu
|
||||
Nr_ZapisuSrc = wiersz.Cells.Item(KD.cDekret).Value 'Dekret (DZK_GIDNumer) źródłowy
|
||||
tresc = " "
|
||||
s1 = AktualnyDokument.Substring(0, 2)
|
||||
If s1 = "PZ" Or s1 = "WZ" Or s1 = "KK" Or s1 = "PK" Or s1 = "WK" Then
|
||||
ss = IIf(IsNothing(wiersz.Cells.Item(KD.cKontrahent).Value), " ", wiersz.Cells.Item(KD.cKontrahent).Value)
|
||||
If ss > " " Then tresc = ss
|
||||
End If
|
||||
ss = IIf(IsNothing(wiersz.Cells.Item(KD.cOpisDok).Value), " ", wiersz.Cells.Item(KD.cOpisDok).Value)
|
||||
If ss > " " Then
|
||||
If tresc > " " Then tresc += "; " + ss Else tresc = ss
|
||||
End If
|
||||
If tresc < " " Then tresc = "brak opisu"
|
||||
nrdok = ""
|
||||
s1 = AktualnyDokument.Substring(0, 3)
|
||||
If s1 = "PZK" Or s1 = "PKI" Or s1 = "WZK" Or s1 = "WKE" Or s1 = "RWK" Or s1 = "PWK" Then
|
||||
nrdok = AktualnyDokument + ", " + IIf(IsNothing(wiersz.Cells.Item(KD.cDokKor).Value), "", wiersz.Cells.Item(KD.cDokKor).Value)
|
||||
Else
|
||||
nrdok = AktualnyDokument
|
||||
End If
|
||||
System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
|
||||
Try
|
||||
If UtworzNote(nrdok, wiersz.Cells.Item(KD.cDataWyst).Value, '"Data Wystawienia"
|
||||
wiersz.Cells.Item(KD.cDataWyst).Value, 'wszystkie daty takie same
|
||||
wiersz.Cells.Item(KD.cDokZr).Value, '"Dokument źródłowy"
|
||||
tresc) Then '"treśc noty"
|
||||
ss = IIf(IsNothing(wiersz.Cells.Item(KD.cDZKOpis).Value), " ", wiersz.Cells.Item(KD.cDZKOpis).Value)
|
||||
s1 = AktualnyDokument.Substring(0, 2)
|
||||
If s1 = "WZ" Or s1 = "WK" Then ss = tresc 'dla WZ/WZE/WZK/WKE opis pozycji taki sam jak treść noty
|
||||
If DodajPozycjeNoty(Nr_ZapisuSrc, wiersz.Cells.Item(KD.cDataWyst).Value,
|
||||
wiersz.Cells.Item(KD.cDataWyst).Value,
|
||||
ss, nrdok) Then 'dodajpozycje noty
|
||||
ZamknijNote(True) 'zamknij notę
|
||||
System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
|
||||
'oznacz dokument jako zaimportowany
|
||||
sql = "update CDN.Dekrety Set DT_DataCentrali = datediff(s,'19900101', GetDate()) where DT_GIDNUmer = " & Str(Nr_ZapisuSrc)
|
||||
SqlCmd(sql, SrcConn_str)
|
||||
System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
|
||||
'AktualnyDokument = ""
|
||||
sql = "update CDN.MemNag set MEN_CechaOpis = '" + IIf(IsNothing(wiersz.Cells.Item(KD.cMagazyn).Value), "", wiersz.Cells.Item(KD.cMagazyn).Value) + "' "
|
||||
sql += " where MEN_GIDNumer = " + CStr(GIDNumer)
|
||||
SqlCmd(sql, DstConn_str)
|
||||
System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
|
||||
Else
|
||||
ZamknijNote(False) 'usuń utworzoną notę
|
||||
AktualnyDokument = ""
|
||||
End If
|
||||
End If
|
||||
Catch ex As System.Exception
|
||||
ret = False
|
||||
System.Windows.Forms.MessageBox.Show("ImportClick: " & ex.Message)
|
||||
End Try
|
||||
Else
|
||||
listuj(CStr(Now) & "-> Dokument: " & wiersz.Cells.Item(2).Value & " już jest zaimportowany !!")
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Tylko_Listing = False
|
||||
OdswiezDane()
|
||||
End If
|
||||
TcZakladki.SelectedTab = TpList
|
||||
TpList.Select()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BtKonfig_Click(sender As Object, e As EventArgs) Handles BtKonfig.Click
|
||||
dlgKonfig.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
|
||||
Dim plik As String
|
||||
|
||||
Timer.Stop()
|
||||
My.Settings.Reload()
|
||||
Try
|
||||
plik = My.Settings.FolderR_Roboczy + "\ImportDM-" + Replace(Replace(Replace(Now, ":", "."), "/", "."), " ", "_") + ".LOG"
|
||||
f_out = System.IO.File.CreateText(plik)
|
||||
Tylko_Listing = False
|
||||
Catch
|
||||
Tylko_Listing = True
|
||||
End Try
|
||||
Timer.Enabled = False
|
||||
Application.DoEvents()
|
||||
If My.Settings.SerwerSrc > "" Then
|
||||
SrcConn_str = zrob_polaczenie(My.Settings.SerwerSrc, My.Settings.BazaSrc, My.Settings.MCsrc, My.Settings.Comsrc)
|
||||
Tamy_ImpDM_Src.Connection.ConnectionString = SrcConn_str
|
||||
Tamy_ImpDM_Dekr.Connection.ConnectionString = SrcConn_str
|
||||
Tamy_ImpDM_Konta.Connection.ConnectionString = SrcConn_str
|
||||
Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
|
||||
BsTbmyImpDMKonta.ResetBindings(False)
|
||||
OdswiezDane()
|
||||
End If
|
||||
If My.Settings.SerwerKlucza > "" And My.Settings.BazaDst > "" Then PolaczBaze()
|
||||
'If Zalogowany Then OdswiezDane()
|
||||
End Sub
|
||||
|
||||
Private Sub BtUsunFlage_Click(sender As Object, e As EventArgs) Handles BtUsunFlage.Click
|
||||
If DgvDokumenty.Rows.Count > 0 Then
|
||||
If System.Windows.Forms.MessageBox.Show("Czy usunąć flagę z zaznaczonych dokumentów ?", "", MessageBoxButtons.YesNo) = DialogResult.Yes Then
|
||||
Dim sql As String
|
||||
Dim col As Integer
|
||||
|
||||
col = DgvDokumenty.Columns("colDekret").Index
|
||||
For Each wiersz In DgvDokumenty.SelectedRows
|
||||
sql = "update CDN.Dekrety set DT_DataCentrali = 0 where DT_GIDNUmer = " & Str(wiersz.Cells(col).Value)
|
||||
SqlCmd(sql, SrcConn_str)
|
||||
Next
|
||||
OdswiezDane()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BtKoniec_Click(sender As Object, e As EventArgs) Handles BtKoniec.Click
|
||||
Wyloguj()
|
||||
If Not IsNothing(f_out) Then
|
||||
f_out.Flush()
|
||||
f_out.Close()
|
||||
End If
|
||||
Close()
|
||||
End Sub
|
||||
|
||||
Private Sub OdswiezDane()
|
||||
Dim Konto As String
|
||||
Dim ImpFl, pos As Integer
|
||||
|
||||
Konto = CbKonto.Text
|
||||
ImpFl = 2
|
||||
If RbBlack.Checked Then ImpFl = 0 Else If RbRed.Checked Then ImpFl = 1
|
||||
|
||||
RM = CInt(CStr(Rok) & IIf(Mies < 10, "0", "") & CStr(Mies))
|
||||
If RM < 2001 Or Mies <= 0 Then Return
|
||||
Try
|
||||
lbUwaga.Visible = True
|
||||
Application.DoEvents()
|
||||
lbUwaga.BringToFront()
|
||||
Application.DoEvents()
|
||||
lbUwaga.Refresh()
|
||||
Application.DoEvents()
|
||||
pos = BsTbmy_ImpDM_Src.Position
|
||||
Tamy_ImpDM_Src.Fill(Me.DsMain.Tbmy_ImpDM_Src, SpFlag, ZakFlag, WewFlag, RM, Rok, Mies, Konto, ImpFl)
|
||||
If pos < BsTbmy_ImpDM_Src.Count Then BsTbmy_ImpDM_Src.Position = pos Else BsTbmy_ImpDM_Src.Position = BsTbmy_ImpDM_Src.Count - 1
|
||||
lbUwaga.Visible = False
|
||||
lbUwaga.Invalidate()
|
||||
Catch ex As System.Exception
|
||||
lbUwaga.Visible = False
|
||||
Application.DoEvents()
|
||||
lbUwaga.Refresh()
|
||||
Application.DoEvents()
|
||||
System.Windows.Forms.MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub MainFrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Dim spr As String
|
||||
|
||||
SpFlag = 0
|
||||
ZakFlag = 0
|
||||
WewFlag = 0
|
||||
Rok = Year(Now)
|
||||
Mies = Month(Now)
|
||||
edRok.Value = Rok
|
||||
CbMiesiac.SelectedIndex = Mies - 1
|
||||
CbMiesiac.Text = CbMiesiac.Items(CbMiesiac.SelectedIndex)
|
||||
RbAll.Checked = True
|
||||
CbKonto.Text = ""
|
||||
spr = Encrypt(Environment.MachineName.ToUpper + Environment.UserName.ToUpper)
|
||||
DecimalSep = NumberFormatInfo.CurrentInfo.NumberDecimalSeparator.ToString
|
||||
DecimalGroupSep = NumberFormatInfo.CurrentInfo.NumberGroupSeparator.ToString
|
||||
If spr <> My.Settings.check Then
|
||||
MsgBox("Niezgodna konfiguracja. Ustaw od nowa")
|
||||
My.Settings.SerwerSrc = ""
|
||||
' My.Settings.SerwerDst = ""
|
||||
My.Settings.SerwerKlucza = ""
|
||||
My.Settings.BazaSrc = ""
|
||||
' My.Settings.BazaDst = ""
|
||||
My.Settings.FolderR_Roboczy = ""
|
||||
My.Settings.MCsrc = ""
|
||||
' My.Settings.MCdst = ""
|
||||
My.Settings.Comsrc = ""
|
||||
' My.Settings.Comdst = ""
|
||||
My.Settings.check = spr
|
||||
My.Settings.Save()
|
||||
End If
|
||||
Timer.Start()
|
||||
End Sub
|
||||
|
||||
Public Sub listuj(ByVal linia As String)
|
||||
If linia > "" Then
|
||||
LstWynik.Items.Add(linia)
|
||||
|
||||
If Not Tylko_Listing Then
|
||||
f_out.WriteLine(linia)
|
||||
End If
|
||||
If (LstWynik.Items.Count - 1) > 0 Then
|
||||
LstWynik.TopIndex = Me.LstWynik.Items.Count - 1
|
||||
Else
|
||||
LstWynik.TopIndex = 0
|
||||
End If
|
||||
Application.DoEvents()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Function SqlCmd(ByVal sql As String, conn_str As String) As Boolean
|
||||
Dim wynik As Boolean
|
||||
|
||||
wynik = False
|
||||
Try
|
||||
Using connection As New SqlClient.SqlConnection(conn_str)
|
||||
Dim command As New SqlClient.SqlCommand(sql, connection)
|
||||
connection.Open()
|
||||
command.ExecuteNonQuery()
|
||||
wynik = True
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
My.Forms.MainFrm.listuj(ex.Message)
|
||||
End Try
|
||||
Return (wynik)
|
||||
End Function
|
||||
|
||||
Public Function GetOneVal(ByVal sql As String, conn_str As String) As String
|
||||
Dim val As String
|
||||
|
||||
val = ""
|
||||
Try
|
||||
Using connection As New SqlClient.SqlConnection(conn_str)
|
||||
Dim command As New SqlClient.SqlCommand(sql, connection)
|
||||
connection.Open()
|
||||
Dim reader As SqlClient.SqlDataReader = command.ExecuteReader()
|
||||
While reader.Read()
|
||||
If reader.IsDBNull(0) Then
|
||||
val = ""
|
||||
Else
|
||||
val = CType(reader, IDataRecord)(0)
|
||||
End If
|
||||
End While
|
||||
reader.Close()
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
My.Forms.MainFrm.listuj(ex.Message)
|
||||
End Try
|
||||
GetOneVal = val
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,216 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<xs:schema id="DsMain" targetNamespace="http://tempuri.org/DsMain.xsd" xmlns:mstns="http://tempuri.org/DsMain.xsd" xmlns="http://tempuri.org/DsMain.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
|
||||
<xs:annotation>
|
||||
<xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<Connections>
|
||||
<Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="CS_Src" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="CS_Src (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.ImportDokMag.My.MySettings.GlobalReference.Default.CS_Src" Provider="System.Data.SqlClient" />
|
||||
</Connections>
|
||||
<Tables>
|
||||
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="Tamy_ImpDM_Src" GeneratorDataComponentClassName="Tamy_ImpDM_Src" Name="Tbmy_ImpDM_Src" UserDataComponentName="Tamy_ImpDM_Src">
|
||||
<MainSource>
|
||||
<DbSource ConnectionRef="CS_Src (MySettings)" DbObjectName="CDNXL_GOTEC_J.CDN.my_ImpDM_Src" DbObjectType="StoredProcedure" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<SelectCommand>
|
||||
<DbCommand CommandType="StoredProcedure" ModifiedByUser="false">
|
||||
<CommandText>CDN.my_ImpDM_Src</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="ReturnValue" ParameterName="@RETURN_VALUE" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SP" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@ZAK" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@WEW" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@RM" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Rok" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Miesiac" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
</Parameters>
|
||||
</DbCommand>
|
||||
</SelectCommand>
|
||||
</DbSource>
|
||||
</MainSource>
|
||||
<Mappings>
|
||||
<Mapping SourceColumn="Lp" DataSetColumn="Lp" />
|
||||
<Mapping SourceColumn="Dokument" DataSetColumn="Dokument" />
|
||||
<Mapping SourceColumn="RokMiesiac" DataSetColumn="RokMiesiac" />
|
||||
<Mapping SourceColumn="DataWyst" DataSetColumn="DataWyst" />
|
||||
<Mapping SourceColumn="DataOper" DataSetColumn="DataOper" />
|
||||
<Mapping SourceColumn="DokZr" DataSetColumn="DokZr" />
|
||||
<Mapping SourceColumn="Dekret" DataSetColumn="Dekret" />
|
||||
<Mapping SourceColumn="DZK_Dziennik" DataSetColumn="DZK_Dziennik" />
|
||||
<Mapping SourceColumn="DataImportu" DataSetColumn="DataImportu" />
|
||||
<Mapping SourceColumn="DZK_Opis" DataSetColumn="DZK_Opis" />
|
||||
<Mapping SourceColumn="SumaCT" DataSetColumn="SumaCT" />
|
||||
<Mapping SourceColumn="SumaDT" DataSetColumn="SumaDT" />
|
||||
<Mapping SourceColumn="Magazyn" DataSetColumn="Magazyn" />
|
||||
<Mapping SourceColumn="Kontrahent" DataSetColumn="Kontrahent" />
|
||||
<Mapping SourceColumn="Opis" DataSetColumn="Opis" />
|
||||
<Mapping SourceColumn="DokKoryg" DataSetColumn="DokKoryg" />
|
||||
</Mappings>
|
||||
<Sources />
|
||||
</TableAdapter>
|
||||
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="Tamy_ImpDM_Dekr" GeneratorDataComponentClassName="Tamy_ImpDM_Dekr" Name="Tbmy_ImpDM_Dekr" UserDataComponentName="Tamy_ImpDM_Dekr">
|
||||
<MainSource>
|
||||
<DbSource ConnectionRef="CS_Src (MySettings)" DbObjectName="CDNXL_GOTEC_J.CDN.my_ImpDM_Dekr" DbObjectType="StoredProcedure" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<SelectCommand>
|
||||
<DbCommand CommandType="StoredProcedure" ModifiedByUser="false">
|
||||
<CommandText>CDN.my_ImpDM_Dekr</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="ReturnValue" ParameterName="@RETURN_VALUE" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DZKNr" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
</Parameters>
|
||||
</DbCommand>
|
||||
</SelectCommand>
|
||||
</DbSource>
|
||||
</MainSource>
|
||||
<Mappings>
|
||||
<Mapping SourceColumn="Lp" DataSetColumn="Lp" />
|
||||
<Mapping SourceColumn="DZK_Opis" DataSetColumn="DZK_Opis" />
|
||||
<Mapping SourceColumn="Data" DataSetColumn="Data" />
|
||||
<Mapping SourceColumn="DataDokumentu" DataSetColumn="DataDokumentu" />
|
||||
<Mapping SourceColumn="Kwota" DataSetColumn="Kwota" />
|
||||
<Mapping SourceColumn="DokZr" DataSetColumn="DokZr" />
|
||||
<Mapping SourceColumn="KontoDebet" DataSetColumn="KontoDebet" />
|
||||
<Mapping SourceColumn="KontoCredit" DataSetColumn="KontoCredit" />
|
||||
<Mapping SourceColumn="Identyfikator" DataSetColumn="Identyfikator" />
|
||||
<Mapping SourceColumn="Opis" DataSetColumn="Opis" />
|
||||
<Mapping SourceColumn="DataImportu" DataSetColumn="DataImportu" />
|
||||
</Mappings>
|
||||
<Sources />
|
||||
</TableAdapter>
|
||||
</Tables>
|
||||
<Sources />
|
||||
</DataSource>
|
||||
</xs:appinfo>
|
||||
</xs:annotation>
|
||||
<xs:element name="DsMain" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="DsMain" msprop:Generator_UserDSName="DsMain">
|
||||
<xs:complexType>
|
||||
<xs:choice minOccurs="0" maxOccurs="unbounded">
|
||||
<xs:element name="Tbmy_ImpDM_Src" msprop:Generator_TableClassName="Tbmy_ImpDM_SrcDataTable" msprop:Generator_TableVarName="tableTbmy_ImpDM_Src" msprop:Generator_RowChangedName="Tbmy_ImpDM_SrcRowChanged" msprop:Generator_TablePropName="Tbmy_ImpDM_Src" msprop:Generator_RowDeletingName="Tbmy_ImpDM_SrcRowDeleting" msprop:Generator_RowChangingName="Tbmy_ImpDM_SrcRowChanging" msprop:Generator_RowEvHandlerName="Tbmy_ImpDM_SrcRowChangeEventHandler" msprop:Generator_RowDeletedName="Tbmy_ImpDM_SrcRowDeleted" msprop:Generator_RowClassName="Tbmy_ImpDM_SrcRow" msprop:Generator_UserTableName="Tbmy_ImpDM_Src" msprop:Generator_RowEvArgName="Tbmy_ImpDM_SrcRowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Lp" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnLp" msprop:Generator_ColumnPropNameInRow="Lp" msprop:Generator_ColumnPropNameInTable="LpColumn" msprop:Generator_UserColumnName="Lp" type="xs:long" minOccurs="0" />
|
||||
<xs:element name="Dokument" msprop:Generator_ColumnVarNameInTable="columnDokument" msprop:Generator_ColumnPropNameInRow="Dokument" msprop:Generator_ColumnPropNameInTable="DokumentColumn" msprop:Generator_UserColumnName="Dokument" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="255" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="RokMiesiac" msprop:Generator_ColumnVarNameInTable="columnRokMiesiac" msprop:Generator_ColumnPropNameInRow="RokMiesiac" msprop:Generator_ColumnPropNameInTable="RokMiesiacColumn" msprop:Generator_UserColumnName="RokMiesiac" type="xs:int" minOccurs="0" />
|
||||
<xs:element name="DataWyst" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnDataWyst" msprop:Generator_ColumnPropNameInRow="DataWyst" msprop:Generator_ColumnPropNameInTable="DataWystColumn" msprop:Generator_UserColumnName="DataWyst" type="xs:dateTime" minOccurs="0" />
|
||||
<xs:element name="DataOper" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnDataOper" msprop:Generator_ColumnPropNameInRow="DataOper" msprop:Generator_ColumnPropNameInTable="DataOperColumn" msprop:Generator_UserColumnName="DataOper" type="xs:dateTime" minOccurs="0" />
|
||||
<xs:element name="DokZr" msprop:Generator_ColumnVarNameInTable="columnDokZr" msprop:Generator_ColumnPropNameInRow="DokZr" msprop:Generator_ColumnPropNameInTable="DokZrColumn" msprop:Generator_UserColumnName="DokZr" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="40" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="Dekret" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnDekret" msprop:Generator_ColumnPropNameInRow="Dekret" msprop:Generator_ColumnPropNameInTable="DekretColumn" msprop:Generator_UserColumnName="Dekret" type="xs:int" minOccurs="0" />
|
||||
<xs:element name="DZK_Dziennik" msprop:Generator_ColumnVarNameInTable="columnDZK_Dziennik" msprop:Generator_ColumnPropNameInRow="DZK_Dziennik" msprop:Generator_ColumnPropNameInTable="DZK_DziennikColumn" msprop:Generator_UserColumnName="DZK_Dziennik" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="5" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="DataImportu" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnDataImportu" msprop:Generator_ColumnPropNameInRow="DataImportu" msprop:Generator_ColumnPropNameInTable="DataImportuColumn" msprop:Generator_UserColumnName="DataImportu" type="xs:dateTime" minOccurs="0" />
|
||||
<xs:element name="DZK_Opis" msprop:Generator_ColumnVarNameInTable="columnDZK_Opis" msprop:Generator_ColumnPropNameInRow="DZK_Opis" msprop:Generator_ColumnPropNameInTable="DZK_OpisColumn" msprop:Generator_UserColumnName="DZK_Opis" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="80" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="SumaCT" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnSumaCT" msprop:Generator_ColumnPropNameInRow="SumaCT" msprop:Generator_ColumnPropNameInTable="SumaCTColumn" msprop:Generator_UserColumnName="SumaCT" type="xs:decimal" minOccurs="0" />
|
||||
<xs:element name="SumaDT" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnSumaDT" msprop:Generator_ColumnPropNameInRow="SumaDT" msprop:Generator_ColumnPropNameInTable="SumaDTColumn" msprop:Generator_UserColumnName="SumaDT" type="xs:decimal" minOccurs="0" />
|
||||
<xs:element name="Magazyn" msprop:Generator_ColumnVarNameInTable="columnMagazyn" msprop:Generator_ColumnPropNameInRow="Magazyn" msprop:Generator_ColumnPropNameInTable="MagazynColumn" msprop:Generator_UserColumnName="Magazyn" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="30" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="Kontrahent" msprop:Generator_ColumnVarNameInTable="columnKontrahent" msprop:Generator_ColumnPropNameInRow="Kontrahent" msprop:Generator_ColumnPropNameInTable="KontrahentColumn" msprop:Generator_UserColumnName="Kontrahent" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="255" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="Opis" msprop:Generator_ColumnVarNameInTable="columnOpis" msprop:Generator_ColumnPropNameInRow="Opis" msprop:Generator_ColumnPropNameInTable="OpisColumn" msprop:Generator_UserColumnName="Opis" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="255" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="DokKoryg" msprop:Generator_ColumnVarNameInTable="columnDokKoryg" msprop:Generator_ColumnPropNameInRow="DokKoryg" msprop:Generator_ColumnPropNameInTable="DokKorygColumn" msprop:Generator_UserColumnName="DokKoryg" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="40" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Tbmy_ImpDM_Dekr" msprop:Generator_TableClassName="Tbmy_ImpDM_DekrDataTable" msprop:Generator_TableVarName="tableTbmy_ImpDM_Dekr" msprop:Generator_TablePropName="Tbmy_ImpDM_Dekr" msprop:Generator_RowDeletingName="Tbmy_ImpDM_DekrRowDeleting" msprop:Generator_RowChangingName="Tbmy_ImpDM_DekrRowChanging" msprop:Generator_RowEvHandlerName="Tbmy_ImpDM_DekrRowChangeEventHandler" msprop:Generator_RowDeletedName="Tbmy_ImpDM_DekrRowDeleted" msprop:Generator_UserTableName="Tbmy_ImpDM_Dekr" msprop:Generator_RowChangedName="Tbmy_ImpDM_DekrRowChanged" msprop:Generator_RowEvArgName="Tbmy_ImpDM_DekrRowChangeEvent" msprop:Generator_RowClassName="Tbmy_ImpDM_DekrRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Lp" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnLp" msprop:Generator_ColumnPropNameInRow="Lp" msprop:Generator_ColumnPropNameInTable="LpColumn" msprop:Generator_UserColumnName="Lp" type="xs:long" minOccurs="0" />
|
||||
<xs:element name="DZK_Opis" msprop:Generator_ColumnVarNameInTable="columnDZK_Opis" msprop:Generator_ColumnPropNameInRow="DZK_Opis" msprop:Generator_ColumnPropNameInTable="DZK_OpisColumn" msprop:Generator_UserColumnName="DZK_Opis" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="80" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="Data" msprop:Generator_ColumnVarNameInTable="columnData" msprop:Generator_ColumnPropNameInRow="Data" msprop:Generator_ColumnPropNameInTable="DataColumn" msprop:Generator_UserColumnName="Data" type="xs:int" minOccurs="0" />
|
||||
<xs:element name="DataDokumentu" msprop:Generator_ColumnVarNameInTable="columnDataDokumentu" msprop:Generator_ColumnPropNameInRow="DataDokumentu" msprop:Generator_ColumnPropNameInTable="DataDokumentuColumn" msprop:Generator_UserColumnName="DataDokumentu" type="xs:int" minOccurs="0" />
|
||||
<xs:element name="Kwota" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnKwota" msprop:Generator_ColumnPropNameInRow="Kwota" msprop:Generator_ColumnPropNameInTable="KwotaColumn" msprop:Generator_UserColumnName="Kwota" type="xs:decimal" minOccurs="0" />
|
||||
<xs:element name="DokZr" msprop:Generator_ColumnVarNameInTable="columnDokZr" msprop:Generator_ColumnPropNameInRow="DokZr" msprop:Generator_ColumnPropNameInTable="DokZrColumn" msprop:Generator_UserColumnName="DokZr" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="40" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="KontoDebet" msprop:Generator_ColumnVarNameInTable="columnKontoDebet" msprop:Generator_ColumnPropNameInRow="KontoDebet" msprop:Generator_ColumnPropNameInTable="KontoDebetColumn" msprop:Generator_UserColumnName="KontoDebet" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="50" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="KontoCredit" msprop:Generator_ColumnVarNameInTable="columnKontoCredit" msprop:Generator_ColumnPropNameInRow="KontoCredit" msprop:Generator_ColumnPropNameInTable="KontoCreditColumn" msprop:Generator_UserColumnName="KontoCredit" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="50" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="Identyfikator" msprop:Generator_ColumnVarNameInTable="columnIdentyfikator" msprop:Generator_ColumnPropNameInRow="Identyfikator" msprop:Generator_ColumnPropNameInTable="IdentyfikatorColumn" msprop:Generator_UserColumnName="Identyfikator" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="80" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="Opis" msprop:Generator_ColumnVarNameInTable="columnOpis" msprop:Generator_ColumnPropNameInRow="Opis" msprop:Generator_ColumnPropNameInTable="OpisColumn" msprop:Generator_UserColumnName="Opis" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="80" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="DataImportu" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnDataImportu" msprop:Generator_ColumnPropNameInRow="DataImportu" msprop:Generator_ColumnPropNameInTable="DataImportuColumn" msprop:Generator_UserColumnName="DataImportu" type="xs:dateTime" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:choice>
|
||||
</xs:complexType>
|
||||
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
|
||||
<xs:selector xpath=".//mstns:Tbmy_ImpDM_Src" />
|
||||
<xs:field xpath="mstns:Lp" />
|
||||
</xs:unique>
|
||||
</xs:element>
|
||||
</xs:schema>
|
||||
Reference in new issue
Block a user