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

HMRC

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-07 08:08:08 +01:00
parent 8245ffedff
commit 390d5353f2
2 changed files with 191 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Aviso/frmHauptfenster.vb
View File

@@ -5065,7 +5065,27 @@ ELSE_ATILLA:
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
VERAG_PROG_ALLGEMEIN.cOpenAI.doFirstAI()
MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("AW: Kennzeichen: CB4178EB | Grenze SUB DE007701 Suben | Absender CEMOBSAN;TEKIRDAG | Gewicht: 7.200,0"))
MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("*00*Fwd: Abgabenbescheid 5003/25001269 T31M492"))
MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("AW: Warenbeschreibung in T1-Dokumenten - 5003/25000389"))
MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("Kennzeichen: 06CLS811 | Grenze WAI DE008904 Waidhaus | Absender VAMET | Gewicht: 1.689,0"))
MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("*00*RE: 16 ALF 807 AVIS/ GERMANY"))
Exit Sub
Dim resp = ""
cHMRC.checkEORI_UK("GB078068385000", resp)
MsgBox(resp)
'resp = ""
'cHMRC.checkVAT_UK("389356931", resp)
'MsgBox(resp)
'VERAG_PROG_ALLGEMEIN.cOpenAI.doFirstAI()
'saveLukowaPDFsFromTherefore()
' MsgBox(VERAG_PROG_ALLGEMEIN.cATEZ_Tariff.GetTariffInfo_SingleOrEmpty("6207220000"))