Windev21 Aulas,Estudos e Desenvolvimento: junho 2016

quinta-feira, 30 de junho de 2016

Curso WinDev - Certificado - 009 - Soap - Parte 1/... - Consulta Cadastro Sefaz

Nessa aula vou ensinar como buscar por soap o cadastro contribuinte no Sefaz-RS

In this lesson I will teach you how to search for soap registration taxpayer in Sefaz-RS

Dans cette leçon, je vais vous apprendre à chercher du savon enregistrement contribuable SEFAZ-RS

help1

//Informando o Soap // informing the soap // informer le savon
sEnvelope_soap is string=[
    <?xml version="1.0" encoding="utf-8"?>
    <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
    <soap12:Header>
    <nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2">
    <cUF>43</cUF>
    <versaoDados>2.00</versaoDados>
    </nfeCabecMsg>
    </soap12:Header>
    <soap12:Body>
    <nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2">
    <ConsCad xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">
    <infCons>
    <xServ>CONS-CAD</xServ>
    <UF>#UF#</UF>
    <CNPJ>#CNPJ#</CNPJ>
    </infCons>
    </ConsCad>
    </nfeDadosMsg>
    </soap12:Body>
    </soap12:Envelope>
]
//Trocar os parametros do soap // change the parameters of soap // modifiez le paramètres de savon
sEnvelope_soap=Replace(sEnvelope_soap,"#UF#",EDT_Estado) //<UF>RS</UF>
sEnvelope_soap=Replace(sEnvelope_soap,"#CNPJ#",EDT_cnpj) //<CNPJ>94295912000181</CNPJ>
s_certificado is string="" //Criar uma variavel string _certificado // créer un certificat de chaîne de variable
IF EDT_certificado_digitado<>"" THEN //vou perguntar se foi informado certificado em arquivo
    //pegar a assinatura do certificado // get the certificate signature // obtenir la signature du certificat
    s_certificado="32CDD49A23675E407D129416573F16D34FD51BC1"
    HTTPCertificate(s_certificado)
END
_webservice is boolean=HTTPRequest("https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx","","",sEnvelope_soap,"text/xml","","")//HTTPRequest
IF _webservice=True THEN
    s_retorno is string=HTTPGetResult(httpResult)
    EDT_xml=s_retorno
END

/Informando o Soap // informing the soap // informer le savon
sEnvelope_soap est chaîne=[
    <?xml version="1.0" encoding="utf-8"?>
    <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
    <soap12:Header>
    <nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2">
    <cUF>43</cUF>
    <versaoDados>2.00</versaoDados>
    </nfeCabecMsg>
    </soap12:Header>
    <soap12:Body>
    <nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2">
    <ConsCad xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">
    <infCons>
    <xServ>CONS-CAD</xServ>
    <UF>#UF#</UF>
    <CNPJ>#CNPJ#</CNPJ>
    </infCons>
    </ConsCad>
    </nfeDadosMsg>
    </soap12:Body>
    </soap12:Envelope>
]
//Trocar os parametros do soap // change the parameters of soap // modifiez le paramètres de savon
sEnvelope_soap=Remplace(sEnvelope_soap,"#UF#",EDT_Estado) //<UF>RS</UF>
sEnvelope_soap=Remplace(sEnvelope_soap,"#CNPJ#",EDT_cnpj) //<CNPJ>94295912000181</CNPJ>
s_certificado est chaîne="" //Criar uma variavel string _certificado // créer un certificat de chaîne de variable
SI EDT_certificado_digitado<>"" ALORS //vou perguntar se foi informado certificado em arquivo
    //pegar a assinatura do certificado // get the certificate signature // obtenir la signature du certificat
    s_certificado="32CDD49A23675E407D129416573F16D34FD51BC1"
    HTTPCertificat(s_certificado)
FIN
_webservice est booléen=HTTPRequête("https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx","","",sEnvelope_soap,"text/xml","","")//HTTPRequest
SI _webservice=Vrai ALORS
    s_retorno est chaîne=HTTPDonneRésultat(httpRésultat)
    EDT_xml=s_retorno
FIN

Curso WinDev - Certificado - 008 - HTTPListCertificate -

Video Youtube

Nessa aula vou ensinar como buscar assinatura certificado com HTTPListCertificate

This class will teach how to look signing certificate with HTTPS Certificate

Cette classe vous apprendra comment regarder certificat de signature avec certificat HTTPS

Doc.windev.com/en-US/?1000018890&name=HTTPListCertificate
Doc.pcsoft.fr/fr-FR/?1000018890&name=httplistecertificat_fonction

Help2

//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

//Selecting a row of Tabela_certificado_Consulta
//vou pegar assinatura // i´ll get signed // je vais faire signer
EDT_DadosDoCertificado1=TABLE_certificado_Consulta.COL_Assinatura

//Elimina dados da Tabela // clearing data from table // Effacement des données du tableau
TableSupprimeTout(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 est chaîne=HTTPListeCertificat()
//criar um contador // create a counter // créer un compteur
n_numero est entier=0
//percorrer a lista de certificado // go the certificate list // aller la liste des certificats
POUR TOUT CHAÎNE s_certificado DE s_certificado_lista SEPAREE PAR 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 est chaîne=ExtraitChaîne(ExtraitChaîne(s_certificado_lista, n_numero, RC), 3, TAB)
    //adicionar dados tabela // add table data // ajouter des donnéees de table
    TableAjouteLigne(TABLE_certificado_Consulta,s_certificado,_assinatura)
FIN
//http://www.nfe.fazenda.gov.br/portal/WebServices.aspx#RS

Windev Mobile - 68/... Layout - Ajustar

video youtube

Nessa aula vou mostrar como ajustar o layout de cada campo e botão

In this lecture I will show how to adjust the layout of each field and button

Dans cette conférence, je vais vous montrer comment ajuster la mise en page de chaque champ et le bouton

help