<% '***************************************************************************** '* funzione di formattazione * '***************************************************************************** Function formattaData(numero) gg = Right(numero,2) aaaa = Left(numero,4) mm = Mid(numero,5,2) if not ((mm = "10") or (mm = "11") or (mm = "12")) then mm = Right(mm,1) end if Select case mm case "1" mese = "Gennaio" case "2" mese = "Febbraio" case "3" mese = "Marzo" case "4" mese = "Aprile" case "5" mese = "Maggio" case "6" mese = "Giugno" case "7" mese = "Luglio" case "8" mese = "Agosto" case "9" mese = "Settembre" case "10" mese = "Ottobre " case "11" mese = "Novembre" case "12" mese = "Dicembre" end select data = gg & " " & mese & " " & aaaa formattaData = data end function %> <% '***************************************************************************** '* Step 0.1: Acquisisco i parametri * '***************************************************************************** idGiorno = Request("idGiorno") idProdottoFinito = Request("idProdottoFinito") inf = Request("inf") sup = Request("sup") '***************************************************************************** '* Step 0.1: Vado a vedere a che lotto di produzione corrisponde * '***************************************************************************** Set rs=Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = connDB strSql = "SELECT tblRegistro.lottoProdottoFinito FROM tblRegistro WHERE tblRegistro.idGiorno = " & idGiorno & ";" rs.Open strSql if not rs.EOF then lottoProdottoFinito = rs("lottoProdottoFinito") end if rs.Close Set rs = nothing '***************************************************************************** '* Step 1: Vedo il nome del prodotto selezionato * '***************************************************************************** Set rs=Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = connDB strSql = "SELECT tblProdottiFiniti.idProdottoFinito, tblProdottiFiniti.denominazioneProdottoFinito, tblProdottiFiniti.dataCreazione FROM tblProdottiFiniti WHERE tblProdottiFiniti.idProdottoFinito = " & idProdottoFinito & ";" rs.Open strSql if not rs.EOF then denominazioneProdottoFinito = rs("denominazioneProdottoFinito") dataCreazione = rs("dataCreazione") end if rs.Close Set rs = nothing 'response.write idGiorno & " - " & idProdottoFinito & " - " & inf & " - " & sup %>

Il Forno di Mauro Passagrilli Data:  <%=formattaData(idGiorno)%>  Lotto prodotto finito N:  <%=lottoProdottoFinito%>  Prodotto finito:  <%=denominazioneProdottoFinito%> - Data creazione ricetta:  <%=FormattaData(dataCreazione)%>	Stampa pagina
<% '***************************************************************************** '* Step 3: Visualizzo la lista degli ingredienti * '***************************************************************************** i = 1 strSql = "SELECT tblIngredienti.denominazioneIngrediente, tblIngredienti.idIngrediente, tblProdottiFiniti.idProdottoFinito FROM tblIngredienti INNER JOIN (tblProdottiFiniti INNER JOIN tblProdottiFiniti_Ingredienti ON tblProdottiFiniti.idProdottoFinito = tblProdottiFiniti_Ingredienti.idProdottoFinito) ON tblIngredienti.idIngrediente = tblProdottiFiniti_Ingredienti.idIngrediente WHERE (((tblProdottiFiniti.idProdottoFinito)=" & idProdottoFinito & "));" Set rs=Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = connDB rs.Open strSql Do while not rs.EOF idIngrediente = rs("idIngrediente") denominazioneIngrediente = rs("denominazioneIngrediente") %> <% rs.MoveNext i = i + 1 Loop rs.Close Set rs = nothing %> Ingrediente Materia Prima <%=denominazioneIngrediente%> <% '***************************************************************************** '* Step 4: Controllo se ad un ingrediente corrispondono più MP * '***************************************************************************** strSql2 = "SELECT tblFinale.idProdottoFinito, tblFinale.idGiorno, tblIngredienti.idIngrediente, tblIngredienti.denominazioneIngrediente, tblMateriePrime.idMateriaPrima, tblMateriePrime.dataFineUso, tblMateriePrime.lotto, tblMateriePrime.dataProduzione, tblMateriePrime.dataScadenza FROM (tblFinale INNER JOIN tblMateriePrime ON tblFinale.idMateriaPrima = tblMateriePrime.idMateriaPrima) INNER JOIN tblIngredienti ON tblMateriePrime.idIngrediente = tblIngredienti.idIngrediente WHERE (((tblFinale.idProdottoFinito)="&idProdottoFinito&") AND ((tblFinale.idGiorno)="&idGiorno&") AND ((tblIngredienti.idIngrediente)="&idIngrediente&") AND ((tblMateriePrime.dataFineUso)<="&idGiorno&") AND ((tblMateriePrime.dataInizioUso)>0));" Set rs5=Server.CreateObject("ADODB.RecordSet") rs5.ActiveConnection = connDB rs5.CursorType = adOpenKeySet rs5.Open strSql2 conteggio = rs5.RecordCount if conteggio > 1 then ctrl = 2 else if conteggio = 1 then ctrl = 1 else ctrl = 0 end if end if rs5.Close Set rs5 = nothing if ctrl = 0 then response.write " " else if ctrl = 1 then 'Eseguo la query normalmente e faccio vedere la lista degli ingredienti con associata la materia prima '***************************************************************************** '* Step 5: Se n = 1 allora visualizzo il nome della Materia Prima * '***************************************************************************** Set rs2=Server.CreateObject("ADODB.RecordSet") rs2.ActiveConnection = connDB rs2.Open strSql2 Do while not rs2.EOF lotto = rs2("lotto") dataProduzione = rs2("dataProduzione") dataScadenza = rs2("dataScadenza") idMateriaPrima = rs2("idmateriaPrima") rs2.MoveNext Loop rs2.Close Set rs2 = nothing if (isnull(lotto) or (lotto = "") or (lotto = null)) then if dataScadenza = 0 then if dataProduzione = 0 then response.write " " else produzione = formattaData(dataProduzione) response.write "data produzione: " & produzione end if else scadenza = formattaData(dataScadenza) response.write "data scadenza: " & scadenza end if else response.write "lotto n.: " & lotto end if else %> <% '******************************************************************************************************** '* Step 6: Se n > 1 allora visualizzo il nome delle due Materie Prime con la possibilità di cancellare * '******************************************************************************************************** Set rs2=Server.CreateObject("ADODB.RecordSet") rs2.ActiveConnection = connDB rs2.Open strSql2 Do while not rs2.EOF lotto = rs2("lotto") dataProduzione2 = rs2("dataProduzione") dataScadenza2 = rs2("dataScadenza") idMateriaPrima = rs2("idmateriaPrima") if (isnull(lotto) or (lotto = "") or (lotto = null)) then if dataScadenza2 = 0 then if dataproduzione2 = 0 then response.write " " else dataProduzione2 = formattaData(dataProduzione2) output = "data produzione: " & dataProduzione2 end if else dataScadenza2 = formattaData(dataScadenza2) output = "data scadenza: " & dataScadenza2 end if else output = "lotto n.: " & lotto end if %> <% rs2.MoveNext Loop rs2.Close Set rs2 = nothing %> <%=output%> <% end if end if %>

<% connDB.Close Set connDB = nothing %>