edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
b1e1b3f26a6a7b845a13fffdfe53cfac53177991
SDL/SDL/kunden/usrCntlKundenuebersicht.vb
d.breimaier 5559437593 kundenuebers
2025-09-05 10:41:14 +02:00

3422 lines
153 KiB
VB.net
Raw Blame History

Imports System.Data.SqlClient
Imports System.Globalization
Imports System.IO
Imports System.ServiceModel.Configuration
Imports GrapeCity.DataVisualization.TypeScript
Imports SDL.EORI
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlKundenuebersicht
'Implements INotifyPropertyChanged
Public superuser As Boolean = False
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Public KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
Public ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Public AUFSCHUB As List(Of VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten) = Nothing
Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Public kdNr As Integer = -1
Private dataAdapterFirma As New SqlDataAdapter
' Private dataFirma As New DataTable
Private bindingFirma As New BindingSource
Dim FISKAL As cFiskal_Daten = Nothing
Private abfertigungsverbotText As String = ""
Private gespraechsberichtText As String = ""
Private korrAdresseText As String = ""
Private firmenwortlautFiskal As String = ""
Dim trennungBesonderheiten = False
Dim f_bold = New Font(Me.Font.FontFamily, 8, FontStyle.Bold)
Dim f_norm = New Font(Me.Font.FontFamily, 8, FontStyle.Regular)
Dim WithEvents timerOP As New Timer
Private loaded As Boolean = False
Dim RG_MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
Dim cFormularManager As New VERAG_PROG_ALLGEMEIN.cFormularManager
' Dim BERECHTIGUNEN As List(Of cBerechtigungen)
Dim WithEvents timer_EORI As New Timer()
Dim f_EORI As Form
Dim f_EORI_PDF As String = ""
Dim SQL As New SQL
Dim cSqlDb As New cSqlDb
Dim FUNC As New cProgramFunctions
' Public USRID As Integer = -1
' Public userfullname As String = ""
'Public username As String = ""
Dim db As New DataSet
Dim WHEREStatistik = ""
Public selectedTAB = ""
Dim PDF_Attach_TMP_VERTRAEGE = ""
Property BER_STUFE = 99
Private datenarchivId = -1
Dim creditsafe_newView As Boolean = False
Public Sub New()
Try
' initialize added component on form1, which is menu strip;
'note: if you have added any second component alongside menu
'strip, such as context menu strip just add additional code
'line under InitializeComponent(), and it will work;
InitializeComponent()
' MenuStripSDL.Renderer = New MyRenderer()
Catch ex As Exception
End Try
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub
Public Sub New(KdNr As Integer)
Try
InitializeComponent()
Me.kdNr = KdNr
' MenuStripSDL.Renderer = New MyRenderer()
Catch ex As Exception
End Try
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub
Private Sub initCboKd()
Dim connetionString As String = Nothing
Dim connection As SqlConnection
Dim command As SqlCommand
Dim adapter As New SqlDataAdapter()
Dim ds As New DataSet()
Dim i As Integer = 0
Dim sql As String = Nothing
sql = "SELECT KundenNr,Kurzname FROM Kunden where order by kurzname"
connection = cSqlDb.GetNewOpenConnection()
Try
' connection.Open()
command = New SqlCommand(sql, connection)
adapter.SelectCommand = command
adapter.Fill(db)
adapter.Dispose()
command.Dispose()
connection.Close()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub frmKundenUebersichtZOLL_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Me.BER_STUFE = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("KUNDEN", "SDL")
timerOP.Interval = 500
timerOP.Enabled = False
Try
Select Case BER_STUFE
Case 99 : Me.FindForm.Close() : Exit Sub
End Select
Catch ex As Exception
End Try
' KdSearchBox1.initKdBox(Me, lblKdNr)
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige <> "" Then
Dim where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ") ")
cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & where, True, "FMZOLL", True)
End If
If False Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SEE_ALL_COMPANY_INFO", "SDL") Then
cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] ", True, "FMZOLL", True)
cboFirmaFMZOLL.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE Firma_ID <> 7", True, "FMZOLL", True)
Case "ATILLA"
cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE Firma_ID = 7", True, "FMZOLL", True)
Case Else 'Beide
cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] ", True, "FMZOLL", True)
End Select
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID > 0 Then
cboFirmaFMZOLL.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
cboFirmaFMZOLL.Enabled = False
End If
End If
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
btnBonitaetBearbeiten.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_SeeHoechstKredit", "SDL") Then
lblHoechstkredit.Visible = True
Label69.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Vorauskasse_anzeigen", "SDL") Then
txtVorauskasse.Visible = True
lblVorkasse.Visible = True
End If
If True Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
btnThereforeKundeninfo.Visible = True
End If
cboVertrag.fillWithSQL("SELECT kva_id,kva_Bezeichnung FROM [tblKundenVertraegeArten] ORDER BY kva_Bezeichnung", False, "FMZOLL", True)
'txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
txtGGDatum._value = Now.ToShortDateString
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
Try
tbWeitereKundenDetails.TabPages.Remove(tbUmsatz)
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LISTE", "SDL") Then
tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
End If
tbcntrAllg.TabPages.Remove(tbAvisoMail)
tbcntrAllg.TabPages.Remove(tbKdSpez)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Besonderheiten_Bearbeiten", "SDL") Then
btnPunkt2Save.Visible = True
rtbAbf_Besonderheiten.ReadOnly = False
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_QSTeams_Bearbeiten", "SDL") Then
btnVeragAnspr.Visible = True
End If
pnlSperre.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTEN_SPERRE", "SDL")
btnCreditsafe.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CREDITSAFE_Prüfung", "SDL")
PictureBox6.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CREDITSAFE_Prüfung", "SDL")
If kdNr > 0 Then setKD(kdNr)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
btncheckliste.Visible = False
'tbcntrAllg.Visible = False
Case "IMEX"
btnThereforeTarifNr.Visible = True
' btnThereforeTarifNr.Visible = False
btnThereforeKundeninfo.Visible = True
'btnThereforeKundeninfo.Visible = False
End Select
Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("UID_EORI_Prüfung", "SDL") Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
Button1.Visible = True
Button5.Visible = True
Button10.Visible = True
Button2.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then Button3.Visible = True 'Geht nochn nicht
Button4.Visible = True
End If
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
Catch ex As Exception
'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Sub initKD()
Dim kdsrch As New SDL.frmKundenSuche
kdsrch.erweitern = True
If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
setKD(kdsrch.kundenNrSearch.Text)
Else
Me.BringToFront()
If kdNr <= 0 Then
' Me.Close()
End If
End If
End Sub
Public Sub setKD(kdnr)
Me.kdNr = kdnr
loaded = False
If Not (New kundenSQL).existByKdNr(kdnr) Then
initAbfVerb(False)
rtbInfo.Visible = False
Exit Sub
'MsgBox("Keine Kundennummer ausgewählt!", vbCritical)
'Me.Close() : Exit Sub
End If
'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM & " - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME)
lblTESTSystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
initAllgemein()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
Try
tbWeitereKundenDetails.TabPages.Remove(tbUmsatz)
tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
Catch ex As Exception
End Try
If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then
tbWeitereKundenDetails.TabPages.Add(tbUmsatz)
tbWeitereKundenDetails.TabPages.Add(tbOffenePosten)
ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LISTE", "SDL") Then
tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
End If
End If
initDGVUmsatz()
initDGVOffenePosten()
initDGVVollmachten()
initDGVGestGarantie()
initDGVVertraege()
'initDGVOfferte()
initDGVAnhaenge()
initDGVOffertenSperrliste()
initSperre()
RG_MONAT = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
tbKontakt_TabIndexChanged(tbKontakt, New EventArgs)
'If tbcntrKundenDaten.SelectedIndex = 1 Then initZollTarife() ' nur wenn der Tab aktiv, sonst dauert das Laden länger
'If tbcntrKundenDaten.SelectedIndex = 3 Then initStatistik() ' nur wenn der Tab aktiv, sonst dauert das Laden länger
' btncheckliste.Focus()
loaded = True
End Sub
Private Sub pnlAbfVerb_MouseHover(sender As Object, e As EventArgs) Handles rtbInfo.MouseHover, lblAbfertigungsverbot.MouseHover
Dim p As New UserControl
' rtbInfo.Width = 450
rtbInfo.Height = 300
' rtbInfo.Text = abfertigungsverbotText
rtbInfo.Visible = True
End Sub
Private Sub lblAbfertigungsverbot_MouseLeave(sender As Object, e As EventArgs) Handles rtbInfo.MouseLeave, lblAbfertigungsverbot.MouseLeave
' rtbInfo.Visible = False
rtbInfo.Height = 26
End Sub
Private Sub lblAbfertigungsverbot_Click(sender As Object, e As EventArgs) Handles lblAbfertigungsverbot.Click
showForm(abfertigungsverbotText, "Abfertigungsverbot")
End Sub
Sub initAllgemein()
Try
lblAbfertigungsverbot.Visible = False
rtbInfo.Visible = False
trennungBesonderheiten = False
abfertigungsverbotText = ""
gespraechsberichtText = ""
korrAdresseText = ""
firmenwortlautFiskal = ""
'Me.dataAdapterFirma = Nothing
' Me.dataFirma.Clear()
'SDL!
Dim conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
' MsgBox(conn.ConnectionString)
' Me.dataAdapterFirma = New SqlDataAdapter("SELECT TOP 1 * FROM Kunden INNER JOIN Adressen ON Kunden.KundenNr= Adressen.AdressenNr where KundenNr=" & kdNr & " AND [Auswahl]='A' ", conn)
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
AUFSCHUB = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(kdNr)
' Me.dataAdapterFirma.Fill(Me.dataFirma)
conn.Close()
dgvOfferteDetailsUebersicht.Visible = True
dgvOffenePosten.Visible = True
dgvUmsatzbericht.Visible = True
usrCntlAnhaenge.Visible = True
rtbAbf_Besonderheiten.Visible = True
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then KdFirma = KdFirma.Replace("VERAG", "ATILLA") ' WENN KD STAMM ATILLA GETRENNT --> diese Zeile löschen!!!!!!
If KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
lblFirma.Text = KdFirma
lblFirma.Visible = True
btnVMhinzufuegen.Enabled = False
If Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_CLUSTER", "SDL") And
Not ((KdFirma = "IMEX" Or KdFirma = "VERAG" Or KdFirma = "VERIMEX") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL")) Then
dgvOfferteDetailsUebersicht.Visible = False
dgvOffenePosten.Visible = False
dgvUmsatzbericht.Visible = False
usrCntlAnhaenge.Visible = False
rtbAbf_Besonderheiten.Visible = False
Else
btnVMhinzufuegen.Enabled = True
End If
End If
End If
If (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" AndAlso ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LISTE", "SDL") Then
dgvOffenePosten.Visible = True
End If
Else
btnVMhinzufuegen.Enabled = True
lblFirma.Visible = False
End If
' Me.dataFirma.AcceptChanges()
' Me.dataFirma.Locale = System.Globalization.CultureInfo.InvariantCulture
lblKdNr.Text = checkNullStr(KUNDE.KundenNr)
txtDebitorennr.Text = checkNullStr(KUNDE.KundenNrZentrale)
lblFirmenname1.Text = checkNullStr(ADRESSE.Name_1)
lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2)
Dim zusatz As String = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
Dim strasse As String = checkNullStr(ADRESSE.Straße)
'lblStrasse.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz) & " " & checkNullStr(ADRESSE.Straße)
If zusatz <> "" Then
lblStrasse.Text = strasse & vbCrLf & zusatz
Else
lblStrasse.Text = vbCrLf & strasse
End If
lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort)
lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach)
lblTel.Text = checkNullStr(ADRESSE.Telefon)
lblFax.Text = checkNullStr(ADRESSE.Telefax)
lblMobil.Text = checkNullStr(ADRESSE.Mobiltelefon)
lblEmail.Text = checkNullStr(ADRESSE.E_Mail)
lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2)
lblInaktiv.Visible = False
If ADRESSE.Auswahl IsNot Nothing Then
lblInaktiv.Visible = (ADRESSE.Auswahl = "I")
End If
lblUid.Text = ""
If checkNullStr(ADRESSE.UstIdKz) <> "" Or checkNullStr(ADRESSE.UstIdNr) <> "" Then
lblUid.Text = checkNullStr(ADRESSE.UstIdKz) & " " & checkNullStr(ADRESSE.UstIdNr)
If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then
lblUid.Text &= " , geprüft: " & checkNullStr(ADRESSE.UstIdGeprüft)
End If
End If
lblSteuernummer.Text = ""
If checkNullStr(ADRESSE.Steuernummer) <> "" Then
lblSteuernummer.Text = checkNullStr(ADRESSE.Steuernummer)
End If
lblEORI.Text = ""
If checkNullStr(KUNDE.EORITIN) <> "" Then
lblEORI.Text = (checkNullStr(KUNDE.EORITIN) & " " & checkNullStr(KUNDE.EORITIN_NL)).Trim
If checkNullStr(KUNDE_ERW.kde_EORIgeprueftAm) <> "" Then
lblEORI.Text &= " , geprüft: " & checkNullStr(KUNDE_ERW.kde_EORIgeprueftAm)
End If
End If
If lblEORI.Text = "" Then Button4.Visible = False : Button3.Visible = False : Button2.Visible = False
If lblUid.Text = "" Then Button1.Visible = False : Button5.Visible = False : Button10.Visible = False
lblZnv.Text = ""
If checkNullStr(KUNDE.ZulassungsNr_ZnV) <> "" Then
lblZnv.Text = checkNullStr(KUNDE.ZulassungsNr_ZnV)
End If
lblAufEust.Text = ""
If checkNullStr(KUNDE.Aufschubkonto_EUSt) <> "" Then
lblAufEust.Text = checkNullStr(KUNDE.Aufschubkonto_EUSt)
End If
lblAufZoll.Text = ""
If checkNullStr(KUNDE.Aufschubkonto_Zoll) <> "" Then
lblAufZoll.Text = checkNullStr(KUNDE.Aufschubkonto_Zoll)
End If
lblAnsprechpartner.Text = ""
If checkNullStr(ADRESSE.Ansprechpartner) <> "" Then
lblAnsprechpartner.Text = If(ADRESSE.Anrede IsNot Nothing, ADRESSE.Anrede & " ", "") & checkNullStr(ADRESSE.Ansprechpartner)
End If
If checkNullStr(KUNDE.Abfertigungsverbot_Grund) <> "" Then
abfertigungsverbotText = checkNullStr(KUNDE.Abfertigungsverbot_Grund)
End If
rtbInfo.Text = abfertigungsverbotText
gespraechsberichtText = checkNullStr(KUNDE.Gesprächsbericht)
lklGanzerText.Visible = False
lblNoGespr.Visible = True
If (checkNullStr(KUNDE.Gesprächsbericht) <> "") Then
lklGanzerText.Visible = True
lblNoGespr.Visible = False
End If
lblKorrAdresse.Visible = False
lblFwlFiskal.Visible = False
If (checkNullStr(KUNDE.KD_Korrespondenz) <> "") Then
korrAdresseText = checkNullStr(KUNDE.KD_Korrespondenz)
lblKorrAdresse.Visible = True
End If
' txtAbweichndeFiskalAdresse.Text = ""
If (checkNullStr(KUNDE_ERW.kde_FirmenwortlautFiskal) <> "") Then
firmenwortlautFiskal = checkNullStr(KUNDE_ERW.kde_FirmenwortlautFiskal)
' txtAbweichndeFiskalAdresse.Text = firmenwortlautFiskal
lblFwlFiskal.Visible = True
End If
Dim abfertigungsverbot As Boolean = checkNullBool(KUNDE.Abfertigungsverbot)
initAbfVerb(abfertigungsverbot)
Dim TMPText = checkNullStr(KUNDE.Besonderheiten)
' TMPText = TMPText.Replace("/ ", "" & vbNewLine)
' TMPText = TMPText.Replace("/", "" & vbNewLine)
rtbAbf_Besonderheiten.Text = TMPText
' lblKreditlimit.BackColor = Color.White
lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("C", CultureInfo.CurrentCulture)
If KUNDE.Kreditlimit <> 0 And KUNDE.Kreditlimit <> 2600 Then
' lblKreditlimit.BackColor = Color.Yellow
End If
If KUNDE.Kreditlimit = 0 Then lblKreditlimit.Text = ""
If KUNDE.Kreditlimit = 2600 Then lblKreditlimit.Text = ""
'lblAviso.Font = f_norm
'lblNeutralisierung.Font = f_norm
'txtVorauskasse.Font = f_norm
lblAviso.BackColor = Color.White
txtNeutralisierung.BackColor = Color.White
txtVorauskasse.BackColor = Color.White
txtVeranlKd.BackColor = Color.White
Select Case checkNullStr(KUNDE.Avis)
Case 0 : lblAviso.Text = "NEIN"
Case 1 : lblAviso.Text = "Voravis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold
Case 2 : lblAviso.Text = "Nachavis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold
Case 3 : lblAviso.Text = "Vor- und Nachavis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold
End Select
Select Case checkNullStr(KUNDE.Neutralisierung)
Case 0 : txtNeutralisierung.Text = "NEIN"
Case 1 : txtNeutralisierung.Text = "JA" : txtNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
Case 2 : txtNeutralisierung.Text = "nur in Sonderfällen" : txtNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
End Select
Select Case checkNullStr(KUNDE.Neutralisierung)
Case 0 : txtNeutralisierung.Text = "NEIN"
Case 1 : txtNeutralisierung.Text = "JA" : txtNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
Case 2 : txtNeutralisierung.Text = "nur in Sonderfällen" : txtNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
End Select
If KUNDE.Vorkasse Then
txtVorauskasse.Text = "JA"
txtVorauskasse.BackColor = Color.Yellow
Else
txtVorauskasse.Text = ""
txtVorauskasse.BackColor = Color.White
End If
If KUNDE_ERW.Veranlagungskunde Then
txtVeranlKd.Text = "JA"
txtVeranlKd.BackColor = Color.Yellow
Else
txtVeranlKd.Text = "NEIN"
txtVeranlKd.BackColor = Color.White
End If
lblVeranlKd.BackColor = txtVeranlKd.BackColor
lblVorkasse.BackColor = txtVorauskasse.BackColor
lblNeutralisierung.BackColor = txtNeutralisierung.BackColor
If KUNDE_ERW.kde_KundeFremdspedition Then
txtVerzolltBei.Text = If(KUNDE_ERW.kde_verzolltBei, "FREMD").ToString.ToUpper
txtVerzolltBei.BackColor = Color.Yellow
Else
txtVerzolltBei.Text = ""
txtVerzolltBei.BackColor = Color.WhiteSmoke
End If
If KUNDE_ERW.kde_KundeFremdspeditionExport Then
txtVerzolltBeiExport.Text = If(KUNDE_ERW.kde_verzolltBeiExport, "FREMD").ToString.ToUpper.Replace("EIGENE ZOLLABTEILUNG", "EIG.ZA")
txtVerzolltBeiExport.BackColor = Color.Yellow
Else
txtVerzolltBeiExport.Text = ""
txtVerzolltBeiExport.BackColor = Color.WhiteSmoke
End If
cbxFiskalabfertigung.Checked = checkNullBool(KUNDE.Fiskal)
cbxFiskalabfertigung.CheckedValue = checkNullBool(KUNDE.Fiskal)
'
' lblZollvollmacht.Text = "NEIN"
' lblZVMErneuern.Visible = False
' lblZollvollmacht.ForeColor = Color.Black
'' If checkNullBool(KUNDE.Zollvollmacht)) Then
' lblZollvollmacht.Text = ""
'If checkNullStr(KUNDE.Zollvollmacht vom)) <> "" Then
' lblZollvollmacht.Text &= "vom " & checkNullStr(KUNDE.Zollvollmacht vom))
' Try
'If CDate(checkNullStr(KUNDE.Zollvollmacht vom))) < CDate("01." & Now.Month & "." & Now.Year).AddYears(-2) Then
'lblZVMErneuern.Visible = True
' lblZollvollmacht.ForeColor = Color.Red
' End If
' Catch ex As Exception : End Try
' End If
' End If
initCreditsave()
'txtKundenbetreuer.Text = If(KUNDE_ERW.kde_qsTeamMAName, "")
'txtKundenbetreuerTeam.Text = If(KUNDE_ERW.kde_qsTeamName, "")
txtKundenbetreuer.Text = VERAGSQL.DLookup("team_bezeichnung", "tblTeams", "[team_id]='" & KUNDE_ERW.kde_TeamId & "'", "ADMIN")
txtKundenbetreuerTeam.Text = VERAGSQL.DLookup("mit_vname +' '+mit_nname", "tblMitarbeiter", "[mit_id]='" & KUNDE_ERW.kde_TeamMAId & "'", "ADMIN")
updateDatenarchivId()
'cbxAbf_SvsRvs.CheckedValue = checkNullBool(KUNDE.SVS)
'txtAbf_Vorlageprovision._value = checkNullStr(KUNDE.Vorlageprovision)
'txtAbf_Kreditaufwendungen._value = checkNullStr(KUNDE.Kreditaufwendungen)
'txtAbf_Bankspesen._value = checkNullStr(KUNDE.Bankspesen)
'txtAbf_BankspesenMindestbetrag.Text = checkNullStr(KUNDE.Bankspesen_Mindestbetrag)
'txtAbf_Waehrung.Text = checkNullStr(KUNDE.Währungscode)
txtSammelrechnung.Text = "NEIN"
If CInt(KUNDE.Sammelrechnung) > 0 Then
Select Case CInt(KUNDE.Sammelrechnung)
Case 1 : txtSammelrechnung.Text = "1 - täglich"
Case 2 : txtSammelrechnung.Text = "2 - halbmonatlich"
Case 3 : txtSammelrechnung.Text = "3 - monatlich"
Case 4 : txtSammelrechnung.Text = "4 - Dekade"
Case 5 : txtSammelrechnung.Text = "5 - wöchentlich"
Case 6 : txtSammelrechnung.Text = "6 - Maut/Diesel"
Case 7 : txtSammelrechnung.Text = "7 - LKW"
Case Else : txtSammelrechnung.Text = "?"
End Select
End If
txtZahlungsziel.Text = If(KUNDE.Zahlungsziel, "-") & " Tage"
rtbLKWFreigabeSenden.Text = checkNullStr(KUNDE.DokumenteLKWFreigabe)
cbxKdAuftragsNr.Checked = checkNullBool(KUNDE_ERW.kde_VerwendetAuftragsNr)
txtFixeKdAtrNr.Text = If(KUNDE_ERW.kde_FixeAuftragsNr, "")
txtInfoKdAtrNr.Text = If(KUNDE_ERW.kde_InfoAuftragsNr, "")
UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW)
'UsrCntlKundenBesonderheiten1.Visible = False
If KUNDE_ERW.kde_BesonderheitenNeu Then
UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size
UsrCntlKundenBesonderheiten1.init(kdNr)
UsrCntlKundenBesonderheiten1.Visible = True
Else
UsrCntlKundenBesonderheiten1.Visible = False
End If
rtbAbf_Besonderheiten.Visible = Not UsrCntlKundenBesonderheiten1.Visible
initAufschub()
Button1.BackgroundImage = My.Resources.fragezeichen
Button3.BackgroundImage = My.Resources.fragezeichen
' Button4.Visible = False
' Button5.Visible = False
pbCreditsafeChanges.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False) AndAlso creditsafe_newView
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!")
End Try
End Sub
Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
Try
Dim kdTmp As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
kdTmp.DokumenteLKWFreigabe = rtbLKWFreigabeSenden.Text
kdTmp.SAVE()
Dim kdErwTmp As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
kdErwTmp.kde_VerwendetAuftragsNr = cbxKdAuftragsNr.Checked
kdErwTmp.kde_FixeAuftragsNr = If(txtFixeKdAtrNr.Text <> "", txtFixeKdAtrNr.Text, Nothing)
kdErwTmp.kde_InfoAuftragsNr = If(txtInfoKdAtrNr.Text <> "", txtInfoKdAtrNr.Text, Nothing)
kdErwTmp.SAVE()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Sub initAbfVerb(abfertigungsverbot)
If abfertigungsverbot Then
'Me.BackColor = Color.Red
lblAbfertigungsverbot.Visible = True
rtbInfo.Visible = True
'lblTARIFE.ForeColor = Color.White
Else
'Me.BackColor = Color.White
lblAbfertigungsverbot.Visible = False
rtbInfo.Visible = False
'lblTARIFE.ForeColor = Color.FromArgb(0, 54, 128)
End If
End Sub
Sub showForm(t As String, Optional h As String = "")
Dim f As New Form
Dim p As New Panel
Dim rtb As New RichTextBox
f.StartPosition = FormStartPosition.CenterScreen
f.Width = 700
f.Height = 400
f.Text = h
f.Icon = My.Resources.sdl_ico
rtb.Dock = DockStyle.Fill
p.Dock = DockStyle.Fill
f.Controls.Add(p)
p.Controls.Add(rtb)
rtb.Text = t
f.ShowDialog()
End Sub
Sub initDGVAnhaenge()
usrCntlAnhaenge.INIT(kdNr)
tbAnhaenge.Text = "Anhänge"
' MsgBox(usrCntlAnhaenge.MyListBox1.Items.Count)
If usrCntlAnhaenge.MyListBox1.Items.Count > 0 Then tbAnhaenge.Text &= " (" & usrCntlAnhaenge.MyListBox1.Items.Count & ")"
Exit Sub
With dgvAnhaenge
.DataSource = SQL.loadDgvBySql("SELECT [da_id],[da_pfad],[da_name] FROM [tblDatenarchiv] " &
" WHERE [da_KundenNr]='" & kdNr & "' and [da_kategorie]='DOKUMENTE' AND da_ordner ='ANHÄNGE' ", "FMZOLL")
.Columns("da_id").Visible = False
.Columns("da_pfad").Visible = False
.Columns("da_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("da_name").HeaderText = "Datei"
.ClearSelection()
AddHandler .CellDoubleClick, Sub()
If dgvAnhaenge.SelectedRows.Count > 0 Then
dgvAnhaenge.Cursor = Cursors.WaitCursor
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value)
DS.OPEN_SINGLE(True)
dgvAnhaenge.Cursor = Cursors.Default
'cDATENSERVER.openDataTMPByDatenarchivId(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value)
End If
End Sub
End With
End Sub
Sub initDGVUmsatz()
With dgvUmsatzbericht
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = ""
If cboFirmaFMZOLL._value <> "" Then
where = " AND Firma_ID=" & cboFirmaFMZOLL._value
Else
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
End If
'Alles andere gesperrt
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
' Case "VERAG"
' where &= " AND Firma_ID <> 7"
' Case "ATILLA"
' where &= " AND Firma_ID = 7"
'End Select
.DataSource = SQL.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
" FROM [tblKundenumsatz] " &
" WHERE [KundenNr]='" & kdNr & "' " & where & " ORDER BY Jahr DESC", "FMZOLL")
If .DataSource Is Nothing Then Exit Sub
If .Columns.Count = 0 Then Exit Sub
.Columns(0).Visible = False
.Columns(11).Visible = False
.Columns(1).Width = 45
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 75
.Columns(2).DefaultCellStyle.Format = "N2"
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(3).Width = 75
.Columns(3).DefaultCellStyle.Format = "N2"
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(4).Width = 75
.Columns(4).DefaultCellStyle.Format = "N2"
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(5).Width = 55
.Columns(5).DefaultCellStyle.Format = "N2"
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(6).Width = 75
.Columns(6).DefaultCellStyle.Format = "N2"
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(7).Width = 60
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).Width = 55
.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).HeaderText = "Rechng."
.Columns(9).Width = 53
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(9).HeaderText = "Gutschr."
.Columns(10).MinimumWidth = 65
.Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
If .RowCount > 0 Then
' txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
'txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
If IsNumeric(.Rows(0).Cells("Nettoumsatz").Value) Then
txtUmsatzJahr.Text = CDbl(.Rows(0).Cells("Nettoumsatz").Value).ToString("C")
End If
Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
Else
txtUmsatzJahr.Text = ""
End If
End With
End Sub
Sub initDGVVollmachten()
With dgvVollmachten
.Columns.Clear()
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim where = "" '" AND art.kdvma_Firma='" & FirmaTmp & "' "
'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
' where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) & "' "
'End If
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
' FirmaTmp = "VERAGIMEX"
'End If
'Select Case FirmaTmp
' Case "VERAGIMEX"
' where = " AND art.kdvma_Firma IN ('VERAG', 'IMEX') "
'End Select
.DataSource = SQL.loadDgvBySql("SELECT * FROM (SELECT abf.kdvm_Id, art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.[kdvm_gueltig_bis], abf.kdvm_datenarchivId, abf.kdvm_Info, abf.[kdvm_vermerk], abf.[kdvm_archiviert],ROW_NUMBER() OVER(PARTITION BY art.kdvma_Id ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc) RowNumber" &
" FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 " & where &
" ) A WHERE RowNumber = 1", "FMZOLL")
' .RowTemplate.Height = 30
.Columns("kdvm_Id").Visible = False
.Columns("kdvma_Id").Visible = False
.Columns("kdvm_KundenNr").Visible = False
.Columns("kdvm_datenarchivId").Visible = False
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
.Columns("kdvm_erhalten").Visible = False
.Columns("kdvm_erhalten").Width = 50
.Columns("kdvm_erhalten").HeaderText = "Erhalten"
.Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_erhalten_Datum").Width = 80
.Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
.Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_gueltig_bis").Width = 80
.Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
.Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_Info").Width = 200
.Columns("kdvm_Info").HeaderText = "Info"
.Columns("kdvm_Info").Visible = False
.Columns("kdvm_vermerk").Width = 10
.Columns("kdvm_vermerk").HeaderText = "Vermerk"
.Columns("kdvm_vermerk").Visible = False
.Columns("kdvm_archiviert").Visible = False
.Columns("RowNumber").Visible = False
If True Then
Dim c As New DataGridViewImageColumn
c.Name = "clmnVermerk" : c.HeaderText = ""
c.DefaultCellStyle.NullValue = Nothing
c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.DefaultCellStyle.Tag = "" '.Columns("kdvm_vermerk")
.Columns.Add(c)
For Each r As DataGridViewRow In .Rows
If r.Cells("kdvm_vermerk").Value IsNot DBNull.Value AndAlso r.Cells("kdvm_vermerk").Value IsNot "" Then
DirectCast(r.Cells("clmnVermerk"), DataGridViewImageCell).Value = My.Resources.warning2
DirectCast(r.Cells("clmnVermerk"), DataGridViewImageCell).ToolTipText = r.Cells("kdvm_vermerk").Value.ToString
End If
Next
End If
If True Then
Dim c As New DataGridViewImageColumn
c.Name = "clmnTherefore" : c.HeaderText = "PDF"
' c.Image = Nothing
c.DefaultCellStyle.NullValue = Nothing
c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.DefaultCellStyle.Tag = "Therefore anzeigen"
.Columns.Add(c)
For Each r As DataGridViewRow In .Rows
If r.Cells("kdvma_Id").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("kdvma_Id").Value) Then
Select Case r.Cells("kdvma_Id").Value
Case 1, 7, 2, 8, 4, 9, 12, 13 : DirectCast(r.Cells("clmnTherefore"), DataGridViewImageCell).Value = My.Resources.therefore1
End Select
End If
Next
End If
If True Then
Dim c As New DataGridViewImageColumn
c.Name = "clmnPDF" : c.HeaderText = "PDF"
c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.DefaultCellStyle.Tag = "PDF anzeigen"
.Columns.Add(c)
End If
Select Case FirmaTmp
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED", "IMEX"
.Columns("clmnVermerk").Visible = True
.Columns("clmnTherefore").Visible = False
.Columns("clmnPDF").Visible = True
Case "VERAGIMEX"
.Columns("clmnVermerk").Visible = True
.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = True
Case "FRONTOFFICE"
.Columns("clmnVermerk").Visible = True
.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = True
Case Else
.Columns("clmnVermerk").Visible = True
.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = True
End Select
For Each r As DataGridViewRow In .Rows
If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
r.DefaultCellStyle.ForeColor = Color.Gray
ElseIf CBool(r.Cells("kdvm_erhalten").Value) = False Then
r.DefaultCellStyle.ForeColor = Color.Gray
ElseIf IsDate(r.Cells("kdvm_erhalten_Datum").Value) AndAlso CDate(r.Cells("kdvm_erhalten_Datum").Value) < Now.AddYears(-2) Then
r.DefaultCellStyle.ForeColor = Color.Red
ElseIf IsDate(r.Cells("kdvm_gueltig_bis").Value) AndAlso (CDate(r.Cells("kdvm_gueltig_bis").Value) < Today) Then
r.DefaultCellStyle.ForeColor = Color.Red
End If
If True Then
If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If
End If
Next
End With
End Sub
Sub initDGVGestGarantie()
With dgvGestGarantie
.Columns.Clear()
.DataSource = VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.LOAD_LIST(kdNr)
If .Columns.Count = 0 Then Exit Sub
.Columns("gg_Id").Visible = False
.Columns("gg_KundenNr").Visible = False
.Columns("gg_datenarchivId").Visible = False
.Columns("gg_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("gg_erhalten_Datum").Width = 70
.Columns("gg_erhalten_Datum").HeaderText = "Datum"
.Columns("gg_Zollamt").Width = 80
.Columns("gg_Zollamt").HeaderText = "Zollamt"
.Columns("gg_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("gg_Info").HeaderText = "Info"
If True Then
Dim c As New DataGridViewImageColumn
c.Name = "clmnPDF" : c.HeaderText = "PDF"
c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.DefaultCellStyle.Tag = "PDF anzeigen"
.Columns.Add(c)
For Each r As DataGridViewRow In .Rows
If r.Cells("gg_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("gg_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If
Next
End If
End With
clearGG()
End Sub
Sub initDGVVertraege()
With dgvVertraege
.Columns.Clear()
.DataSource = VERAG_PROG_ALLGEMEIN.cKundenVertraege.LOAD_LIST(kdNr)
If .Columns.Count = 0 Then Exit Sub
.Columns("kv_Id").Visible = False
.Columns("kv_KundenNr").Visible = False
.Columns("kv_vertragArtId").Visible = False
.Columns("kv_datenarchivId").Visible = False
.Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("kv_erhalten_Datum").Width = 70
.Columns("kv_erhalten_Datum").HeaderText = "Datum"
.Columns("kva_Bezeichnung").Width = 120
.Columns("kva_Bezeichnung").HeaderText = "Art"
.Columns("kv_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kv_Info").HeaderText = "Info"
.Columns("kv_gueltig").Width = 35
.Columns("kv_gueltig").HeaderText = "gültig"
If True Then
Dim c As New DataGridViewImageColumn
c.Name = "clmnPDF" : c.HeaderText = "PDF"
c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.DefaultCellStyle.Tag = "PDF anzeigen"
.Columns.Add(c)
For Each r As DataGridViewRow In .Rows
If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If
Next
End If
.ClearSelection()
End With
clearKV()
End Sub
Sub initDGVOffertenSperrliste()
With dgvOffertenSperrliste
Dim where As String = ""
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
where = " AND Offerten.OffertenNr IN (5,6,18,24,32,33,34,37,40,7,8,9,12,13) "
End If
' MsgBox("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten, Gesperrt, Gesperrt_Datum, Gesperrt_Grund FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' " & where & " ORDER BY Offerten.OffertenNr ")
Dim dt As DataTable = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten, Gesperrt, Gesperrt_Datum, Gesperrt_Grund FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' " & where & " ORDER BY Offerten.OffertenNr ", "FMZOLL")
.DataSource = dt
If .ColumnCount = 0 Then Exit Sub
.Columns("OffertenNr").Visible = False
.Columns("Besonderheiten").Visible = False
' .Columns("OffertenNr").HeaderText = "Nr"
.Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("OffertenBez").HeaderText = "Bezeichnung"
.Columns("Gesperrt").HeaderText = "Sperre"
.Columns("Gesperrt").Width = 45
.Columns("Gesperrt_Datum").HeaderText = "Datum"
.Columns("Gesperrt_Datum").Width = 100
.Columns("Gesperrt_Grund").HeaderText = "Sperre-Grund"
.Columns("Gesperrt_Grund").Width = 320
.Columns("Gesperrt").Visible = False
.Columns("Gesperrt_Grund").Visible = False
.Columns("Gesperrt_Datum").Visible = False
lblKeineSperren.Visible = (.RowCount = 0)
For Each r As DataGridViewRow In .Rows
If r.Cells("Gesperrt").Value IsNot DBNull.Value Then
If CBool(r.Cells("Gesperrt").Value) = True Then
r.DefaultCellStyle.ForeColor = Color.Red
End If
End If
Next
AddHandler dgvOffertenSperrliste.SelectionChanged, Sub()
initSperre()
End Sub
End With
End Sub
Private Sub initSperre()
cbxSperreSetzen.Checked = False
txtSperreDat.Text = ""
txtSperreGrund.Text = ""
dgvOfferteDetailsUebersicht.Columns.Clear()
If dgvOffertenSperrliste.SelectedRows.Count > 0 And dgvOffertenSperrliste.Columns.Count > 0 Then
If dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt").Value IsNot DBNull.Value Then
cbxSperreSetzen.Checked = dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt").Value
txtSperreDat.Text = If(dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt_Datum").Value IsNot DBNull.Value, dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt_Datum").Value, "")
txtSperreGrund.Text = dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt_Grund").Value
If dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt").Value Then
dgvOffertenSperrliste.SelectedRows(0).DefaultCellStyle.SelectionForeColor = Color.Red
Else
dgvOffertenSperrliste.SelectedRows(0).DefaultCellStyle.SelectionForeColor = Color.Black
End If
End If
initDGVOfferteDetailsUebersicht(dgvOffertenSperrliste.SelectedRows(0).Cells("OffertenNr").Value)
End If
End Sub
'Sub initDGVOfferte()
' With dgvOfferte
' .DataSource = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' ORDER BY Offerten.OffertenNr ", "FMZOLL")
' .Columns("OffertenNr").Visible = False
' .Columns("Besonderheiten").Visible = False
' ' .Columns("OffertenNr").HeaderText = "Nr"
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' .Columns("OffertenBez").HeaderText = "Bezeichnung"
' End With
' ' initDGVOfferteDetails()
'End Sub
'Private Sub dgvOfferte_CellContentClick(sender As Object, e As EventArgs)
' dgvOfferteDetails.Columns.Clear()
' If dgvOfferte.SelectedRows.Count > 0 Then
' initDGVOfferteDetails(dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value)
' End If
'End Sub
'Sub initDGVOfferteDetails(Optional OffertenNr = -1)
' With dgvOfferteDetails
' .DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[PreisänderungProzent],[PreisAlt],[Preisänderung],[Geändert am],[Sachbearbeiter] " &
' " FROM [Offertenpositionen] " &
' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
' FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
' FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
' .Columns("LeistungsNr").Width = 30
' .Columns("LeistungsNr").HeaderText = "Nr"
' .Columns("LeistungsBez").MinimumWidth = 180
' .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' .Columns("LeistungsBez").HeaderText = "Leistung"
' .Columns("BerechnungsartNr").MinimumWidth = 130
' .Columns("Preis").Width = 60
' .Columns("Preis").DefaultCellStyle.Format = "N2"
' .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
' .Columns("Anzahl").Width = 50
' .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
' .Columns("BGebLeistungsNr").Width = 60
' .Columns("BGebProzent").Width = 55
' .Columns("BGebProzent").HeaderText = "BGeb %"
' .Columns("BGebProzent").DefaultCellStyle.Format = "P"
' .Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
' .Columns("BGebMinBetrag").Width = 60
' .Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
' .Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
' .Columns("Eingegeben am").Visible = False
' ' .Columns("Sachbearbeiter").Visible = False
' ' .Columns("Geändert am").Visible = False
' .Columns("Sachbearbeiter").Width = 65
' .Columns("Geändert am").Width = 95
' .Columns("PreisänderungProzent").Width = 65
' .Columns("PreisänderungProzent").HeaderText = "Preisänd.%"
' .Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
' .Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
' .Columns("PreisAlt").Width = 60
' .Columns("PreisAlt").DefaultCellStyle.Format = "N2"
' .Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
' .Columns("Preisänderung").Width = 60
' .Columns("Preisänderung").HeaderText = "PreisNeu"
' .Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
' End With
'End Sub
Sub initDGVOfferteDetailsUebersicht(OffertenNr)
With dgvOfferteDetailsUebersicht
' .Columns.Clear()
.DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[Preis],/*[BerechnungsartNr],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[PreisänderungProzent],[PreisAlt],[Preisänderung],*/[Geändert am],[Sachbearbeiter] " &
" FROM [Offertenpositionen] " &
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
' FUNC.dgvCellToCbo(dgvOfferteDetailsUebersicht, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
' FUNC.dgvCellToCbo(dgvOfferteDetailsUebersicht, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
.Columns("LeistungsNr").Width = 30
.Columns("LeistungsNr").HeaderText = "Nr"
.Columns("LeistungsBez").MinimumWidth = 180
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("LeistungsBez").HeaderText = "Leistung"
' .Columns("BerechnungsartNr").MinimumWidth = 130
.Columns("Preis").Width = 60
.Columns("Preis").DefaultCellStyle.Format = "N2"
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
'.Columns("Anzahl").Width = 50
'.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
'.Columns("BGebLeistungsNr").Width = 60
'.Columns("BGebProzent").Width = 55
'.Columns("BGebProzent").HeaderText = "BGeb %"
'.Columns("BGebProzent").DefaultCellStyle.Format = "P"
'.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
'.Columns("BGebMinBetrag").Width = 60
'.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
'.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
'.Columns("Eingegeben am").Visible = False
.Columns("Sachbearbeiter").Width = 65
.Columns("Geändert am").Width = 95
'.Columns("PreisänderungProzent").Width = 65
'.Columns("PreisänderungProzent").HeaderText = "Preisänd.%"
'.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
'.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
'.Columns("PreisAlt").Width = 60
'.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
'.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
'.Columns("Preisänderung").Width = 60
'.Columns("Preisänderung").HeaderText = "PreisNeu"
'.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
End With
End Sub
'Private Sub dgvOfferteDetails_SelectionChanged(sender As Object, e As EventArgs) Handles dgvOfferte.SelectionChanged
' If dgvOfferte.RowCount > 0 Then
' rtbBesonderheiten.Text = checkNullStr(dgvOfferte.Rows(0).Cells("Besonderheiten").Value)
' Else
' rtbBesonderheiten.Text = ""
' End If
'End Sub
Sub initDGVOffenePosten()
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
Case "IMEX" : initDGVOffenePostenIMEX()
Case Else : initDGVOffenePostenVERAG()
End Select
End Sub
Sub initDGVOffenePostenIMEX()
With dgvOffenePosten
.Columns.Clear()
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = ""
.DataSource = SQL.loadDgvBySql("SELECT [KundenNr] as KdNr,[Datum] as Datum,[Rechnung] as Nummer,[Saldo] as Betrag,'-' as [OP-Saldo],'EUR' as Währung ,'-' as [KumSaldoEUR],[Buchungstext] " &
" FROM [Offene_Posten_DVO] " &
" WHERE KundenNr='" & KUNDE.KundenNrZentrale & "' " & where & " order BY datum DESC, [OP_ID] DESC", "FMZOLL")
If .Columns.Count > 0 Then
.Columns("KdNr").Visible = False
.Columns("Datum").Width = 70
.Columns("Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("Betrag").Width = 75
.Columns("Betrag").DefaultCellStyle.Format = "N2"
.Columns("Betrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
'.Columns("OP-Saldo").Width = 75
'.Columns("OP-Saldo").DefaultCellStyle.Format = "N2"
'.Columns("OP-Saldo").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("OP-Saldo").Visible = False
.Columns("Währung").Width = 60
.Columns("Währung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
'.Columns("KumSaldoEUR").Width = 80
'.Columns("KumSaldoEUR").DefaultCellStyle.Format = "N2"
'.Columns("KumSaldoEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("KumSaldoEUR").Visible = False
.Columns("Buchungstext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' .Columns("KumSaldoEUR").ReadOnly = False
' If .RowCount > 0 Then
End If
Dim zahlungsziel = 10
Dim sumZZ As Double = 0
Dim sumNOTZZ As Double = 0
Dim sumCredit As Double = 0
Dim sumVK As Double
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
sumVK = getOffeneVK(KUNDE.KundenNrZentrale)
End If
Dim sumGes As Double = 0
If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel
Try
For Each r As DataGridViewRow In .Rows
If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value)
Else
If CDbl(r.Cells("Betrag").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("Betrag").Value)
End If
If CDbl(r.Cells("Betrag").Value) < 0 Then sumCredit += CDbl(r.Cells("Betrag").Value)
sumGes += CDbl(r.Cells("Betrag").Value)
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
' sumGes += sumVK
'Dim OP_tmp As Double = 0
'If cboFirmaFMZOLL._value <> "" Then
' If .RowCount > 0 Then OP_tmp = If(.Rows(0).Cells("KumSaldoEUR").Value, 0)
'End If
'If OP_tmp > 0 Then
' txtOffenePosten.Text = SQL.doSQL("SELECT sum([Saldo]) FROM [Offene_Posten_DVO] where KundenNr='" & KUNDE.KundenNr & "' ", "FMZOLL")
'Else
' txtOffenePosten.Text = ""
'End If
txtOPFaellig.Text = sumZZ.ToString("C")
If sumZZ > 0 Then
txtOPFaellig.ForeColor = Color.Red
Else
txtOPFaellig.ForeColor = Color.Black
End If
txtOPNichtFaellig.Text = sumNOTZZ.ToString("C")
txtOPNichtFaellig.ForeColor = Color.Black
'If sumNOTZZ > 0 Then
' txtOPNichtFaellig.ForeColor = Color.Red
'Else
' txtOPNichtFaellig.ForeColor = Color.Black
'End If
txtOPCredit.Text = sumCredit.ToString("C")
txtOPCredit.ForeColor = Color.Green
'If sumCredit < 0 Then
' txtOPCredit.ForeColor = Color.Red
'Else
' txtOPCredit.ForeColor = Color.Black
'End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
txtOVK.Text = sumVK.ToString("C")
txtOVK.ForeColor = Color.Red
Else
txtOVK.Text = "-"
End If
If sumGes <> 0 Then
txtOffenePosten.Text = sumGes.ToString("C")
If sumGes < 0 Then
txtOffenePosten.ForeColor = Color.Green
Else
txtOffenePosten.ForeColor = Color.Red
End If
Else
txtOffenePosten.Text = ""
End If
'If sumGes > 0 Then
' txtOffenePosten.Text = sumGes.ToString("C")
'Else
' txtOffenePosten.Text = ""
'End If
'Dim c As New DataGridViewTextBoxColumn
'c.Name = "clmnSaldo"
'c.HeaderText = "Saldo"
'.Columns.Insert(6, c)
' timerOP.Enabled = True
End With
' Label44.Visible = True
' txtOpLeihgeld.Visible = True
pnl.Visible = True
Dim op_tmp = SQL.getValueTxtBySql("SELECT isnull(sum(Saldo),0) as OP FROM [Offene_Posten_DVO] where KundenNr=" & kdNr & " AND konto like '5%'", "FMZOLL")
If IsNumeric(op_tmp) Then
txtOpLeihgeld.Text = CDbl(op_tmp).ToString("C2")
Else
txtOpLeihgeld.Text = ""
End If
End Sub
Function getOffeneVK(KundenNrZentrale)
Return SQL.getValueTxtBySql("SELECT isnull(sum([vk_Betrag]),0)FROM [tblVorauskassen] where vk_KdNr = '" & KundenNrZentrale & "' and vk_GeldEingetroffen=0 and vk_Datum > DATEADD(year,-1, GETDATE())
and vk_storno=0 and (SELECT count(*) FROM Rechnungsausgang RG WHERE RG.FilialenNr = vk_FilialeNr and RG.AbfertigungsNr= vk_AbfertigungsNr and vk_KdNr=rg.RechnungsKundenNr) =0", "FMZOLL")
End Function
Sub initDGVOffenePostenVERAG()
With dgvOffenePosten
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = ""
If cboFirmaFMZOLL._value <> "" Then
where = " AND Firma_ID=" & cboFirmaFMZOLL._value
Else
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
End If
.DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as 'Währ.',[KumSaldoEUR],[Mahnstufe] as M, [Fälligkeitsdatum] as 'fällig am' ,[Buchungstext] as Referenz " &
" FROM [Offene Posten] " &
" WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY OP_ID DESC /*, Belegdatum DESC*/", "FMZOLL")
If .DataSource Is Nothing Then Exit Sub
If .Columns.Count = 0 Then Exit Sub
.Columns(0).Visible = False
.Columns(1).Width = 70
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 80
.Columns(3).Width = 75
.Columns(3).DefaultCellStyle.Format = "N2"
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(4).Width = 75
.Columns(4).DefaultCellStyle.Format = "N2"
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(5).Width = 40
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(6).Width = 80
.Columns(6).DefaultCellStyle.Format = "N2"
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(7).Width = 20
.Columns(6).DefaultCellStyle.Format = "N0"
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).Width = 70
.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(9).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
Dim OP_tmp As Double = 0
If cboFirmaFMZOLL._value <> "" Then
If .RowCount > 0 Then OP_tmp = If(.Rows(0).Cells("KumSaldoEUR").Value, 0)
Else
Dim where2 = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
Dim dt_OP As DataTable = SQL.loadDgvBySql("select isnull((select TOP 1 isnull(KumSaldoEUR,0) as abc FROM [Offene Posten] WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' and [Offene Posten].Firma_ID=tblFirma.Firma_ID ORDER BY Belegdatum DESC),0) From tblFirma WHERE 1=1 " & where2, "FMZOLL")
If dt_OP IsNot Nothing Then
For Each r In dt_OP.Rows
OP_tmp += r(0)
Next
End If
End If
Dim sumVK As Double
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
sumVK = getOffeneVK(KUNDE.KundenNrZentrale)
' OP_tmp += sumVK
End If
' If .RowCount > 0 Then
If OP_tmp <> 0 Then
' txtOffenePosten.Text = String.Format("{0:n}", .Rows(0).Cells("KumSaldoEUR").Value)
'txtOffenePosten.Text = String.Format("{0:n}", OP_tmp)
txtOffenePosten.Text = OP_tmp.ToString("C")
If OP_tmp < 0 Then
txtOffenePosten.ForeColor = Color.Green
Else
txtOffenePosten.ForeColor = Color.Red
End If
Else
txtOffenePosten.Text = ""
End If
Dim zahlungsziel = 10
Dim sumZZ As Double = 0
Dim sumNOTZZ As Double = 0
Dim sumCredit As Double = 0
If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel
Try
For Each r As DataGridViewRow In .Rows
If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
If CDbl(r.Cells("OP-Saldo").Value) > 0 Then sumZZ += CDbl(r.Cells("OP-Saldo").Value)
Else
If CDbl(r.Cells("OP-Saldo").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("OP-Saldo").Value)
End If
If CDbl(r.Cells("OP-Saldo").Value) < 0 Then sumCredit += CDbl(r.Cells("OP-Saldo").Value)
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
txtOPFaellig.Text = sumZZ.ToString("C")
If sumZZ > 0 Then
txtOPFaellig.ForeColor = Color.Red
Else
txtOPFaellig.ForeColor = Color.Black
End If
txtOPNichtFaellig.Text = sumNOTZZ.ToString("C")
txtOPNichtFaellig.ForeColor = Color.Black
'If sumNOTZZ > 0 Then
' txtOPNichtFaellig.ForeColor = Color.Red
'Else
' txtOPNichtFaellig.ForeColor = Color.Black
'End If
txtOPCredit.Text = sumCredit.ToString("C")
txtOPCredit.ForeColor = Color.Green
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
txtOVK.Text = sumVK.ToString("C")
txtOVK.ForeColor = Color.Red
Else
txtOVK.Text = "-"
End If
'If sumCredit < 0 Then
' txtOPCredit.ForeColor = Color.Red
'Else
' txtOPCredit.ForeColor = Color.Black
'End If
End With
End Sub
Private Sub dgvOffenePosten_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles dgvOffenePosten.RowPostPaint
If DateDiff(DateInterval.Day, CDate(dgvOffenePosten.Rows(e.RowIndex).Cells("Datum").Value), Now) > If(KUNDE.Zahlungsziel, 10) Then
If CDbl(dgvOffenePosten.Rows(e.RowIndex).Cells("Betrag").Value) > 0 Then
dgvOffenePosten.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
End If
End If
End Sub
Public Sub initAufschub()
' AUFSCHUB = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(kdNr)
dgvAufschub.Rows.Clear()
If AUFSCHUB IsNot Nothing Then
For Each AB In AUFSCHUB
Dim art = ""
Select Case AB.kdAkto_art
Case "10" : art = "10 - ZOLL/EUST"
Case "15" : art = "15 - ZOLL"
Case "20" : art = "20 - EUST"
End Select
dgvAufschub.Rows.Add(AB.kdAkto_id, art, AB.kdAkto_hauptzollamt, AB.kdAkto_kontonummer, AB.kdAkto_eori, AB.kdAkto_eoriNL, AB.kdAkto_bin)
Next
End If
dgvAufschub.ClearSelection()
End Sub
Function checkNullStr(o As Object) As String
If Not IsDBNull(o) Then
Return o
End If
Return ""
End Function
Function checkNullNbr(o As Object) As Double
If Not IsDBNull(o) AndAlso IsNumeric(o) Then
Return o
End If
Return 0
End Function
Function checkNullBool(o As Object) As Boolean
Try
Return DirectCast(o, Boolean)
Catch ex As Exception
Return False
End Try
End Function
Private Sub lklGanzerText_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklGanzerText.LinkClicked
showForm(gespraechsberichtText, "Gesprächsbericht")
End Sub
Private Sub lblEmail_Click(sender As Object, e As EventArgs) Handles lblEmail2.Click, lblEmail.Click
If sender.text <> "" Then
If MsgBox("Möchten Sie eine E-Mail an '" & sender.text & "' senden?", vbQuestion + vbYesNo) = vbYes Then
Try : Process.Start(String.Format("mailto:{0}", sender.text)) : Catch : End Try
End If
End If
End Sub
Dim tmprowindex As Integer = -1
Private Sub DgvDelays_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvVollmachten.CellMouseDown
' Exit Sub
Try
If e.Button = Windows.Forms.MouseButtons.Right Then
tmprowindex = e.RowIndex
ContextMenuStrip5.Show(dgvVollmachten, dgvVollmachten.PointToClient(Cursor.Position))
' cntxtVollmachten.Show(dgvVollmachten, dgvVollmachten.PointToClient(Cursor.Position))
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
'
Private Sub dgvGestGarantie_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGestGarantie.CellDoubleClick
If dgvGestGarantie.SelectedRows.Count = 1 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvGestGarantie.SelectedRows(0).Cells("gg_datenarchivId").Value)
DS.OPEN_SINGLE()
End If
End Sub
Private Sub dgvVertraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellDoubleClick
If dgvVertraege.SelectedRows.Count = 1 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
DS.OPEN_SINGLE()
End If
End Sub
Private Sub dgvVollmachten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick
Dim tmprowindex As Integer = e.RowIndex
If dgvVollmachten.Columns(e.ColumnIndex).Name = "clmnPDF" Then
If dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
DS.OPEN_SINGLE(True)
End If
Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Or
VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kunden_VM_bearbeiten", "SDL") Then
If tmprowindex < 0 Then Exit Sub
Dim frmGrayOut = cProgramFunctions.grayoutForm(Me)
Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value) '
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
l.initDGVVollmachtenEmbedded(False)
End If
frmGrayOut.Close()
initDGVVollmachten()
End If
End If
End Sub
Private Sub dgvVollmachten_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellClick
Dim tmprowindex As Integer = e.RowIndex
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG", "FRONTOFFICE"
If tmprowindex >= 0 Then
If dgvVollmachten.Columns(e.ColumnIndex).Name = "clmnTherefore" Then
If dgvVollmachten.Rows(e.RowIndex).Cells("kdvma_Id").Value Is DBNull.Value Then Exit Sub
If dgvVollmachten.Rows(e.RowIndex).Cells("kdvma_Id").Value Is Nothing Then Exit Sub
cProgramFunctions.openThereforeNavigatorZollvollmachten(kdNr, dgvVollmachten.Rows(e.RowIndex).Cells("kdvma_Id").Value)
End If
End If
End Select
End Sub
Private Sub dgvUmsatzbericht_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachten.SelectionChanged, dgvUmsatzbericht.SelectionChanged, dgvOfferteDetailsUebersicht.SelectionChanged, dgvOffenePosten.SelectionChanged ', dgvOffertenSperrliste.SelectionChanged
sender.ClearSelection()
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblKorrAdresse.LinkClicked
showForm(korrAdresseText, "Korrespondenz - Postadresse ")
End Sub
Private Sub dgvUmsatzbericht_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUmsatzbericht.CellDoubleClick
'MsgBox(e.RowIndex)
If e.RowIndex < 0 Then Exit Sub
Dim frmKundenUebersichtZollRg As New frmKundenUebersichtZollRg
frmKundenUebersichtZollRg.kdNr = dgvUmsatzbericht.Rows(e.RowIndex).Cells("KundenNr").Value
frmKundenUebersichtZollRg.jahr = dgvUmsatzbericht.Rows(e.RowIndex).Cells("Jahr").Value
frmKundenUebersichtZollRg.Show()
End Sub
Private Sub dgvVollmachten_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick
With dgvVollmachten
If .SelectedRows.Count > 0 Then
If Not .SelectedRows(0).Cells("kdvm_datenarchivId") Is DBNull.Value AndAlso IsNumeric(.SelectedRows(0).Cells("kdvm_datenarchivId")) Then
'cDATENSERVER.openDataTMPByDatenarchivId(.SelectedRows(0).Cells("kdvm_datenarchivId"))
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(.SelectedRows(0).Cells("kdvm_datenarchivId"))
DS.OPEN_SINGLE(True)
End If
End If
End With
End Sub
Private Sub btnAddAttach_Click(sender As Object, e As EventArgs) Handles btnAddAttach.Click
'cDATENSERVER.uploadDataToDATENSERVERFileDialog("DOKUMENTE", "ANHÄNGE", kdNr)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ANHÄNGE", "", "", "", "Zoll_Kunde_Anhang", kdNr)
DS.uploadDataToDATENSERVERFileDialog()
initDGVAnhaenge()
End Sub
Private Sub dgvAnhaenge_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyUp
If e.KeyCode = Keys.Delete Then
If dgvAnhaenge.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Möchten Sie die Datei wirklich löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value)
DS.DELETE_COMPLETE()
'cDATENSERVER.deleteFileByDatenarchivId(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value)
initDGVAnhaenge()
End If
End If
End If
End Sub
Private Sub FlatButton2_Click_1(sender As Object, e As EventArgs) Handles btncheckliste.Click
'MsgBox("Bitte vorübergehend die Funktion 'UID' im Hauptmenü verwenden!")
' Exit Sub
'If Not cbxFiskalabfertigung.Checked Then
' lblFisk.Visible = True
' Else
Dim found = False
Dim sperre = True
For Each r As DataGridViewRow In dgvOffertenSperrliste.Rows
If r.Cells("OffertenNr").Value = "26" Or r.Cells("OffertenNr").Value = "27" Then
found = True
If r.Cells("Gesperrt").Value Is DBNull.Value OrElse Not CBool(r.Cells("Gesperrt").Value) Then
sperre = False
End If
End If
Next
If found And sperre Then 'es wurde keine Fikale ohne Sperre gefunden, jedoch welche mit sperre -> Abbruch
Exit Sub
End If
If Not found Then
If vbYes = MsgBox("Der Kunde hat kein Fiskal-Offert, soll die Checkliste trotzdem geföffnet werden?", vbYesNoCancel) Then
found = True
End If
End If
If found Then
Dim frmCheckliste As New frmCheckliste
frmCheckliste.ADRESSEN = ADRESSE
frmCheckliste.KUNDE = KUNDE
frmCheckliste.KUNDE_ERW = KUNDE_ERW
' frmCheckliste.kdNr = kdNr
' frmCheckliste.userfullname = userfullname
frmCheckliste.Show()
Exit Sub
' Else
' MsgBox("Der Kunde hat hat Fiskal-Offert bzw. ist für die Abfertigungsart gesperrt.")
End If
' End If
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
Dim frmKundenChangeMail As New frmKundenChangeMail
frmKundenChangeMail.txtKdNr.Text = lblKdNr.Text
frmKundenChangeMail.txtKdName.Text = lblFirmenname1.Text
'KdSearchBox1.Text
' frmKundenChangeMail.txtSB.Text = userfullname
frmKundenChangeMail.Show()
End Sub
Private Sub lblEmail_TextChanged(sender As Object, e As EventArgs) Handles lblEmail2.TextChanged, lblEmail.TextChanged
sender.cursor = IIf(sender.text <> "", Cursors.Hand, Cursors.Default)
End Sub
Private Sub cboFirmaFMZOLL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmaFMZOLL.SelectedIndexChanged
If loaded Then
initDGVUmsatz()
initDGVOffenePosten()
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.Enabled = False
checkUIDNr(sender)
Button1.Enabled = True
'If ADRESSE.UstIdNr Is Nothing Then Exit Sub
'If ADRESSE.UstIdKz Is Nothing Then Exit Sub
'If ADRESSE.UstIdKz = "" Then Exit Sub
'If ADRESSE.UstIdNr = "" Then Exit Sub
'sender.BackgroundImage = My.Resources.wait
'' Button5.Visible = False
'Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
'FO.initValues()
'If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
' Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(ADRESSE.AdressenNr,, , , 2)
' If UID_TMP IsNot Nothing Then
' If UID_TMP.uid_valid Then
' setKD(kdNr)
' sender.BackgroundImage = My.Resources.ok
' Else
' sender.BackgroundImage = My.Resources.del
' End If
' Else
' sender.BackgroundImage = My.Resources.fragezeichen
' End If
' FO.Call_Web_Service_MethodUID_Logout_NEU2020()
'End If
'' If cProgramFunctions.validUID(ADRESSE.UstIdKz, ADRESSE.UstIdNr) Then
'Dim UID = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefung(ADRESSE.AdressenNr, True)
'If UID IsNot Nothing Then
' If UID.uid_valid Then
' setKD(kdNr)
' sender.BackgroundImage = My.Resources.ok
' Else
' sender.BackgroundImage = My.Resources.del
' End If
'Else
' sender.BackgroundImage = My.Resources.fragezeichen
'End If
End Sub
Private Sub btnPruf_Click(sender As Object, e As EventArgs) Handles Button3.Click
checkEORI()
Exit Sub
'Create an object that calls the name for the
'Web service used in the added Web Reference.
sender.BackgroundImage = My.Resources.wait
' Button4.Visible = False
Dim sGetValu2e As New validation
' sGetValu2e.Url = "http://eori.ws.eos.dds.s/"
sGetValu2e.RequestEncoding = System.Text.UTF8Encoding.Default
'sGetValu2e.RequestEncoding = System.Text.Encoding.Default
' sGetValu2e.UserAgent = "Mozilla/4.0"
Try
' sGetValu2e.Url = "http://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation?wsdl"
Dim result As eoriValidationResult = sGetValu2e.validateEORI({KUNDE.EORITIN})
If False Then
Dim CallWebService As New EORI.validation
'(Substitute the names of your own Server and Web
' service for ServerName.WebServiceName above.)
' CallWebService.validateEORI = txtEori
' Dim eori As New UID.eu.europa.ec.eoriResponse
Dim arrEori As String() = {KUNDE.EORITIN}
CallWebService.Timeout = 32768
' CallWebService.SoapVersion
'MsgBox(CallWebService.validateEORI(arrEori))
'CallWebService.validateEORIAsync(arrEori)
'CallWebService.UserAgent = "MSIE 6.0"
Dim sGetValue As EORI.eoriValidationResult = CallWebService.validateEORI(arrEori)
Dim f As EORI.eoriResponse
'MsgBox(sGetValue.requestDate)
'MsgBox(sGetValue.errorDescription.ToString)
'MsgBox("OK")
'MsgBox(sGetValue.result)
If f.status = 100 Then
sender.BackgroundImage = My.Resources.ok
'Button4.Visible = True
Exit Sub
End If
End If
Catch ex2 As InvalidOperationException
'Server.GetLastError()
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Catch ex As Exception
'Server.GetLastError()
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
sender.BackgroundImage = My.Resources.del
Exit Sub
Dim vat As New SDL.EORI.validation
' Dim EU3t As New SDL.eu.europa.ec.checkVatService("checkVatPort", "http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl") '"urn:ec.europa.eu:taxud:vies:services:checkVat:types")
' Dim EU4 As New EU_Uid_Pruefung.checkVatPortTyp
' EU3.checkVatPortType()
' "EU_Uid_Pruefung.checkVatPortType"
' Dim ass As New EU_UID_Pruefung.checkVatPortTypeClient()
' ass.checkVatPortTypeClient()
' Dim s = EU3t.checkVat("AT", "U53187000", valid, name, adress)
Dim str(1) As String ' = {KUNDE.EORITIN}
str(0) = "DE22372020005"
' MsgBox("")
Dim s As EORI.eoriValidationResult = vat.validateEORI(str)
MsgBox(s.result(0))
Dim v As New EORI.validation()
'Dim resp As eu.europa.ec1.eoriResponse
'resp
' FINANZONLINE:::::::::::::::::::::::::::
'_________________________________
' frmUidLink.link = uidlink
' frmUidLink.Show()
'_________________________________
Me.Cursor = Cursors.WaitCursor
If cFinanzOnlineWebService.Call_Web_Service_MethodUID_Login() = 0 Then
MsgBox("HURRA")
End If
' If session <> "" Then
' Dim s As String
' Try
's = Call_Web_Service_MethodUID_Abfrage(session)
' Call_Web_Service_MethodUID_Logout(session)
' uid_message = getmessage(s)
' If s = "0" Then
'uid_message_report = "Die UID-Nummer " & txtUid.Text & " wurde geprüft und ist gültig."
' ElseIf s = "4" Then
' uid_message_report = "Die UID-Nummer " & txtUid.Text & " wurde geprüft und ist NICHT gültig."
' Else
'uid_message_report = "Probleme bei der Abfrage - UID-Nummer: " & txtUid.Text
' End If
'
' Catch ex As Exception
' MsgBox("Fehler beim Prüfen der UID-Nummer" & vbNewLine & vbNewLine & ex.Message) : End Try
' End If
' Me.Cursor = Cursors.Default
End Sub
Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblFwlFiskal.LinkClicked
showForm(firmenwortlautFiskal, "Firmenwortlaut - Fiskal")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Me.Cursor = Cursors.WaitCursor
printUID("AT", "U53187000", ADRESSE.UstIdKz, ADRESSE.UstIdNr)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.Cursor = Cursors.WaitCursor
printEORI(KUNDE.EORITIN)
Me.Cursor = Cursors.Default
End Sub
Sub printUID(uidKz_antragsteller, uid_antragsteller, uidKz, uid)
If uidKz Is Nothing Then Exit Sub
If uid Is Nothing Then Exit Sub
If uidKz = "" Then Exit Sub
If uid = "" Then Exit Sub
printURL("http://ec.europa.eu/taxation_customs/vies/vatResponse.html?memberStateCode=" & uidKz & "&number=" & uid & "&requesterMemberStateCode=" & uidKz_antragsteller & "&requesterNumber=" & uid_antragsteller)
End Sub
Sub pdfUID(uidKz_antragsteller, uid_antragsteller, uidKz, uid)
If uidKz Is Nothing Then Exit Sub
If uid Is Nothing Then Exit Sub
If uidKz = "" Then Exit Sub
If uid = "" Then Exit Sub
Dim url = SDL.cFinanzOnlineWebService.genUID_FormularWithoutSaving(uidKz + uid)
'Dim url = "http://ec.europa.eu/taxation_customs/vies/vatResponse.html?memberStateCode=" & uidKz & "&number=" & uid & "&requesterMemberStateCode=" & uidKz_antragsteller & "&requesterNumber=" & uid_antragsteller ' alte SOAP-Abfrage!!!
If url <> "" Then
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
'If pdf <> "" Then Process.Start(pdf)
End If
End Sub
Sub printEORI(eoriNr, Optional pdfPath = "")
timer_EORI.Interval = 2000
If eoriNr Is Nothing Then Exit Sub
eoriNr = eoriNr.Replace(" ", "").Trim
' printURL("http://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & eoriNr & "&Expand=true")
Dim f As New frmInfo
f.Controls.Clear()
Dim WebBrowser As New VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx
WebBrowser.ScriptErrorsSuppressed = True
f.Controls.Add(WebBrowser)
f.Visible = False
f.WindowState = FormWindowState.Minimized
f.Show()
f_EORI = f
f_EORI_PDF = pdfPath
WebBrowser.Dock = DockStyle.Fill
WebBrowser.Navigate(New Uri("http://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & eoriNr & "&Expand=true"))
AddHandler WebBrowser.DocumentCompleted, Sub()
' Print the document now that it is fully loaded.
If WebBrowser.ReadyState = WebBrowserReadyState.Complete Then
' System.Threading.Thread.Sleep(1000)
' WebBrowser.Print()
' Dispose the WebBrowser now that the task is complete.
' WebBrowser.Dispose()
timer_EORI.Enabled = True
End If
End Sub
End Sub
Sub printURL(url)
Dim WebBrowser As New VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx
WebBrowser.ScriptErrorsSuppressed = True
WebBrowser.Navigate(New Uri(url))
WebBrowser.AllowNavigation = True
'WebBrowser.Print()
AddHandler WebBrowser.DocumentCompleted, Sub()
' Print the document now that it is fully loaded.
System.Threading.Thread.Sleep(1000)
WebBrowser.Print()
' Dispose the WebBrowser now that the task is complete.
WebBrowser.Dispose()
End Sub
End Sub
Private Sub tbWeitereKundenDetails_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbWeitereKundenDetails.SelectedIndexChanged
cboFirmaFMZOLL.Visible = (tbWeitereKundenDetails.SelectedIndex > 0)
Label30.Visible = (tbWeitereKundenDetails.SelectedIndex > 0)
btnExcel.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LADEN", "SDL") Then
btnReloadOP.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten)
btnOP.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten)
End If
End Sub
Private Sub btnBonitaetBearbeiten_Click(sender As Object, e As EventArgs) Handles btnBonitaetBearbeiten.Click
Dim f1 As New frmBonitaet(kdNr)
f1.ShowDialog(Me)
setKD(kdNr) 'aktualisieren
Exit Sub
Dim f As New frmFormulare(kdNr)
f.Show()
f.addForm("Boniteatsauskunft")
Exit Sub
If kdNr <= 0 Then Exit Sub
Dim frmBonitaetBearbeiten As New frmBonitaetBearbeiten
If frmBonitaetBearbeiten.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
SQL.doSQL("UPDATE Kunden SET Bonität='" & frmBonitaetBearbeiten.lblBonitaet.Text & "', Bonitätsdatum='" & frmBonitaetBearbeiten.lblBonitaetsdatum._value & "' WHERE KundenNr=" & kdNr, "FMZOLL")
setKD(kdNr)
End If
End Sub
Private Sub FlatButton5_Click_1(sender As Object, e As EventArgs) Handles btnSaveOfferte.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("OFFERTEN_SPERRE", "SDL") > 0 Then
Exit Sub
End If
If dgvOffertenSperrliste.SelectedRows.Count > 0 Then
SQL.doSQL("UPDATE Offerten SET Gesperrt=" & CInt(cbxSperreSetzen.Checked) & ", Gesperrt_Datum=GETDATE(), Gesperrt_Grund='" & txtSperreGrund.Text & "' WHERE KundenNr=" & kdNr & " AND OffertenNr=" & dgvOffertenSperrliste.SelectedRows(0).Cells("OffertenNr").Value & "", "FMZOLL")
End If
End Sub
Private Sub cbxSperreSetzen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSperreSetzen.Click
txtSperreDat.Text = Now.ToShortDateString & " " & Now.ToShortTimeString
End Sub
Private Sub cbxSperreSetzen_CheckedChanged_1(sender As Object, e As EventArgs) Handles cbxSperreSetzen.CheckedChanged
cbxSperreSetzen.ForeColor = If(cbxSperreSetzen.Checked, Color.Red, Color.Black)
End Sub
Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
Dim f As New frmBonitätsverlauf(kdNr)
f.newView = creditsafe_newView
f.Show()
AddHandler f.FormClosed, Sub()
setKD(kdNr)
End Sub
End Sub
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
Me.Cursor = Cursors.WaitCursor
cProgramFunctions.genExcelFromDGV_NEW(dgvOffenePosten, False)
Me.Cursor = Cursors.Default
End Sub
Private Sub LinkLabel1_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
If trennungBesonderheiten Then
rtbAbf_Besonderheiten.Text = checkNullStr(KUNDE.Besonderheiten)
Else
rtbAbf_Besonderheiten.Text = checkNullStr(KUNDE.Besonderheiten).Replace(" / ", vbNewLine)
End If
trennungBesonderheiten = Not trennungBesonderheiten
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
rtbAbf_Besonderheiten.ZoomFactor += 0.2
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
rtbAbf_Besonderheiten.ZoomFactor -= 0.2
End Sub
Private Sub btnPunkt2Save_Click(sender As Object, e As EventArgs) Handles btnPunkt2Save.Click
SQL.doSQL("UPDATE Kunden SET Besonderheiten='" & rtbAbf_Besonderheiten.Text & "', [Sachbearbeiter] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "', [Geändert am] ='" & Now & "' WHERE KundenNr=" & kdNr, "FMZOLL")
setKD(kdNr)
End Sub
Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles btnVeragAnspr.Click
Dim f As New frmKundeAnsprechpartnerTeams(KUNDE, KUNDE_ERW)
If f.ShowDialog(Me) = DialogResult.OK Then
setKD(kdNr)
End If
'Dim f As New frmKundeTeamZuordnung(KUNDE_ERW.kde_qsTeamId, KUNDE_ERW.kde_qsTeamMAId)
'If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
' If f.SEL_TEAM IsNot Nothing Then
' KUNDE_ERW.kde_qsTeamId = f.SEL_TEAM.qstm_Id
' KUNDE_ERW.kde_qsTeamMAId = f.SEL_TEAM.qstm_Id
' KUNDE_ERW.kde_qsTeamId = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_MaId)
' KUNDE_ERW.kde_qsTeamMAName = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_name)
' KUNDE_ERW.kde_qsTeamName = f.SEL_TEAM.qstm_bezeichnung
' KUNDE_ERW.SAVE()
' ' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId='" & f.SEL_TEAM.qstm_Id & "', [kde_qsTeamMAId] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_MaId & "'") & " , [kde_qsTeamMAName] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_name & "'") & " , [kde_qsTeamName] = '" & f.SEL_TEAM.qstm_bezeichnung & "' WHERE kde_KundenNr=" & kdNr, "FMZOLL")
' Else
' KUNDE_ERW.kde_qsTeamId = Nothing
' KUNDE_ERW.kde_qsTeamMAId = Nothing
' KUNDE_ERW.kde_qsTeamId = Nothing
' KUNDE_ERW.kde_qsTeamMAName = Nothing
' KUNDE_ERW.kde_qsTeamName = Nothing
' KUNDE_ERW.SAVE()
' ' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId=null, [kde_qsTeamMAId] = null, [kde_qsTeamMAName] =null , [kde_qsTeamName] =null WHERE kde_KundenNr=" & kdNr, "FMZOLL")
' End If
' setKD(kdNr)
'End If
End Sub
Private Sub cbxKdAuftragsNr_CheckedChanged(sender As Object, e As EventArgs) Handles cbxKdAuftragsNr.CheckedChanged
txtFixeKdAtrNr.Enabled = cbxKdAuftragsNr.Checked
txtInfoKdAtrNr.Enabled = cbxKdAuftragsNr.Checked
End Sub
Private Sub timer_EORI_Tick(sender As Object, e As EventArgs) Handles timer_EORI.Tick
Try
If f_EORI_PDF <> "" Then
' DirectCast(f_EORI.Controls(0), VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx).ShowSaveAsDialog()
'DirectCast(f_EORI.Controls(0), VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx).
'Dim urlPDF = DirectCast(f_EORI.Controls(0), VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx).Url.AbsoluteUri
'MsgBox(urlPDF)
'Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(urlPDF, "C:\Users\DEVELOPER1\Desktop\test.pdf")
'If pdf <> "" Then Process.Start(pdf)
Else
DirectCast(f_EORI.Controls(0), VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx).Print()
End If
f_EORI.Close()
Catch ex As Exception
End Try
timer_EORI.Enabled = False
End Sub
Private Sub tbKontakt_TabIndexChanged(sender As Object, e As EventArgs) Handles tbKontakt.SelectedIndexChanged
If tbKontakt.SelectedTab Is tbKontaktSpez Then
initKdKontakSpeziell()
End If
End Sub
Sub initKdKontakSpeziell()
'TabPage11.Controls.Clear()
ucKundenKontakte.init(kdNr)
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
If (txtT1VerzollungsadresseBestimmungszollstelle._value <> "" Or cbxGG.Checked) And txtGGDatum._value <> "" Then
Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien
If Button9.Visible Then
If dgvGestGarantie.SelectedRows.Count = 1 Then
GG = New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value)
Else
Exit Sub
End If
End If
GG.gg_KundenNr = kdNr
GG.gg_erhalten_Datum = txtGGDatum._value
GG.gg_Zollamt = If(cbxGG.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value)
If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.ENTRY_Exists(kdNr, GG.gg_Zollamt, txtGGDatum._value) Then
MsgBox("Der Eintrag existiert bereits!")
Exit Sub
End If
GG.gg_Info = txtT1VerzollungsadresseBestimmungszollstelle.GET_VALUE_OnlyReturn(txtT1VerzollungsadresseBestimmungszollstelle._value, False)
GG.gg_Info &= " - " & txtT1VerzollungsadresseBestimmungszollstelle._value
If GG.SAVE Then
txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE("")
setKD(kdNr)
txtT1VerzollungsadresseBestimmungszollstelle.Focus()
End If
clearGG()
End If
End Sub
Private Sub txtT1VerzollungsadresseBestimmungszollstelle_KeyDown(sender As Object, e As KeyEventArgs) Handles txtT1VerzollungsadresseBestimmungszollstelle.KeyDown, txtGGDatum.KeyDown
If e.KeyCode = Keys.Return Then
If txtT1VerzollungsadresseBestimmungszollstelle.usrcntl.Visible Then Exit Sub
Button8.PerformClick()
End If
End Sub
Private Sub dgvGestGarantie_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvGestGarantie.CellMouseClick
If e.RowIndex < 0 Then Exit Sub
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
If e.Button = Windows.Forms.MouseButtons.Right Then
If dgvGestGarantie.SelectedRows.Count > 0 Then
ContextMenuStrip3.Show(Cursor.Position)
End If
End If
End Sub
Private Sub dgvVertraege_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVertraege.CellMouseClick
If e.RowIndex < 0 Then Exit Sub
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
If e.Button = Windows.Forms.MouseButtons.Right Then
If dgvVertraege.SelectedRows.Count > 0 Then
ContextMenuStrip4.Show(Cursor.Position)
End If
End If
End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
If dgvGestGarantie.SelectedRows.Count > 0 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value)
If GG.DELETE() Then
setKD(kdNr)
End If
End If
End If
End If
End Sub
Private Sub FlatButton8_Click(sender As Object, e As EventArgs) Handles btnThereforeTarifNr.Click
cProgramFunctions.openThereforeNavigatorTarifnummern(kdNr)
End Sub
Private Sub FlatButton7_Click_1(sender As Object, e As EventArgs) Handles btnThereforeKundeninfo.Click
cProgramFunctions.openThereforeNavigatorKudnenInfo(kdNr)
End Sub
Private Sub timerOP_Tick(sender As Object, e As EventArgs) Handles timerOP.Tick
Dim sumGes As Double = 0
timerOP.Enabled = False
For cnt = dgvOffenePosten.Rows.Count - 1 To 0 Step -1
Dim r As DataGridViewRow = dgvOffenePosten.Rows(cnt)
sumGes += CDbl(r.Cells("Betrag").Value)
r.Cells("clmnSaldo").Value = sumGes
Next
End Sub
Private Sub ScannenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ScannenToolStripMenuItem.Click
If dgvGestGarantie.SelectedRows.Count = 1 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr)
Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("DirectScan")
frmScan.DefaultFileName = DS.da_name
If frmScan.ShowDialog(Me) = DialogResult.OK Then
If frmScan.ReturnValue IsNot Nothing Then
Dim Filename = DS.da_name
If frmScan.fileName <> "" Then Filename = frmScan.fileName
If DS.uploadDataToDATENSERVER_fromBytes(frmScan.ReturnValue, Filename, ".pdf") Then
Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value)
GG.gg_datenarchivId = DS.da_id
GG.SAVE()
initDGVGestGarantie()
End If
End If
End If
End If
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
clearGG()
End Sub
Sub clearGG()
txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE("")
txtGGDatum.Text = ""
cbxGG.Checked = False
Button8.Text = "Hinzufügen"
Button9.Visible = False
End Sub
Sub clearKV()
cboVertrag.changeItem("")
datVertrag.Text = ""
txtVertragVermerk.Text = ""
Button11.Text = "Hinzufügen"
Button12.Visible = False
picVertrag.Visible = PDF_Attach_TMP_VERTRAEGE <> ""
End Sub
Private Sub PDFLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFLöschenToolStripMenuItem.Click
If dgvGestGarantie.SelectedRows.Count = 1 Then
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr)
DS.DELETE_COMPLETE()
Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value)
GG.gg_datenarchivId = Nothing
GG.SAVE()
initDGVGestGarantie()
End If
End If
End Sub
Private Sub ÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÄndernToolStripMenuItem.Click
If dgvGestGarantie.SelectedRows.Count = 1 Then
Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value)
txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(GG.gg_Zollamt)
txtGGDatum.Text = GG.gg_erhalten_Datum
cbxGG.Checked = (GG.gg_Zollamt = "GENERELL")
Button8.Text = "Ändern"
Button9.Visible = True
End If
End Sub
Private Sub HochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HochladenToolStripMenuItem.Click
If dgvGestGarantie.SelectedRows.Count = 1 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr)
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
Dim gg As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value)
gg.gg_datenarchivId = DS.da_id
gg.SAVE()
initDGVGestGarantie()
End If
End If
End Sub
Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenToolStripMenuItem.Click
Clipboard.SetText(rtbAbf_Besonderheiten.SelectedText)
End Sub
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
If dgvAufschub.SelectedRows.Count > 0 Then
Clipboard.SetText(dgvAufschub.SelectedRows(0).Cells("HZA").Value & dgvAufschub.SelectedRows(0).Cells("KontoNr").Value)
End If
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Me.Cursor = Cursors.WaitCursor
pdfUID("AT", "U53187000", ADRESSE.UstIdKz, ADRESSE.UstIdNr)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Cursor = Cursors.WaitCursor
'printEORI(KUNDE.EORITIN, "C:\Users\DEVELOPER1\Desktop\test.pdf")
'Dim url = "https://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & KUNDE.EORITIN & "&Expand=true"
Dim EORI_NR = KUNDE.EORITIN.ToString()
EORI_NR.Replace("-", "").Replace(" ", "").Trim()
If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
Dim url = SDL.cEORIWebService.genEORI_Formular(kdNr, EORI_NR)
'Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
'If pdf <> "" Then Process.Start(pdf)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
If cboVertrag._value <> "" And datVertrag._value <> "" Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege
If Button12.Visible Then
If dgvVertraege.SelectedRows.Count = 1 Then
KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
Else
Exit Sub
End If
End If
KV.kv_KundenNr = kdNr
KV.kv_erhalten_Datum = datVertrag._value
'KV.kv_Zollamt = If(cbxKV.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value)
'If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cKundenVertraege.ENTRY_Exists(kdNr, KV.kv_Zollamt) Then
' MsgBox("Der Eintrag existiert bereits!")
' Exit Sub
'End If
KV.kv_vertragArtId = cboVertrag._value
KV.kv_Info = txtVertragVermerk.Text
If KV.SAVE Then
If PDF_Attach_TMP_VERTRAEGE <> "" Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & KV.kv_Id, kdNr)
If DS.uploadDataToDATENSERVER(PDF_Attach_TMP_VERTRAEGE) Then
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
End If
PDF_Attach_TMP_VERTRAEGE = ""
End If
setKD(kdNr)
End If
clearKV()
End If
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
PDF_Attach_TMP_VERTRAEGE = ""
clearKV()
End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
If dgvVertraege.SelectedRows.Count > 0 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
If vbYes = MsgBox("Möchten Sie den Vertrag wirklich löschen?", vbYesNoCancel) Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
If KV.DELETE() Then
setKD(kdNr)
End If
End If
End If
End If
End Sub
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
If dgvVertraege.SelectedRows.Count = 1 Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
cboVertrag.changeItem(KV.kv_vertragArtId)
datVertrag.Text = KV.kv_erhalten_Datum
txtVertragVermerk.Text = KV.kv_Info
Button11.Text = "Ändern"
Button12.Visible = True
End If
End Sub
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
initDGVVertraege()
End If
End If
End If
End Sub
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("DirectScan")
frmScan.DefaultFileName = DS.da_name
If frmScan.ShowDialog(Me) = DialogResult.OK Then
If frmScan.ReturnValue IsNot Nothing Then
Dim Filename = DS.da_name
If frmScan.fileName <> "" Then Filename = frmScan.fileName
If DS.uploadDataToDATENSERVER_fromBytes(frmScan.ReturnValue, Filename, ".pdf") Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
initDGVVertraege()
End If
End If
End If
End If
End If
End Sub
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
DS.DELETE_COMPLETE()
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId = Nothing
KV.SAVE()
initDGVVertraege()
End If
End If
End If
End Sub
Private Sub GültigungültigToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GültigungültigToolStripMenuItem.Click
If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_gueltig = Not KV.kv_gueltig
KV.SAVE()
initDGVVertraege()
End If
End If
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
genUIDEORIList(kdNr, "UID")
End Sub
Sub genUIDEORIList(kdNr, typeListe)
If kdNr <= 0 Then Exit Sub
Dim frmList As New frmKundenUIDEORI_List
Select Case typeListe
Case "UID"
Dim dt = SQL.loadDgvBySql("SELECT [uid_id],[uid_KundenNr] KundenNr,[uid_UstIdKz]UstIdKz,[uid_UstIdNr]UstIdNr,[uid_Datum]Datum,[uid_valid]Gültig,[uid_Sachbearbeiter]Sachbearbeiter,[uid_stufe]Stufe FROM [tblUIDPruefung]where uid_KundenNr='" & kdNr & "' ORDER BY uid_Datum desc", "FMZOLL")
If dt IsNot Nothing Then
frmList.dgv.DataSource = dt
frmList.dgv.Columns("uid_id").Visible = False
AddHandler frmList.dgv.CellDoubleClick, Sub()
Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG_PROTOKOLL(frmList.dgv.SelectedRows(0).Cells("uid_id").Value)
If PdfTmp <> "" Then
Process.Start(PdfTmp)
End If
End Sub
frmList.Show(Me)
End If
Case "EORI"
Dim dt = SQL.loadDgvBySql("SELECT [eori_id],[eori_KdNr] KundenNr,[eori_Datum]Datum,[eori_valid]Gültig,[eori_sachbearbeiter]Sachbearbeiter FROM [tblEORIPruefung] where eori_KdNr='" & kdNr & "' ORDER BY eori_Datum desc", "FMZOLL")
If dt IsNot Nothing Then
frmList.dgv.DataSource = dt
frmList.dgv.Columns("eori_id").Visible = False
'--------------------------
AddHandler frmList.dgv.CellDoubleClick, Sub()
Dim eoripruef As New cEORIPruefung(frmList.dgv.SelectedRows(0).Cells("eori_id").Value)
Dim msgErgebnis
If eoripruef.eori_valid Then
msgErgebnis = "EORI-Nr. GÜLTIG - OK"
Else
msgErgebnis = "EORI-Nr. UNGÜLTIG"
End If
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, eoripruef.eori_firma, eoripruef.eori_sessionID, KUNDE.EORITIN,, eoripruef.eori_sendungsid, eoripruef.eori_datum, eoripruef.eori_sachbearbeiter, eoripruef.eori_FirmaID)
If PdfTmp <> "" Then
Process.Start(PdfTmp)
End If
End Sub
'--------------------------
frmList.Show(Me)
End If
End Select
End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnReloadOP.Click
Me.Cursor = Cursors.WaitCursor
Try
If KUNDE Is Nothing Then Exit Sub
If cboFirmaFMZOLL._value <> "" Then
If VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirmaFMZOLL._value, KUNDE.KundenNrZentrale) Then
MsgBox("Die OP-Liste wurde erfolgreich aktualisiert!")
End If
Else
If VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL(KUNDE.KundenNrZentrale) Then
MsgBox("Die OP-Liste wurde erfolgreich aktualisiert!")
End If
End If
initDGVUmsatz()
initDGVOffenePosten()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub dgvVollmachten_DragDrop(sender As Object, e As DragEventArgs) Handles dgvVollmachten.DragDrop
Try
If e.Data.GetDataPresent("FileDrop", True) = True Then
Dim FileList As String() = CType(e.Data.GetData("FileDrop"), Object) 'Hier wird der Variable "Wert" das übergeben, was wir auf die Form gezogen haben. Bei einer Datei wäre es dann der Pfad der Datei.
If FileList.Count > 0 Then
'If Not _MULTI_FILES And FileList.Count > 1 Then
' MsgBox("Es können nicht mehrere Dateien hochgeladen werden!")
' Exit Sub
'End If
For Each W In FileList
If Not W.ToUpper.EndsWith(".EXE") Then
Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
Dim l As New frmKundenZOLLVollmachten(kdNr, -1, W)
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
initDGVVollmachten()
End If
End If
Next
End If
End If
Catch ex As Exception
MsgBox(" FEHLER: DragDrop!" & ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub Button15_Click_1(sender As Object, e As EventArgs) Handles btnVMhinzufuegen.Click
Dim where = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim dt = SQL.loadDgvBySql("SELECT [kdvma_Id], [kdvma_Bezeichnung] FROM [tblKundenVollmachtenArt] where [kdvma_visible] = 1 AND [kdvma_Firma]='" & where & "'", "FMZOLL")
cntxtAddVM.Items.Clear()
For Each dr As DataRow In dt.Rows
Dim i As New ToolStripMenuItem
i.Text = dr.Item(1).ToString
i.Name = "kdvma_id_" & dr.Item(0).ToString
cntxtAddVM.Items.Add(i)
AddHandler i.Click, AddressOf DToolStripMenuItem_Click
Next
btnVMhinzufuegen.ContextMenuStrip = cntxtAddVM
Dim ptLowerLeft As New Point(sender.width, sender.Height)
ptLowerLeft = sender.PointToScreen(ptLowerLeft)
ptLowerLeft.X -= sender.width
cntxtAddVM.Show(ptLowerLeft)
End Sub
Private Sub DToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DToolStripMenuItem.Click
If sender.name.contains("kdvma_id_") Then
Dim vmaText As String = sender.name.ToString.Replace("kdvma_id_", "")
Dim vmaNr As Integer = Convert.ToInt32(vmaText)
Dim l As New frmKundenZOLLVollmachten(kdNr, vmaNr)
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
End If
initDGVVollmachten()
End If
End Sub
Private Sub btnCreditsafe_Click(sender As Object, e As EventArgs) Handles btnCreditsafe.Click
Dim UID As String = ""
Dim land As String = "" 'checkNullStr(ADRESSE.UstIdKz)
Dim name As String = checkNullStr(ADRESSE.Name_1)
Cursor = Cursors.WaitCursor
btnCreditsafe.Enabled = False 'doppelklick verhindern!
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
If KUNDE_ERW.kde_CreditSaveId = "" Then
If checkNullStr(ADRESSE.UstIdKz) <> "" Or checkNullStr(ADRESSE.UstIdNr) <> "" Then
UID = checkNullStr(ADRESSE.UstIdKz) & " " & checkNullStr(ADRESSE.UstIdNr)
End If
Select Case checkNullStr(ADRESSE.LandKz)
Case "A", "" : land = "AT"
Case "D" : land = "DE"
Case Else
land = ADRESSE.LandKz
End Select
Dim f As New frmCreditSafeSearch
If f.ShowDialog = DialogResult.OK Then
KUNDE_ERW.kde_CreditSaveId = f.UsrcntlCreditsafe1.comp.credissafeId
KUNDE_ERW.kde_CreditSaveNo = f.UsrcntlCreditsafe1.comp.safeNo
KUNDE_ERW.SAVE()
End If
Else
Dim cs = New cCreditSafeAPI("creditsafe")
'If cs.authenticate(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd) = "200" Then
If cs.authenticate() = "200" Then
'Prüfung wird benötigt, da deutsche Abfragen einen Reasoncode benötigen!
If checkNullStr(ADRESSE.LandKz) = "" Then
MsgBox("Land im Kunden muss hinterlegt sein!")
Exit Sub
End If
If ADRESSE.LandKz.ToString.Length <> 2 Then
land = cProgramFunctions.getISO2Land(ADRESSE.LandKz)
Else
land = ADRESSE.LandKz
End If
Dim company As New cCreditSafeAPI.Company("", "", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", kdNr)
If lblBonitaetsdatum._value <> Nothing Then
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
If Not KUNDE_ERW.kde_CSPortfolioAdded Then
Dim AddCompValue As String = cs.AddCompanyToPortfolio(company)
If AddCompValue = "Conflict" Or AddCompValue = "OK" Or AddCompValue Is Nothing Then SQL.doSQL("Update tblKundenErweitert set kde_CSPortfolioAdded = 1 where kde_CreditSaveId = '" & KUNDE_ERW.kde_CreditSaveId & "'", "FMZOLL")
End If
If lastChecked = Today Then
Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today)
If bonaus IsNot Nothing Then
If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then
MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!")
Cursor = Cursors.Default
btnCreditsafe.Enabled = True
Exit Sub
End If
End If
End If
If cs.checkDateOfLastRequest(company) < lastChecked Then
Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
If a = vbYes Then
setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
End If
Else
setCreditsafereportEntry(cs, company)
End If
Else
setCreditsafereportEntry(cs, company)
End If
Else
MsgBox("Authentifizierungsfehler bei Creditsafe-User")
End If
End If
initCreditsave()
setKD(kdNr)
Cursor = Cursors.Default
btnCreditsafe.Enabled = True
End Sub
Private Sub setCreditSafeEntry(company As cCreditSafeAPI.Company, PDF As Byte(), krn As Integer, Optional forcedRequest As Boolean = False, Optional cscounterbefore As Integer = 0, Optional cscounterafter As Integer = 0, Optional csmax As Integer = 0, Optional cscountry As String = "")
If company.csFailure <> "" Then
MsgBox(company.csFailure)
Exit Sub
End If
Dim cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
If PDF IsNot Nothing Then
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "CREDITSAFE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "", Now.ToString("ddMMyy_HHmmss.ffff"), "Bericht_" & kdNr, kdNr)
Dim path = DS.uploadDataToDATENSERVER_fromBytes(PDF, "Bericht_" & kdNr, ".pdf")
If path Then
cBonitaetsauskunft.ba_datenarchivId = DS.da_id
End If
End If
cBonitaetsauskunft.ba_BonitaetsIndex = Nothing
cBonitaetsauskunft.ba_Risikostufe = Nothing
cBonitaetsauskunft.ba_CreditSaveBonitaetsScore = Nothing
cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = Nothing
cBonitaetsauskunft.ba_CreditSaveRisikoklasse = Nothing
cBonitaetsauskunft.ba_forcedRequest = forcedRequest
cBonitaetsauskunft.ba_KundenNr = (kdNr)
cBonitaetsauskunft.ba_Datum = Now()
cBonitaetsauskunft.ba_Pruefungstool = "creditsafe API"
cBonitaetsauskunft.ba_CScounterBeforeRequest = cscounterbefore
cBonitaetsauskunft.ba_CScounterAfterRequest = cscounterafter
cBonitaetsauskunft.ba_CSmax = csmax
cBonitaetsauskunft.ba_CScountry = cscountry
' Öster. Unternehmen -> Creditscore, sonst Index
If (IsNumeric(company.csIndex)) Then
company.csIndex = company.csIndex.Replace(".", ",")
cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = CDbl(company.csIndex)
Else
cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = 0
End If
If (IsNumeric(company.csScore)) Then
cBonitaetsauskunft.ba_CreditSaveBonitaetsScore = CInt(company.csScore)
Else
cBonitaetsauskunft.ba_CreditSaveBonitaetsScore = 0
End If
cBonitaetsauskunft.ba_CreditSaveRisikoklasse = cProgramFunctions.isLeerNothing(company.csRiskclass)
cBonitaetsauskunft.ba_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
cBonitaetsauskunft.ba_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
If company.csMaxCreditAmount <> "" And IsNumeric(company.csMaxCreditAmount) Then
cBonitaetsauskunft.ba_Hoechstkredit = CDbl(company.csMaxCreditAmount)
Else
cBonitaetsauskunft.ba_Hoechstkredit = 0
End If
cBonitaetsauskunft.ba_UID = company.vatNo
cBonitaetsauskunft.ba_Bankverbindung = company.csBank
cBonitaetsauskunft.ba_Zahlungsweise = ""
cBonitaetsauskunft.ba_GFName = company.csCEO
cBonitaetsauskunft.ba_Sonstiges = ""
If IsDate(company.csDFoundingDate) Then
cBonitaetsauskunft.ba_GruendundsDatum = IIf(company.csDFoundingDate > New Date("01.01.1900"), company.csDFoundingDate, "")
Else
cBonitaetsauskunft.ba_GruendundsDatum = ""
End If
cBonitaetsauskunft.ba_GSName = company.csShareholder
cBonitaetsauskunft.ba_Geschaeftszweck = company.csBusinessPurpose
cBonitaetsauskunft.ba_Umsatz = company.csTurnover
cBonitaetsauskunft.ba_GFName = company.csCEO
If company.csSumEmployees <> "" And IsNumeric(company.csSumEmployees) Then
cBonitaetsauskunft.ba_Mitarbeiter = CInt(company.csSumEmployees)
Else
cBonitaetsauskunft.ba_Mitarbeiter = 0
End If
If cBonitaetsauskunft.SAVE Then
SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")
company.csBonID = cBonitaetsauskunft.ba_id
Dim KDERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
KDERW.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
KDERW.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
KDERW.kde_CreditSaveBonitaetsklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse
KDERW.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe
KDERW.SAVE()
updateDatenarchivId()
'--------------------- weitere Kunden derselben CS-ID mitupdaten!
Dim DTweitereKundenMitCreditsaveId As DataTable = SQL.loadDgvBySql("select kde_KundenNr from [tblKundenErweitert] where kde_KundenNr <> " & kdNr & " and kde_CreditSaveId = '" & company.creditSafeId & "'", "FMZOLL")
If DTweitereKundenMitCreditsaveId.Rows.Count > 0 Then
For Each row As DataRow In DTweitereKundenMitCreditsaveId.Rows
If IsNumeric(row.Item("kde_KundenNr")) AndAlso row.Item("kde_KundenNr") > 0 Then
Dim cBonTemp = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
cBonTemp.ba_datenarchivId = cBonitaetsauskunft.ba_datenarchivId
cBonTemp.ba_BonitaetsIndex = cBonitaetsauskunft.ba_BonitaetsIndex
cBonTemp.ba_Risikostufe = cBonitaetsauskunft.ba_Risikostufe
cBonTemp.ba_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
cBonTemp.ba_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
cBonTemp.ba_CreditSaveRisikoklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse
cBonTemp.ba_forcedRequest = cBonitaetsauskunft.ba_forcedRequest
cBonTemp.ba_KundenNr = (row.Item("kde_KundenNr"))
cBonTemp.ba_Datum = Now()
cBonTemp.ba_Pruefungstool = cBonitaetsauskunft.ba_Pruefungstool
cBonTemp.ba_CScounterBeforeRequest = cBonitaetsauskunft.ba_CScounterBeforeRequest
cBonTemp.ba_CScounterAfterRequest = cBonitaetsauskunft.ba_CScounterAfterRequest
cBonTemp.ba_CSmax = cBonitaetsauskunft.ba_CSmax
cBonTemp.ba_CScountry = cBonitaetsauskunft.ba_CScountry
cBonTemp.ba_Bankverbindung = cBonitaetsauskunft.ba_Bankverbindung
cBonTemp.ba_Zahlungsweise = cBonitaetsauskunft.ba_Zahlungsweise
cBonTemp.ba_Sonstiges = cBonitaetsauskunft.ba_Sonstiges
cBonTemp.ba_GSName = cBonitaetsauskunft.ba_GSName
cBonTemp.ba_UID = cBonitaetsauskunft.ba_UID
cBonTemp.ba_GruendundsDatum = cBonitaetsauskunft.ba_GruendundsDatum
cBonTemp.ba_Umsatz = cBonitaetsauskunft.ba_Umsatz
cBonTemp.ba_Geschaeftszweck = cBonitaetsauskunft.ba_Geschaeftszweck
cBonTemp.ba_Sachbearbeiter = cBonitaetsauskunft.ba_Sachbearbeiter
cBonTemp.ba_MaId = cBonitaetsauskunft.ba_MaId
cBonTemp.ba_LetztesBearbeitungsDatum = cBonitaetsauskunft.ba_LetztesBearbeitungsDatum
cBonTemp.ba_Firma = cBonitaetsauskunft.ba_Firma
cBonTemp.ba_Adresse1 = cBonitaetsauskunft.ba_Adresse1
cBonTemp.ba_Adresse2 = cBonitaetsauskunft.ba_Adresse2
cBonTemp.ba_Mitarbeiter = cBonitaetsauskunft.ba_Mitarbeiter
cBonTemp.ba_Hoechstkredit = cBonitaetsauskunft.ba_Hoechstkredit
cBonTemp.ba_GFName = cBonitaetsauskunft.ba_GFName
If cBonTemp.SAVE Then
SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonTemp.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonTemp.ba_Datum & "', Höchstkredit=" & If(cBonTemp.ba_Hoechstkredit Is Nothing, "null", "'" & cBonTemp.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonTemp.ba_KundenNr & "'", "FMZOLL")
Dim KDERW_TEMP As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(row.Item("kde_KundenNr"))
KDERW_TEMP.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
KDERW_TEMP.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
KDERW_TEMP.kde_CreditSaveBonitaetsklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse
KDERW_TEMP.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe
KDERW_TEMP.SAVE()
End If
End If
Next
End If
End If
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
If datenarchivId = -1 Then Exit Sub
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(datenarchivId)
DS.OPEN_SINGLE(True)
End Sub
Private Sub updateDatenarchivId()
If kdNr < 0 Then Exit Sub
datenarchivId = VERAGSQL.DLookup("ba_datenarchivId", "[tblBonitaetsauskunft]", "[ba_KundenNr]='" & kdNr & "' ORDER BY ba_Datum DESC", "FMZOLL", "-1")
If datenarchivId = -1 Then
Button2.BackgroundImage = SDL.My.Resources.Resources.pdf_gray
End If
End Sub
Private Sub initCreditsave()
If ADRESSE.LandKz = "AT" Or ADRESSE.LandKz = "A" Then
lblBonitaet.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsScore, "")
Else
If KUNDE_ERW.kde_CreditSaveBonitaetsIndex IsNot Nothing And IsNumeric(KUNDE_ERW.kde_CreditSaveBonitaetsIndex) Then
If CDbl(KUNDE_ERW.kde_CreditSaveBonitaetsIndex) > 0 Then
lblBonitaet.Text = KUNDE_ERW.kde_CreditSaveBonitaetsIndex
Else
lblBonitaet.Text = KUNDE_ERW.kde_CreditSaveBonitaetsScore
End If
Else
lblBonitaet.Text = KUNDE_ERW.kde_CreditSaveBonitaetsScore
End If
End If
If lblBonitaet.Text = "" Then
lblBonitaet.Text = If(KUNDE.Bonität, "")
End If
lblBonitaetRisikostufe.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsklasse, "")
If lblBonitaetRisikostufe.Text = "" Then
lblBonitaetRisikostufe.Text = If(KUNDE_ERW.kde_BonitaetsStufe, "")
End If
' select case backgrounndcolor
Select Case lblBonitaetRisikostufe.Text
Case "A", "1"
lblBonitaetRisikostufe.BackColor = Color.Green
lblBonitaetRisikostufe.ForeColor = Color.White
Case "B", "2"
lblBonitaetRisikostufe.BackColor = Color.LightGreen
lblBonitaetRisikostufe.ForeColor = Color.Black
Case "C", "3"
lblBonitaetRisikostufe.BackColor = Color.Yellow
lblBonitaetRisikostufe.ForeColor = Color.Black
Case "D", "4"
lblBonitaetRisikostufe.BackColor = Color.Orange
lblBonitaetRisikostufe.ForeColor = Color.Black
Case "E", "5"
lblBonitaetRisikostufe.BackColor = Color.Red
lblBonitaetRisikostufe.ForeColor = Color.White
Case "F", "6"
lblBonitaetRisikostufe.BackColor = Color.Red
lblBonitaetRisikostufe.ForeColor = Color.White
Case Else
lblBonitaetRisikostufe.BackColor = Color.WhiteSmoke
lblBonitaetRisikostufe.ForeColor = Color.Black
End Select
If lblBonitaet.Text = "0" Then lblBonitaet.Text = ""
If KUNDE.Bonitätsdatum IsNot Nothing AndAlso IsDate(KUNDE.Bonitätsdatum) Then
lblBonitaetsdatum.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString
Else
lblBonitaetsdatum.Text = ""
End If
lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "")
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
genUIDEORIList(kdNr, "EORI")
End Sub
Private Sub setCreditsafereportEntry(cs As cCreditSafeAPI, company As cCreditSafeAPI.Company, Optional forecedReqest As Boolean = False)
Dim pdfObject As Byte() = Nothing
Dim dt As New DataTable
Dim beforeRequestCount As Integer = 0
Dim afterRequestCount As Integer = 0
Dim limit As Integer = 0
Dim country As String = ""
cs.getSubscriptionCountries(dt)
If dt.Rows.Count > 0 AndAlso dt.AsEnumerable.Any(Function(c) company.country = c.Item("countryIso2").ToString) Then
Dim r As DataRow = dt.AsEnumerable.First((Function(c) company.country = c.Item("countryIso2").ToString))
beforeRequestCount = r.Item("used")
limit = r.Item("paid")
country = r.Item("countryIso2")
End If
Dim failureDesc As String = cs.getReport(company, True)
If failureDesc <> "" Then
MsgBox(failureDesc)
Cursor = Cursors.Default
Exit Sub
End If
'#wenn PDF und JSON in einem geht, dann folgende Zeile auskommentieren!
pdfObject = cs.getPDF(company, failureDesc)
'cs.AddCompanyToPortfolio(company)
cs.getSubscriptionCountries(dt)
If dt.Rows.Count > 0 AndAlso dt.AsEnumerable.Any(Function(c) company.country = c.Item("countryIso2").ToString) Then
Dim r As DataRow = dt.AsEnumerable.First((Function(c) company.country = c.Item("countryIso2").ToString))
afterRequestCount = r.Item("used")
End If
If pdfObject Is Nothing Then
setCreditSafeEntry(company, Nothing, kdNr, beforeRequestCount, afterRequestCount, limit, country)
MsgBox("Fehler beim Erstellen des PDF-Dokuments" & vbNewLine & failureDesc)
Else
setCreditSafeEntry(company, pdfObject, kdNr, forecedReqest, beforeRequestCount, afterRequestCount, limit, country)
End If
If beforeRequestCount > (limit - 100) AndAlso beforeRequestCount < (limit - 96) Then 'Benachrichtigung
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag; d.breimaier@verag.ag", "Creditsafe-Limit", "ACHTUNG, das Creditsafe-Limit für " & country & " ist fast erreicht!" & vbNewLine & vbNewLine & "Limit: " & limit & " , aktuelle Stand: " & afterRequestCount & vbNewLine & vbNewLine & "*Automatic generated e-mail*",,,,,)
End If
If company.vatNo <> "" AndAlso checkNullStr(ADRESSE.UstIdKz) = "" AndAlso checkNullStr(ADRESSE.UstIdNr) = "" Then
'set and check uid nr
Dim countryKz = company.vatNo.Substring(0, 2)
ADRESSE.UstIdKz = countryKz
ADRESSE.UstIdNr = company.vatNo.Replace(countryKz, "").Replace(" ", "")
ADRESSE.SAVE()
Dim validUID As Boolean = False
Button1.Enabled = False
checkUIDNr(, validUID)
If Not validUID Then
ADRESSE.UstIdKz = ""
ADRESSE.UstIdNr = ""
ADRESSE.SAVE()
End If
Button1.Enabled = True
End If
End Sub
Private Sub Button14_DragDrop(sender As Object, e As DragEventArgs) Handles Button14.DragDrop, Panel1.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
For Each path In files
' addData_SendungAnhang(path)
PDF_Attach_TMP_VERTRAEGE = path
Next
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e)
If FilePath <> "" Then
' addData_SendungAnhang(FilePath)
PDF_Attach_TMP_VERTRAEGE = FilePath
End If
End If
picVertrag.Visible = PDF_Attach_TMP_VERTRAEGE <> ""
End Sub
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Creditsafe"
Process.Start(webAddress)
End Sub
Private Sub checkUIDNr(Optional sender As Object = Nothing, Optional ByRef validUID As Boolean = False)
If ADRESSE.UstIdNr Is Nothing Then Exit Sub
If ADRESSE.UstIdKz Is Nothing Then Exit Sub
If ADRESSE.UstIdKz = "" Then Exit Sub
If ADRESSE.UstIdNr = "" Then Exit Sub
If sender IsNot Nothing Then sender.BackgroundImage = My.Resources.wait
' Button5.Visible = False
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
FO.initValues()
If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(ADRESSE.AdressenNr,, , , 2)
If UID_TMP IsNot Nothing Then
If UID_TMP.uid_valid Then
setKD(kdNr)
If sender IsNot Nothing Then sender.BackgroundImage = My.Resources.ok
validUID = True
Else
If sender IsNot Nothing Then sender.BackgroundImage = My.Resources.del
End If
Else
If sender IsNot Nothing Then sender.BackgroundImage = My.Resources.fragezeichen
End If
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
End If
End Sub
Private Sub Label19_Click(sender As Object, e As EventArgs) Handles Label19.Click, txtOVK.Click
Dim f As New frmVorauskasse
f.KundenNr = kdNr
f.GeldEingang = False
f.Storno = False
f.Abgerechnet = False
f.Show(Me)
End Sub
Private Sub checkEORI()
Me.Cursor = Cursors.WaitCursor
Dim EORI_NR = KUNDE.EORITIN.ToString()
EORI_NR.Replace("-", "").Replace(" ", "").Trim()
If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
Dim url = SDL.cEORIWebService.genEORI_Formular(kdNr, EORI_NR)
'Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
'If pdf <> "" Then Process.Start(pdf)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button15_Click_2(sender As Object, e As EventArgs) Handles btnOP.Click
If cboFirmaFMZOLL._value = "" Then
MsgBox("Bitte Firma auswählen!")
Else
Dim KontoList As New List(Of String)
KontoList.Add(KUNDE.KundenNrZentrale)
frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "")
End If
End Sub
Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
If tmprowindex >= 0 Then
' MsgBox(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)
If dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value) > 0 Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)})
End If
End If
End Sub
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles pbCreditsafeChanges.Click
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim cs = New cCreditSafeAPI("creditsafe")
Dim checklastDate As Boolean = True
If cs.authenticate() = "200" Then
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr)
If Not KUNDE_ERW.kde_CSPortfolioAdded Then
cs.AddCompanyToPortfolio(company)
KUNDE_ERW.kde_CSPortfolioAdded = True
KUNDE_ERW.SAVE()
End If
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-30))
Dim currentBonID As Integer = SQL.getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & KUNDE.KundenNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL")
If currentBonID > 0 Then company.csBonID = currentBonID
Dim dt As New DataTable()
If cs.getCompanyEvents(company, dt, checklastDate, True) = "Error" Then
Exit Sub
End If
If dt.Rows.Count > 0 Then
Dim frm As New Form
Dim dgv As New DataGridView()
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMIN", "AVISO") Then
If dt.Columns.Contains("eventid") Then dt.Columns("eventid").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("companyId") Then dt.Columns("companyId").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("portfolioId") Then dt.Columns("portfolioId").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("localEventCode") Then dt.Columns("localEventCode").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("globalEventCode") Then dt.Columns("globalEventCode").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("createdDate") Then dt.Columns("createdDate").ColumnMapping = MappingType.Hidden
End If
dgv.DataSource = dt
If dgv IsNot Nothing Then
frm.Size = New Size(750, 500)
dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10)
dgv.Dock = DockStyle.Fill
dgv.Anchor = AnchorStyles.Left
dgv.Anchor = AnchorStyles.Top
dgv.ReadOnly = True
frm.Controls.Add(dgv)
frm.StartPosition = FormStartPosition.CenterScreen
If frm.ShowDialog().Cancel Then
initCreditsave()
setKD(kdNr)
End If
End If
MsgBox("Creditsafe-Daten wurden aktualisiert!")
Else
MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
End If
End If
End Sub
End Class
Reference in New Issue View Git Blame Copy Permalink