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

ENS HMRC

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-17 10:51:30 +01:00
parent cb798cd22b
commit dfeb92035e
5 changed files with 256 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -309,7 +309,7 @@ Public Class frmStartOptions
Dim f As New frmInfo(PARAM)
f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
sendWOELFL_USTVAntraege("al@verag.ag")
sendWOELFL_USTVAntraege("FTP", False)
closeMe()
Case "SDL_GUELTISBIS"
Dim f As New frmInfo(PARAM)
@@ -333,7 +333,7 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If von.Contains("@q8.com") Or betreff.Contains("IDSPRD: Platts Price Report") Then
If von.Contains("@q8.com") Or von.Contains("@ibd.Q8.com") Or betreff.Contains("IDSPRD: Platts Price Report") Then
'---------------------IDS----------------------
importFileFromIDSMailAnhang(pfad, betreff, PARAM)
ElseIf von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then
@@ -370,7 +370,7 @@ Public Class frmStartOptions
'---------------------UTA----------------------
importFileFromUTAMailAnhang(pfad, betreff)
ElseIf von.Contains("ids.de@q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Then
ElseIf von.Contains("ids.de@q8.com") Or von.Contains("@ibd.Q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Then
'---------------------IDS----------------------
importFileFromIDSMailAnhang(pfad, betreff, PARAM)
@@ -3072,12 +3072,54 @@ Public Class frmStartOptions
End Function
Function sendWOELFL_USTVAntraege(art As String, Optional Mail_To As String = "", Optional Mail_CC As String = "", Optional Mail_BCC As String = "")
Function sendWOELFL_USTVAntraege(art As String, positionDaten As Boolean, Optional Mail_To As String = "", Optional Mail_CC As String = "", Optional Mail_BCC As String = "")
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt = SQL.loadDgvBySql("
SELECT [UStVAn_KuNr]VERAGKundenNr
Dim dt = Nothing
If positionDaten Then
dt = SQL.loadDgvBySql("
SELECT [tblUStVAntrag].UStVAn_ID,[UStVAn_KuNr]VERAGKundenNr
,Adressen.WölflKundenNr PartnerKundenNr
--,[UStVAn_LandNr]
,cast([UStVAn_ReDatVon]as date)ReDatVon
,cast([UStVAn_ReDatBis]as date)ReDatBis
,LND.LandKz AntragsLand
,[UStVAn_Name]Firma
,isnull([UStVAn_Straße],'')Strasse
,isnull([UStVAn_LandKz],'')LandKz
,isnull([UStVAn_PLZ],'')Plz
,isnull([UStVAn_Ort],'') Ort
, isnull(cast( cast([UStVAn_AntragEingereichtAm] as date)as varchar),'') AntragEingereichtAm
,isnull([UStVAn_VZBetrag],'')VZBetrag
, isnull(cast( cast([UStVAn_VZDatum] as date)as varchar),'') VZDatum
,isnull([UStVAn_RZBetragVZ],'')RZBetragVZ
, isnull(cast( cast([UStVAn_RZDatumVZ] as date)as varchar),'') RZDatumVZ
,isnull([UStVAn_Währungscode],'')Währungscode
,isnull([UStVAn_USteuerbetrag],'')USteuerbetrag
,isnull([UStVAn_Erstattungsbetrag],'')Erstattungsbetrag
,isnull([UStVAn_USteuerbetragEUR],'')USteuerbetragEUR
,isnull([UStVAn_ErstattungsbetragEUR],'') ErstattungsbetragEUR
,cast([UStVPo_ReDat] as date) PosRgDat
,[UStVPo_ReNr] PosRgNr
,[UStVPo_Leistender] PosLeistender
,[UStVPo_USteuerbetrag] PosUBetrag
,[UStVPo_USteuerbetragEUR]PosUBetragEUR
,[UStVPo_Umrechnungskurs] PosUmrechnungskurs
,[UStVPo_Leistungsbezeichnung] PosLeistungsbezeichnung
FROM [VERAG].[dbo].[tblUStVAntrag]
inner join tblUStVPositionen on [tblUStVAntrag].UStVAn_ID=tblUStVPositionen.UStVAn_ID
inner join adressen on AdressenNr=UStVAn_KuNr
inner join [Länderverzeichnis für die Außenhandelsstatistik] as LND on LandNr=UStVAn_LandNr
where UStVAn_ReDatVon>= cast(('01.01.' + cast((DATEPART(YEAR,getdate())-1) as varchar)) as date)
and (UStVAn_KuNr between 150000 and 159999 OR UStVAn_KuNr between 180000 and 189999 )
order by UStVAn_KuNr,[UStVAn_LandNr],UStVAn_ReDatVon
", "FMZOLL")
Else
dt = SQL.loadDgvBySql("
SELECT [tblUStVAntrag].UStVAn_ID,[UStVAn_KuNr]VERAGKundenNr
,isnull(WölflKundenNr,'')PartnerKundenNr
--,[UStVAn_LandNr]
,cast([UStVAn_ReDatVon]as date)ReDatVon
@@ -3105,6 +3147,8 @@ Public Class frmStartOptions
and (UStVAn_KuNr between 150000 and 159999 OR UStVAn_KuNr between 180000 and 189999 )
order by UStVAn_KuNr,[UStVAn_LandNr],UStVAn_ReDatVon
", "FMZOLL")
End If
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt, False,, "USTV_" & Now.ToString("ddMMyyyy"))
@@ -4829,9 +4873,9 @@ Public Class frmStartOptions
Private Sub LinkLabel50_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel50.LinkClicked, LinkLabel71.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If sender Is LinkLabel50 Then
sendWOELFL_USTVAntraege("MAIL", "al@verag.ag")
sendWOELFL_USTVAntraege("MAIL", CheckBox9.Checked, "al@verag.ag")
ElseIf sender Is LinkLabel71 Then
sendWOELFL_USTVAntraege("FTP")
sendWOELFL_USTVAntraege("FTP", CheckBox9.Checked)
End If
End Sub