//Elimina dados da Tabela // clearing data from table // Effacement des données du tableau
TableDeleteAll(TABLE_certificado_Consulta)
//Criar uma string cerfiticado lista // create a string certificate list // créer une liste de certificat de chaîne
s_certificado_lista is string=HTTPListCertificate()
//criar um contador // create a counter // créer un compteur
n_numero is int=0
//percorrer a lista de certificado // go the certificate list // aller la liste des certificats
FOR EACH STRING s_certificado OF s_certificado_lista SEPARATED BY RC
//somar o contador // add the counter // ajouter le compteur //
n_numero++
//extrair nome e assinatura // extract name and signature // extraire le nom et la signature
_assinatura is string=ExtractString(ExtractString(s_certificado_lista, n_numero, CR), 3, TAB)
//adicionar dados tabela // add table data // ajouter des donnéees de table
TableAddLine(TABLE_certificado_Consulta,s_certificado,_assinatura)
END
//http://www.nfe.fazenda.gov.br/portal/WebServices.aspx#RS
//Blog Com video e exemplo http://windevdesenvolvimento.blogspot.com.br/2016/06/curso-windev-certificado-008.html https://www.youtube.com/watch?v=6GYh6RzruOo
|