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

X

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-08-23 16:28:41 +02:00
parent 1101edb939
commit 8f8b0f4252
37 changed files with 7560 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.vb
View File

@@ -164,7 +164,7 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
sqlStr &= " inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id"
' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " WHERE (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=eza_dyaAnmID AND [dySt_status] between 60 and 70 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' )>0 "
sqlStr &= "and ezaAd_AdressTyp='UC' and eza_VerfahrenBeantragtCode LIKE '42%' and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
sqlStr &= "and ezaAd_AdressTyp='UC' and /*eza_VerfahrenBeantragtCode LIKE '42%' and */ eza_ANR LIKE 'ATC42%' and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
' sqlStr &= " group by eza_Id,eza_firma,eza_niederlassung,eza_ObjectName,eza_ANR,eza_Bestimmungsland,eza_ArtGeschaeftCode,eza_VerkehrszweigGrenze,eza_GesamtRohmasse,eza_Rechnungspreis,eza_Trans_DatumZeit "
End If

4
SDL/zoll/usrCntlBrgBuchungenFremd.vb
View File

@@ -60,9 +60,9 @@ Public Class usrCntlBrgBuchungenFremd
If cbxEZollDaten.Checked Then
'EZOLL:
sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme.AnmID) as Firma "
sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID) as Firma "
sqlatr &= " " & If(cboBRG.Text.Contains("TOBB") Or cboBRG.Text.Contains("OREGON"), ", isnull(Bestimmungszollstelle,'') as Bestimmungsstelle ", "") & " "
sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme "
sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung "
sqlatr &= " WHERE GRN IN (" & cboBRG._value & ") and AnmeldungsDatum BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' "
Dim dt2 As DataTable = SQL.loadDgvBySql(sqlatr, "EZOLL")