7.37954in9.9907inExternal=Fields!PathImageFull.Value & First(Fields!ItemExtCode.Value, "list1_Index") & ".png"
' viene creata un'immagine apposita da DXF file validation per gli special part con dimensioni diverseFitProportional6in0.02203cm78mm187mm2.03125in1.56925in0.25intruetrueMPR FRAMING KIT REQUIRED DATETextbox212pt2pt2pt2pt20.55048intruetrue=Fields!ReqDate.ValueReqDateBlack1ptBlack1ptMiddle2pt2pt2pt2pt20.25intruetrueModelTextbox28Black1pt2pt2pt2pt2pttruetrueKit QtyTextbox342pt2pt2pt2pt0.53125intruetrue=Fields!ModelCod.ValueModelCodBlack1ptBlack1ptMiddle2pt2pt2pt2pttruetrue=First(Fields!TotItem.Value)TotItemBlack1ptMiddle2pt2pt2pt2ptAfterBeforeBeforestp_prt_SpecialPart0.12687in0.17161in1.58173in3.6005inBlack1ptBlack1ptBlack1ptBlack1pttrue0.1638in3.28643in1.7086in3.92161inExternal=Replace(Fields!QRCodeBaseUrl.Value.ToString(),"QRCODEVALUE",Fields!DocDtmx.Value.ToString())
' la stringa nel Campo è https://qrcode.steamware.net/HOME/QR_site/JSON?val={'baseUrl':'{0}','parameters':\['QRCODEVALUE'\]}
' dove la \ prima della [ serve perchè è una stringa quindi si trasforma poi in
' https://qrcode.steamware.net/HOME/QR_site/JSON?val={'baseUrl':'{0}','parameters':['QRCODEVALUE']}
'https://qrcode.steamware.net/HOME/QR_site/JSON?val={'baseUrl':'http://10.74.82.219/StockMan/STEA/Items/Details/{0}?StockItemID={0}','parameters':['VARIABILE']}FitProportional0.0938cm0.25691in2.6in2.6in1truetrue=First(Fields!CartDtmx.Value)CartDtmx2.66471in0.65256cm0.25in2.6in22pt2pt2pt2pttruetrue=Fields!PathImageFull.ValueTextbox352.15429in3.13018in0.25in4.1091in3true2pt2pt2pt2pttruetrue=Code.ImageWith2("AAA")
' System.Drawing.Image.FromStream(new System.IO.MemoryStream("http://iis01/NKC/PartsImg/128659-b.png")).Width
'Fields!PathImageFull.Value & First(Fields!ItemExtCode.Value, "list1_Index") & "_SP.png"
' viene creata un'immagine apposita da DXF file validation per gli special part con dimensioni diverse
'System.Drawing.Image.FromStream(new System.IO.MemoryStream(File.ReadAllBytes("C:\\PROGETTI\\REPORTING_2008_SSTD_2010\\Sauder\\Sauder\\143174.png"))).Width
' =Fields!PathImageFull.Value & First(Fields!ItemExtCode.Value, "list1_Index") & ".png"Textbox116.46658cm7.95066cm0.55562cm10.35776cm4Black1pt2pt2pt2pt2pttrue0.01993in0.00445cm2.91471in7.37604in1true=First(Fields!DocID.Value)DueDate3in0.02203cm2.96896in7.3622in2Top2pt2pt2pt2pt2.80208in2.90366in0.21875intruetrue=Code.ImageWith("AAA")
' System.Drawing.Image.FromStream(new System.IO.MemoryStream("http://iis01/NKC/PartsImg/128659-b.png")).Width
'Fields!PathImageFull.Value & First(Fields!ItemExtCode.Value, "list1_Index") & "_SP.png"
' viene creata un'immagine apposita da DXF file validation per gli special part con dimensioni diverse
'System.Drawing.Image.FromStream(new System.IO.MemoryStream(File.ReadAllBytes("C:\\PROGETTI\\REPORTING_2008_SSTD_2010\\Sauder\\Sauder\\143174.png"))).Width
' =Fields!PathImageFull.Value & First(Fields!ItemExtCode.Value, "list1_Index") & ".png"Textbox11Black1pt2pt2pt2pt2pttruetruePlant destinationTextbox12Black1ptBlack1pt2pt2pt2pt2pt0.58681intruetrue=Fields!ItemExtCode.ValueItemExtCodeMiddle2pt2pt2pt2pttruetrue=Fields!DestPlant.ValueDestPlantBlack1ptMiddle2pt2pt2pt2ptAfterstp_prt_SpecialPart9.15in0.82in0.80556in5.70574in3Black1ptBlack1ptBlack1ptBlack1pttrue=Fields!ItemExtCode.ValueOutputtruestp_prt_SpecialPartEnd0.0093in0.00001cm9.9907in7.37954in10in7.5in0.5in0.5in0.5in0.5inv. 1.3.10Sauder_NKCNone7e875094-37e0-46d4-8db0-d51955773fb0SQLData Source=SQL2016PROD;Initial Catalog=Sauder_NKC2_ProdtrueIntegrated05160673-9ecd-4988-94ad-7181e78f1b58Sauder_NKC_Test=Parameters!CartID.Value=Parameters!PathImage.Value=Parameters!QRCodeBaseUrl.ValueStoredProcedureprt.stp_prt_SpecialParttrueDocIDSystem.StringDocDtmxSystem.StringCartDtmxSystem.StringItemExtCodeSystem.StringModelCodSystem.StringItemDescSystem.StringTotItemSystem.Int32OrdParentSystem.StringPathImageFullSystem.StringReqDateSystem.StringDestPlantSystem.StringQRCodeBaseUrlSystem.StringDueDateSystem.StringStringtruetrueQRCodeBaseURL:=Nothing="https://iis01.egalware.com/zcode/HOME/QR_site/JSON?val={'baseUrl':'{0}','parameters':['QRCODEVALUE']}"StringtruetruePath Imagefile:\C:\PROGETTI\REPORTING_2008_SSTD_2010\Sauder\Sauder\http://IIS01/NKC/PartsImg/Integer11334Cart IDPublic Function ImageWith( ByVal strURL as String ) AS String
Dim iValue AS String = "Inizio"
Try
Dim req As System.Net.WebRequest = System.Net.WebRequest.Create( "http://iis01/NKC/PartsImg/128659-b.png" )
' Dim response As System.Net.WebResponse = req.GetResponse()
' Dim istream As System.IO.Stream = response.GetResponseStream()
' Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(istream)
' Dim iWith As Integer = img.Width
' istream.Close()
' RETURN "Ciao"
' iWith.ToString()
Catch ex As Exception
iValue = ex.Message.ToString()
End Try
RETURN iValue
End Function
' 21 ------------------------------
Public Function ImageWith2( ByVal strURL as String ) AS String
Dim wc As New System.Net.WebClient()
Dim iValue AS String
Try
Dim bytes As Byte() = wc.DownloadData("http://iis01/PartsImg/128659-b.png")
' Dim ms As New System.IO.MemoryStream(bytes)
' Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(ms)
' If img Then
iValue = "...work with result..."
' End If
Catch ex As Exception
iValue = ex.Message.ToString()
End Try
RETURN iValue
End Function
en-USSystem.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3aSystem.Net, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3atrueInch42b91d77-5259-4b9b-b313-695cd28dd977