AppStd/Skriptentwickung
8
0
Fork 0
Code Activity

Anlage des Repos

Browse Source
This commit is contained in:
KammM
2024-01-24 16:42:38 +01:00
commit 38d6a271c4
1785 changed files with 3051496 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
archive/COPY-WINLINE_ACCOUNT/Installations-Paket/COPY-WINLINE_ACCOUNT 1.0.0.0/COPY-WINLINE_ACCOUNT_History.txt Normal file
View File

@@ -0,0 +1,15 @@
-------------------------------------------------------------------------------
Version 1.0.0.0 - 28.07.2021 - Erste Version
NEW: -
FIX: -
CHG: -
REM: -
-------------------------------------legend------------------------------------
NEW: = Added a new functionality
FIX: = Fixed a Issue with existing functionality
CHG: = Changed a existing functionality
REM: = Removed a functionality
-------------------------------------------------------------------------------

1
archive/COPY-WINLINE_ACCOUNT/Installations-Paket/COPY-WINLINE_ACCOUNT 1.0.0.0/EXIM-Vorlagen/COPY-WINLINE_ACCOUNT Normal file
View File

File diff suppressed because one or more lines are too long

232
archive/COPY-WINLINE_ACCOUNT/Installations-Paket/COPY-WINLINE_ACCOUNT 1.0.0.0/Modules/PersonenkontenUebertragen/CallPersonenkontenUebertragen_WebService.vbm Normal file
View File

@@ -0,0 +1,232 @@
' CallPersonenkontenUebertragen_WebService
' ----------------------------------------------------------------------------
' Diese Subroutine löscht einen Datensatz anhand einer selktierten Gridzeile.
' Parameter 1 (Kennzeichen) = Kontotyp - 2 = Kunde; 3 = Lieferant
' Parameter 2 (AccountNr) = Das zu übertragende Konto
' Parameter 3 (Mandator) = Der Zielmandant
'
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author: 28.07.2021 / MK
' Version Date / Editor: 28.07.2021 / MK
' Version Number: 1.0.0.0
Function CallPersonenkontenUebertragen_WebService(Kennzeichen,AccountNr,Mandator)
IF (DEBUG_ON = True) Or (DebugMode = "Enabled") THEN
MSGBOX "Kennzeichen: " & Kennzeichen & vbCrLf &_
"AccountNr: " & AccountNr & vbCrLf &_
"Mandator: " & Mandator & vbCrLf &_
"",,DEBUG_TITLE& " - Call Webservice"
End if
'Template var
WebServiceTemplate = Empty
'-------------------------------------------------------------------------------------------
'Its a customer account
If (Kennzeichen = 2) Then
'Build raw XML
XML = Empty
XML = XML & "<?xml version=""1.0"" encoding=""UTF-8""?>"
XML = XML & "<MESOWebService TemplateType=""%WebServiceType%"" Template=""%WebServiceTemplate%"">"
XML = XML & "<%WebServiceTemplate%>"
'WinLine standard fields
XML = XML & "<Kontonummer>" & Kontonummer & "</Kontonummer>"
XML = XML & "<Inaktiv>" & Inaktiv & "</Inaktiv>"
XML = XML & "<Rechnungsempfaenger>" & Rechnungsempfaenger & "</Rechnungsempfaenger>"
XML = XML & "<RechnungsversandE_Mail_Adresse>" & RechnungsversandE_Mail_Adresse & "</RechnungsversandE_Mail_Adresse>"
XML = XML & "<Kontoname>" & Kontoname & "</Kontoname>"
XML = XML & "<Kontoname2>" & Kontoname2 & "</Kontoname2>"
XML = XML & "<Strasse>" & Strasse & "</Strasse>"
XML = XML & "<Postleitzahl>" & Postleitzahl & "</Postleitzahl>"
XML = XML & "<Ort>" & Ort & "</Ort>"
XML = XML & "<Staat>" & Staat & "</Staat>"
XML = XML & "<Land>" & Land & "</Land>"
XML = XML & "<Landesvorwahl>" & Landesvorwahl & "</Landesvorwahl>"
XML = XML & "<Ortsvorwahl>" & Ortsvorwahl & "</Ortsvorwahl>"
XML = XML & "<Telefon>" & Telefon & "</Telefon>"
XML = XML & "<LandesvorwahlFax>" & LandesvorwahlFax & "</LandesvorwahlFax>"
XML = XML & "<OrtsvorwahlFax>" & OrtsvorwahlFax & "</OrtsvorwahlFax>"
XML = XML & "<Fax>" & Fax & "</Fax>"
XML = XML & "<E_Mail_Adresse>" & E_Mail_Adresse & "</E_Mail_Adresse>"
XML = XML & "<WWW_Adresse>" & WWW_Adresse & "</WWW_Adresse>"
XML = XML & "<Vertreter>" & Vertreter & "</Vertreter>"
XML = XML & "<Versandart>" & Versandart & "</Versandart>"
XML = XML & "<GLN>" & GLN & "</GLN>"
XML = XML & "<Haendler>" & Haendler & "</Haendler>"
XML = XML & "<IDNr>" & IDNr & "</IDNr>"
XML = XML & "<Steuerleiste>" & Steuerleiste & "</Steuerleiste>"
XML = XML & "<Best_Price>" & Best_Price & "</Best_Price>"
'custom DB Fields
XML = XML & "<Haupthaus>" & Haupthaus & "</Haupthaus>"
'custom additional Fields
XML = XML & "<IFSteuernummer>" & IFSteuernummer & "</IFSteuernummer>"
XML = XML & "<IFNotizAltsystem>" & IFNotizAltsystem & "</IFNotizAltsystem>"
XML = XML & "<IFUmsatz2021Altsystem>" & IFUmsatz2021Altsystem & "</IFUmsatz2021Altsystem>"
XML = XML & "<IFUmsatz2020Altsystem>" & IFUmsatz2020Altsystem & "</IFUmsatz2020Altsystem>"
XML = XML & "<IFFiBuDebitorNummer>" & IFFiBuDebitorNummer & "</IFFiBuDebitorNummer>"
XML = XML & "<IFEntfernung>" & IFEntfernung & "</IFEntfernung>"
'custom properties
XML = XML & "<IFEinkaufsverband>" & IFEinkaufsverband & "</IFEinkaufsverband>"
XML = XML & "<IFVersandtag>" & IFVersandtag & "</IFVersandtag>"
XML = XML & "<IFLiefertag>" & IFLiefertag & "</IFLiefertag>"
XML = XML & "<IFZuordnung_Filiale>" & IFZuordnung_Filiale & "</IFZuordnung_Filiale>"
XML = XML & "<IFBranche>" & IFBranche & "</IFBranche>"
XML = XML & "<IFLiefersperre>" & IFLiefersperre & "</IFLiefersperre>"
XML = XML & "</%WebServiceTemplate%>"
XML = XML & "</MESOWebService>"
'Replace placeholder in XML
XML = Replace(XML,"%WebServiceType%",WebServiceType)
XML = Replace(XML,"%WebServiceTemplate%",Replace(WebServiceTemplate_Debtor," ",""))
WebServiceTemplate = WebServiceTemplate_Debtor
'-------------------------------------------------------------------------------------------
'Its a vendor account
ElseIf (Kennzeichen = 3) Then
'Build raw XML
XML = Empty
XML = XML & "<?xml version=""1.0"" encoding=""UTF-8""?>"
XML = XML & "<MESOWebService TemplateType=""%WebServiceType%"" Template=""%WebServiceTemplate%"">"
XML = XML & "<%WebServiceTemplate%>"
'WinLine standard fields
XML = XML & "<Kontonummer>" & Kontonummer & "</Kontonummer>"
XML = XML & "<Inaktiv>" & Inaktiv & "</Inaktiv>"
XML = XML & "<Kontoname>" & Kontoname & "</Kontoname>"
XML = XML & "<Kontoname2>" & Kontoname2 & "</Kontoname2>"
XML = XML & "<Strasse>" & Strasse & "</Strasse>"
XML = XML & "<Postleitzahl>" & Postleitzahl & "</Postleitzahl>"
XML = XML & "<Ort>" & Ort & "</Ort>"
XML = XML & "<Staat>" & Staat & "</Staat>"
XML = XML & "<Land>" & Land & "</Land>"
XML = XML & "<Landesvorwahl>" & Landesvorwahl & "</Landesvorwahl>"
XML = XML & "<Ortsvorwahl>" & Ortsvorwahl & "</Ortsvorwahl>"
XML = XML & "<Telefon>" & Telefon & "</Telefon>"
XML = XML & "<LandesvorwahlFax>" & LandesvorwahlFax & "</LandesvorwahlFax>"
XML = XML & "<OrtsvorwahlFax>" & OrtsvorwahlFax & "</OrtsvorwahlFax>"
XML = XML & "<Fax>" & Fax & "</Fax>"
XML = XML & "<E_Mail_Adresse>" & E_Mail_Adresse & "</E_Mail_Adresse>"
XML = XML & "<WWW_Adresse>" & WWW_Adresse & "</WWW_Adresse>"
XML = XML & "<Lieferbedingungen>" & Lieferbedingungen & "</Lieferbedingungen>"
XML = XML & "<Fremdkontonummer>" & Fremdkontonummer & "</Fremdkontonummer>"
'custom additional Fields
XML = XML & "<IFNummerAltsystem>" & IFNummerAltsystem & "</IFNummerAltsystem>"
'custom properties
XML = XML & "<IFLieferwerk>" & IFLieferwerk & "</IFLieferwerk>"
XML = XML & "<IFWerkszuordnung_Kuerzel>" & IFWerkszuordnung_Kuerzel & "</IFWerkszuordnung_Kuerzel>"
XML = XML & "</%WebServiceTemplate%>"
XML = XML & "</MESOWebService>"
'Replace placeholder in XML
XML = Replace(XML,"%WebServiceType%",WebServiceType)
XML = Replace(XML,"%WebServiceTemplate%",Replace(WebServiceTemplate_Creditor," ",""))
WebServiceTemplate = WebServiceTemplate_Creditor
End if
'-------------------------------------------------------------------------------------------'
'--------------------------------| prepare webservice call |--------------------------------'
'-------------------------------------------------------------------------------------------'
If (Kennzeichen > 0) and (WebServiceTemplate <> Empty) Then
'Build webservice URL
URL = "http://%SERVER%/ewlservice/import?User=%USER%&Password=%PASSWORD%&Company=%COMPANY%&Type=1&Vorlage=%VORLAGE%&Actioncode=%ACTIONCODE%&byref=0&Data=%DATA%"
URL = Replace(URL,"%SERVER%", WebServiceURL)
URL = Replace(URL,"%USER%", WebServiceBenutzerName)
URL = Replace(URL,"%PASSWORD%", WebServiceBenutzerPasswort)
URL = Replace(URL,"%COMPANY%", ComboBox1.Value)
URL = Replace(URL,"%VORLAGE%", WebServiceTemplate)
URL = Replace(URL,"%ACTIONCODE%",WebServiceType)
If (DEBUG_ON = True) Or (DebugMode = "Enabled") Then
msgbox URL,,DEBUG_TITLE&" - WebService URL"
msgbox XML,,DEBUG_TITLE&" - WebService XML"
End if
'Set XML content
URL = Replace(URL,"%DATA%", XML)
'-------------------------------------------------------------------------------------------
'Send request to WebServer
HTTPRequest.Open "POST", URL, False
HTTPRequest.Send
IF (HTTPRequest.Status = 200) Then
If InStr(HTTPRequest.ResponseText, "<?xml") = 1 Then
Doc.loadXML(HTTPRequest.ResponseText)
Set Nodes = Doc.SelectNodes("MESOWebServiceResult/ResultDetails")
Set OverallSuccess = Doc.SelectSingleNode("MESOWebServiceResult/OverallSuccess")
If OverallSuccess.Text = "true" Then
Dim IsSuccess : IsSuccess = True
For Each Node in Nodes
Set Success = Node.SelectSingleNode("Success")
If Success.Text <> "true" Then
IsSuccess = False
End If
Next
msgbox "Die Übertragung war erfolgreich!" & vbCrlf & vbCrlf & _
"Bitte prüfen Sie nun noch Felder," & vbCrlf & _
"welche von der Übertragung ausgeschloßen sind."& vbCrlf & vbCrlf & _
"Beispiele: " & vbCrlf & _
"ZahlungskonditionFIBU, ZahlungskonditionFAKT," & vbCrlf & _
"Belegart, Lieferbedingungen, BKZ, ..." & vbCrlf & _
"",vbInformation,DEFAULT_TITLE
Else
msgbox "Fehler bei der Übertragung!" & vbCrLf &_
HTTPRequest.ResponseText & vbCrLf &_
"",,DEFAULT_TITLE &" - WebServices"
End If
Else
msgbox "Fehler bei der Übertragung!" & vbCrLf &_
HTTPRequest.ResponseText & vbCrLf &_
"",,DEFAULT_TITLE &" - WebServices"
End If
Else
msgbox "Fehler bei der Übertragung!" & vbCrLf &_
HTTPRequest.ResponseText & vbCrLf &_
"",,DEFAULT_TITLE &" - WebServices"
End if
Else
msgbox "Fehler bei der Übertragung!" & vbCrLf &_
"Der Aufruf ist unvollständig!" & vbCrLf &_
"",,DEFAULT_TITLE &" - WebServices"
End if
End Function

22
archive/COPY-WINLINE_ACCOUNT/Installations-Paket/COPY-WINLINE_ACCOUNT 1.0.0.0/Modules/PersonenkontenUebertragen/DisablePersonenkontenUebertragen_Buttons.vbm Normal file
View File

@@ -0,0 +1,22 @@
' DisablePersonenkontenUebertragen_Buttons
' ----------------------------------------------------------------------------
' Diese Subroutine deaktiviert den Übertragungsknopf.
'
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author: 24.07.2021 / MD
' Version Date / Editor: 24.07.2021 / MD
' Version Number: 1.0.0.0
Sub DisablePersonenkontenUebertragen_Buttons()
If (ComboBox1.Value = Empty) Then
CommandButton1.Enabled = 0
End If
End Sub

22
archive/COPY-WINLINE_ACCOUNT/Installations-Paket/COPY-WINLINE_ACCOUNT 1.0.0.0/Modules/PersonenkontenUebertragen/EnablePersonenkontenUebertragen_Buttons.vbm Normal file
View File

@@ -0,0 +1,22 @@
' EnablePersonenkontenUebertragen_Buttons
' ----------------------------------------------------------------------------
' Diese Subroutine aktiviert den Übertragungsknopf.
'
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author: 24.07.2021 / MD
' Version Date / Editor: 24.07.2021 / MD
' Version Number: 1.0.0.0
Sub EnablePersonenkontenUebertragen_Buttons()
If (ComboBox1.Value <> Empty) Then
CommandButton1.Enabled = 1
End If
End Sub

34
archive/COPY-WINLINE_ACCOUNT/Installations-Paket/COPY-WINLINE_ACCOUNT 1.0.0.0/Modules/PersonenkontenUebertragen/GetPersonenkontenUebertragen_AccountNr.vbm Normal file
View File

@@ -0,0 +1,34 @@
' GetPersonenkontenUebertragen_AccountNr
' ----------------------------------------------------------------------------
' Diese Subroutine ließt die im Personenkonto Fenster ausgewählte Personenkonto Nummer aus.
'
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author: 24.07.2021 / MD
' Version Date / Editor: 24.07.2021 / MD
' Version Number: 1.0.0.0
Sub GetPersonenkontenUebertragen_AccountNr()
MacroCommands.Mwindow Personenkonto_WindowID, False
MacroCommands.MActivateWindow Personenkonto_WindowID
TextBox1.Value = MacroCommands.MGetFieldValue(Personenkonto_WindowID, Personenkonto_AccountNrID)
'If read value is geater null,
'disable box to avoid modifications
If (TextBox1.Value <> Empty) Then
TextBox1.Enabled = 0
ComboBox1.Enabled = 1
Else
Msgbox "Das Personenkonto konnte nicht ausgelesen werden," & vbCrlf & _
"Bitte geben Sie die Kontonummer manuell ein!" & vbCrlf & _
"",vbInformation, DEFAULT_TITLE
End If
End Sub

271
archive/COPY-WINLINE_ACCOUNT/Installations-Paket/COPY-WINLINE_ACCOUNT 1.0.0.0/Modules/PersonenkontenUebertragen/GetPersonenkontenUebertragen_Record.vbm Normal file
View File

@@ -0,0 +1,271 @@
' GetPersonenkontenUebertragen_Record
' ----------------------------------------------------------------------------
' Diese Subroutine ermittelt die Daten eines Persoenenkontos
'
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author: 28.07.2021 / MK
' Version Date / Editor: 28.07.2021 / MK
' Version Number: 1.0.0.0
Function GetPersonenkontenUebertragen_Record(AccountNr)
SQLQuery_AccountInfo = SQLQuery_AccountInfo_Template
SQLQuery_AccountInfo = Replace(SQLQuery_AccountInfo,"%AccountNr%",TextBox1.Value)
Set SQLResult_AccountInfo = Conn.Select(SQLQuery_AccountInfo)
If (SQLResult_AccountInfo.RowCount) > 0 Then
'WinLine standard fields
Kontonummer = SQLResult_AccountInfo.value("c002")
Kennzeichen = SQLResult_AccountInfo.value("c004") '1= ???; 2 = Kunde; 3 = Lieferant; 4 = Interessent
Inaktiv = SQLResult_AccountInfo.value("c105")
Rechnungsempfaenger = SQLResult_AccountInfo.value("c130")
RechnungsversandE_Mail_Adresse = SQLResult_AccountInfo.value("c187")
Kontoname = SQLResult_AccountInfo.value("c003")
Kontoname2 = SQLResult_AccountInfo.value("c084")
Strasse = SQLResult_AccountInfo.value("c050")
Postleitzahl = SQLResult_AccountInfo.value("c051")
Ort = SQLResult_AccountInfo.value("c052")
Staat = SQLResult_AccountInfo.value("c097")
Land = SQLResult_AccountInfo.value("c123")
Landesvorwahl = SQLResult_AccountInfo.value("c140")
Ortsvorwahl = SQLResult_AccountInfo.value("c141")
Telefon = SQLResult_AccountInfo.value("c019")
LandesvorwahlFax = SQLResult_AccountInfo.value("c251")
OrtsvorwahlFax = SQLResult_AccountInfo.value("c252")
Fax = SQLResult_AccountInfo.value("c020")
E_Mail_Adresse = SQLResult_AccountInfo.value("c116")
WWW_Adresse = SQLResult_AccountInfo.value("c128")
Vertreter = SQLResult_AccountInfo.value("c065")
Versandart = SQLResult_AccountInfo.value("c121")
GLN = SQLResult_AccountInfo.value("c260")
Haendler = SQLResult_AccountInfo.value("c169")
IDNr = SQLResult_AccountInfo.value("c022")
Steuerleiste = SQLResult_AccountInfo.value("c067")
Best_Price = SQLResult_AccountInfo.value("c184")
Lieferbedingungen = SQLResult_AccountInfo.value("c134")
Fremdkontonummer = SQLResult_AccountInfo.value("c188")
BKZ1 = SQLResult_AccountInfo.value("c007")
BKZ1Wechselkonto = SQLResult_AccountInfo.value("c008")
ZahlungskonditionFIBU = SQLResult_AccountInfo.value("c100")
ZahlungskonditionFAKT = SQLResult_AccountInfo.value("c107")
Belegart = SQLResult_AccountInfo.value("c077")
Preisliste = SQLResult_AccountInfo.value("c066")
'-----------------------------------------------------------------------------------------------'
'custom properties, first reset them
IFLieferwerk = Empty
IFEinkaufsverband = Empty
IFVersandtag = Empty
IFLiefertag = Empty
IFZuordnung_Filiale = Empty
IFWerkszuordnung_Kuerzel = Empty
IFBranche = Empty
IFLiefersperre = Empty
For Each PropertyID In PropertyIDs
SQLQuery_PropertyRootParent = SQLQuery_PropertyRootParent_Template
SQLQuery_PropertyRootParent = Replace(SQLQuery_PropertyRootParent,"%PropertyID%",PropertyID)
Set SQLResult_PropertyRoot = Conn.Select(SQLQuery_PropertyRootParent)
If (SQLResult_PropertyRoot.RowCount) > 0 Then
'Get internal ID IFEinkaufsverband -> 1014 -> 1008
PropertyNumberRange = SQLResult_PropertyRoot.value("c000")
IF (PropertyNumberRange > 0) Then
SQLQuery_PropertyMapping = SQLQuery_PropertyMapping_Template
SQLQuery_PropertyMapping = Replace(SQLQuery_PropertyMapping,"%AccountNr%",AccountNr)
SQLQuery_PropertyMapping = Replace(SQLQuery_PropertyMapping,"%PropertyNumberRange%",PropertyNumberRange)
SQLQuery_PropertyMapping = Replace(SQLQuery_PropertyMapping,vbCr,"")
SQLQuery_PropertyMapping = Replace(SQLQuery_PropertyMapping,vbLf,"")
Set SQLResult_PropertyMapping = Conn.Select(SQLQuery_PropertyMapping)
IF (DEBUG_ON = True) Or (DebugMode = "Enabled") THEN
MSGBOX SQLQuery_PropertyMapping,,DEBUG_TITLE&" - SQL"
MSGBOX SQLResult_PropertyMapping.RowCount,,DEBUG_TITLE&" - RowCount"
End if
If (SQLResult_PropertyMapping.RowCount) > 0 Then
Do
PropertyID_DB = SQLResult_PropertyMapping.value("c999")
PropertyNumberRange_DB = SQLResult_PropertyMapping.value("c000")
PropertyValueID = SQLResult_PropertyMapping.value("c001")
PropertyValue = SQLResult_PropertyMapping.value("c010")
IF (DEBUG_ON = True) Or (DebugMode = "Enabled") THEN
MSGBOX "PropertyID from Loop: " & PropertyID & vbCrLf &_
"PropertyID from DB: " & PropertyID_DB & vbCrLf & vbCrLf &_
"PropertyNumberRange from Loop: " & PropertyNumberRange & vbCrLf &_
"PropertyNumberRange from DB: " & PropertyNumberRange_DB & vbCrLf & vbCrLf &_
"PropertyValueID: " & PropertyValueID & vbCrLf &_
"PropertyValue: " & PropertyValue & vbCrLf &_
"",,DEBUG_TITLE&" - Eigenschaften"
End if
'-----------------------------------------------------------------------------------------------'
'---------------------------| Code block to save properties in vars |---------------------------'
'-----------------------------------------------------------------------------------------------'
IF (PropertyID_IFLieferwerk = PropertyID_DB) Then
IF (IFLieferwerk = "null") or (IFLieferwerk = Empty) or (IFLieferwerk = "") or (IFLieferwerk = " ") or IsNull(IFLieferwerk) then
IFLieferwerk = 0
Else
IFLieferwerk = 1
End if
ElseIf (PropertyID_IFEinkaufsverband = PropertyID_DB) Then
IF (IFEinkaufsverband <> Empty and IFEinkaufsverband <> PropertyValue) Then
IFEinkaufsverband = IFEinkaufsverband & ";" & PropertyValue
Else
IFEinkaufsverband = IFEinkaufsverband & PropertyValue
End if
ElseIf (PropertyID_IFVersandtag = PropertyID_DB) Then
IF (IFVersandtag <> Empty and IFVersandtag <> PropertyValue) Then
IFVersandtag = IFVersandtag & ";" & PropertyValue
Else
IFVersandtag = IFVersandtag & PropertyValue
End if
ElseIf (PropertyID_IFLiefertag = PropertyID_DB) Then
IF (IFLiefertag <> Empty and IFLiefertag <> PropertyValue) Then
IFLiefertag = IFLiefertag & ";" & PropertyValue
Else
IFLiefertag = IFLiefertag & PropertyValue
End if
ElseIf (PropertyID_IFZuordnung_Filiale = PropertyID_DB) Then
IF (IFZuordnung_Filiale <> Empty and IFZuordnung_Filiale <> PropertyValue) Then
IFZuordnung_Filiale = IFZuordnung_Filiale & ";" & PropertyValue
Else
IFZuordnung_Filiale = IFZuordnung_Filiale & PropertyValue
End if
ElseIf (PropertyID_IFWerkszuordnung_Kuerzel = PropertyID_DB) Then
IF (IFWerkszuordnung_Kuerzel <> Empty and IFWerkszuordnung_Kuerzel <> PropertyValue) Then
IFWerkszuordnung_Kuerzel = IFWerkszuordnung_Kuerzel & ";" & PropertyValue
Else
IFWerkszuordnung_Kuerzel = IFWerkszuordnung_Kuerzel & PropertyValue
End if
ElseIf (PropertyID_IFBranche = PropertyID_DB) Then
IF (IFBranche <> Empty and IFBranche <> PropertyValue) Then
IFBranche = IFBranche & ";" & PropertyValue
Else
IFBranche = IFBranche & PropertyValue
End if
ElseIf (PropertyID_IFLiefersperre = PropertyID_DB) Then
IF (IFLiefersperre = "null") or (IFLiefersperre = Empty) or (IFLiefersperre = "") or (IFLiefersperre = " ") or IsNull(IFLiefersperre) then
IFLiefersperre = 0
Else
IFLiefersperre = 1
End if
End if
'----------------------------------------------------------------------------------------------
'Trick loop, because rowcount wont work
If (SQLResult_PropertyMapping.NextRecord = False) Then
Exit Do
End If
Loop
End If
End if
End if
Next
'-----------------------------------------------------------------------------------------------'
IF (Kennzeichen = 1) Then
msgbox "Aktuell nicht implementiert! Bitte manuell anlegen!"
ElseIF (Kennzeichen = 2) Then
'custom DB Fields
Haupthaus = SQLResult_AccountInfo.value("u100")
'custom additional Fields
IFSteuernummer = SQLResult_AccountInfo.value("c203")
IFNotizAltsystem = SQLResult_AccountInfo.value("c208")
IFUmsatz2021Altsystem = SQLResult_AccountInfo.value("c209")
IFUmsatz2020Altsystem = SQLResult_AccountInfo.value("c210")
IFFiBuDebitorNummer = SQLResult_AccountInfo.value("c211")
IFEntfernung = SQLResult_AccountInfo.value("c212")
ElseIF (Kennzeichen = 3) Then
'custom additional Fields
IFNummerAltsystem = SQLResult_AccountInfo.value("c207")
ElseIF (Kennzeichen = 4) Then
msgbox "Aktuell nicht implementiert! Bitte manuell anlegen!"
End if
'-----------------------------------------------------------------------------------------------'
'---------------------------| Final adjust vars for webservice call |---------------------------'
'-----------------------------------------------------------------------------------------------'
If (Inaktiv = "null") or (Inaktiv = Empty) or (Inaktiv = "") or (Inaktiv = " ") or IsNull(Inaktiv) then
Inaktiv = 0
Else
Inaktiv = cdate(Inaktiv)
End if
If (IFLieferwerk = "null") or (IFLieferwerk = Empty) or (IFLieferwerk = "") or (IFLieferwerk = " ") or IsNull(IFLieferwerk) or (IFLieferwerk = 0) or (IFLieferwerk = false) then
IFLieferwerk = 0
Else
IFLieferwerk = 1
End if
If (IFLiefersperre = "null") or (IFLiefersperre = Empty) or (IFLiefersperre = "") or (IFLiefersperre = " ") or IsNull(IFLiefersperre) or (IFLiefersperre = 0) or (IFLiefersperre = false) then
IFLiefersperre = 0
Else
IFLiefersperre = 1
End if
If (Lieferbedingungen = "null") or (Lieferbedingungen = Empty) or (Lieferbedingungen = "") or (Lieferbedingungen = " ") or IsNull(Lieferbedingungen) or (Lieferbedingungen = 0) or (Lieferbedingungen = false) then
Lieferbedingungen = 0
Else
Lieferbedingungen = 1
End if
'-----------------------------------------------------------------------------------------------'
GetPersonenkontenUebertragen_Record = Kennzeichen
Else
GetPersonenkontenUebertragen_Record = 0
End if
End Function

39
archive/COPY-WINLINE_ACCOUNT/Installations-Paket/COPY-WINLINE_ACCOUNT 1.0.0.0/Modules/PersonenkontenUebertragen/SetPersonenkontenUebertragen_Mandators.vbm Normal file
View File

@@ -0,0 +1,39 @@
' SetPersonenkontenUebertragen_Mandators
' ----------------------------------------------------------------------------
' Diese Funktion liefert Werte, um Auswahlbox zu füllen.
'
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author: 24.07.2021 / MK
' Version Date / Editor: 24.07.2021 / MK
' Version Number: 1.0.0.0
Sub SetPersonenkontenUebertragen_Mandators()
Set SQLResult_Mandators = Conn.Select(SQLQuery_Mandators)
If (SQLResult_Mandators.RowCount) > 0 Then
'First clear box to avoid old values
ComboBox1.Enabled = 1
ComboBox1.Clear
Do
'Loop for every combobox value
If (SQLResult_Mandators.NextRecord = True) Then
ComboBox1.AddItem SQLResult_Mandators.value("c000")
Else
Exit Do
End If
Loop
Else
ComboBox1.Enabled = 0
End If
End Sub

31
archive/COPY-WINLINE_ACCOUNT/Installations-Paket/COPY-WINLINE_ACCOUNT 1.0.0.0/Modules/PersonenkontenUebertragen/SetupPersonenkontenUebertragen_Window.vbm Normal file
View File

@@ -0,0 +1,31 @@
' SetupPersonenkontenUebertragen_Window
' ----------------------------------------------------------------------------
' Diese Subroutine stellt das
'
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author: 24.07.2021 / MD
' Version Date / Editor: 24.07.2021 / MD
' Version Number: 1.0.0.0
Sub SetupPersonenkontenUebertragen_Window()
Label1.Enabled = 1
Label1.Caption = "1. Ausgewähltes Personenkonto"
Label1.AutoSize = 1
Label2.Enabled = 1
Label2.Caption = "2. Zielmandant wählen"
Label2.AutoSize = 1
ComboBox1.Enabled = 0
CommandButton1.Enabled = 0
CommandButton1.Caption = "3. Personenekonto übertragen"
CommandButton1.AutoSize = 1
End Sub