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

ATEZ Integration MIC, TC, MODAL

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-10-06 09:23:25 +02:00
parent 1c1af724c2
commit d702783d1b
34 changed files with 8588 additions and 571 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
Aviso/frmHauptfenster.vb
View File

@@ -1361,57 +1361,57 @@ ELSE_ATILLA:
'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20200419_000451_Hofer_375.jpg") 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20220620_091930_Luxbauer_4.jpg") 'My.Resources.Koerfez61
Dim originalImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("C:\Users\DEVELOPER1\Desktop\grund.png") 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("C:\Users\DEVELOPER1\Desktop\grund.png") 'My.Resources.Koerfez61
' MsgBox(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId))
' MsgBox(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId))
Dim picSize = 35
Dim picSize = 35
Dim space_X As Integer = 0
Dim space_Y As Integer = 0
Dim picWidth As Integer = 0
Dim picHheight As Integer = 0
Dim space_X As Integer = 0
Dim space_Y As Integer = 0
Dim picWidth As Integer = 0
Dim picHheight As Integer = 0
Dim factor As Double = 1
If originalImage.Height < originalImage.Width Then
factor = picSize / originalImage.Height
picWidth = originalImage.Width * factor
picHheight = originalImage.Height * factor
' space_X = (picWidth - picHheight) / 2
Dim factor As Double = 1
If originalImage.Height < originalImage.Width Then
factor = picSize / originalImage.Height
picWidth = originalImage.Width * factor
picHheight = originalImage.Height * factor
' space_X = (picWidth - picHheight) / 2
Else
factor = picSize / originalImage.Width
picWidth = originalImage.Width * factor
picHheight = originalImage.Height * factor
' space_X = (picHheight - picWidth) / 2
Else
factor = picSize / originalImage.Width
picWidth = originalImage.Width * factor
picHheight = originalImage.Height * factor
' space_X = (picHheight - picWidth) / 2
End If
' MsgBox(picWidth & " - " & picHheight)
'Create a new, blank image with the same dimensions.
Dim croppedImage As New Bitmap(picWidth, picHheight)
'Prepare to draw on the new image.
Using g = Graphics.FromImage(croppedImage)
Dim path As New GraphicsPath
'Create an ellipse that fills the image in both directions.
'path.AddEllipse(0, 0, croppedImage.Width, croppedImage.Height)
path.AddEllipse(0, 0, picSize, picSize)
Dim reg As New Region(path)
'Draw only within the specified ellipse.
g.Clip = reg
'g.DrawImage(originalImage, 0, 0, picSize, picSize)
g.DrawImage(originalImage, 0, 0, picWidth, picHheight)
End Using
'Display the new image.
btnMitarbeiterKonto.Image = croppedImage
Exit Sub
End If
' MsgBox(picWidth & " - " & picHheight)
'Create a new, blank image with the same dimensions.
Dim croppedImage As New Bitmap(picWidth, picHheight)
'Prepare to draw on the new image.
Using g = Graphics.FromImage(croppedImage)
Dim path As New GraphicsPath
'Create an ellipse that fills the image in both directions.
'path.AddEllipse(0, 0, croppedImage.Width, croppedImage.Height)
path.AddEllipse(0, 0, picSize, picSize)
Dim reg As New Region(path)
'Draw only within the specified ellipse.
g.Clip = reg
'g.DrawImage(originalImage, 0, 0, picSize, picSize)
g.DrawImage(originalImage, 0, 0, picWidth, picHheight)
End Using
'Display the new image.
btnMitarbeiterKonto.Image = croppedImage
Exit Sub
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
@@ -3453,9 +3453,9 @@ ELSE_ATILLA:
Try
Dim MIC = New VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment
MIC.ImportShipmentMessage.ImportShipment.Shipment.company = "UK"
MIC.SaveToFile("C:\VeragTMP\Test2.xml")
'Dim MIC = New VERAG_PROG_ALLGEMEIN.MicCustImportInvoiceComponent.InsertImportShipment
'MIC.ImportShipmentMessage.ImportShipment.Shipment.company = "UK"
'MIC.SaveToFile("C:\VeragTMP\Test2.xml")
'Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\Test.xml")
''Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\MicCustImportShipment_Sample.xml")