edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:05:48 +02:00
parent e625acc609
commit f2f992547d
134 changed files with 72921 additions and 2011 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -100,11 +100,16 @@ Public Class usrcntlKundeBearbeitenFull
End Select
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
pnlNeukunde.Visible = True
End If
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 9900000-9999999: FRONT-OFFICE - Kunden", "9900000-9999999"))
End If
@@ -202,7 +207,7 @@ Public Class usrcntlKundeBearbeitenFull
cboAbf_Steuerschluessel._value = loadValue(KUNDE.Steuerschlüssel, "")
cboAbf_Waehrung._value = loadValue(KUNDE.Währungscode, "EUR")
cbxSammelrechnungBerichtLeistungsdetails.Checked = loadValue(KUNDE_ERW.kde_FakturierungSR_Details, False)
cboAbf_Sammelrechnung._value = loadValue(KUNDE.Sammelrechnung, "")
@@ -281,6 +286,7 @@ Public Class usrcntlKundeBearbeitenFull
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 -----
@@ -325,6 +331,7 @@ Public Class usrcntlKundeBearbeitenFull
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, "")
cbxSonst_CsvAsfinag.Checked = loadValue(ADRESSE.ASFINAGExportCSV, False)
cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False)
@@ -482,6 +489,7 @@ Public Class usrcntlKundeBearbeitenFull
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
@@ -549,6 +557,8 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
KUNDE_ERW.kde_API_Tradeshift = cbxAPITradeshift.Checked
KUNDE_ERW.kde_Fakturierung_Sprache = isLeerNothing(cboRechnungSprache._value)
' ----- Fremdsped -----
KUNDE_ERW.kde_KundeFremdspedition = cbxVerzolltBei.Checked
@@ -597,6 +607,7 @@ Public Class usrcntlKundeBearbeitenFull
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
@@ -608,7 +619,6 @@ Public Class usrcntlKundeBearbeitenFull
UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW)
Return True
@@ -676,7 +686,7 @@ Public Class usrcntlKundeBearbeitenFull
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 " &
" 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] " & _
@@ -686,6 +696,11 @@ Public Class usrcntlKundeBearbeitenFull
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.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)