{"text_format":"1","workbook":"xlsx","n_sheets":5,"sheets":["Analitico","Banco_de_Dados","Preenchimento","APOIO","Código"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":1,"pivot_tables":1},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Analitico","index":0,"n_rows":21,"n_cols":9,"rows_kept":21,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[null,null,"Produto de Data do Vencimento:",null,null,"O que foi verificado:"]
[null,null,"ID","Nome Responsavel do PA:","PA:","03.AVCB","04.Dedetização","01.Extintor","02.Manut. Ar Condicionado"]
[null,null,1,"Flávio",0,null,null,"2023-05-19"]
[null,null,2,"Valcir",1,null,"2023-05-12"]
[null,null,3,"Valcir",1,null,null,null,"2023-05-12"]
[null,null,4,"Valcir",1,null,null,null,"2023-05-12"]
[null,null,5,"Jeiser",2,null,null,"2023-05-19"]
[null,null,6,"Jovino",3,null,"2023-09-25"]
[null,null,7,"Valcir",1,"2023-05-18"]
[null,null,8,"Valcir",1,null,null,"2023-05-18"]

{"sheet":"Banco_de_Dados","index":1,"n_rows":96,"n_cols":14,"rows_kept":96,"cut":false,"hidden":false,"merged":[]}
["ID","Usuário","Data do Preenchimento:","PA:","Nome Responsavel do PA:","O que foi verificado:","Data do Vencimento:","Validade (em Dias)","Mensagem","Status","Dias de atraso ou no prazo","Status - Oculto"]
[{"$f":"IF($C2=\"\",\"\",1)","v":1},"flavior.ribeiro@sicoob.com.br","2023-04-29",0,"Flávio","01.Extintor","2023-05-19",{"$f":"IF($F2=\"\",\"\",IF(OR($F2=\"01.EXTINTOR\",$F2=\"04.Dedetização\"),180,IF($F2=\"03.AVCB\",360,IF($F2=\"02.Manut. Ar Condicionado\",90,\"\"))))","v":180},{"$f":"IF($F2=\"\",\"\",IF($G2<TODAY(),\"O(A) \"&$F2&\" está vencido(a) à \"&TODAY()-$G2&\" dia(s).\",IF($G2>TODAY(),\"Falta(m) \"&(TODAY()-$G2)*-1&\" para o(a) vencimento(a) do (a) \"&$F2,IF($G2=TODAY(),\"O(A) \"&$F2&\" está vencendo hoje!!!\"))))","v":"O(A) 01.Extintor está vencido(a) à 2 dia(s)."},{"$f":"IF($G2=\"\",\"\",IF(AND(TODAY()-$G2>=0,TODAY()-$G2<=7),\"Vencida ou a vencer\",IF(TODAY()-$G2>=0,\"Vencida ou a vencer\",\"Em andamento\")))","v":"Vencida ou a vencer"},{"$f":"IF($G2=\"\",\"\",TODAY()-$G2)","v":2},null,null,"EXTINTOR"]
[{"$f":"IFERROR(A2+1,\"\")","v":2},"flavior.ribeiro@sicoob.com.br","2023-05-14",1,"Valcir","04.Dedetização","2023-05-12",180,"O(A) 04.Dedetização está vencido(a) à 9 dia(s).","Vencida ou a vencer",9,null,null,"Manut. Ar Condicionado"]
[{"$f":"IFERROR(A3+1,\"\")","v":3},"flavior.ribeiro@sicoob.com.br","2023-05-12",1,"Valcir","02.Manut. Ar Condicionado","2023-05-12",90,"O(A) 02.Manut. Ar Condicionado está vencido(a) à 9 dia(s).","Vencida ou a vencer",9,null,null,"AVCB"]
[4,"flavior.ribeiro@sicoob.com.br","2023-05-12",1,"Valcir","02.Manut. Ar Condicionado","2023-05-12",90,"O(A) 02.Manut. Ar Condicionado está vencido(a) à 9 dia(s).","Vencida ou a vencer",9,null,null,"Dedetização"]
[5,"flavior.ribeiro@sicoob.com.br","2023-02-01",2,"Jeiser","01.Extintor","2023-05-19",180,"O(A) 01.Extintor está vencido(a) à 2 dia(s).","Vencida ou a vencer",2]
[6,"flavior.ribeiro@sicoob.com.br","2023-05-17",3,"Jovino","04.Dedetização","2023-09-25",180,"Falta(m) 127 para o(a) vencimento(a) do (a) 04.Dedetização","Em andamento",-127]
[7,"flavior.ribeiro@sicoob.com.br","2023-05-17",1,"Valcir","03.AVCB","2023-05-18",360,"O(A) 03.AVCB está vencido(a) à 3 dia(s).","Vencida ou a vencer",3]
[8,"flavior.ribeiro@sicoob.com.br","2023-04-12",1,"Valcir","01.Extintor","2023-05-18",180,"O(A) 01.Extintor está vencido(a) à 3 dia(s).","Vencida ou a vencer",3]
[9,null,null,null,"",null,null,"","","","",{"$f":"IF($G46=\"\",\"\",TODAY()-G46)","v":""}]
[10]
[11]
[12]
[13]
[14]
[15]
[16]
[17]
[18]
[19]
[20]
[21]
[22]
[23]
[24]
[25]
[26]
[27,{"$f":"IF($C28=\"\",\"\",\"flavior.ribeiro@sicoob.com.br\")","v":""}]
[28]
[29]
[30,{"$f":"IF($C31=\"\",\"\",\"flavior.ribeiro@sicoob.com.br\")","v":""}]
[31]
[32]
[33]
[34]
[35]
[36]
[37]
[38]
[39]
[40]
[41]
[42]
[43]
[44]
[45,null,null,null,null,null,null,{"$f":"IF($F46=\"\",\"\",IF(OR($F46=\"01.EXTINTOR\",$F46=\"02.Dedetização\"),180,IF($F46=\"03.AVCB\",360,IF($F46=\"04.Manut. Ar Condicionado\",90,\"\"))))","v":""},{"$f":"IF($F46=\"\",\"\",IF($G46<TODAY(),\"O(A) \"&$F46&\" está vencido(a) à \"&TODAY()-$G46&\" dia(s).\",IF($G46>TODAY(),\"Falta(m) \"&(TODAY()-$G46)*-1&\" para o(a) vencimento(a) do (a) \"&$F46,IF($G46=TODAY(),\"O(A) \"&$F46&\" está vencendo hoje!!!\"))))","v":""},{"$f":"IF(G46=\"\",\"\",IF(AND(TODAY()-G46>=-7,TODAY()-G46<=0),\"Concluído\"&$K46,\"Em andamento\"))","v":""}]
[46]
[47]
[48]
[49]
[50]
[51]
[52]
[53]
[54]
[55]
[56]
[57]
[58]
[59]
[60]
[61]
[62]
[63]
[64]
[65]
[66]
[{"$f":"IFERROR(A67+1,\"\")","v":67}]
[68]
[69]
[70]
[71]
[72]
[73]
[74]
[75]
[76]
[77]
[78]
[79]
[80]
[81]
[82]
[83]
[84]
[85]
[86]
[87]
[88]
[89]
[90]
[91]
[92]
[93]
[94]
[95]

{"sheet":"Preenchimento","index":2,"n_rows":10,"n_cols":8,"rows_kept":10,"cut":false,"hidden":false,"merged":[]}
[{"$f":"TODAY()","v":"2023-05-21"}]
[]
[]
[]
[null,null,null,null,null,null,null,"Preencher - 1 de cada vez"]
[null,null,null,null,null,null,"Data do Preenchimento:"]
[null,null,null,null,null,null,"PA:"]
[null,null,null,null,null,null,"Nome Responsavel do PA:",{"$f":"IF(H7=\"\",\"\",_xlfn.XLOOKUP($H$7,APOIO!$K:$K,APOIO!$L:$L))","v":""}]
[null,null,null,null,null,null,"O que foi verificado:"]
[null,null,null,null,null,null,"Data do Vencimento:"]

{"sheet":"APOIO","index":3,"n_rows":7,"n_cols":26,"rows_kept":7,"cut":false,"hidden":false,"merged":[]}
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Fórmulas"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,{"$f":"IF($C2=\"\",\"\",1)","v":""},"flavior.ribeiro@sicoob.com.br",null,null,null,null,null,{"$f":"IF($F2=\"\",\"\",IF(OR($F2=\"01.EXTINTOR\",$F2=\"04.Dedetização\"),180,IF($F2=\"03.AVCB\",360,IF($F2=\"02.Manut. Ar Condicionado\",90,\"\"))))","v":""},{"$f":"IF($F2=\"\",\"\",IF($G2<TODAY(),\"O(A) \"&$F2&\" está vencido(a) à \"&TODAY()-$G2&\" dia(s).\",IF($G2>TODAY(),\"Falta(m) \"&(TODAY()-$G2)*-1&\" para o(a) vencimento(a) do (a) \"&$F2,IF($G2=TODAY(),\"O(A) \"&$F2&\" está vencendo hoje!!!\"))))","v":""},{"$f":"IF($G2=\"\",\"\",IF(AND(TODAY()-$G2>=0,TODAY()-$G2<=7),\"Vencida ou a vencer\",IF(TODAY()-$G2>=0,\"Vencida ou a vencer\",\"Em andamento\")))","v":""},{"$f":"IF($G2=\"\",\"\",TODAY()-$G2)","v":""}]
[null,null,null,null,null,null,null,"qtde de Dias","Periodo do Vencimento","O que verificar","PA","Responsavel",null,null,null,"BANCO DE DADOS"]
[null,null,null,null,null,null,null,180,"6 meses","01.Extintor",0,"Flávio",null,null,null,"ID","Usuário","Data do Preenchimento:","PA:","Nome Responsavel do PA:","O que foi verificado:","Data do Vencimento:","Validade (em Dias)","Mensagem","Status","Dias de atraso ou no prazo"]
[null,null,null,null,null,null,null,{"$f":"30*3","v":90},"3 meses","02.Manut. Ar Condicionado",1,"Valcir"]
[null,null,null,null,null,null,null,{"$f":"12*30","v":360},"1 ano","03.AVCB",2,"Jeiser"]
[null,null,null,null,null,null,null,180,"6 meses","04.Dedetização",3,"Jovino"]

{"sheet":"Código","index":4,"n_rows":64,"n_cols":11,"rows_kept":64,"cut":false,"hidden":false,"merged":[]}
["USUÁRIO","DATA ABERTURA","DESCRIÇÃO","FECHADO EM","AÇÃO TOMADA","STATUS","Nº O.S.","DATA CONCLUSÃO","Status - Ocultar"]
["flavior.ribeiro@sicoob.com.br","2019-07-22","Monitor Queimado","2023-05-11","compramos um novo","Em andamento",10001]
["flavior.ribeiro@sicoob.com.br","2019-07-23","Mouse Quebrado","2023-08-09","compramos um novo","Em andamento",10002,null,null,null,"Private Sub Worksheet_Calculate()"]
["flavior.ribeiro@sicoob.com.br","2019-07-02","Ajuste Memória PC",null,"Trocado por novo","Em andamento",10003,"2019-08-27",null,null,"    Dim OutApp As Object"]
["flavior.ribeiro@sicoob.com.br","2019-07-18","Teclado Não Funciona","2023-08-09","compramos um novo","Em andamento",10004,null,null,null,"    Dim OutMail As Object"]
["flavior.ribeiro@sicoob.com.br","2019-07-23","Monitor Queimado",null,null,"Em andamento",10005,"2019-09-02",null,null,"    Dim texto As String"]
["flavior.ribeiro@sicoob.com.br","2019-07-29","Mouse Quebrado",null,null,"Em andamento",10006,"2019-09-03"]
[null,null,null,null,null,null,null,null,null,null,"    Set OutApp = CreateObject(\"Outlook.Application\")"]
[null,null,null,null,null,null,null,null,null,null,"    Set OutMail = OutApp.CreateItem(0)"]
["As posições exemplo"]
[null,null,null,null,null,null,null,null,null,null,"    linha = ActiveCell.Row - 1"]
[null,null,null,null,null,null,null,null,null,null,"    If Range(\"$F$\" & linha) = \"Concluído\" Then"]
[]
[null,null,null,null,null,null,null,null,null,null,"        texto = \"<img src=\"\"https://lh3.googleusercontent.com/-vGTEnlolOdo/Wbf8ObV8SVI/AAAAAAAAAHM/x986r2auI_MkZV4_V9X2AMJoTw_cjOWkwCLoCGAYYCw/w600-h0/papel_de_parede%2B2.jpg\"\" width=\"\"175\"\" height=\"\"150\"\"/>\" & _"]
[null,null,null,null,null,null,null,null,null,null,"                \"<h2>Prezado(a) \" & Plan2.Cells(linha, 1) & \",</h2><br> \" & _"]
[null,null,null,null,null,null,null,null,null,null,"                \"A O.S. \" & Plan2.Cells(linha, 7) & \" aberta em \" & _"]
[null,null,null,null,null,null,null,null,null,null,"                Plan2.Cells(linha, 2) & \" foi concluída.<br>\" & _"]
[null,null,null,null,null,null,null,null,null,null,"                \" Veja informações abaixo:\" & vbCrLf & _"]
[null,null,null,null,null,null,null,null,null,null,"                \"    Status: \" & Plan2.Cells(linha, 6) & \"<br>\" & _"]
[null,null,null,null,null,null,null,null,null,null,"                \"    Ação tomada: \" & Plan2.Cells(linha, 5) & \"<br>\" & _"]
[null,null,null,null,null,null,null,null,null,null,"                \"<br>\" & _"]
[null,null,null,null,null,null,null,null,null,null,"                \"Acesse o site: <a href=\"\"https://excelmax.blogspot.com\"\">https://excelmax.blogspot.com</a>\" & _"]
[null,null,null,null,null,null,null,null,null,null,"                \"<br>\" & _"]
[null,null,null,null,null,null,null,null,null,null,"                \"<b>Atenciosamente,<br>\" & _"]
[null,null,null,null,"Private Sub Worksheet_Calculate()",null,null,null,null,null,"                \"Processos Administrativo</b>\""]
[null,null,null,null,"    Dim OutApp As Object"]
[null,null,null,null,"    Dim OutMail As Object",null,null,null,null,null,"        With OutMail"]
[null,null,null,null,"    Dim texto As String",null,null,null,null,null,"            .To = Plan2.Cells(linha, 1)"]
[null,null,null,null,null,null,null,null,null,null,"            .CC = \"\""]
[null,null,null,null,"    Set OutApp = CreateObject(\"Outlook.Application\")",null,null,null,null,null,"            .BCC = \"\""]
[null,null,null,null,"    Set OutMail = OutApp.CreateItem(0)",null,null,null,null,null,"            .Subject = \"Referente à: \" & Plan2.Cells(linha, 3)"]
[null,null,null,null,null,null,null,null,null,null,"            .htmlBody = texto"]
[null,null,null,null,"    linha = ActiveCell.Row - 1",null,null,null,null,null,"            .Display   'Utilize Send para enviar o email sem abrir o Outlook"]
[null,null,null,null,"    If Range(\"$J$\" & linha) = \"Vencida ou a vencer\" Then",null,null,null,null,null,"        End With"]
[]
[null,null,null,null,"        ",null,null,null,null,null,"        Range(\"$I$\" & linha) = \" - Email Enviado\""]
[null,null,null,null,"    texto = \"A informação referente a  \" & Banco_de_Dados.Cells(linha, 6) & \" aberta em \" & _"]
[null,null,null,null,"                Banco_de_Dados.Cells(linha, 3) & \" está vencida ou perto de vencer.<br>\" & _",null,null,null,null,null,"    End If"]
[null,null,null,null,"                \" Veja informações abaixo:\" & vbCrLf & _"]
[null,null,null,null,"                \"    Responsável pelo PA: \" & Banco_de_Dados.Cells(linha, 5) & \"<br>\" & _",null,null,null,null,null,"    Set OutMail = Nothing"]
[null,null,null,null,"                \"    PA: \" & Banco_de_Dados.Cells(linha, 4) & \"<br>\" & _",null,null,null,null,null,"    Set OutApp = Nothing"]
[null,null,null,null,"                \"    Status: \" & Banco_de_Dados.Cells(linha, 10) & \"<br>\" & _"]
[null,null,null,null,"                \"    Data do Vencimento: \" & Banco_de_Dados.Cells(linha, 7) & \"<br>\" & _",null,null,null,null,null,"End Sub"]
[null,null,null,null,"                \"<br>\" & _"]
[null,null,null,null,"                \"<b>Atenciosamente,<br>\" & _"]
[null,null,null,null,"                \"Processos Administrativo</b>\""]
[]
[null,null,null,null,"        With OutMail"]
[null,null,null,null,"            .To = Banco_de_Dados.Cells(linha, 2)"]
[null,null,null,null,"            .CC = \"\""]
[null,null,null,null,"            .BCC = \"\""]
[null,null,null,null,"            .Subject = \"Referente à vencimento: \" & Banco_de_Dados.Cells(linha, 6)"]
[null,null,null,null,"            .htmlBody = texto"]
[null,null,null,null,"            .Display   'Utilize Send para enviar o email sem abrir o Outlook"]
[null,null,null,null,"        End With"]
[]
[null,null,null,null,"        Range(\"$L$\" & linha) = \" - Email Enviado\""]
[]
[null,null,null,null,"    End If"]
[]
[null,null,null,null,"    Set OutMail = Nothing"]
[null,null,null,null,"    Set OutApp = Nothing"]
[]
[null,null,null,null,"End Sub"]