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

CBAM

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-02-26 12:42:52 +01:00
parent 6e023041f9
commit 39dd8a0501
36 changed files with 11903 additions and 629 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb
View File

@@ -265,7 +265,7 @@ Public Class MySearchBox
If srch <> "" And SQL_WhereParamList.Count > 0 Then 'erster Suchparameter
SQLstr &= " AND ( 1<>1 "
For Each s In SQL_WhereParamList
SQLstr &= " OR " & s & " LIKE '" & srch & "%' "
SQLstr &= " OR " & s & " LIKE '" & srch.Replace("*", "%") & "%' "
Next
SQLstr &= " ) "
End If
@@ -273,7 +273,7 @@ Public Class MySearchBox
If srch2 <> "" And SQL_WhereParamList.Count > 0 Then 'Wenn zweiter Suchparameter
SQLstr &= " AND ( 1<>1 "
For Each s In SQL_WhereParamList
SQLstr &= " OR " & s & " LIKE '" & srch2 & "%' "
SQLstr &= " OR " & s & " LIKE '" & srch2.Replace("*", "%") & "%' "
Next
SQLstr &= " ) "
End If

4
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -787,7 +787,7 @@ Public Class SQL
Return defaultReturn
End Function
Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing) As Boolean
Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional timeout As Integer = 0) As Boolean
If conn Is Nothing Then
conn = New SqlConnection
@@ -812,9 +812,11 @@ Public Class SQL
conn.Open()
End Select
End If
Try
' MsgBox(sql)
Using cmd As New SqlCommand(sql, conn)
If timeout > 0 Then cmd.CommandTimeout = timeout
If list IsNot Nothing Then
For Each i In list
'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))

128
VERAG_PROG_ALLGEMEIN/Classes/cAvisoStatusMails.vb Normal file
View File

@@ -0,0 +1,128 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cAvisoStatusMails
Property asm_AvisoId As Integer
Property asm_KdNr As Integer
Property asm_StatuscodeSent As Integer
Property asm_datetime As Date = Now
Public hasEntry = False
Dim SQL As New SQL
Sub New(asm_AvisoId, asm_KdNr, asm_StatuscodeSent)
Me.asm_AvisoId = asm_AvisoId
Me.asm_KdNr = asm_KdNr
Me.asm_StatuscodeSent = asm_StatuscodeSent
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_AvisoId", asm_AvisoId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_KdNr", asm_KdNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_StatuscodeSent", asm_StatuscodeSent))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_datetime", asm_datetime))
Return list
End Function
Public Shared Function INSERT_INTO(asm_AvisoId, asm_KdNr, asm_StatuscodeSent) As Boolean
Dim AST As New cAvisoStatusMails(asm_AvisoId, asm_KdNr, asm_StatuscodeSent)
AST.asm_AvisoId = asm_AvisoId
AST.asm_KdNr = asm_KdNr
AST.asm_StatuscodeSent = asm_StatuscodeSent
Return AST.SAVE()
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAvisoStatusMails WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
Using cmd As New SqlCommand("SELECT * FROM tblAvisoStatusMails WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent ", conn)
cmd.Parameters.AddWithValue("@asm_AvisoId", asm_AvisoId)
cmd.Parameters.AddWithValue("@asm_KdNr", asm_KdNr)
cmd.Parameters.AddWithValue("@asm_StatuscodeSent", asm_StatuscodeSent)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblAvisoStatusMails] SET " & str & " WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblAvisoStatusMails (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
End Class

2
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -62,7 +62,7 @@ Public Class cKundenErweitert
Property Veranlagungskunde As Boolean = False
Property Anmerkungen_Warnhinweis As Object = Nothing
Property kde_VERAG_INTERFACE_ID As Object = Nothing
Property kde_BesonderheitenNeu As Boolean = False
Property kde_BesonderheitenNeu As Boolean = True
Property kde_InfoAuftragsNr As Object = Nothing
Property kde_KundeFremdspedition As Boolean = False
Property kde_verzolltBei As Object = Nothing

1
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -809,6 +809,7 @@ Public Class frmMessenger
Function checkNewestShit() As Boolean
Try
Dim Dt_New As DataTable = SQL.loadDgvBySql("SELECT [chat_id],CASE WHEN chat_name<>'' THEN chat_name ELSE (SELECT TOP 1 mit_vname + ' ' + mit_nname FROM tblMessenger_ChatMembers INNER JOIN tblMitarbeiter ON mit_id=chatMb_maId where chatMb_chatId=chat_id AND chatMb_maId <>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ") END as chat_name
,(SELECT REPLACE(COUNT(*),'0','') FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE [chat_id]=chatMg_chatId AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0) as ungelesen
FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0

8407
VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

364
VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.xsd Normal file
View File

@@ -0,0 +1,364 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
targetNamespace="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
elementFormDefault="qualified"
attributeFormDefault="unqualified"
xmlns:jaxb="http://java.sun.com/xml/ns/jaxb"
jaxb:version="2.1">
<xs:include schemaLocation="stypes.xsd"/>
<xs:element name="QReport" type="QReportType" />
<xs:complexType name="QReportType">
<xs:sequence>
<xs:element name="SubmissionDate" type="DateTimeContentType"/>
<xs:element name="DraftReportId" type="an..22"/>
<xs:element name="ReportId" type="an..22" minOccurs="0"/>
<xs:element name="ReportingPeriod" type="an2"/>
<xs:element name="Year" type="n4"/>
<xs:element name="TotalImported" type="n..5"/>
<xs:element name="TotalEmissions" type="dec16-5"/>
<xs:element name="Declarant" type="DeclarantType"/>
<xs:element name="Representative" type="RepresentativeType" minOccurs="0"/>
<xs:element name="Importer" type="ImporterType" minOccurs="0"/>
<xs:element name="NationalCompetentAuth" type="NationalCompetentAuthType"/>
<xs:element name="Signatures" type="SignaturesType"/>
<xs:element name="Remarks" type="RemarksType" minOccurs="0"/>
<xs:element name="ImportedGood" type="ImportedGoodType" maxOccurs="99999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="DeclarantType">
<xs:sequence>
<xs:element name="IdentificationNumber" type="an..17"/>
<xs:element name="Name" type="an..70"/>
<xs:element name="Role" type="an..5"/>
<xs:element name="ActorAddress" type="AddressType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ImporterType">
<xs:sequence>
<xs:element name="IdentificationNumber" type="an..17"/>
<xs:element name="Name" type="an..70"/>
<xs:element name="ImporterAddress" type="AddressType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="RepresentativeType">
<xs:sequence>
<xs:element name="IdentificationNumber" type="an..17"/>
<xs:element name="Name" type="an..70"/>
<xs:element name="RepresentativeAddress" type="AddressType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="NationalCompetentAuthType">
<xs:sequence>
<xs:element name="ReferenceNumber" type="an..128"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="SignaturesType">
<xs:sequence>
<xs:element name="ReportConfirmation" type="ReportConfirmationType"/>
<xs:element name="ApplicableMethdologyConfirmation" type="ApplicableMethodologyConfirmationType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ReportConfirmationType">
<xs:sequence>
<xs:element name="GlobalDataConfirmation" type="xs:boolean"/>
<xs:element name="UseOfDataConfirmation" type="xs:boolean"/>
<xs:element name="SignatureDate" type="n8"/>
<xs:element name="SignaturePlace" type="an..128"/>
<xs:element name="Signature" type="an..128"/>
<xs:element name ="PositionOfPersonSending" type="an..128"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ApplicableMethodologyConfirmationType">
<xs:sequence>
<xs:element name="OtherApplicableReportingMethodology" type="xs:boolean"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="RemarksType">
<xs:sequence>
<xs:element name="AdditionalInformation" type="an..512"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ImportedGoodType">
<xs:sequence>
<xs:element name="ItemNumber" type="n..5"/>
<xs:element name="Representative" type="RepresentativeType" minOccurs="0"/>
<xs:element name="Importer" type="ImporterType" minOccurs="0"/>
<xs:element name="CommodityCode" type="CommodityCodeType" minOccurs="0"/>
<xs:element name="OriginCountry" type="OriginCountryType"/>
<xs:element name="ImportedQuantity" type="ImportedQuantityType" minOccurs="1" maxOccurs="9"/>
<xs:element name="MeasureImported" type="MeasureType"/>
<xs:element name="TotalEmissions" type="TotalEmissionsType"/>
<xs:element name="SupportingDocuments" type="SupportingDocumentsType" minOccurs="0" maxOccurs="99"/>
<xs:element name="Remarks" type="RemarksType" minOccurs="0"/>
<xs:element name="GoodsEmissions" type="GoodsEmissionsType" minOccurs="1" maxOccurs="999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="CommodityCodeType">
<xs:sequence>
<xs:element name="HsCode" type="an6"/>
<xs:element name="CnCode" type="an2"/>
<xs:element name="CommodityDetails" type="CommodityDetailsType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="CommodityDetailsType">
<xs:sequence>
<xs:element name="Description" type="an..512"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="OriginCountryType">
<xs:sequence>
<xs:element name="Country" type="a2"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ImportedQuantityType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="Procedure" type="ProcedureType"/>
<xs:element name="ImportArea" type="ImportAreaType"/>
<xs:element name="MeasureProcedureImported" type="MeasureProcedureType" maxOccurs="2"/>
<xs:element name="SpecialReferences" type="SpecialReferencesType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ProcedureType">
<xs:sequence>
<xs:element name="RequestedProc" type="an2"/>
<xs:element name="PreviousProc" type="an2" minOccurs="0"/>
<xs:element name="InwardProcessingInfo" type="InwardProcessingInfoType" minOccurs="0" maxOccurs="999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="InwardProcessingInfoType">
<xs:sequence>
<xs:element name="MemberStateAuth" type="a2"/>
<xs:element name="DischargeBillWaiver" type="n1"/>
<xs:element name="Authorisation" type="an..512" />
<xs:element name="StartTime" type="n8"/>
<xs:element name="EndTime" type="n8"/>
<xs:element name="Deadline" type="n8"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ImportAreaType">
<xs:sequence>
<xs:element name="ImportArea" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="MeasureType">
<xs:sequence>
<xs:element name="NetMass" type="dec16-6" minOccurs="0"/>
<xs:element name="SupplementaryUnits" type="dec16-6" minOccurs="0"/>
<xs:element name="MeasurementUnit" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="MeasureProcedureType">
<xs:sequence>
<xs:element name="Indicator" type="n1"/>
<xs:element name="NetMass" type="dec16-6" minOccurs="0"/>
<xs:element name="SupplementaryUnits" type="dec16-6" minOccurs="0"/>
<xs:element name="MeasurementUnit" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="SpecialReferencesType">
<xs:sequence>
<xs:element name="AdditionalInformation" type="an..512"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TotalEmissionsType">
<xs:sequence>
<xs:element name="EmissionsPerUnit" type="xs:decimal"/>
<xs:element name="OverallEmissions" type="xs:decimal"/>
<xs:element name="TotalDirect" type="xs:decimal"/>
<xs:element name="TotalIndirect" type="xs:decimal"/>
<xs:element name="MeasurementUnit" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="SupportingDocumentsType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="Type" type="an4"/>
<xs:element name="Country" type="a2" minOccurs="0"/>
<xs:element name="ReferenceNumber" type="an..70"/>
<xs:element name="LineItemNumber" type="n..5" minOccurs="0"/>
<xs:element name="IssuingAuthName" type="an..70" minOccurs="0"/>
<xs:element name="ValidityStartDate" type="DateContentType" minOccurs="0"/>
<xs:element name="ValidityEndDate" type="DateContentType" minOccurs="0"/>
<xs:element name="Description" type="an..256" minOccurs="0"/>
<xs:element name="Attachment" type="AttachmentType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="AttachmentType">
<xs:sequence>
<xs:element name="Filename" type="an..256"/>
<xs:element name="URI" type="an..2048" minOccurs="0"/>
<xs:element name="MIME" type="an..70"/>
<xs:element name="Binary" type="xs:base64Binary"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="QualifyingParametersType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="DeterminationType" type="an..5"/>
<xs:element name="ParameterId" type="an..5"/>
<xs:element name="ParameterName" type="an..256"/>
<xs:element name="Description" type="an..256" minOccurs="0"/>
<xs:element name="ParameterValueType" type="an..256"/>
<xs:element name="ParameterValue" type="an..256"/>
<xs:element name="AdditionalInformation" type="an..512" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="GoodsEmissionsType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="ProductionCountry" type="a2" minOccurs="0"/>
<xs:element name="InstallationOperator" type="InstallationOperatorType" minOccurs="0"/>
<xs:element name="Installation" type="InstallationType" minOccurs="0"/>
<xs:element name="ProducedMeasure" type="MeasureType"/>
<xs:element name="InstallationEmissions" type="InstallationEmissionsType"/>
<xs:element name="DirectEmissions" type="DirectEmissionsType"/>
<xs:element name="IndirectEmissions" type="IndirectEmissionsType" minOccurs="0"/>
<xs:element name="ProdMethodQualifyingParams" type="ProdMethodQualifyingParamsType" maxOccurs="99"/>
<xs:element name="SupportingDocuments" type="SupportingDocumentsType" minOccurs="0" maxOccurs="99"/>
<xs:element name="CarbonPriceDue" type="CarbonPriceDueType" minOccurs="0" maxOccurs="99"/>
<xs:element name="RemarksEmissions" type="RemarksEmissionsType" minOccurs="0" maxOccurs="9"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="InstallationType">
<xs:sequence>
<xs:element name="InstallationId" type="an..17"/>
<xs:element name="InstallationName" type="an..256"/>
<xs:element name="EconomicActivity" type="an..256" minOccurs="0"/>
<xs:element name="Address" type="InstallationAddressType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="InstallationAddressType">
<xs:sequence>
<xs:element name="EstablishmentCountry" type="a2"/>
<xs:element name="SubDivision" type="an..35" minOccurs="0"/>
<xs:element name="City" type="an..35" minOccurs="0"/>
<xs:element name="Street" type="an..70" minOccurs="0"/>
<xs:element name="StreetAdditionalLine" type="an..70" minOccurs="0"/>
<xs:element name="Number" type="an..35" minOccurs="0"/>
<xs:element name="Postcode" type="an..17" minOccurs="0"/>
<xs:element name="POBox" type="an..70" minOccurs="0"/>
<xs:element name="PlotParcelNumber" type="an..15" minOccurs="0"/>
<xs:element name="UNLOCODE" type="an..17" minOccurs="0"/>
<xs:element name="Latitude" type="an..17" minOccurs="0"/>
<xs:element name="Longitude" type="an..17" minOccurs="0"/>
<xs:element name="CoordinatesType" type="an..5" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="InstallationOperatorType">
<xs:sequence>
<xs:element name="OperatorId" type="an..17"/>
<xs:element name="OperatorName" type="an..70"/>
<xs:element name="OperatorAddress" type="AddressType"/>
<xs:element name="ContactDetails" type="ContactDetailsType" maxOccurs="9"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="AddressType">
<xs:sequence>
<xs:element name="Country" type="a2"/>
<xs:element name="SubDivision" type="an..35" minOccurs="0"/>
<xs:element name="City" type="an..35"/>
<xs:element name="Street" type="an..70" minOccurs="0"/>
<xs:element name="StreetAdditionalLine" type="an..70" minOccurs="0"/>
<xs:element name="Number" type="an..35" minOccurs="0"/>
<xs:element name="Postcode" type="an..17" minOccurs="0"/>
<xs:element name="POBox" type="an..70" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ContactDetailsType">
<xs:sequence>
<xs:element name="Name" type="an..70"/>
<xs:element name="Phone" type="an..35"/>
<xs:element name="Email" type="an..256"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ProdMethodQualifyingParamsType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="MethodId" type="an..5"/>
<xs:element name="MethodName" type="an..256"/>
<xs:element name="SteelMillNumber" type="an..256" minOccurs="0"/>
<xs:element name="AdditionalInformation" type="an..512" minOccurs="0"/>
<xs:element name="DirectQualifyingParameters" type="QualifyingParametersType" minOccurs="0" maxOccurs="99"/>
<xs:element name="IndirectQualifyingParameters" type="QualifyingParametersType" minOccurs="0" maxOccurs="99"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ProducedGoodsMeasureType">
<xs:sequence>
<xs:element name="NetMass" type="dec16-6" minOccurs="0"/>
<xs:element name="SupplementaryUnits" type="dec16-6" minOccurs="0"/>
<xs:element name="MeasurementUnit" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="InstallationEmissionsType">
<xs:sequence>
<xs:element name="OverallEmissions" type="xs:decimal"/>
<xs:element name="TotalDirect" type="xs:decimal"/>
<xs:element name="TotalIndirect" type="xs:decimal"/>
<xs:element name="MeasurementUnit" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="DirectEmissionsType">
<xs:sequence>
<xs:element name="DeterminationType" type="an..5" minOccurs="0"/>
<xs:element name="DeterminationTypeElectricity" type="an..5" minOccurs="0"/>
<xs:element name="ApplicableReportingTypeMethodology" type="an..5"/>
<xs:element name="ApplicableReportingMethodology" type="an..256" minOccurs="0"/>
<xs:element name="SpecificEmbeddedEmissions" type="dec16-5" minOccurs="0"/>
<xs:element name="OtherSourceIndication" type="an..256" minOccurs="0"/>
<xs:element name="EmissionFactorSourceElectricity" type="an..5" minOccurs="0"/>
<xs:element name="EmissionFactor" type="dec16-5" minOccurs="0"/>
<xs:element name="ElectricityImported" type="xs:decimal" minOccurs="0"/>
<xs:element name="TotalEmbeddedElectricityImported" type="dec16-5" minOccurs="0"/>
<xs:element name="MeasurementUnit" type="an..5"/>
<xs:element name="EmissionFactorSourceValue" type="an..512" minOccurs="0"/>
<xs:element name="Justification" type="an..512" minOccurs="0"/>
<xs:element name="ConditionalityFulfillment" type="an..512" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="IndirectEmissionsType">
<xs:sequence>
<xs:element name="DeterminationType" type="an..5"/>
<xs:element name="EmissionFactorSource" type="an..5" minOccurs="0"/>
<xs:element name="EmissionFactor" type="dec16-5" minOccurs="0"/>
<xs:element name="SpecificEmbeddedEmissions" type="xs:decimal"/>
<xs:element name="MeasurementUnit" type="an..5"/>
<xs:element name="ElectricityConsumed" type="dec5-2" minOccurs="0"/>
<xs:element name="ElectricitySource" type="an..5"/>
<xs:element name="OtherSourceIndication" type="an..256" minOccurs="0"/>
<xs:element name="EmissionFactorSourceValue" type="an..512" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="CarbonPriceDueType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="InstrumentType" type="an..5"/>
<xs:element name="LegalActDescription" type="an..512"/>
<xs:element name="Amount" type="xs:decimal"/>
<xs:element name="Currency" type="a3"/>
<xs:element name="ExchangeRate" type="an..2"/>
<xs:element name="EURO" type="xs:decimal"/>
<xs:element name="Country" type="a2"/>
<xs:element name="ProductsCovered" type="ProductsCoveredType" minOccurs="0" maxOccurs="9"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ProductsCoveredType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="Type" type="an..5"/>
<xs:element name="CN" type="an..8" minOccurs="0"/>
<xs:element name="QuantityCovered" type="dec16-5"/>
<xs:element name="QuantityCoveredFreeAloc" type="dec16-5"/>
<xs:element name="SupplementaryInformation" type="an..256" minOccurs="0"/>
<xs:element name="AdditionalInformation" type="an..512" minOccurs="0"/>
<xs:element name="Measure" type="MeasureType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="RemarksEmissionsType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="AdditionalInformation" type="an..512"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

202
VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/stypes.xsd Normal file
View File

@@ -0,0 +1,202 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
targetNamespace="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
elementFormDefault="qualified"
attributeFormDefault="unqualified">
<xs:simpleType name="an20">
<xs:restriction base="xs:string">
<xs:minLength value="20"/>
<xs:maxLength value="20"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..20">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="20"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an2">
<xs:restriction base="xs:string">
<xs:minLength value="2"/>
<xs:maxLength value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an8">
<xs:restriction base="xs:string">
<xs:minLength value="8"/>
<xs:maxLength value="8"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..15">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="15"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..17">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="17"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..70">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="70"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..5">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="5"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..2">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..128">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="128"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..512">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="512"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..256">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="256"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..2048">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="2048"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an4">
<xs:restriction base="xs:string">
<xs:minLength value="4"/>
<xs:maxLength value="4"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an9">
<xs:restriction base="xs:string">
<xs:minLength value="9"/>
<xs:maxLength value="9"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an6">
<xs:restriction base="xs:string">
<xs:minLength value="6"/>
<xs:maxLength value="6"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="a2">
<xs:restriction base="xs:string">
<xs:minLength value="2"/>
<xs:maxLength value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n4">
<xs:restriction base="xs:int">
<xs:totalDigits value="4"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n1">
<xs:restriction base="xs:int">
<xs:totalDigits value="1"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n2">
<xs:restriction base="xs:int">
<xs:totalDigits value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n8">
<xs:restriction base="xs:int">
<xs:totalDigits value="8"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n6.16">
<xs:restriction base="xs:integer">
<xs:pattern value="\d{6,16}" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n..5">
<xs:restriction base="xs:integer">
<xs:pattern value="\d{1,5}" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n..2">
<xs:restriction base="xs:integer">
<xs:pattern value="\d{1,2}" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="dec5-2">
<xs:restriction base="xs:decimal">
<xs:totalDigits value="7"/>
<xs:fractionDigits value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="dec16-6">
<xs:restriction base="xs:decimal">
<xs:totalDigits value="16"/>
<xs:fractionDigits value="6"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="dec16-5">
<xs:restriction base="xs:decimal">
<xs:totalDigits value="16"/>
<xs:fractionDigits value="5"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..35">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="35"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an3">
<xs:restriction base="xs:string">
<xs:minLength value="3"/>
<xs:maxLength value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="a3">
<xs:restriction base="xs:string">
<xs:minLength value="3"/>
<xs:maxLength value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="DateTimeContentType">
<xs:restriction base="xs:dateTime">
<xs:pattern value="\d{4}-\d\d-\d\dT\d\d:\d\d:\d\dZ" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="DateContentType">
<xs:restriction base="xs:date">
<xs:pattern value="\d{4}-\d\d-\d\d" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..22">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="22"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..8">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="8"/>
</xs:restriction>
</xs:simpleType>
</xs:schema>

33
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

@@ -267,12 +267,14 @@ Public Class cSyska_Interface
' If Not genDatensatz_Stammdaten(OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(1, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(7, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(4, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(11, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(17, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(19, OpenFile) Then genDatensatz_ALL = False
End If
If boolBuchungen Then
If Not genDatensatz_Buchungen(1, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(4, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(7, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(11, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(17, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
@@ -1366,7 +1368,7 @@ Public Class cSyska_Interface
Return False
End Try
End Function
Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean
Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer) As Boolean
Try
Dim sqlStr = "
@@ -1377,10 +1379,9 @@ Public Class cSyska_Interface
Kunden
WHERE (SELECT COUNT(*) FROM [Offene Posten] WHERE KundenNrZentrale=Kontonummer " & If(Firma_ID > 0, " AND Firma_ID='" & Firma_ID & "' ", "") & ")>=0 "
If KdNr > 0 Then sqlStr &= " AND KundenNrZentrale='" & KdNr & "' "
SQL.doSQL(sqlStr, "FMZOLL")
SQL.doSQL(sqlStr, "FMZOLL",,,, 1800)
Return True
Catch ex As Exception
@@ -1390,6 +1391,32 @@ Public Class cSyska_Interface
End Function
Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer, KdNr As Integer) As Boolean
If KdNr <= 0 Then
Return OP_LFD_SALDO_AKTUALISIERN(Firma_ID)
End If
Try
Dim sqlStr = "
UPDATE KUNDEN
SET LfdSaldo=(SELECT TOP 1 [KumSaldoEUR] FROM [Offene Posten] where Kontonummer=KundenNrZentrale order by [OP_ID] desc )
FROM
Kunden
WHERE (SELECT COUNT(*) FROM [Offene Posten] WHERE KundenNrZentrale=Kontonummer " & If(Firma_ID > 0, " AND Firma_ID='" & Firma_ID & "' ", "") & ")>=0
AND KundenNrZentrale='" & KdNr & "'
"
SQL.doSQL(sqlStr, "FMZOLL",,,, 600)
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
Return False
End Try
End Function

8
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -327,6 +327,7 @@
<Compile Include="Classes\cAvisoAnhaenge.vb" />
<Compile Include="Classes\cAvisoAnhangsarten.vb" />
<Compile Include="Classes\cAvisoBenachrichtigungen.vb" />
<Compile Include="Classes\cAvisoStatusMails.vb" />
<Compile Include="Classes\cBesuchsbericht.vb" />
<Compile Include="Classes\cBonitaetsauskunft.vb" />
<Compile Include="Classes\cChilkat_Helper.vb" />
@@ -382,6 +383,7 @@
<AutoGen>True</AutoGen>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="Schnittstellen\CBAM\QReport_v17.00.Designer.vb" />
<Compile Include="Schnittstellen\Digicast\cDigicustAPI.vb" />
<Compile Include="Schnittstellen\Modaltrans\cOregonNCTSDeclarations.vb" />
<Compile Include="Classes\cParameter.vb" />
@@ -781,6 +783,12 @@
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="ProgAllg.pfx" />
<None Include="Schnittstellen\CBAM\QReport_v17.00.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\CBAM\stypes.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\GASTON_SCHUL\agsCustomsExchange.xsd">
<SubType>Designer</SubType>
</None>