SDL/SDL/kunden/frmKundenSyska_DatenÜbertragen.vb

Public Class frmKundenSyska_DatenÜbertragen

    Dim Sql As New VERAG_PROG_ALLGEMEIN.SQL
    Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen
    Dim KD As VERAG_PROG_ALLGEMEIN.cKunde

    Dim KundenNr As Integer = -1

    Sub New(KundenNr)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.KundenNr = KundenNr
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Image = Nothing
        If cboFirma._value = "" Then MsgBox("Keine Fimra!") : Exit Sub

        Dim fehler = False
        If vbYes = MsgBox("Möchten Sie den Eintrag in der SYSKA-Datenbank überschreiben?", vbYesNoCancel) Then

            Dim FIRMA_ID = cboFirma._value
            Dim SystembenutzerText = "AVISO_User"

            If cbxUID.Checked Then
                If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto  SET c_ustidnr='" & SqlSafe(lblAVISO_UID.Text) & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate() where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True
            End If
            If cbxEMail.Checked Then
                If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto  SET c_email='" & SqlSafe(lblAVISO_EMail.Text) & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate()  where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True
            End If
            If cbxFirma.Checked Then
                If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto  SET c_name='" & SqlSafe(lblAVISO_Name1.Text) & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate()    where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True
                If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto  SET c_name2='" & SqlSafe(lblAVISO_Name2.Text) & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate()   where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True
            End If
            If cbxAdresse.Checked Then
                If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto  SET c_strasse='" & SqlSafe(lblAVISO_Strasse.Text) & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate()  where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True
                If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto  SET c_plz='" & SqlSafe(lblAVISO_PLZ.Text) & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate()  where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True
                If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto  SET c_ort='" & SqlSafe(lblAVISO_Ort.Text) & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate()  where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True
                If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto  SET c_landid='" & SqlSafe(lblAVISO_Land.Text) & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate()  where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True
                End If
        End If

        If fehler Then
            Button1.Image = My.Resources.del
        Else
            Button1.Image = My.Resources.ok
        End If
    End Sub

    Private Sub frmKundenSyska_DatenÜbertragen_Load(sender As Object, e As EventArgs) Handles Me.Load
        AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr)
        KD = New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)

        If AD Is Nothing Or KD Is Nothing Then
            Me.Close()
            Exit Sub
        End If

        cboFirma.fillWithSQL("SELECT  [Firma_ID],[Firma_Bez] FROM [tblFirma]  ORDER BY Firma_ID  ", True, "FMZOLL", False)
        If KD.FiBuSchnittstelleNr IsNot Nothing AndAlso KD.FiBuSchnittstelleNr > 0 Then
            cboFirma.changeItem(KD.FiBuSchnittstelleNr)
        Else
            cboFirma.changeItem("1")
        End If

    End Sub
    Function SqlSafe(value As String) As String
        If value Is Nothing Then Return ""
        Return value.Replace("'", "''").Replace(";", "").Replace("--", "")
    End Function
    Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
        Button1.Image = Nothing
        If cboFirma._value = "" Then Exit Sub
        Dim FIRMA_ID = cboFirma._value

        setSperre(False)

        lblSYSKA_UID.Text = ""
        lblSYSKA_EMail.Text = ""
        lblSYSKA_Name1.Text = ""
        lblSYSKA_Name2.Text = ""
        lblSYSKA_Strasse.Text = ""
        lblSYSKA_PLZ.Text = ""
        lblSYSKA_Ort.Text = ""
        lblSYSKA_Land.Text = ""

        ' Dim dt = Sql.loadDgvBySql("Select isnull(UstID,'') as UstID, isnull(EMailadresse,'') as EMailadresse , isnull(Firmenname,'') as Firmenname, isnull(Zusatz,'') as Zusatz, isnull(Strasse,'') as Strasse, isnull(PLZ,'') as PLZ, isnull(Land,'') as Land, isnull(Ort,'') as Ort FROM [Hilfsdatenbank].[dbo].[Kunden] where Kontonummer='" & KundenNr & "'", "FIBU")
            Dim dt = Sql.loadDgvBySql(" select isnull(c_ustidnr,'')c_ustidnr,isnull(c_name,'')c_name,isnull(c_name2,'')c_name2,isnull(c_strasse,'')c_strasse, isnull(c_plz,'')c_plz,isnull(c_ort,'')c_ort,isnull(c_landid,'')c_landid,isnull(c_email,'')c_email FROM [FIBU2].[dbo].[fibu_konto] where i_konto ='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU")
        If dt Is Nothing OrElse dt.Rows.Count = 0 Then
            'msgBox("Kein SYSKA-Eintrag gefunden!")
            setSperre(True)
            Exit Sub
        End If

        lblAVISO_UID.Text = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
        'lblAVISO_EMail.Text = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
        If lblAVISO_UID.Text = "" Then cbxUID.Checked = False
        If lblAVISO_EMail.Text = "" Then cbxEMail.Checked = False

        lblAVISO_Name1.Text = If(AD.Name_1, "")
        lblAVISO_Name2.Text = If(AD.Name_2, "")
        lblAVISO_Strasse.Text = If(AD.Straße, "")
        lblAVISO_PLZ.Text = If(AD.PLZ, "")
        lblAVISO_Ort.Text = If(AD.Ort, "")
        lblAVISO_Land.Text = cProgramFunctions.getISO2Land(If(AD.LandKz, ""))

        lblSYSKA_UID.Text = dt.Rows(0)("c_ustidnr")
        lblSYSKA_EMail.Text = dt.Rows(0)("c_email")
        lblSYSKA_Name1.Text = dt.Rows(0)("c_name")
        lblSYSKA_Name2.Text = dt.Rows(0)("c_name2")
        lblSYSKA_Strasse.Text = dt.Rows(0)("c_strasse")
        lblSYSKA_PLZ.Text = dt.Rows(0)("c_plz")
        lblSYSKA_Ort.Text = dt.Rows(0)("c_ort")
        lblSYSKA_Land.Text = dt.Rows(0)("c_landid")

    End Sub

    Sub setSperre(sperre)
        Button1.Enabled = Not sperre
        lblErrSyska.Visible = sperre


    End Sub

End Class