Search the Community

Olá a todos As novas regras de faturação, a entrar em vigor a 1 de Janeiro de 2013, exigem alguns ajustes ao "schema" do ficheiro XML. No mínimo, é necessário que seja contemplado um novo InvoiceType para a "Fatura SImplificada." Este facto é reforçado pelo texto da Portaria n.º 382/2012 de 23 de novembro, que cito: No entanto, o único ficheiro xsd que encontro é o que está na página do "validador saft", mas é o antigo, ou seja, ainda não contempla as Facturas Simplificadas. Aliás, se tentar submeter nesse validador um ficheiro que contenha faturas simplificadas, vai dar erro de validação, como seria de esperar. A minha pergunta é: alguém, sabe onde obter a nova versão do schema XML para o SAFT (SAF-T_PT.xsd)? PS: já contactei a AT por email, mas ainda não recebi resposta (que outra cosia seria de esperar?...) Obrigado

Alguém tem informação sobre este tema?

Boa Tarde para todos. Eu sou um completo nabo nisto por isso se as minhas preguntas forem muito disparatadas não levem a mal. Pelo que encontrei na net no VFP para usar web services tenho que: 1 - Criar um soapEnvelope (alguem tem por ai um de exemplo do conteudo é que pelo http://info.portaldasfinancas.gov.pt/NR/rdonlyres/02357996-29FC-4F11-9F1D-6EA2B9210D60/0/factemiws.wsdl nao consigo descortinar quase nada daquilo). 2 - Fazer open('POST', 'endereço?????' ,.f.) (mas não sei a que endereço). 3 - Fazer setrequestheader('SOAPAction', 'endereço?????') (mas tambem não sei a que endereço). 4 - Fazer setrequestheader('Content-Type','text/xml;charset=UTF-8') 5 - fazer send (soapenvelope). 6 - fazer responsexml.getElementsByTagName('TAGNAME???') (tambem nao sei o que por aqui) Se alguem poder ajudar.... Obrigado.

Boa tarde, Solicito a ajuda dos mais experientes nesta matéria, por forma a fornecerem alguma orientação de como executar a função descrita no titulo, ou a indicação de alguns tutoriais, após longas pesquisas nada encontrei, nem no site da Administração Tributária, penso que o caminho a seguir não será por Webservices, pois a ideia é obter os documentos e não registar novos documentos, a linguagem de programação que utilizo é PHP. Agradeço toda a ajuda que me possam dar, na certeza porem de que estarei pronto para partilhar com outros, o meu pouco conhecimento em matéria de programação.

Bom dia, Já andei a pesquisar mas não encontro informação... Alguém sabe se a AT tem um webservice para envio da DMR mensal? Webservice, ou outra forma que permita automatizar o envio do ficheiro para a AT, sem o utlizador ter de ir ao site ou à aplicação desktop da AT fazer o envio. Agradeço desde já as vossas respostas.

Boa tarde! Por acaso alguém pode confirmar, se o webservice de testes da AT para o envio da declaração do IVA, está a disponível? Obrigada!

Boas, Precisava de aceder à AT apenas para visualizar as faturas de um contribuinte. Não pretendo enviar nenhum documento ou fatura para a AT. Já andei a pesquisar e notei que não é preciso nenhum webservice para o mesmo, mas os métodos que encontrei estão desatualizados. Qual seria o procedimento a proceder neste momento?

Boas, Foi publicada uma portaria Portaria 294/2017, aparentemente já em vigor, sobre este assunto. Vai haver uma reunião esta quinta-feira dia 20 de Outubro em Lisboa sobre este assunto promovida pela AT mas eu desconhecia totalmente este assunto até á passada sexta-feira, altura em que recebi um email do Nelson Lopes da Assoft sobre esta reunião. Alguém tem mais informações sobre este assunto? Alguém já tem ou pediu este "selo"? Aparentemente já é obrigatório desde o dia em que a portaria foi publicada. Só mesmo neste país...

Bom dia, Estou a tentar utilizador o WebService de Testes para envio de Guias de transporte e recebo sempre o mesmo erro. O da Produção esta a funcionar. Ja actualizei os certificados. //FOR TESTS USE: //https://servicos.portaldasfinancas.gov.pt:701/sgdtws/documentosTransporte //username = "...../1"; nif da empressa //user_password = "......"; //public_cert = TesteWebServices.pfx //certificate_password = TESTEwebservice //IMPORT CERTIFICATE var cert = new X509Certificate2(); cert.Import(public_cert, certificatePassword, X509KeyStorageFlags.Exportable); ERRO: The underlying connection was closed: An unexpected error occurred on a send. Authentication failed because the remote party has closed the transport stream. Muito Obrigado.

Como muitos de vós devem saber, entra em vigor a 1 de Maio de 2013 o webservice da Autoridade Tributária para reporte em tempo real dos documentos de transporte emitidos. Estou a tratar da implementação dessa funcionalidade numa plataforma de faturação escrita em PHP e tenho várias dificuldades em que vou precisar de ajuda nos próximos dias, a diversos níveis. A primeira de todas é o estabelecimento da ligação segura com o servidor da AT, em: https://servicos.portaldasfinancas.gov.pt:400/sgdtws/documentosTransporte Já recebi da AT: - uma chave pública, materializada no ficheiro 'chavePublica.cer' - um certificado materializado no ficheiro 'certificado.pfx' Também já tenho a extensão openssl activa no meu servidor, que é linux. Teóricamente seria só consultar a documentação sobre a extensão que existe no PHP.net e mais uns quantos tutoriais online, que deveria chegar lá. O problema é que a extensão está muito mal documentada em termos de exemplos práticos, e a carga técnica sobre criptografia é de tal forma grande que quem não está habituado fica completamente perdido. Então, o que eu preciso: - que alguém me explique a funcionalidade destes dois ficheiros; - como é que eu os utilizo em conjunto com a extensão openssl do php para estabelecer a ligação segura, por onde vai ser enviada depois a informação ( esta será uma guerra para depois...)

Bom dia, estou desenvolvendo um sistema de emissão de bilhetes/fichas que deve sofrer umas adaptações para o funcionamento em portugal e me deparei com umas duvidas quanto a parte de emissão de faturas. Se puderem me ajudar, ficaria muito grato. 1 - Na Despacho n.º 8632/2014, de 3 de julho vi algumas regras a serem seguidas para emissão da factura. No entanto fiquei com duvida em alguns aspectos: a) A numeração da fatura, vi que deverá possuir o formato: 'Tipo' 'N.º de Serie'/'N.º Sequencial' sem as aspas simples( ' ). No entanto, em relação ao numero de serie fiquei sem entender se era um numero que eu criava, ou se devo registra-lo de acordo com o tipo em algum lugar na AT, ou se devo requisitado de alguma API ou WebService deles? b) No caso do código Hash, ele deve ser gerado com base na chave publica ou privada? No caso da primeira nota a ser emitida, devo omitir a informação separada por hífen (Ex. AxAx- Processado por programa certificado de n.º XXXX/AT)? Porque pelo que entendi o código AxAx é feito com base na posição ( 1ª, 11ª, 21ª e 31ª ) do hash gerado ou estou enganado? c) Após o armazenamento e emissão da nota, poderia imprimir as respectivas quantidades de fichas descritas na Factura para retirada das bebidas, por exemplo. Ou teria que desmembrar a fatura em três tratando-as individualmente para que o cliente tivesse a comodidade de retirar-las mais tarde? d) Toda fatura obrigatoriamente deve ser assinada, ou somente o ficheiro que sera enviado para SAF-T(PT)? No seu devido fechamento mensal, que ainda não conseguir entender se é dia 8, 20 ou 25 do mês subsequente. e) No caso de cancelamento de 1 item, devo cancelar a fatura inteira e gerar uma nota de crédito, ou posso realizar o cancelamento de um item demonstrando valor negativo na nota? Fiquei confuso na documentação em um momento fala que não e em outro fala que o valor negativo não pode superar o valor da fatura, enfim. 2 - Ao realizar uma tentativa de validação de certificado, com software disponibilizado pela AT, me deparei com seguinte erro: "cvc-identity-constraint.4.3: Key 'InvoiceProductCodeConstraint' with value 'MO' not found for identity constraint of element 'AuditFile'.". Saberiam como resolver? 3 - Conheceriam alguma API de integração, ou biblioteca em C# que pudesse facilitar o processo da emissão de faturas? Desde já grato pela vossa atenção, Fabio

Bom dia, Alguém já começou a fazer alguma coisa para o processo de desmaterialização da faturação da ADSE ? Principalmente em Delphi. https://FaturacaoOnline.adse.pt/wsValidaBenefLocalConvencionado_Testes/Service.asmx

Olá malta, Estou a desenvolver um modulo de comunicação de documentos de transporte em VB.NET, e estou empancado num problema com o qual espero que me possam ajudar. Então, a situação é a seguinte, eu consigo comunicar com o servidor de testes, no entanto quando invoco o método para o envio, obtenho a seguinte resposta de erro: "Rejected: | Codigo: 16 | Erro: Created: Chave de sessão inválida. Não foi possível decifrar o campo Created | Tentativas Restantes: -1" Dos testes que fiz, consegui perceber a ordem que eles testam cada um dos campos: Nonce, Created, Password. Isto quer dizer que, o meu problema pode ser um dos seguintes: chave assimétrica que gero, pode ter problemas (não me parece que seja isto) encriptação da chave assimétrica pode estar errada a string com a data pode estar errada (também nao me parece, já tentei de tudo) a encriptação da string com a data Segue o meu código: ' GERAÇÃO DE CHAVE ASSIMÉTRICA Public Function GenerateAESKey() As AesKey Implements IEncryptionServices.GenerateAESKey Dim aes As New AesManaged() aes.KeySize = 128 aes.BlockSize = 128 aes.GenerateKey() aes.GenerateIV() Return New AesKey() With {.IV = aes.IV, .Key = aes.Key} End Function ' USO ESTA FUNC PARA ENCRIPTAR O NONCE Public Function EncryptUsingRSA(text As String, certificateFilePath As String, Optional password As String = "") As String Implements IEncryptionServices.EncryptUsingRSA Dim certificate As New X509Certificate2(certificateFilePath, password) Dim csp As RSACryptoServiceProvider = certificate.PublicKey.Key Dim bytesPlainText = Encoding.UTF8.GetBytes(text) Dim encryptedBytesPlainText = csp.Encrypt(bytesPlainText, False) Dim cypherText = Convert.ToBase64String(encryptedBytesPlainText) Return cypherText End Function ' USO ESTA FUNC PARA ENCRIPTAR A PASSWORD E A DATA Public Function EncryptUsingAES(text As String, key As AesKey) As String Implements IEncryptionServices.EncryptUsingAES If text Is Nothing OrElse text.Length <= 0 Then Throw New ArgumentNullException(NameOf(text)) End If If key Is Nothing Then Throw New ArgumentNullException(NameOf(key)) End If If key.Key Is Nothing OrElse key.Key.Length <= 0 Then Throw New ArgumentNullException(NameOf(key.Key)) End If If key.IV Is Nothing OrElse key.IV.Length <= 0 Then Throw New ArgumentNullException(NameOf(key.IV)) End If Dim aesManaged As New AesManaged() aesManaged.Key = key.Key aesManaged.IV = key.IV aesManaged.BlockSize = 128 aesManaged.Mode = CipherMode.ECB aesManaged.Padding = PaddingMode.PKCS7 Dim encryptor As ICryptoTransform = aesManaged.CreateEncryptor(aesManaged.Key, aesManaged.IV) Dim memoryStream As New MemoryStream() Dim cryptoSream As New CryptoStream(memoryStream, encryptor, CryptoStreamMode.Write) Dim streamWriter As New StreamWriter(cryptoSream) streamWriter.Write(text) streamWriter.Close() cryptoSream.Close() memoryStream.Close() Dim encrypted As Byte() = memoryStream.ToArray() Return Convert.ToBase64String(encrypted) End Function Sim, o camiho do certificado está correcto. Sim, o certificado está actualizado. Sim, já verifiquei o formato da data e comparei com a OAL. Já tentei de tudo, estou sem ideias... Por favor ajudem! Obrigado!

Boas, Alguém sabe se a at disponibiliza algum webservice onde seja possível ir buscar a informação relativa às faturas comunicadas pelos comerciantes (sei que no site da at tem lá maneira de exportar esses registos para excel) ? Saudações JD

Bom dia, Desenvolvi a minha primeira aplicação mobile para o Android e já me registei como developer no Google Market, ao qual aguardo a conclusão deste processo para poder efectuar o upload da aplicação. A aplicação será paga e a minha dúvida é em relação aos impostos. Segundo o regulamento do Google Market: "E quanto aos impostos? Não fornecemos um mecanismo para recolher impostos de vendas, impostos de valor agregado ou outros impostos relacionados à venda dos seus aplicativos a compradores. É sua responsabilidade como o comerciante de registro (1) determinar se você precisa legalmente coletar impostos, (2) reajustar o preço do aplicativo para incluir os impostos e (3) enviar quaisquer impostos obrigatórios às autoridades responsáveis por eles. Você é responsável por quaisquer impostos retidos resultantes da venda dos aplicativos. Os pagamentos do Google estarão livres de impostos retidos. " Assim sendo, cá em Portugal tenho de pagar impostos ou não e tendo de pagar será na altura da declaração do IRS e se sim em que zona do mesmo ? Terei de me colectar nas finanças ou neste caso como não passo recibos não é necessário ? Eu sei que ainda é um bocado cedo, porque mesmo após o upload tenho de aguardar um bom tempo para ver o feedback da qualidade da aplicação (ou seja o número de downloads) mas ainda assim tenho esta curiosidade e também para definir o preço. Agradeço desde já à ajuda nestas minhas dúvidas

Boa noite, alguém conhece algum módulo de facturação certificado pela AT para o prestashop, que seja gratuito ou permita emissão de um valor limite de facturas gratuitamente? Ou algum programa stand-alone para windows ou serviço online/na clound?

Boa noite, Pretendo certificar um software de facturação desenvolvido em IOS. Alguém tem código criado neste sentido? Ou indicar alguém qu3 me possa ajudar? Obrigado. Diogo (tlm 917112955)

Olá pessoal, Antes demais, desculpem se coloquei esta mensagem no forum errado. Hoje, dia 20, começou a dar um erro bastante estranho na minha clientela, aquando da comunicação das guias à AT. O mais estranho é que, tanto nos meus clientes, como nos clientes de outro parceiro, este tipo de erro só acontece se a maquina que está a comunicar tiver o Windows XP. Com o Windows 7, 8 e 8.1, funciona normalmente. Alguém já se deparou com o mesmo problema? Obrigado.

DRE Notify - Notificações Diário da República Electrónico Ver Ficheiro DRE Notify Mini-programa, que vai buscar ao Diário da República Electrónico os artigos do dia. É possível filtrar os resultados, inserindo paralavras de pesquisa no ficheiro filter.txt em anexo. Se não forem encontrados artigos (ou por não existirem mesmo, ou porque o filtro não retornou resultados), nada é mostrado ao utilizador. O programa entra e sai automaticamente. Se forem encontrados artigos, é mostrada uma lista, com o resumo do artigo seleccionado. O conceito é meter isto no boot do Windows, e ser notificado caso haja algum artigo de uma área que nos interesse. Filter.txt: O ficheiro de filtros é nada mais que um ficheiro de texto, em que cada linha é um filtro. Não há tratamento algum dos filtros, o que significa que não há palavras compostas. O que meterem no filtro tem de aparecer exactamente igual no cabeçalho do artigo, caso contrário, é descartado. A única excepção são as maiúsculas e minúsculas - O filtro não é case-sensitive. Note-se que a condição dos filtros é OU, ou seja, se o artigo tiver qualquer das palavras dos filtros, já aparece. Isto foi feito porque me dá jeito saber dos mandos e desmandos do Ministério das Finanças, mas se der jeito a mais alguém, estejam à vontade. Submetido por nunopicado Submetido em 12-03-2014 Categoria Bibliotecas e Aplicações Licença Website Submetido pelo Autor? Sim

Boa noite, Já li vários posts, neste forum, sobre o assunto de OpenSSL. Li também o manual de construção dos Hash e respectivas chaves Públicas e Privadas. Li o documento "Certificação de Software (Modelo 24)", que se encontra em: "Declarações", que me indica todos os requisitos/obrigações que o meu software deve ter a funcionar. Tenho por tanto algumas dúvidas. Li por aí, que o OpenSSL, dá chaves ou encriptações diferentes de ambiente para ambiente, e de linguagem para linguagem. Este problema é fácil de resolver, estando eu a utilizar o PHP? [*]Sou obrigado a criar uma chave Privada e outra Pública. Mas tenho visto na internet de que existe uma Assinatura a ser preenchida pelo cliente. <?php $dn = array( "countryName" => 'XX', "stateOrProvinceName" => 'State', "localityName" => 'SomewhereCity', "organizationName" => 'MySelf', "organizationalUnitName" => 'Whatever', "commonName" => 'mySelf', "emailAddress" => 'user@domain.com' ); $privkeypass = '1234'; $numberofdays = 365; $privkey = openssl_pkey_new(); $csr = openssl_csr_new($dn, $privkey); $sscert = openssl_csr_sign($csr, null, $privkey, $numberofdays); openssl_x509_export($sscert, $publickey); openssl_pkey_export($privkey, $privatekey, $privkeypass); openssl_csr_export($csr, $csrStr); echo $privatekey.'<br><br>'; // Will hold the exported PriKey echo $publickey.'<br><br>'; // Will hold the exported PubKey echo $csrStr.'<br><br>'; // Will hold the exported Certificate ?> [*]Depois de as chaves criadas, tanto a pública como a privada, quais as que uso, como e onde? [*]Ao encriptar a informação: "2010-05-18;2010-05-18T11:22:19;FAC 001/14;3.12;", onde vou buscar o XML para enviar ao SAF-PT, e como crio? ​Existem templates já construidos, disponibilizados na internet ou tenho de pedir essa informação à AT? [*]Exemplo: link. [*]Alguém me consegue, explicar de forma clara, quais os requisitos que o meu software deve comprir para poder ser certificado? ​Eu pergunto isto porque nas Finanças, onde moro, dizem-me que não sabem de nada disso, e quando telefonei para lá, que tinha de ler o Modelo 24. Li o documento mas para mim é chinês. Eis o código que tenho e que se encontra a funcionar, apenas como teste. <?php # http://www.php.net/manual/pt_BR/book.openssl.php if (isset($_SERVER['HTTPS']) ) { echo "SECURE: This page is being accessed through a secure connection.<br><br>"; } else { echo "UNSECURE: This page is being access through an unsecure connection.<br><br>"; } // Create the keypair $config = array( "digest_alg" => "sha1", /* sha512*/ "private_key_bits" => 1024, "private_key_type" => OPENSSL_KEYTYPE_RSA, 'x509_extensions' => 'v3_ca' ); $res=openssl_pkey_new($config); // Get private key openssl_pkey_export($res, $privatekey); echo "Private Key:<BR>$privatekey<br><br>"; // Get public key $publickey=openssl_pkey_get_details($res); $publickey=$publickey["key"]; echo "Public Key:<BR>$publickey<BR><BR>"; $cleartext = '2010-05-18;2010-05-18T11:22:19;FAC 001/14;3.12;'; echo "Clear text:<br>$cleartext<BR><BR>"; openssl_public_encrypt($cleartext, $crypttext, $publickey); echo strlen($crypttext)."<br>"; echo "Crypt text:<br>$crypttext<BR><BR>"; $base64_data = base64_encode($crypttext); echo strlen($base64_data)."<br>"; echo "Base64 text:<br>$base64_data<BR><BR>"; openssl_private_decrypt($crypttext, $decrypted, $privatekey); echo strlen($decrypted)."<br>"; echo "Decrypted text:<BR>$decrypted<br><br>"; echo '<br/>'; echo '<br/>'; /* $pkeyid = openssl_get_privatekey($priv_key); openssl_sign($assinar,$signature,$pkeyid,"sha1"); return base64_encode($signature); */ # http://www.portugal-a-programar.pt/topic/58028-saft-openssl/page__hl__openssl # http://www.portugal-a-programar.pt/topic/61541-at-questoes-legais/page__hl__openssl # http://www.portugal-a-programar.pt/topic/61541-at-questoes-legais/page__st__20#entry517850 # http://www.portugal-a-programar.pt/topic/57734-utilizar-webservices-da-at/page__st__760__hl__openssl#entry503022 # GETs PUBLIC KEY object, from PRIVATE KEY $pubkey = openssl_get_privatekey($privatekey); # CREATES signature openssl_sign($cleartext, $signature, $pubkey, "sha1"); # GETs PUBLIC KEYID object from PUBLIC KEY $pubkeyid = openssl_get_publickey($publickey); # http://www.portugal-a-programar.pt/topic/63288-at-saft-facturacao-php/#entry532920 $sig64 = base64_encode($signature); echo strlen($sig64).'<br>'; echo $sig64.'<br>'; # CHECK IF data is VALID $Result = openssl_verify($cleartext, $signature, $pubkeyid,"sha1"); switch($Result) { case 0: { echo "ERROR: bad (there's something wrong)\n"; } break; case 1: { echo "SUCESS: signature ok (as it should be)\n"; } break; default: { echo "ERROR: ugly, error checking signature\n"; } break; } echo '<br>----------------------------<br><br>'; $dn = array("countryName" => 'XX', "stateOrProvinceName" => 'State', "localityName" => 'SomewhereCity', "organizationName" => 'MySelf', "organizationalUnitName" => 'Whatever', "commonName" => 'mySelf', "emailAddress" => 'user@domain.com'); $privkeypass = '1234'; $numberofdays = 365; $privkey = openssl_pkey_new($config); $csr = openssl_csr_new($dn, $privkey); $sscert = openssl_csr_sign($csr, null, $privkey, $numberofdays); openssl_x509_export($sscert, $publickey); openssl_pkey_export($privkey, $privatekey, $privkeypass); openssl_csr_export($csr, $csrStr); echo $privatekey.'<br><br>'; // Will hold the exported PriKey echo $publickey.'<br><br>'; // Will hold the exported PubKey echo $csrStr.'<br><br>'; // Will hold the exported Certificate ?> Básicamente o que pretendo, é uma ajuda "paço-a-paço" para poder desenvolver um software que possa ser certificado e que funcione de acordo com o Modelo 24 da AT. Não estou a pedir ajuda para o desenvolvimento do software, mas sim ajuda para a criação de um tutorial paço-a-paço, do que devo fazer com o mecanismo OpenSSL para que tudo fique a funcionar, tudo o que me é obrigatório ter por parte da AT, e o respectivo envio dessa mesma informação. Ou seja, desde a criação das chaves Pública e Privada, registo das informações de uma factura (Ex: "2010-05-18;2010-05-18T11:22:19;FAC 001/14;3.12;"), exportação para XML e envio. Como não conheço ninguém que tenha feito e desenvolvido um software certificado e que tenha passado pelo mesmo processo, pedia a vossa ajuda, com o intuito não só de me ajudar, mais também a outros interessados no assunto e que tenham as mesmas dúvidas ou dificuldades. Obrigado, Links úteis: http://www.primaverabss.com/pt/UserFiles/Downloads/Especifica%C3%A7%C3%A3o_Regras_T%C3%A9cnicas.pdf http://info.portaldasfinancas.gov.pt/NR/rdonlyres/AC494AE7-7E41-41C9-991B-15C3F0126ABF/0/ComunicacaodedadosdasFaturas20130418.pdf http://info.portaldasfinancas.gov.pt/pt/apoio_contribuinte/NEWS_SAF-T_PT.htm http://www.improxy.pt/LinkClick.aspx?fileticket=cmPEyh2GqWw%3D&tabid=788&mid=4195 http://repositorio.ipv.pt/handle/10400.19/1117 http://msmvps.com/blogs/albertosilva/archive/2010/08/30/processo-de-certifica-231-227-o-de-software-de-gest-227-o-e-c-243-digo-exemplo-em-vb-net-full-net-fx-amp-net-cf.aspx ​Resposta: SAF-T PT (Standard Audit File for Tax purposes) - Versão Portuguesa Tenho de criar uma maneira para preencher apenas o que é relevante para uma factura ou recibo, certo? Não vou utilizar tudo. (?)

Bom dia Embora já existe um forum com duvidas sobre o saft, a ideia deste forum é resumos, ou seja, apresentar já o codigo final que funcione: Assim o meu contributo: » Para quem pode executar no servidor linhas de comando # criacao do ficheiro formato - sha1 $comando="openssl dgst -sha1 -sign " . $hash_privada . " -out " . $ficheiro_assinado . " " . $ficheiro_temp; exec($comando); # criacao do ficheiro formato - base 64 $comando="openssl enc -base64 -in " . $ficheiro_assinado . " -out " . $ficheiro_encriptado . " -A"; exec($comando); Cumprimentos

WS-Dll.zip Ver Ficheiro DLL com as funções de encriptação e envio por webservices de documentos de transporte para o servidor da AT Programa demonstração de como usar a DLL ALERTA NOVA VERSÃO: AtWS: Desde 2017-08-23 este projecto está marcado como obsoleto, e não terá nenhum tipo de apoio nesta versão. O projecto segue com o nome AtWS, que pode ser encontrado em github.com/nunopicado/AtWS A nova versão quebra a compatibilidade com a antiga, pela necessidade de melhorar a estrutura do código. No entanto, a compatibilização de código que esteja a usar a WS-DLL não é difícil, já que os parâmetros necessários são os mesmos e no mesmo formato, apenas indicados em locais ligeiramente diferentes. NOTAS: Requer instalação da biblioteca da Microsoft CAPICOM 2.0 (http://www.microsoft.com/pt-pt/download/details.aspx?id=25281) Requer que o certificado esteja instalado no Windows ATENÇÃO: Esta é uma DLL de testes para fins meramente didáticos. Não foi alvo de testes intensivos que seriam necessários para ambiente de produção. Usem por vosso risco. Funções: ValidadePFX (PFXFile,PFXPass:WideString):WideString; Retorna a data de expiração do certificado. Aceita por parâmetro duas strings, em formato UniCode, e retorna uma no mesmo formato. O primeiro parâmetro é o caminho completo para o ficheiro do certificado (Extensão PFX), o segundo leva a password do certificado. A Naming Convention é StdCall, standard do Windows. InitWS(SoapURL,SoapAction:WideString;TimeOut:Integer); Inicializa a DLL. Deve ser chamada antes de qualquer envio de documentos (não precisa ser chamada se for apenas para verificar a validade). Aceita por parâmetro duas strings, em formato UniCode, e um valor inteiro. O primeiro parâmetro é o URL do serviço AT, o segundo é a SOAP Action a usar, o terceiro é o número de segundos para o Timeout. Normalmente, 10 segundos é suficiente. Em máquinas lentas/net lenta, subir um pouco pode ser necessário. A Naming Convention é StdCall, standard do Windows. ValidaTDoc(XMLData,PFXFile,PFXPass:WideString):WideString; Envia um documento de transporte para a AT. Aceita por parâmetro três strings, em formato UniCode. O primeiro parâmetro é o documento a enviar, em formato XML, de acordo com as indicações da AT. As excepções são os campos Password (que deve ir em texto simples, e não encriptado), e os campos Nonce e Created, que devem ir vazios. A DLL encarrega-se de encriptar a password e criar os campos Nonce e Created. Os segundo e terceiro parâmetros são os dados do certificado (caminho completo e password). Retorna uma string, UniCode também, com o XML de resposta da AT, ou uma string vazia caso não haja resposta. A Naming Convention é StdCall, standard do Windows. Requisitos: Para funcionar, é necessário instalar no PC um pacote da Microsoft, chamado CAPICOM v2.0. Este tem também uma dll (capicom.dll) que deve ser registada no Windows (regsvr32 capicom.dll). É necessário também que, no Internet Explorer (mesmo que este não seja usado) se defina nas opções avançadas o TLS 1.2 como desabilitado. Por regra, este protocolo já vinha desabilitado, mas no Windows 8.1, ou no Windows 7/8 com o IE 11 instalado, este protocolo é activado. Deve-se desactivar. É preciso ainda o certificado, de produção ou de testes, atribuído pela AT. O ficheiro ChavePublicaAT, ao contrário do que é costume, aqui não é necessário, pois a chave da AT está embutida no código. AVISO: De notar que esta DLL não foi alvo de testes extensivos, pelo que o seu uso é por conta e risco do utilizador. Eu uso-a, com algumas alterações para fazer face às minhas necessidades, e nunca me deu problema, mas ainda assim, não posso garantir nada. Submetido por nunopicado Submetido em 11-06-2013 Categoria Bibliotecas e Aplicações Licença Website https://github.com/nunopicado/AtWS Submetido pelo Autor? Sim