<%if session("USER")<>"joaoalberto@pc" and session("USER")<>"pedromatos@AM098" and session("ECONOMATO")<>TRUE then response.Redirect("main.asp")%> <% data=date if request.Form("DATE")="" then ConsumableMonth=dateAdd("m",-7,date) else ConsumableMonth=request.Form("DATE") if request.Form("printer")="" then ConsumableDevice="grd-mm-vendas" else ConsumableDevice=request.Form("printer") ConsumableMonthGrafic = ConsumableMonth'dateAdd("m",-7,ConsumableMonth) Function TableConsumablesWorker() sSql = "SELECT * FROM CONSUMIVEIS WHERE USER='"&session("USER")&"' AND DATA_CONSUMIVEL>=#"&Month(ConsumableMonthGrafic)&"/"&Year(ConsumableMonthGrafic)&"# ORDER BY DATA_CONSUMIVEL DESC" Set rs = Conn.Execute(sSql) response.Write"

" response.Write"

" response.Write"ID" response.Write"

" response.Write"

" response.Write"Data" response.Write"

" response.Write"

" response.Write"User" response.Write"

" response.Write"

" response.Write"Impressora" response.Write"

" response.Write"

" response.Write"Dispositivo" response.Write"

" response.Write"

" while not rs.eof response.Write"" response.Write"

" response.Write"

" response.Write rs("IDCONSUMIVEL") response.Write"

" response.Write"

" response.Write left(rs("DATA_CONSUMIVEL"),10) response.Write"

" response.Write"

" sSql = "SELECT NAME FROM USERS WHERE USERNAME='"&rs("USER")&"' " Set rs1 = Conn.Execute(sSql) response.Write rs1("NAME") response.Write"

" response.Write"

" response.Write rs("IMPRESSORA") response.Write"

" response.Write"

" response.Write rs("DISPOSITIVO") response.Write"

" response.Write"

" response.Write"" response.Write"

" rs.movenext wend End function Function StickyNoteJavaConsumableWorker() sSql = "SELECT * FROM CONSUMIVEIS WHERE '"&session("USER")&"' AND DATA_CONSUMIVEL>=#"&Month(ConsumableMonthGrafic)&"/"&Year(ConsumableMonthGrafic)&"#" Set rs = Conn.Execute(sSql) while not rs.eof response.Write"var mysticky"&rs("IDCONSUMIVEL")&"=new stickynote({ " response.Write"content:{divid:'stickynote"&rs("IDCONSUMIVEL")&"', source:'inline'}, " response.Write"hidebox:0, " response.Write"showfrequency:'never' " response.Write"}); " rs.movenext wend End function Function StickyNoteWindowsConsumableWorker() sSql = "SELECT * FROM CONSUMIVEIS WHERE '"&session("USER")&"' AND DATA_CONSUMIVEL>=#"&Month(ConsumableMonthGrafic)&"/"&Year(ConsumableMonthGrafic)&"#" Set rs = Conn.Execute(sSql) while not rs.eof response.Write"

" response.Write"

" response.Write"" response.Write"

" response.Write"

Consumivel - Pedido

" response.Write"

" response.Write"Data "&rs("DATA_CONSUMIVEL")&"

" response.Write"

User: "&rs("USER")&"

" response.Write"

Empresa: "&rs("EMPRESA")&"

" response.Write"

Concessão: "&rs("LOCAL")&"

" response.Write"

Departamento: "&rs("DEPARTAMENTO")&"

" response.Write"

DISPOSITIVO: "&rs("DISPOSITIVO")&"

" response.Write"

" rs.movenext wend End function if request.Form("copies")<>"" then sSql = "SELECT IDCONSUMIVEL FROM CONSUMIVEIS ORDER BY IDCONSUMIVEL DESC" Set rs = Conn.Execute(sSql) idconsumivel=rs("IDCONSUMIVEL") sSql = "SELECT * FROM PRINTERS WHERE PRINTER_NAME='"&request.form("PRINTER")&"'" Set rs = Conn.Execute(sSql) device=rs("PRINTER_BRAND")&" "&rs("PRINTER_MODEL") valor=rs("PRINTER_VALOR") PrinterAdress=rs("PRINTER_ADRESS") sSql = "INSERT INTO CONSUMIVEIS ([IDCONSUMIVEL], [USER], [EMPRESA], [IMPRESSORA], [DISPOSITIVO], [CONTADOR], [DATA_CONSUMIVEL], [VALOR], [OBSERVACOES]) VALUES ( " sSql=sSql & idconsumivel+1&", " sSql=sSql & "'"&session("USER")&"', " sSql=sSql & "'"&request.form("COMPANY")&"', " sSql=sSql & "'"&request.form("PRINTER")&"', " sSql=sSql & "'"&device&" "&request.Form("consumable")&"', " sSql=sSql & ""&request.form("COPIES")&", " sSql=sSql & "'"&now()&"', " sSql=sSql & ""&valor&", " sSql=sSql & "'"&request.form("observation")&"' " sSql=sSql & ")" Conn.Execute(sSql) sHTML = "" sHTML = sHTML & "

" sHTML = sHTML & "Portal
" sHTML = sHTML & "Grupo A MatosCar

" sHTML = sHTML & "

" sHTML = sHTML & "O Grupo A MatosCar solicita um consumivel com os seguintes dados:

" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "

Pedido:	"&idconsumivel+1&"
Empresa:	"&request.form("COMPANY")&"
Morada:	"&PrinterAdress&"
Consumivel:	"&device&" "&request.Form("consumable")&"
Colaborador:	"&session("NAME")&"
Nº Copias:	"&request.form("COPIES")&"

" sHTML = sHTML & "

Melhores Cumprimentos,

" sHTML = sHTML & " Grupo A MatosCar

" Set MailPrint = CreateObject("CDO.Message") MailPrint.Subject="Pedido de Consumivel" MailPrint.Sender = "Portal Grupo A MatosCar" MailPrint.From = "Portal Grupo A MatosCar" 'MailPrint.To = "joaoalberto@amatoscar.pt;" MailPrint.To = "geral@printalentejo.pt" MailPrint.Cc = "norberto.lobo@printalentejo.pt;luis.murteira@printalentejo.pt;joaoalberto@amatoscar.pt" MailPrint.Bcc = "miguelrasquinho@amatoscar.pt;nelsongoncalves@amatoscar.pt;andretavares@amatoscar.pt" MailPrint.HTMLBody = sHTML & "" sHTML = "" MailPrint.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 MailPrint.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" MailPrint.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 MailPrint.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 MailPrint.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 MailPrint.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 MailPrint.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "noreply.amatoscar@gmail.com" MailPrint.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "amatoscar1986" MailPrint.Configuration.Fields.Update MailPrint.Send Set MailPrint = Nothing Set sHTML = Nothing end if %>

<%=TableConsumablesWorker()%>

Consumível - Pedido

<%=StickyNoteWindowsConsumableWorker()%>