"
response.Write" "
response.Write"
"
rs.movenext
wend
End Function
Function StickyNoteJavaWorks()
sSql="SELECT LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND FROM LAB WHERE LABDATEEND IS NULL OR LABDATESTART>#5/8/2017# GROUP BY LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND ORDER BY LABDATEEND DESC"
if request.Form("date")<>"" then
sSql="SELECT LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND FROM LAB WHERE MONTH(LABDATESTART)="&month(request.Form("date"))&" AND YEAR(LABDATESTART)="&year(request.Form("date"))&" GROUP BY LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND ORDER BY LABDATEEND "
end if
if request.Form("QUICK")<>"" then
sSql="SELECT LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND FROM LAB WHERE LABPATIENT LIKE '%"&replace(request.Form("QUICK")," ","%")&"%' or LABMEDIC LIKE '%"&replace(request.Form("QUICK")," ","%")&"%' GROUP BY LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND ORDER BY LABDATEEND "
end if
Set rs = Conn.Execute(sSql)
while not rs.eof
response.Write"var mysticky"&rs("LABWORKCOD")&"=new stickynote({ "
response.Write"content:{divid:'stickynote"&rs("LABWORKCOD")&"', source:'inline'}, "
response.Write"hidebox:0, "
if ""&request.Form("CODWORK")&""=""&rs("LABWORKCOD")&"" or ""&request.Form("deleteWorkCod")&""=""&rs("LABWORKCOD")&"" then
response.Write"showfrequency:'always' "
else
response.Write"showfrequency:'never' "
end if
response.Write"}); "
rs.movenext
wend
End function
Function StickyNoteWindowsWorks()
sSql="SELECT LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND FROM LAB WHERE LABDATEEND IS NULL OR LABDATESTART>#5/8/2017# GROUP BY LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND ORDER BY LABDATEEND DESC"
if request.Form("date")<>"" then
sSql="SELECT LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND FROM LAB WHERE MONTH(LABDATESTART)="&month(request.Form("date"))&" AND YEAR(LABDATESTART)="&year(request.Form("date"))&" GROUP BY LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND ORDER BY LABDATEEND "
end if
if request.Form("QUICK")<>"" then
sSql="SELECT LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND FROM LAB WHERE LABPATIENT LIKE '%"&replace(request.Form("QUICK")," ","%")&"%' or LABMEDIC LIKE '%"&replace(request.Form("QUICK")," ","%")&"%' GROUP BY LABWORKCOD, LABCOMPANY, LABPATIENT, LABMEDIC, LABDATESTART, LABDATEUPDATE, LABDATEEND ORDER BY LABDATEEND "
end if
Set rs = Conn.Execute(sSql)
while not rs.eof
response.Write""&rs("LABCOMPANY")&"
"
response.Write""&rs("LABPATIENT")&"
"
response.Write""&rs("LABMEDIC")&"
"
sSql = "SELECT SUM(LABPRICE) AS WorkPriceTotal FROM LAB WHERE LABWORKCOD="&rs("LABWORKCOD")&" "
Set rs1 = Conn.Execute(sSql)
response.Write""&formatCurrency(rs1("WorkPriceTotal"))&"
"
response.Write""&day(rs("LABDATESTART"))&"/"&month(rs("LABDATESTART"))&"
"
if rs("LABDATEEND")<>"" then response.Write""&day(rs("LABDATEEND"))&"/"&month(rs("LABDATEEND"))&"
"
response.Write""
response.Write""
response.Write" "
Set rs1 = Conn.Execute("SELECT ClientCompany, ClientLocal FROM CLIENTS WHERE ClientCompanyShort='"&rs("LABCOMPANY")&"' ")
response.Write"
"
rs.movenext
wend
End function
if request.Form("INSERT")<>"" then
Set rs = Conn.Execute("SELECT * FROM CLIENTS WHERE ClientID="&request.Form("COMPANY")&" ")
Company=rs("ClientCompanyShort")
CompanyLocal=rs("ClientLocal")
Set rs = Conn.Execute("SELECT LABWORKCOD FROM LAB ORDER BY LABWORKCOD DESC")
WorkCod=rs("LABWORKCOD")+1
sSql = "INSERT INTO LAB ( LABUSER, LABWORKCOD, LABCOMPANY, LABLOCAL, LABPATIENT,LABMEDIC, LABPRICE, LABDATESTART, LABDATEUPDATE)"
sSql = sSql & " VALUES ('"&session("NAME")
sSql = sSql & "', "&WorkCod
sSql = sSql & ", '"&Company
sSql = sSql & "', '"&CompanyLocal
sSql = sSql & "', '"&request.Form("NAME")
sSql = sSql & "', '"&request.Form("MEDIC")
sSql = sSql & "', 0"
sSql = sSql & ", '"&request.Form("DATESTART")
sSql = sSql & "', '"&now()
sSql = sSql & "')"
Conn.Execute(sSql)
End if
if request.Form("CODWORK")<>"" then
Set rs = Conn.Execute("SELECT * FROM LAB WHERE LABWORKCOD="&request.Form("CODWORK")&" ")
ClientCompany=rs("LABCOMPANY")
ClientLocal=rs("LABLOCAL")
ClientName=rs("LABPATIENT")
ClientMedic=rs("LABMEDIC")
ClientStart=rs("LABDATESTART")
if ClientCompany="CSB" then
Set rs = Conn.Execute("SELECT * FROM TabWorks WHERE WorkDesc='"&request.Form("WORK")&"' ")
ClientWorkPrice=rs("WorkPriceCSB")
ClientWorkPriceWorker=rs("WorkPriceCSBJarbas")
else
Set rs = Conn.Execute("SELECT * FROM TabWorks WHERE WorkDesc='"&request.Form("WORK")&"' ")
ClientWorkPrice=rs("WorkPrice")
ClientWorkPriceWorker=rs("WorkPriceJarbas")
end if
Set rs = Conn.Execute("SELECT COUNT(*) As CONTA FROM LAB WHERE LABWORKCOD="&request.Form("CODWORK")&" AND LABWORK IS NULL ")
'response.write rs("CONTA")&""
response.Write"![]()
"
response.Write"
"
response.Write""
response.Write "![]()
Clinica "&rs1("ClientCompany")&" "&rs1("ClientLocal")
response.Write"
"
response.Write""
response.Write "![]()
"&rs("LABPATIENT")
response.Write"
"
response.Write""
response.Write "![]()
"&rs("LABMEDIC")
response.Write"
"
response.Write""
response.Write "![]()
"&rs("LABDATESTART")
response.Write"
"
TotalWorks=0
sSql = "SELECT * FROM LAB WHERE LABWORKCOD="&rs("LABWORKCOD")&" "
Set rs1 = Conn.Execute(sSql)
while not rs1.eof
dateWork=day(rs1("LABDATEWORK"))&"/"&month(rs1("LABDATEWORK"))&"/"&year(rs1("LABDATEWORK"))
response.Write""
response.Write"
"
TotalWorks=TotalWorks+rs1("LABPRICE")
rs1.movenext
wend
response.Write""
response.Write ""&rs1("LABWORK")
response.Write"
"
response.Write""&formatCurrency(rs1("LABPRICE"))&"
"
response.Write""&dateWork&"
"
response.Write " "
response.Write ""
response.Write "
"
response.Write""
response.Write"
"
response.Write""
response.Write ""
response.Write"Total:
"
response.Write""
response.Write""&formatCurrency(TotalWorks)&"
"
response.Write""
response.Write"
"
response.Write""
response.Write"Data Conclusão
"
response.Write "" if rs("CONTA")<>"0" Then sSql = "UPDATE LAB SET" sSql = sSql & " [LABUSER] = '"&SESSION("NAME") sSql = sSql & "', [LABWORK] = '"&request.Form("WORK") sSql = sSql & "', [LABPRICE]="&replace(ClientWorkPrice,",", ".") sSql = sSql & ", [LABPRICEWORKER]="&replace(ClientWorkPriceWorker,",", ".") sSql = sSql & ", [LABDATEWORK]='"&now() sSql = sSql & "', [LABDATEUPDATE]='"&now()&"'" sSql = sSql & " WHERE LABWORKCOD="&request.Form("CODWORK")&"" Conn.Execute(sSql) 'response.write sSql&"
" else sSql = "INSERT INTO LAB ( LABUSER, LABWORKCOD, LABCOMPANY, LABLOCAL, LABPATIENT, LABMEDIC, LABWORK, LABPRICE, LABPRICEWORKER, LABDATEWORK, LABDATESTART, LABDATEUPDATE)" sSql = sSql & " VALUES ('" &SESSION("NAME") sSql = sSql & "', "&request.Form("CODWORK") sSql = sSql & ", '"&ClientCompany sSql = sSql & "', '"&ClientLocal sSql = sSql & "', '"&ClientName sSql = sSql & "', '"&ClientMedic sSql = sSql & "', '"&request.Form("WORK") sSql = sSql & "', "&replace(ClientWorkPrice,",", ".") sSql = sSql & ", "&replace(ClientWorkPriceWorker,",", ".") sSql = sSql & ", '"&now() sSql = sSql & "', '"&ClientStart sSql = sSql & "', '"&now() sSql = sSql & "')" Conn.Execute(sSql) 'response.write sSql&"
" sSql = "UPDATE LAB SET" sSql = sSql & "[LABDATEUPDATE]='"&now()&"'" sSql = sSql & " WHERE LABWORKCOD="&request.Form("CODWORK")&" " Conn.Execute(sSql) 'response.write sSql&"
" end if End if if request.Form("deleteWorkId")<>"" then Set rs = Conn.Execute("SELECT COUNT(*) As CONTA FROM LAB WHERE LABWORKCOD="&request.Form("deleteWorkCod")&" ") If rs("CONTA")="1" Then sSql = "UPDATE LAB SET" sSql = sSql & " [LABWORK]=NULL" sSql = sSql & ", [LABPRICE]=0" sSql = sSql & ", [LABDATEWORK]=NULL" sSql = sSql & ", [LABDATEUPDATE]='"&now()&"'" sSql = sSql & " WHERE LABWORKCOD="&request.Form("deleteWorkCod")&"" Conn.Execute(sSql) else Set rs = Conn.Execute("DELETE FROM LAB WHERE LABID="&request.Form("deleteWorkId")&" ") end if end if if request.Form("CODWORKEND")<>"" then sSql = "UPDATE LAB SET" sSql = sSql & " [LABDATEEND]='"&request.Form("DATEWORKEND")&"'" sSql = sSql & " WHERE LABWORKCOD="&request.Form("CODWORKEND")&"" Conn.Execute(sSql) end if Function TabCompanys() Set rs = Conn.Execute("SELECT * FROM CLIENTS ") while not rs.EOF response.Write"" rs.MoveNext wend End function Function TabProsthesis() Set rs = Conn.Execute("SELECT * FROM TabProstheses ") while not rs.EOF response.Write"" rs.MoveNext wend End function 'response.write "work ->"&request.Form("WORK")&"
" 'response.write request.Form("COMPANY")&"
" 'response.write request.Form("NAME")&"
" 'response.write request.Form("JAW")&" "&request.Form("PROSTHESIS")&"
" %>
Adicionar Trabalho
<%=TableLabWorks()%>
