MarioNieri

minha dúvida para os mestres de plantão: no código abaixo // como INSTANCIAR esse Array ? vEmpresaProcesso.operacao.cedente.duplicatas. // definicoes criadas pelo Importador WSDL: ArrayOfDuplicataProcesso = class(TRemotable) private Fduplicata: duplicata; public constructor Create; override; destructor Destroy; override; function GetDuplicataProcessoArray(Index: Integer): DuplicataProcesso; function GetDuplicataProcessoArrayLength: Integer; property DuplicataProcessoArray[Index: Integer]: DuplicataProcesso read GetDuplicataProcessoArray; default; property Len: Integer read GetDuplicataProcessoArrayLength; published property duplicata: duplicata read Fduplicata write Fduplicata; end; constructor ArrayOfDuplicataProcesso.Create; begin inherited Create; FSerializationOptions := [xoInlineArrays]; end; CedenteProcesso = class(Empresa) private Fduplicatas: ArrayOfDuplicataProcesso; Fparticipantes: ArrayOfParticipante; FsacadorAvalista: SacadorAvalista; public destructor Destroy; override; published property duplicatas: ArrayOfDuplicataProcesso read Fduplicatas write Fduplicatas; property participantes: ArrayOfParticipante read Fparticipantes write Fparticipantes; property sacadorAvalista: SacadorAvalista read FsacadorAvalista write FsacadorAvalista; end; ... // trecho do codigo: ObjetoSoap:=HTTPRIO1 as ProcessoAssinaturaSoap; vMensagemRetornoProcesso := MensagemRetornoProcesso.create; vEmpresaProcesso := EmpresaProcesso.Create; vEmpresaProcesso.cnpj := 'bla'; vEmpresaProcesso.token := 'b l'; vEmpresaProcesso.versao := ''; vEmpresaProcesso.operador := 'bla '; vEmpresaProcesso.operacao := OperacaoProcesso.create; vEmpresaProcesso.operacao.numero := 1; vEmpresaProcesso.operacao.titulo := 'OPERAÇÃO DE CESSÃO DE CRÉDITO'; vEmpresaProcesso.operacao.cedente := CedenteProcesso.Create; vEmpresaProcesso.operacao.cedente.endereco := 'RUA DO CEDENTE'; // como INSTANCIAR esse Array ? vEmpresaProcesso.operacao.cedente.duplicatas. ??? // trecho da definicao em json: "operacao": { "numero": 0, "titulo": "string", "descricao": "string", "observacoes": "string", "data": "string", ... "cedente": { "cnpj": "string", "razaoSocial": "string", "nomeFantasia": "string", "email": "string", "telefone": "string", "endereco": "string", ... "duplicatas": [ { "idDocumento": 0, "numero": "string", "tipodoc": 0, "dataEmissao": "string", "dataVencimento": "string", "valorBruto": "string", "valorLiquido": "string", "numeroNfe": "string", "serieNfe": "string", "chaveNfe": "string", "sacado": { "cnpjCpf": "string", "nome": "string", "email": "string", "telefone": "string", "endereco": "string", "bairro": "string", "cidade": "string", "uf": "string", "cep": "string", "inscricaoEstadual": "string", "inscricaoMunicipal": "string" }, "arquivo": { "nome": "string", "conteudo": "string" } } ] },

Bom dia Italo, Deu certo agora. Deixei os campos de host e proxy em branco e a consulta foi feita corretamente. Obrigado.

Boa tarde Italo, Testei com o valor LT_TLSv1_2 para SSLType e obtive o mesmo erro. O webService esta configurado da seguinte forma:

Não estou conseguindo identificar o problema, utilizo ela para outras aplicações normalmente, acredito que seja algum problema na configuração. Estou utilizando a biblioteca LibWinCrypt, você saberia qual a recomendada para o provedor ISS Digital de Campinas?

Prezados, Estou tentando realizar uma consulta de NFSe por período utilizando o programa exemplo de NFSe. Fiz toda a configuração referente ao certificado, que é utilizado inclusive em outra aplicação para a mesma função. Porém, sempre apresenta o seguinte erro: Erro interno: 87 Erro HTTP: 0 URL: https://issdigital.campinas.sp.gov.br/WsNFe2/LoteRps.jws?wsdl Erro: 87-. Não estou conseguindo identificar a fonte do erro. Estou utilizando Provedor de Campinas.

bom dia. o AbcrDanfe.exe que uso é anterior a versao 4. Existe alguma versao atualizada desse .exe ?

Bom dia. Sobre esse tema da conexao String de dados Serasa, alguem conseguiu a solucao para funcionar em TLS 1.2 ? uso Indy 10.6.2 O código abaixo se comunica via TLS 1.1 e sha. Preciso mudar a criptografia de SHA para SHA256 e o protocolo de TLSV1 para TLSV1.2 Tenho as cifras fornecidas pelo Serasa, certificados, etc Algum tem código atualizado que funcione ? Desde já agradeço... var lParams :TStringList; ... lParams := TStringList.Create; lResponse := TStringStream.Create(''); // st com os parametros foi preenchido acima lParams.Add('p=' + st); Try { valores NAO defaults: } IdHTTP_Serasa.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1'; IdSSLIOHandlerSocketOpenSSL_Serasa.port := 443; // Indy 10 IdHTTP_Serasa.AllowCookies := false; IdHTTP_Serasa.HandleRedirects := TRUE; IdSSLIOHandlerSocketOpenSSL_Serasa.SSLOptions.Method := sslvTLSv1_2; IdSSLIOHandlerSocketOpenSSL_Serasa.SSLOptions.SSLVersions := [sslvTLSv1_2]; IdSSLIOHandlerSocketOpenSSL_Serasa.SSLOptions.Mode := sslmUnassigned; IdHTTP_Serasa.IoHandler := IdSSLIOHandlerSocketOpenSSL_Serasa; IdHTTP_Serasa.ReadTimeOut := 15000; // bug em win8 AuxP.text := URL + '?p=' + st; IdHTTP_Serasa.Post(URL, lParams, lResponse);