codice:
Private Function BuildPDF(ByVal ID_Rapporto As Integer) As String
Dim mydoc As sharpPDF.pdfDocument
Dim mypage As sharpPDF.pdfPage
Dim mytable As sharpPDF.Tables.pdfTable
Dim myrow As sharpPDF.Tables.pdfTableRow
Dim myString As String
Dim mySQL As String
Dim i As Integer
Dim dbRs As ADODB.Recordset
Dim dbRsx As ADODB.Recordset
dbRs = New ADODB.Recordset
dbRsx = New ADODB.Recordset
mySQL = "SELECT * FROM rapporti WHERE Id_Rapporto = " & ID_Rapporto
dbRs.Open(mySQL, dbConn)
mySQL = "SELECT * FROM rapportiarticoli WHERE Id_Rapporto = " & ID_Rapporto
dbRsx.Open(mySQL, dbConn)
mydoc = New sharpPDF.pdfDocument("- Rapporto di non conformita'", "AAA")
mypage = mydoc.addPage(predefinedPageSize.csA4Page)
mydoc.addImageReference("c:\inetpub\wwwroot\Styles\Default\images\logo.gif", "logo")
mypage.addImage(mydoc.getImageReference("logo"), 46, 775)
mypage.addText("Rapporto di non conformita'", 398, 796, mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
mypage.addText("Numero:", 460, 782, mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
mypage.addText(dbRs.Fields("Numero").Value, 505, 782, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
mypage.addText("Fornitore:", 46, 740, mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
mypage.addText(dbRs.Fields("RagioneSociale").Value, 110, 740, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
mypage.addText("DDT Nr:", 46, 720, mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
mypage.addText(dbRs.Fields("DDT").Value, 110, 720, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
mypage.addText("Azione Intrapresa / Stato CQ:", 257, 720, mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
mypage.addText(dbRs.Fields("AzioneIntrapresa").Value, 400, 720, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
mytable = New sharpPDF.Tables.pdfTable(mydoc, 0, sharpPDF.pdfColor.White, 2)
mytable.tableHeader.addColumn(60, predefinedAlignment.csLeft)
mytable.tableHeader.addColumn(370, predefinedAlignment.csLeft)
mytable.tableHeader.addColumn(40, predefinedAlignment.csRight)
mytable.tableHeader.addColumn(40, predefinedAlignment.csRight)
mytable.tableHeader(0).addText("Articolo", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
mytable.tableHeader(1).addText("Descrizione", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
mytable.tableHeader(2).addText("Qtà", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
mytable.tableHeader(3).addText("Lotto", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
Do While Not dbRsx.EOF
myrow = mytable.createRow()
myrow(0).addText(dbRsx.Fields("Articolo").Value, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
myrow(1).addText(dbRsx.Fields("Descrizione").Value, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
myrow(2).columnAlign = predefinedAlignment.csRight
myrow(2).addText(dbRsx.Fields("Qta").Value, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
myrow(3).columnAlign = predefinedAlignment.csRight
myrow(3).addText(dbRsx.Fields("TotaleLotto").Value, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
mytable.addRow(myrow)
dbRsx.MoveNext()
Loop
dbRsx.Close()
dbRsx = Nothing
myrow = mytable.createRow()
myrow(0).addText("")
mytable.addRow(myrow)
myrow = mytable.createRow()
myrow(0).addText("")
mytable.addRow(myrow)
myrow = mytable.createRow()
myrow(1).columnAlign = predefinedAlignment.csCenter
myrow(1).addText("Descrizione della non conformita'", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
mytable.addRow(myrow)
myString = dbRs.Fields("Descrizione").Value
myrow = mytable.createRow()
myrow(1).addParagraph(myString, mydoc.getFontReference(predefinedFont.csHelvetica), 10, 10, 370, predefinedAlignment.csLeft)
mytable.addRow(myrow)
myrow = mytable.createRow()
myrow(0).addText("")
mytable.addRow(myrow)
myrow = mytable.createRow()
myrow(1).columnAlign = predefinedAlignment.csCenter
myrow(1).addText("Proposta di azioni successive", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
mytable.addRow(myrow)
myString = dbRs.Fields("Proposta").Value
myrow = mytable.createRow()
myrow(1).addParagraph(myString, mydoc.getFontReference(predefinedFont.csHelvetica), 10, 10, 370, predefinedAlignment.csLeft)
mytable.addRow(myrow)
myrow = mytable.createRow()
myrow(0).addText("")
mytable.addRow(myrow)
myrow = mytable.createRow()
myrow(0).addText("")
mytable.addRow(myrow)
Dim nuovaData As String
nuovaData = Day(dbRs.Fields("Data").Value) & "/" & Month(dbRs.Fields("Data").Value) & "/" & Year(dbRs.Fields("Data").Value)
myrow = mytable.createRow
myrow(0).columnAlign = predefinedAlignment.csRight
myrow(0).addText("Data:", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
'myrow(1).addText(FormatDateTime(dbRs.Fields("Data").Value, DateFormat.ShortDate), mydoc.getFontReference(predefinedFont.csHelvetica), 10)
myrow(1).addText(nuovaData, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
mytable.addRow(myrow)
myrow = mytable.createRow
myrow(0).columnAlign = predefinedAlignment.csRight
myrow(0).addText("Resp:", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
myrow(1).addText(dbRs.Fields("Responsabile").Value, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
mytable.addRow(myrow)
mytable.coordX = 46
mytable.coordY = 700
mypage.addTable(mytable)
myString = dbRs.Fields("Fornitore").Value & "-" & dbRs.Fields("Numero").Value
myString = Replace(myString, "/", "")
myString = myString & ".pdf"
mydoc.createPDF("c:\inetpub\wwwroot\Village\BackOffice\Rapporti\Files\PDF\" & myString)
mydoc.createPDF("c:\Village\Allegato\" & myString)
dbRs.Close()
myrow = Nothing
mytable = Nothing
mypage = Nothing
mydoc = Nothing
dbRs = Nothing
BuildPDF = myString
End Function