Excel/VBA - Website Accessing

B

Bullstrik1

Board Regular
Joined
Jul 31, 2014
Messages
66
Hello Everyone!

I am banging my head against the wall for 2 days now with this issue, and so i come here humbly asking for your help or piece of advice that alow me to progress.


I have this website i would like to access and log in: Via Verde

And the code i am using is this:

Code: 
Sub AbreSiteEcolocaPassword()



'to refer to the running copy of Internet Explorer
Dim IE As InternetExplorer
'to refer to the HTML document returned
Dim Doc As HTMLDocument, Fr As HTMLFrameElement, Form As HTMLFormElement, Ele As HTMLInputElement


'open Internet Explorer in memory, and go to website
Set IE = New InternetExplorer


With IE
        .Visible = True 
        .navigate ("http://www.viaverde.pt/Website/")
        While .Busy Or .readyState <> 4: DoEvents: Wend
            
                ' Código para fazer log in no site Via Verde através do InternetExplorer
                
                Set Doc = .document.forms("WebForm1")
                
           With Doc
                               
                For Each Ele In .getElementsByTagName("INPUT")
                    
                Next Ele
           End With
        
        
'                   .getElementById("webform1").Focus
'                   .getElementById("wtEmailInput").Value = "LOGIN"
'                   .getElementById("wtPasswordInput").Focus
'                   .getElementById("wtPasswordInput").Value = "PASSWORD"
'                   .getElementById("wt14").Click
        
        
End With




End Sub

My problem is that i cant log in in the website so i tried several ways, and in the end i don't know what i can i do anymore.
Hopefully, any of you could point me in the right direction by giving me some piece of advice here.


As i understood, the webpage is formed by some sort of login form. The thing is that i cant access the log in field or the password field.


I sincerely apretiate, in advance, any help you could give me.
Cheers all :)
 

Excel Facts

Create a Pivot Table on a Map
If your data has zip codes, postal codes, or city names, select the data and use Insert, 3D Map. (Found to right of chart icons).
Sort by date Sort by votes
Hi all!

I found a solution to this problem, althought i face another issue now, that i will try to explain to you.
First the solution code for the bit i asked in the post above and that I, fortunatly, found a solution by myself:

Code: 
Sub MP_VVLogIn()


'to refer to the running copy of Internet Explorer
Dim IE As InternetExplorer


'open Internet Explorer in memory, and go to website
Set IE = New InternetExplorer


With IE
        .Visible = True ' Podemos optar por nao mostrar a janela do browser o que irá permitir acelerar todo o processo. Para tal basta escolher a opção "FALSE"
        .navigate ("https://clientes.viaverde.pt/Portal/WebsiteLoginSnip.jsf")
        While .Busy Or .readyState <> 4: DoEvents: Wend
            
                ' Código para fazer log in no site Via Verde através do InternetExplorer
    With .document
        .getElementById("wtEmailInput").Value = "login"
        .getElementById("wtPasswordInput").Value = "password"
        .getElementById("wt14").Click
    End With
    
    While .Busy Or .readyState <> 4: DoEvents: Wend
    
    .navigate ("https://clientes.viaverde.pt/Portal/Invoices_List.jsf")
    
End With


End Sub

Hope this bit of code helps someone! :)

Now i got another issue: how to download several files from this website?

Could anyone point me a good resource where i could find code snipets or practical examples ?

Sincerly apretiate, in advance, any help you could give me.
Cheers!

P.S.: here is the source code of the website that i want to download the documents (i'm sorry that is too big, but i dont know witch part i should refer to)

Code: 
<!DOCTYPE html>	<html xmlns="http://www.w3.org/1999/xhtml">
		<head>******** type="text/javascript" charset="UTF-8">
(function (global) {
    global.outsystems = global.outsystems || {};
    global.outsystems.internal = global.outsystems.internal || {};
})(this);


outsystems.internal.timerspolyfillResponseStart = new Date().getTime();
outsystems.internal.beaconURL = '/PerformanceProbe/Beacon.jsf';
*********>
			<title>Via Verde On-line</title>
			****** http-equiv="Content-Type" content="text/html;charset=utf-8" />****** name="viewport" content="width=device-width, initial-scale=1" scheme="" />
			****** http-equiv="Content-Script-Type" content="text/javascript" />
            ****** http-equiv="Content-Style-Type" content="text/css" />
			<style>
.OSFillParent { 
 display: block;
 width: 100%;
}
table.OSFillParent {
 display: table;
}
input.OSFillParent,
button.OSFillParent,
select.OSFillParent,
textarea.OSFillParent {
 display: inline-block;
 box-sizing: border-box;
 -moz-box-sizing: border-box;
 -webkit-box-sizing: border-box;
}
.OSInline {
 display: inline-block;
 *zoom: 1;
 *display: inline;
 vertical-align: top;
}
table.OSInline {
 display: inline-table;
}
.OSAutoMarginTop {
 margin-top: 10px;
}
table[class*="ThemeGrid_Width"] {
 display: inline-table;
 vertical-align: top;
}
div[class*="ThemeGrid_Width"] {
 vertical-align: top;
}
th[class*="ThemeGrid_Width"],
td[class*="ThemeGrid_Width"] {
 display: table-cell;
}
[class*="ThemeGrid_Width"] {
 display: inline-block;
 box-sizing: border-box;
 -webkit-box-sizing: border-box;
 -moz-box-sizing: border-box;
 *zoom: 1;
 *display: inline;
}
.ThemeGrid_Container {
 box-sizing: border-box;
 -webkit-box-sizing: border-box;
 -moz-box-sizing: border-box;
}


</style>
<link href="/RichWidgets/Blocks/RichWidgets/RichWidgets/MenuSlider.css?6833" type="text/css" rel="stylesheet" />
<link href="/RichWidgets/Blocks/RichWidgets/RichWidgets/Icon.css?6833" type="text/css" rel="stylesheet" />
<link href="/RichWidgets/Blocks/RichWidgets/RichWidgets/DropDownMenu.css?6833" type="text/css" rel="stylesheet" />
<link href="/CKEditor/Blocks/CKEditor/CKFlow/CKEditor_Simple.css?6158" type="text/css" rel="stylesheet" />
<link href="/CookiePolicy/Blocks/CookiePolicy/CookiesFlow/CookiesMessage.css?6614" type="text/css" rel="stylesheet" />
<link href="/RichWidgets/Blocks/RichWidgets/jQueryUI/jQueryUIInternal.css?6833" type="text/css" rel="stylesheet" />
<link href="/RichWidgets/Blocks/RichWidgets/RichWidgets/Feedback_Message.css?6833" type="text/css" rel="stylesheet" />
<link href="/RichWidgets/Blocks/RichWidgets/RichWidgets/ResponsiveTableRecords.css?6833" type="text/css" rel="stylesheet" />
<link href="/RichWidgets/Blocks/RichWidgets/RichWidgets/Feedback_AjaxWait.css?6833" type="text/css" rel="stylesheet" />
<link href="/RichWidgets/Blocks/RichWidgets/RichWidgets/Input_Calendar.css?6833" type="text/css" rel="stylesheet" />
<link href="/RichWidgets/Blocks/RichWidgets/RichWidgets/List_Counter.css?6833" type="text/css" rel="stylesheet" />
<link href="/RichWidgets/Blocks/RichWidgets/RichWidgets/List_Navigation.css?6833" type="text/css" rel="stylesheet" />
<link href="/CKEditor/Blocks/CKEditor/CKFlow/CKEditor.css?6158" type="text/css" rel="stylesheet" />
    <link href="/ViaVerdeTheme/Theme.ViaVerdeTheme.css?7017" type="text/css" rel="stylesheet" />
    <link href="/ViaVerdeTheme/Theme.ViaVerdeTheme.extra.css?7017" type="text/css" rel="stylesheet" />
    ******** id="_OSrequestInfoScript" type="text/javascript">(function(global) { global.outsystems = global.outsystems || {};global.outsystems.internal = global.outsystems.internal || {};global.outsystems.internal.requestInfo = {requestKey:'82f54888-774c-4a7a-8379-71d3af9914c5',visitorKey:'90f8107e-147d-4d28-9f84-06a2200b1381',visitKey:'de362093-6a41-4d0e-b606-5f1c0a0e7505',sessionKey:'7c90e844-2fa3-7b4e-ac09-7fb3af9f512a',userKey:'486e02c4-0ff4-bb4b-541a-cb7149feebe6',environmentKey:'e49567c3-30cd-4799-aeb6-8c5a98b25fdb',applicationKey:'08ea219a-9b25-4df1-b060-6cc7666a0765',applicationName:'Portal',espaceKey:'aa0b8689-33ab-4d6f-90a3-7c4acd2e5193',espaceName:'Portal',webScreenKey:'981593c7-a2c2-4932-8a53-40f24f8ebe11',webScreenName:'Invoices_List',tenantKey:'666d9979-32be-4b2d-5271-d267d996bfca',tenantName:'EnterpriseManager',frontendKey:'OVAthOKtFgTdjQ=='}})(this);*********>
    ******** src="_osjs.js?9_0_1_6" type="text/javascript" charset="UTF-8">*********>
    ******** src="_OSGlobalJS.pt-PT.js?7017" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/RichWidgets/RichWidgets/MenuSlider.pt.js?6833" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/ViaVerdeTheme/Common/LoadingScript.js?6351" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/RichWidgets/RichWidgets/DropDownMenu.pt.js?6833" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/CookiePolicy/CookiesFlow/CookiesMessage.js?6614" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/RichWidgets/jQueryUI/jQueryUIInternal.pt.js?6833" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/RichWidgets/jQueryUI/jQueryComponents.pt.js?6833" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/RichWidgets/RichWidgets/Feedback_Message.pt.js?6833" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/RichWidgets/RichWidgets/ResponsiveTableRecords.pt.js?6833" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/RichWidgets/RichWidgets/Feedback_AjaxWait.pt.js?6833" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/RichWidgets/RichWidgets/Input_Calendar.pt.js?6833" type="text/javascript" charset="UTF-8">*********>
    ******** src="/Portal/Blocks/RichWidgets/RichWidgets/List_LateLoad.pt.js?6833" type="text/javascript" charset="UTF-8">*********>




		</head>
        <body>
			
<form id="WebForm1" name="WebForm1" method="post" action="/Portal/Invoices_List.jsf" enctype="application/x-www-form-urlencoded" onsubmit="javascript:return WebForm_OnSubmit();">
<input type="hidden" name="WebForm1" value="WebForm1" />


******** type="text/javascript">
//<=!=[=C=D=A=T=A=[
function WebForm_OnSubmit() {
OsPrepareCheckboxesForSubmit();
OsFixUploadBeforeSubmit();
if (!OsValidatorOnSubmit()) return false;
return true;
}
//]=]=>
*********>
			<div class="Header ThemeGrid_Wrapper Responsive" style="margin-top: 0px;"><div class="ThemeGrid_Container" style="margin-top: 0px;"><div class="Header_RightSection HiddenInDesktop" style="margin-top: 0px;"><div class="MenuSlider_Toggler"><span class="fa fa-bars"></span></div></div><div id="ViaVerdeTheme_wt6:block:wtHeader" class="Header_LeftSection" style="margin-top: 0px;"><div class="Login_Info OSInline" style="margin-left: 0px; margin-top: 0px;"><div class="OSInline" style="width: 26px;"><a id="ViaVerdeTheme_wt6:block:wt13:wt4:wt3:wtHelpContentPopupLink" *******="OsAjax(arguments[0] || window.event,'ViaVerdeTheme_wt6:block:wt13:wt4:wt3:wtHelpContentPopupLink','ViaVerdeTheme_wt6:block:wt13:wt4:wt3:wtHelpContentPopupLink','','__OSVSTATE,',''); return false;" href="#" title="Ajuda" class="Login_Info_Help" tabindex="1"><span class="fa fa-fw fa-question-circle"></span></a></div><div class="OSInline"><span class="Login_Info_Username"></span><span class="Login_Info_Name">Bem-vindo(a), <b>Manpower Portuguesa, SA</b> </span> ******** type="text/javascript" language="Javascript">function dpf(f) {var adp = f.adp;if (adp != null) {for (var i = 0;i < adp.length;i++) {f.removeChild(adp[i]);}}};function apf(f, pvp) {var adp = new Array();f.adp = adp;var i = 0;for (k in pvp) {var p = document.createElement("input");p.type = "hidden";p.name = k;p.value = pvp[k];f.appendChild(p);adp[i++] = p;}};function jsfcljs(f, pvp, t) {apf(f, pvp);var ft = f.target;if (t) {f.target = t;}f.submit();f.target = ft;dpf(f);};*********>******** type="text/javascript" language="Javascript">jsfcljs = (function(oldJsfcljs) {return function(f, pvp, t) {if (!f.onsubmit || (f.onsubmit() != false)) {oldJsfcljs(f, pvp, t);}};})(jsfcljs);*********><a id="ViaVerdeTheme_wt6:block:wt13:wt4:wtLogoutLink" href="javascript:{if(typeof jsfcljs == 'function'){jsfcljs(document.getElementById('WebForm1'),{'ViaVerdeTheme_wt6:block:wt13:wt4:wtLogoutLink':'ViaVerdeTheme_wt6:block:wt13:wt4:wtLogoutLink'},'');}}" title="Encerrar Sessão" class="Login_Info_Logout" tabindex="2">Encerrar Sessão</a></div></div><div class="Application_Title" style="margin-top: 0px;"><a id="ViaVerdeTheme_wt6:block:wt13:wt1" href="/Portal/Homepage.jsf" tabindex="3"><img src="/ViaVerdeTheme/img/HeaderLogo.png?6351" title="Via Verde On-line" alt="Via Verde On-line" /></a></div></div></div><div class="Header_Menu" style="margin-top: 0px;"><div class="ThemeGrid_Container " style="margin-top: 0px;"><div id="ViaVerdeTheme_wt6:block:wtMenu" style="margin-top: 0px;"><div class="Application_Menu" style="margin-top: 0px;"><div class="Menu_TopMenus"><div class="Login_Info_Name_Menu" style="margin-top: 0px;"><div id="ViaVerdeTheme_wt6:block:wt4:RichWidgets_wt12:block:wtDropDownButtonRoot" class="Menu_DropDownButton OSInline"><div id="ViaVerdeTheme_wt6:block:wt4:RichWidgets_wt12:block:wtDropDownButtonElement" class="Menu_TopMenu"><div id="ViaVerdeTheme_wt6:block:wt4:RichWidgets_wt12:block:wtMenuItem"><a id="ViaVerdeTheme_wt6:block:wt4:RichWidgets_wt12:wtMenuItem:wt1" href="/Portal/MyInfo.jsf" tabindex="4">Bem-vindo(a), <b>Manpower Portuguesa, SA</b> </a></div></div><div id="ViaVerdeTheme_wt6:block:wt4:RichWidgets_wt12:block:wtDropDownPanel" class="Menu_DropDownPanel"><div id="ViaVerdeTheme_wt6:block:wt4:RichWidgets_wt12:block:wtMenuSubItems" class="Menu_SubItemsPlaceholder"></div></div></div></div><span id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:0:RichWidgets_wt17:block:wtDropDownButtonRoot" class="Menu_DropDownButton OSInline"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:0:RichWidgets_wt17:block:wtDropDownButtonElement" class="Menu_TopMenu"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:0:RichWidgets_wt17:block:wtMenuItem"><a id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:0:RichWidgets_wt17:wtMenuItem:wt8">Página Inicial</a></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:0:RichWidgets_wt17:block:wtDropDownPanel" class="Menu_DropDownPanel"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:0:RichWidgets_wt17:block:wtMenuSubItems" class="Menu_SubItemsPlaceholder"><span id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:0:RichWidgets_wt17:wtMenuSubItems:wt7:wtListSubMenu"><a id="wtMenuSubItems_wt240" tabindex="1" class="Menu_SubMenuItem Menu_SubMenuItem  " href="/Portal/Homepage_Detail.jsf">Página Inicial</a><a id="wtMenuSubItems_wt241" tabindex="2" class="Menu_SubMenuItem Menu_SubMenuItem  " href="/Portal/MyInfo.jsf">Dados do Registo</a></span></div></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:1:RichWidgets_wt17:block:wtDropDownButtonRoot" class="Menu_DropDownButton OSInline"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:1:RichWidgets_wt17:block:wtDropDownButtonElement" class="Menu_TopMenu"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:1:RichWidgets_wt17:block:wtMenuItem"><a id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:1:RichWidgets_wt17:wtMenuItem:wt8">Viaturas</a></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:1:RichWidgets_wt17:block:wtDropDownPanel" class="Menu_DropDownPanel"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:1:RichWidgets_wt17:block:wtMenuSubItems" class="Menu_SubItemsPlaceholder"><span id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:1:RichWidgets_wt17:wtMenuSubItems:wt7:wtListSubMenu"><a id="wtMenuSubItems_wt243" tabindex="1" class="Menu_SubMenuItem Menu_SubMenuItem  " href="/Portal/Tags_List.jsf">Lista de Viaturas</a><a id="wtMenuSubItems_wt244" tabindex="2" class="Menu_SubMenuItem Menu_SubMenuItem  " href="/Portal/Alerts_List.jsf">Lista de Alertas</a></span></div></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:2:RichWidgets_wt17:block:wtDropDownButtonRoot" class="Menu_DropDownButton OSInline"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:2:RichWidgets_wt17:block:wtDropDownButtonElement" class="Menu_TopMenu"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:2:RichWidgets_wt17:block:wtMenuItem"><a id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:2:RichWidgets_wt17:wtMenuItem:wt8">Contratos</a></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:2:RichWidgets_wt17:block:wtDropDownPanel" class="Menu_DropDownPanel"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:2:RichWidgets_wt17:block:wtMenuSubItems" class="Menu_SubItemsPlaceholder"><span id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:2:RichWidgets_wt17:wtMenuSubItems:wt7:wtListSubMenu"><a id="wtMenuSubItems_wt246" tabindex="1" class="Menu_SubMenuItem Menu_SubMenuItem  " href="/Portal/Contracts_List.jsf">Lista de Contratos</a></span></div></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:3:RichWidgets_wt17:block:wtDropDownButtonRoot" class="Menu_DropDownButton OSInline"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:3:RichWidgets_wt17:block:wtDropDownButtonElement" class="Menu_TopMenu"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:3:RichWidgets_wt17:block:wtMenuItem"><a id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:3:RichWidgets_wt17:wtMenuItem:wt8" href="/Portal/Transactions_List.jsf" tabindex="8">Movimentos</a></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:3:RichWidgets_wt17:block:wtDropDownPanel" class="Menu_DropDownPanel"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:3:RichWidgets_wt17:block:wtMenuSubItems" class="Menu_SubItemsPlaceholder"></div></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:4:RichWidgets_wt17:block:wtDropDownButtonRoot" class="Menu_DropDownButton OSInline"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:4:RichWidgets_wt17:block:wtDropDownButtonElement" class="Menu_TopMenu Menu_TopMenuActive"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:4:RichWidgets_wt17:block:wtMenuItem"><a id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:4:RichWidgets_wt17:wtMenuItem:wt8" href="/Portal/Invoices_List.jsf" tabindex="9">Extractos</a></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:4:RichWidgets_wt17:block:wtDropDownPanel" class="Menu_DropDownPanel"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:4:RichWidgets_wt17:block:wtMenuSubItems" class="Menu_SubItemsPlaceholder"></div></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:5:RichWidgets_wt17:block:wtDropDownButtonRoot" class="Menu_DropDownButton OSInline"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:5:RichWidgets_wt17:block:wtDropDownButtonElement" class="Menu_TopMenu"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:5:RichWidgets_wt17:block:wtMenuItem"><a id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:5:RichWidgets_wt17:wtMenuItem:wt8">Pedidos</a></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:5:RichWidgets_wt17:block:wtDropDownPanel" class="Menu_DropDownPanel"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:5:RichWidgets_wt17:block:wtMenuSubItems" class="Menu_SubItemsPlaceholder"><span id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:5:RichWidgets_wt17:wtMenuSubItems:wt7:wtListSubMenu"><a id="wtMenuSubItems_wt253" tabindex="1" class="Menu_SubMenuItem Menu_SubMenuItem  " href="/Portal/Requests_List.jsf">Lista de Pedidos</a><a id="wtMenuSubItems_wt254" tabindex="2" class="Menu_SubMenuItem Menu_SubMenuItem  " href="/Portal/RequestGeneric_Edit.jsf">Submeter Novo Pedido</a></span></div></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:6:RichWidgets_wt17:block:wtDropDownButtonRoot" class="Menu_DropDownButton OSInline"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:6:RichWidgets_wt17:block:wtDropDownButtonElement" class="Menu_TopMenu"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:6:RichWidgets_wt17:block:wtMenuItem"><a id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:6:RichWidgets_wt17:wtMenuItem:wt8" href="/PortalHDM/CustomerRequestList.jsf" tabindex="11">Descontos</a></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:6:RichWidgets_wt17:block:wtDropDownPanel" class="Menu_DropDownPanel"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:6:RichWidgets_wt17:block:wtMenuSubItems" class="Menu_SubItemsPlaceholder"></div></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:7:RichWidgets_wt17:block:wtDropDownButtonRoot" class="Menu_DropDownButton OSInline"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:7:RichWidgets_wt17:block:wtDropDownButtonElement" class="Menu_TopMenu"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:7:RichWidgets_wt17:block:wtMenuItem"><a id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:7:RichWidgets_wt17:wtMenuItem:wt8" href="/Portal/Pathway.jsf" tabindex="12">Percursos</a></div></div><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:7:RichWidgets_wt17:block:wtDropDownPanel" class="Menu_DropDownPanel"><div id="ViaVerdeTheme_wt6:block:wt4:wtListTopMenu:7:RichWidgets_wt17:block:wtMenuSubItems" class="Menu_SubItemsPlaceholder"></div></div></div></span></div></div></div></div></div></div><div class="Content ThemeGrid_Wrapper Responsive"><div class="ThemeGrid_Container" style="margin-top: 0px;"><div id="ViaVerdeTheme_wt6:block:wtHelpContainer" class="HelpContainer"><table class="OSFillParent"><tr><td style="width: 36px;vertical-align: top"><span class="fa fa-fw fa-question-circle fa-2x"></span></td><td style="vertical-align: top"><div id="ViaVerdeTheme_wt6:block:wt2:CMS_Lite_wt2:block:wtEditWrapper"><div id="ViaVerdeTheme_wt6:block:wt2:CMS_Lite_wt2:block:wtHTMLWrapper" class="CmsContent"><p>
	<span style="font-size: 14px">A lista de extractos permite consultar o extracto electrónico associado a cada contrato, bem como, visualizar esta informação no formato seleccionado.</span></p>
<p>
	<span style="font-size: 14px">A visualização e exportação dos extractos apenas é possível para contratos com opção de extracto electrónico activa.</span></p>
</div></div></td><td style="width: 16px;vertical-align: top"><a id="ViaVerdeTheme_wt6:block:wt2:wt6" *******="OsAjax(arguments[0] || window.event,'ViaVerdeTheme_wt6:block:wt2:wt6','ViaVerdeTheme_wt6:block:wt2:wt6','','__OSVSTATE,',''); return false;" href="#" tabindex="15"><span class="fa fa-fw fa-times-circle"></span></a></td></tr></table></div><div class="Title_Section"><div id="ViaVerdeTheme_wt6:block:wtTitle" class="Heading1 Title OSInline" style="width: 100%;"><div class="Breadcrumbs"><a id="ViaVerdeTheme_wt6:wtTitle:wt5:wt4" href="Homepage_Detail.jsf" tabindex="16">Página Inicial</a> <span class="fa fa-fw fa-angle-right"></span>Lista de Extractos</div>Lista de Extractos </div></div><div id="ViaVerdeTheme_wt6:block:wtMainContent" class="MainContent"><div id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFilterAndList" class="TableRecordsWithFilters_Wrapper"><div id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFilters" class="Filters_Wrapper"><div><input id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtSearchInput" type="text" name="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtSearchInput" maxlength="50" tabindex="17" class="ThemeGrid_Width5" onkeydown="return OsEnterKey('ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt29', arguments[0] || window.event)" placeholder="Introduza o NIF ou o Número de Contrato" />******** type="text/javascript">
//<=!=[=C=D=A=T=A=[
OsInputPrompt_Bootstrap('ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtSearchInput');
// ]=]=>
*********><span style="display: none;" class="ValidationMessage" id="ValidationMessage_ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtSearchInput"></span></div><div class="OSAutoMarginTop"><div class="OSInline"><div class="OSInline"><label class='OSInline' style=' width: 35px' for='' >Data</label><input id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFromDateInput" type="text" name="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFromDateInput" maxlength="10" tabindex="18" onkeydown="return OsEnterKey('ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt29', arguments[0] || window.event)" style="width: 120px; margin-left: 0px;" /><span style="display: none;" class="ValidationMessage" id="ValidationMessage_ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFromDateInput"></span>******** type="text/javascript">
outsystems.internal.$(function() {
  if (outsystems.internal.$('#ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFromDateInput').attr('readonly'))
    return;


     var SPECIAL_DAYS = {  };
    
     function dateIsSpecial(year, month, day) {
        var m = SPECIAL_DAYS[month + 1];
        if (!m)
            return false;
        for (var i in m)
            if (m[i] == day) 
                return true;
        return false;
     };


    RichWidgets_Calendar.setup(
    {
        inputField      :   "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFromDateInput", 
        eventName       :   "click",
        ifFormat        :   "%d-%m-%Y",      
        align           :   "Bl",           
        singleClick     :   true,
        weekNumbers     :   false,
        showOthers      :   false,
        timeFormat      :   24, 
        showsTime       :   false,
        firstDay        :   0, date           :   new Date(2015,7,8, 0, 0, 0), 
        electric        :   true, 
        step            :   2,
        cache           :   false
    });


});
*********>******** type="text/javascript">
outsystems.internal.$(function() {var inpid='ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFromDateInput';
var inputData=OsInputPrompt_GetInputData(outsystems.internal.$('#'+inpid));
var prompt = (inputData || {}).prompt;
if(typeof(prompt)=='undefined'||prompt==''){
OsInputPrompt_Bootstrap('ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFromDateInput', 'DD-MM-AAAA');}
});
*********></div><div class="OSInline" style="margin-left: 10px;"><label class='OSInline' style=' width: 25px' for='' >a</label><input id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtToDateInput" type="text" name="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtToDateInput" maxlength="10" tabindex="19" onkeydown="return OsEnterKey('ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt29', arguments[0] || window.event)" style="width: 120px; margin-left: 0px;" /><span style="display: none;" class="ValidationMessage" id="ValidationMessage_ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtToDateInput"></span>******** type="text/javascript">
outsystems.internal.$(function() {
  if (outsystems.internal.$('#ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtToDateInput').attr('readonly'))
    return;


     var SPECIAL_DAYS = {  };
    
     function dateIsSpecial(year, month, day) {
        var m = SPECIAL_DAYS[month + 1];
        if (!m)
            return false;
        for (var i in m)
            if (m[i] == day) 
                return true;
        return false;
     };


    RichWidgets_Calendar.setup(
    {
        inputField      :   "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtToDateInput", 
        eventName       :   "click",
        ifFormat        :   "%d-%m-%Y",      
        align           :   "Bl",           
        singleClick     :   true,
        weekNumbers     :   false,
        showOthers      :   false,
        timeFormat      :   24, 
        showsTime       :   false,
        firstDay        :   0, date           :   new Date(2015,7,8, 0, 0, 0), 
        electric        :   true, 
        step            :   2,
        cache           :   false
    });


});
*********>******** type="text/javascript">
outsystems.internal.$(function() {var inpid='ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtToDateInput';
var inputData=OsInputPrompt_GetInputData(outsystems.internal.$('#'+inpid));
var prompt = (inputData || {}).prompt;
if(typeof(prompt)=='undefined'||prompt==''){
OsInputPrompt_Bootstrap('ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtToDateInput', 'DD-MM-AAAA');}
});
*********></div></div><input id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt29" type="submit" name="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt29" value="Pesquisar" tabindex="20" class="Button Is_Default ThemeGrid_MarginGutter" *******="OsAjax(arguments[0] || window.event,'ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt29','ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt29','','__OSVSTATE,',''); return false;" class="ThemeGrid_MarginGutter" /><input id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt73" type="submit" name="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt73" value="Limpar" tabindex="21" class="Button ThemeGrid_MarginGutter" *******="OsAjax(arguments[0] || window.event,'ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt73','ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wt73','','__OSVSTATE,',''); return false;" class="ThemeGrid_MarginGutter" /></div></div><div class="OSAutoMarginTop"><div class="ThemeGrid_Width8"><div id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtTableRecords_Wrapper" class="TableRecords_Wrapper"><div class="TableRecords_Frame"><div><span id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:RichWidgets_wt3:block"><div id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:RichWidgets_wt3:block:wtdivLoading" class="Text_Note"><img src="/RichWidgets/img/SpinBlack.gif?6833" alt="" style="height: 16px; width: 16px" />*Carregando o conteúdo...</div><style class='_OSLateLoadToRemove'>
.TableRecords.Empty {
display:none;
}
.TableRecords_BottomNavigation {
display:none;
}
</style>
******** type="text/javascript">
 RichWidgets_List_LateLoad('ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:RichWidgets_wt3:block')
*********></span></div><table id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtTableRecords1" cellspacing="0" cellpadding="0" border="0" class="TableRecords DashboardTable Empty OSInline" style="width: 100%; border-spacing: 0px;"><thead><tr><th class="TableRecords_Header">Referência  </th><th class="TableRecords_Header">Ano</th><th class="TableRecords_Header">Mês</th><th class="TableRecords_Header">Exportar para</th></tr></thead><tbody><tr><td class="TableRecords_OddLine" colspan="4">Tendo em conta os critérios preenchidos, a pesquisa não encontra extractos...</td></tr></tbody></table></div><div class="TableRecords_BottomNavigation"><div class="OSInline" style="width: 30%;"><div class="Counter_Message"></div></div><div class="OSInline ThemeGrid_MarginGutter" align="right" style="width: 65%;"><div class="ListNavigation_Wrapper"></div></div></div></div></div><div class="OSInline ThemeGrid_MarginGutter"><div class="CardGray ThemeGrid_Width4" style="margin-top: 20px;"><div id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:CMS_Lite_wt38:block:wtEditWrapper"><div id="ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:CMS_Lite_wt38:block:wtHTMLWrapper" class="CmsContent"><p>
	<span style="font-size: 14px">Com a <span style="color: #008000"><strong>Via Electrónica</strong></span>, é mais fácil seguir em frente. </span></p>
<p>
	 </p>
<p>
	<span style="font-size: 14px">Adira já. Para aderir, basta:</span></p>
<ul>
	<li>
		<span style="font-size: 14px">Aceder ao menu contratos;<br />
		</span></li>
	<li>
		<span style="font-size: 14px">Seleccionar a opção Alterar Dados, do contrato pretendido;<br />
		</span></li>
	<li>
		<span style="font-size: 14px">Optar pelo novo tipo de extracto e,<br />
		</span></li>
	<li>
		<span style="font-size: 14px">actualizar e beneficiar de todas as vantagens:</span></li>
</ul>
<p>
	<span style="font-size: 14px"><span style="color: #008000"><strong>Ganhe rapidez</strong></span> – não espere pelos habituais dias de distribuição do correio; <br />
	</span></p>
<p>
	 </p>
<p>
	<span style="font-size: 14px"><span style="color: #008000"><strong>Ganhe comodidade</strong></span> – organize e arquive os seus extractos com maior facilidade; </span><span style="font-size: 14px"><br />
	</span></p>
<p>
	 </p>
<p>
	<span style="font-size: 14px"><span style="color: #008000"><strong>Ganhe facilidade</strong></span> – o seu extracto à distância de um clique; <br />
	</span></p>
<p>
	 </p>
<p>
	<span style="font-size: 14px"><span style="color: #008000"><strong>Apoie o ambiente</strong> </span>– contribua para a conservação e preservação do meio ambiente. </span></p>
</div></div></div></div></div></div></div></div></div><div class="Footer ThemeGrid_Wrapper Responsive" style="margin-top: 0px;"><div class="ThemeGrid_Container"><div id="ViaVerdeTheme_wt6:block:wtFooter"><div>Copyright © 2015 Via Verde. Todos os direitos reservados.
******** type='text/javascript'>


  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-26641212-1']);
  _gaq.push(['_trackPageview']);


  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == ******************.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();


*********>
</div><div class="warning_EU_cookiemsg warning_EU_show" align="center" style=""><div class="InlineElement">Este website utiliza cookies. Ao continuar a navegar no nosso website está a consentir a utilização de cookies. <a id="ViaVerdeTheme_wt6:block:wt25:CookiePolicy_wt6:block:wt35" href="&Locale=pt-PT" tabindex="30" target="">Saiba mais</a></div><div class="InlineElement CloseArea" title="Click to hide this warning"> </div></div></div></div></div><div class="Responsive OSAutoMarginTop"><span id="ViaVerdeTheme_wt6:block:RichWidgets_wt6:block">******** type='text/javascript'>
OsRegisterExceptionHandler(RichWidgets_Feedback_Message_ErrorHandler)
*********><div id="ViaVerdeTheme_wt6:block:RichWidgets_wt6:block:wtFeedback_Wrapper" class="Feedback_Message_Wrapper"><span id="ViaVerdeTheme_wt6:block:RichWidgets_wt6:block:wtnotify"><span class="NotifyWidget"></span>******** type="text/javascript">
//<=!=[=C=D=A=T=A=[
RichWidgets_Feedback_Message_notifyWidget ='ViaVerdeTheme_wt6:block:RichWidgets_wt6:block:wtnotify';
//]=]=>
*********></span></div></span><div id="ViaVerdeTheme_wt6:block:RichWidgets_wt24:block:wtdivWait" class="Feedback_AjaxWait" style="display:none"><img src="data:image/gif;base64,R0lGODlhAQABAID/AMDAwAAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==" alt="" style="height: 16px; width: 16px" /> Carregando</div>******** type='text/javascript'>
     RichWidgets_Feedback_AjaxWait_init('ViaVerdeTheme_wt6:block:RichWidgets_wt24:block:wtdivWait');
 *********></div>






******** type="text/javascript">
//<=!=[=C=D=A=T=A=[
	var OsPage_ValidatorsOrder =  new Array("ViaVerdeTheme_wt6:block:wt2:CMS_Lite_wt2:block:wtContentHTMLInput", "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtSearchInput", "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFromDateInput", "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtToDateInput", "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:CMS_Lite_wt38:block:wtContentHTMLInput");
	var OsPage_Validators =  new Array(
{clientvalidationfunction: "OsCustomValidatorText", controltovalidate: "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtSearchInput", errormessage: "Texto esperado!", evaluationfunction: "OsCustomValidatorEvaluateIsValid"}, 
{clientvalidationfunction: "OsCustomValidatorDate", controltovalidate: "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtFromDateInput", errormessage: "Data esperada!", evaluationfunction: "OsCustomValidatorEvaluateIsValid"}, 
{clientvalidationfunction: "OsCustomValidatorDate", controltovalidate: "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtToDateInput", errormessage: "Data esperada!", evaluationfunction: "OsCustomValidatorEvaluateIsValid"});
// ]=]=>
*********>






******** type="text/javascript">
//<=!=[=C=D=A=T=A=[
var OsPage_ValidationActive = false;
OsValidator******();


function OsValidatorOnSubmit() {
  if (OsPage_ValidationActive) { return OsValidatorCommonOnSubmit(); }
  return true;
}
// ]=]=>
*********>


******** type="text/javascript">
//<=!=[=C=D=A=T=A=[
var OsPage_ViaVerdeTheme_wt6_block_wt2_CMS_Lite_wt2_block_wtEditRecordContentElements = new Array("ViaVerdeTheme_wt6:block:wt2:CMS_Lite_wt2:block:wtContentHTMLInput");
var OsPage_ViaVerdeTheme_wt6_wtMainContent_Invoicing_wt3_block_CMS_Lite_wt38_block_wtEditRecordContentElements = new Array("ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:CMS_Lite_wt38:block:wtContentHTMLInput");




// ]=]=>
*********>
<input type="hidden" name="__OSVSTATE" id="__OSVSTATE" value="688798709:291:Invoices_List;H4sIAAAAAAAAAO09aWwj13lPe2rXdnZtJ3FSr7tj71qx211KpC7qyKYUJe9S94rUyl4joB+HT9RohzP0HCK1blMHbRqgBZIArQsnsZMUsIsEdWvAQNGizVE3QNP7AoKiRYImQfqjQJ2iMIo0ARL3e2+GI4nXnCSHwgrikPPmve999/veOa+9hY7rCrr/6cVtvIMjIpYKkZXcNuG1qU/9/ZOfP6s+Lh5BqFJCCP0Y8h15eua1tx/4vxP9me+YyX3//hqAUAEEA6BrghhJKAreXRRUrfLRf37o09/ALx9FfSl0TBVuEwbprvIxuJ7V0IU1gd/aEPIFoqmRhcSKuKNPzA/hOX09lS/EFnIxLZfQ0KM3BHyDKHmS2SJFElnYJHPX10bymwvrVytbaze13fHrKb1cC20lMTM0VFD1kbmVjcRSQtM3BKEMuS4mZfmWQFZlUeB3IwvlMs4UhJHE8lz2BonLhevyzno2UQtMfSorxhbmk/PrC7cwP4ZXeCm9e702Vyxdzq2kxJH0evqGIK8K80OFaLIO1mZyjsymnt3JrsjF6+XlpWV+ZWmtUJsrKyS15fi1bX29mMzMlEorQnR9vq7GaE5e24jK/OaGuL10qzyTTJMnsnWwhJWZm9nZxe1ociGmpzeX04v83Hpdrqcmrm5mS+O3t+cXl5S54u25pxbHFsoVkLrw9KKsa+quqpGiGtnScyQvaIIsRcokVzaL6wIvF0uyRCQtIqtZXpY0RRbVyAbJzYgyfyslqRqWeJKs5rqYFAX4SuUTUn6GYGkVC8rUo//xjy98d/ST56o61weKtdmZup988ZUPvf7Tt//2CCg5OpaDVI2q+yLq583MGrqPWckgtZLBtKYIUmGqUtKfRR9BgDA6Ri1BQ/ceUNdsWRtjOY4xcuivE7UlHqorMVnWMoImEvgetXI/R3OX5ykc+DyMbiABYbgSpKA8XDNoC65F+GRRGWloDE2y7wzk05AI6cb9qPk9Asy9d8/sZ2RZBKr/jlOe/+ZLP/7BEdR3Ex3fwaIORttnIfFye5FISRopEOW+733hlR9+9OPxI9RxmEgo6OxevmW9mCPKr732wkN3/dZ3fqOqLmftOH25Jacn99kDPIvZQRt2BW0yR3XRE4ZLWJCSoNWghpMpaUcWeFA9eDbcDFrfiOmVA2Jt33XEKgAWv/otDSGAfKGxWbIGYBZrJCMUCTL++u6mQMr977zzk5/8wYXl5ysM1vHaBPQO/LlrSRBrSU6b5emfC51mhU7tg9JEok25v0+iVIJ/xUzjRdM0rjk2jSXIJSAJJZEMVw2e0+skSsH3DqQJiGfPC2a5YXiWA1OSIf0W/N6GdAFqyMIvFZXgOwp5YmgcxeFDr1m4m/Bi7X/KSPp1k6REx0iiaWkohaEeHuqg5UpIR5oXIr4dbiL8ubx7q2QeiYeQzLht261o1V8pqaRra5rhMW8df//3X33jv16gnkNBv+ACTCKnagrmtQPgCg+f1xO/9N67DHCzHsAtYSmPNVnZrYL87H+WxW/93gc+ZoD8oAuQN7AoACx4XoX1x+f/+43XH/3pYwasYRewqhC+gj73o1/56sZLzNM6NxIQHapYhnKaaRD1hchK+xpL+4SpVcmOatUTUIcMsGcBFoXgywt8N/yE+PME91meYDqkpN7xBr3iDVoEqLMeQqSaUHh41K6S+SAqqQnPfsis4i9Mq8h2zCrWWI4ttMGCtAKU1yBMq+Yd9RDMjbrpuqFDyYC4lyagUfvWzQg3A3eBtG3djHAdEOGvXbs/FBFuMzLvtGl32jQ2vNOJNi3WC21azJNLj6PYYWnTvDJgzIvr/xJjQMVkQLyjPtHjoNLfhAllf23Tuy2iPt5dojR0QtVzRUELhWKMo+FeU4w6lP0pxntCoRhA1EHFaNE8JQPoctnVkQqgjh5oAb0M0EfRkJsWsO9QMsBLt7bv210c7coAjByb1VyDDw/PaJ0qiqruAmY6xbVGeFnJV8Pd2deV75/54vk3gwuYP+QSH2u2PCXlSYWoP/fl508Pv+/qx46ioynUX8QVlr6IzvI1GTV01pgnp1N4gxTU1CJ6sDZXRl4TrQJn9hVYwqWpSsnopldaD057TWv0607Zw122vd2/+HgHun/x8ZrG70eM7r80Xd8zofD91KN78f4TbjoT6BCyIOauAWw9rNnIItqn/WMTTSv5Fx/RZVnL4JxIjIZRjQYZn59haFKVQd5WnARi0GMTPWDQY2CaXrTZ1egAOqgw5d81WbASUhYYEFz0cms9Vk8S6M/m3mux4JuMBa+YLFgOMQt8DEr2IHn+5PtAD9pw1E/U0ZME+pPx+3pQxiPepst7R8Z1BPqT8ft7UMbRwy7jOgL9yfhnDmXIOeJtDq1RB6p3VD922FW/jkB/qv9gW4YU/ab1kr65WHzVm/oWD1LfztkNwCS8DCQkl9LZRUGj2YfjzWro33K/ObPPGOCwdtScNO419MBiKp1JZOeezKwlkpmVdHZWUIigYQ09QcFhLk+4uQpbSiSr3GWOYf/1P8nL3LM64XAJK4QnHNyKGC55Vhi+MVf6+u8UBAlHtBPp6dKVe06fmlZLWOJUbVckH3xkE8BcpthNctGRUuWRK0m5yGHuQB5eFmVlkrswNBQfGhp65Mq0qimyVLgCjOXmRMJryoCMeV0jU5LA4+lB8zH8ACBXLnEDxHjKFbGgcpsD2LjlBZFTSUEXFI4UuU0FZEEinFlqepDiaiA8IOXU0tT+lNYkJIB6zG1X64lwqxjucZ4ognKJy2Hg5uTBanSRQRUF+mUHnScAicMyVySSzrHtkBhkMjWdU7hBA0AVuAHQGdw0AVbygixhAM7JpQEeKhLEqQEMepUnUzKXEDWiwNNZkLB6icq6WjlXUgjocl7Iy37RWClpUEWJiDInyTsypwklmeoeMXWPI5d81gBQdCwKt6EawuWIRDbB+uAGKtHkPFY5+N/BkoYLRFInD1YxPchE5UQLHKnwVSxtEU7BJSFPbtdqLjcgATpbU5y0JwOilohCGH9UbgvnBKAFlDovANJAQB5MVRFyulAvPSYuBcxSnuIsDgag7S7o5OWiDDoCltCUVFkpYAmgg2iw8qwu7BAOCFWJrloaoFI41JZlhdvEYMUM4pRlua2x7Q7le3g2p5xSuafmA7ig4B0gi4p0AIor/JQEekqlrBc5XhTA73ZBkomSLIBMOFzM0X3Te/RU+V+lh/kGUEVoAZj7owkqUXZwvWoS6j+aPMtTPyfs1Vfjob1tVYVfj/F/9L14JchIgO5mP7OXKb0lK9rW0vj9I8/82xqASldB0ab3FJuYeNe+KGtXIy8tP/OrP1j933OQeeZA5mcqxhbYfnNCw2l0Rsvc27xpZ49ZbEEvx+nlpFVPH/1xN7u9B4KAq76jmJq5kG+wgPG3zYDxascCxiRASMOzRSSw0tVc8f35vHQz32YE/blJ0IfDRZDjPnYcDbVrkpKmvcXSvmwy6WbomERTD9ZxDXBagnIednDsLWI6c9jI9ucpH3KtN//A0j5nMnAhlAz0NF34P71HWDtl3wtyHj+sch7vjJxbjJVsBBRl1CzEsN288+E21VsT8/hcypMJCsvkwhwEybICaSN2ld5sR6U2fGmBzgP16Dg6eOexJuVqt2AN2QGKOAXkDK9zzcCVtajtgnuuVeHJVnp/zgDwnsFV6KRgcXBRLgjSKi6QyLa6aQ+4udZEDMAfaA7gGhFLVHdAhYiioYt2VU1Wdx5Q8L/PNOUXTTc66ciN1s+1DVszq5OW03QSHg+7Gx3fC49fZ2h/xER7KkC0yyxWI5C3VNNGrMIdjdxKzPdL3jo1/xQ+xH120u1sasSJPtYu9LMDOukFaI2TfJWJQjNFMRaAKJyp/LC3WdffZOjmTHQvB6Q5i/C8AB+d/fas1n/YHeT8qe4RC/1dhv41E33OJ/pRLxz8bDtR8Meno82sse8twxpPWfNY7ubO+vfNnVGqj1bnzs6sGnNcXEqiUwmiw4FAe1qcjxGeeK5Sj1c/uB1NVzB7cpINJTbIdSpZnUJqme30krwjFCHis8m3x92W2U6uEjpdZANrlqh0HNku2ypReF1RD2SraOjB5m53pEaTt01NjnrSZOfedNT9mtMW7cqlFgTWNCfRWKDRyIjN3HsUKK/2YGmzrkOPVWNQfTidIKKRgBH356qO2Qk45kbABwOGPuPAypsmtx73zK2y2ZypyDgnpVTlzJ1dkH53QV6krQoy/qiQqOSPUunD5zh8TsDnZGXvgJP+xloy3UpLyhrFLiOXloikT9ZGmdFx3yDrFNE/yGjwIMeDBzkWPMhY8CCHggdZe/hxdLwK7PiYNc7Z73ic05XTgWdjti58vKULd9OFL3+mbWSM+iWDxUFtRDAWdgSjYUfQPtjoMoLDYUdwPOwIDgWCoOU/n+s9/+kvBL4rzB7WWiZ7Osxudt9i3hD7WgvLE2F2uBaWp8LsdS0s+8Psei0s7w6z/7WwPF51wideYU74r00njEPC3TR8chb2KnI65DTuZgAfsbOm2kOye3fsh2Qm1r42kuNe80JNjnvX6Zucdiqbex8banLcBwmhVjb3IWiopeM+OPIvHbtBwRU/A1l0jQ88Seu5FB1Lhdsmo0YuaqkfemxHLfWjke2opX40sR211A/dtaOW+tG8dtRSP7LZjlrqB44b1FKFf+xL1pJ9akfOlux3I+ihT8dr6jFy3ZmJCWgm5m5z9oXNxFQq5a+2TSGCaCvsFYK1Eex6tIO0BRGluKOt35w5Q22lK4hQ35fM7Br7GV+NPcvqG3CDdiQYwA0Ch2AAN2gtggHcIDwIBnCDVjQYwA3CpmAAN4hhWi+MnnO7gvjdifn12USWnVJgrT1qufjH9tWvP9+ibA09tgvooy5g+VzLTiHuW3rflMyjbwR4cEQT9j+eIRWN7dzH23re2gQsVs+SsHZzR7S+P3N0qkKDslyJKEUglu0t1kV6coC876SA2rMhZA6rqswL9IQKzPE4j60TDC5xOVJkG9QvcTuCah0QQGsUpE1ZKTbYmyzJHHui0b3b1dMT8nKkwV5sO9qsOhvtjgYJ0GX6jTZH798Wj0tEwurecRclWVUHBONmh4iGCKzzItgu+kbHPBw4bKEBC3lNAKW5swvb5S7shnbCnjErpZfWW7Cb7jypNfuaheMvsF5O3gyUIp4CJBrYNd5KFtuf28uivjcZep8y0ZttJ3oOR1lGvL6sIZykeFq+/3lGimSSMtxmUow0Txto3+w+ov4c1j12zf0Vd3bvdu9jgwPC3YD3sMWRpnl5MaM/sQW/rd/Tixk7SIQ/vXyXa5m+zNJEkx2xDrDDzcSmhebXuo1mO+XSeRl4Op6y8zII9JDJ5jJo4WhbLLBt6Gj3bZiO2fYyW/TI7YE78OFllvaEKbDzngXm0mr3ApJPtw8Bn++aCHAwIRrgYELU9wZ0+5eettgnHhs9sHE7iN2rxps36S+nG7ZHoISL84xQCND19I6YYLz+qAs0PR0S22k0x9xvM2uh7JdbKntSlm8JZFUWBX7XyZbwYVfQajy08SrNz5iMTPlgJA0oZUgTIC/deC+yWY7dJuWcsn3U+/tBw0uUi3N//L3ANwiiDLfjQw4hQdlf2/yzPaJc4978aTeVK+qtYe2mctWh7E+5zveIcsW9vQSnm8oV83bIWjeVqw5lf8rFBXaQihMlGXU34m3b1W06eev03JxfNuCgIFnqZs6mRbTX+pQeY2DD3euKnb/PwJtkXduSlwMJGrKFnm80YYEwDiR40eTNtbbyxvD3E465FA1U/8fcc2my2vvfO+jiCyanFjvEKeOXc465bla8nJDVmmMHxhj+lXHtiybXVjvMNTcd/VG49zR23QuKMRyoKXlXjLiXQVpvljsWAgGNORbQiLeZ1vA1bR4G94IUvSRrwuZu10QvwZ0GeTchLnXOMRdDAmEWvauhvfZOW7o3WU+vnfU7ZeYbTX/R98MtZeD3EDa3xHlygF/pLpL++P9IqGwg5scPdRFNfzK4ECob8DQq1GkbCPT1xhc9r6yumVq1nRh1eEp4tHb5lN8VhK03qYx6amon3A9OB3AQu+2KB6cHsdeubmgni2NsJ5FbFo+hIVeraP4feRwJitarAAA=" />
</form>******** type="text/javascript">outsystems.internal.$._waitForViewstate = true;outsystems.internal.$(document).ready(function() {outsystems.internal.$('input[name=__OSVSTATE]').val('688798709:291:Invoices_List;H4sIAAAAAAAAAO09aWwj13lPe2rXdnZtJ3FSr7tj71qx211KpC7qyKYUJe9S94rUyl4joB+HT9RohzP0HCK1blMHbRqgBZIArQsnsZMUsIsEdWvAQNGizVE3QNP7AoKiRYImQfqjQJ2iMIo0ARL3e2+GI4nXnCSHwgrikPPmve999/veOa+9hY7rCrr/6cVtvIMjIpYKkZXcNuG1qU/9/ZOfP6s+Lh5BqFJCCP0Y8h15eua1tx/4vxP9me+YyX3//hqAUAEEA6BrghhJKAreXRRUrfLRf37o09/ALx9FfSl0TBVuEwbprvIxuJ7V0IU1gd/aEPIFoqmRhcSKuKNPzA/hOX09lS/EFnIxLZfQ0KM3BHyDKHmS2SJFElnYJHPX10bymwvrVytbaze13fHrKb1cC20lMTM0VFD1kbmVjcRSQtM3BKEMuS4mZfmWQFZlUeB3IwvlMs4UhJHE8lz2BonLhevyzno2UQtMfSorxhbmk/PrC7cwP4ZXeCm9e702Vyxdzq2kxJH0evqGIK8K80OFaLIO1mZyjsymnt3JrsjF6+XlpWV+ZWmtUJsrKyS15fi1bX29mMzMlEorQnR9vq7GaE5e24jK/OaGuL10qzyTTJMnsnWwhJWZm9nZxe1ociGmpzeX04v83Hpdrqcmrm5mS+O3t+cXl5S54u25pxbHFsoVkLrw9KKsa+quqpGiGtnScyQvaIIsRcokVzaL6wIvF0uyRCQtIqtZXpY0RRbVyAbJzYgyfyslqRqWeJKs5rqYFAX4SuUTUn6GYGkVC8rUo//xjy98d/ST56o61weKtdmZup988ZUPvf7Tt//2CCg5OpaDVI2q+yLq583MGrqPWckgtZLBtKYIUmGqUtKfRR9BgDA6Ri1BQ/ceUNdsWRtjOY4xcuivE7UlHqorMVnWMoImEvgetXI/R3OX5ykc+DyMbiABYbgSpKA8XDNoC65F+GRRGWloDE2y7wzk05AI6cb9qPk9Asy9d8/sZ2RZBKr/jlOe/+ZLP/7BEdR3Ex3fwaIORttnIfFye5FISRopEOW+733hlR9+9OPxI9RxmEgo6OxevmW9mCPKr732wkN3/dZ3fqOqLmftOH25Jacn99kDPIvZQRt2BW0yR3XRE4ZLWJCSoNWghpMpaUcWeFA9eDbcDFrfiOmVA2Jt33XEKgAWv/otDSGAfKGxWbIGYBZrJCMUCTL++u6mQMr977zzk5/8wYXl5ysM1vHaBPQO/LlrSRBrSU6b5emfC51mhU7tg9JEok25v0+iVIJ/xUzjRdM0rjk2jSXIJSAJJZEMVw2e0+skSsH3DqQJiGfPC2a5YXiWA1OSIf0W/N6GdAFqyMIvFZXgOwp5YmgcxeFDr1m4m/Bi7X/KSPp1k6REx0iiaWkohaEeHuqg5UpIR5oXIr4dbiL8ubx7q2QeiYeQzLht261o1V8pqaRra5rhMW8df//3X33jv16gnkNBv+ACTCKnagrmtQPgCg+f1xO/9N67DHCzHsAtYSmPNVnZrYL87H+WxW/93gc+ZoD8oAuQN7AoACx4XoX1x+f/+43XH/3pYwasYRewqhC+gj73o1/56sZLzNM6NxIQHapYhnKaaRD1hchK+xpL+4SpVcmOatUTUIcMsGcBFoXgywt8N/yE+PME91meYDqkpN7xBr3iDVoEqLMeQqSaUHh41K6S+SAqqQnPfsis4i9Mq8h2zCrWWI4ttMGCtAKU1yBMq+Yd9RDMjbrpuqFDyYC4lyagUfvWzQg3A3eBtG3djHAdEOGvXbs/FBFuMzLvtGl32jQ2vNOJNi3WC21azJNLj6PYYWnTvDJgzIvr/xJjQMVkQLyjPtHjoNLfhAllf23Tuy2iPt5dojR0QtVzRUELhWKMo+FeU4w6lP0pxntCoRhA1EHFaNE8JQPoctnVkQqgjh5oAb0M0EfRkJsWsO9QMsBLt7bv210c7coAjByb1VyDDw/PaJ0qiqruAmY6xbVGeFnJV8Pd2deV75/54vk3gwuYP+QSH2u2PCXlSYWoP/fl508Pv+/qx46ioynUX8QVlr6IzvI1GTV01pgnp1N4gxTU1CJ6sDZXRl4TrQJn9hVYwqWpSsnopldaD057TWv0607Zw122vd2/+HgHun/x8ZrG70eM7r80Xd8zofD91KN78f4TbjoT6BCyIOauAWw9rNnIItqn/WMTTSv5Fx/RZVnL4JxIjIZRjQYZn59haFKVQd5WnARi0GMTPWDQY2CaXrTZ1egAOqgw5d81WbASUhYYEFz0cms9Vk8S6M/m3mux4JuMBa+YLFgOMQt8DEr2IHn+5PtAD9pw1E/U0ZME+pPx+3pQxiPepst7R8Z1BPqT8ft7UMbRwy7jOgL9yfhnDmXIOeJtDq1RB6p3VD922FW/jkB/qv9gW4YU/ab1kr65WHzVm/oWD1LfztkNwCS8DCQkl9LZRUGj2YfjzWro33K/ObPPGOCwdtScNO419MBiKp1JZOeezKwlkpmVdHZWUIigYQ09QcFhLk+4uQpbSiSr3GWOYf/1P8nL3LM64XAJK4QnHNyKGC55Vhi+MVf6+u8UBAlHtBPp6dKVe06fmlZLWOJUbVckH3xkE8BcpthNctGRUuWRK0m5yGHuQB5eFmVlkrswNBQfGhp65Mq0qimyVLgCjOXmRMJryoCMeV0jU5LA4+lB8zH8ACBXLnEDxHjKFbGgcpsD2LjlBZFTSUEXFI4UuU0FZEEinFlqepDiaiA8IOXU0tT+lNYkJIB6zG1X64lwqxjucZ4ognKJy2Hg5uTBanSRQRUF+mUHnScAicMyVySSzrHtkBhkMjWdU7hBA0AVuAHQGdw0AVbygixhAM7JpQEeKhLEqQEMepUnUzKXEDWiwNNZkLB6icq6WjlXUgjocl7Iy37RWClpUEWJiDInyTsypwklmeoeMXWPI5d81gBQdCwKt6EawuWIRDbB+uAGKtHkPFY5+N/BkoYLRFInD1YxPchE5UQLHKnwVSxtEU7BJSFPbtdqLjcgATpbU5y0JwOilohCGH9UbgvnBKAFlDovANJAQB5MVRFyulAvPSYuBcxSnuIsDgag7S7o5OWiDDoCltCUVFkpYAmgg2iw8qwu7BAOCFWJrloaoFI41JZlhdvEYMUM4pRlua2x7Q7le3g2p5xSuafmA7ig4B0gi4p0AIor/JQEekqlrBc5XhTA73ZBkomSLIBMOFzM0X3Te/RU+V+lh/kGUEVoAZj7owkqUXZwvWoS6j+aPMtTPyfs1Vfjob1tVYVfj/F/9L14JchIgO5mP7OXKb0lK9rW0vj9I8/82xqASldB0ab3FJuYeNe+KGtXIy8tP/OrP1j933OQeeZA5mcqxhbYfnNCw2l0Rsvc27xpZ49ZbEEvx+nlpFVPH/1xN7u9B4KAq76jmJq5kG+wgPG3zYDxascCxiRASMOzRSSw0tVc8f35vHQz32YE/blJ0IfDRZDjPnYcDbVrkpKmvcXSvmwy6WbomERTD9ZxDXBagnIednDsLWI6c9jI9ucpH3KtN//A0j5nMnAhlAz0NF34P71HWDtl3wtyHj+sch7vjJxbjJVsBBRl1CzEsN288+E21VsT8/hcypMJCsvkwhwEybICaSN2ld5sR6U2fGmBzgP16Dg6eOexJuVqt2AN2QGKOAXkDK9zzcCVtajtgnuuVeHJVnp/zgDwnsFV6KRgcXBRLgjSKi6QyLa6aQ+4udZEDMAfaA7gGhFLVHdAhYiioYt2VU1Wdx5Q8L/PNOUXTTc66ciN1s+1DVszq5OW03QSHg+7Gx3fC49fZ2h/xER7KkC0yyxWI5C3VNNGrMIdjdxKzPdL3jo1/xQ+xH120u1sasSJPtYu9LMDOukFaI2TfJWJQjNFMRaAKJyp/LC3WdffZOjmTHQvB6Q5i/C8AB+d/fas1n/YHeT8qe4RC/1dhv41E33OJ/pRLxz8bDtR8Meno82sse8twxpPWfNY7ubO+vfNnVGqj1bnzs6sGnNcXEqiUwmiw4FAe1qcjxGeeK5Sj1c/uB1NVzB7cpINJTbIdSpZnUJqme30krwjFCHis8m3x92W2U6uEjpdZANrlqh0HNku2ypReF1RD2SraOjB5m53pEaTt01NjnrSZOfedNT9mtMW7cqlFgTWNCfRWKDRyIjN3HsUKK/2YGmzrkOPVWNQfTidIKKRgBH356qO2Qk45kbABwOGPuPAypsmtx73zK2y2ZypyDgnpVTlzJ1dkH53QV6krQoy/qiQqOSPUunD5zh8TsDnZGXvgJP+xloy3UpLyhrFLiOXloikT9ZGmdFx3yDrFNE/yGjwIMeDBzkWPMhY8CCHggdZe/hxdLwK7PiYNc7Z73ic05XTgWdjti58vKULd9OFL3+mbWSM+iWDxUFtRDAWdgSjYUfQPtjoMoLDYUdwPOwIDgWCoOU/n+s9/+kvBL4rzB7WWiZ7Osxudt9i3hD7WgvLE2F2uBaWp8LsdS0s+8Psei0s7w6z/7WwPF51wideYU74r00njEPC3TR8chb2KnI65DTuZgAfsbOm2kOye3fsh2Qm1r42kuNe80JNjnvX6Zucdiqbex8banLcBwmhVjb3IWiopeM+OPIvHbtBwRU/A1l0jQ88Seu5FB1Lhdsmo0YuaqkfemxHLfWjke2opX40sR211A/dtaOW+tG8dtRSP7LZjlrqB44b1FKFf+xL1pJ9akfOlux3I+ihT8dr6jFy3ZmJCWgm5m5z9oXNxFQq5a+2TSGCaCvsFYK1Eex6tIO0BRGluKOt35w5Q22lK4hQ35fM7Br7GV+NPcvqG3CDdiQYwA0Ch2AAN2gtggHcIDwIBnCDVjQYwA3CpmAAN4hhWi+MnnO7gvjdifn12USWnVJgrT1qufjH9tWvP9+ibA09tgvooy5g+VzLTiHuW3rflMyjbwR4cEQT9j+eIRWN7dzH23re2gQsVs+SsHZzR7S+P3N0qkKDslyJKEUglu0t1kV6coC876SA2rMhZA6rqswL9IQKzPE4j60TDC5xOVJkG9QvcTuCah0QQGsUpE1ZKTbYmyzJHHui0b3b1dMT8nKkwV5sO9qsOhvtjgYJ0GX6jTZH798Wj0tEwurecRclWVUHBONmh4iGCKzzItgu+kbHPBw4bKEBC3lNAKW5swvb5S7shnbCnjErpZfWW7Cb7jypNfuaheMvsF5O3gyUIp4CJBrYNd5KFtuf28uivjcZep8y0ZttJ3oOR1lGvL6sIZykeFq+/3lGimSSMtxmUow0Txto3+w+ov4c1j12zf0Vd3bvdu9jgwPC3YD3sMWRpnl5MaM/sQW/rd/Tixk7SIQ/vXyXa5m+zNJEkx2xDrDDzcSmhebXuo1mO+XSeRl4Op6y8zII9JDJ5jJo4WhbLLBt6Gj3bZiO2fYyW/TI7YE78OFllvaEKbDzngXm0mr3ApJPtw8Bn++aCHAwIRrgYELU9wZ0+5eettgnHhs9sHE7iN2rxps36S+nG7ZHoISL84xQCND19I6YYLz+qAs0PR0S22k0x9xvM2uh7JdbKntSlm8JZFUWBX7XyZbwYVfQajy08SrNz5iMTPlgJA0oZUgTIC/deC+yWY7dJuWcsn3U+/tBw0uUi3N//L3ANwiiDLfjQw4hQdlf2/yzPaJc4978aTeVK+qtYe2mctWh7E+5zveIcsW9vQSnm8oV83bIWjeVqw5lf8rFBXaQihMlGXU34m3b1W06eev03JxfNuCgIFnqZs6mRbTX+pQeY2DD3euKnb/PwJtkXduSlwMJGrKFnm80YYEwDiR40eTNtbbyxvD3E465FA1U/8fcc2my2vvfO+jiCyanFjvEKeOXc465bla8nJDVmmMHxhj+lXHtiybXVjvMNTcd/VG49zR23QuKMRyoKXlXjLiXQVpvljsWAgGNORbQiLeZ1vA1bR4G94IUvSRrwuZu10QvwZ0GeTchLnXOMRdDAmEWvauhvfZOW7o3WU+vnfU7ZeYbTX/R98MtZeD3EDa3xHlygF/pLpL++P9IqGwg5scPdRFNfzK4ECob8DQq1GkbCPT1xhc9r6yumVq1nRh1eEp4tHb5lN8VhK03qYx6amon3A9OB3AQu+2KB6cHsdeubmgni2NsJ5FbFo+hIVeraP4feRwJitarAAA=');outsystems.internal.$._waitForViewstate = false;});*********>
******** type="text/javascript">//<=!=[=C=D=A=T=A=[
if(!window.OsJSONUpdate){do{try {if(window.parent && window.parent.OsJSONUpdate)window.OsJSONUpdate = window.parent.OsJSONUpdate;}catch(ex){d = document.domain.indexOf('.')+1;document.domain = document.domain.substr(d, document.domain.length - d);}}while(!window.OsJSONUpdate && document.domain.indexOf('.')!=document.domain.lastIndexOf('.'));if (!window.OsJSONUpdate){try{document.domain = ****************.hostname;}catch(ex){}window.OsJSONUpdate = function() {};}}
//]=]=>*********>******** type="text/javascript">//<=!=[=C=D=A=T=A=[
OsJSONUpdate({"js":["outsystems.internal.$(document).ready(function() {OsJSONUpdate({\"js\":[\"OsNotifyWidget('ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:RichWidgets_wt3:block', '');\"]})});"]})//]=]=>*********>******** src="/PerformanceProbe/performanceprobe.js" type="text/javascript" charset="UTF-8">*********>
			
		</body>
	</html>
 
Last edited:
Upvote 0
Bullstrik1 said:
Now i got another issue: how to download several files from this website?
Could anyone point me a good resource where i could find code snipets or practical examples
Click to expand...
I can't give specific help, but generally, one of the following approaches may work:


 
Upvote 0
If you can see the files on the webside, it should not be too difficult.

I tried for example to download the first page of Mr excel and it worked:

What I did was to record a macro then click data tab, get external data from web, put an adress and select what I wanted (I guess solution 1 of John)

The code that came out is
Code: 
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.mrexcel.com", _
        Destination:=Range("$A$2"))
 
Upvote 0
Before anything let me tank you for your help.

Unfortunantly i belive Jonh's solution nº 1 won't work since i don't have the direct links for the files i want. These file will be different from month to month. Besides that, this kind of soution is slow i belive :(
Also, i read somewhere that sendkeys solution is not reliable and so its not optimal aswell :(

I will check out Jonh's solution nº3. Maybe i will learn it more slowly but i think migh be the best way to it frm what i'v been reading here and there... My hope was that someone knew a good and reliable websource that i or someone else could use for this kind of work :)

I'll post back my findings, but in the meanwhile, pls let me know if someone have more sources of information where i could learn about •XmlHttpRequest


Again, thank you very much for your help! :)
Cheers
 
Upvote 0
Hi all again!

After a full day reading about vba and javascript and XmlHttpRequest i came to the conclusion that i cant use the XmlHttpRequest method, since the website where i want to download the files is using java script to generate the files to download and so there is no fixed website to extract the file.

My problem now is: how to apply javascripts methods/comands/funtions through vba and make it chose the file to download (witch depends of the month and the year introduced by the user in excel maybe through a inputbox) for the list of files available?

If u need more information in order to help me out, pls dont hesitate to ask it from me.

Tkx in advance for any help that you could give me at this point! :)
 
Upvote 0
Hi all!

Another full day at the office trying to figure this one out, and i almost got it!
I have to admit i had to use John's solution number 2 after all, but i got a problem dealing with the IE download message.

I found John's code to deal wil the download window, but problem is that this code is only compatible with IE8/9, and since i'm using IE11 (and can't downgrade) i hit another wall!

I was wondering if perhaps someone had this problem before and how its solved?

Any help is apretiated!
Cheers :)
 
Upvote 0
Hi everyone!

just wanted to say i managed to solve the problems i was having automating this website.

the code that works for me is this one:

Code: 
 Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr


Sub VV_MP_LogIn()

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'                                                                                                         '
'   Microsoft Office 15.0 Object Library                                                                                '
'   Microsoft HTML Object Library                                                                                       '
'   Microsoft Internet Controls                                                                                         '
'   Microsoft XML, v6.0                                                                                                 '
'   UIAutomation Client (é tb necessário colocar o ficheiro UIAutomation.dll nos documentos do user)                    '
'                                                                                                                       '
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++




Dim ie As InternetExplorer, doc As HTMLDocument, WshtTA As Worksheet, Mes As Variant, UserDldD As String, Marca As String, FileName As String, New_FileName As String
Dim TR As IHTMLElementCollection, aTag As IHTMLElementCollection
Dim AlertsT As IHTMLElement, a As IHTMLElement
Dim d As IHTMLElement, DPath As String
Dim h As LongLong, o As IUIAutomation, e As IUIAutomationElement, iCnd As IUIAutomationCondition, Button As IUIAutomationElement, InvokePattern As IUIAutomationInvokePattern


    '   define folha  de tabelas auxiliares
Set WshtTA = Workbooks("00 - FLEET_Acessos.xlsb").Worksheets("Tabelas Auxiliares")


If Right(DPath, 1) <> "\" Then DPath = DPath & "\"


    '   define directoria de downloads do user
UserDldD = "C:\Users\" & Environ("UserName") & "\Downloads\"


    '   Pede ao user para inserir mês e ano no formato "MM/AAAA"


If Month(Now()) - 1 < 10 And Month(Now()) - 1 > 1 Then
    Mes = InputBox("Insere, por favor, o mês no formato MM/AAAA", "Mês - Dados Via Verde", "0" & Month(Now()) - 1 & "/" & Year(Now()))
ElseIf Month(Now()) - 1 = 0 Then
    Mes = InputBox("Insere, por favor, o mês no formato MM/AAAA.", "Mês - Dados Via Verde", "12/" & Year(Now()) - 1)
ElseIf Month(Now()) - 1 > 9 And Month(Now()) - 1 < 13 Then
    Mes = InputBox("Insere, por favor, o mês no formato MM/AAAA", "Mês - Dados Via Verde", Month(Now()) - 1 & "/" & Year(Now()))
End If


    '   testes à inputbox
If Mes = False Then
    Exit Sub
ElseIf Mes = "" Then
    Exit Sub
End If




'open Internet Explorer in memory, and go to website
Set ie = New InternetExplorer


'   Navega para o website da via verde
With ie
        .Visible = True ' Podemos optar por nao mostrar a janela do browser o que irá permitir acelerar todo o processo. Para tal basta escolher a opção "FALSE"
        .navigate (WshtTA.Range("AA9"))
        While .Busy Or .readyState <> 4: DoEvents: Wend
            
                ' Código para fazer log in no site Via Verde através do InternetExplorer
    With .document
        .getElementById("wtEmailInput").Value = "USERNAME"
        .getElementById("wtPasswordInput").Value = "PASSWORD"
        .getElementById("wt14").Click
    End With
            '   compasso de espera para que ie tenha tempo de abrir o website
    While .Busy Or .readyState <> 4: DoEvents: Wend
            '   navega para o site dos extractos
    .navigate (WshtTA.Range("AB9"))
            '   compasso de espera para que ie tenha tempo de abrir o website
 While .Busy Or .readyState <> 4: DoEvents: Wend
End With


    Set doc = ie.document
        'Selecciona a tabela com os links para a informação de interesse e percorre todas as linhas até encontrar hyperlinks
        'Prime cada um dos hyperlinks e extrai informação mediante o mês/ano inseridos na inputbox Mes
        
    With doc
        '   Define a tabela em html sobre a qual pretendemos procurar os hyperliks a clicar
        Set AlertsT = .getElementById("ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtTableRecords1")
        
        With AlertsT.Rows(1)
            If Right(.Cells(0).innerHTML, 7) = Mes Then
                    With .Cells(3)
                        For Each a In .getElementsByTagName("a")
                                       
                                Select Case a.ID
                                    
                                        '***********************'
                                        '                       '
                                        '   Download de PDF's   '
                                        '                       '
                                        '***********************'
                                    Case "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtTableRecords1:0:wt63"
                                        '   clica "link" para download de ficheiros PDF
                                        a.Click
                                                                                        
                                        '   Eliminina todos os ficheiros na directoria de downloads
                                        On Error Resume Next
                                        Kill UserDldD & "*.*"
                                        On Error GoTo 0
                                        
                                        Application.Wait (Now() + TimeValue("0:00:05"))
                                        
                                        '   código para lidar com a janela de download do IE11
                                        
                                        Set o = New CUIAutomation
                                        
                                        h = ie.hwnd
                                        h = FindWindowEx(h, 0, "Frame Notification Bar", vbNullString)
                                        
                                        If h = 0 Then Exit Sub
                                    
                                        Set e = o.ElementFromHandle(ByVal h)
                                        
                                        Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "Save")
                                        
                                        Set Button = e.FindFirst(TreeScope_Subtree, iCnd)
                                                                                
                                        Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
                                        
                                        InvokePattern.Invoke
                                        
                                        Application.Wait (Now() + TimeValue("0:00:05"))
                                        
                                                '    Define a Marca a colocar no nome do ficheiro e o Path para guardar o ficheiro <--- necessário alterar quando copiar codigo para outra macro
                                        Select Case Right(Dir(UserDldD & "*.*"), 4)
                                            Case ".pdf"
                                                Marca = WshtTA.Range("C9")
                                                DPath = WshtTA.Range("R9")
                                            Case ".xml"
                                                Marca = WshtTA.Range("C9")
                                                DPath = WshtTA.Range("R9")
                                            Case Else
                                                Marca = WshtTA.Range("B9")
                                                DPath = WshtTA.Range("R10")
                                        End Select
                                        
                                            If Right(DPath, 1) <> "\" Then DPath = DPath & "\"
                                        
                                        '   Código para gravar ficheiros na rede
                                        FileName = Dir(UserDldD & "*.pdf")
                                        Select Case Right(Dir(UserDldD & "*.*"), 4)
                                            Case ".pdf"
                                                New_FileName = Left(Mes, 2) & Right(Mes, 4) & "_" & Marca & "_Extracto.pdf"
                                            Case ".xml"
                                                New_FileName = Left(Mes, 2) & Right(Mes, 4) & "_" & Marca & "_Extracto.xml"
                                            Case Else
                                                New_FileName = Left(Mes, 2) & "_" & Right(Mes, 4) & "_" & "Extracto" & "_" & Marca & ".csv"
                                        End Select
                                        FileCopy UserDldD & FileName, DPath & New_FileName
                                        
                                        '   Eliminina todos os ficheiros na directoria de downloads
                                        On Error Resume Next
                                        Kill UserDldD & "*.*"
                                        On Error GoTo 0
                                        
                                        '***********************'
                                        '                       '
                                        '   Download de CSV's   '
                                        '                       '
                                        '***********************'
                                    Case "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtTableRecords1:0:wt32"
                                        '   clica "link" para download de ficheiros PDF
                                        a.Click
                                                                                        
                                        '   Eliminina todos os ficheiros na directoria de downloads
                                        On Error Resume Next
                                        Kill UserDldD & "*.*"
                                        On Error GoTo 0
                                        
                                        
                                        Application.Wait (Now() + TimeValue("0:00:05"))
                                        
                                        '   código para lidar com a janela de download do IE11
                                        
                                        Set o = New CUIAutomation
                                        
                                        h = ie.hwnd
                                        h = FindWindowEx(h, 0, "Frame Notification Bar", vbNullString)
                                        
                                        If h = 0 Then Exit Sub
                                    
                                        Set e = o.ElementFromHandle(ByVal h)
                                        
                                        Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "Save")
                                    
                                        
                                        Set Button = e.FindFirst(TreeScope_Subtree, iCnd)
                                        
                                        
                                        Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
                                        
                                        InvokePattern.Invoke
                                        
                                        Application.Wait (Now() + TimeValue("0:00:05"))
                                        
                                        
                                                '    Define a Marca a colocar no nome do ficheiro e o Path para guardar o ficheiro <--- necessário alterar quando copiar codigo para outra macro
                                        Select Case Right(Dir(UserDldD & "*.*"), 4)
                                            Case ".pdf"
                                                Marca = WshtTA.Range("C9")
                                                DPath = WshtTA.Range("R9")
                                            Case ".xml"
                                                Marca = WshtTA.Range("C9")
                                                DPath = WshtTA.Range("R9")
                                            Case Else
                                                Marca = WshtTA.Range("B9")
                                                DPath = WshtTA.Range("R10")
                                        End Select
                                        
                                            If Right(DPath, 1) <> "\" Then DPath = DPath & "\"
                                        
                                        
                                        '   Código para gravar ficheiros na rede
                                        FileName = Dir(UserDldD & "*.csv")
                                        
                                        Select Case Right(Dir(UserDldD & "*.*"), 4)
                                            Case ".pdf"
                                                New_FileName = Left(Mes, 2) & Right(Mes, 4) & "_" & Marca & "_Extracto.pdf"
                                            Case ".xml"
                                                New_FileName = Left(Mes, 2) & Right(Mes, 4) & "_" & Marca & "_Extracto.xml"
                                            Case Else
                                                New_FileName = Left(Mes, 2) & "_" & Right(Mes, 4) & "_" & "Extracto" & "_" & Marca & ".csv"
                                        End Select
                                        
                                        FileCopy UserDldD & FileName, DPath & New_FileName
                                        '   Eliminina todos os ficheiros na directoria de downloads
                                        On Error Resume Next
                                        Kill UserDldD & "*.*"
                                        On Error GoTo 0
                                        
                                        '***********************'
                                        '                       '
                                        '   Download de XML's   '
                                        '                       '
                                        '***********************'
                                    Case Is = "ViaVerdeTheme_wt6:wtMainContent:Invoicing_wt3:block:wtTableRecords1:0:wt82"
                                        '   clica "link" para download de ficheiros PDF
                                        a.Click
                                                                                        
                                        '   Eliminina todos os ficheiros na directoria de downloads
                                        On Error Resume Next
                                        Kill UserDldD & "*.*"
                                        On Error GoTo 0
                                        
                                        
                                        Application.Wait (Now() + TimeValue("0:00:05"))
                                        
                                        '   código para lidar com a janela de download do IE11
                                        
                                        Set o = New CUIAutomation
                                        
                                        h = ie.hwnd
                                        h = FindWindowEx(h, 0, "Frame Notification Bar", vbNullString)
                                        
                                        If h = 0 Then Exit Sub
                                    
                                        Set e = o.ElementFromHandle(ByVal h)
                                        
                                        Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "Save")
                                    
                                        
                                        Set Button = e.FindFirst(TreeScope_Subtree, iCnd)
                                        
                                        
                                        Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
                                        
                                        InvokePattern.Invoke
                                        
                                        Application.Wait (Now() + TimeValue("0:00:05"))
                                        
                                                '    Define a Marca a colocar no nome do ficheiro e o Path para guardar o ficheiro <--- necessário alterar quando copiar codigo para outra macro
                                        Select Case Right(Dir(UserDldD & "*.*"), 4)
                                            Case ".pdf"
                                                Marca = WshtTA.Range("C9")
                                                DPath = WshtTA.Range("R9")
                                            Case ".xml"
                                                Marca = WshtTA.Range("C9")
                                                DPath = WshtTA.Range("R9")
                                            Case Else
                                                Marca = WshtTA.Range("B9")
                                                DPath = WshtTA.Range("R10")
                                        End Select
                                        
                                            If Right(DPath, 1) <> "\" Then DPath = DPath & "\"
                                        
                                        
                                        '   Código para gravar ficheiros na rede
                                        FileName = Dir(UserDldD & "*.xml")
                                        Select Case Right(Dir(UserDldD & "*.*"), 4)
                                            Case ".pdf"
                                                New_FileName = Left(Mes, 2) & Right(Mes, 4) & "_" & Marca & "_Extracto.pdf"
                                            Case ".xml"
                                                New_FileName = Left(Mes, 2) & Right(Mes, 4) & "_" & Marca & "_Extracto.xml"
                                            Case Else
                                                New_FileName = Left(Mes, 2) & "_" & Right(Mes, 4) & "_" & "Extracto" & "_" & Marca & ".csv"
                                        End Select
                                        FileCopy UserDldD & FileName, DPath & New_FileName
                                        
                                        '   Eliminina todos os ficheiros na directoria de downloads
                                        On Error Resume Next
                                        Kill UserDldD & "*.*"
                                        On Error GoTo 0
                                End Select
                        Next a
                    End With
            Else
                MsgBox ("Ainda não estão disponíveis os dados de interesse!" & vbNewLine & "Por favor, tenta mais tarde.")
                GoTo Label_Exitsub
            End If
        End With
    End With




Label_Exitsub:
ie.Quit
Set ie = Nothing


End Sub

Hopefully, this will help someone else out there with similar problem.
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar threads

J
  • Solved
IE Automation to Save as File Download from website with LogIn
2
Replies
15
Views
6K
John_w
J
Z
  • Question Question
Convert old excel macro to selenium
Replies
0
Views
988
zios007
Z
randaubienghoc
  • Question Question
Web Scraping - Container Tracking from Searates Website to Excel
Replies
6
Views
4K
Marc L
Marc L
C
  • Question Question
Scrape data from password protected site without using Internet Explorer
Replies
6
Views
6K
Dan_W
D
T
  • Question Question
Need help with vba and Html dropdown.
Replies
0
Views
657
tburg73
T

Forum statistics

Threads
1,223,889
Messages
6,175,223
Members
452,620
Latest member
dsubash

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top