2134 lines
100 KiB
VB.net
2134 lines
100 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.Windows.Documents
|
|
Imports com.sun.org.apache.bcel.internal.generic
|
|
Imports com.sun.tools.javac
|
|
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
|
Imports java.rmi.server
|
|
Imports org.apache.commons.lang3.exception
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class usrcntlKundeBearbeitenFull
|
|
|
|
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
|
|
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
|
|
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
|
|
Dim FISKAL As cFiskal_Daten = Nothing
|
|
' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
|
|
Dim EMAIL_ANKUNFT As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
|
|
Dim EMAIL_FREIGABE As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
|
|
Dim sql As New SQL
|
|
Dim WunschKdNr As Integer = -1
|
|
Public Filiale As Integer = -1
|
|
' Dim kdnr = -1
|
|
|
|
Public Event KD_SAVED(kdnr)
|
|
Dim FUNC As New cProgramFunctions
|
|
Dim isVerag360 As Boolean = False
|
|
Dim bankverbindungBearbeiten As Boolean = False
|
|
|
|
' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
|
|
Sub New()
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
loadControls()
|
|
Me.DoubleBuffered = True
|
|
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
|
|
UpdateStyles()
|
|
|
|
End Sub
|
|
Sub New(kdnr)
|
|
InitializeComponent()
|
|
loadControls()
|
|
init(kdnr)
|
|
'If kdnr > 0 Then
|
|
' init(kdnr)
|
|
'End If
|
|
Me.DoubleBuffered = True
|
|
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
|
|
UpdateStyles()
|
|
|
|
End Sub
|
|
|
|
|
|
Function loadValue(o As Object, o2 As Object) As Object
|
|
'If <> Nothing Then Return o
|
|
If o IsNot Nothing Then Return o Else Return o2
|
|
End Function
|
|
|
|
|
|
|
|
|
|
Public Sub init(kdnr As Integer, Optional _isVerag360 As Boolean = False)
|
|
txtERROR.Text = ""
|
|
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
|
|
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
|
|
FISKAL = New cFiskal_Daten(kdnr)
|
|
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
|
|
|
|
isVerag360 = _isVerag360
|
|
|
|
bankverbindungBearbeiten = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Bankverbindung_bearbeiten", "SDL")
|
|
|
|
cboFiliale.changeItem(loadValue(KUNDE.FilialenNr, "")) 'zuerst Filiale, dmait Kundennummernkreis später den Wert überschreiben kann!
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "IMEX"
|
|
cbxFiBuLG.Visible = True
|
|
End Select
|
|
|
|
|
|
|
|
'txtEORI.Visible = Not isVerag360
|
|
'txtEORINL.Visible = Not isVerag360
|
|
'lblEORI.Visible = Not isVerag360
|
|
'txtHandelsregisterNr.Visible = isVerag360
|
|
'lblHandelregisterNr.Visible = isVerag360
|
|
|
|
|
|
If ADRESSE.AdressenNr <= 0 Then
|
|
|
|
KUNDE_ERW.kde_BesonderheitenNeu = 1
|
|
cboKundenkreis.Items.Clear()
|
|
|
|
initKundennummernkreise()
|
|
|
|
pnlNeukunde.Visible = True
|
|
btnUIDPruef.Visible = False
|
|
Else
|
|
btnUIDPruef.Visible = True
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" And Not isVerag360 Then
|
|
If Not cboKundenkreis.hasItem("3000000-3099990") Then cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" And Not isVerag360 Then
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 9900000-9999999: FRONT-OFFICE - Kunden", "9900000-9999999"))
|
|
|
|
End If
|
|
|
|
bntGOBOXUmstellung.Enabled = isVerag360
|
|
btnKKhinzufuegen.Enabled = isVerag360
|
|
Button9.Enabled = isVerag360
|
|
|
|
usrCntlAufschubkonten.initMe(kdnr)
|
|
|
|
ucKundenKontakte.btn.Visible = (kdnr > 0)
|
|
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
|
' tbFiskal.Controls.Clear()
|
|
UsrCntlKundeFiskaldaten1.initFiskal(FISKAL, KUNDE_ERW)
|
|
'USRCNTL_FISK.Dock = DockStyle.Fill
|
|
'tbFiskal.Controls.Add(USRCNTL_FISK)
|
|
|
|
If Not isVerag360 Then checkEORI_Aufschub()
|
|
|
|
' ----- Adressdaten -----
|
|
lblKundennr.Text = If(ADRESSE.AdressenNr > 0, ADRESSE.AdressenNr, "-")
|
|
txtKurzname.Text = loadValue(ADRESSE.Ordnungsbegriff, "")
|
|
cboAuswahl.changeItem(ADRESSE.Auswahl)
|
|
|
|
txtFirmenname1.Text = loadValue(ADRESSE.Name_1, "")
|
|
txtFirmenname2.Text = loadValue(ADRESSE.Name_2, "")
|
|
txtAdresseZusatz.Text = loadValue(KUNDE_ERW.kde_AdressZusatz, "")
|
|
|
|
txtStrasse.Text = loadValue(ADRESSE.Straße, "")
|
|
txtPlz.Text = loadValue(ADRESSE.PLZ, "")
|
|
txtOrt.Text = loadValue(ADRESSE.Ort, "")
|
|
cbxLandKz._value = loadValue(ADRESSE.LandKz, "")
|
|
txtPostfachPlz.Text = loadValue(ADRESSE.PLZPF, "")
|
|
txtPostfachOrt.Text = loadValue(ADRESSE.Postfach, "")
|
|
|
|
txtTel.Text = loadValue(ADRESSE.Telefon, "")
|
|
txtFax.Text = loadValue(ADRESSE.Telefax, "")
|
|
txtMobil.Text = loadValue(ADRESSE.Mobiltelefon, "")
|
|
txtEmail.Text = loadValue(ADRESSE.E_Mail, "")
|
|
txtEmail2.Text = loadValue(ADRESSE.E_Mail2, "")
|
|
|
|
txtAnsprechpartner.Text = loadValue(ADRESSE.Ansprechpartner, "")
|
|
txtAnsprechpartnerAnrede.Text = loadValue(ADRESSE.Anrede, "")
|
|
|
|
' txtUStID.Text = loadValue(ADRESSE.UstIdNr, "")
|
|
'txtUStID.Text=loadValue(ADRESSE.UStIdKz")
|
|
'txtUStIDGeprueftAm._value = loadValue(ADRESSE.UstIdGeprüft, "")
|
|
txtSteuernummer.Text = loadValue(ADRESSE.Steuernummer, "")
|
|
|
|
' txtBank.Text=loadValue(ADRESSE.Bankverbindung")
|
|
txtBank_Blz.Text = loadValue(ADRESSE.BLZ, "")
|
|
txtBank_Kto.Text = loadValue(ADRESSE.KTO, "")
|
|
|
|
lblErfassung.Text = loadValue(ADRESSE.Eingegeben_am, "")
|
|
lblAenderung.Text = loadValue(ADRESSE.Geändert_am, "")
|
|
lblSachbearbeiter.Text = loadValue(ADRESSE.Sachbearbeiter, "")
|
|
|
|
|
|
|
|
|
|
|
|
Label28.Text = If(KUNDE.DakosyExport, "-")
|
|
If KUNDE.KundenNr > 0 Then
|
|
cbxFiBu.Checked = KUNDE.FiBuSchnittstelle
|
|
cbxFiBuLG.Checked = KUNDE_ERW.FiBuSchnittstelleLG
|
|
cboFirma.changeItem(If(KUNDE.FiBuSchnittstelleNr, ""))
|
|
End If
|
|
' ----- Abfertigung -----
|
|
rtbAbf_Besonderheiten.Text = loadValue(KUNDE.Besonderheiten, "")
|
|
rtbLKWFreigabeSenden.Text = loadValue(KUNDE.DokumenteLKWFreigabe, "")
|
|
cbxAbf_EinmaligeAbfertigung.Checked = loadValue(KUNDE.Einmalige_Abfertigung, False)
|
|
cbxAbf_ZollVM.Checked = loadValue(KUNDE.Zollvollmacht, False)
|
|
txtAbf_ZollVmVom._value = loadValue(KUNDE.Zollvollmacht_vom, "")
|
|
txtAbf_Planzahl.Text = loadValue(KUNDE.Planzahl, "")
|
|
|
|
cbxAbf_Lastschrift.Checked = loadValue(KUNDE.Lastschrift, False)
|
|
txtAbf_LastschriftVon._value = loadValue(KUNDE.Lastschrift_von, "")
|
|
txtAbf_LastschriftBis._value = loadValue(KUNDE.Lastschrift_bis, "")
|
|
|
|
cbxAbf_Fiskal.Checked = loadValue(KUNDE.Fiskal, False)
|
|
cbxAbf_Ausfuhr.Checked = loadValue(KUNDE.Ausfuhr, False)
|
|
cbxAbf_Vorkasse.Checked = loadValue(KUNDE.Vorkasse, False)
|
|
cbxAbf_Rabattstaffel.Checked = loadValue(KUNDE.Rabattstaffel, False)
|
|
cbxAbf_SvsRvs.Checked = loadValue(KUNDE.SVS, False)
|
|
txtAbf_ErsteAbfertigung._value = loadValue(KUNDE.Erste_Abfertigung, "")
|
|
|
|
txtAbf_Vorlageprovision._value = loadValue(KUNDE.Vorlageprovision, "")
|
|
txtDebKdNr.Text = loadValue(KUNDE.KundenNrZentrale, KUNDE.KundenNr)
|
|
|
|
txtAbf_Kreditaufwendungen._value = loadValue(KUNDE.Kreditaufwendungen, "")
|
|
txtAbf_Bankspesen._value = loadValue(KUNDE.Bankspesen, "")
|
|
txtAbf_BankspesenMindestbetrag._value = loadValue(KUNDE.Bankspesen_Mindestbetrag, "")
|
|
txtVers_Kreditlimit.Text = loadValue(KUNDE.Kreditlimit, "")
|
|
txtAbwZZVL.Text = loadValue(KUNDE_ERW.kde_abweichendesZZVL, "")
|
|
txtAbf_Zahlungsziel.Text = loadValue(KUNDE.Zahlungsziel, "")
|
|
txtAbf_Zahlungsziel2.Text = loadValue(KUNDE_ERW.Zahlungsziel2, "")
|
|
txtAbf_Zahlungsziel3.Text = loadValue(KUNDE_ERW.Zahlungsziel3, "")
|
|
|
|
txtAbf_Euroeinführung._value = loadValue(KUNDE.Euroeinführung, "")
|
|
txtCreditsafe.Text = loadValue(KUNDE_ERW.kde_CreditSaveId, "")
|
|
cboAbf_Steuerschluessel._value = loadValue(KUNDE.Steuerschlüssel, "")
|
|
cboAbf_Waehrung._value = loadValue(KUNDE.Währungscode, "EUR")
|
|
txtKapital.Text = loadValue(KUNDE_ERW.kde_Kapital, "")
|
|
cbxKapitalWaehrung._value = loadValue(KUNDE_ERW.kde_KapitalWaehrung, "EUR")
|
|
cbxSammelrechnungBerichtLeistungsdetails.Checked = loadValue(KUNDE_ERW.kde_FakturierungSR_Details, False)
|
|
cboAbf_Sammelrechnung._value = loadValue(KUNDE.Sammelrechnung, "")
|
|
txtGruendungsDatum.Text = loadValue(KUNDE_ERW.kde_GruendungsDatum, "")
|
|
txtHandelsregisterNr.Text = loadValue(KUNDE_ERW.kde_HRNr, "")
|
|
|
|
|
|
txtEORI.Text = If(KUNDE.EORITIN, "")
|
|
txtEORINL.Text = If(KUNDE.EORITIN_NL, "")
|
|
|
|
' If Not AvisBinding Is Nothing Then Me.DataBindings.Remove(AvisBinding)
|
|
' If Not NeutralisierungBinding Is Nothing Then Me.DataBindings.Remove(NeutralisierungBinding)
|
|
' AvisBinding = New Binding("rbtnAAfb_Aviso=loadValue(KUNDE.Avis")
|
|
' NeutralisierungBinding = New Binding("rbtnAAfb_Neutralisierung=loadValue(KUNDE.Neutralisierung")
|
|
|
|
' Me.DataBindings.Add(AvisBinding)
|
|
' Me.DataBindings.Add(NeutralisierungBinding)
|
|
|
|
|
|
' ----- Neutralisierung -----
|
|
RadioButton1.Checked = False
|
|
RadioButton2.Checked = False
|
|
RadioButton3.Checked = False
|
|
Select Case KUNDE.Neutralisierung
|
|
Case 0 : RadioButton1.Checked = True
|
|
Case 1 : RadioButton2.Checked = True
|
|
Case 2 : RadioButton3.Checked = True
|
|
End Select
|
|
|
|
' ----- Avis -----
|
|
RadioButton6.Checked = False
|
|
RadioButton5.Checked = False
|
|
RadioButton4.Checked = False
|
|
RadioButton7.Checked = False
|
|
Select Case KUNDE.Avis
|
|
Case 0 : RadioButton6.Checked = True
|
|
Case 1 : RadioButton5.Checked = True
|
|
Case 2 : RadioButton4.Checked = True
|
|
Case 3 : RadioButton7.Checked = True
|
|
End Select
|
|
|
|
|
|
' ----- Versicherung -----
|
|
txtVers_HermesRefNr.Text = loadValue(KUNDE.Referenznummer, "")
|
|
txtVers_Versicherungssumme._value = loadValue(KUNDE.Versicherungssumme, "")
|
|
txtVers_VersicherungssummeVon._value = loadValue(KUNDE.Entscheidung_vom, "")
|
|
txtVers_Antragssumme._value = loadValue(KUNDE.Antragssumme, "")
|
|
txtVers_AntragssummeVon._value = loadValue(KUNDE.Antrag_vom, "")
|
|
txtVers_Kreditlimit._value = loadValue(KUNDE.Kreditlimit, "")
|
|
txtVers_KreditlimitVon._value = loadValue(KUNDE.Kreditlimit_vom, "")
|
|
txtVers_Bankgarantiebetrag._value = loadValue(KUNDE.BankgarantieBetrag, "")
|
|
txtVers_BankgarantiebetragGueltigBis._value = loadValue(KUNDE.BankgarantieGültigBis, "")
|
|
|
|
txtBankgarantieErhaltenAm._value = loadValue(KUNDE_ERW.kde_BankgarantielErhaltenAm, "")
|
|
txtWechsel._value = loadValue(KUNDE_ERW.kde_WechselBetrag, "")
|
|
txtWechselGueltigBis._value = loadValue(KUNDE_ERW.kde_WechselGueltigBis, "")
|
|
txtWechselErhaltenAm._value = loadValue(KUNDE_ERW.kde_WechselErhaltenAm, "")
|
|
cbxBlanko.Checked = KUNDE_ERW.kde_WechselBlanko
|
|
|
|
txtVers_Information.Text = loadValue(KUNDE.Info, "")
|
|
rtb_Zahlungsinfo.Text = loadValue(KUNDE.Zahlungsinformationen, "")
|
|
txtVers_Saldo._value = loadValue(KUNDE.LfdSaldo, "")
|
|
cbxDeckungsstopp.Checked = KUNDE_ERW.kde_Versicherung_Deckungsstopp
|
|
txtDeckungsstoppDatum._value = loadValue(KUNDE_ERW.kde_Versicherung_DeckungsstoppDatum, "")
|
|
cbxVersicherungUebergeben.Checked = KUNDE_ERW.kde_Versicherung_Uebergeben
|
|
txtVersicherungUebergebenAm._value = loadValue(KUNDE_ERW.kde_Versicherung_UebergebenAm, "")
|
|
cbxAnerkVersFall.Checked = KUNDE_ERW.kde_Versicherung_AnerkennungVersicherungsfall
|
|
txtAnerkVersFallAm._value = loadValue(KUNDE_ERW.kde_Versicherung_AnerkennungVersicherungsfallAm, "")
|
|
txtAnerkVersFallAb._value = loadValue(KUNDE_ERW.kde_Versicherung_AnerkennungVersicherungsfallAb, "")
|
|
txtVersicherungDeckungsquote._value = loadValue(KUNDE_ERW.kde_txtVersicherungDeckungsquote, "")
|
|
cbxNichtVersicherbar.Checked = loadValue(KUNDE_ERW.kde_txtVersicherungNichtVersicherbar, False)
|
|
txtVersicherung_GemeldeterBetrag._value = loadValue(KUNDE_ERW.kde_Versicherung_GemeldeterBetrag, "")
|
|
txtVers_EHNr.Text = loadValue(KUNDE_ERW.kde_txtVersicherungEHNr, "").ToString
|
|
|
|
|
|
txtInkassoUebergebenAm._value = loadValue(KUNDE_ERW.kde_Inkasso_UebergebenAm, "")
|
|
txtInkasso_GemeldeterBetrag._value = KUNDE_ERW.[kde_Inkasso_GemeldeterBetrag]
|
|
|
|
|
|
|
|
cboProvisionStaffelArt.changeItem(loadValue(KUNDE_ERW.kde_Leihgeld_ProvisionPreisstaffel, ""))
|
|
cboProvisionStaffel.changeItem(loadValue(KUNDE_ERW.kde_Leihgeld_Provision, ""))
|
|
txtProvAuftraggeber._value = loadValue(KUNDE_ERW.kde_Leihgeld_ProvisionAuftraggeber, "")
|
|
|
|
cbxDepot.Checked = KUNDE_ERW.Depot_Kunde
|
|
cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung
|
|
cbxVeranlagungskunde.Checked = KUNDE_ERW.Veranlagungskunde
|
|
cbxSndDatenAusSTB.Checked = KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB
|
|
|
|
cbxAPITradeshift.Checked = loadValue(KUNDE_ERW.kde_API_Tradeshift, False)
|
|
|
|
cboRechnungSprache._value = loadValue(KUNDE_ERW.kde_Fakturierung_Sprache, "")
|
|
|
|
txtVERAG_Schnittstellen_ID.Text = If(KUNDE_ERW.kde_VERAG_INTERFACE_ID, "")
|
|
' ----- Abfertigungsverbot -----
|
|
' cboAbfVerb_Kreditlimit.Checked=loadValue(KUNDE.Kreditlimit, "")
|
|
' txtVers_Kreditlimit._value=loadValue(KUNDE.Kreditlimit vom, "")
|
|
' txtVers_KreditlimitVon.Checked=loadValue(KUNDE.Kreditlimit vom, "")
|
|
cboAbfVerb_Abfertigungsverbot.Checked = loadValue(KUNDE.Abfertigungsverbot, False)
|
|
txtAbfVerb_AbfertigungsverbotSeit._value = loadValue(KUNDE.Abfertigungsverbot_seit, "")
|
|
rtbAbfVerb_Grund.Text = loadValue(KUNDE.Abfertigungsverbot_Grund, "")
|
|
cboAbfVerb_Rechtsanwalt.Checked = loadValue(KUNDE.Rechtsanwalt, False)
|
|
txtAbfVerb_RechtsanwaltSeit._value = loadValue(KUNDE.Rechtsanwalt_seit, "")
|
|
|
|
' AddHandler txtVers_Kreditlimit.BindingContextChanged, (Sub(sender As Object, e As EventArgs)
|
|
'cboAbfVerb_Kreditlimit.Checked = (sender.text <> ", "")
|
|
' End Sub)
|
|
|
|
' ----- Offene Posten -----
|
|
txtBonitaet.Text = loadValue(KUNDE.Bonität, "")
|
|
txtBonitaetsDatum._value = loadValue(KUNDE.Bonitätsdatum, "")
|
|
' txtHoechstkredit._value = loadValue(KUNDE_ERW.kde_Hoechstkredit, "")
|
|
txtHoechstkredit._value = loadValue(KUNDE.Höchstkredit, "")
|
|
|
|
|
|
' ----- Bank -----
|
|
txtBank_Blz.Text = loadValue(ADRESSE.BLZ, "")
|
|
txtBank_Kto.Text = loadValue(ADRESSE.KTO, "")
|
|
|
|
' ----- USTV -----
|
|
cboUSt_UstIdNrLand._value = loadValue(ADRESSE.UstIdKz, "")
|
|
txtUSt_UstIdNr.Text = loadValue(ADRESSE.UstIdNr, "")
|
|
txtUSt_UstIdNrGeprueftAm._value = loadValue(ADRESSE.UstIdGeprüft, "")
|
|
txtUSt_Steuernummer.Text = loadValue(ADRESSE.Steuernummer, "")
|
|
txtUSt_GVAngefordertAm._value = loadValue(ADRESSE.UStV_GVAnfDat, "")
|
|
txtUSt_GVAusgestelltAm._value = loadValue(ADRESSE.UStV_GVAusDat, "")
|
|
initUStID()
|
|
|
|
' ----- Vorschausummen -----
|
|
|
|
txtSumIDS._value = loadValue(KUNDE.UStV_SummeVorschaubetragEUR_IDS, 0)
|
|
txtSumPLOSE._value = loadValue(KUNDE_ERW.kde_UStV_SummeVorschaubetragEUR_PLOSE, 0)
|
|
txtSumMSE._value = loadValue(KUNDE.UStV_SummeVorschaubetragEUR_MSE, 0)
|
|
txtSumUTA._value = loadValue(KUNDE.UStV_SummeVorschaubetragEUR_UTA, 0)
|
|
txtSumVerag._value = loadValue(KUNDE.UStV_SummeVorschaubetragEUR_VERAG, 0)
|
|
|
|
' ----- Sonstiges -----
|
|
cboSonst_Rechnungsdruck._value = loadValue(ADRESSE.Rechnungsdruck, "")
|
|
txtSonst_KdNrIDS.Text = loadValue(ADRESSE.IDSKundenNr, "")
|
|
txtSonst_KdNrWOELFL.Text = loadValue(ADRESSE.WölflKundenNr, "")
|
|
txtSonst_KdNrMSE.Text = loadValue(ADRESSE.MSEKundenNr, "")
|
|
txtSonst_KdNrTelepass.Text = loadValue(ADRESSE.TELEPASS_Kd_Nr, "")
|
|
txtSonst_KdNrPLOSE.Text = loadValue(ADRESSE.PLOSEKundenNr, "")
|
|
txtSonst_KdNrUTA.Text = loadValue(ADRESSE.UTAKundenNr, "")
|
|
txtSonst_KdNrTOBB.Text = loadValue(KUNDE_ERW.kde_TOBB_KundenNr, "")
|
|
txtSonst_KdNrVerag.Text = loadValue(KUNDE.KundenNr, "")
|
|
|
|
cbxSonst_CsvAsfinag.Checked = loadValue(ADRESSE.ASFINAGExportCSV, False)
|
|
cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False)
|
|
cbxSonst_CsvMSE.Checked = loadValue(ADRESSE.MSEExportCSV, False)
|
|
cbxSonst_CsvUTA.Checked = loadValue(ADRESSE.UTAExportCSV, False)
|
|
cbxUIDMehrfachverwendung.Checked = KUNDE_ERW.kde_UIDMehrfachverwendung
|
|
|
|
|
|
txtAbf_ZollVmVom.Enabled = cbxAbf_ZollVM.Checked
|
|
txtAbf_LastschriftVon.Enabled = cbxAbf_Lastschrift.Checked
|
|
txtAbf_LastschriftBis.Enabled = cbxAbf_Lastschrift.Checked
|
|
txtAbfVerb_AbfertigungsverbotSeit.Enabled = cboAbfVerb_Abfertigungsverbot.Checked
|
|
txtAbfVerb_RechtsanwaltSeit.Enabled = cboAbfVerb_Rechtsanwalt.Checked
|
|
|
|
|
|
|
|
' -------- EMAIL --------
|
|
|
|
|
|
' UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW) ' es wird beim Speichern KUNDE_ERW gespeichert, wenn zwischendurch UsrCntlKundenAvisoMailBenachrichtigung Änderugnen gemacht hat, sind diese verworfen.
|
|
|
|
cbxBesonderheitenNEU.Checked = KUNDE_ERW.kde_BesonderheitenNeu
|
|
|
|
cbxVerzolltBei.Checked = KUNDE_ERW.kde_KundeFremdspedition
|
|
cboFremdspedition.Text = If(KUNDE_ERW.kde_verzolltBei, "")
|
|
'cboFremdspedition.changeItem(If(KUNDE_ERW.kde_verzolltBei, ""))
|
|
cbxVerzolltBeiExport.Checked = KUNDE_ERW.kde_KundeFremdspeditionExport
|
|
'cboFremdspeditionExport.changeItem(If(KUNDE_ERW.kde_verzolltBeiExport, ""))
|
|
cboFremdspeditionExport.Text = (If(KUNDE_ERW.kde_verzolltBeiExport, ""))
|
|
' MsgBox(If(KUNDE_ERW.kde_verzolltBeiExport, ""))
|
|
initBesonderheitenNEU()
|
|
|
|
initKdKontakSpeziell()
|
|
|
|
btnCreditsafe.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CREDITSAFE_Prüfung", "SDL")
|
|
PictureBox5.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CREDITSAFE_Prüfung", "SDL")
|
|
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
|
|
Function isLeerNothing(o) As Object
|
|
Return IIf(o = "", Nothing, o)
|
|
End Function
|
|
Function isLeerNothingDbl(o, Optional retValue = Nothing) As Object
|
|
If o = "" Then Return retValue
|
|
If IsNumeric(o) Then Return CDbl(o)
|
|
Return retValue
|
|
End Function
|
|
|
|
Sub initKundennummernkreise()
|
|
|
|
If isVerag360 Then
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: TR - KUNDEN", "100000-199999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 130000-139999: 360 TR - KUNDEN", "130000-139999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 150000-159999: 360 RMC - KUNDEN", "150000-159999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 140000-149999: 360 DURMAZ - KUNDEN", "140000-149999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 160000-169999: AT - KUNDEN", "160000-169999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 200000-299999: RO - KUNDEN", "200000-299999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 300000-302999: BG - KUNDEN", "300000-302999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 303000-303999: DE - KUNDEN", "303000-303999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 400000-499999: YU - KUNDEN", "400000-499999"))
|
|
|
|
|
|
Else
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 500000-599999: EV - Kunden", "500000-599999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: BREXIT", "800000-899999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
|
|
|
|
Else
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "IMEX"
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
|
|
cboKundenkreis.changeItem("1080000-1099990")
|
|
Case "UNISPED"
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2000000-2099999: UNISPED", "2000000-2099990"))
|
|
cboKundenkreis.changeItem("2000000-2099990")
|
|
Case "AMBAR"
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
|
|
cboKundenkreis.changeItem("3000000-3099990")
|
|
KUNDE.Zahlungsziel = 0
|
|
ADRESSE.Rechnungsdruck = 2
|
|
KUNDE.Vorkasse = True
|
|
Case "ATILLA"
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
|
|
'ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
|
|
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
|
|
cboKundenkreis.changeItem("100000-199999")
|
|
|
|
Case Else
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Then
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
|
|
End If
|
|
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 500000-599999: EV - Kunden", "500000-599999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
|
|
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: XXXXXX", "800000-899999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: BREXIT", "800000-899999"))
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
|
|
|
|
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
|
|
cboKundenkreis.changeItem("728000-799999")
|
|
|
|
|
|
|
|
End Select
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AWOR", "SDL") Then
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4000000-4099999: AWOR", "4001000-4099999"))
|
|
End If
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_UNISPED_BREXIT", "SDL") Then
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2800000-2899999: UNISPED BREXIT", "2800000-2899999"))
|
|
End If
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "AMBAR" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AMBAR", "SDL") Then
|
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Function loadDataInKdAd() As Boolean
|
|
|
|
If ADRESSE.AdressenNr <= 0 Then
|
|
|
|
If cboFiliale.Text = "" Then MsgBox("Bitte geben Sie die zuständige Filiale an!") : Return False
|
|
If Not cboKundenkreis._value.Contains("-") Then MsgBox("Bitte geben Sie den Kundenkreis an!") : Return False
|
|
|
|
Dim kundenkreis = cboKundenkreis._value
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "UNISPED"
|
|
If cbxLandKz._value = "A" Then
|
|
kundenkreis = "2200250-2209999" 'AT-Kundenkreis
|
|
Else
|
|
kundenkreis = "2262630-2291290" 'ausl.Kundenkreis
|
|
End If
|
|
Case "AMBAR"
|
|
cbxFiBu.Checked = True
|
|
End Select
|
|
|
|
Dim s_KdNr = kundenkreis.Split("-")
|
|
Dim kdnr = WunschKdNr 'Wenn Wunschkdnr, sonst neue vergeben:
|
|
|
|
If WunschKdNr <= 0 Then
|
|
|
|
kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1), isVerag360) '+ 1 ' bei VERA360 soll zusätzlich auf abweichendeDEbitorenNr geprüft werden!
|
|
|
|
If isVerag360 AndAlso Not vbYes = MsgBox("Nächste freie Kundennummer " & kdnr & " verwenden?" & vbNewLine & "Fortfahren? Andernfalls bitte Wunschkundenummer verwenden!", vbYesNo) Then
|
|
Return False
|
|
End If
|
|
|
|
End If
|
|
|
|
If kdnr > 0 Then
|
|
' Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
|
|
ADRESSE.AdressenNr = kdnr
|
|
ADRESSE.Eingegeben_am = Now.ToShortDateString
|
|
ADRESSE.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
|
ADRESSE.INIT_NEWKD_DATA()
|
|
|
|
' Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
|
|
KUNDE.KundenNr = kdnr
|
|
KUNDE.KundenNrZentrale = kdnr
|
|
KUNDE.FilialenNr = cboFiliale._value
|
|
KUNDE.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
|
KUNDE.Eingegeben_am = Now.ToShortDateString
|
|
KUNDE.INIT_NEWKD_DATA()
|
|
|
|
KUNDE_ERW.kde_KundenNr = kdnr
|
|
Else
|
|
MsgBox("Err Kd-Vergabe!")
|
|
Return False
|
|
End If
|
|
|
|
End If
|
|
|
|
ADRESSE.Auswahl = cboAuswahl._value
|
|
ADRESSE.Ordnungsbegriff = isLeerNothing(txtKurzname.Text)
|
|
|
|
ADRESSE.Name_1 = isLeerNothing(txtFirmenname1.Text)
|
|
ADRESSE.Name_2 = isLeerNothing(txtFirmenname2.Text)
|
|
ADRESSE.Name_2 = isLeerNothing(txtFirmenname2.Text)
|
|
KUNDE_ERW.kde_AdressZusatz = (txtAdresseZusatz.Text)
|
|
|
|
ADRESSE.Straße = isLeerNothing(txtStrasse.Text)
|
|
ADRESSE.PLZ = isLeerNothing(txtPlz.Text)
|
|
ADRESSE.Ort = isLeerNothing(txtOrt.Text)
|
|
ADRESSE.LandKz = isLeerNothing(cbxLandKz._value)
|
|
ADRESSE.PLZPF = isLeerNothing(txtPostfachPlz.Text)
|
|
ADRESSE.Postfach = isLeerNothing(txtPostfachOrt.Text)
|
|
|
|
ADRESSE.Telefon = isLeerNothing(txtTel.Text)
|
|
ADRESSE.Telefax = isLeerNothing(txtFax.Text)
|
|
ADRESSE.Mobiltelefon = isLeerNothing(txtMobil.Text)
|
|
ADRESSE.E_Mail = isLeerNothing(txtEmail.Text)
|
|
ADRESSE.E_Mail2 = isLeerNothing(txtEmail2.Text)
|
|
|
|
ADRESSE.Ansprechpartner = isLeerNothing(txtAnsprechpartner.Text)
|
|
ADRESSE.Anrede = isLeerNothing(txtAnsprechpartnerAnrede.Text)
|
|
|
|
|
|
' txtBank.Text=ADRESSE.Bankverbindung"
|
|
ADRESSE.BLZ = isLeerNothing(txtBank_Blz.Text)
|
|
ADRESSE.KTO = isLeerNothing(txtBank_Kto.Text)
|
|
|
|
ADRESSE.Eingegeben_am = lblErfassung.Text
|
|
ADRESSE.Geändert_am = Now 'lblAenderung.Text
|
|
ADRESSE.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME 'lblSachbearbeiter.Text
|
|
|
|
|
|
' ----- Abfertigung -----
|
|
KUNDE.FiBuSchnittstelle = cbxFiBu.Checked
|
|
KUNDE_ERW.FiBuSchnittstelleLG = cbxFiBuLG.Checked
|
|
KUNDE.FiBuSchnittstelleNr = isLeerNothing(cboFirma._value)
|
|
KUNDE.Besonderheiten = isLeerNothing(rtbAbf_Besonderheiten.Text)
|
|
KUNDE.DokumenteLKWFreigabe = isLeerNothing(rtbLKWFreigabeSenden.Text)
|
|
KUNDE.Einmalige_Abfertigung = cbxAbf_EinmaligeAbfertigung.Checked
|
|
KUNDE.Zollvollmacht = cbxAbf_ZollVM.Checked
|
|
KUNDE.Zollvollmacht_vom = isLeerNothing(txtAbf_ZollVmVom._value)
|
|
KUNDE.Planzahl = isLeerNothing(txtAbf_Planzahl.Text)
|
|
KUNDE.Lastschrift = cbxAbf_Lastschrift.Checked
|
|
KUNDE.Lastschrift_von = isLeerNothing(txtAbf_LastschriftVon._value)
|
|
KUNDE.Lastschrift_bis = isLeerNothing(txtAbf_LastschriftBis._value)
|
|
|
|
KUNDE.Fiskal = cbxAbf_Fiskal.Checked
|
|
KUNDE.Ausfuhr = cbxAbf_Ausfuhr.Checked
|
|
KUNDE.Vorkasse = cbxAbf_Vorkasse.Checked
|
|
KUNDE.Rabattstaffel = cbxAbf_Rabattstaffel.Checked
|
|
KUNDE.SVS = cbxAbf_SvsRvs.Checked
|
|
KUNDE.Erste_Abfertigung = isLeerNothing(txtAbf_ErsteAbfertigung.Text)
|
|
|
|
KUNDE.Vorlageprovision = isLeerNothingDbl(txtAbf_Vorlageprovision._value, 0)
|
|
KUNDE.KundenNrZentrale = If(txtDebKdNr.Text = "", KUNDE.KundenNr, txtDebKdNr.Text)
|
|
KUNDE.Kreditaufwendungen = isLeerNothingDbl(txtAbf_Kreditaufwendungen._value, 0)
|
|
KUNDE.Bankspesen = isLeerNothingDbl(txtAbf_Bankspesen._value, 0)
|
|
|
|
KUNDE.Bankspesen_Mindestbetrag = If(IsNumeric(txtAbf_BankspesenMindestbetrag._value), CDbl(txtAbf_BankspesenMindestbetrag._value), 0)
|
|
|
|
KUNDE.Kreditlimit = txtVers_Kreditlimit.Text
|
|
KUNDE_ERW.kde_abweichendesZZVL = If(txtAbwZZVL._value <> "" And IsNumeric(txtAbwZZVL._value), txtAbwZZVL._value, Nothing)
|
|
KUNDE.Zahlungsziel = txtAbf_Zahlungsziel.Text
|
|
|
|
KUNDE_ERW.Zahlungsziel2 = isLeerNothing(txtAbf_Zahlungsziel2.Text)
|
|
KUNDE_ERW.Zahlungsziel3 = isLeerNothing(txtAbf_Zahlungsziel3.Text)
|
|
|
|
KUNDE_ERW.kde_Kapital = isLeerNothing(txtKapital._value)
|
|
KUNDE_ERW.kde_KapitalWaehrung = isLeerNothing(cbxKapitalWaehrung._value)
|
|
KUNDE_ERW.kde_HRNr = isLeerNothing(txtHandelsregisterNr.Text)
|
|
|
|
If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then
|
|
KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text)
|
|
End If
|
|
|
|
KUNDE.Euroeinführung = isLeerNothing(txtAbf_Euroeinführung._value)
|
|
|
|
KUNDE.Währungscode = isLeerNothing(cboAbf_Waehrung._value)
|
|
|
|
KUNDE.Sammelrechnung = cboAbf_Sammelrechnung._value
|
|
|
|
KUNDE_ERW.kde_FakturierungSR_Details = cbxSammelrechnungBerichtLeistungsdetails.Checked
|
|
KUNDE.EORITIN = isLeerNothing(txtEORI.Text)
|
|
|
|
If IsNumeric(txtEORINL.Text) Then
|
|
KUNDE.EORITIN_NL = isLeerNothing(txtEORINL.Text)
|
|
End If
|
|
|
|
|
|
' ----- Neutralisierung -----
|
|
KUNDE.Neutralisierung = 0
|
|
If RadioButton1.Checked = True Then KUNDE.Neutralisierung = 0
|
|
If RadioButton2.Checked = True Then KUNDE.Neutralisierung = 1
|
|
If RadioButton3.Checked = True Then KUNDE.Neutralisierung = 2
|
|
|
|
' ----- Avis -----
|
|
KUNDE.Avis = 0
|
|
If RadioButton6.Checked = True Then KUNDE.Avis = 0
|
|
If RadioButton5.Checked = True Then KUNDE.Avis = 1
|
|
If RadioButton4.Checked = True Then KUNDE.Avis = 2
|
|
If RadioButton7.Checked = True Then KUNDE.Avis = 3
|
|
|
|
|
|
' ----- Versicherung -----
|
|
KUNDE.Referenznummer = isLeerNothing(txtVers_HermesRefNr.Text)
|
|
'MsgBox(txtVers_Versicherungssumme._value)
|
|
'If txtVers_Versicherungssumme._value <> "" Then
|
|
' KUNDE.Versicherungssumme = IIf(IsNumeric(txtVers_Versicherungssumme._value), CDbl(txtVers_Versicherungssumme._value), 0)
|
|
'End If
|
|
KUNDE.Versicherungssumme = isLeerNothingDbl(txtVers_Versicherungssumme._value)
|
|
|
|
|
|
KUNDE.Entscheidung_vom = isLeerNothing(txtVers_VersicherungssummeVon._value)
|
|
KUNDE.Antragssumme = isLeerNothingDbl(txtVers_Antragssumme._value)
|
|
KUNDE.Antrag_vom = isLeerNothing(txtVers_AntragssummeVon._value)
|
|
KUNDE.Kreditlimit = isLeerNothingDbl(txtVers_Kreditlimit._value)
|
|
KUNDE.Kreditlimit_vom = isLeerNothing(txtVers_KreditlimitVon._value)
|
|
KUNDE.BankgarantieBetrag = isLeerNothingDbl(txtVers_Bankgarantiebetrag._value)
|
|
KUNDE.BankgarantieGültigBis = isLeerNothing(txtVers_BankgarantiebetragGueltigBis._value)
|
|
KUNDE.Info = isLeerNothing(txtVers_Information.Text)
|
|
KUNDE.Zahlungsinformationen = isLeerNothing(rtb_Zahlungsinfo.Text)
|
|
KUNDE.LfdSaldo = isLeerNothingDbl(txtVers_Saldo._value)
|
|
KUNDE_ERW.kde_Versicherung_Deckungsstopp = cbxDeckungsstopp.Checked
|
|
KUNDE_ERW.kde_Versicherung_DeckungsstoppDatum = isLeerNothing(txtDeckungsstoppDatum._value)
|
|
KUNDE_ERW.kde_Versicherung_Uebergeben = cbxVersicherungUebergeben.Checked
|
|
KUNDE_ERW.kde_Versicherung_UebergebenAm = isLeerNothing(txtVersicherungUebergebenAm._value)
|
|
KUNDE_ERW.kde_Versicherung_AnerkennungVersicherungsfall = cbxAnerkVersFall.Checked
|
|
KUNDE_ERW.kde_Versicherung_AnerkennungVersicherungsfallAm = isLeerNothing(txtAnerkVersFallAm._value)
|
|
KUNDE_ERW.kde_Versicherung_AnerkennungVersicherungsfallAb = isLeerNothing(txtAnerkVersFallAb._value)
|
|
|
|
KUNDE_ERW.kde_BankgarantielErhaltenAm = isLeerNothing(txtBankgarantieErhaltenAm._value)
|
|
KUNDE_ERW.kde_WechselBlanko = cbxBlanko.Checked
|
|
KUNDE_ERW.kde_WechselBetrag = isLeerNothing(txtWechsel._value)
|
|
KUNDE_ERW.kde_WechselErhaltenAm = isLeerNothing(txtWechselErhaltenAm._value)
|
|
KUNDE_ERW.kde_WechselGueltigBis = isLeerNothing(txtWechselGueltigBis._value)
|
|
|
|
|
|
|
|
KUNDE_ERW.kde_txtVersicherungDeckungsquote = isLeerNothingDbl(txtVersicherungDeckungsquote._value)
|
|
KUNDE_ERW.kde_txtVersicherungNichtVersicherbar = cbxNichtVersicherbar.Checked
|
|
KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value)
|
|
KUNDE_ERW.kde_txtVersicherungEHNr = isLeerNothing(txtVers_EHNr._value)
|
|
|
|
KUNDE_ERW.kde_Inkasso_Uebergeben = cbxInkassoUebergeben.Checked
|
|
KUNDE_ERW.kde_Inkasso_UebergebenAm = isLeerNothing(txtInkassoUebergebenAm._value)
|
|
KUNDE_ERW.kde_Inkasso_GemeldeterBetrag = isLeerNothingDbl(txtInkasso_GemeldeterBetrag._value)
|
|
|
|
KUNDE_ERW.kde_Leihgeld_ProvisionPreisstaffel = isLeerNothing(cboProvisionStaffelArt._value)
|
|
KUNDE_ERW.kde_Leihgeld_Provision = isLeerNothing(cboProvisionStaffel._value)
|
|
KUNDE_ERW.kde_Leihgeld_ProvisionAuftraggeber = isLeerNothingDbl(txtProvAuftraggeber._value)
|
|
|
|
KUNDE_ERW.Depot_Kunde = cbxDepot.Checked
|
|
KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
|
|
KUNDE_ERW.Veranlagungskunde = cbxVeranlagungskunde.Checked
|
|
KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB = cbxSndDatenAusSTB.Checked
|
|
KUNDE_ERW.kde_UIDMehrfachverwendung = cbxUIDMehrfachverwendung.Checked
|
|
|
|
KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
|
|
KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
|
|
|
|
KUNDE_ERW.kde_API_Tradeshift = cbxAPITradeshift.Checked
|
|
KUNDE_ERW.kde_Fakturierung_Sprache = isLeerNothing(cboRechnungSprache._value)
|
|
KUNDE_ERW.kde_CreditSaveId = isLeerNothing(txtCreditsafe.Text)
|
|
|
|
|
|
|
|
' ----- Fremdsped -----
|
|
KUNDE_ERW.kde_KundeFremdspedition = cbxVerzolltBei.Checked
|
|
If KUNDE_ERW.kde_KundeFremdspedition Then
|
|
KUNDE_ERW.kde_verzolltBei = cboFremdspedition.Text
|
|
Else
|
|
KUNDE_ERW.kde_verzolltBei = Nothing
|
|
End If
|
|
|
|
' ----- Fremdsped -----
|
|
KUNDE_ERW.kde_KundeFremdspeditionExport = cbxVerzolltBeiExport.Checked
|
|
If KUNDE_ERW.kde_KundeFremdspeditionExport Then
|
|
KUNDE_ERW.kde_verzolltBeiExport = cboFremdspeditionExport.Text
|
|
Else
|
|
KUNDE_ERW.kde_verzolltBeiExport = Nothing
|
|
End If
|
|
|
|
|
|
' ----- Abfertigungsverbot -----
|
|
KUNDE.Abfertigungsverbot = cboAbfVerb_Abfertigungsverbot.Checked
|
|
KUNDE.Abfertigungsverbot_seit = isLeerNothing(txtAbfVerb_AbfertigungsverbotSeit._value)
|
|
KUNDE.Abfertigungsverbot_Grund = isLeerNothing(rtbAbfVerb_Grund.Text)
|
|
KUNDE.Rechtsanwalt = cboAbfVerb_Rechtsanwalt.Checked()
|
|
KUNDE.Rechtsanwalt_seit = isLeerNothing(txtAbfVerb_RechtsanwaltSeit._value)
|
|
|
|
' AddHandler txtVers_Kreditlimit.BindingContextChanged, (Sub(sender As Object, e As EventArgs
|
|
'cboAbfVerb_Kreditlimit.Checked = (sender.text <> "
|
|
' End Sub
|
|
|
|
' ----- Offene Posten -----
|
|
KUNDE.Bonität = txtBonitaet.Text
|
|
KUNDE.Bonitätsdatum = isLeerNothing(txtBonitaetsDatum._value)
|
|
KUNDE.Höchstkredit = isLeerNothingDbl(txtHoechstkredit._value)
|
|
'KUNDE. = IIf(txtHoechstkredit._value Is Nothing, 0, CDbl(txtHoechstkredit._value))
|
|
|
|
|
|
' ----- Bank -----
|
|
ADRESSE.BLZ = isLeerNothing(txtBank_Blz.Text)
|
|
ADRESSE.KTO = isLeerNothing(txtBank_Kto.Text)
|
|
|
|
' ----- USTV -----
|
|
ADRESSE.UstIdKz = isLeerNothing(cboUSt_UstIdNrLand._value)
|
|
ADRESSE.UstIdNr = isLeerNothing(txtUSt_UstIdNr.Text)
|
|
ADRESSE.UstIdGeprüft = isLeerNothing(txtUSt_UstIdNrGeprueftAm._value)
|
|
ADRESSE.Steuernummer = isLeerNothing(txtUSt_Steuernummer.Text)
|
|
ADRESSE.UStV_GVAnfDat = isLeerNothing(txtUSt_GVAngefordertAm._value)
|
|
ADRESSE.UStV_GVAusDat = isLeerNothing(txtUSt_GVAusgestelltAm._value)
|
|
|
|
' ----- Sonstiges -----
|
|
ADRESSE.Rechnungsdruck = isLeerNothing(cboSonst_Rechnungsdruck._value)
|
|
ADRESSE.IDSKundenNr = isLeerNothing(txtSonst_KdNrIDS.Text)
|
|
ADRESSE.WölflKundenNr = isLeerNothing(txtSonst_KdNrWOELFL.Text)
|
|
ADRESSE.MSEKundenNr = isLeerNothing(txtSonst_KdNrMSE.Text)
|
|
ADRESSE.TELEPASS_Kd_Nr = isLeerNothing(txtSonst_KdNrTelepass.Text)
|
|
ADRESSE.PLOSEKundenNr = isLeerNothing(txtSonst_KdNrPLOSE.Text)
|
|
ADRESSE.UTAKundenNr = isLeerNothing(txtSonst_KdNrUTA.Text)
|
|
KUNDE_ERW.kde_TOBB_KundenNr = isLeerNothing(txtSonst_KdNrTOBB.Text)
|
|
ADRESSE.ASFINAGExportCSV = cbxSonst_CsvAsfinag.Checked
|
|
ADRESSE.ExportMautberichtCSV = cbxSonst_CsvMautbericht.Checked
|
|
ADRESSE.MSEExportCSV = cbxSonst_CsvMSE.Checked
|
|
ADRESSE.UTAExportCSV = cbxSonst_CsvUTA.Checked
|
|
|
|
|
|
KUNDE.Steuerschlüssel = cboAbf_Steuerschluessel._value
|
|
|
|
'Andere Lösung überlegen!!!!!
|
|
'If cboAbf_Steuerschluessel._value IsNot Nothing AndAlso IsNumeric(cboAbf_Steuerschluessel._value) Then
|
|
' Dim check As Integer
|
|
' check = cAllgemein.checkSteuerschluessel(cboFiliale._value, ADRESSE.LandKz, ADRESSE.UstIdNr, ADRESSE.UstIdNr, ADRESSE.UstIdGeprüft)
|
|
' If check >= 0 Then
|
|
' If CInt(cboAbf_Steuerschluessel._value) <> check Then
|
|
' If vbYes = MsgBox("Falscher Steuertyp!" & vbNewLine & " Steuerschlüssel mit " & IIf(check = 2, "20 %", check & " %") & " sollte hinterlegt werden." & vbNewLine & "Trotzdem speichern?", vbYesNo) Then
|
|
' KUNDE.Steuerschlüssel = cboAbf_Steuerschluessel._value
|
|
' Else
|
|
' KUNDE.Steuerschlüssel = Nothing
|
|
' End If
|
|
' End If
|
|
|
|
' End If
|
|
|
|
'End If
|
|
|
|
UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW)
|
|
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub btnFirmendatenFormularSpeichern_Click(sender As Object, e As EventArgs) Handles btnFirmendatenFormularSpeichern.Click
|
|
txtERROR.Text = ""
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
|
|
If loadDataInKdAd() Then
|
|
|
|
|
|
Dim err = ""
|
|
If Not ADRESSE.VALID(err, KUNDE, cbxUIDMehrfachverwendung.Checked) Then
|
|
txtERROR.Text = err : Exit Sub
|
|
End If
|
|
If Not KUNDE.VALID(err) Then
|
|
txtERROR.Text = err : Exit Sub
|
|
End If
|
|
|
|
Dim allowdelete = Not (KUNDE.hasEntry And ADRESSE.hasEntry) ' wenn der Eintrag bereits existiert
|
|
If ADRESSE.SAVE() Then
|
|
If KUNDE.SAVE() Then
|
|
If FISKAL.SAVE AndAlso KUNDE_ERW.SAVE Then
|
|
If usrCntlAufschubkonten.SAVE() Then
|
|
pnlNeukunde.Visible = False
|
|
btnUIDPruef.Visible = True
|
|
RaiseEvent KD_SAVED(ADRESSE.AdressenNr)
|
|
init(KUNDE.KundenNr)
|
|
End If
|
|
End If
|
|
Else
|
|
If allowdelete Then sql.doSQL("DELETE FROM Adressen WHERE AdressenNr=" & ADRESSE.AdressenNr, "FMZOLL")
|
|
txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Kunden'!"
|
|
End If
|
|
Else
|
|
txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Adressen'!"
|
|
End If
|
|
End If
|
|
initBesonderheitenNEU()
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Sub checkEORI_Aufschub()
|
|
If usrCntlAufschubkonten.AUFSCHUB IsNot Nothing Then
|
|
For Each a In usrCntlAufschubkonten.AUFSCHUB
|
|
If a.kdAkto_eori IsNot Nothing AndAlso (a.kdAkto_eori & If(a.kdAkto_eoriNL, "")).replace(" ", "") <> (KUNDE.EORITIN & If(KUNDE.EORITIN_NL, "")).replace(" ", "") Then
|
|
txtERROR.Text = "EORI in Kundenstamm stimmt nicht mit EORI in Aufschubdaten überein!"
|
|
End If
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub loadControls()
|
|
cboAbf_Waehrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False)
|
|
|
|
cbxKapitalWaehrung.fillWithSQL("SELECT fw_iso3, fw_land FROM [VERAG].[dbo].[tblWahrungtabelleNEU] order by fw_land ", , "FMZOLL", False)
|
|
|
|
'cbxKapitalWaehrung.Items.AddRange(cboAbf_Waehrung.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
|
|
|
|
cboAbf_Steuerschluessel.fillWithSQL("SELECT [Steuerschlüssel], isnull(cast(cast( [Steuersatz %]*100 as decimal(2))as varchar(5)) + '% - ' +AuswahlSteuerbezeichnung,'') as Bezeichnung FROM [Steuertabelle] ORDER BY Steuerschlüssel", False, "FMZOLL", True)
|
|
|
|
|
|
cboUSt_UstIdNrLand.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez " &
|
|
" FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " &
|
|
" WHERE ([Währungstabelle].[MitgliedslandEU] = 1) " &
|
|
" ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True)
|
|
' cbxLandKz.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez " & _
|
|
' " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " & _
|
|
' " WHERE [Währungstabelle].[MitgliedslandEU] = 1 " & _
|
|
' " ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True)
|
|
'cbxLandKz.fillWithSQL(" select distinct adressen.landkz, Währungstabelle.Land from adressen inner join Währungstabelle ON Währungstabelle.LandKz=adressen.LandKz where adressen.landkz is not null order by LandKz", , "FMZOLL", True)
|
|
cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
|
|
|
|
|
|
cboRechnungSprache.Items.Clear()
|
|
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
|
|
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
|
|
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rumänisch", "RO"))
|
|
cboRechnungSprache.changeItem(0)
|
|
|
|
cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True)
|
|
cboFirma.fillWithSQL("SELECT tblFirma.Firma_ID, tblFirma.Firma_Bez FROM tblFirma ORDER BY tblFirma.Firma_ID", , "FMZOLL", True)
|
|
|
|
cboFiliale.fillWithSQL("SELECT [FilialenNr],[Grenzstelle] FROM [Filialen] ORDER BY FilialenNr", True, "FMZOLL")
|
|
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "IMEX"
|
|
cboFiliale.changeItem("5501")
|
|
Case "UNISPED"
|
|
cboFiliale.changeItem("5601")
|
|
Case "AMBAR"
|
|
cboFiliale.changeItem("5701")
|
|
Case "ATILLA"
|
|
cboFiliale.changeItem("4801")
|
|
Case Else
|
|
cboFiliale.changeItem("4803")
|
|
End Select
|
|
|
|
|
|
cboAuswahl.Items.Clear()
|
|
cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AKTIV", "A"))
|
|
cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("INAKTIV", "I"))
|
|
cboAuswahl.changeItem("A")
|
|
|
|
|
|
cboSonst_Rechnungsdruck.Items.Clear()
|
|
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Formular", "0"))
|
|
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Fax", "1"))
|
|
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E-Mail", "2"))
|
|
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mail+Kopie", "5"))
|
|
|
|
cboAbf_Sammelrechnung.Items.Clear()
|
|
cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - nein", "0"))
|
|
cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - täglich", "1"))
|
|
cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - halbmonatlich", "2"))
|
|
cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - monatlich", "3"))
|
|
cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Dekade", "4"))
|
|
cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - wöchentlich", "5"))
|
|
cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6 - Maut/Diesel", "6"))
|
|
cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - LKW", "7"))
|
|
|
|
End Sub
|
|
|
|
Private Sub cboProvisionStaffelArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboProvisionStaffelArt.SelectedIndexChanged
|
|
cboProvisionStaffel.Items.Clear()
|
|
If IsNumeric(cboProvisionStaffelArt._value) Then
|
|
cboProvisionStaffel.fillWithSQL("SELECT [PreislistenPos],[Leistungsbeschreibung] FROM [VERAG].[dbo].[tblPreislistenpositionen] where LeistungsNr IN (357,355) AND PreislistenNr='" & cboProvisionStaffelArt._value & "'", False, "FMZOLL", True)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub txtUSt_UstIdNr_TextChanged(sender As Object, e As EventArgs) Handles txtUSt_UstIdNr.TextChanged, txtUSt_UstIdNrGeprueftAm.TextChanged, cboUSt_UstIdNrLand.SelectedIndexChanged
|
|
initUStID()
|
|
End Sub
|
|
|
|
Sub initUStID()
|
|
txtUStID.Text = cboUSt_UstIdNrLand._value & txtUSt_UstIdNr.Text
|
|
txtUStIDGeprueftAm.Text = txtUSt_UstIdNrGeprueftAm.Text
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub txtUSt_Steuernummer_TextChanged(sender As Object, e As EventArgs) Handles txtUSt_Steuernummer.TextChanged
|
|
txtSteuernummer.Text = txtUSt_Steuernummer.Text
|
|
End Sub
|
|
|
|
Private Sub tbcntrDetails_MouseWheel(sender As Object, e As MouseEventArgs) Handles tbcntrDetails.MouseWheel
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntrDetails.SelectedIndexChanged
|
|
If KUNDE Is Nothing OrElse KUNDE.KundenNr <= 0 Then Exit Sub
|
|
|
|
If tbcntrDetails.SelectedTab Is tbUmsatz Then
|
|
With dgvUmsatzbericht
|
|
.DataSource = sql.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
|
|
" FROM [tblKundenumsatz] " &
|
|
" WHERE [KundenNr]='" & KUNDE.KundenNr & "' ORDER BY Jahr DESC", "FMZOLL")
|
|
.Columns(0).Visible = False
|
|
.Columns(11).Visible = False
|
|
.Columns(1).Width = 40
|
|
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns(2).Width = 75
|
|
.Columns(2).DefaultCellStyle.Format = "N2"
|
|
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
|
.Columns(3).Width = 75
|
|
.Columns(3).DefaultCellStyle.Format = "N2"
|
|
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
|
.Columns(4).Width = 75
|
|
.Columns(4).DefaultCellStyle.Format = "N2"
|
|
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
|
.Columns(5).Width = 55
|
|
.Columns(5).DefaultCellStyle.Format = "N2"
|
|
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
|
.Columns(6).Width = 75
|
|
.Columns(6).DefaultCellStyle.Format = "N2"
|
|
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
|
.Columns(7).Width = 60
|
|
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns(8).Width = 55
|
|
.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns(8).HeaderText = "Rechng."
|
|
.Columns(9).Width = 53
|
|
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns(9).HeaderText = "Gutschr."
|
|
.Columns(10).MinimumWidth = 65
|
|
.Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
|
|
' If .RowCount > 0 Then
|
|
'txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
|
|
' Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
|
|
' Else
|
|
' txtUmsatzJahr.Text = ""
|
|
' End If
|
|
End With
|
|
|
|
End If
|
|
If tbcntrDetails.SelectedTab Is tbOP Then
|
|
With dgvOffenePosten
|
|
.DataSource = sql.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as Währung,[KumSaldoEUR] ,[Buchungstext] as Referenz " &
|
|
" FROM [Offene Posten] " &
|
|
" WHERE [Kontonummer]='" & KUNDE.KundenNr & "' ORDER BY Belegdatum DESC", "FMZOLL")
|
|
.Columns(0).Visible = False
|
|
|
|
.Columns(1).Width = 65
|
|
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
|
|
.Columns(3).Width = 75
|
|
.Columns(3).DefaultCellStyle.Format = "N2"
|
|
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
|
|
|
.Columns(4).Width = 75
|
|
.Columns(4).DefaultCellStyle.Format = "N2"
|
|
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
|
|
|
.Columns(5).Width = 60
|
|
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
|
|
.Columns(6).Width = 80
|
|
.Columns(6).DefaultCellStyle.Format = "N2"
|
|
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
|
|
|
.Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
' If .RowCount > 0 Then
|
|
' txtOffenePosten.Text = String.Format("C2", .Rows(0).Cells("KumSaldoEUR").Value)
|
|
' txtOffenePosten.Text = String.Format("{0:n}", .Rows(0).Cells("KumSaldoEUR").Value)
|
|
'Else
|
|
' txtOffenePosten.Text = ""
|
|
' End If
|
|
End With
|
|
End If
|
|
|
|
If tbcntrDetails.SelectedTab Is tbBank Then
|
|
|
|
initdgvKreditkarten()
|
|
|
|
|
|
End If
|
|
|
|
If tbcntrDetails.SelectedTab Is tbUmsatzsteuer Then
|
|
|
|
With dgvUstv_LaenderUndSteuernummern
|
|
|
|
cBinding_dgvUStV.initBinding(" SELECT [AdressenNr],LandNr,[StNrFürRückerstattungUSt],[StNrGültigkeitsdatum] ,[UStV],[VertretungsvollmachtAusgestelltAm],[VertretungsvollmachtErhaltenAm],[AuszahlungsvollmachtAusgestelltAm],[AuszahlungsvollmachtErhaltenAm] ,[Bemerkung] " &
|
|
" FROM [tblSteuernummern] " &
|
|
" WHERE AdressenNr = '" & KUNDE.KundenNr & "' ", "tblSteuernummern")
|
|
|
|
|
|
AddHandler btnUStVAendSpeichern.Click,
|
|
Sub(send As Object, evnt As EventArgs)
|
|
If cBinding_dgvUStV.updateBinding() Then
|
|
send.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
AddHandler cBinding_dgvUStV.bindingdataTable.ColumnChanged,
|
|
Sub(send As Object, evnt As EventArgs)
|
|
btnUStVAendSpeichern.Enabled = True
|
|
End Sub
|
|
|
|
AddHandler .UserDeletedRow,
|
|
Sub(send As Object, evnt As DataGridViewRowEventArgs)
|
|
btnUStVAendSpeichern.Enabled = True
|
|
End Sub
|
|
|
|
|
|
.DataSource = cBinding_dgvUStV.bindingdataTable
|
|
|
|
FUNC.dgvCellToCbo(dgvUstv_LaenderUndSteuernummern, 1, "Land", "LandNr", "SELECT LandNr, LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandBez ", "FMZOLL")
|
|
|
|
|
|
.DataSource.Columns("AdressenNr").DefaultValue = KUNDE.KundenNr
|
|
.DataSource.Columns("UStV").DefaultValue = False
|
|
|
|
.Columns(0).Visible = False
|
|
|
|
.Columns(1).Width = 120
|
|
.Columns(1).HeaderText = "Land"
|
|
' .Columns(1).CellType = DataGridViewComboBoxColumn
|
|
.Columns(2).Width = 120
|
|
.Columns(2).HeaderText = "Steuernummer"
|
|
' .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns(3).Width = 75
|
|
.Columns(3).HeaderText = "gültig bis"
|
|
.Columns(4).Width = 40
|
|
|
|
.Columns(5).Width = 80
|
|
.Columns(5).HeaderText = "Vetret.-VM" & vbNewLine & "ausgestellt am"
|
|
.Columns(6).Width = 80
|
|
.Columns(6).HeaderText = "Vetret.-VM" & vbNewLine & "erhalten am"
|
|
.Columns(7).Width = 80
|
|
.Columns(7).HeaderText = "Auszzahl.-VM" & vbNewLine & "ausgestellt am"
|
|
.Columns(8).Width = 80
|
|
.Columns(8).HeaderText = "Auszzahl.-VM" & vbNewLine & "erhalten am"
|
|
.Columns(9).Width = 200
|
|
|
|
End With
|
|
End If
|
|
|
|
If tbcntrDetails.SelectedTab Is tbSonstiges Then
|
|
With dgvSonst_IDSKunden
|
|
|
|
cBinding_dgvSonst_IDSKunden.initBinding(" SELECT [KdNrVERAG],[CustomerCode],[KdNrAlt],[Zeitstempel],[Sachbearbeiter] " &
|
|
" FROM [tbl_IDS_Kunden] " &
|
|
" WHERE KdNrVERAG = '" & KUNDE.KundenNr & "' ", "tbl_IDS_Kunden")
|
|
|
|
AddHandler btnSonstAendSpeichern.Click,
|
|
Sub(send As Object, evnt As EventArgs)
|
|
If cBinding_dgvSonst_IDSKunden.updateBinding() Then
|
|
send.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
AddHandler cBinding_dgvSonst_IDSKunden.bindingdataTable.ColumnChanged,
|
|
Sub(send As Object, evnt As EventArgs)
|
|
btnSonstAendSpeichern.Enabled = True
|
|
End Sub
|
|
|
|
AddHandler .UserDeletedRow,
|
|
Sub(send As Object, evnt As DataGridViewRowEventArgs)
|
|
btnSonstAendSpeichern.Enabled = True
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
.DataSource = cBinding_dgvSonst_IDSKunden.bindingdataTable
|
|
|
|
' dgvCellToCbo(dgvUstv_LaenderUndSteuernummern, "Land", "LandNr", "SELECT LandNr, LandBez FROM [VERAG].[dbo].[Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandBez ")
|
|
|
|
|
|
.DataSource.Columns("KdNrVERAG").DefaultValue = KUNDE.KundenNr
|
|
.DataSource.Columns("Zeitstempel").DefaultValue = Now
|
|
.DataSource.Columns("Sachbearbeiter").DefaultValue = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
|
|
|
.Columns(0).Visible = False
|
|
.Columns(1).HeaderText = "IDS-Kunden-Nummer"
|
|
|
|
.Columns(2).ReadOnly = False
|
|
.Columns(3).ReadOnly = False
|
|
.Columns(4).ReadOnly = False
|
|
.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
End With
|
|
End If
|
|
|
|
If tbcntrDetails.SelectedTab Is tbBankverbindungen Then
|
|
initdgvBankverbindungen(bankverbindungBearbeiten)
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Dim cBinding_dgvUStV As New cBinding("FMZOLL")
|
|
Dim cBinding_dgvSonst_IDSKunden As New cBinding("FMZOLL")
|
|
Dim cBinding_dgvBankverbindungen As New cBinding("FMZOLL")
|
|
|
|
|
|
|
|
Private Sub dgvUmsatzbericht_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs)
|
|
|
|
If e.ColumnIndex = 1 Or e.ColumnIndex = 2 Or e.ColumnIndex = 3 Or e.ColumnIndex = 4 Or e.ColumnIndex = 5 Or e.ColumnIndex = 6 Then
|
|
If CInt(e.Value) < 0 Then
|
|
e.CellStyle.ForeColor = Color.Red
|
|
'ElseIf CInt(e.Value) >= 0 Then
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub dgvOffenePosten_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs)
|
|
|
|
If e.ColumnIndex = 3 Or e.ColumnIndex = 4 Or e.ColumnIndex = 6 Then
|
|
If CInt(e.Value) < 0 Then
|
|
e.CellStyle.ForeColor = Color.Red
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub dgvKreditkarten_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs)
|
|
|
|
If e.ColumnIndex = 4 Then
|
|
If Not e.Value Is Nothing AndAlso IsNumeric(e.Value) AndAlso e.Value > 0 Then
|
|
sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub usrcntlKundeBearbeitenFull_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Me.tbcntrDetails.Controls.Remove(tbUmsatz)
|
|
Me.tbcntrDetails.Controls.Remove(tbOP)
|
|
If isVerag360 Then
|
|
Me.tbcntrDetails.Controls.Remove(tbFiskal)
|
|
Else
|
|
Me.tbcntrDetails.Controls.Remove(tbBankverbindungen)
|
|
End If
|
|
|
|
|
|
For Each c As Control In Me.tbcntrDetails.Controls
|
|
If c.Name = "tbBank" Then
|
|
If Not isVerag360 Then
|
|
c.Text = "Bankverb./Kreditkarten"
|
|
Else
|
|
c.Text = "Asfinag"
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
|
|
btnFirmendatenFormularSpeichern.Enabled = False
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY_KD_Uebertragen", "SDL") Then
|
|
Button1.Visible = True
|
|
Label29.Visible = True
|
|
Label28.Visible = True
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SYSKA_UPDATE", "SDL") Then
|
|
Label97.Visible = True
|
|
Button4.Visible = True
|
|
CheckBox1.Visible = True
|
|
End If
|
|
tbcntrAbf.TabPages.Remove(TabPage4)
|
|
|
|
If Filiale > 0 Then
|
|
cboFiliale.changeItem(Filiale)
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") Then
|
|
Label98.Visible = True
|
|
btnDatevExport.Visible = True
|
|
Else
|
|
Label98.Visible = False
|
|
btnDatevExport.Visible = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub cbxDeckungsstopp_CheckedChanged(sender As Object, e As EventArgs) Handles cbxDeckungsstopp.CheckedChanged
|
|
txtDeckungsstoppDatum.Enabled = cbxDeckungsstopp.Checked
|
|
If cbxDeckungsstopp.Checked Then
|
|
txtDeckungsstoppDatum._value = Now.ToShortDateString
|
|
Else
|
|
txtDeckungsstoppDatum._value = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
|
tbcntrDetails.TabPages.Add(tbOP)
|
|
tbcntrDetails.TabPages.Add(tbUmsatz)
|
|
End Sub
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs)
|
|
tbcntrDetails.TabPages.Remove(tbOP)
|
|
tbcntrDetails.TabPages.Remove(tbUmsatz)
|
|
End Sub
|
|
|
|
Private Sub cbxAbf_ZollVM_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAbf_ZollVM.CheckedChanged
|
|
If Not sender.Checked Then txtAbf_ZollVmVom.Text = ""
|
|
txtAbf_ZollVmVom.Enabled = sender.Checked
|
|
|
|
End Sub
|
|
|
|
Private Sub cbxAbf_Lastschrift_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAbf_Lastschrift.CheckedChanged
|
|
If Not sender.Checked Then txtAbf_LastschriftVon.Text = "" : txtAbf_LastschriftBis.Text = ""
|
|
txtAbf_LastschriftVon.Enabled = sender.Checked
|
|
txtAbf_LastschriftBis.Enabled = sender.Checked
|
|
|
|
End Sub
|
|
|
|
Private Sub cboAbfVerb_Abfertigungsverbot_CheckedChanged(sender As Object, e As EventArgs) Handles cboAbfVerb_Abfertigungsverbot.CheckedChanged
|
|
txtAbfVerb_AbfertigungsverbotSeit.Enabled = sender.Checked
|
|
|
|
End Sub
|
|
|
|
Private Sub cboAbfVerb_Rechtsanwalt_CheckedChanged(sender As Object, e As EventArgs) Handles cboAbfVerb_Rechtsanwalt.CheckedChanged
|
|
txtAbfVerb_RechtsanwaltSeit.Enabled = sender.Checked
|
|
|
|
End Sub
|
|
|
|
Private Sub cbxVersicherungUebergeben_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVersicherungUebergeben.CheckedChanged
|
|
txtVersicherungUebergebenAm.Enabled = cbxVersicherungUebergeben.Checked
|
|
If cbxVersicherungUebergeben.Checked Then
|
|
txtVersicherungUebergebenAm._value = Now.ToShortDateString
|
|
txtVersUebergebenOPSaldo.Text = sql.getValueTxtBySql("Select sum(Gesamtausstand) FROM [VERAG].[dbo].[Offene Posten] where Kontonummer=100009 /*group by firma_id*/", "FMZOLL")
|
|
|
|
Else
|
|
txtVersicherungUebergebenAm._value = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cbxAnerkVersFall_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAnerkVersFall.CheckedChanged
|
|
txtAnerkVersFallAm.Enabled = cbxAnerkVersFall.Checked
|
|
' txtAnerkVersFallAb.Enabled = cbxAnerkVersFall.Checked
|
|
If cbxAnerkVersFall.Checked Then
|
|
txtAnerkVersFallAm._value = Now.ToShortDateString
|
|
Else
|
|
txtAnerkVersFallAm._value = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cbxNichtVersicherbar_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNichtVersicherbar.CheckedChanged
|
|
If cbxNichtVersicherbar.Checked Then
|
|
cbxNichtVersicherbar.Font = New Font(Me.Font, FontStyle.Bold)
|
|
cbxNichtVersicherbar.ForeColor = Color.Red
|
|
Else
|
|
cbxNichtVersicherbar.Font = New Font(Me.Font, FontStyle.Regular)
|
|
cbxNichtVersicherbar.ForeColor = Color.Black
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY_KD_Uebertragen", "SDL") Then
|
|
If If(KUNDE.EORITIN, "") = "" Then
|
|
MsgBox("Bitte EORI-Nr. eintragen!")
|
|
Exit Sub
|
|
End If
|
|
If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
|
|
init(KUNDE.KundenNr)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxDepot.CheckedChanged
|
|
Label36.Visible = sender.checked
|
|
End Sub
|
|
|
|
Sub initKdKontakSpeziell()
|
|
'TabPage11.Controls.Clear()
|
|
ucKundenKontakte.init(KUNDE.KundenNr)
|
|
End Sub
|
|
|
|
Private Sub cboAuswahl_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAuswahl.SelectedIndexChanged
|
|
If cboAuswahl._value = "A" Then
|
|
cboAuswahl.BackColor = Color.FromArgb(224, 224, 224)
|
|
cboAuswahl.ForeColor = Color.Black
|
|
Else
|
|
cboAuswahl.BackColor = Color.Red
|
|
cboAuswahl.ForeColor = Color.White
|
|
End If
|
|
btnFirmendatenFormularSpeichern.Focus() 'Damit bg nicht selectiert
|
|
End Sub
|
|
|
|
Private Sub Label80_Click(sender As Object, e As EventArgs) Handles Label80.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKundenkreis.SelectedIndexChanged
|
|
|
|
If ADRESSE Is Nothing OrElse ADRESSE.AdressenNr <= 0 Then
|
|
|
|
Select Case cboKundenkreis._value
|
|
Case "1080000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501")
|
|
Case "2000000-2099990" : cbxFiBu.Checked = True : cboFirma.changeItem("21") : cboFiliale.changeItem("5601")
|
|
Case "2800000-2899999" : cbxFiBu.Checked = True : cboFirma.changeItem("26") : cboFiliale.changeItem("7003")
|
|
Case "3000000-3099990" : cbxFiBu.Checked = True : cboFirma.changeItem("24") : cboFiliale.changeItem("5701")
|
|
Case "4001000-4099999" : cbxFiBu.Checked = True : cboFirma.changeItem("26") : cboFiliale.changeItem("7002")
|
|
Case "728000-799999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
|
|
Case "30000-49999" : cbxFiBu.Checked = True : cboFirma.changeItem("11") : cboFiliale.changeItem("4803")
|
|
Case "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
|
|
Case "900000-999999" : cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
|
|
Case "800000-899999" : cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
|
|
Case "9900000-9999999" : cbxFiBu.Checked = False : cboFirma.changeItem("17") : cboFiliale.changeItem("5801")
|
|
|
|
'--------------------- VERAG360----------------------------
|
|
|
|
Case "400000-499999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
|
|
Case "200000-299999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
|
|
Case "160000-169999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
|
|
Case "303000-303999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
|
|
Case "130000-139999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
|
|
Case "150000-159999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
|
|
Case "140000-149999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
|
|
|
|
|
|
Case "100000-199999"
|
|
|
|
If isVerag360 Then
|
|
cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
|
|
Else
|
|
cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
|
|
End If
|
|
|
|
End Select
|
|
End If
|
|
|
|
If Not isVerag360 Then
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "VERAG"
|
|
If cboKundenkreis._value = "100000-199999" Then
|
|
cboFiliale.changeItem("4801")
|
|
ElseIf cboKundenkreis._value = "1000000-1099999" Then
|
|
cboFiliale.changeItem("5501")
|
|
Else
|
|
If cboFiliale._value = "4801" Then cboFiliale.changeItem("4803")
|
|
End If
|
|
|
|
End Select
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Dim selCheck = True
|
|
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
|
|
cbxFiBu.Enabled = cboFiliale._value <> ""
|
|
cbxFiBuLG.Enabled = cboFiliale._value <> ""
|
|
If selCheck Then
|
|
' cbxFiBu.Checked = (cboFirma._value <> "") --> unterschiedlich
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtKurzname_Leave(sender As Object, e As EventArgs) Handles txtKurzname.Leave
|
|
If txtKurzname.Text.Contains(";") Then
|
|
Dim s = txtKurzname.Text.Split(";")
|
|
If txtFirmenname1.Text = "" Then txtFirmenname1.Text = CutLen(s(0), txtFirmenname1.MaxLength)
|
|
If txtOrt.Text = "" Then txtOrt.Text = CutLen(s(1), txtOrt.MaxLength)
|
|
End If
|
|
End Sub
|
|
|
|
Function CutLen(s As String, len As Integer)
|
|
If s.Length > len Then
|
|
s = s.Substring(0, len)
|
|
End If
|
|
Return s
|
|
End Function
|
|
|
|
Private Sub cbxFiBu_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFiBu.CheckedChanged, cbxFiBuLG.CheckedChanged
|
|
If sender.checked Then
|
|
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
If KUNDE IsNot Nothing And KUNDE.hasEntry Then
|
|
FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(KUNDE.FilialenNr, False)
|
|
End If
|
|
Select Case FirmaTmp
|
|
Case "IMEX"
|
|
If cboFiliale._value = "5501" Then
|
|
selCheck = False
|
|
cboFirma._value = 20
|
|
selCheck = True
|
|
End If
|
|
Case "AMBAR"
|
|
If cboFiliale._value = "5701" Then
|
|
selCheck = False
|
|
cboFirma._value = 24
|
|
selCheck = True
|
|
End If
|
|
Case "FRONTOFFICE"
|
|
If cboFiliale._value = "5801" Then
|
|
selCheck = False
|
|
cboFirma._value = 17
|
|
selCheck = True
|
|
End If
|
|
End Select
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cbxInkassoUebergeben_CheckedChanged(sender As Object, e As EventArgs) Handles cbxInkassoUebergeben.CheckedChanged
|
|
txtInkassoUebergebenAm.Enabled = cbxInkassoUebergeben.Checked
|
|
If cbxInkassoUebergeben.Checked Then
|
|
txtInkassoUebergebenAm._value = Now.ToShortDateString
|
|
Else
|
|
txtInkassoUebergebenAm._value = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cbxBesonderheitenNEU_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBesonderheitenNEU.Click
|
|
initBesonderheitenNEU()
|
|
End Sub
|
|
|
|
Sub initBesonderheitenNEU()
|
|
|
|
lblHinweisKdNr.Visible = False
|
|
If cbxBesonderheitenNEU.Checked Then
|
|
|
|
UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size
|
|
If KUNDE.KundenNr > 0 Then
|
|
UsrCntlKundenBesonderheiten1.init(KUNDE.KundenNr)
|
|
UsrCntlKundenBesonderheiten1.Visible = True
|
|
UsrCntlKundenBesonderheiten1.Enabled = True
|
|
Else
|
|
UsrCntlKundenBesonderheiten1.Visible = True
|
|
UsrCntlKundenBesonderheiten1.Enabled = False
|
|
lblHinweisKdNr.Visible = True
|
|
End If
|
|
Else
|
|
UsrCntlKundenBesonderheiten1.Visible = False
|
|
End If
|
|
rtbAbf_Besonderheiten.Visible = Not UsrCntlKundenBesonderheiten1.Visible
|
|
|
|
End Sub
|
|
|
|
Private Sub cbxVerzolltBei_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVerzolltBei.CheckedChanged
|
|
cboFremdspedition.Enabled = cbxVerzolltBei.Checked
|
|
End Sub
|
|
|
|
Private Sub cbxVerzolltBeiExport_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVerzolltBeiExport.CheckedChanged
|
|
cboFremdspeditionExport.Enabled = cbxVerzolltBeiExport.Checked
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Dim WunschKdnr = InputBox("Bitte geben Sie die gewünschte Kundennummer ein:")
|
|
|
|
If WunschKdnr <> "" Then
|
|
If Not IsNumeric(WunschKdnr) Then MsgBox("Falsches Format!") : Exit Sub
|
|
If CInt(WunschKdnr) < 100000 Or CInt(WunschKdnr) > 9999999 Then MsgBox("Falsches Format!") : Exit Sub
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "IMEX"
|
|
If CInt(WunschKdnr) < 1000000 Or CInt(WunschKdnr) > 1999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
|
|
Case "UNISPED"
|
|
If CInt(WunschKdnr) < 2000000 Or CInt(WunschKdnr) > 2999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
|
|
Case "AMBAR"
|
|
If CInt(WunschKdnr) < 3000000 Or CInt(WunschKdnr) > 3999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
|
|
Case Else
|
|
If CInt(WunschKdnr) < 100000 Or CInt(WunschKdnr) > 999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
|
|
End Select
|
|
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
If SQL.DLookup("COUNT(*)", "Adressen", "AdressenNr='" & WunschKdnr & "'", "FMZOLL", 0) > 0 Then
|
|
MsgBox("Kundennummer existiert bereits!") : Exit Sub
|
|
End If
|
|
Me.WunschKdNr = CInt(WunschKdnr)
|
|
lblKundennr.Text = WunschKdnr
|
|
pnlNeukunde.Visible = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
|
|
If cboFiliale._value = 7002 Then
|
|
cboKundenkreis.changeItem("4001000-4099999")
|
|
End If
|
|
If cboFiliale._value = 7003 Then
|
|
cboKundenkreis.changeItem("2800000-2899999")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
If KUNDE Is Nothing Then Exit Sub
|
|
If CheckBox1.Checked Then btnFirmendatenFormularSpeichern.PerformClick() 'Speichern!
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SYSKA_UPDATE", "SDL") Then
|
|
Dim f As New frmKundenSyska_DatenÜbertragen(KUNDE.KundenNr)
|
|
f.ShowDialog(Me)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles btnUIDPruef.Click
|
|
If ADRESSE.AdressenNr <= 0 Then Exit Sub
|
|
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
|
|
btnUIDPruef.Enabled = 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
|
|
init(ADRESSE.AdressenNr)
|
|
sender.BackgroundImage = My.Resources.ok
|
|
btnUIDPruef.Enabled = True
|
|
Else
|
|
sender.BackgroundImage = My.Resources.del
|
|
btnUIDPruef.Enabled = True
|
|
End If
|
|
Else
|
|
sender.BackgroundImage = My.Resources.fragezeichen
|
|
btnUIDPruef.Enabled = True
|
|
End If
|
|
|
|
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
|
|
btnUIDPruef.Enabled = True
|
|
|
|
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
|
|
' init(ADRESSE.AdressenNr)
|
|
' 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 Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
|
|
genUIDEORIList(KUNDE.KundenNr, "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 btnDatevExport_Click(sender As Object, e As EventArgs) Handles btnDatevExport.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
|
If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, False, ,, False, "ftp") Then
|
|
MsgBox("Stammdaten wurden erfolgreich exportiert unf auf FTP geladen!")
|
|
Else
|
|
MsgBox("Es wurden keine Stammdaten exportiert!")
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub btnCreditsafe_Click(sender As Object, e As EventArgs) Handles btnCreditsafe.Click
|
|
|
|
Cursor = Cursors.WaitCursor
|
|
|
|
Dim f As New frmCreditSafeSearch
|
|
|
|
If f.ShowDialog = DialogResult.OK Then
|
|
|
|
txtKurzname.Text = f.UsrcntlCreditsafe1.comp.name & ";" & f.UsrcntlCreditsafe1.comp.city
|
|
txtFirmenname1.Text = f.UsrcntlCreditsafe1.comp.name
|
|
txtCreditsafe.Text = f.UsrcntlCreditsafe1.comp.credissafeId
|
|
txtStrasse.Text = f.UsrcntlCreditsafe1.comp.street
|
|
txtOrt.Text = f.UsrcntlCreditsafe1.comp.city
|
|
txtPlz.Text = f.UsrcntlCreditsafe1.comp.postCode
|
|
txtTel.Text = f.UsrcntlCreditsafe1.comp.phoneNo
|
|
|
|
If f.UsrcntlCreditsafe1.comp.country IsNot Nothing Then
|
|
cbxLandKz.changeItem(f.UsrcntlCreditsafe1.comp.country.Substring(0, 1))
|
|
End If
|
|
|
|
|
|
If f.UsrcntlCreditsafe1.comp.vatNo <> "" Then
|
|
cboUSt_UstIdNrLand.changeItem(f.UsrcntlCreditsafe1.comp.vatNo.Substring(0, 2))
|
|
|
|
If f.UsrcntlCreditsafe1.comp.country <> "" Then
|
|
txtUSt_UstIdNr.Text = f.UsrcntlCreditsafe1.comp.vatNo.Replace(f.UsrcntlCreditsafe1.comp.country, "").Replace(" ", "")
|
|
Else
|
|
txtUSt_UstIdNr.Text = f.UsrcntlCreditsafe1.comp.vatNo
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
End If
|
|
|
|
Cursor = Cursors.Default
|
|
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
|
Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Creditsafe"
|
|
Process.Start(webAddress)
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnKKhinzufuegen.Click
|
|
|
|
|
|
|
|
If ADRESSE.AdressenNr < 0 Then Exit Sub
|
|
|
|
Try
|
|
|
|
|
|
Dim kkNr As String
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
For i = 1 To 9999
|
|
|
|
kkNr = 990001
|
|
Dim adr As String = ""
|
|
|
|
If ADRESSE.AdressenNr.ToString.Length > 6 Then
|
|
adr = ADRESSE.AdressenNr.ToString.Substring(ADRESSE.AdressenNr.ToString.Length - 6, 6)
|
|
Else
|
|
adr = ADRESSE.AdressenNr
|
|
End If
|
|
|
|
kkNr &= CInt(adr).ToString.PadLeft(6, "0")
|
|
kkNr &= i.ToString.PadLeft(4, "0")
|
|
kkNr = kkNr & (fktMod10Prüfziffer(kkNr))
|
|
|
|
If SQL.DLookup("COUNT(*)", "Kreditkarten", "KartenNr='" & kkNr & "'", "FMZOLL", 0) > 0 Then
|
|
If i = 1 Then
|
|
If vbNo = MsgBox("Eine Karte mit der Kartennummer " & kkNr & " existiert bereits." & vbNewLine & "Soll eine Folgekarte erzeugt werden?", vbYesNo) Then
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
Else
|
|
'Anlage KK
|
|
Dim Kartenablaufmonat As Integer = 12
|
|
Dim Kartenablaufjahr As Integer = 99
|
|
Dim Kartensperre As Integer = 0
|
|
Dim strList = "AdressenNr, KartenNr,Kartenfreischaltungsdatum,Kartenablaufmonat,Kartenablaufjahr,Kartensperre,Zeitstempel,Sachbearbeiter"
|
|
Dim values = "" & ADRESSE.AdressenNr & "," & kkNr & ",'" & Today() & "'," & Kartenablaufmonat & "," & Kartenablaufjahr & "," & Kartensperre & ",'" & Now() & "','" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "'"
|
|
|
|
If SQL.doSQL("INSERT INTO [Kreditkarten] (" & strList & ") VALUES(" & values & ") ", "FMZOLL") Then
|
|
MsgBox("Kreditkarte " & kkNr & " angelegt.")
|
|
initdgvKreditkarten()
|
|
Exit Sub
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
Next
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
|
|
|
|
'' Kartennummer mit Prüfziffer erzeugen.
|
|
'For intZlr = 1 To 9999
|
|
' strCardNum = "990001" & Format(Right(Me!AdressenNr, 6), "000000") & Format(Right(intZlr, 4), "0000")
|
|
' strCardNum = strCardNum & (fktMod10(strCardNum))
|
|
' Set qry = dbs.QueryDefs("qry_GO_BOX_KreditkartenVerwalten")
|
|
' qry.Parameters("[Bitte AdressenNr eingeben]") = Me!AdressenNr
|
|
' qry.Parameters("[Bitte KartenNr eingeben]") = strCardNum
|
|
' Set rst = qry.OpenRecordset(dbOpenDynaset)
|
|
' If rst.EOF Then
|
|
' ' Kreditkarte in die Tabelle eintragen.
|
|
' rst.AddNew
|
|
' rst!AdressenNr = Me!AdressenNr
|
|
' rst!KartenNr = strCardNum
|
|
' rst!Kartenfreischaltungsdatum = Date
|
|
' rst!Kartenablaufmonat = 12
|
|
' rst!Kartenablaufjahr = 99
|
|
' rst!Kartensperre = 0
|
|
' rst!Zeitstempel = Now
|
|
' rst!Sachbearbeiter = UCase(CurrentUser())
|
|
' rst.Update
|
|
' rst.Close
|
|
' qry.Close
|
|
' Me!Kreditkarten.Requery
|
|
' Exit For
|
|
' End If
|
|
' rst.Close
|
|
' qry.Close
|
|
|
|
|
|
' If intZlr = 1 Then
|
|
' strPrompt = "Eine Kreditkarte mit der Kartennummer " & strCardNum & " existiert bereits." & vbCrLf &
|
|
' "Soll eine Folgekarte erzeugt werden?"
|
|
' strTitle = "Kreditkarte hinzufügen"
|
|
' If (MsgBox(strPrompt, vbYesNo + vbDefaultButton2 + vbInformation, strTitle)) = vbNo Then
|
|
' Exit For
|
|
' End If
|
|
' End If
|
|
'Next intZlr
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles bntGOBOXUmstellung.Click
|
|
If KUNDE Is Nothing Then Exit Sub
|
|
|
|
Try
|
|
Dim f As New frmGoMautBoxen(KUNDE, ADRESSE, KUNDE_ERW)
|
|
f.ShowDialog()
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
|
|
|
|
If ADRESSE.AdressenNr < 0 Then Exit Sub
|
|
Try
|
|
|
|
|
|
Dim frm As New Form
|
|
Dim dgv As New DataGridView()
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Dim dt As DataTable = SQL.loadDgvBySql("Select Kreditkarten.KartenNr FROM Kreditkarten WHERE Kreditkarten.AdressenNr=" & ADRESSE.AdressenNr, "FMZOLL")
|
|
|
|
If dt.Rows.Count < 1 Then
|
|
MsgBox("Keine Kreditkarte für diesen Kunden vorhanden.")
|
|
Exit Sub
|
|
End If
|
|
|
|
dgv.DataSource = dt
|
|
If dgv IsNot Nothing Then
|
|
frm.Size = New Size(500, 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
|
|
frm.ShowDialog()
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Shared Function fktMod10Prüfziffer(strNummer As String) As String
|
|
' Der Funktion wird im Feld strNummer der Wert ohne Prüfziffer übergeben.
|
|
' Die Funktion berechnet und liefert die Prüfziffer zurück.
|
|
|
|
Dim intIX As Integer
|
|
Dim intZSum As Integer
|
|
Dim intSum As Integer
|
|
Dim boo1 As Boolean
|
|
|
|
For intIX = Len(strNummer) To 1 Step -1
|
|
intZSum = IIf(boo1, Mid(strNummer, intIX, 1) * 1, Mid(strNummer, intIX, 1) * 2)
|
|
If intZSum < 10 Then
|
|
intSum = intSum + intZSum
|
|
Else
|
|
intSum = intSum + ((intZSum Mod 10) + ((intZSum - (intZSum Mod 10)) / 10))
|
|
End If
|
|
boo1 = Not boo1
|
|
Next intIX
|
|
|
|
fktMod10Prüfziffer = CStr((10 - (intSum Mod 10)) Mod 10)
|
|
|
|
End Function
|
|
|
|
|
|
Sub initdgvKreditkarten()
|
|
|
|
With dgvKreditkarten
|
|
.DataSource = sql.loadDgvBySql("SELECT [AdressenNr],KartenNr,Kartenfreischaltungsdatum as [Freisch.Dat.],CAST(Kartenablaufmonat AS varchar(2)) + '/' + CAST(Kartenablaufjahr AS varchar(2))as [Ablauf-Dat.],Kartensperre as Sperre,Kartensperrdatum as [Sperrdat.],NeueKartenNr,NeueKartenNrGemeldet as Gemeldet" &
|
|
" FROM [Kreditkarten] " &
|
|
" WHERE [AdressenNr]='" & KUNDE.KundenNr & "' ORDER BY Kartensperre, Kartenablaufjahr DESC,Kartenablaufmonat DESC", "FMZOLL")
|
|
.Columns(0).Visible = False
|
|
|
|
.Columns(1).MinimumWidth = 120
|
|
.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns(2).Width = 70
|
|
'.Columns(3).DefaultCellStyle.Format = "N2"
|
|
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns(3).Width = 70
|
|
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns(4).Width = 50
|
|
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns(5).Width = 70
|
|
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns(6).Width = 160
|
|
.Columns(7).Width = 70
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Private Sub cbxBlanko_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBlanko.CheckedChanged
|
|
If cbxBlanko.Checked Then
|
|
txtWechsel.Text = ""
|
|
txtWechsel.Enabled = False
|
|
Else
|
|
txtWechsel.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub cbxAlleBVanzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlleBVanzeigen.CheckedChanged
|
|
|
|
initdgvBankverbindungen(bankverbindungBearbeiten, cbxAlleBVanzeigen.Checked)
|
|
|
|
End Sub
|
|
|
|
Sub initdgvBankverbindungen(bearbeiten As Boolean, Optional archivierteDSAnzeigen As Boolean = False)
|
|
With dgvBankverbindungen
|
|
|
|
cBinding_dgvBankverbindungen.initBinding(" SELECT [bnk_id],[bnk_KundenNr],[bnk_iban],[bnk_bic],[bnk_anschrift],[bnk_daid],[bnk_hauptkonto],[bnk_archiv],cast([bnk_Datum] as Date) as bnk_Datum " &
|
|
" FROM tblBankverbindungen " &
|
|
" WHERE bnk_KundenNr = '" & KUNDE.KundenNr & "'" & IIf(Not archivierteDSAnzeigen, " AND ISNULL(bnk_archiv,0) = 0", ""), "tbl_IDS_Kunden")
|
|
|
|
AddHandler btnBankspeichern.Click,
|
|
Sub(send As Object, evnt As EventArgs)
|
|
If cBinding_dgvBankverbindungen.updateBinding() Then
|
|
send.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
AddHandler cBinding_dgvBankverbindungen.bindingdataTable.ColumnChanged,
|
|
Sub(send As Object, evnt As EventArgs)
|
|
btnBankspeichern.Enabled = bearbeiten
|
|
End Sub
|
|
|
|
AddHandler .UserDeletedRow,
|
|
Sub(send As Object, evnt As DataGridViewRowEventArgs)
|
|
btnBankspeichern.Enabled = bearbeiten
|
|
|
|
End Sub
|
|
|
|
.DataSource = cBinding_dgvBankverbindungen.bindingdataTable
|
|
|
|
|
|
.DataSource.Columns("bnk_KundenNr").DefaultValue = KUNDE.KundenNr
|
|
|
|
.Columns(0).Visible = False
|
|
.Columns(5).Visible = False
|
|
If archivierteDSAnzeigen Then
|
|
.Columns(7).Visible = True
|
|
.Columns(8).Visible = True
|
|
.Columns(7).HeaderText = "geschlossen"
|
|
.Columns(8).HeaderText = "eröff./geschl. am"
|
|
'.Columns(8).ReadOnly = False
|
|
'.Columns(9).ReadOnly = False
|
|
Else
|
|
.Columns(7).Visible = False
|
|
'.Columns(7).HeaderText = "eröffn."
|
|
.Columns(8).HeaderText = "eröff. am"
|
|
End If
|
|
|
|
.Columns(1).HeaderText = "Kd-Nr."
|
|
.Columns(2).HeaderText = "IBAN"
|
|
.Columns(3).HeaderText = "BIC"
|
|
.Columns(4).HeaderText = "Name"
|
|
.Columns(6).HeaderText = "HK"
|
|
.Columns(6).Width = 50
|
|
.Columns(7).Width = 75
|
|
|
|
.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns(2).ReadOnly = Not bearbeiten
|
|
.Columns(3).ReadOnly = Not bearbeiten
|
|
.Columns(4).ReadOnly = Not bearbeiten
|
|
.Columns(5).ReadOnly = Not bearbeiten
|
|
.Columns(6).ReadOnly = Not bearbeiten
|
|
|
|
If Not .Columns.Contains("clmnPDF") Then
|
|
Dim c As New DataGridViewImageColumn
|
|
c.Name = "clmnPDF" : c.HeaderText = "DOK"
|
|
c.DefaultCellStyle.NullValue = Nothing
|
|
c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
|
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
|
.Columns.Add(c)
|
|
End If
|
|
|
|
|
|
For Each r As DataGridViewRow In .Rows
|
|
If Not IsDBNull(r.Cells("bnk_daid").Value) AndAlso r.Cells("bnk_daid").Value > 0 Then
|
|
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
|
Else
|
|
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = Nothing
|
|
End If
|
|
Next
|
|
|
|
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Private Sub DokumentLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentLöschenToolStripMenuItem.Click
|
|
|
|
If dgvBankverbindungen.CurrentRow.Cells("bnk_daid").Value Is Nothing Or IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_daid").Value) Then
|
|
Exit Sub
|
|
End If
|
|
|
|
If vbYes = MsgBox("Möchten Sie das Dokument wirklich löschen?", vbYesNoCancel) Then
|
|
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvBankverbindungen.CurrentRow.Cells("bnk_daid").Value)
|
|
If DS.DELETE_COMPLETE() Then
|
|
sql.doSQLVarList("UPDATE [tblBankverbindungen] set bnk_daid = NULL WHERE bnk_id=" & dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value, "FMZOLL")
|
|
End If
|
|
|
|
initdgvBankverbindungen(bankverbindungBearbeiten, cbxAlleBVanzeigen.Checked)
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub ArchivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ArchivierenToolStripMenuItem.Click
|
|
|
|
If dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value Is Nothing OrElse (Not IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value) AndAlso dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value) AndAlso dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value IsNot Nothing Then
|
|
Exit Sub
|
|
End If
|
|
|
|
If vbYes = MsgBox("Möchten Sie diese Bankverbindung wirklich sperren?", vbYesNoCancel) Then
|
|
|
|
sql.doSQLVarList("UPDATE [tblBankverbindungen] set bnk_archiv=1, [bnk_Datum]=GETDATE() WHERE bnk_id=" & dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value, "FMZOLL")
|
|
|
|
initdgvBankverbindungen(bankverbindungBearbeiten, cbxAlleBVanzeigen.Checked)
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub dgvBankverbindungen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvBankverbindungen.CellMouseClick
|
|
|
|
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
|
|
|
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
|
If e.Button = MouseButtons.Right Then
|
|
|
|
|
|
|
|
If sender Is dgvBankverbindungen Then
|
|
If Not bankverbindungBearbeiten Then Exit Sub
|
|
If dgvBankverbindungen.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
|
dgvBankverbindungen.CurrentCell = dgvBankverbindungen.Rows(e.RowIndex).Cells(e.ColumnIndex)
|
|
|
|
If dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value Is Nothing OrElse (Not IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value) AndAlso dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value) AndAlso dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value IsNot Nothing Then
|
|
ArchivierenToolStripMenuItem.Visible = False
|
|
Else
|
|
ArchivierenToolStripMenuItem.Visible = True
|
|
End If
|
|
|
|
|
|
If dgvBankverbindungen.CurrentRow.Cells("bnk_daid").Value Is Nothing Or IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_daid").Value) Then
|
|
DokumentLöschenToolStripMenuItem.Visible = False
|
|
DokumentHinzufügenToolStripMenuItem.Visible = True
|
|
Else
|
|
DokumentLöschenToolStripMenuItem.Visible = True
|
|
DokumentHinzufügenToolStripMenuItem.Visible = False
|
|
End If
|
|
|
|
|
|
cnsBankverbindungen.Show(Cursor.Position)
|
|
|
|
End If
|
|
|
|
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub DokumentHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentHinzufügenToolStripMenuItem.Click
|
|
|
|
If dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value Is Nothing Or IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value) Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim Bankname = IIf(dgvBankverbindungen.CurrentRow.Cells("bnk_anschrift").Value IsNot Nothing, dgvBankverbindungen.CurrentRow.Cells("bnk_anschrift").Value, "BANK")
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_ANHÄNGE", "BANKVERBINDUNG", "", "", Bankname, KUNDE.KundenNr)
|
|
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
|
|
sql.doSQLVarList("UPDATE [tblBankverbindungen] set bnk_daid= " & DS.da_id & " WHERE bnk_id=" & dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value, "FMZOLL")
|
|
initdgvBankverbindungen(bankverbindungBearbeiten, cbxAlleBVanzeigen.Checked)
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub dgvBankverbindungen_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvBankverbindungen.CellContentDoubleClick
|
|
|
|
Try
|
|
If e.RowIndex >= 0 AndAlso e.ColumnIndex = 9 Then
|
|
Dim dsID = dgvBankverbindungen.Rows(e.RowIndex).Cells("bnk_daid").Value
|
|
|
|
If dsID > 0 Then
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsID)
|
|
DS.OPEN_SINGLE()
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
Me.Cursor = Cursors.Default
|
|
End Try
|
|
|
|
Me.Cursor = Cursors.Default
|
|
|
|
|
|
End Sub
|
|
|
|
End Class
|