programm VB List Code String Double Nicole

Welche Sprache ist das?

Von: , Frage gestellt am Mi, 5. Jan 2005

Hallo,

weiß jemand zu welcher Programmier- bzw. Scriptsprache folgender Code gehört?

"Dim ValidPOLineList, tmpPOLineList As String
Dim LineDesc As String
Dim lErr As Long, fTotal As Double
lErr = amSetProperty("ERRMSG.CAPTION", " ")
Dim fQty As Double, fQtyReceived As Double, fQtyToReceive As Double
Dim lPOrdLineId As Long
TmpPOLineList = {POLINELIST.VALUES}
Dim i as Long
Dim lOrdLinesCount As Long
Dim IncorrectQtyCode As Long
IncorrectQtyCode = 0
lOrdLinesCount = CountValues(TmpPOLineList, ",", "")
ValidPOLineList=""
fTotal = 0
For i=1 to lOrdLinesCount
LineDesc = ExtractValue(TmpPOLineList, "|")
fQty = AmConvertStringToDouble(UnEscapeSeparators(ExtractValue(TmpPOLineList, "|", "\")))
fQtyReceived = AmConvertStringToDouble(UnEscapeSeparators(ExtractValue(TmpPOLineList, "|", "\")))
fQtyToReceive = AmConvertStringToDouble(UnEscapeSeparators(ExtractValue(TmpPOLineList, "=", "\")))

lPOrdLineId = ExtractValue(TmpPOLineList, ",")
if fQtyToReceive > fQty - fQtyReceived OR fQtyToReceive < 0 Then
ValidPOLineList = ValidPOLineList & LineDesc & "|" & EscapeSeparators(AmConvertDoubleToString(fQty), ",", "\") & "|" & EscapeSeparators(AmConvertDoubleToString(fQtyReceived), ",", "\") & "|0=" & lPOrdLineId
IncorrectQtyCode = 1
Else
fTotal = fTotal + fQtyToReceive
ValidPOLineList = ValidPOLineList & LineDesc & "|" & EscapeSeparators(AmConvertDoubleToString(fQty), ",", "\") & "|" & EscapeSeparators(AmConvertDoubleToString(fQtyReceived), ",", "\") & "|" & EscapeSeparators(AmConvertDoubleToString(fQtyToReceive), ",", "\") & "=" & lPOrdLineId
End if
if i < lOrdLinesCount Then ValidPOLineList = ValidPOLineList & ","
Next

'Invalidated update for now
if IncorrectQtyCode = 1 Then
lErr = amSetProperty("ERRMSG.CAPTION", formatResString("Warnung: Eine fehlerhafte Menge wurde eingegeben. Die Standartwerte werden verwendet."))
lErr = amSetProperty("POLINELIST.VALUES", ValidPOLineList)
Else
lErr = amSetProperty("ERRMSG.CAPTION", " ")
End if"

Wir müssen uns nämlich (fürs Studium) demnächst in ein neues System (ERP) einarbeiten, und ich möchte etwas Vorarbeit leisten. D. h. zumindest verstehen welche Scriptsprachen das System verwendet. Diese Scripts müssen wir dann nämlich modifizieren. Wie erlerne ich am besten diese Sprache?

Hoffe auf eure Tipps :-)
Liebe Grüße

4 Antworten zu dieser Frage

1. Antwort von nach 12 Minuten 0 hilfreich

   Re: Welche Sprache ist das?

   Hallo, Nicole! weiß jemand zu welcher Programmier- bzw. Scriptsprache
   folgender Code gehört?
   "Dim ValidPOLineList, tmpPOLineList As String
   [...]
   Sieht nach VisualBasic oder einer Abart (VBA) aus. Schau mal ins VB-Forum. Dort gibt's gleich unten einen entsprechenden Link zu Büchern. Und wenn Du im Archiv schaust, wirst Du fündig, welche weiteren Quellen zum lernen es gibt.
   
   Gruß, Manfred
   

   • Antwort von nach 2 Stunden 0 hilfreich

     Re^2: Welche Sprache ist das?

     Vielen Dank!
     
     Ich hätte da noch eine kurze Nachfrage.
     Mir ist aufgefallen das die Variable lErr sehr oft in diesen Scripten verwendet wird. Für was wird diese üblicherweise verwendet? Ist es eine Temp-Variable? Oder benutzt man es für etwas bestimmtes?
     
     Danke noch einmal :-)
     Nico [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
     

     • Antwort von nach 4 Stunden 0 hilfreich

       Re^3: Welche Sprache ist das?

       Hallo, Nicole! Mir ist aufgefallen das die Variable lErr sehr oft in diesen
       Scripten verwendet wird. Für was wird diese üblicherweise
       verwendet? Ist es eine Temp-Variable? Oder benutzt man es für
       etwas bestimmtes?
       Das müsstest Du, um es genau rauszukriegen, den Entwickler fragen. Es handelt sich um eine Long-Variable. Anhand der von Dir geposteten Codes würde ich vermuten, sie nimmt einen Rückgabewert von diversen Funktionsaufrufen entgegen, der im Fehlerfall ungleich 0 (oder sonst wie anders definiert) ist.
       
       Gruß, Manfred
       

     • Antwort von nach einem Tag 0 hilfreich

       Re^3: Welche Sprache ist das?

       Ahoi. Oder benutzt man es für etwas bestimmtes?
       Nach dem Namen zu schließen, speichert diese Variable einen internen Fehlercode (IErr = Internal Error). Nach einem Basic-Dialekt schaut mir das Ganze auch aus; VB(A) ist es aber in meiner humpelnden Opossum-Situation eher nicht. Funktionsnamen wie CountValues() oder ExtractValues() sind für mich nicht erkennbar. Es besteht allerdings die - entfernte - Möglichkeit, dass der Autor diese Funktionen selbst geschroben und entsprechend benannt hat.
       
       Zum Aussehen des Codefragments äußere ich mich mal nicht mehr als notwendig : Null Kommentar; define-define; Parameter ohne erkennbare Reihenfolge definiert etc.pp. ... das ist alles schlechter bis abgrundtiefer Programmierstil. Wenn Du die hier verwendete oder eine andere Sprache lernen willst, gewöhn Dir bitte nicht diesen Krautundrübenstil an.
       
       Gruß kw
       

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!