Frachtkostenberechnung

SDL/SDL.vbproj

@@ -90,7 +90,7 @@
     <SignAssembly>false</SignAssembly>
   </PropertyGroup>
   <PropertyGroup>
-    <AssemblyOriginatorKeyFile>SDL_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyFile>Test.pfx</AssemblyOriginatorKeyFile>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />
@@ -647,6 +647,12 @@
     <Compile Include="kassenbuch\frmPOSTerminal.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="kunden\Berichte\rptFrachtkostenberechnung.Designer.vb">
+      <DependentUpon>rptFrachtkostenberechnung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kunden\Berichte\rptFrachtkostenberechnung.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="kunden\Berichte\rptFiskalkunde.Designer.vb">
       <DependentUpon>rptFiskalkunde.vb</DependentUpon>
     </Compile>
@@ -3018,6 +3024,9 @@
     <EmbeddedResource Include="kassenbuch\frmPOSTerminal.resx">
       <DependentUpon>frmPOSTerminal.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kunden\Berichte\rptFrachtkostenberechnung.resx">
+      <DependentUpon>rptFrachtkostenberechnung.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\Berichte\rptFiskalkunde.resx">
       <DependentUpon>rptFiskalkunde.vb</DependentUpon>
     </EmbeddedResource>

SDL/kunden/Berichte/rptFrachtkostenberechnung.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>

SDL/kunden/Berichte/rptFrachtkostenberechnung.vb

@@ -0,0 +1,83 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+Imports sun.misc
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class rptFrachtkostenberechnung
+
+    Dim anteil, gesamtgewicht, warenbez, preis, warengewicht_netto, gesamtpreis, warenanteilsumme, frachtkostenanteil, verzollungskoten, anteilZoll, warengewicht_brutto, BGLZoll, DistanzGes, EU, nichtEU, zollInProzent, BGLEUST, gesamtfracht, gesamtfrachtanteil As String
+    Dim firma As String
+
+    Sub New(Warenbez As String, preis As String, warengewicht_netto As String, gesamtpreis As String, frachtkostenanteil As String, verzollungskosten As String, anteilZoll As String, zollInProzent As String, BGLZoll As String, BGLEUST As String, EU As String, nichtEU As String, DistanzGes As String, Gesamtgewicht As String, warengewicht_brutto As String, anteil As String, warenanteilsumme As String, gesamtfracht As String, gesamtfrachtanteil As String, Optional firna As String = "VERAG")
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+
+        Me.warenbez = Warenbez
+        Me.preis = preis
+        Me.warengewicht_netto = warengewicht_netto
+        Me.gesamtpreis = gesamtpreis
+        Me.frachtkostenanteil = frachtkostenanteil
+        Me.verzollungskoten = verzollungskosten
+        Me.anteilZoll = anteilZoll
+        Me.zollInProzent = zollInProzent
+        Me.BGLZoll = BGLZoll
+        Me.BGLEUST = BGLEUST
+
+        Me.EU = EU
+        Me.nichtEU = nichtEU
+        Me.DistanzGes = DistanzGes
+
+        Me.gesamtgewicht = Gesamtgewicht
+        Me.warengewicht_brutto = warengewicht_brutto
+        Me.anteil = anteil
+        Me.warenanteilsumme = warenanteilsumme
+        Me.gesamtfracht = gesamtfracht
+        Me.gesamtfrachtanteil = gesamtfrachtanteil
+
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub rptKundeUebersicht_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+
+        'lblUeberschrift.Text = "Checkliste f<>r " & FK.FK_Art & "-Fiskal Kunden"
+
+        txtWarenbezeichnung.Text = warenbez
+        txtWarenbezeichnung2.Text = warenbez
+        If IsNumeric(preis) Then txtPreis.Text = CDbl(preis)
+        If IsNumeric(warengewicht_netto) Then txtGewicht.Text = CDbl(warengewicht_netto)
+        If IsNumeric(gesamtpreis) Then txtWarenanteil.Text = CDbl(gesamtpreis)
+        If IsNumeric(frachtkostenanteil) Then txtFrachtanteil.Text = CDbl(frachtkostenanteil)
+        If IsNumeric(verzollungskoten) Then txtVerzollungskosten.Text = CDbl(verzollungskoten)
+        If IsNumeric(anteilZoll) Then txtZollBetrag.Text = CDbl(anteilZoll)
+        If IsNumeric(zollInProzent) Then txtZollInProzent.Text = CDbl(zollInProzent) * 100 & " %"
+        If IsNumeric(BGLZoll) Then txtBGLZoll.Text = CDbl(BGLZoll)
+        If IsNumeric(BGLEUST) Then txtBGLEUST.Text = CDbl(BGLEUST)
+
+        If IsNumeric(EU) Then txtEU.Text = CDbl(EU)
+        If IsNumeric(nichtEU) Then txtNichtEU.Text = CDbl(nichtEU)
+        If IsNumeric(DistanzGes) Then txtGesamtdistanz.Text = CDbl(DistanzGes)
+
+        If IsNumeric(gesamtgewicht) Then txtGesamtgewicht.Text = CDbl(gesamtgewicht)
+        If IsNumeric(warengewicht_brutto) Then txtWarengewichtBrutto.Text = CDbl(warengewicht_brutto)
+        If IsNumeric(warenanteilsumme) Then txtWarenanteilSumme.Text = CDbl(warenanteilsumme)
+
+        If IsNumeric(gesamtfracht) Then txtGesamtfracht.Text = CDbl(gesamtfracht)
+        If IsNumeric(gesamtfrachtanteil) Then txtGesamtfrachtanteil.Text = CDbl(gesamtfrachtanteil)
+
+        txtAnteil.Text = anteil
+
+        lblDat.Text = Now.ToString("dddd, dd.MM.yyyy")
+
+
+        Select Case Firma
+            Case "IMEX" : Me.picVERAG.Image = My.Resources.IMEX_LOGO_simple : Me.Label28.Text = "IMEX Customs Service GmbH"
+            Case "ATILLA" : Me.picVERAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
+            Case "UNISPED" : Me.picVERAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
+            Case Else
+        End Select
+
+
+    End Sub
+End Class

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -538,7 +538,7 @@ Public Class cATEZ_NCTS_IN
 
             Else
                 If (rest.ResponseStatusCode <> 200) Then
-                    failureDesc = rest.ResponseStatusText
+                    failureDesc = rest.ResponseStatusCode & "-" & rest.ResponseStatusText
                     Return failureDesc
                 Else
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -504,7 +504,7 @@ Public Class cTimasAPI
             Return timeEntryCreated
         Else
 
-            info = "Zeiteintrag " & entryType & " angelegt!" & timeEntry.ToString("HH:mm:ss")
+            info = "Zeiteintrag " & entryType & " angelegt! " & timeEntry.ToString("HH:mm:ss")
 
             'Dim jsonResult As New Chilkat.JsonObject
             'success = jsonResult.LoadSb(sbResponseBody)