Em 01/02/2017 às 18:12, PauloASantos disse:

Boa tarde a todos

após a resposta do menbro derrerter e uma pesquisa mais aprofundada no forum lá encontrei alguns topicos que me abriram o caminho para a função que pretendo implementar, no entanto e como devem calcular ainda surge imensas dúvidas, as quais penso disipar com as vossa ajuda, assim implementei o seguinte código que transcrevo de seguida:
 

<?php
$url="https://faturas.portaldasfinancas.gov.pt/json/obterDocumentosAdquirente.action?dataInicioFilter=2014-11-01&dataFimFilter=2015-01-12&ambitoAquisicaoFilter=TODOS";
$login_url="https://www.acesso.gov.pt/jsp/loginRedirectForm.jsp?path=painelAdquirente.action";
// Inicia o cURL
$ch = curl_init();
// Define a URL original do formulário de login
curl_setopt($ch, CURLOPT_URL, $login_url);
// Habilita o protocolo POST
curl_setopt ($ch, CURLOPT_POST, 1);
// Define os parâmetros que serão enviados usuário e senha
curl_setopt ($ch, CURLOPT_POSTFIELDS, 'partiD=EFPF&username=xxxxxxxxx&password=xxxxxxxxx');
// Imita o comportamento patrão dos navegadores: manipular cookies
curl_setopt ($ch, CURLOPT_COOKIEJAR, 'cookie.txt');
// Define o tipo de transferência
curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1);
// Executa a requisição
$acesso = curl_exec ($ch);
echo $acesso."<br>";
// Define uma nova URL para ser chamada (após o login)
curl_setopt($ch, CURLOPT_URL, $url);
// Executa a segunda requisição
$faturas = curl_exec ($ch);
// Encerra o cURL
curl_close ($ch);
// descodifica json
$jsonDecode = (json_decode($faturas, true));
var_dump ($jsonDecode);
?>

como é obvio o utilizador e password sao ficticios, no entanto recebo a seguinte mensagem de erro, que penso estar relacionada com o login

Error 500--Internal Server Error

From RFC 2068 Hypertext Transfer Protocol -- HTTP/1.1:

10.5.1 500 Internal Server Error

The server encountered an unexpected condition which prevented it from fulfilling the request.

porque dará este erro ?

qual será o caminho a seguir ?

os tópicos que me orientaram foram os seguintes e desde já o meu obrigado a todos eles:

http://www.portugal-a-programar.pt/forums/topic/57734-utilizar-webservices-da-at/?page=236#comment-574774

http://www.portugal-a-programar.pt/forums/topic/57734-utilizar-webservices-da-at/?page=276#comment-598219

http://www.portugal-a-programar.pt/forums/topic/57734-utilizar-webservices-da-at/?page=255#comment-591157

 

Viva,

Já conseguiste ultrapassar? ou seja autenticas-te e obtens os documentos?

Abr

16 horas atrás, Carlos Pais disse:

Era mesmo de uma coisa assim que estava a pesquisar ... mas de facto quando chamo o comando  "detalheDocumentoAdquirente.action" dá sempre uma informação sem dados ...

{"success":true,"messages":{"error":[],"success":[],"info":[],"warning":[]}} 

Alguém sabe outro comando que retorne resultados ... ?

 

Esse método foi descontinuado quando houver aquela história da protecção de dados CNPD aqui a uns anos atrás, a AT simplesmente no portal do e-fatura escondeu as linhas, e com isso calou toda gente... apesar de eles receber todos os detalhes (cabeçalho e linhas dos documentos)  nos como utilizadores não vemos o detalhe... enfim e fácil tapar os olhos neste pais.

22 horas atrás, Henrique Almeida disse:

Boa tarde, sou novo por aqui e preciso urgentemente de fazer um voxel 4*4*4 em Matlab. Estou quase a entrar em desespero pois não estou a conseguir fazer e o que tenho dá-me erro... Será que alguém me pode ajudar? Muito obrigado!

cube=zeros(11,11,11)
cube(3:9,3:9,3:9)=5; % Create a cube inside the region
% Boring: faces of the cube are a different color.
cube(3:9,3:9,3)=2;
cube(3:9,3:9,9)=2;
cube(3:9,3,3:9)=2;
cube(3:9,9,3:9)=2;
cube(3,3:9,3:9)=2;
cube(9,3:9,3:9)=2;

vold3d('Cdata',cube,'alpha',cube/5)

Encontrei este codigo na net e não sei o que o mesmo faz e dá erro!

Por favor ajudem-me!
 

Por favor alguém que me ajude , estou a entrar me desespero!

Ola

preciso de ajuda

preciso criar um form com restrição de datas.

tenho dois campos (data inicial e final), preciso que ao colocar as datas ele retorne todos os produtos que deram baixa nesse período. a dificuldade esta na criação dessa restrição.

Acho que estás sempre a inserir os dados no inicio da pilha.

procedure TfrmCADEXE.BtnIncluirClick(Sender: TObject);
begin

  pilha := Nil;   //  ------- Se dizes que a pilha = NIL

  begin
  if (pilha = Nil) then // -- Então isto é sempre verdade
  begin
  new(pilha);
....

Dá uma olhada aqui: https://www.portugal-a-programar.pt/forums/topic/47424-ponteiros/

ou aqui: https://wiki.portugal-a-programar.pt/dev_geral:pascal:ponteiros

Prezado,

Seria interessante se você ou alguém mais pudesse dar uma boa olhada na base de dados que enviei pois ocorre o seguinte:

O Formulário em questão (FRM_INCLUSAO_REGISTRO_ATIVIDADES_2) é baseado na query QRY_TESTE_INCLUSAO.

Pois bem! Quando faço teste apenas na Query ela é executada perfeitamente NÃO exibindo os usuários ROGER ARIAS e MIRNA VALVERDE.

Já no Formulário (que se abre para inclusão de um registro em branco) ao clicar no campo RESPONSAVEL, surgem TODOS os responsáveis (incluindo na exibição os usuários ROGER ARIAS e MIRNA VALVERDE, o que eu não quero que ocorra) e não consigo descobrir onde está o problema!

Se puderem dar uma olhada e apresentar uma solução (com exemplo), eu agradeceria muito!

Só para constar, utilizo Windows 10 e Office 2010.

Atenciosamente,

Sérgio Sporch

São Paulo/Brasil

Em 08/06/2018 às 09:31, s0me0ne disse:

@derrerter obrigado pela resposta.

Já vi a resposta.

verifiquei que existe a o detalhe do documento que deve ser para apresentar os detalhes das linhas do documento através deste endereço:

https://faturas.portaldasfinancas.gov.pt/json/detalheDocumentoAdquirente.action?idDocumento=XXXXXXXXXXX

em que o XXXXXXXXXXX é o idDocumento recebido em:

https://faturas.portaldasfinancas.gov.pt/json/obterDocumentosAdquirente.action?dataInicioFilter=2018-05-01&dataFimFilter=2018-05-20&ambitoAquisicaoFilter=TODOS

O detalheDocumentoAdquirente.action está a paresentar dados em branco:

{"success":true,"messages":{"error":[],"success":[],"info":[],"warning":[]}}

alguém sabe se falta alguma parte do comando?

Ao abrir o código fonte da opção de ver as faturas em https://faturas.portaldasfinancas.gov.pt/detalheDocumentoAdquirente.action?idDocumento=XXXXXXXXXXX, com o mesmo idDocumento consigo obter o detalher que pretendo:

dadosLinhasDocumento = [{"valorBaseTributavel":55750,"valorIva":0,"valorTotal":55750,"taxaIva":0,"motivoIsencao":null,"motivoIsencaoDesc":"","docsOrigem":[]}];

Alguma ajuda?

Era mesmo de uma coisa assim que estava a pesquisar ... mas de facto quando chamo o comando  "detalheDocumentoAdquirente.action" dá sempre uma informação sem dados ...

{"success":true,"messages":{"error":[],"success":[],"info":[],"warning":[]}} 

Alguém sabe outro comando que retorne resultados ... ?

Boa tarde, sou novo por aqui e preciso urgentemente de fazer um voxel 4*4*4 em Matlab. Estou quase a entrar em desespero pois não estou a conseguir fazer e o que tenho dá-me erro... Será que alguém me pode ajudar? Muito obrigado!

cube=zeros(11,11,11)
cube(3:9,3:9,3:9)=5; % Create a cube inside the region
% Boring: faces of the cube are a different color.
cube(3:9,3:9,3)=2;
cube(3:9,3:9,9)=2;
cube(3:9,3,3:9)=2;
cube(3:9,9,3:9)=2;
cube(3,3:9,3:9)=2;
cube(9,3:9,3:9)=2;

vold3d('Cdata',cube,'alpha',cube/5)

Encontrei este codigo na net e não sei o que o mesmo faz e dá erro!

Por favor ajudem-me!
 

1 hora atrás, Antonio Valladares disse:

Ola!

   Quando envio a próxima fatura, recebo a resposta:

                          "-1 – Parâmetros de entrada inválidos;".

Os números de clientes que coloquei em XXXX apenas para publicar esta mensagem

<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
<S:Header>
<wss:Security xmlns:wss="http://schemas.xmlsoap.org/ws/2002/12/secext/">
<wss:UsernameToken>
<wss:Username>XXXXXXX/XX</wss:Username>
<wss:Password>34HTCWhED0Aq1i/nZ0pmyg==</wss:Password>
<wss:Nonce>CERRg9hUe+g7X7QyF28LBnKq56KKZHLKtez90eBSmY4aPK7PW9gub/zr4iX1//8/u+N4l2tlGmVwBKdeJ5UQlsUXpZ1FtD6AtbJi3acY9YpFmOvbLiqVPso/7Rx5LMs5qWxho5zzLXKSM0tkSun5GSpsxQfcpZkVhS8uzzKyR+EOhiBc1DMIKy2D7Ky5Q124vJmBvxxvW37HLRGDhOvM07H3zk3emxGBbPn3fNawpomRKAcGCle9iNiEq+HObmLZQldrSDkkw2VYgl/gNvUz9Sc7AIWsbvZuIkIbucvPW6WtT8MpUB6q7igg7P2vevgpBFhCKLsKyfxl3P9f/KlzPg==</wss:Nonce>
<wss:Created>3CPVjKrMt7rpanuTMzUXe2V/IteyE7Oqy4a50RfNtEw=</wss:Created>
</wss:UsernameToken>
</wss:Security>
</S:Header>
<S:Body>
<ns0:RegisterInvoiceElem xmlns:ns0="http://servicos.portaldasfinancas.gov.pt/faturas/">
<TaxRegistrationNumber>XXXXXXX</TaxRegistrationNumber>
<ns0:InvoiceNo>FT 2018/1800000016</ns0:InvoiceNo>
<ns0:InvoiceDate>2018-07-18</ns0:InvoiceDate>
<ns0:InvoiceType>FT</ns0:InvoiceType>
<ns0:InvoiceStatus>N</ns0:InvoiceStatus>
<CustomerTaxID>XXXXXXX</CustomerTaxID>
<Line>
<ns0:DebitAmount>4944.76</ns0:DebitAmount>
<ns0:Tax>
<ns0:TaxType>IVA</ns0:TaxType>
<ns0:TaxCountryRegion>PT</ns0:TaxCountryRegion>
<ns0:TaxPercentage>23</ns0:TaxPercentage>
</ns0:Tax>
<ns0:TaxExemptionReason>M08</ns0:TaxExemptionReason>
</Line>
<DocumentTotals>
<ns0:TaxPayable>1137.29</ns0:TaxPayable>
<ns0:NetTotal>4944.76</ns0:NetTotal>
<ns0:GrossTotal>6082.05</ns0:GrossTotal>
</DocumentTotals>
</ns0:RegisterInvoiceElem>
</S:Body>
</S:Envelope>

 Moito obrigado, 

 

Achei o erro, estava enviando o indicador TaxExemptionReason quando havia IVA.

O ambiente de teste das faturas está funcionando corretamente para mim.

Ajudou, muito obrigado 😀

Boas pessoal,

há um tópico com nome parecido com este, mas o conteúdo é bem diferente. Já partilhei no outro uma solução para ler dados do cartão de cidadão com uma DLL. Desta vez venho partilhar convosco uma solução mais abrangente para ler os dados a partir do browser chrome.

Podem consultar no meu blog: https://ruimptech.wordpress.com/2018/07/19/88/

Esta solução passa por utilizar uma extension chrome que faz a ponte entre o browser e a leitura dos dados.

Bom dia!

Estou a meio de um projecto e necessitava de ajuda a resolver uma questão que não estou a conseguir.

No meu projecto tenho uma datagridview, sendo que, para os valores da segunda coluna quero executar um cálculo para cada linha. No entanto, dentro do ciclo for para executar cada linha tenho um outro ciclo cujos diversos valores são somados. Assim, isto faz com que quando é calculado o valor para a segunda linha da minha datagried o código some o valor da linha anterior e eu não quero que ocorra esta soma. Isto é, por exemplo o código que tenho actualmente dá me os seguintes resultados: 4, 8 e 13 e o que eu quero obter é 4, 4, 5.

No fundo será o valor obtido para cada linha subtraido do valor da linha anterior, mas neste momento não consigo ter acesso a esse valor no meu código. Alguém tem uma sugestão?

Seria muito grata se alguém me pudesse dar uma dica de como resolver isto, é a primeira vez que estou a programar e neste momento não tenho ideia de como resolver.

Deixo abaixo algumas linhas do meu código para que possa ser mais perceptível o que estou a tentar dizer.

For Each Linha In DataGrid_RHR.Rows

            RHR = Convert.ToDouble(Linha.Cells("Column2").Value)

            RHRW = RHR * 1000 'converter kW em W

            'calcular a origem virtual

            origem_virtual = (-1.02 * d_fogo) + (0.00524 * (RHRW ^ 0.4))

            'calcular o comprimento da chama

            hf = (-1.02 * d_fogo) + (0.0148 * (RHRW ^ 0.4))

            'Calcular o fator de vista para a face 1

            For j = 0 To limite Step 0.5

                'calcular A temperatura da chama

                t_chama = 20 + (0.25 * ((0.8 * RHRW) ^ (2 / 3)) * ((j - origem_virtual) ^ (-(5 / 3))))

                'fator de vista dos cilindros

                y_fv = 0

                r = d_fogo / 2

                rij = r - ((0.5 * d_fogo * (hf - (hf - j))) / hf) 'verificado

                s = s_fv / rij 'VERIFICADO

                x = x_fv / rij 'verificado

                y = y_fv / rij ' isto estava mal

                h_fv = Math.Abs(z_coluna - j) 'verificado

                hh = h_fv / rij

                A = (x ^ 2) + (y ^ 2) + (s ^ 2) 'verificado

                B = (s ^ 2) + (x ^ 2) 'verificado

                C = (hh - y) ^ 2 'VERIFICADO

                equacao1 = (Math.Acos(((y ^ 2) - B + 1) / (A - 1))) + (Math.Acos((C - B + 1) / (C + B - 1)))

                equacao2 = y * (((A + 1) / ((((A - 1) ^ 2) + (4 * y ^ 2)) ^ 0.5)) * (Math.Acos((y ^ 2 - B + 1) / ((B ^ 0.5) * (A - 1)))))

                equacao3 = (C ^ 0.5) * ((C + B + 1) / (((((C + B - 1) ^ 2) + (4 * C)) ^ 0.5)) * (Math.Acos((C - B + 1) / ((B ^ 0.5) * (C + B - 1)))))

                equacao4 = hh * Math.Acos(1 / ((B) ^ (1 / 2)))

                fator_de_vista_1 = (s / B) - (((s / (2 * B * 3.14)) * (equacao1 - equacao2 - equacao3 + equacao4)))

                             fv_anel = (hh_anel / 2) * ((((hh_anel ^ 2) + (rr2_anel ^ 2) + 1) / (Math.Sqrt((((hh_anel ^ 2) + (rr2_anel ^ 2) + 1) ^ 2) - (4 * (rr2_anel ^ 2))))) - (((hh_anel ^ 2) + (rr1_anel ^ 2) + 1) / (Math.Sqrt((((hh_anel ^ 2) + (rr1_anel ^ 2) + 1) ^ 2) - (4 * (rr1_anel ^ 2))))))

                If j > z_coluna + 1.0E-23 Then

                    fv_anel = 0

                           '

                '6º calcular o fator de vista total (soma do fator de vista do cilindro e do anel) para a face 1

                fv_total = fator_de_vista + fv_anel

                          '7º calcular o fluxo absorvido pela face 1

                fluxo_por_Segmento = (constante_de_stephan_Boltzmann * (((temperatura_chama + kelvin) ^ 4) * fv_total)) / 1000

               somatorio_face_1 += fluxo_por_Segmento

            Next

            fluxo_absorvido_face_1 = emissividade_chama * somatorio_face_1

'  MessageBox.Show(fluxo_absorvido_face_1)

 Next

Isso não tem nada a ver com a base de dados mas com a aplicação e os filtros que estás a aplicar na ação desse botão.

Se não queres que esses responsáveis apareçam, aplicas um filtro de exclusão na query que vai buscar os responsáveis.

Ola!

   Quando envio a próxima fatura, recebo a resposta:

                          "-1 – Parâmetros de entrada inválidos;".

Os números de clientes que coloquei em XXXX apenas para publicar esta mensagem

<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
<S:Header>
<wss:Security xmlns:wss="http://schemas.xmlsoap.org/ws/2002/12/secext/">
<wss:UsernameToken>
<wss:Username>XXXXXXX/XX</wss:Username>
<wss:Password>34HTCWhED0Aq1i/nZ0pmyg==</wss:Password>
<wss:Nonce>CERRg9hUe+g7X7QyF28LBnKq56KKZHLKtez90eBSmY4aPK7PW9gub/zr4iX1//8/u+N4l2tlGmVwBKdeJ5UQlsUXpZ1FtD6AtbJi3acY9YpFmOvbLiqVPso/7Rx5LMs5qWxho5zzLXKSM0tkSun5GSpsxQfcpZkVhS8uzzKyR+EOhiBc1DMIKy2D7Ky5Q124vJmBvxxvW37HLRGDhOvM07H3zk3emxGBbPn3fNawpomRKAcGCle9iNiEq+HObmLZQldrSDkkw2VYgl/gNvUz9Sc7AIWsbvZuIkIbucvPW6WtT8MpUB6q7igg7P2vevgpBFhCKLsKyfxl3P9f/KlzPg==</wss:Nonce>
<wss:Created>3CPVjKrMt7rpanuTMzUXe2V/IteyE7Oqy4a50RfNtEw=</wss:Created>
</wss:UsernameToken>
</wss:Security>
</S:Header>
<S:Body>
<ns0:RegisterInvoiceElem xmlns:ns0="http://servicos.portaldasfinancas.gov.pt/faturas/">
<TaxRegistrationNumber>XXXXXXX</TaxRegistrationNumber>
<ns0:InvoiceNo>FT 2018/1800000016</ns0:InvoiceNo>
<ns0:InvoiceDate>2018-07-18</ns0:InvoiceDate>
<ns0:InvoiceType>FT</ns0:InvoiceType>
<ns0:InvoiceStatus>N</ns0:InvoiceStatus>
<CustomerTaxID>XXXXXXX</CustomerTaxID>
<Line>
<ns0:DebitAmount>4944.76</ns0:DebitAmount>
<ns0:Tax>
<ns0:TaxType>IVA</ns0:TaxType>
<ns0:TaxCountryRegion>PT</ns0:TaxCountryRegion>
<ns0:TaxPercentage>23</ns0:TaxPercentage>
</ns0:Tax>
<ns0:TaxExemptionReason>M08</ns0:TaxExemptionReason>
</Line>
<DocumentTotals>
<ns0:TaxPayable>1137.29</ns0:TaxPayable>
<ns0:NetTotal>4944.76</ns0:NetTotal>
<ns0:GrossTotal>6082.05</ns0:GrossTotal>
</DocumentTotals>
</ns0:RegisterInvoiceElem>
</S:Body>
</S:Envelope>

Moito obrigado, 

Boas

desculpem dessenterrar o post mas....

alguem conseguiu ffazem a comunicar com o VFP ou VB??

podem partilhar?

Prezados,

Boa tarde!

Tenho um Formulário onde preciso que, quando algum usuário clicar no campo RESPONSAVEL, não sejam exibidos os Responsáveis ROGER ARIAS e MIRNA VALVERDE.

Procurei e não encontrei onde anexar meu Banco de Dados para análise de vocês. Como fazer?

Um abraço,

Sérgio Sporch

Boas

Em PHP necessito utilizar um token depois de fazer um Post  até agora já consegui o resultado e receber o token.

no webbrowser mas não consigo fazer echo do  $Token a variavel fica vazia

Tenho exemplo abaixo.

Quando ativo a linha

$result= json_decode ($result) fico sem resultado no webbrowser.

<?php

    ini_set('display_errors', 'off');
    error_reporting(E_ALL | E_STRICT);

	// CODIGO QUE ESTAMOS A TRABALHAR DE TESTE

	// CREATE TOKEN
	$url = 'https://urlservidor';

    $ch = curl_init($url);

	curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, FALSE);
	curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, FALSE);
  
    curl_setopt($ch, CURLOPT_POST, 1);
 
   	curl_setopt($ch, CURLOPT_POSTFIELDS,$jsonData);
 
    curl_setopt($ch, CURLOPT_HTTPHEADER, array(
    										'Content-Type: application/json',
    										'Authorization: Basic '. base64_encode("user:pass"),
    										)
	);

	curl_setopt($ch, CURLOPT_POST,1);
	curl_setopt($ch, CURLOPT_HEADER,1);
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
   
    $result = curl_exec($ch);
	
	// $result = json_decode ($result);

  	  	 
	$token = ($result)->token;
	 
	echo $token;

	echo '<pre>';

	print_r($result);

HTTP/1.1 200 OK Cache-Control: no-cache Content-Length: 117 Content-Type: application/json; charset=utf-8 ETag: W/"75-tSEeQ0X/aprG22KPQ4xOKQ" Vary: Accept-Encoding X-FM-Data-Access-Token: c7ad160ee9034f9490f66f59bdc1684d30e33b9d413bc85c73c X-Powered-By: ARR/3.0 X-Powered-By: ASP.NET X-Frame-Options: SAMEORIGIN X-XSS-Protection: 1; mode=block X-Content-Type-Options: nosniff Date: Wed, 18 Jul 2018 23:48:38 GMT {"response":{"token":"c7ad160ee9034f9490f66f59bdc1684d30e33b9d413bc85c73c"},"messages":[{"code":"0","message":"OK"}]}

Obrigado

Pedido ajuda em PHP...

bem, estive a ver bem a descrição que apresentas da tabela "categoria", o que rapidamente sobre sai é que o campo "desc_grup" é completamente desnecessário

Amigo.

Quando aciona o SELECT <option> mostra a DESCRIÇÃO do PRODUTO / CATEGORIA / ETC.

Preciso INSERIR (INSERT / UPDATE) no MySql, além da DESCRIÇÃO + o ID.

Se tiver outra forma de se fazer isso, gostaria de entender e aprender.

1 hora atrás, rukako disse:

Alguem consegue comunicar?

Ja esta a trabalhar