<ReportItems> <TablixBody> <TablixColumns> <TablixColumn> <Width>7.37954in</Width> </TablixColumn> </TablixColumns> <TablixRows> <TablixRow> <Height>9.9907in</Height> <TablixCells> <TablixCell> <CellContents> <ReportItems> External <Value>=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 diverse</Value> <Sizing>FitProportional</Sizing> <Top>6in</Top> <Left>0.02203cm</Left> <Height>78mm</Height> <Width>187mm</Width>
</Border> <ReportItems> <ReportItems> <TablixBody> <TablixColumns> <TablixColumn> <Width>2.03125in</Width> </TablixColumn> <TablixColumn> <Width>1.56925in</Width> </TablixColumn> </TablixColumns> <TablixRows> <TablixRow> <Height>0.25in</Height> <TablixCells> <TablixCell> <CellContents> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>MPR FRAMING KIT REQUIRED DATE</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> Textbox21
</Border> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> <ColSpan>2</ColSpan> </CellContents> </TablixCell> <TablixCell /> </TablixCells> </TablixRow> <TablixRow> <Height>0.55048in</Height> <TablixCells> <TablixCell> <CellContents> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>=Fields!ReqDate.Value</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> ReqDate
</Border> <TopBorder> <Color>Black</Color>
<Width>1pt</Width> </TopBorder> <BottomBorder> <Color>Black</Color>
<Width>1pt</Width> </BottomBorder> <VerticalAlign>Middle</VerticalAlign> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> <ColSpan>2</ColSpan> </CellContents> </TablixCell> <TablixCell /> </TablixCells> </TablixRow> <TablixRow> <Height>0.25in</Height> <TablixCells> <TablixCell> <CellContents> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>Model</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> Textbox28
</Border> <RightBorder> <Color>Black</Color>
<Width>1pt</Width> </RightBorder> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> </CellContents> </TablixCell> <TablixCell> <CellContents> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>Kit Qty</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> Textbox34
</Border> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> </CellContents> </TablixCell> </TablixCells> </TablixRow> <TablixRow> <Height>0.53125in</Height> <TablixCells> <TablixCell> <CellContents> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>=Fields!ModelCod.Value</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> ModelCod
</Border> <TopBorder> <Color>Black</Color>
<Width>1pt</Width> </TopBorder> <RightBorder> <Color>Black</Color>
<Width>1pt</Width> </RightBorder> <VerticalAlign>Middle</VerticalAlign> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> </CellContents> </TablixCell> <TablixCell> <CellContents> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> TotItem <Value>=First(Fields!TotItem.Value)</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> TotItem
</Border> <TopBorder> <Color>Black</Color>
<Width>1pt</Width> </TopBorder> <VerticalAlign>Middle</VerticalAlign> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> </CellContents> </TablixCell> </TablixCells> </TablixRow> </TablixRows> </TablixBody> <TablixColumnHierarchy> <TablixMembers> <TablixMember /> <TablixMember /> </TablixMembers> </TablixColumnHierarchy> <TablixRowHierarchy> <TablixMembers> <TablixMember> <KeepWithGroup>After</KeepWithGroup> </TablixMember> <TablixMember> </TablixMember> <TablixMember> <KeepWithGroup>Before</KeepWithGroup> </TablixMember> <TablixMember> <KeepWithGroup>Before</KeepWithGroup> </TablixMember> </TablixMembers> </TablixRowHierarchy> <DataSetName>stp_prt_SpecialPart</DataSetName> <Top>0.12687in</Top> <Left>0.17161in</Left> <Height>1.58173in</Height> <Width>3.6005in</Width>
</Border> <TopBorder> <Color>Black</Color>
<Width>1pt</Width> </TopBorder> <BottomBorder> <Color>Black</Color>
<Width>1pt</Width> </BottomBorder> <LeftBorder> <Color>Black</Color>
<Width>1pt</Width> </LeftBorder> <RightBorder> <Color>Black</Color>
<Width>1pt</Width> </RightBorder> </ReportItems> <KeepTogether>true</KeepTogether> <Top>0.1638in</Top> <Left>3.28643in</Left> <Height>1.7086in</Height> <Width>3.92161in</Width>
</Border> External <Value>=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']}</Value> <Sizing>FitProportional</Sizing> <Top>0.0938cm</Top> <Left>0.25691in</Left> <Height>2.6in</Height> <Width>2.6in</Width> <ZIndex>1</ZIndex>
</Border> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>=First(Fields!CartDtmx.Value)</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> CartDtmx <Top>2.66471in</Top> <Left>0.65256cm</Left> <Height>0.25in</Height> <Width>2.6in</Width> <ZIndex>2</ZIndex>
</Border> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>=Fields!PathImageFull.Value</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> Textbox35 <Top>2.15429in</Top> <Left>3.13018in</Left> <Height>0.25in</Height> <Width>4.1091in</Width> <ZIndex>3</ZIndex> <Visibility> <Hidden>true</Hidden> </Visibility>
</Border> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>=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"</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> Textbox11 <Top>6.46658cm</Top> <Left>7.95066cm</Left> <Height>0.55562cm</Height> <Width>10.35776cm</Width> <ZIndex>4</ZIndex>
</Border> <BottomBorder> <Color>Black</Color>
<Width>1pt</Width> </BottomBorder> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> </ReportItems> <KeepTogether>true</KeepTogether> <Top>0.01993in</Top> <Left>0.00445cm</Left> <Height>2.91471in</Height> <Width>7.37604in</Width> <ZIndex>1</ZIndex>
</Border> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> DocID <Value>=First(Fields!DocID.Value)</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> DueDate <Top>3in</Top> <Left>0.02203cm</Left> <Height>2.96896in</Height> <Width>7.3622in</Width> <ZIndex>2</ZIndex>
</Border> <VerticalAlign>Top</VerticalAlign> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> <TablixBody> <TablixColumns> <TablixColumn> <Width>2.80208in</Width> </TablixColumn> <TablixColumn> <Width>2.90366in</Width> </TablixColumn> </TablixColumns> <TablixRows> <TablixRow> <Height>0.21875in</Height> <TablixCells> <TablixCell> <CellContents> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>=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"</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> Textbox11
</Border> <BottomBorder> <Color>Black</Color>
<Width>1pt</Width> </BottomBorder> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> </CellContents> </TablixCell> <TablixCell> <CellContents> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>Plant destination</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> Textbox12
</Border> <BottomBorder> <Color>Black</Color>
<Width>1pt</Width> </BottomBorder> <LeftBorder> <Color>Black</Color>
<Width>1pt</Width> </LeftBorder> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> </CellContents> </TablixCell> </TablixCells> </TablixRow> <TablixRow> <Height>0.58681in</Height> <TablixCells> <TablixCell> <CellContents> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>=Fields!ItemExtCode.Value</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> ItemExtCode
</Border> <VerticalAlign>Middle</VerticalAlign> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> </CellContents> </TablixCell> <TablixCell> <CellContents> <CanGrow>true</CanGrow> <KeepTogether>true</KeepTogether> <Paragraphs> <Paragraph> <TextRuns> <TextRun> <Value>=Fields!DestPlant.Value</Value>
</TextRun> </TextRuns>
</Paragraph> </Paragraphs> DestPlant
</Border> <LeftBorder> <Color>Black</Color>
<Width>1pt</Width> </LeftBorder> <VerticalAlign>Middle</VerticalAlign> <PaddingLeft>2pt</PaddingLeft> <PaddingRight>2pt</PaddingRight> <PaddingTop>2pt</PaddingTop> <PaddingBottom>2pt</PaddingBottom> </CellContents> </TablixCell> </TablixCells> </TablixRow> </TablixRows> </TablixBody> <TablixColumnHierarchy> <TablixMembers> <TablixMember /> <TablixMember /> </TablixMembers> </TablixColumnHierarchy> <TablixRowHierarchy> <TablixMembers> <TablixMember> <KeepWithGroup>After</KeepWithGroup> </TablixMember> <TablixMember> </TablixMember> </TablixMembers> </TablixRowHierarchy> <DataSetName>stp_prt_SpecialPart</DataSetName> <Top>9.15in</Top> <Left>0.82in</Left> <Height>0.80556in</Height> <Width>5.70574in</Width> <ZIndex>3</ZIndex>
</Border> <TopBorder> <Color>Black</Color>
<Width>1pt</Width> </TopBorder> <BottomBorder> <Color>Black</Color>
<Width>1pt</Width> </BottomBorder> <LeftBorder> <Color>Black</Color>
<Width>1pt</Width> </LeftBorder> <RightBorder> <Color>Black</Color>
<Width>1pt</Width> </RightBorder> </ReportItems> <KeepTogether>true</KeepTogether>
</Border> </CellContents> </TablixCell> </TablixCells> </TablixRow> </TablixRows> </TablixBody> <TablixColumnHierarchy> <TablixMembers> <TablixMember /> </TablixMembers> </TablixColumnHierarchy> <TablixRowHierarchy> <TablixMembers> <TablixMember> <GroupExpressions> <GroupExpression>=Fields!ItemExtCode.Value</GroupExpression> </GroupExpressions> <DataElementOutput>Output</DataElementOutput> <KeepTogether>true</KeepTogether> </TablixMember> </TablixMembers> </TablixRowHierarchy> <DataSetName>stp_prt_SpecialPart</DataSetName> <PageBreak> <BreakLocation>End</BreakLocation> </PageBreak> <Top>0.0093in</Top> <Left>0.00001cm</Left> <Height>9.9907in</Height> <Width>7.37954in</Width>
</ReportItems> <Height>10in</Height>
<Width>7.5in</Width> <Page> <LeftMargin>0.5in</LeftMargin> <RightMargin>0.5in</RightMargin> <TopMargin>0.5in</TopMargin> <BottomMargin>0.5in</BottomMargin>
</Page> <Author>v. 1.3.1</Author> <AutoRefresh>0</AutoRefresh> <DataSources> <DataSourceReference>Sauder_NKC</DataSourceReference> None 7e875094-37e0-46d4-8db0-d51955773fb0 <ConnectionProperties> <DataProvider>SQL</DataProvider> <ConnectString>Data Source=SQL2016PROD;Initial Catalog=Sauder_NKC2_Prod</ConnectString> <IntegratedSecurity>true</IntegratedSecurity> </ConnectionProperties> Integrated 05160673-9ecd-4988-94ad-7181e78f1b58 </DataSources> <DataSets> <Query> <DataSourceName>Sauder_NKC_Test</DataSourceName> <QueryParameters> <Value>=Parameters!CartID.Value</Value> <Value>=Parameters!PathImage.Value</Value> <Value>=Parameters!QRCodeBaseUrl.Value</Value> </QueryParameters> <CommandType>StoredProcedure</CommandType> <CommandText>prt.stp_prt_SpecialPart</CommandText> true </Query> <Fields> <DataField>DocID</DataField> System.String <DataField>DocDtmx</DataField> System.String <DataField>CartDtmx</DataField> System.String <DataField>ItemExtCode</DataField> System.String <DataField>ModelCod</DataField> System.String <DataField>ItemDesc</DataField> System.String <DataField>TotItem</DataField> System.Int32 <DataField>OrdParent</DataField> System.String <DataField>PathImageFull</DataField> System.String <DataField>ReqDate</DataField> System.String <DataField>DestPlant</DataField> System.String <DataField>QRCodeBaseUrl</DataField> System.String <DataField>DueDate</DataField> System.String </Fields> </DataSets> <ReportParameters> <DataType>String</DataType> <Nullable>true</Nullable> <DefaultValue> <Values> </Values> </DefaultValue> <AllowBlank>true</AllowBlank> <Prompt>QRCodeBaseURL:</Prompt> <ValidValues> <ParameterValues> <ParameterValue> <Value>=Nothing Default_Stored </ParameterValue> <ParameterValue> <Value>="https://iis01.egalware.com/zcode/HOME/QR_site/JSON?val={'baseUrl':'{0}','parameters':['QRCODEVALUE']}" https://iis01.egalware.com/zcode </ParameterValue> </ParameterValues> </ValidValues> <DataType>String</DataType> <Nullable>true</Nullable> <DefaultValue> <Values> </Values> </DefaultValue> <AllowBlank>true</AllowBlank> <Prompt>Path Image</Prompt> <ValidValues> <ParameterValues> <ParameterValue> <Value>file:\C:\PROGETTI\REPORTING_2008_SSTD_2010\Sauder\Sauder\ file:\C:\PROGETTI\REPORTING_2008_SSTD_2010\Sauder\Sauder\ </ParameterValue> <ParameterValue> <Value>http://IIS01/NKC/PartsImg/ IIS01 </ParameterValue> <ParameterValue> DEFAUT_Stored </ParameterValue> </ParameterValues> </ValidValues> <DataType>Integer</DataType> <DefaultValue> <Values> <Value>11334 </Values> </DefaultValue> <Prompt>Cart ID</Prompt> </ReportParameters> `Public 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` <Language>en-US</Language> <CodeModules> <CodeModule>System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</CodeModule> <CodeModule>System.Net, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</CodeModule> </CodeModules> <ConsumeContainerWhitespace>true</ConsumeContainerWhitespace> Inch 42b91d77-5259-4b9b-b313-695cd28dd977